MINFScript Class Reference

#include <MINFScript.h>

List of all members.

Public Member Functions
	MINFScript ()
virtual	~MINFScript ()
virtual EParseResult	ParseMacro ()
virtual void	RunScript ()
virtual void	SetScriptFileName ()
Private Member Functions
void	init ()
Private Attributes
Text_t	fScriptFileName [255]
AddParmDlg *	fParDlg
	name of input data file

---

Detailed Description

Definition at line 35 of file MINFScript.h.

---

Constructor & Destructor Documentation

MINFScript::MINFScript

(

)

Definition at line 50 of file MINFScript.cxx.

References init().

                       :
  fParDlg(0)
{ 
   init();
}

MINFScript::~MINFScript

(

)

[virtual]

Definition at line 65 of file MINFScript.cxx.

References fParDlg.

{
   delete fParDlg;
}

---

Member Function Documentation

void MINFScript::init

(

)

[private]

Definition at line 57 of file MINFScript.cxx.

References MINFast::Display(), fParDlg, fScriptFileName, MINFDisplay::GetMINFGUIPanel(), and gMINFast.

{
   fScriptFileName[0] = '\0';
   fParDlg = new AddParmDlg(gClient->GetRoot(), (TGWindow *)
                 (gMINFast->Display()->GetMINFGUIPanel()), 310, 210);
}

EParseResult MINFScript::ParseMacro

(

)

[virtual]

Definition at line 71 of file MINFScript.cxx.

References count, fParDlg, fScriptFileName, gSystem(), kMACROWITHARGS, kMACROWITHOUTARGS, kNOMACRO, kUNNAMEDMACRO, AddParmDlg::SetArgs(), and AddParmDlg::SetReqArgs().

Referenced by RunScript().

{

// consts needed for parsing.
   const char kLeftBracket      = '(';
   const char kRightBracket     = ')'; 
   const char kComma            = ',';
   const char kSpace            = ' ';
   const char kCommentTokenOne  = '/';
   const char kCommentTokenTwo  = '*';
   const char kQuote            = '"';
   const char kPPSymbol         = '#';
   const char kSingleQuote      = '\'';
   const char kSlash            = '\\';
   const char kEqual            = '='; 
   
   Char_t i;
   
   Char_t funcProto[256] = "\0", tmpbuffer[256] = "\0";
   Char_t *mainOfMacro;
   
   Int_t OldCommentsEnd = 0;    // if `1' we found `*/'.
   Int_t ReadArguments  = 0;    // if `1' we found macro's `main(...)'.
   Int_t SpaceJump      = 0;    // if `1' we read a sequence of spaces.
   Int_t count, matched = 0, 
         argcount = 0, required = 0,
         p = 0; 
        
// check if we have an ASCII file.
   Long_t flags;               
   gSystem->GetPathInfo(fScriptFileName, (Long_t *) 0,
                                    (Long_t *) 0, &flags, (Long_t *) 0);
   if ((Int_t)flags != 0) {
     cerr << "MINFScript::ParseMacro() - Unknown Format." << endl;
     return kNOMACRO;
   }

// open macro for parsing.
   ifstream macroStream(fScriptFileName, ios::in);
   if (!macroStream) {
     cerr << "MINFScript::ParseMacro() - Can't Open File." << endl;
     return kNOMACRO;
   }

// cut extension and path from macro's filename. This is the name
// of the function we must find in macro's source code.  
   sprintf(tmpbuffer, fScriptFileName);
   mainOfMacro = strrchr(tmpbuffer, '/');   
   mainOfMacro = strtok(mainOfMacro, ".C");
   mainOfMacro++;
  
   count = strlen(mainOfMacro);

   while (1) {  

     start_parsing:

     // we parsed the whole file and no main function found.
     if (macroStream.eof()) { 
       if (ReadArguments) {
         // eof() while we were reading arguments, this happened
         // due to a syntax error, so we abort running.
         cerr << "MINFScript::ParseMacro() - An error occurred!"
              << endl;
         return kNOMACRO;
       } else return kUNNAMEDMACRO;
     }
     
     i = macroStream.get();
   
     // read until we find a non-space char.
     SpaceJump = 0;
     while (i == kSpace) { 
       i = macroStream.get();
       SpaceJump = 1;
     }
                
     switch (i) {
       // check for string in preprocessor's statements.
       case kPPSymbol:
         // skip a line.
         while (i != '\n') i = macroStream.get();
         goto start_parsing;
                
       // check for string inside quotes.
       case kQuote:
         // skip until we find another one.
         while (i != kQuote) {
           i = macroStream.get();
           if (i == kSlash) {
             // read 2 chars in case it was "...\"...".
             i = macroStream.get();
             i = macroStream.get();
           }
           // in case of a macro syntax error,
           // we don't want to get in an endless loop.
           if (macroStream.eof()) {
             cerr << "MINFScript::ParseMacro() - An error occurred!"
                  << endl;
             return kNOMACRO;
           }

         }
         goto start_parsing;

       // chech for chars inside single quotes.
       case kSingleQuote:
         // skip until we find another one.
         while (i != kSingleQuote) {
           i = macroStream.get();
           if (i == kSlash) {
             // read 2 chars in case it was '\''.
             i = macroStream.get();
             i = macroStream.get();
           }
           // in case of a macro syntax error,
           // we don't want to get in an endless loop.
           if (macroStream.eof()) {
             cerr << "MINFScript::ParseMacro() - An error occurred!"
                  << endl;
             return kNOMACRO;
           }

         }
         goto start_parsing;
                
       // check for comments.
       case kCommentTokenOne:
         i = macroStream.get();
         if (i == kCommentTokenOne) { 
           // skip a line.
           while (i != '\n') i = macroStream.get();
           goto start_parsing;
         }
         else if (i == kCommentTokenTwo) { 
           // skip until we catch '*/'.
           OldCommentsEnd = 0;
           while (!OldCommentsEnd) {
             i = macroStream.get();
             if (i == kCommentTokenTwo) {
               i = macroStream.get();
               if (i == kCommentTokenOne) OldCommentsEnd = 1;
             }
             // in case of a macro syntax error,
             // we don't want to get in an endless loop.
             if (macroStream.eof()) {
               cerr << "MINFScript::ParseMacro() - An error occurred!"
                    << endl;
               return kNOMACRO;
             }
           }
         }
         goto start_parsing;
     } /* switch (i) */ 

     // did we find macro's main function body?
     if (matched == (count-1)) { 
       if (i == kLeftBracket) {
         ReadArguments = 1;
         cout << "MINFScript::ParseMacro() - Guessed Prototype: ";
       }
       matched = 0;
       goto start_parsing;
     }
        
     // we found macro's main function body.
     if (ReadArguments) {
       // dump args.
       if (SpaceJump == 1) cout << ' ';
       if (i == kRightBracket) break;
       cout << i;
       // store prototype in an array (without spaces).
       funcProto[p++] = i;
       goto start_parsing;
     }
     
     // check for macro's `main' function. 
     while (i == mainOfMacro[matched] && matched < (count-1)) {
       i = macroStream.get();
       matched++;
     }

     // not a real match!
     if (matched != (count-1)) { 
       matched = 0; 
       goto start_parsing;
     }
   } /* while (1) */

// close macro file.
   macroStream.close();

// analyze prototype. Macro has no args in case of:
// (a) prototype is a zero-length string.
// (b) prototype is: "void".
   if (strlen(funcProto) && strcmp(funcProto, "void")) argcount++;
   if (argcount) {
     while (p) {
       if (funcProto[p] == kComma) argcount++;
       if (funcProto[p] == kEqual) required++;
       p--;
     }
     required = argcount - required;
   }
   cout << " -- Arguments: " << argcount << endl;
   cout << "Required Arguments (at least): " << required << endl;
   
   
   if (argcount == 0)
     return kMACROWITHOUTARGS;
   else {
     fParDlg->SetArgs(argcount);
     fParDlg->SetReqArgs(required);
     return kMACROWITHARGS;
   } 
}

void MINFScript::RunScript

(

)

[virtual]

Definition at line 289 of file MINFScript.cxx.

References fParDlg, fScriptFileName, kMACROWITHARGS, kMACROWITHOUTARGS, kNOMACRO, kUNNAMEDMACRO, ParseMacro(), AddParmDlg::PopUpParmDialog(), and AddParmDlg::SetMacroName().

Referenced by MINFast::RunScript().

{
   Text_t cintLine[255];
   EParseResult parseResult;

// user has clicked on Cancel.
   if (!fScriptFileName) return;

// Save previous active pad.
   TVirtualPad *padsave = gPad;

// Parse macro's source.
   parseResult = ParseMacro();

   switch(parseResult) {
     case kNOMACRO:
       break;
     case kMACROWITHARGS:
       // pop up the add parameters dialog.
       fParDlg->SetMacroName(fScriptFileName);
       fParDlg->PopUpParmDialog(); 
       // fScriptFileName now contains the desired parameters,
       // so go to next statement and execute the concatenated
       // fScriptFileName.
       parseResult = kMACROWITHOUTARGS;
     case kMACROWITHOUTARGS:
       // ROOT tries to find a filename identical to macro's name
       // + parameters and fails to execute it, so gROOT->Macro()
       // cannot be used here. We must force CINT to process line:
       // ".x macroname.C(parameters)", instead.
       strcpy(cintLine, ".x ");
       strcat(cintLine, fScriptFileName);
       gROOT->ProcessLine(cintLine);
       break;
     case kUNNAMEDMACRO:
       gROOT->Macro(fScriptFileName);
       break;
   }
   
   gPad = padsave;
}

void MINFScript::SetScriptFileName

(

)

[virtual]

Definition at line 332 of file MINFScript.cxx.

References MINFast::Display(), fScriptFileName, MINFDisplay::GetMINFGUIPanel(), and gMINFast.

Referenced by MINFast::RunScript().

{
   const char *filetypes[] = { "ROOT macros",   "*.C",
                               "ROOT files",    "*.root",
                               "All files",     "*",
                               0,               0 };

// Use file browser to let user choose input filename.
   TGFileInfo fi;
   fi.fFileTypes = filetypes;
   new TGFileDialog(gClient->GetRoot(), (TGWindow *)
                 (gMINFast->Display()->GetMINFGUIPanel()),kFDOpen, &fi);
   
// Attach reroot file of MINOS data.
   if (fi.fFilename && strlen(fi.fFilename)) {
     strcpy(fScriptFileName, fi.fFilename);
   } 
}

---

Member Data Documentation

AddParmDlg* MINFScript::fParDlg [private]

name of input data file

Definition at line 56 of file MINFScript.h.

Referenced by init(), ParseMacro(), RunScript(), and ~MINFScript().

Text_t MINFScript::fScriptFileName[255] [private]

Definition at line 55 of file MINFScript.h.

Referenced by init(), ParseMacro(), RunScript(), and SetScriptFileName().

---

The documentation for this class was generated from the following files:

• MINFScript.h
• MINFScript.cxx

---