Changeset 353 in Sophya for trunk/SophyaPI

Timestamp:

Aug 5, 1999, 3:40:42 PM (26 years ago)

Author:

ercodmgr

Message:

Petites amelioration + readstdin Reza 6/8/99

File:

• trunk/SophyaPI/PIext/piacmd.cc (modified) (4 diffs)

trunk/SophyaPI/PIext/piacmd.cc

@@ -291 +291 @@
 usage += "  > unset varname          # clear variable definition \n";
 usage += "  > echo string            # output string \n";
+usage += "  > alias name string      # define a command alias \n";
+usage += "  > readstdin varname      # reads a line from stdin into $varname \n";
 usage += "  > foreach varname string-list # Loop \n"; 
 usage += "  > foreach varname i1:i2[:di]  # Integer loop  \n"; 
 usage += "  > foreach varname f1:f2[:df]  # Float loop  \n";
 usage += "  > end                         # end loops \n"; 
-usage += "  > listvars   # List of variable names and values \n";
-usage += "  > listcommands # List of all known commands \n";
-usage += "  > exec filename  # Execute commands from file \n";
+usage += "  > listvars      # List of variable names and values \n";
+usage += "  > listalias     # List of alias names and values \n";
+usage += "  > listcommands  # List of all known commands \n";
+usage += "  > exec filename # Execute commands from file \n";
 usage += "  > shell comand_string  # Execute shell command \n";
 usage += "  > help <command_name>  # <command_name> usage info \n"; 
@@ -488 +491 @@
     else  {
       char prompt[64];
-      sprintf(prompt, "foreach-%d> ", felevel);
+      sprintf(prompt, "foreach-%d? ", felevel);
       mImgApp->GetConsole()->SetPrompt(prompt);
       }
@@ -673 +676 @@
   cout << endl;
   }
+
+else if (kw == "readstdin") {
+  if (tokens.size() < 1) { cout << "PIACmd::Interpret() Usage: readstdin varname" << endl;  return(0); }
+  if ((tokens[0].length() < 1) || !isalpha((int)tokens[0][0]) ) {
+    cerr << "PIACmd::Interpret()/Error Variable name should start with alphabetic" << endl;
+    return(0);
+    }
+  char buff[128];
+  fgets(buff, 128, stdin);
+  buff[127] = '\0';
+  mVars[tokens[0]] = buff;
+  }
+
 else if (kw == "listvars") {
   cout << "PIACmd::Interpret()  Variable List , VarName = Value \n";
@@ -680 +696 @@
   cout << endl;
   }
-else if (kw == "listvars") {
+else if (kw == "listalias") {
+  cout << "PIACmd::Interpret()  Alias List , AliasName = Value \n";
+  CmdVarList::iterator it;
+  for(it = mAliases.begin(); it != mAliases.end(); it++)  
+    cout << (*it).first << " = " <<  (*it).second << "\n";
+  cout << endl;
+  }
+else if (kw == "listcommands") {
   cout << "---- PIACmd::Interpret()  Command Variable List ----- \n";
   CmdExmap::iterator it;