int main(int argc, char** argv)
{
char ops = 'r';
FILE* fd = fopen(argv[1], &ops);
if(fd == NULL)
{
perror("Unable to open source file");
return 1;
}
fseek(fd, 0L, SEEK_END);
sourceSize = ftell(fd);
rewind(fd);
source = malloc(sizeof(char)*sourceSize);
int i;
for(i = 0; !feof(fd) && i < sourceSize; i++)
{
source[i] = fgetc(fd);
}
syntaxCheck(source, sourceSize);
//Setup tape
start = calloc(0, sizeof(unsigned char) * 30000);
pos = start;
end = start + sizeof(unsigned char) * 30000;
interpretCommands(source, sourceSize);
return 0;
}
Static void doMusic(void)
{
Char STR1[256], STR2[256];
Char STR4[256];
first_paragraph = true;
pmx_preamble_done = false;
bar_no = 1;
*repeat_sign = '\0';
must_respace = false;
must_restyle = false;
do {
final_paragraph = endOfInfile();
memcpy(orig_P, P, sizeof(paragraph));
if (para_len > 0 && !ignore_input && thisCase()) {
if (no_commands_yet) {
interpretCommands();
printFeatures(false);
one_beat = 64 / meterdenom;
full_bar = meternum * one_beat;
if (nvoices > standardPMXvoices) {
sprintf(STR4, "You have %s voices; standard PMX can only handle %s",
toString(STR1, nvoices), toString(STR2, standardPMXvoices));
warning(STR4, !print);
}
initMTX();
initUptext();
initStatus();
initLyrics();
no_commands_yet = false;
}
if (startsWithBracedWord(P[0]))
lyricsParagraph();
else {
musicParagraph();
first_paragraph = false;
writeRepeat(repeat_sign);
}
}
readParagraph(P, orig_line_no, ¶_len);
} while (para_len != 0);
}
MAIN(ejsMain, int argc, char **argv, char **envp)
{
Mpr *mpr;
EcCompiler *cp;
Ejs *ejs;
cchar *cmd, *className, *method, *homeDir;
char *argp, *searchPath, *modules, *name, *tok, *extraFiles;
int nextArg, err, ecFlags, stats, merge, bind, noout, debug, optimizeLevel, warnLevel, strict, i, next;
/*
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;
className = 0;
cmd = 0;
method = 0;
searchPath = 0;
stats = 0;
merge = 0;
bind = 1;
noout = 1;
debug = 1;
warnLevel = 1;
optimizeLevel = 9;
strict = 0;
app->files = mprCreateList(-1, 0);
app->iterations = 1;
argc = mpr->argc;
argv = (char**) mpr->argv;
for (nextArg = 1; nextArg < argc; nextArg++) {
argp = argv[nextArg];
if (*argp != '-') {
break;
}
if (smatch(argp, "--bind")) {
bind = 1;
} else if (smatch(argp, "--class")) {
if (nextArg >= argc) {
err++;
} else {
className = argv[++nextArg];
}
} else 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);
}
}
#if BIT_UNIX_LIKE
} else if (smatch(argp, "--chroot")) {
/* Not documented or supported */
if (nextArg >= argc) {
err++;
} else {
homeDir = mprGetAbsPath(argv[++nextArg]);
if (chroot(homeDir) < 0) {
if (errno == EPERM) {
mprPrintfError("%s: Must be super user to use the --chroot option", mprGetAppName(mpr));
} else {
mprPrintfError("%s: Cannot change change root directory to %s, errno %d",
mprGetAppName(), homeDir, errno);
}
return 4;
}
}
#endif
} else if (smatch(argp, "--cmd") || smatch(argp, "-c")) {
if (nextArg >= argc) {
err++;
} else {
cmd = argv[++nextArg];
}
#if BIT_WIN_LIKE
} else if (smatch(argp, "--cygroot")) {
if (nextArg >= argc) {
err++;
} else {
app->cygroot = sclone(argv[++nextArg]);
}
#endif
} else if (smatch(argp, "--debug")) {
debug = 1;
} else if (smatch(argp, "--debugger") || smatch(argp, "-D")) {
mprSetDebugMode(1);
} else if (smatch(argp, "--files") || smatch(argp, "-f")) {
/* Compatibility with mozilla shell */
if (nextArg >= argc) {
err++;
} else {
extraFiles = sclone(argv[++nextArg]);
name = stok(extraFiles, " \t", &tok);
while (name != NULL) {
mprAddItem(app->files, sclone(name));
name = stok(NULL, " \t", &tok);
}
}
} else if (smatch(argp, "--iterations") || smatch(argp, "-i")) {
if (nextArg >= argc) {
err++;
} else {
app->iterations = atoi(argv[++nextArg]);
}
} else if (smatch(argp, "--log")) {
if (nextArg >= argc) {
err++;
} else {
mprStartLogging(argv[++nextArg], 0);
mprSetCmdlineLogging(1);
}
} else if (smatch(argp, "--method")) {
if (nextArg >= argc) {
err++;
} else {
method = argv[++nextArg];
}
} else if (smatch(argp, "--name")) {
/* Just ignore. Used to tag commands with a unique command line */
nextArg++;
} else if (smatch(argp, "--nobind")) {
bind = 0;
} else if (smatch(argp, "--nodebug")) {
debug = 0;
} else if (smatch(argp, "--optimize")) {
if (nextArg >= argc) {
err++;
} else {
optimizeLevel = atoi(argv[++nextArg]);
}
} else if (smatch(argp, "-s")) {
/* Compatibility with mozilla shell. Just ignore */
} else if (smatch(argp, "--search") || smatch(argp, "--searchpath")) {
if (nextArg >= argc) {
err++;
} else {
searchPath = argv[++nextArg];
}
} else if (smatch(argp, "--standard")) {
strict = 0;
} else if (smatch(argp, "--stats")) {
stats = 1;
} else if (smatch(argp, "--strict")) {
strict = 1;
} else if (smatch(argp, "--require")) {
if (nextArg >= argc) {
err++;
} else {
if (app->modules == 0) {
app->modules = mprCreateList(-1, 0);
}
modules = sclone(argv[++nextArg]);
name = stok(modules, " \t", &tok);
while (name != NULL) {
require(name);
name = stok(NULL, " \t", &tok);
}
}
} else if (smatch(argp, "--verbose") || smatch(argp, "-v")) {
mprStartLogging("stderr:2", 0);
mprSetCmdlineLogging(1);
} else if (smatch(argp, "--version") || smatch(argp, "-V")) {
mprPrintf("%s-%s\n", BIT_VERSION, BIT_BUILD_NUMBER);
return 0;
} else if (smatch(argp, "--warn")) {
if (nextArg >= argc) {
err++;
} else {
warnLevel = atoi(argv[++nextArg]);
}
} else {
err++;
break;
}
}
if (err) {
/*
If --method or --class is specified, then the named class.method will be run (method defaults to "main", class
defaults to first class with a "main").
Examples:
ejs
ejs script.es arg1 arg2 arg3
ejs --class "Customer" --method "start" --files "script1.es script2.es" main.es
*/
mprPrintfError("Usage: %s [options] script.es [arguments] ...\n"
" Ejscript shell program options:\n"
" --class className # Name of class containing method to run\n"
" --cmd ejscriptCode # Literal ejscript statements to execute\n"
" --cygroot path # Set cygwin root for resolving script paths\n"
" --debug # Use symbolic debugging information (default)\n"
" --debugger # Disable timeouts to make using a debugger easier\n"
" --files \"files..\" # Extra source to compile\n"
" --log logSpec # Internal compiler diagnostics logging\n"
" --method methodName # Name of method to run. Defaults to main\n"
" --nodebug # Omit symbolic debugging information\n"
" --optimize level # Set the optimization level (0-9 default is 9)\n"
" --require 'module,...' # Required list of modules to pre-load\n"
" --search ejsPath # Module search path\n"
" --standard # Default compilation mode to standard (default)\n"
" --stats # Print memory stats on exit\n"
" --strict # Default compilation mode to strict\n"
" --verbose | -v # Same as --log stderr:2 \n"
" --version # Emit the compiler version information\n"
" --warn level # Set the warning message level (0-9 default is 0)\n\n",
mpr->name);
return -1;
}
if ((ejs = ejsCreateVM(argc - nextArg, (cchar **) &argv[nextArg], 0)) == 0) {
return MPR_ERR_MEMORY;
}
app->ejs = ejs;
if (ejsLoadModules(ejs, searchPath, app->modules) < 0) {
return MPR_ERR_CANT_READ;
}
ecFlags = 0;
ecFlags |= (merge) ? EC_FLAGS_MERGE: 0;
ecFlags |= (bind) ? EC_FLAGS_BIND: 0;
ecFlags |= (noout) ? EC_FLAGS_NO_OUT: 0;
ecFlags |= (debug) ? EC_FLAGS_DEBUG: 0;
cp = app->compiler = ecCreateCompiler(ejs, ecFlags);
if (cp == 0) {
return MPR_ERR_MEMORY;
}
ecSetRequire(cp, app->modules);
ecSetOptimizeLevel(cp, optimizeLevel);
ecSetWarnLevel(cp, warnLevel);
ecSetStrictMode(cp, strict);
if (nextArg < argc) {
mprAddItem(app->files, sclone(argv[nextArg]));
}
if (app->cygroot) {
/*
When cygwin invokes a script with shebang, it passes a cygwin path to the script
The ejs --cygroot option permits ejscript to conver this to a native path
*/
for (next = 0; (name = mprGetNextItem(app->files, &next)) != 0; ) {
if (*name == '/' || *name == '\\') {
mprSetItem(app->files, next - 1, sjoin(app->cygroot, name, NULL));
}
}
}
for (i = 0; !err && i < app->iterations; i++) {
if (cmd) {
if (interpretCommands(cp, cmd) < 0) {
err++;
}
} else if (mprGetListLength(app->files) > 0) {
if (interpretFiles(cp, app->files, argc - nextArg, &argv[nextArg], className, method) < 0) {
err++;
}
} else {
/*
No args - run as an interactive shell
*/
if (interpretCommands(cp, NULL) < 0) {
err++;
}
}
}
if (stats) {
#if BIT_DEBUG
mprSetLogLevel(1);
mprPrintMem("Memory Usage", 1);
#endif
}
if (!err) {
err = mpr->exitStatus;
}
app->ejs = 0;
mprTerminate(MPR_EXIT_DEFAULT, err);
ejsDestroyVM(ejs);
mprDestroy(MPR_EXIT_DEFAULT);
return err;
}
int main(int argc, char **argv)
{
Mpr *mpr;
EcCompiler *cp;
EjsService *vmService;
Ejs *ejs;
MprList *useModules, *files;
cchar *cmd, *className, *methodName;
char *argp, *searchPath, *modules, *name, *tok, *extraFiles, *spec;
int nextArg, err, ejsFlags, ecFlags, stats, run, merge, bind, noout, debug, optimizeLevel, nobind, warnLevel;
int 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;
className = 0;
cmd = 0;
methodName = 0;
searchPath = 0;
stats = 0;
run = 1;
merge = 0;
bind = 1;
nobind = 0;
noout = 1;
debug = 1;
warnLevel = 1;
optimizeLevel = 9;
compilerMode = PRAGMA_MODE_STANDARD;
lang = BLD_FEATURE_EJS_LANG;
useModules = mprCreateList(mpr);
files = mprCreateList(mpr);
ejsFlags = EJS_FLAG_COMPILER;
for (nextArg = 1; nextArg < argc; nextArg++) {
argp = argv[nextArg];
if (*argp != '-') {
break;
}
if (strcmp(argp, "--bind") == 0) {
/* Ignore. Not required and only here for compatibility with ec */
} else if (strcmp(argp, "--class") == 0) {
if (nextArg >= argc) {
err++;
} else {
className = argv[++nextArg];
}
} else if (strcmp(argp, "--cmd") == 0 || strcmp(argp, "-c") == 0) {
if (nextArg >= argc) {
err++;
} else {
cmd = argv[++nextArg];
}
} else if (strcmp(argp, "--debug") == 0) {
debug = 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, "--files") == 0 || strcmp(argp, "-f") == 0) {
if (nextArg >= argc) {
err++;
} else {
extraFiles = mprStrdup(mpr, argv[++nextArg]);
name = mprStrTok(extraFiles, " \t", &tok);
while (name != NULL) {
mprAddItem(files, name);
name = mprStrTok(NULL, " \t", &tok);
}
}
} else if (strcmp(argp, "--log") == 0) {
if (nextArg >= argc) {
err++;
} else {
ejsStartLogging(mpr, argv[++nextArg]);
}
} else if (strcmp(argp, "--method") == 0) {
if (nextArg >= argc) {
err++;
} else {
methodName = argv[++nextArg];
}
} else if (strcmp(argp, "--nobind") == 0) {
/*
* This is a hidden switch just for the compiler developers
*/
nobind = 1;
bind = 0;
} else if (strcmp(argp, "--nodebug") == 0) {
debug = 0;
} else if (strcmp(argp, "--optimize") == 0) {
if (nextArg >= argc) {
err++;
} else {
optimizeLevel = atoi(argv[++nextArg]);
}
} else if (strcmp(argp, "--searchpath") == 0) {
if (nextArg >= argc) {
err++;
} else {
searchPath = argv[++nextArg];
}
} else if (strcmp(argp, "--standard") == 0) {
compilerMode = PRAGMA_MODE_STANDARD;
} else if (strcmp(argp, "--stats") == 0) {
stats = 1;
} else if (strcmp(argp, "--strict") == 0) {
compilerMode = PRAGMA_MODE_STRICT;
} 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) {
mprErrorPrintf(mpr, "%s %s\n"
"Copyright (C) Embedthis Software 2003-2009\n"
"Copyright (C) Michael O'Brien 2003-2009\n",
BLD_NAME, BLD_VERSION);
exit(0);
} else if (strcmp(argp, "--warn") == 0) {
if (nextArg >= argc) {
err++;
} else {
warnLevel = atoi(argv[++nextArg]);
}
} else {
err++;
break;
}
}
if (err) {
/*
* If --method or --class is specified, then the named class.method will be run (method defaults to "main", class
* defaults to first class with a "main").
*
* Examples:
* ejs
* ejs script.es arg1 arg2 arg3
* ejs --class "Customer" --method "start" --files "script1.es script2.es" main.es
*/
mprErrorPrintf(mpr,
"Usage: %s [options] script.es [arguments] ...\n"
" Ejscript shell program options:\n"
" --class className # Name of class containing method to run\n"
" --cmd ejscriptCode # Literal ejscript statements to execute\n"
" --debug # Include symbolic debugging information in output\n"
" --lang # Language compliance (ecma|plus|fixed)\n"
" --files \"files..\" # Extra source to compile\n"
" --log logSpec # Internal compiler diagnostics logging\n"
" --method methodName # Name of method to run. Defaults to main\n"
" --nodebug # Omit symbolic debugging information in output\n"
" --optimize level # Set the optimization level (0-9 default is 9)\n"
" --searchpath ejsPath # Module search path\n"
" --standard # Default compilation mode to standard (default)\n"
" --stats # Print stats on exit\n"
" --strict # Default compilation mode to strict\n"
" --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 default is 0)\n\n",
mpr->name);
return -1;
}
vmService = ejsCreateService(mpr);
if (vmService == 0) {
return MPR_ERR_NO_MEMORY;
}
if (searchPath) {
ejsSetSearchPath(vmService, searchPath);
}
ejs = ejsCreate(vmService, 0, ejsFlags);
if (ejs == 0) {
return MPR_ERR_NO_MEMORY;
}
ecFlags = 0;
ecFlags |= (run) ? EC_FLAGS_RUN: 0;
ecFlags |= (merge) ? EC_FLAGS_MERGE: 0;
ecFlags |= (bind) ? EC_FLAGS_BIND_GLOBALS: 0;
ecFlags |= (nobind) ? EC_FLAGS_NO_BIND: 0;
ecFlags |= (noout) ? EC_FLAGS_NO_OUT: 0;
ecFlags |= (debug) ? EC_FLAGS_DEBUG: 0;
cp = ecCreateCompiler(ejs, ecFlags, lang);
if (cp == 0) {
return MPR_ERR_NO_MEMORY;
}
ecSetOptimizeLevel(cp, optimizeLevel);
ecSetWarnLevel(cp, warnLevel);
ecSetDefaultMode(cp, compilerMode);
if (preloadModules(cp, useModules) < 0) {
return EJS_ERR;
}
if (cmd) {
if (interpretCommands(cp, cmd) < 0) {
err++;
}
} else if (nextArg < argc) {
name = argv[nextArg];
mprAddItem(files, argv[nextArg]);
if (interpretFiles(cp, files, argc - nextArg, &argv[nextArg], className, methodName) < 0) {
err++;
}
} else {
/*
* No args - run as an interactive shell
*/
if (interpretCommands(cp, NULL) < 0) {
err++;
}
}
#if BLD_DEBUG
if (stats) {
mprSetLogLevel(ejs, 1);
ejsPrintAllocReport(ejs);
}
#endif
mprFree(mpr);
return err;
}
int interpretCommands(char* com, int size)
{
int i;
for(i = 0; i < size; i++)
{
if('>' == com[i])
{
pos++;
}
else if('<' == com[i])
{
pos--;
}
else if('+' == com[i])
{
*pos += 1;
}
else if('-' == com[i])
{
*pos -= 1;
}
else if('.' == com[i])
{
putchar(*pos);
}
else if(',' == com[i])
{
*pos = getchar();
}
else if('[' == com[i])
{
int loopCount = 1;
int loopCSize = 10;
char* loopCode = malloc(sizeof(char) * loopCSize);
int j = 0;
while(loopCount > 0)
{
i += 1;
if(com[i] == ']')
{
loopCount -= 1;
}
if(com[i] == '[')
{
loopCount += 1;
}
if(loopCount > 0)
{
if(j == loopCSize-1)
{
loopCSize *= 2;
loopCode = realloc(loopCode, sizeof(char)*loopCSize);
}
loopCode[j] = com[i];
j += 1;
}
}
int go = 1;
while(go > 0)
{
interpretCommands(loopCode, j+1);
go = *pos;
}
}
}
return 0;
}