| 1 | // This may look like C code, but it is really -*- C++ -*- | 
|---|
| 2 | // Classe interpreteur de commande pour piapp | 
|---|
| 3 | // Reza      Aout 97 , Juillet,Aout 98 | 
|---|
| 4 | //           Octobre 2003: de PIext -> SysTools | 
|---|
| 5 | // LAL-IN2P3/CNRS  DAPNIA/CEA | 
|---|
| 6 |  | 
|---|
| 7 | #ifndef COMMANDER_H_SEEN | 
|---|
| 8 | #define COMMANDER_H_SEEN | 
|---|
| 9 |  | 
|---|
| 10 | #include "machdefs.h" | 
|---|
| 11 | #include <iostream> | 
|---|
| 12 | #include <fstream> | 
|---|
| 13 | #include <string> | 
|---|
| 14 | #include <vector> | 
|---|
| 15 | #include <list> | 
|---|
| 16 | #include <stack> | 
|---|
| 17 | #include <map> | 
|---|
| 18 | #include <functional> | 
|---|
| 19 |  | 
|---|
| 20 | #include "pdlmgr.h" | 
|---|
| 21 | #include "dvlist.h" | 
|---|
| 22 | #include "ctimer.h" | 
|---|
| 23 |  | 
|---|
| 24 | namespace SOPHYA { | 
|---|
| 25 | // Classe definissant l'interface pour un executeur de commande | 
|---|
| 26 |  | 
|---|
| 27 | // Classe definissant l'interface pour un interpreteur de commande | 
|---|
| 28 |  | 
|---|
| 29 | /*! | 
|---|
| 30 | \ingroup SysTools | 
|---|
| 31 | \brief  Interface definition for a generic command interpreter. | 
|---|
| 32 | */ | 
|---|
| 33 | class CmdInterpreter { | 
|---|
| 34 | public: | 
|---|
| 35 | virtual               ~CmdInterpreter() {} ; | 
|---|
| 36 | //! Returns the interpreter's name | 
|---|
| 37 | virtual string        Name()=0; | 
|---|
| 38 | //! Method to be called in order to interpret a line or string. | 
|---|
| 39 | virtual int           Interpret(string& line)=0; | 
|---|
| 40 | }; | 
|---|
| 41 |  | 
|---|
| 42 |  | 
|---|
| 43 | /*! | 
|---|
| 44 | \ingroup SysTools | 
|---|
| 45 | \brief Interface definition for command executor, to be used with Commander | 
|---|
| 46 |  | 
|---|
| 47 | A command is defined by a keyword and a number of argument | 
|---|
| 48 | */ | 
|---|
| 49 |  | 
|---|
| 50 | class CmdExecutor { | 
|---|
| 51 | public: | 
|---|
| 52 | virtual       ~CmdExecutor() {} ; | 
|---|
| 53 | // keyw : Le mot cle associe , args: Arguments de la commande | 
|---|
| 54 | virtual int   Execute(string& keyw, vector<string>& args, string& toks)=0; | 
|---|
| 55 | }; | 
|---|
| 56 |  | 
|---|
| 57 |  | 
|---|
| 58 |  | 
|---|
| 59 | class CommanderBloc;    // Bloc de type foreach / for de l'interpreteur Commander | 
|---|
| 60 | class CommanderScript;  // Script de commandes defini ds l'interpreteur Commander | 
|---|
| 61 | class CommandExeThr;    // Thread d'execution de commande | 
|---|
| 62 |  | 
|---|
| 63 | //! A simple command interpreter with c-shell like syntax and  dynamic load capability. | 
|---|
| 64 |  | 
|---|
| 65 | class Commander : public CmdInterpreter  { | 
|---|
| 66 | public: | 
|---|
| 67 | static Commander*     GetInterpreter(); | 
|---|
| 68 |  | 
|---|
| 69 | Commander(); | 
|---|
| 70 | virtual               ~Commander(); | 
|---|
| 71 | virtual string        Name(); | 
|---|
| 72 |  | 
|---|
| 73 | virtual void          AddHelpGroup(string& grp, string& desc); | 
|---|
| 74 | virtual void          RegisterCommand(string& keyw, string& usage, CmdExecutor * ce, | 
|---|
| 75 | string& grp); | 
|---|
| 76 | inline  void          RegisterCommand(string& keyw, string& usage, CmdExecutor * ce, | 
|---|
| 77 | char* grp) | 
|---|
| 78 | { string sgrp = grp; RegisterCommand(keyw, usage, ce, sgrp); } | 
|---|
| 79 |  | 
|---|
| 80 | virtual void          RegisterHelp(string& keyw, string& usage, string& grp); | 
|---|
| 81 |  | 
|---|
| 82 | virtual void          LoadModule(string& fnameso, string& name); | 
|---|
| 83 |  | 
|---|
| 84 | virtual void          AddInterpreter(CmdInterpreter * cl); | 
|---|
| 85 | virtual void          SelInterpreter(string& name); | 
|---|
| 86 |  | 
|---|
| 87 | virtual int           Interpret(string& line); | 
|---|
| 88 | virtual void          StopExecution(); | 
|---|
| 89 |  | 
|---|
| 90 | virtual int           ExecuteCommand(string& keyw, vector<string>& args, string& toks); | 
|---|
| 91 | virtual int           ExecFile(string& file, vector<string>& args); | 
|---|
| 92 | virtual int           CShellExecute(string cmd); | 
|---|
| 93 | virtual string&       GetUsage(const string& kw); | 
|---|
| 94 |  | 
|---|
| 95 | inline  void          SetMaxLoopLimit(int_8 lim=0) { maxlooplimit = lim; } | 
|---|
| 96 | inline  int_8         GetMaxLoopLimit() { return maxlooplimit; } | 
|---|
| 97 |  | 
|---|
| 98 | string                GetCurrentPrompt() { return curprompt; } | 
|---|
| 99 |  | 
|---|
| 100 |  | 
|---|
| 101 | virtual void          HelptoLaTeX(string const & flnm); | 
|---|
| 102 |  | 
|---|
| 103 | inline  CmdInterpreter* CurrentInterpreter() { return(curcmdi); } | 
|---|
| 104 |  | 
|---|
| 105 | // ----- Action / gestion des variables propres de l'interpreteur | 
|---|
| 106 | // Verifie l'existence de la variable nomme vn et retourne sa valeur ds vv | 
|---|
| 107 | // Retourne false si la variable n'existe pas | 
|---|
| 108 | virtual bool    GetVar(string const & vn, string & vv); | 
|---|
| 109 | virtual bool    GetVar(string const & vn, int idx, string & vv); | 
|---|
| 110 | virtual bool    GetVar(string const & vn, vector<string> & vv); | 
|---|
| 111 | virtual bool    SetVar(string const & vn, string const & vv); | 
|---|
| 112 | virtual bool    SetVar(string const & vn, int idx, string const & vv); | 
|---|
| 113 | virtual bool    SetVar(string const & vn, vector<string> const & vv); | 
|---|
| 114 | virtual bool    CheckVarName(string const & vn); | 
|---|
| 115 | virtual bool    DeleteVar(string const & vn); | 
|---|
| 116 | virtual void    ListVar(); | 
|---|
| 117 | // Variables de l'environnement application | 
|---|
| 118 | virtual bool    GetVarApp(string const & vn, string & vv); | 
|---|
| 119 | virtual bool    SetVarApp(string const & vn, string const & vv); | 
|---|
| 120 | virtual bool    DeleteVarApp(string const & vn); | 
|---|
| 121 | virtual void    ListVarApp(); | 
|---|
| 122 | // Variables d'environnement globales | 
|---|
| 123 | virtual bool    GetVarEnv(string const & vn, string & vv); | 
|---|
| 124 | virtual bool    SetVarEnv(string const & vn, string const & vv); | 
|---|
| 125 | virtual bool    DeleteVarEnv(string const & vn); | 
|---|
| 126 | virtual void    ListVarEnv(); | 
|---|
| 127 |  | 
|---|
| 128 | //   Utilitaire pour decoupage en mot | 
|---|
| 129 | static  int   LineToWords(string& line, string& kw, vector<string>& tokens, | 
|---|
| 130 | vector<bool>& qottoks, string& toks, bool uq=true); | 
|---|
| 131 | protected: | 
|---|
| 132 | virtual int   ParseLineExecute(string& line, bool qw=true); | 
|---|
| 133 |  | 
|---|
| 134 | virtual int   ExecuteCommandLine(string & keyw, vector<string> & args, | 
|---|
| 135 | string & toks); | 
|---|
| 136 |  | 
|---|
| 137 | virtual bool  CheckHelpGrp(string& grp, int& gid, string& desc); | 
|---|
| 138 | inline  bool  CheckHelpGrp(string& grp, int& gid) | 
|---|
| 139 | { string desc=""; return CheckHelpGrp(grp, gid, desc); } | 
|---|
| 140 |  | 
|---|
| 141 | virtual int   SubstituteVars(string & s, string & s2); | 
|---|
| 142 | int           EvaluateTest(vector<string> & args, | 
|---|
| 143 | string & line, bool & res); | 
|---|
| 144 | int           EvalRPNExpr(vector<string> & args, string & line); | 
|---|
| 145 |  | 
|---|
| 146 | // variable de l'interpreteur = valeur - accepte la syntaxe de type varname[index] | 
|---|
| 147 | virtual bool    SetVariable(string const & vn, string const & vv); | 
|---|
| 148 | // Acces aux variables | 
|---|
| 149 | virtual bool    Var2Str(string const & vn, string & vv); | 
|---|
| 150 | inline  bool    Var2Str(string const & vn, int idx, string & vv) | 
|---|
| 151 | { return GetVar(vn, idx, vv); } | 
|---|
| 152 | inline  bool    Var2Str(string const & vn, vector<string> & vv) | 
|---|
| 153 | { return GetVar(vn, vv); } | 
|---|
| 154 |  | 
|---|
| 155 | virtual string  GetTmpDir(); | 
|---|
| 156 |  | 
|---|
| 157 | virtual void  SetCurrentPrompt(const char* pr); | 
|---|
| 158 | inline void   SetCurrentPrompt(string const & pr) { SetCurrentPrompt(pr.c_str()); } | 
|---|
| 159 | inline void   SetDefaultPrompt(string const & pr) { defprompt = pr; } | 
|---|
| 160 |  | 
|---|
| 161 | virtual void  ShowMessage(const char * msg, int att); | 
|---|
| 162 |  | 
|---|
| 163 | void          PushStack(vector<string> & args); | 
|---|
| 164 | void          PopStack(bool psta=true); | 
|---|
| 165 |  | 
|---|
| 166 | //   Gestion des threads d'execution de commandes | 
|---|
| 167 | void          ListThreads(); | 
|---|
| 168 | void          CancelThr(uint_8 thrid); | 
|---|
| 169 | void          CleanThrList(); | 
|---|
| 170 | void          WaitThreads(); | 
|---|
| 171 |  | 
|---|
| 172 | // ------ Attributs et variables ------ | 
|---|
| 173 | CmdInterpreter* curcmdi; | 
|---|
| 174 |  | 
|---|
| 175 | // Gestion des variables | 
|---|
| 176 | typedef map< string,  vector<string>, less<string> > CmdVarList; | 
|---|
| 177 | CmdVarList variables; | 
|---|
| 178 |  | 
|---|
| 179 | // Pour enregistrer la liste de commandes et leurs executeurs et le help | 
|---|
| 180 | //! Command executor registration - For Commander internal use | 
|---|
| 181 | struct cmdex {int group; string us; CmdExecutor * cex; } ; | 
|---|
| 182 | //! Help text registration - For Commander internal use | 
|---|
| 183 | struct hgrpst {int gid; string desc; } ;               // Identification+description d'un groupe de help | 
|---|
| 184 | typedef map<string, hgrpst, less<string> > CmdHGroup;   // Liste des groupes de commandes | 
|---|
| 185 | CmdHGroup cmdhgrp; | 
|---|
| 186 | int cmdgrpid;                                        // Numero de groupe courant | 
|---|
| 187 | typedef map<string, cmdex, less<string> > CmdExmap; | 
|---|
| 188 | CmdExmap cmdexmap;                                   // Liste des commandes et leurs executeurs | 
|---|
| 189 | CmdExmap helpexmap;                                  // Pour les helps sans commande | 
|---|
| 190 |  | 
|---|
| 191 | // Pour garder la liste des threads d'execution de commande | 
|---|
| 192 | list<CommandExeThr *> CmdThrExeList; | 
|---|
| 193 | uint_8 ThrId; | 
|---|
| 194 |  | 
|---|
| 195 | // Pour garder la liste des modules | 
|---|
| 196 | typedef map<string, PDynLinkMgr* , less<string> > Modmap; | 
|---|
| 197 | Modmap modmap; | 
|---|
| 198 |  | 
|---|
| 199 | // Pour garder la liste des interpreteur | 
|---|
| 200 | typedef map<string, CmdInterpreter*, less<string> > InterpMap; | 
|---|
| 201 | InterpMap interpmap; | 
|---|
| 202 |  | 
|---|
| 203 | //  Pour stocker les scripts definis ds l'interpreteur | 
|---|
| 204 | typedef map<string, CommanderScript*, less<string> > ScriptList; | 
|---|
| 205 | ScriptList mScripts;  // Liste des scripts | 
|---|
| 206 | CommanderScript* curscript; // Script en cours de definition | 
|---|
| 207 |  | 
|---|
| 208 | // Code de retour execution commande | 
|---|
| 209 | int _xstatus; | 
|---|
| 210 | // Valeur de retour (par l'instruction return) - | 
|---|
| 211 | string _retstr; | 
|---|
| 212 |  | 
|---|
| 213 | //  Pour stocker les alias definies par l'interpreteur | 
|---|
| 214 | typedef map<string, string, less<string> > CmdStrList; | 
|---|
| 215 | CmdStrList mAliases;  // Liste des alias | 
|---|
| 216 |  | 
|---|
| 217 | // Le stack pour les arguments des .pic et des scripts | 
|---|
| 218 | stack< vector<string> > ArgsStack; | 
|---|
| 219 | // Stack pour les Prompts | 
|---|
| 220 | stack<string> PromptStack; | 
|---|
| 221 |  | 
|---|
| 222 | // Gestion des blocs de commandes et tests (if) | 
|---|
| 223 | stack< CommanderBloc * > CmdBlks;  // Bloc de commande courant (foreach, ...) | 
|---|
| 224 | int felevel;                    // foreach-for level | 
|---|
| 225 | int_8 maxlooplimit;            // Limite maximum des boucles | 
|---|
| 226 | stack< list<char> > TestsStack; // Stack des resultats de test | 
|---|
| 227 | list<char>::iterator tresit;       // Test courant | 
|---|
| 228 | bool curtestresult;             // Resultat courant des tests | 
|---|
| 229 |  | 
|---|
| 230 | // Controle du flot d'execution | 
|---|
| 231 | bool fgexebrk; | 
|---|
| 232 |  | 
|---|
| 233 | // Commande splitees sur plusieurs lignes | 
|---|
| 234 | bool mulinefg;            // Bloc multi-lignes (ligne suite) | 
|---|
| 235 | string mulinecmd;         // Commande multi-lignes | 
|---|
| 236 |  | 
|---|
| 237 | // Texte de prompt (attente de commande) | 
|---|
| 238 | string spromptmul;        // Prompt console avant multi-ligne | 
|---|
| 239 | string curprompt;         // Prompt courant | 
|---|
| 240 | string defprompt;         // Prompt par defaut | 
|---|
| 241 |  | 
|---|
| 242 | // Gestion d'historique, trace, timing des commandes | 
|---|
| 243 | ofstream hist;       //  History file | 
|---|
| 244 | bool histon;        //  True ->  history file | 
|---|
| 245 | bool trace;          // Trace flag | 
|---|
| 246 | bool timing;         // Display CPU Time | 
|---|
| 247 | Timer* gltimer;      // pour Display CPU Time | 
|---|
| 248 |  | 
|---|
| 249 | friend class CommanderBloc; | 
|---|
| 250 | friend class CommanderScript; | 
|---|
| 251 |  | 
|---|
| 252 | }; | 
|---|
| 253 |  | 
|---|
| 254 | } // namespace SOPHYA | 
|---|
| 255 |  | 
|---|
| 256 | /* end of ifdef COMMANDER_H_SEEN */ | 
|---|
| 257 | #endif | 
|---|
| 258 |  | 
|---|