int ejsLoadScriptFile(Ejs *ejs, cchar *path, cchar *cache, int flags)
{
EcCompiler *ec;
if ((ec = ecCreateCompiler(ejs, flags)) == 0) {
return MPR_ERR_MEMORY;
}
mprAddRoot(ec);
if (cache) {
ec->noout = 0;
ecSetOutputFile(ec, cache);
} else {
ec->noout = 1;
}
if (ecCompile(ec, 1, (char**) &path) < 0) {
if (flags & EC_FLAGS_THROW && !ejs->exception) {
ejsThrowSyntaxError(ejs, "%s", ec->errorMsg ? ec->errorMsg : "Can't parse script");
}
mprRemoveRoot(ec);
return EJS_ERR;
}
mprRemoveRoot(ec);
if (ejsRun(ejs) < 0) {
return EJS_ERR;
}
return 0;
}
/*
* Compile the source files supplied on the command line. This will compile in-memory and optionally also save to
* module files.
*/
static int interpretFiles(EcCompiler *cp, MprList *files, int argc, char **argv, cchar *className, cchar *methodName)
{
Ejs *ejs;
mprAssert(files);
ejs = cp->ejs;
ejs->argc = argc;
ejs->argv = argv;
if (ecCompile(cp, files->length, (char**) files->items, 0) < 0) {
return EJS_ERR;
}
if (cp->run && cp->errorCount == 0) {
ejs->flags &= ~EJS_FLAG_COMPILER;
ejsEnableGC(ejs, 1);
ejsCollectGarbage(ejs, EJS_GC_ALL);
if (ejsRunProgram(ejs, className, methodName) < 0) {
ejsReportError(ejs, "Error in program");
return EJS_ERR;
}
}
return 0;
}
/*
* Interpret from the console or from a literal command
*/
static int interpretCommands(EcCompiler *cp, cchar *cmd)
{
Ejs *ejs;
EjsString *result;
char *tmpArgv[1];
int err;
ejs = cp->ejs;
if (ecOpenConsoleStream(cp->lexer, (cmd) ? commandGets: consoleGets) < 0) {
mprError(cp, "Can't open input");
return EJS_ERR;
}
if (cmd) {
cp->lexer->input->stream->buf = mprStrdup(cp, cmd);
} else {
cp->interactive = 1;
}
cp->input = cp->lexer->input;
cp->token = cp->lexer->input->token;
ecResetInput(cp);
tmpArgv[0] = EC_INPUT_STREAM;
while (!cp->lexer->input->stream->eof) {
err = 0;
cp->uid = 0;
if (ecCompile(cp, 1, tmpArgv, 0) < 0) {
ejs->result = ejs->undefinedValue;
err++;
}
if (cp->run && !err && cp->errorCount == 0) {
if (ejsRun(ejs) < 0) {
ejsReportError(ejs, "Error in script");
}
}
if (!ejs->exception && ejs->result != ejs->undefinedValue) {
if (ejs->result->primitive || ejsIsDate(ejs->result)) {
if ((result = (EjsString*) ejsToString(ejs, ejs->result)) != 0) {
mprPrintf(cp, "%s\n", result->value);
}
} else {
if ((result = (EjsString*) ejsToJson(ejs, ejs->result)) != 0) {
mprPrintf(cp, "%s\n", result->value);
}
}
}
ecResetInput(cp);
cp->errorCount = 0;
err = 0;
}
ecCloseStream(cp->lexer);
return 0;
}
/*
* Interpret from the console or from a literal command
*/
static int interpretCommands(EcCompiler *cp, cchar *cmd)
{
Ejs *ejs;
EjsString *result;
char *tmpArgv[1];
int err;
ejs = cp->ejs;
if (ecOpenConsoleStream(cp->lexer, (cmd) ? commandGets: consoleGets) < 0) {
mprError(cp, "Can't open input");
return EJS_ERR;
}
if (cmd) {
cp->lexer->input->stream->buf = mprStrdup(cp, cmd);
} else {
cp->interactive = 1;
}
cp->input = cp->lexer->input;
cp->token = cp->lexer->input->token;
ecResetInput(cp);
tmpArgv[0] = EC_INPUT_STREAM;
while (!cp->lexer->input->stream->eof) {
ejs->flags |= EJS_FLAG_COMPILER;
err = 0;
cp->uid = 0;
if (ecCompile(cp, 1, tmpArgv, 0) < 0) {
ejs->result = ejs->undefinedValue;
err++;
}
if (cp->run && !err && cp->errorCount == 0) {
ejs->flags &= ~EJS_FLAG_COMPILER;
ejsCollectGarbage(ejs, 1);
ejsRun(ejs);
}
if (ejs->result != ejs->undefinedValue) {
result = (EjsString*) ejsCastVar(ejs, ejs->result, ejs->stringType);
mprPrintf(cp, "%s\n", result->value);
}
ecResetInput(cp);
err = 0;
cp->errorCount = 0;
}
ecCloseStream(cp->lexer);
return 0;
}
/*
Interpret from the console or from a literal command
*/
static int interpretCommands(EcCompiler *cp, cchar *cmd)
{
Ejs *ejs;
EjsString *result;
char *tmpArgv[1];
int err;
ejs = cp->ejs;
cp->interactive = 1;
if (ecOpenConsoleStream(cp, (cmd) ? commandGets: consoleGets, cmd) < 0) {
mprError("Cannot open input");
return EJS_ERR;
}
tmpArgv[0] = EC_INPUT_STREAM;
while (!cp->stream->eof && !mprIsStopping()) {
err = 0;
cp->uid = 0;
ejs->result = ESV(undefined);
if (ecCompile(cp, 1, tmpArgv) < 0) {
mprRawLog(0, "%s", cp->errorMsg);
ejs->result = ESV(undefined);
err++;
}
if (!err && cp->errorCount == 0) {
if (ejsRunProgram(ejs, NULL, NULL) < 0) {
ejsReportError(ejs, "Error in script");
}
}
if (!ejs->exception && ejs->result != ESV(undefined)) {
if (ejsIs(ejs, ejs->result, Date) /* MOB || ejsIsType(ejs, ejs->result) */) {
if ((result = (EjsString*) ejsToString(ejs, ejs->result)) != 0) {
mprPrintf("%@\n", result);
}
} else if (ejs->result != ESV(null)) {
if ((result = (EjsString*) ejsSerialize(ejs, ejs->result, EJS_JSON_SHOW_PRETTY)) != 0) {
mprPrintf("%@\n", result);
}
}
}
ecResetInput(cp);
cp->errorCount = 0;
cp->fatalError = 0;
}
ecCloseStream(cp);
return 0;
}
/*
Compile the source files supplied on the command line. This will compile in-memory and optionally also save to
module files.
*/
static int interpretFiles(EcCompiler *cp, MprList *files, int argc, char **argv, cchar *className, cchar *method)
{
Ejs *ejs;
assert(files);
ejs = cp->ejs;
if (ecCompile(cp, files->length, (char**) files->items) < 0) {
mprLog("ejs", 0, "%s\n", cp->errorMsg);
return EJS_ERR;
}
if (cp->errorCount == 0) {
if (ejsRunProgram(ejs, className, method) < 0) {
ejsReportError(ejs, "Error in program");
return EJS_ERR;
}
}
return 0;
}
/*
Compile the source files supplied on the command line. This will compile in-memory and optionally also save to
module files.
*/
static int interpretFiles(EcCompiler *cp, MprList *files, int argc, char **argv, cchar *className, cchar *method)
{
Ejs *ejs;
assure(files);
MPR_VERIFY_MEM();
ejs = cp->ejs;
if (ecCompile(cp, files->length, (char**) files->items) < 0) {
mprRawLog(0, "%s\n", cp->errorMsg);
return EJS_ERR;
}
assure(ejs->result == 0 || (MPR_GET_GEN(MPR_GET_MEM(ejs->result)) != MPR->heap->dead));
if (cp->errorCount == 0) {
if (ejsRunProgram(ejs, className, method) < 0) {
ejsReportError(ejs, "Error in program");
return EJS_ERR;
}
}
return 0;
}
/*
* Compile the source files supplied on the command line. This will compile in-memory and optionally also save to
* module files.
*/
static int interpretFiles(EcCompiler *cp, MprList *files, int argc, char **argv, cchar *className, cchar *methodName,
int lang)
{
Ejs *ejs;
mprAssert(files);
ejs = cp->ejs;
ejs->argc = argc;
ejs->argv = argv;
if (ecCompile(cp, files->length, (char**) files->items, 0) < 0) {
return EJS_ERR;
}
if (cp->run && cp->errorCount == 0) {
if (ejsRunProgram(ejs, className, methodName) < 0) {
ejsReportError(ejs, "Error in program");
return EJS_ERR;
}
}
return 0;
}
/*
Load and initialize a script literal
*/
int ejsLoadScriptLiteral(Ejs *ejs, EjsString *script, cchar *cache, int flags)
{
EcCompiler *cp;
cchar *path;
if ((cp = ecCreateCompiler(ejs, flags)) == 0) {
return MPR_ERR_MEMORY;
}
mprAddRoot(cp);
if (cache) {
cp->noout = 0;
ecSetOutputFile(cp, cache);
} else {
cp->noout = 1;
}
// UNICODE -- should this API be multi or unicode
if (ecOpenMemoryStream(cp, ejsToMulti(ejs, script), script->length) < 0) {
mprError("Can't open memory stream");
mprRemoveRoot(cp);
return EJS_ERR;
}
path = "__script__";
if (ecCompile(cp, 1, (char**) &path) < 0) {
if (flags & EC_FLAGS_THROW) {
ejsThrowSyntaxError(ejs, "%s", cp->errorMsg ? cp->errorMsg : "Can't parse script");
}
mprRemoveRoot(cp);
return EJS_ERR;
}
ecCloseStream(cp);
mprRemoveRoot(cp);
MPR_VERIFY_MEM();
if (ejsRun(ejs) < 0) {
return EJS_ERR;
}
return 0;
}
MAIN(ejscMain, int argc, char **argv, char **envp)
{
Mpr *mpr;
MprList *args;
Ejs *ejs;
EcCompiler *cp;
char *argp, *searchPath, *outputFile, *outputDir, *certFile, *name, *tok, *modules;
int nextArg, err, ejsFlags, ecFlags, bind, debug, doc, merge, modver;
int warnLevel, noout, parseOnly, tabWidth, optimizeLevel, strict;
/*
Initialize the Multithreaded Portable Runtime (MPR)
*/
mpr = mprCreate(argc, argv, 0);
app = mprAllocObj(App, manageApp);
mprAddRoot(app);
mprAddStandardSignals();
if (mprStart() < 0) {
mprLog("ejsc", 0, "Cannot start mpr services");
return EJS_ERR;
}
err = 0;
searchPath = 0;
strict = 0;
certFile = 0;
ecFlags = 0;
bind = 0;
debug = 0;
doc = 0;
merge = 0;
modver = 0;
noout = 0;
parseOnly = 0;
tabWidth = 4;
warnLevel = 1;
outputFile = 0;
outputDir = 0;
optimizeLevel = 9;
for (nextArg = 1; nextArg < argc; nextArg++) {
argp = argv[nextArg];
if (*argp != '-') {
break;
}
if (strcmp(argp, "--bind") == 0) {
bind = 1;
} else if (strcmp(argp, "--debug") == 0) {
debug = 1;
} else if (strcmp(argp, "--debugger") == 0 || strcmp(argp, "-D") == 0) {
mprSetDebugMode(1);
} else if (strcmp(argp, "--dir") == 0) {
/*
Set the output directory for modules
*/
if (nextArg >= argc) {
err++;
} else {
outputDir = argv[++nextArg];
}
} else if (strcmp(argp, "--doc") == 0) {
doc = 1;
} else if (strcmp(argp, "--log") == 0) {
/*
Undocumented logging switch
*/
if (nextArg >= argc) {
err++;
} else {
mprStartLogging(argv[++nextArg], 0);
mprSetCmdlineLogging(1);
}
} else if (strcmp(argp, "--merge") == 0) {
merge = 1;
} else if (strcmp(argp, "--modver") == 0) {
if (nextArg >= argc) {
err++;
} else {
modver = ejsParseModuleVersion(argv[++nextArg]);
}
} else if (strcmp(argp, "--nobind") == 0) {
bind = 0;
} else if (strcmp(argp, "--noout") == 0) {
noout = 1;
} else if (strcmp(argp, "--standard") == 0) {
strict = 0;
} else if (strcmp(argp, "--strict") == 0) {
strict = 1;
} else if (strcmp(argp, "--optimize") == 0) {
if (nextArg >= argc) {
err++;
} else {
optimizeLevel = atoi(argv[++nextArg]);
}
} else if (strcmp(argp, "--out") == 0) {
/*
Create a single output module file containing all modules
*/
if (nextArg >= argc) {
err++;
} else {
outputFile = argv[++nextArg];
}
} else if (strcmp(argp, "--parse") == 0) {
parseOnly = 1;
} else if (strcmp(argp, "--search") == 0 || strcmp(argp, "--searchpath") == 0) {
if (nextArg >= argc) {
err++;
} else {
searchPath = argv[++nextArg];
}
} else if (strcmp(argp, "--require") == 0) {
if (nextArg >= argc) {
err++;
} else {
if (app->modules == 0) {
app->modules = mprCreateList(-1, 0);
}
modules = sclone(argv[++nextArg]);
/* Fix for Xcode and Visual Studio */
if (modules[0] == ' ' || scmp(modules, "null") == 0) {
modules[0] = '\0';
}
name = stok(modules, " \t,", &tok);
while (name != NULL) {
require(name);
name = stok(NULL, " \t", &tok);
}
}
} else if (strcmp(argp, "--sign") == 0) {
if (nextArg >= argc) {
err++;
} else {
certFile = argv[++nextArg];
}
#if FUTURE
} else if (strcmp(argp, "--strip") == 0) {
strip = 1;
#endif
} else if (strcmp(argp, "--tabWidth") == 0) {
if (nextArg >= argc) {
err++;
} else {
tabWidth = atoi(argv[++nextArg]);
}
} else if (strcmp(argp, "--version") == 0 || strcmp(argp, "-V") == 0) {
mprPrintf("%s\n", ME_TITLE, EJS_VERSION);
return 0;
} else if (strcmp(argp, "--warn") == 0) {
if (nextArg >= argc) {
err++;
} else {
warnLevel = atoi(argv[++nextArg]);
}
} else if (strcmp(argp, "--web") == 0) {
if (app->modules == 0) {
app->modules = mprCreateList(-1, 0);
}
require("ejs");
require("ejs.unix");
require("ejs.db");
// TODO - decouple and remove this
require("ejs.db.mapper");
require("ejs.web");
} else {
err++;
break;
}
}
if (noout || merge) {
bind = 1;
}
if (outputFile && noout) {
mprEprintf("Cannot use --out and --noout\n");
err++;
}
if (argc == nextArg) {
err++;
}
if (err) {
/*
Usage Examples:
ejsc Person.es User.es Customer.es
ejsc --out group.mod Person.es User.es Customer.es
ejsc --out group.mod Person.es User.es Customer.es
NOTE: bind is deliberately not documented and is for internal use only.
*/
mprEprintf("Usage: %s [options] files...\n"
" Ejscript compiler options:\n"
" --debug # Include symbolic debugging information in output\n"
" --doc # Include documentation strings in output\n"
" --dir directory # Set the output directory for modules (default: \".\")\n"
" --merge # Merge dependent input modules into the output\n"
" --modver version # Set the default module version\n"
" --noout # Do not generate any output\n"
" --optimize level # Set optimization level (0-9)\n"
" --out filename # Name a single output module (default: \"default.mod\")\n"
" --parse # Just parse source. No output\n"
" --require 'module ...' # List of required modules to pre-load\n"
" --search ejsPath # Module search path\n"
" --standard # Default compilation mode to standard (default)\n"
" --strict # Default compilation mode to strict\n"
#if FUTURE
" --sign certFile # Sign the module file (not implemented) \n"
" --strip # Strip all symbolic names (Cannot import)\n"
" --tabwidth # Tab width for '^' error reporting\n"
#endif
" --version # Emit the compiler version information\n"
" --warn level # Set the warning message level (0-9)\n\n",
mpr->name);
return -1;
}
ejsFlags = EJS_FLAG_NO_INIT;
if (doc) {
ejsFlags |= EJS_FLAG_DOC;
}
if ((ejs = ejsCreateVM(0, 0, ejsFlags)) == 0) {
return MPR_ERR_MEMORY;
}
#if UNUSED
mprRunDispatcher(ejs->dispatcher);
#endif
if (ejsLoadModules(ejs, searchPath, app->modules) < 0) {
return MPR_ERR_CANT_READ;
}
app->ejs = ejs;
ecFlags |= (debug) ? EC_FLAGS_DEBUG: 0;
ecFlags |= (merge) ? EC_FLAGS_MERGE: 0;
ecFlags |= (bind) ? EC_FLAGS_BIND: 0;
ecFlags |= (noout) ? EC_FLAGS_NO_OUT: 0;
ecFlags |= (parseOnly) ? EC_FLAGS_PARSE_ONLY: 0;
ecFlags |= (doc) ? EC_FLAGS_DOC: 0;
cp = app->compiler = ecCreateCompiler(ejs, ecFlags);
if (cp == 0) {
return MPR_ERR_MEMORY;
}
cp->require = app->modules;
cp->modver = modver;
ecSetOptimizeLevel(cp, optimizeLevel);
ecSetWarnLevel(cp, warnLevel);
ecSetStrictMode(cp, strict);
ecSetTabWidth(cp, tabWidth);
ecSetOutputDir(cp, outputDir);
ecSetOutputFile(cp, outputFile);
ecSetCertFile(cp, certFile);
if (nextArg < argc) {
/*
Compile the source files supplied on the command line. This will compile in-memory and
optionally also save to module files.
*/
if ((args = expandWild(ejs, argc - nextArg, &argv[nextArg])) == 0) {
err++;
} else if (ecCompile(cp, args->length, (char**) args->items) < 0) {
err++;
}
if (cp->warningCount > 0 || cp->errorCount > 0) {
mprLog("ejs", 0, "%s\n", cp->errorMsg);
}
}
if (cp->errorCount > 0) {
err++;
}
app->ejs = 0;
app->compiler = 0;
ejsDestroy(ejs);
mprDestroy();
return err;
}
MAIN(ejscMain, int argc, char **argv)
#endif
{
Mpr *mpr;
Ejs *ejs;
EcCompiler *cp;
EjsService *vmService;
MprList *useModules;
char *argp, *searchPath, *outputFile, *certFile, *name, *tok, *modules, *spec;
int nextArg, err, ejsFlags, ecFlags, bind, debug, doc, empty, merge;
int warnLevel, noout, parseOnly, tabWidth, optimizeLevel, compilerMode, lang;
/*
* Create the Embedthis Portable Runtime (MPR) and setup a memory failure handler
*/
mpr = mprCreate(argc, argv, ejsMemoryFailure);
mprSetAppName(mpr, argv[0], 0, 0);
if (mprStart(mpr, 0) < 0) {
mprError(mpr, "Can't start mpr services");
return EJS_ERR;
}
err = 0;
searchPath = 0;
compilerMode = PRAGMA_MODE_STANDARD;
certFile = 0;
ecFlags = 0;
bind = 0;
debug = 0;
doc = 0;
empty = 0;
merge = 0;
noout = 0;
parseOnly = 0;
tabWidth = 4;
warnLevel = 1;
outputFile = 0;
optimizeLevel = 9;
lang = BLD_FEATURE_EJS_LANG;
useModules = mprCreateList(mpr);
for (nextArg = 1; nextArg < argc; nextArg++) {
argp = argv[nextArg];
if (*argp != '-') {
break;
}
if (strcmp(argp, "--bind") == 0) {
bind = 1;
} else if (strcmp(argp, "--debug") == 0) {
debug = 1;
} else if (strcmp(argp, "--doc") == 0) {
doc = 1;
} else if (strcmp(argp, "--lang") == 0) {
if (nextArg >= argc) {
err++;
} else {
spec = argv[++nextArg];
if (mprStrcmpAnyCase(spec, "ecma") == 0) {
lang = EJS_SPEC_ECMA;
} else if (mprStrcmpAnyCase(spec, "plus") == 0) {
lang = EJS_SPEC_PLUS;
} else if (mprStrcmpAnyCase(spec, "fixed") == 0) {
lang = EJS_SPEC_FIXED;
}
}
} else if (strcmp(argp, "--empty") == 0) {
empty = 1;
} else if (strcmp(argp, "--log") == 0) {
/*
* Undocumented logging switch
*/
if (nextArg >= argc) {
err++;
} else {
ejsStartLogging(mpr, argv[++nextArg]);
}
} else if (strcmp(argp, "--merge") == 0) {
merge = 1;
} else if (strcmp(argp, "--nobind") == 0) {
bind = 0;
} else if (strcmp(argp, "--noout") == 0) {
noout = 1;
} else if (strcmp(argp, "--standard") == 0) {
compilerMode = PRAGMA_MODE_STANDARD;
} else if (strcmp(argp, "--strict") == 0) {
compilerMode = PRAGMA_MODE_STRICT;
} else if (strcmp(argp, "--optimize") == 0) {
if (nextArg >= argc) {
err++;
} else {
optimizeLevel = atoi(argv[++nextArg]);
}
} else if (strcmp(argp, "--out") == 0) {
/*
* Create a single output module file containing all modules
*/
if (nextArg >= argc) {
err++;
} else {
outputFile = argv[++nextArg];
}
} else if (strcmp(argp, "--parse") == 0) {
parseOnly = 1;
} else if (strcmp(argp, "--search") == 0 || strcmp(argp, "--searchpath") == 0) {
if (nextArg >= argc) {
err++;
} else {
searchPath = argv[++nextArg];
}
} else if (strcmp(argp, "--sign") == 0) {
if (nextArg >= argc) {
err++;
} else {
certFile = argv[++nextArg];
}
} else if (strcmp(argp, "--tabWidth") == 0) {
if (nextArg >= argc) {
err++;
} else {
tabWidth = atoi(argv[++nextArg]);
}
} else if (strcmp(argp, "--use") == 0) {
if (nextArg >= argc) {
err++;
} else {
modules = mprStrdup(mpr, argv[++nextArg]);
name = mprStrTok(modules, " \t", &tok);
while (name != NULL) {
mprAddItem(useModules, name);
name = mprStrTok(NULL, " \t", &tok);
}
}
} else if (strcmp(argp, "--version") == 0 || strcmp(argp, "-V") == 0) {
mprPrintfError(mpr, "%s %s-%s\n", BLD_NAME, BLD_VERSION, BLD_VERSION);
return 0;
} else if (strcmp(argp, "--warn") == 0) {
if (nextArg >= argc) {
err++;
} else {
warnLevel = atoi(argv[++nextArg]);
}
#if BLD_FEATURE_EJS_WEB
} else if (strcmp(argp, "--web") == 0) {
#if BLD_FEATURE_EJS_DB
mprAddItem(useModules, "ejs.db");
#endif
mprAddItem(useModules, "ejs.web");
#endif
} else {
err++;
break;
}
}
if (noout || merge) {
bind = 1;
}
if (outputFile && noout) {
mprPrintfError(mpr, "Can't use --out and --noout\n");
err++;
}
if (argc == nextArg) {
err++;
}
if (err) {
/*
* Usage Examples:
* ejsc Person.es User.es Customer.es
* ejsc --out group.mod Person.es User.es Customer.es
* ejsc --out group.mod Person.es User.es Customer.es
*/
mprPrintfError(mpr,
"Usage: %s [options] files...\n"
" Ejscript compiler options:\n"
" --bind # Bind global properties to slots. Requires --out.\n"
" --debug # Include symbolic debugging information in output\n"
" --doc # Include documentation strings in output\n"
" --lang # Language compliance (ecma|plus|fixed)\n"
" --empty # Create empty interpreter\n"
" --merge # Merge dependent input modules into the output\n"
" --noout # Do not generate any output\n"
" --optimize level # Set optimization level (0-9)\n"
" --out filename # Name a single output module (default: \"default.mod\")\n"
" --parse # Just parse source. No output\n"
" --search ejsPath # Module search path\n"
" --standard # Default compilation mode to standard (default)\n"
" --strict # Default compilation mode to strict\n"
#if FUTURE
" --sign certFile # Sign the module file (not implemented) \n"
" --tabwidth # Tab width for '^' error reporting\n"
#endif
" --use 'module, ...' # List of modules to pre-load\n"
" --version # Emit the compiler version information\n"
" --warn level # Set the warning message level (0-9)\n\n",
mpr->name);
return -1;
}
/*
* Need an interpreter when compiling
*/
vmService = ejsCreateService(mpr);
if (vmService == 0) {
return MPR_ERR_NO_MEMORY;
}
ejsFlags = EJS_FLAG_NO_EXE;
if (empty) {
ejsFlags |= EJS_FLAG_EMPTY;
}
if (doc) {
ejsFlags |= EJS_FLAG_DOC;
}
ejs = ejsCreate(vmService, NULL, searchPath, ejsFlags);
if (ejs == 0) {
return MPR_ERR_NO_MEMORY;
}
ecFlags = 0;
ecFlags |= (debug) ? EC_FLAGS_DEBUG: 0;
ecFlags |= (empty) ? EC_FLAGS_EMPTY: 0;
ecFlags |= (merge) ? EC_FLAGS_MERGE: 0;
ecFlags |= (bind) ? EC_FLAGS_BIND: 0;
ecFlags |= (noout) ? EC_FLAGS_NO_OUT: 0;
ecFlags |= (parseOnly) ? EC_FLAGS_PARSE_ONLY: 0;
cp = ecCreateCompiler(ejs, ecFlags, lang);
if (cp == 0) {
return MPR_ERR_NO_MEMORY;
}
ecSetOptimizeLevel(cp, optimizeLevel);
ecSetWarnLevel(cp, warnLevel);
ecSetDefaultMode(cp, compilerMode);
ecSetTabWidth(cp, tabWidth);
ecSetOutputFile(cp, outputFile);
ecSetCertFile(cp, certFile);
if (preloadModules(cp, useModules) < 0) {
return EJS_ERR;
}
if (nextArg < argc) {
/*
* Compile the source files supplied on the command line. This will compile in-memory and
* optionally also save to module files.
*/
if (ecCompile(cp, argc - nextArg, &argv[nextArg], 0) < 0) {
err++;
}
}
if (cp->errorCount > 0) {
err++;
}
#if VXWORKS
mprFree(cp);
mprFree(ejs);
if (mprStop(mpr)) {
mprFree(mpr);
}
#endif
return err;
}
MAIN(ejsMain, int argc, char **argv, char **envp)
{
Mpr *mpr;
Ejs *ejs;
EcCompiler *ec;
char *argp, *searchPath, *path, *homeDir;
int nextArg, err, flags;
/*
Initialize Multithreaded Portable Runtime (MPR)
*/
mpr = mprCreate(argc, argv, 0);
app = mprAllocObj(App, manageApp);
mprAddRoot(app);
mprAddStandardSignals();
if (mprStart(mpr) < 0) {
mprError("Cannot start mpr services");
return EJS_ERR;
}
err = 0;
searchPath = 0;
argc = mpr->argc;
argv = (char**) mpr->argv;
for (nextArg = 1; nextArg < argc; nextArg++) {
argp = argv[nextArg];
if (*argp != '-') {
break;
}
if (smatch(argp, "--chdir") || smatch(argp, "--home") || smatch(argp, "-C")) {
if (nextArg >= argc) {
err++;
} else {
homeDir = argv[++nextArg];
if (chdir((char*) homeDir) < 0) {
mprError("Cannot change directory to %s", homeDir);
}
}
} else if (smatch(argp, "--debugger") || smatch(argp, "-D")) {
mprSetDebugMode(1);
} else if (smatch(argp, "--log")) {
if (nextArg >= argc) {
err++;
} else {
mprStartLogging(argv[++nextArg], 0);
mprSetCmdlineLogging(1);
}
} else if (smatch(argp, "--name")) {
/* Just ignore. Used to tag commands with a unique command line */
nextArg++;
} else if (smatch(argp, "--search") || smatch(argp, "--searchpath")) {
if (nextArg >= argc) {
err++;
} else {
searchPath = argv[++nextArg];
}
} else if (smatch(argp, "--verbose") || smatch(argp, "-v")) {
mprStartLogging("stderr:1", 0);
mprSetCmdlineLogging(1);
} else if (smatch(argp, "--version") || smatch(argp, "-V")) {
mprPrintf("%s-%s\n", BIT_VERSION, BIT_BUILD_NUMBER);
return 0;
} else {
/* Ignore */
}
}
path = mprJoinPath(mprGetAppDir(), mprGetPathBase(argv[0]));
path = mprReplacePathExt(path, ".es");
mprAddRoot(path);
argv[0] = path;
if ((ejs = ejsCreateVM(argc, (cchar **) &argv[0], 0)) == 0) {
return MPR_ERR_MEMORY;
}
app->ejs = ejs;
if (ejsLoadModules(ejs, searchPath, NULL) < 0) {
return MPR_ERR_CANT_READ;
}
mprLog(2, "Load script \"%s\"", path);
flags = EC_FLAGS_BIND | EC_FLAGS_DEBUG | EC_FLAGS_NO_OUT | EC_FLAGS_THROW;
if ((ec = ecCreateCompiler(ejs, flags)) == 0) {
return MPR_ERR_MEMORY;
}
mprAddRoot(ec);
ecSetOptimizeLevel(ec, 9);
ecSetWarnLevel(ec, 1);
if (ecCompile(ec, 1, (char**) &path) < 0) {
if (flags & EC_FLAGS_THROW) {
ejsThrowSyntaxError(ejs, "%s", ec->errorMsg ? ec->errorMsg : "Cannot parse script");
ejsReportError(ejs, "Error in script");
}
err = MPR_ERR;
} else {
mprRemoveRoot(ec);
if (ejsRunProgram(ejs, NULL, NULL) < 0) {
ejsReportError(ejs, "Error in script");
err = MPR_ERR;
}
}
if (!err) {
err = mpr->exitStatus;
}
app->ejs = 0;
mprTerminate(MPR_EXIT_DEFAULT, err);
ejsDestroyVM(ejs);
mprDestroy(MPR_EXIT_DEFAULT);
return err;
}