/*FUNCTION*/
void ipreproc_PurgePreprocessorMemory(pPreprocObject pPre
){
/*noverbatim
CUT*/
pPreprocessor p;
for( p = pPre->pFirst ; p ; p = p->next ){
alloc_FinishSegment(p->pEXT.pMemorySegment);
p->pEXT.pMemorySegment = NULL;
}
alloc_FinishSegment(pPre->pMemorySegment);
}
/*FUNCTION*/
void ipreproc_DeletePreprocessor(pPreprocObject pPre,
pPreprocessor pOld
){
/*noverbatim
The first argument is the preprocessor object environment. The second argument
is the pointer to the list element to be deleted.
CUT*/
/* if this is not the first in the list then hook
the previous element to the one that follows this one */
if( pOld->prev )
pOld->prev->next = pOld->next;
else
pPre->pFirst = pOld->next;
/* if this is not the last one then hook the element that is after it to the previous one */
if( pOld->next )
pOld->next->prev = pOld->prev;
else
pPre->pLast = pOld->prev;
pPre->n--;
alloc_FinishSegment(pOld->pEXT.pMemorySegment);
alloc_Free(pOld,pPre->pMemorySegment);
}
main(int argc, char *argv[]){
#else
char **_environ;
main(int argc, char *argv[], char *env[]){
#endif
extern unsigned char szCommandArray[] ;
extern unsigned long ulStartNode,
ulNodeCounter,
ulStringTableSize,
ulGlobalVariables;
void *pMEM;
extern unsigned char szStringTable[];
tConfigTree MyCONF;
ExecuteObject MyEXE;
int iError;
#define FULL_PATH_BUFFER_LENGTH 256
char CmdLinBuffer[FULL_PATH_BUFFER_LENGTH],*s;
#ifndef WIN32
_environ = env;
#endif
pMEM = alloc_InitSegment(malloc,free);
if( pMEM == NULL ){
fprintf(stderr,"No memory\n");
exit(1);
}
cft_start(&MyCONF,alloc_Alloc,alloc_Free,pMEM,
#ifdef WIN32
"Software\\ScriptBasic\\config",
"SCRIBA.INI",
#else
"SCRIBACONF",
"/etc/scriba/basic.conf",
#endif
NULL);
MyEXE.memory_allocating_function = malloc;
MyEXE.memory_releasing_function = free;
MyEXE.reportptr = (void *)stderr;
MyEXE.report = report_report;
MyEXE.fErrorFlags = 0;
MyEXE.pConfig = &MyCONF;
build_MagicCode(&(MyEXE.Ver));
build_MagicCode(&(MyEXE.Ver));
MyEXE.fpStdinFunction = NULL;
MyEXE.fpStdouFunction = NULL;
MyEXE.fpEnvirFunction = NULL;
MyEXE.CmdLineArgument = NULL;
s = cft_GetString(MyEXE.pConfig,"maxstep");
MyEXE.GlobalStepLimit = s ? atol(s) : 0;
s = cft_GetString(MyEXE.pConfig,"maxlocalstep");
MyEXE.LocalStepLimit = s ? atol(s) : 0;
s = cft_GetString(MyEXE.pConfig,"maxlevel");
MyEXE.FunctionLevelLimit = s ? atol(s) : 0;
MyEXE.CommandArray = (pcNODE)szCommandArray ;
MyEXE.StartNode = ulStartNode;
MyEXE.CommandArraySize = ulNodeCounter;
MyEXE.StringTable = szStringTable;
MyEXE.cbStringTable = ulStringTableSize;
MyEXE.cGlobalVariables = ulGlobalVariables;
MyEXE.lGlobalStepCounter = 0L;
MyEXE.pCommandFunction = CommandFunction;
MyEXE.CSymbolList = COMMANDSYMBOLS;
MyEXE.fThreadedCommandTable = 0;
MyEXE.pFunctionResult = NULL;
MyEXE.pST = NULL;
MyEXE.modules = NULL;
MyEXE.pMemorySegment = alloc_InitSegment(MyEXE.memory_allocating_function,MyEXE.memory_releasing_function);
if( MyEXE.pMemorySegment == NULL )return 1;
MyEXE.pMo = alloc_Alloc(sizeof(MemoryObject),MyEXE.pMemorySegment);
if( MyEXE.pMo == NULL )return 1;
MyEXE.pMo->memory_allocating_function = MyEXE.memory_allocating_function;
MyEXE.pMo->memory_releasing_function = MyEXE.memory_releasing_function;
MyEXE.cbStringTable = 0L;
MyEXE.OptionsTable = NULL;
memory_InitStructure(MyEXE.pMo);
s = cft_GetString(MyEXE.pConfig,"maxmem");
if( s )alloc_SegmentLimit(MyEXE.pMo->pMemorySegment,atol(s));
memory_RegisterTypes(MyEXE.pMo);
if( hook_Init(&MyEXE, &(MyEXE.pHookers)) )return 1;
if( modu_Preload(&MyEXE) )return 1;
/*
We could alter the standard input, standard output, the environment
function and command arguments here . We do only the command
arguments here in this variation.
*/
MyEXE.CmdLineArgument = CmdLinBuffer;
execute_Execute(&MyEXE,&iError);
alloc_FinishSegment(MyEXE.pMo->pMemorySegment);
alloc_FinishSegment(MyEXE.pMemorySegment);
alloc_FinishSegment(MyCONF.pMemorySegment);
#ifdef _DEBUG
printf("Press any key ...\n");
getchar();
#endif
exit(0);
}
