/******************************************************************************* * BIdl.cc BEAM IDL Compiler * T.Barnaby, BEAM Ltd, 2/5/03 ******************************************************************************* */ #include <stdio.h> #include <stdlib.h> #include <unistd.h> #include <stdarg.h> #include <strings.h> #include <bidl.h>

#include <BDict.h>

#include <GenBoap.h> #include <GenBData.h> #include <GenBDataPy.h> #include <GenBDataMySql.h>

#include <GenBoapSwigPython.h> #include <GenBoapPython.h> #include <GenDataMc.h> #include <GenBoapMc.h> #include <GenBoapMcComms.h> #include <GenBoapPhp.h>

#define DEBUG 1 /* External Functions used */ extern int yyparse(); extern int column, line; BString fileName; TypeList gtypelist; // Ctypes list Node* result; static void print(FILE* file, int tab, const char* fmt, ...){ va_list ap; va_start(ap, fmt); while(tab--) fprintf(file, " "); vfprintf(file, fmt, ap); } void produceTree(Node* n, FILE* file, int tab){ BIter i; print(file, tab, "%s %s {\n", Node::nodeTypeName(n->nodeType()).retStr(), n->name().retStr()); for(n->nodes().start(i); !n->nodes().isEnd(i); n->nodes().next(i)){ if(n->nodes()[i]) produceTree(n->nodes()[i], file, tab + 1); else { print(file, tab + 1, "Null none {\n"); print(file, tab + 1, "}\n"); } } print(file, tab, "}\n"); } int usage(){ fprintf(stderr, "Usage: bidl [options] infile -o outfile\n");

fprintf(stderr, "\t-m <mode>\t- Mode of operation (boap,bdata,bdatamysql,bdatapy,boapSwigPython,boapmc,boapMcComms, datamc)\n");

fprintf(stderr, "\t-b\t- Generate code for BEAM Objects\n");

fprintf(stderr, "\t-c <ConnectionClass>\t- Generate Server code to pass a pointer to ConnectionClass\n"); fprintf(stderr, "\t-s\t- Generate Template Server code to call functions in Control class\n"); fprintf(stderr, "\t-qt4\t- Generate QT4 compatibility bits\n");

return 1; } int main(int argc, char **argv) { int ret = 0; BString inFileName; FILE* fileDebug; int a; BString preProcessCmd = "cpp "; BString baseFileName; BString mode = "boap"; Gen* gen; int n; int flagBeamObjects = 0;

BDictString options;

if(argc == 1) return usage(); for(a = 1; a < argc; a++){ if(argv[a][0] == '-'){ switch(argv[a][1]){

case 'm': mode = argv[++a]; break; case 'b': flagBeamObjects = 1; break; case 'c': options["connectionClass"] = argv[++a]; break; case 's': options["serverControl"] = 1; break; case 'q': options["qt4"] = 1; break;

default: return usage(); } } else { inFileName = argv[a]; } } // Setup mode of operation if(mode == "bdata"){ gen = new GenBData; } else if(mode == "bdatapy"){ gen = new GenBDataPy; } else if(mode == "bdatamysql"){ gen = new GenBDataMySql; } else if(mode == "boap"){ gen = new GenBoap; }

else if(mode == "boapSwigPython"){ gen = new GenBoapSwigPython; } else if(mode == "boapPython"){ gen = new GenBoapPython; } else if(mode == "datamc"){ gen = new GenDataMc; } else if(mode == "boapmc"){ gen = new GenBoapMc; } else if(mode == "boapMcComms"){ gen = new GenBoapMcComms; } else if(mode == "boapPhp"){ gen = new GenBoapPhp; }

else { fprintf(stderr, "Error: Unknown mode: %s\n", mode.retStr()); return 1; }

// Add some basic classes gtypelist.append(Type("BObj", 0, 0));

gen->setOptions(options);

gen->setUseBObjects(flagBeamObjects); baseFileName = inFileName; if((n = baseFileName.findReverse('/')) >= 0) baseFileName = baseFileName.subString(n + 1, -1); if((n = baseFileName.findReverse('.')) >= 0) baseFileName = baseFileName.subString(0, n);

// Preprocess input file preProcessCmd = preProcessCmd + " -nostdinc -C" + " -I/usr/beam/idl " + inFileName + " tmp.cpp"; system(preProcessCmd); if(freopen("tmp.cpp", "r", stdin) == NULL){ fprintf(stderr, "Unable to open: %s\n", inFileName.retStr()); return 1; } // Process the input file if(ret = yyparse()) return 1; #if DEBUG if((fileDebug = fopen("bidl.i", "w")) == NULL){ fprintf(stderr, "Unable to open: %s\n", "bidl.i"); return 1; } fprintf(fileDebug, "TreeView:\n"); produceTree(result, fileDebug, 0); fclose(fileDebug); #endif gen->produce(result, baseFileName);

unlink("tmp.cpp");

fclose(stdin); return ret; }