static int libscriba_LoadBinaryProgram(pSbProgram pProgram
){
/*noverbatim
Before calling this function the function R<scriba_SetFileName()> should have been called specifying the
file name.
CUT*/
pBuildObject pBuild;
extern unsigned long ulGlobalVariables;
extern unsigned long ulNodeCounter;
extern unsigned long ulStartNode;
extern unsigned long ulStringTableSize;
extern unsigned char szCommandArray[];
extern char szStringTable[];
pProgram->pBUILD = alloc_Alloc( sizeof(BuildObject) , pProgram->pMEM);
if( pProgram->pBUILD == NULL )return 1;
pProgram->pBUILD->memory_allocating_function = pProgram->maf;
pProgram->pBUILD->memory_releasing_function = pProgram->mrf;
pProgram->pBUILD->iErrorCounter = 0;
pProgram->pBUILD->reportptr = pProgram->pReportPointer;
pProgram->pBUILD->report = pProgram->fpReportFunction;
pProgram->pBUILD->fErrorFlags = pProgram->fErrorFlags;
pBuild = pProgram->pBUILD;
pBuild->pMemorySegment = alloc_InitSegment(pBuild->memory_allocating_function,
pBuild->memory_releasing_function);
if( pBuild->pMemorySegment == NULL ){
return BU_ERROR_MEMORY_LOW;
}
pBuild->cGlobalVariables = ulGlobalVariables;
pBuild->NodeCounter = ulNodeCounter;
pBuild->StartNode = ulStartNode;
pBuild->CommandArray = (struct _cNODE *)szCommandArray;
pBuild->cbStringTable = ulStringTableSize;
pBuild->StringTable = szStringTable;
pBuild->cbFTable = 0;
pBuild->FTable = NULL;
pBuild->cbVTable = 0;
pBuild->VTable = NULL;
return pProgram->pBUILD->iErrorCounter;
}
/*FUNCTION*/
int memory_InitStructure(pMemoryObject pMo
){
/*noverbatim
CUT*/
/* int i;
for( i=0 ; i < MAX_NUMBER_OF_FIX_TYPES ; i++ ){
pMo->SizeOfType[i] = 0;
pMo->MemoryObjectsFreeList[i] = NULL;
}
*/
memset(pMo->SizeOfType,0,sizeof(long)*MAX_NUMBER_OF_FIX_TYPES);
memset(pMo->MemoryObjectsFreeList,0,sizeof(void *)*MAX_NUMBER_OF_FIX_TYPES);
pMo->iNumberOfFixTypes = MAX_FIX_TYPE; /* long, double and constant string are implicit types that
are stored inside the FixSizeMemoryObject */
pMo->pMemorySegment = alloc_InitSegment(pMo->memory_allocating_function,pMo->memory_releasing_function);
if( pMo->pMemorySegment == NULL )return MEM_ERROR_MEMORY_LOW;
return MEM_ERROR_SUCCESS;
}
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);
}
/*FUNCTION*/
int ipreproc_LoadInternalPreprocessor(pPreprocObject pPre,
char *pszPreprocessorName
){
/*noverbatim
The first argument is the pointer to the ScriptBasic preprocessor object to access the
configuration information and the list of loaded preprocessors to put the actual one
on the list.
The second argument is the name of the preprocessor as named in the configuration file, for example
=verbatim
preproc (
internal (
sample "C:\\ScriptBasic\\bin\\samplepreprocessor.dll"
)
=noverbatim
The return value is zero or the error code.
CUT*/
#define FNLEN 1024
char szBuffer[FNLEN];
char *s;
void *pDllHandle = NULL,*pFunction=NULL;
int (*preproc)(void *,long *,void *);
pSbProgram pProgram;
int iError;
pPreprocessor pThisPre;
long lCommand;
int bFirst;
#define PREFLEN 17
char *pszDllExtension;
unsigned int cbDllExtension;
CFT_NODE Node;
pProgram = pPre->pSB;
pszDllExtension = cft_GetString(pProgram->pCONF,"dll");
if( pszDllExtension == NULL ){
#ifdef WIN32
pszDllExtension = ".dll";
#elif defined(__DARWIN__)
pszDllExtension = ".dylib";
#elif defined(__MACOS__)
pszDllExtension = "";
#else
pszDllExtension = ".so";
#endif
}
cbDllExtension = strlen(pszDllExtension);
/* check that the preprocessor was not loaded yet */
for( pThisPre = pPre->pFirst ; pThisPre ; pThisPre = pThisPre->next )
if( !strcmp(pThisPre->pszPreprocessorName,pszPreprocessorName) )return COMMAND_ERROR_SUCCESS;
strcpy(szBuffer,"preproc.internal.");
if( strlen(pszPreprocessorName) > FNLEN - PREFLEN )return READER_ERROR_PREPROC_LONG;
strcpy(szBuffer+PREFLEN,pszPreprocessorName);
s = szBuffer+PREFLEN;
while( *s && ! isspace(*s) )s++; /* chop off optional parameters and/or NL from the end of line */
*s = (char)0;
s = cft_GetString(pProgram->pCONF,szBuffer);
/* if the internal preprocessor was not configured then it still can be used if the DLL or SO file
is copied into the modules library. */
if( NULL == s ){
if( ! cft_GetEx(pProgram->pCONF,"module",&Node,&s,NULL,NULL,NULL) ){
while( 1 ){
if( cft_GetEx(pProgram->pCONF,NULL,&Node,&s,NULL,NULL,NULL) ){
/* if there are no more directories in the configuration */
break;
}
if( ! strcmp(cft_GetKey(pProgram->pCONF,Node),"module") ){
if( strlen(s) + strlen(pszPreprocessorName) > FNLEN )return READER_ERROR_PREPROC_LONG;
strcpy(szBuffer,s);
strcat(szBuffer,pszPreprocessorName);
if( strlen(szBuffer) + cbDllExtension > FNLEN )return READER_ERROR_PREPROC_LONG;
strcat(szBuffer,pszDllExtension);
pDllHandle = dynlolib_LoadLibrary( szBuffer );
if( pDllHandle != NULL )break;
}
Node = cft_EnumNext(pProgram->pCONF,Node);
}
}
}else{
/* if the preprocessor was configured in the config file
not only copied into one of the module directories */
pDllHandle = dynlolib_LoadLibrary(s);
}
if( pDllHandle == NULL )return READER_ERROR_PREPROC_NOTAVA;
pFunction = dynlolib_GetFunctionByName(pDllHandle,"preproc");
if( pFunction == NULL )return READER_ERROR_PREPROC_NOTVAL;
bFirst = (pPre->pFirst == NULL);
pThisPre = ipreproc_InsertPreprocessor(pPre);
if( pThisPre == NULL )return COMMAND_ERROR_MEMORY_LOW;
pThisPre->pszPreprocessorName = alloc_Alloc(strlen(pszPreprocessorName)+1,pPre->pMemorySegment);
if( pThisPre->pszPreprocessorName == NULL )return COMMAND_ERROR_MEMORY_LOW;
strcpy(pThisPre->pszPreprocessorName,pszPreprocessorName);
pThisPre->pDllHandle = pDllHandle;
pThisPre->pFunction = pFunction;
pThisPre->pEXT.lVersion = IP_INTERFACE_VERSION;
pThisPre->pEXT.pPointer = NULL;
pThisPre->pEXT.pMemorySegment = alloc_InitSegment(pPre->pSB->maf,pPre->pSB->mrf);
if( pThisPre->pEXT.pMemorySegment == NULL )return COMMAND_ERROR_MEMORY_LOW;
/* if this is the first preprocessor loaded then init
the support function table*/
if( bFirst ){
pPre->EXE.pMemorySegment = pPre->pMemorySegment;
modu_Init(&(pPre->EXE),0);
pPre->EXE.pST->pEo = &(pPre->EXE);
pThisPre->pEXT.pST = pPre->EXE.pST;
}
preproc = pFunction;
lCommand = PreprocessorLoad;
iError = preproc(&(pThisPre->pEXT),&lCommand,NULL);
if( lCommand == PreprocessorUnload ){
/* unload the current preprocessor */
pDllHandle = pThisPre->pDllHandle;
ipreproc_DeletePreprocessor(pPre,pThisPre);
/* this may happen if the preprocessor is statically linked */
if( pDllHandle )
dynlolib_FreeLibrary(pDllHandle);
}
return iError;
}
//dz 5.28.14
int ipreproc_LoadInternalPreprocessorByFunction(pPreprocObject pPre, char* pszPreprocessorName, void* lpfnPreProc)
{
//The return value is zero or the error code.
#define FNLEN 1024
char szBuffer[FNLEN];
char *s;
void *pDllHandle = NULL,*pFunction=NULL;
int (*preproc)(void *,long *,void *);
pSbProgram pProgram;
int iError;
pPreprocessor pThisPre;
long lCommand;
int bFirst;
#define PREFLEN 17
char *pszDllExtension;
unsigned int cbDllExtension;
pProgram = pPre->pSB;
/* check that the preprocessor was not loaded yet */
for( pThisPre = pPre->pFirst ; pThisPre ; pThisPre = pThisPre->next )
if( !strcmp(pThisPre->pszPreprocessorName,pszPreprocessorName) )return COMMAND_ERROR_SUCCESS;
pFunction = lpfnPreProc;
if( pFunction == NULL )return READER_ERROR_PREPROC_NOTVAL;
bFirst = (pPre->pFirst == NULL);
pThisPre = ipreproc_InsertPreprocessor(pPre);
if( pThisPre == NULL )return COMMAND_ERROR_MEMORY_LOW;
pThisPre->pszPreprocessorName = alloc_Alloc(strlen(pszPreprocessorName)+1,pPre->pMemorySegment);
if( pThisPre->pszPreprocessorName == NULL )return COMMAND_ERROR_MEMORY_LOW;
strcpy(pThisPre->pszPreprocessorName,pszPreprocessorName);
pThisPre->pDllHandle = 0;
pThisPre->pFunction = pFunction;
pThisPre->pEXT.lVersion = IP_INTERFACE_VERSION;
pThisPre->pEXT.pPointer = NULL;
pThisPre->pEXT.pMemorySegment = alloc_InitSegment(pPre->pSB->maf,pPre->pSB->mrf);
if( pThisPre->pEXT.pMemorySegment == NULL )return COMMAND_ERROR_MEMORY_LOW;
/* if this is the first preprocessor loaded then init the support function table*/
if( bFirst ){
pPre->EXE.pMemorySegment = pPre->pMemorySegment;
modu_Init(&(pPre->EXE),0);
pPre->EXE.pST->pEo = &(pPre->EXE);
pThisPre->pEXT.pST = pPre->EXE.pST;
}
preproc = pFunction;
lCommand = PreprocessorLoad;
iError = preproc(&(pThisPre->pEXT),&lCommand,NULL);
if( lCommand == PreprocessorUnload ){
/* unload the current preprocessor */
pDllHandle = pThisPre->pDllHandle;
ipreproc_DeletePreprocessor(pPre,pThisPre);
/* this may happen if the preprocessor is statically linked */
if( pDllHandle )
dynlolib_FreeLibrary(pDllHandle);
}
return iError;
}
