kernel/appli/bbi/bbi.cxx

   1 #ifdef _USE_WXWIDGETS_
   2
   3 //==========================================================================
   4 // WITH WX
   5 //==========================================================================
   6 #include "bbtkObject.h"
   7 #include "bbtkInterpreter.h"
   8 #include "bbtkWxBlackBox.h"
   9 #include "bbtkWxGUIConsole.h"
  10
  11 #include <wx/cmdline.h>
  12 #include <vector>
  13 #include <map>
  14
  15 //==========================================================================
  16 // Command line options definition
  17 static const wxCmdLineEntryDesc cmdLineDesc[] =
  18 {
  19   { wxCMD_LINE_SWITCH, _T("h"), _T("help"),   _T("print this help or help on the application defined in input bbs file if any") },
  20   { wxCMD_LINE_SWITCH, _T("g"), _T("graphical-dialog"),   _T("prompt the input parameter values using graphical dialog") },
  21   { wxCMD_LINE_SWITCH, _T("t"), _T("text-dialog"),   _T("prompt the input parameter values in text mode") },
  22   { wxCMD_LINE_SWITCH, _T("c"), _T("console"), _T("open bbi console") },
  23   { wxCMD_LINE_SWITCH, _T("N"), _T("no-console"),   _T("never open bbi console even on error") },
  24   { wxCMD_LINE_SWITCH, _T("q"), _T("quiet"),   _T("be quiet (='message max 0')") },
  25   { wxCMD_LINE_SWITCH, _T("d"), _T("debug"), _T("turn all messages on (='message all 9')") },
  26   { wxCMD_LINE_SWITCH, _T("D"), _T("Debug"), _T("memory debug on exit (='debug -D')") },
  27   { wxCMD_LINE_PARAM,  NULL, NULL, _T("file [file [...]]"), wxCMD_LINE_VAL_STRING, wxCMD_LINE_PARAM_OPTIONAL | wxCMD_LINE_PARAM_MULTIPLE },
  28   { wxCMD_LINE_NONE }
  29 };
  30 //==========================================================================
  31
  32 //==========================================================================
  33 // Processes the command line parsing result
  34 struct WxProcessCmdLine
  35 {
  36   WxProcessCmdLine() {}
  37   void Process(wxCmdLineParser& parser);
  38
  39   //  int argc;
  40   std::vector<std::string> argv;
  41   bool console;
  42   bool debug;
  43   bool quiet;
  44   bool help;
  45   bool graphical_dialog;
  46   bool text_dialog;
  47   bool no_console;
  48   bool proceed;
  49   std::map<std::string,std::string> param_map;
  50   std::vector<std::string> input_file;
  51
  52 };
  53 //==========================================================================
  54
  55 //==========================================================================
  56 void WxProcessCmdLine::Process(wxCmdLineParser& parser)
  57 {
  58   proceed = true;
  59   if (parser.Found(_T("D")))
  60     {
  61       bbtk::StaticInitTime::PrintObjectListInfo = true;
  62     }
  63
  64   debug = ( parser.Found(_T("d")) );
  65   quiet = ( parser.Found(_T("q")) );
  66   help = ( parser.Found(_T("h")) );
  67   graphical_dialog = ( parser.Found(_T("g")) );
  68   text_dialog = ( parser.Found(_T("t")) );
  69   no_console = ( parser.Found(_T("N")) );
  70
  71   if (quiet) bbtk::MessageManager::SetMessageLevel("max",0);
  72   if (debug) bbtk::MessageManager::SetMessageLevel("all",9);
  73
  74   // parse the arguments and consider those which contain a "="
  75   // as set input commands, other as files
  76   int pargc = parser.GetParamCount();
  77   for (int i=0; i<pargc; ++i)
  78     {
  79       std::string s = bbtk::wx2std(parser.GetParam(i));
  80       std::string::size_type pos = s.find_first_of("=");
  81       if (std::string::npos != pos)
  82         {
  83           std::string left = s.substr(0,pos);
  84           std::string right = s.substr(pos+1,s.size());
  85           param_map[left]=right;
  86         }
  87       else
  88         {
  89           input_file.push_back(s);
  90         }
  91     }
  92
  93   bool usage = (help && (input_file.size()==0));
  94   if (usage) {
  95     std::cout << "BBI (The Black Box Interpreter) - bbtk "
  96               << bbtk::GetVersion() << " - (c) Creatis 2007-2008"
  97               << std::endl;
  98     parser.Usage();
  99     proceed = false;
 100   }
 101
 102   console = ( parser.Found(_T("c")) ||
 103               ((input_file.size() == 0) &&
 104                (!no_console) &&
 105                (!usage) ) );
 106
 107 }
 108 //==========================================================================
 109
 110
 111 //==========================================================================
 112 class wxBBIApp : public wxApp
 113 {
 114 public:
 115   bool OnInit( );
 116   int  OnExit() {
 117     //    std::cout << "wxBBIApp::OnExit()"<<std::endl;
 118     // bbtk::Object::PrintObjectListInfo();
 119     return true; }
 120   void OnInitCmdLine(wxCmdLineParser& parser);
 121   bool OnCmdLineParsed(wxCmdLineParser& parser);
 122
 123   WxProcessCmdLine cmd;
 124 };
 125 //==========================================================================
 126
 127
 128 //==========================================================================
 129 void wxBBIApp::OnInitCmdLine(wxCmdLineParser& parser)
 130 {
 131   parser.SetDesc(cmdLineDesc);
 132 }
 133 //==========================================================================
 134
 135 //==========================================================================
 136 bool wxBBIApp::OnCmdLineParsed(wxCmdLineParser& parser)
 137 {
 138   cmd.Process(parser);
 139   // if (!cmd.proceed) return false;
 140   return true;
 141 }
 142 //==========================================================================
 143
 144
 145
 146
 147
 148
 149 //==========================================================================
 150 // The `main program' equivalent, creating the windows and returning the
 151 // main frame
 152 bool wxBBIApp::OnInit( )
 153 {
 154   //      std::cout << "OnInit"<<std::endl;
 155   wxApp::OnInit();
 156 #ifdef __WXGTK__
 157   //See http://www.wxwindows.org/faqgtk.htm#locale
 158   setlocale(LC_NUMERIC, "C");
 159 #endif
 160
 161
 162   if (cmd.quiet) bbtk::MessageManager::SetMessageLevel("max",0);
 163   if (cmd.debug) bbtk::MessageManager::SetMessageLevel("all",9);
 164
 165
 166   bbtk::WxGUIConsole *I = new bbtk::WxGUIConsole(0,_T("bbi"),wxSize(800,600));
 167   SetTopWindow(I);
 168   if (cmd.console) I->Show(true);
 169
 170
 171   I->SetInputs(cmd.param_map);
 172
 173   bool help_on_script = cmd.help && (cmd.input_file.size() > 0);
 174   if (help_on_script)     I->SetNoExecMode(true);
 175   if (cmd.graphical_dialog)     I->SetDialogMode(bbtk::VirtualExec::GraphicalDialog);
 176   if (cmd.text_dialog)     I->SetDialogMode(bbtk::VirtualExec::TextDialog);
 177
 178   std::vector<std::string>::const_iterator i;
 179   bool error = false;
 180
 181   for (i=cmd.input_file.begin(); i!=cmd.input_file.end(); ++i)
 182     {
 183       error = ! I->InterpretFile(*i);
 184       if (error) break;
 185     }
 186   bool show_on_error = error && ! cmd.no_console;
 187   if (show_on_error) I->Show();
 188
 189   I->SetNoExecMode(false);
 190
 191   if (help_on_script)
 192     {
 193       std::string package;
 194       I->GetInterpreter()->GetExecuter()->GetFactory()->PrintHelpDescriptor("workspace",package,false);
 195     }
 196
 197   /*
 198   std::cout << "soe="<<show_on_error <<std::endl;
 199   std::cout << "con="<<console<<std::endl;
 200   std::cout << "iws="<<bbtk::Wx::IsSomeWindowShown()<<std::endl;
 201   */
 202   if (!(show_on_error || cmd.console || bbtk::Wx::IsSomeWindowAlive() ))
 203     {
 204       I->Close();
 205       //      std::cout << "I->Close"<<std::endl;
 206     }
 207   else
 208     {
 209       //      std::cout << "!I->Close"<<std::endl;
 210     }
 211
 212   //    std::cout << "EO OnInit"<<std::endl;
 213
 214   return true;
 215
 216 }
 217 //==========================================================================
 218
 219
 220 #if defined(_WIN32)
 221 //==========================================================================
 222 // WINDOWS
 223 //==========================================================================
 224 IMPLEMENT_APP(wxBBIApp);
 225
 226 //  How to have a Console and wxWidgets
 227 //  http://www.wxwidgets.org/wiki/index.php/MSVC_Setup_Guide
 228 //   In Visual C++ 6 (7 should be similar), to create an application that is both a console application
 229 //  (cout's to the console are visible) and has a wxWidgets GUI,
 230 //  you need to use the linker option "/subsystem:console" and the following code:
 231 int main(int argc, char* argv[])
 232 {
 233     return WinMain(::GetModuleHandle(NULL), NULL, ::GetCommandLine(), SW_SHOWNORMAL);
 234 }
 235
 236 #else
 237 //==========================================================================
 238 // OTHER ( Linux... )
 239 //==========================================================================
 240
 241 IMPLEMENT_APP_NO_MAIN(wxBBIApp);
 242
 243
 244 int main(int argc, char* argv[])
 245 {
 246   wxMessageOutput::Set( new wxMessageOutputBest );
 247
 248   wxCmdLineParser parser(cmdLineDesc,argc,argv);
 249   int val = parser.Parse(false);
 250   if (val>0)
 251     {
 252       parser.Usage();
 253       return 0;
 254     }
 255   WxProcessCmdLine cmdline;
 256   cmdline.Process(parser);
 257
 258   if (!cmdline.proceed) return 0;
 259
 260   if (cmdline.no_console)
 261     {
 262       //      std::cout << "main NC"<<std::endl;
 263       // Interpreter
 264       bbtk::Interpreter::Pointer I = bbtk::Interpreter::New();
 265       I->SetInputs(cmdline.param_map);
 266       bool help_on_script = cmdline.help && (cmdline.input_file.size() > 0);
 267       if (help_on_script) I->SetNoExecMode(true);
 268       if (cmdline.text_dialog) I->SetDialogMode(bbtk::VirtualExec::TextDialog);
 269       std::vector<std::string>::const_iterator i;
 270       bool error = false;
 271       for (i=cmdline.input_file.begin();
 272            i!=cmdline.input_file.end(); ++i)
 273         {
 274           error = ! I->InterpretFile(*i);
 275           if (error) break;
 276         }
 277       if (help_on_script)
 278         {
 279           I->SetNoExecMode(false);
 280           std::string package;
 281           I->GetExecuter()->GetFactory()->PrintHelpDescriptor("workspace",
 282                                                               package,
 283                                                               false);
 284         }
 285       if (cmdline.input_file.size()==0)
 286         I->CommandLineInterpreter();
 287
 288       //
 289     }
 290   else
 291     {
 292       wxEntry(argc, argv);
 293     }
 294
 295 }
 296
 297
 298 #endif // defined(_WIN32)
 299 //==========================================================================
 300
 301
 302
 303
 304
 305
 306
 307
 308 #else
 309 //==========================================================================
 310 // WITHOUT WX
 311 //==========================================================================
 312
 313 #include "bbtkInterpreter.h"
 314
 315 // Processes the command line parsing result
 316 struct ProcessCmdLine
 317 {
 318   ProcessCmdLine() {}
 319   void Process(int argc_, char *argv_[]);
 320   bool Found(std::string value);
 321
 322   int  argc;
 323   std::vector<std::string> argv;
 324   bool console;
 325   bool debug;
 326   bool quiet;
 327   bool help;
 328   bool graphical_dialog;
 329   bool text_dialog;
 330   bool no_console;
 331   bool proceed;
 332   std::map<std::string,std::string> param_map;
 333   std::vector<std::string> input_file;
 334
 335 };
 336
 337 bool ProcessCmdLine::Found(std::string value)
 338 {
 339         bool result=false;
 340         for (int i=1; i<argc; ++i)
 341         {
 342                 if (value==argv[i])
 343                 {
 344                         result = true;
 345                 }
 346         } // for
 347         return result;
 348 }
 349
 350 void ProcessCmdLine::Process(int argc_, char *argv_[])
 351 {
 352    argc = argc_;
 353    for (int i=0; i<argc; ++i)
 354     {
 355         argv.push_back(argv_[i]);
 356     } // for
 357
 358 //EED  proceed = true;
 359   if (Found("D"))
 360     {
 361       bbtk::StaticInitTime::PrintObjectListInfo = true;
 362     }
 363
 364   debug                 = ( Found("d") );
 365   quiet                 = ( Found("q") );
 366   help                  = ( Found("h") );
 367   graphical_dialog      = ( Found("g") );
 368   text_dialog           = ( Found("t") );
 369   no_console            = ( Found("N") );
 370
 371   if (quiet) bbtk::MessageManager::SetMessageLevel("max",0);
 372   if (debug) bbtk::MessageManager::SetMessageLevel("all",9);
 373
 374   // parse the arguments and consider those which contain a "="
 375   // as set input commands, other as files
 376 //EED  int pargc = parser.GetParamCount();
 377   for (int i=1; i<argc; ++i)
 378     {
 379       std::string s = argv[i];
 380       std::string::size_type pos = s.find_first_of("=");
 381       if (std::string::npos != pos)
 382         {
 383           std::string left = s.substr(0,pos);
 384           std::string right = s.substr(pos+1,s.size());
 385           param_map[left]=right;
 386         }
 387       else
 388         {
 389           input_file.push_back(s);
 390         }
 391     }// for
 392
 393   bool usage = (help && (input_file.size()==0));
 394   if (usage) {
 395     std::cout << "BBI (The Black Box Interpreter) - bbtk "
 396               << bbtk::GetVersion() << " - (c) Creatis 2007-2008"
 397               << std::endl;
 398 //EED    parser.Usage();
 399     proceed = false;
 400   }
 401
 402   console = ( Found("c") ||
 403               ((input_file.size() == 0) &&
 404                (!no_console) &&
 405                (!usage) ) );
 406
 407 }
 408 //==========================================================================
 409
 410
 411
 412 int main(int argc, char* argv[])
 413 {
 414 //EED
 415 //  if (argc>2)
 416 //    {
 417 //      std::cout << "usage : "<<argv[0]<<" [filename]"<<std::endl;
 418 //      return 0;
 419 //    }
 420
 421   std::cout << "BBI (Black Box Interpreter) - bbtk "
 422             << bbtk::GetVersion()<< " - (c) Creatis 2007"
 423             << std::endl;
 424
 425   bbtk::Interpreter::Pointer I = bbtk::Interpreter::New();
 426   if (argc==1)
 427   {
 428         I->CommandLineInterpreter();
 429   }  else     {
 430
 431         ProcessCmdLine cmd;
 432         cmd.Process(argc,argv);
 433         I->SetInputs(cmd.param_map);
 434
 435         std::string f(argv[1]);
 436         I->InterpretFile(f);
 437   }
 438
 439   //  bbtk::Wx::LoopUntilAllWindowsClose();
 440
 441   return 0;
 442
 443 }
 444
 445 // EOF
 446 #endif //#ifdef _USE_WXWIDGETS_
 447
 448
 449