int SC_TerminalClient::run(int argc, char** argv)
{
Options& opt = mOptions;
if (!parseOptions(argc, argv, opt)) {
return mReturnCode;
}
// finish argv processing
const char* codeFile = 0;
if (argc > 0) {
codeFile = argv[0];
opt.mDaemon = true;
argv++; argc--;
}
opt.mArgc = argc;
opt.mArgv = argv;
// read library configuration file
if (opt.mLibraryConfigFile) {
int argLength = strlen(opt.mLibraryConfigFile);
SC_LanguageConfig::readLibraryConfigYAML(opt.mLibraryConfigFile);
} else
SC_LanguageConfig::readDefaultLibraryConfig();
// initialize runtime
initRuntime(opt);
// startup library
mShouldBeRunning = true;
compileLibrary();
// enter main loop
if (codeFile) executeFile(codeFile);
if (opt.mCallRun) runMain();
if (opt.mDaemon) {
daemonLoop();
}
else {
initInput();
if( shouldBeRunning() ) startInput();
if( shouldBeRunning() ) commandLoop();
endInput();
cleanupInput();
}
if (opt.mCallStop) stopMain();
// shutdown library
shutdownLibrary();
flush();
shutdownRuntime();
return mReturnCode;
}
SC_DLLEXPORT_C bool compileLibrary()
{
//printf("->compileLibrary\n");
shutdownLibrary();
pthread_mutex_lock (&gLangMutex);
gNumCompiledFiles = 0;
compiledOK = false;
// FIXME: the library config should have been initialized earlier!
if (!gLibraryConfig)
SC_LanguageConfig::readDefaultLibraryConfig();
compileStartTime = elapsedTime();
totalByteCodes = 0;
#ifdef NDEBUG
postfl("compiling class library...\n");
#else
postfl("compiling class library (debug build)...\n");
#endif
bool res = passOne();
if (res) {
postfl("\tpass 1 done\n");
if (!compileErrors) {
buildDepTree();
traverseFullDepTree();
traverseFullDepTree2();
flushPostBuf();
if (!compileErrors && gShowWarnings) {
SymbolTable* symbolTable = gMainVMGlobals->symbolTable;
symbolTable->CheckSymbols();
}
}
pyr_pool_compile->FreeAll();
flushPostBuf();
compileSucceeded();
} else {
compiledOK = false;
}
pthread_mutex_unlock (&gLangMutex);
//printf("<-compileLibrary\n");
return compiledOK;
}
SC_DLLEXPORT_C bool compileLibrary(bool standalone)
{
//printf("->compileLibrary\n");
shutdownLibrary();
gLangMutex.lock();
gNumCompiledFiles = 0;
compiledOK = false;
SC_LanguageConfig::readLibraryConfig(standalone);
compileStartTime = elapsedRealTime();
totalByteCodes = 0;
#ifdef NDEBUG
postfl("compiling class library...\n");
#else
postfl("compiling class library (debug build)...\n");
#endif
bool res = passOne();
if (res) {
postfl("\tpass 1 done\n");
if (!compileErrors) {
buildDepTree();
traverseFullDepTree();
traverseFullDepTree2();
flushPostBuf();
if (!compileErrors && gShowWarnings) {
SymbolTable* symbolTable = gMainVMGlobals->symbolTable;
symbolTable->CheckSymbols();
}
}
pyr_pool_compile->FreeAll();
flushPostBuf();
compileSucceeded();
} else {
compiledOK = false;
}
gLangMutex.unlock();
//printf("<-compileLibrary\n");
return compiledOK;
}
void SC_LanguageClient::recompileLibrary()
{
shutdownLibrary();
compileLibrary();
}