/*
Run the web client to retrieve a URI
This will create the MPR and Http service on demand. As such, it is not the most
efficient way to run a web request.
@return HTTP status code or negative MPR error code. Returns a malloc string in response.
*/
PUBLIC int maRunWebClient(cchar *method, cchar *uri, cchar *data, char **response, char **err)
{
Mpr *mpr;
HttpConn *conn;
int status;
if (err) {
*err = 0;
}
if (response) {
*response = 0;
}
if ((mpr = mprCreate(0, NULL, 0)) == 0) {
mprLog("error appweb", 0, "Cannot create the MPR runtime");
return MPR_ERR_CANT_CREATE;
}
if (mprStart() < 0) {
mprLog("error appweb", 0, "Cannot start the web server runtime");
return MPR_ERR_CANT_INITIALIZE;
}
httpCreate(HTTP_CLIENT_SIDE);
conn = httpRequest(method, uri, data, err);
status = httpGetStatus(conn);
if (response) {
*response = httpReadString(conn);
}
mprDestroy();
return status;
}
/*
Create a simple stand-alone web server
*/
int main(int argc, char **argv, char **envp)
{
Mpr *mpr;
MaAppweb *appweb;
MaServer *server;
int rc;
rc = MPR_ERR_CANT_CREATE;
if ((mpr = mprCreate(0, NULL, MPR_USER_EVENTS_THREAD)) == 0) {
mprError("Cannot create the web server runtime");
return -1;
}
mprStart();
appweb = maCreateAppweb(mpr);
mprAddRoot(appweb);
server = maCreateServer(appweb, 0);
if (maParseConfig(server, "appweb.conf", 0) < 0) {
mprError("Cannot parse the config file %s", "appweb.conf");
return -1;
}
httpDefineAction("/action/myaction", myaction);
if (maStartServer(server) < 0) {
mprError("Cannot start the web server");
return -1;
}
mprServiceEvents(-1, 0);
maStopServer(server);
mprRemoveRoot(appweb);
mprDestroy(MPR_EXIT_DEFAULT);
return 0;
}
/*
Create a simple stand-alone web server
*/
int main(int argc, char **argv, char **envp)
{
Mpr *mpr;
int rc;
rc = MPR_ERR_CANT_CREATE;
if ((mpr = mprCreate(0, NULL, MPR_USER_EVENTS_THREAD)) == 0) {
mprError("Cannot create runtime");
return -1;
}
if (httpCreate(HTTP_CLIENT_SIDE | HTTP_SERVER_SIDE) == 0) {
mprError("Cannot create the HTTP services");
return -1;
}
mprStart();
if (maParseConfig("appweb.conf") < 0) {
mprError("Cannot parse the config file %s", "appweb.conf");
return -1;
}
httpDefineAction("/action/myaction", myaction);
if (httpStartEndpoints() < 0) {
mprError("Cannot start the web server");
return -1;
}
mprServiceEvents(-1, 0);
mprDestroy();
return 0;
}
MAIN(simpleClient, int argc, char** argv)
{
Mpr *mpr;
App *app;
cchar *content;
int code;
/*
Create the Multithreaded Portable Runtime
*/
mpr = mprCreate(argc, argv, MPR_USER_EVENTS_THREAD);
if ((app = mprAllocObj(App, manageApp)) == 0) {
return MPR_ERR_MEMORY;
}
mprAddRoot(app);
mprAddStandardSignals(app);
/*
Start the Multithreaded Portable Runtime
*/
mprStart();
/*
Create an Http service object
*/
app->http = httpCreate(mpr);
/*
Get a client http object to work with. We can issue multiple requests with this one object.
*/
app->conn = httpCreateConn(app->http, NULL, NULL);
/*
Get a URL
*/
if (httpConnect(app->conn, "GET", "http://www.embedthis.com/index.html") < 0) {
mprError("Can't get URL");
exit(2);
}
/*
Examine the HTTP response HTTP code. 200 is success.
*/
code = httpGetStatus(app->conn);
if (code != 200) {
mprError("Server responded with code %d\n", code);
exit(1);
}
/*
Get the actual response content
*/
content = httpReadString(app->conn);
if (content) {
mprPrintf("Server responded with: %s\n", content);
}
mprDestroy(MPR_EXIT_DEFAULT);
return 0;
}
MAIN(simpleClient, int argc, char **argv, char **envp)
{
Http *http;
HttpConn *conn;
cchar *content;
int code;
/*
Create the Multithreaded Portable Runtime and start it.
*/
mprCreate(argc, argv, 0);
mprStart();
/*
Get a client http object to work with. We can issue multiple requests with this one object.
Add the conn as a root object so the GC won't collect it while we are using it.
*/
http = httpCreate(HTTP_CLIENT_SIDE);
conn = httpCreateConn(http, NULL, NULL);
mprAddRoot(conn);
/*
Open a connection to issue the GET. Then finalize the request output - this forces the request out.
*/
if (httpConnect(conn, "GET", "http://www.embedthis.com/index.html", NULL) < 0) {
mprError("Can't get URL");
exit(2);
}
httpFinalizeOutput(conn);
/*
Wait for a response
*/
if (httpWait(conn, HTTP_STATE_PARSED, 10000) < 0) {
mprError("No response");
exit(2);
}
/*
Examine the HTTP response HTTP code. 200 is success.
*/
code = httpGetStatus(conn);
if (code != 200) {
mprError("Server responded with code %d\n", code);
exit(1);
}
/*
Get the actual response content
*/
content = httpReadString(conn);
if (content) {
mprPrintf("Server responded with: %s\n", content);
}
mprDestroy(MPR_EXIT_DEFAULT);
return 0;
}
MAIN(benchMpr, int argc, char **argv, char **envp)
{
MprThread *thread;
Mpr *mpr;
char *argp;
int err, nextArg;
if ((mpr = mprCreate(argc, argv, MPR_USER_EVENTS_THREAD)) == 0) {
return MPR_ERR_MEMORY;
}
if ((app = mprAllocObj(App, manageApp)) == 0) {
return MPR_ERR_MEMORY;
}
mprAddRoot(app);
app->mutex = mprCreateLock(mpr);
app->complete = mprCreateCond();
app->iterations = 5;
err = 0;
for (nextArg = 1; nextArg < argc; nextArg++) {
argp = argv[nextArg];
if (*argp != '-') {
break;
}
if (strcmp(argp, "--iterations") == 0 || strcmp(argp, "-i") == 0) {
if (nextArg >= argc) {
err++;
} else {
app->iterations = atoi(argv[++nextArg]);
}
} else if (strcmp(argp, "--alloc") == 0 || strcmp(argp, "-a") == 0) {
app->testAllocOnly++;
} else {
err++;
}
}
if (err) {
mprEprintf("usage: bench [-a] [-i iterations]\n");
mprEprintf("usage: %s [options]\n"
" -a # Alloc test only\n"
" --iterations count # Number of iterations to run the test\n",
mprGetAppName(mpr));
exit(2);
}
mprStart(mpr);
thread = mprCreateThread("bench", (MprThreadProc) doBenchmark, (void*) MPR, 0);
mprStartThread(thread);
while (!testComplete) {
mprServiceEvents(250, 0);
}
mprPrintMem("Memory Report", 0);
mprDestroy();
return 0;
}
MAIN(httpMain, int argc, char **argv, char **envp)
{
MprTime start;
double elapsed;
if (mprCreate(argc, argv, MPR_USER_EVENTS_THREAD) == 0) {
return MPR_ERR_MEMORY;
}
if ((app = mprAllocObj(App, manageApp)) == 0) {
return MPR_ERR_MEMORY;
}
mprAddRoot(app);
mprAddStandardSignals();
initSettings();
if (parseArgs(argc, argv) < 0) {
return MPR_ERR_BAD_ARGS;
}
mprSetMaxWorkers(app->workers);
if (mprStart() < 0) {
mprError("Cannot start MPR for %s", mprGetAppTitle());
exit(2);
}
start = mprGetTime();
app->http = httpCreate(HTTP_CLIENT_SIDE);
httpEaseLimits(app->http->clientLimits);
#if BIT_STATIC && BIT_PACK_SSL
extern MprModuleEntry mprSslInit;
mprNop(mprSslInit);
#endif
processing();
mprServiceEvents(-1, 0);
if (app->benchmark) {
elapsed = (double) (mprGetTime() - start);
if (app->fetchCount == 0) {
elapsed = 0;
app->fetchCount = 1;
}
mprPrintf("\nRequest Count: %13d\n", app->fetchCount);
mprPrintf("Time elapsed: %13.4f sec\n", elapsed / 1000.0);
mprPrintf("Time per request: %13.4f sec\n", elapsed / 1000.0 / app->fetchCount);
mprPrintf("Requests per second: %13.4f\n", app->fetchCount * 1.0 / (elapsed / 1000.0));
mprPrintf("Load threads: %13d\n", app->loadThreads);
mprPrintf("Worker threads: %13d\n", app->workers);
}
if (!app->success && app->verbose) {
mprError("Request failed");
}
mprDestroy(MPR_EXIT_DEFAULT);
return (app->success) ? 0 : 255;
}
MAIN(httpMain, int argc, char **argv, char **envp)
{
MprTime start;
double elapsed;
int success;
if (mprCreate(argc, argv, MPR_USER_EVENTS_THREAD) == 0) {
return MPR_ERR_MEMORY;
}
if ((app = mprAllocObj(App, manageApp)) == 0) {
return MPR_ERR_MEMORY;
}
mprAddRoot(app);
mprAddStandardSignals();
initSettings();
if ((app->http = httpCreate(HTTP_CLIENT_SIDE)) == 0) {
return MPR_ERR_MEMORY;
}
if (parseArgs(argc, argv) < 0) {
return MPR_ERR_BAD_ARGS;
}
mprSetMaxWorkers(app->workers);
if (mprStart() < 0) {
mprLog("error http", 0, "Cannot start MPR for %s", mprGetAppTitle());
exit(2);
}
start = mprGetTime();
processing();
mprServiceEvents(-1, 0);
if (app->benchmark) {
elapsed = (double) (mprGetTime() - start);
if (app->fetchCount == 0) {
elapsed = 0;
app->fetchCount = 1;
}
mprPrintf("\nRequest Count: %13d\n", app->fetchCount);
mprPrintf("Time elapsed: %13.4f sec\n", elapsed / 1000.0);
mprPrintf("Time per request: %13.4f sec\n", elapsed / 1000.0 / app->fetchCount);
mprPrintf("Requests per second: %13.4f\n", app->fetchCount * 1.0 / (elapsed / 1000.0));
mprPrintf("Load threads: %13d\n", app->loadThreads);
mprPrintf("Worker threads: %13d\n", app->workers);
}
if (!app->success && app->verbose) {
mprLog("error http", 0, "Request failed");
}
success = app->success;
mprDestroy();
return success ? 0 : 255;
}
/*
One-line embedding. Evaluate a script. This will compile and interpret the given script.
*/
int ejsEvalScript(cchar *script)
{
Ejs *ejs;
mprCreate(0, 0, 0);
if ((ejs = ejsCreateVM(0, 0, 0)) == 0) {
mprDestroy(0);
return MPR_ERR_MEMORY;
}
mprAddRoot(ejs);
if (ejsLoadModules(ejs, 0, 0) < 0) {
mprDestroy(0);
return MPR_ERR_CANT_READ;
}
if (ejsLoadScriptLiteral(ejs, ejsCreateStringFromAsc(ejs, script), NULL, EC_FLAGS_NO_OUT | EC_FLAGS_DEBUG) < 0) {
ejsReportError(ejs, "Error in program");
mprDestroy(0);
return MPR_ERR;
}
mprDestroy(MPR_EXIT_DEFAULT);
return 0;
}
/*
One-line embedding. Evaluate a file. This will compile and interpret the given Ejscript source file.
*/
int ejsEvalFile(cchar *path)
{
Ejs *ejs;
mprCreate(0, 0, 0);
if ((ejs = ejsCreateVM(0, 0, 0)) == 0) {
mprDestroy(0);
return MPR_ERR_MEMORY;
}
mprAddRoot(ejs);
if (ejsLoadModules(ejs, 0, 0) < 0) {
mprDestroy(0);
return MPR_ERR_CANT_READ;
}
if (ejsLoadScriptFile(ejs, path, NULL, EC_FLAGS_NO_OUT | EC_FLAGS_DEBUG) < 0) {
ejsReportError(ejs, "Error in program");
mprDestroy(0);
return MPR_ERR;
}
mprDestroy(MPR_EXIT_DEFAULT);
return 0;
}
/*
Run a web server not based on a config file.
*/
PUBLIC int maRunSimpleWebServer(cchar *ip, int port, cchar *home, cchar *documents)
{
Mpr *mpr;
int rc;
if ((mpr = mprCreate(0, NULL, MPR_USER_EVENTS_THREAD)) == 0) {
mprLog("error appweb", 0, "Cannot create the web server runtime");
return MPR_ERR_CANT_CREATE;
}
rc = runServer(0, ip, port, home, documents);
mprDestroy();
return rc;
}
/*
Create a web server described by a config file.
*/
PUBLIC int maRunWebServer(cchar *configFile)
{
Mpr *mpr;
int rc;
if ((mpr = mprCreate(0, NULL, MPR_USER_EVENTS_THREAD)) == 0) {
mprLog("error appweb", 0, "Cannot create the web server runtime");
return MPR_ERR_CANT_CREATE;
}
rc = runServer(configFile, 0, 0, 0, 0);
mprDestroy();
return rc;
}
int main(int argc, char *argv[])
{
Mpr *mpr;
int rc;
mpr = mprCreate(argc, argv, MPR_USER_EVENTS_THREAD);
mprAddStandardSignals();
app = mprAllocObj(App, manageApp);
mprAddRoot(app);
app->host = sclone("127.0.0.1");
app->port = 4100;
if ((ts = mprCreateTestService(mpr)) == 0) {
mprLog("appweb test", 0, "Cannot create test service");
exit(2);
}
if (mprParseTestArgs(ts, argc, argv, parseArgs) < 0) {
mprEprintf("\n"
" Commands specifically for %s\n"
" --host ip:port # Set the default host address for testing\n\n",
mprGetAppName(mpr));
exit(3);
}
if (mprAddTestGroup(ts, &master) == 0) {
exit(4);
}
#if BIT_PACK_SSL
if (mprLoadSsl(0) < 0) {
return 0;
}
#endif
/*
Need a background event thread as we use the main thread to run the tests.
*/
if (mprStart(mpr)) {
mprLog("appweb test", 0, "Cannot start mpr services");
exit(5);
}
/*
Run the tests and return zero if 100% success
*/
rc = mprRunTests(ts);
mprReportTestResults(ts);
mprDestroy();
return (rc == 0) ? 0 : -1;
}
int main(int argc, char **argv)
{
Mpr *mpr;
cchar *dir;
mpr = mprCreate(argc, argv, NULL);
if (mprStart(mpr) < 0) {
mprError("genbyte", "Cannot start mpr services");
return MPR_ERR;
}
dir = (argc == 2) ? argv[1] : ".";
genByteCodeHeader(mpr, dir);
genByteGotoHeader(mpr, dir);
mprDestroy(mpr);
return 0;
}
/*
Run a web server not based on a config file.
*/
int maRunSimpleWebServer(cchar *ip, int port, cchar *home, cchar *documents)
{
Mpr *mpr;
MaServer *server;
MaAppweb *appweb;
int rc;
/*
Initialize and start the portable runtime services.
*/
rc = MPR_ERR_CANT_CREATE;
if ((mpr = mprCreate(0, NULL, 0)) == 0) {
mprError("Can't create the web server runtime");
} else {
if (mprStart(mpr) < 0) {
mprError("Can't start the web server runtime");
} else {
if ((appweb = maCreateAppweb(mpr)) == 0) {
mprError("Can't create the web server http services");
} else {
mprAddRoot(appweb);
if ((server = maCreateServer(appweb, 0)) == 0) {
mprError("Can't create the web server");
} else {
if (maConfigureServer(server, 0, home, documents, ip, port) < 0) {
mprError("Can't create the web server");
} else {
if (maStartServer(server) < 0) {
mprError("Can't start the web server");
} else {
mprServiceEvents(-1, 0);
rc = 0;
}
maStopServer(server);
}
}
mprRemoveRoot(appweb);
}
}
mprDestroy(MPR_EXIT_DEFAULT);
}
return rc;
}
/*
Create a web server described by a config file.
*/
int maRunWebServer(cchar *configFile)
{
Mpr *mpr;
MaAppweb *appweb;
MaServer *server;
int rc;
rc = MPR_ERR_CANT_CREATE;
if ((mpr = mprCreate(0, NULL, 0)) == 0) {
mprError("Can't create the web server runtime");
} else {
if (mprStart() < 0) {
mprError("Can't start the web server runtime");
} else {
if ((appweb = maCreateAppweb(mpr)) == 0) {
mprError("Can't create appweb object");
} else {
mprAddRoot(appweb);
if ((server = maCreateServer(appweb, 0)) == 0) {
mprError("Can't create the web server");
} else {
if (maParseConfig(server, configFile, 0) < 0) {
mprError("Can't parse the config file %s", configFile);
} else {
if (maStartServer(server) < 0) {
mprError("Can't start the web server");
} else {
mprServiceEvents(-1, 0);
rc = 0;
}
maStopServer(server);
}
}
mprRemoveRoot(appweb);
}
}
}
mprDestroy(MPR_EXIT_DEFAULT);
return rc;
}
APIENTRY WinMain(HINSTANCE inst, HINSTANCE junk, char *command, int junk2)
{
char *argv[ME_MAX_ARGC], *argp;
int argc, err, nextArg, manage, stop;
argv[0] = ME_NAME "Monitor";
argc = mprParseArgs(command, &argv[1], ME_MAX_ARGC - 1) + 1;
if (mprCreate(argc, argv, MPR_USER_EVENTS_THREAD | MPR_NO_WINDOW) == NULL) {
exit(1);
}
if ((app = mprAllocObj(App, manageApp)) == NULL) {
exit(2);
}
mprAddRoot(app);
err = 0;
stop = 0;
manage = 0;
app->appInst = inst;
app->company = sclone(ME_COMPANY);
app->serviceName = sclone(ME_NAME);
mprSetLogHandler(logHandler);
chdir(mprGetAppDir());
/*
Parse command line arguments
*/
for (nextArg = 1; nextArg < argc; nextArg++) {
argp = argv[nextArg];
if (*argp != '-') {
break;
}
if (strcmp(argp, "--manage") == 0) {
manage++;
} else if (strcmp(argp, "--stop") == 0) {
stop++;
} else {
err++;
}
if (err) {
mprError("appweb monitor", "Bad command line: %s\n"
" Usage: %s [options]\n"
" Switches:\n"
" --manage # Launch browser to manage",
" --stop # Stop a running monitor",
command, mprGetAppName());
return -1;
}
}
if (stop) {
stopMonitor();
return 0;
}
if (findInstance()) {
mprError("appweb monitor", "Application %s is already active.", mprGetAppTitle());
return MPR_ERR_BUSY;
}
app->hwnd = mprSetWindowsThread(0);
mprSetWinMsgCallback(msgProc);
if (app->taskBarIcon > 0) {
ShowWindow(app->hwnd, SW_MINIMIZE);
UpdateWindow(app->hwnd);
}
if (manage) {
/*
Launch the browser
*/
runBrowser("/index.html");
} else {
if (openMonitorIcon() < 0) {
mprError("appweb monitor", "Cannot open %s tray", mprGetAppName());
} else {
mprServiceEvents(-1, 0);
closeMonitorIcon();
}
}
mprDestroy();
return 0;
}
MAIN(ejsmodMain, int argc, char **argv, char **envp)
{
Mpr *mpr;
EjsMod *mp;
Ejs *ejs;
MprList *requiredModules;
char *argp, *searchPath, *output, *modules, *name, *tok;
int nextArg, err, flags;
err = 0;
output = searchPath = 0;
requiredModules = 0;
/*
Initialze the Multithreaded Portable Runtime (MPR)
*/
mpr = mprCreate(argc, argv, 0);
mprSetAppName(argv[0], 0, 0);
/*
Allocate the primary control structure
*/
if ((mp = mprAllocObj(EjsMod, manageMod)) == NULL) {
return MPR_ERR_MEMORY;
}
mprAddRoot(mp);
mp->lstRecords = mprCreateList(0, 0);
mp->blocks = mprCreateList(0, 0);
mp->docDir = sclone(".");
mp->outputDir = sclone(".");
for (nextArg = 1; nextArg < argc; nextArg++) {
argp = argv[nextArg];
if (*argp != '-') {
break;
}
if (strcmp(argp, "--cslots") == 0) {
mp->cslots = 1;
mp->genSlots = 1;
} else if (strcmp(argp, "--debugger") == 0 || strcmp(argp, "-D") == 0) {
mprSetDebugMode(1);
} else if (strcmp(argp, "--depends") == 0) {
mp->depends = 1;
} else if (strcmp(argp, "--dir") == 0) {
if (nextArg >= argc) {
err++;
} else {
mp->outputDir = sclone(argv[++nextArg]);
}
} else if (strcmp(argp, "--error") == 0) {
/*
Undocumented switch
*/
mp->exitOnError++;
mp->warnOnError++;
} else if (strcmp(argp, "--html") == 0) {
if (nextArg >= argc) {
err++;
} else {
mp->docDir = sclone(argv[++nextArg]);
mp->html = 1;
}
} else if (strcmp(argp, "--listing") == 0) {
mp->listing = 1;
mp->showAsm = 1;
} else if (strcmp(argp, "--log") == 0) {
/*
Undocumented switch
*/
if (nextArg >= argc) {
err++;
} else {
mprStartLogging(argv[++nextArg], 0);
mprSetCmdlineLogging(1);
}
} else if (strcmp(argp, "--out") == 0) {
if (nextArg >= argc) {
err++;
} else {
output = argv[++nextArg];
mp->cslots = 1;
mp->genSlots = 1;
}
} else if (strcmp(argp, "--search") == 0 || strcmp(argp, "--searchpath") == 0) {
if (nextArg >= argc) {
err++;
} else {
searchPath = argv[++nextArg];
}
} else if (strcmp(argp, "--version") == 0 || strcmp(argp, "-V") == 0) {
mprPrintfError("%s %s-%s\n", BIT_NAME, BIT_VERSION, BIT_NUMBER);
return 0;
} else if (strcmp(argp, "--require") == 0) {
if (nextArg >= argc) {
err++;
} else {
if (requiredModules == 0) {
requiredModules = 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(requiredModules, name);
name = stok(NULL, " \t", &tok);
}
}
} else if (strcmp(argp, "--warn") == 0) {
mp->warnOnError++;
} else if (strcmp(argp, "--xml") == 0) {
mp->xml = 1;
} else {
err++;
break;
}
}
if (argc == nextArg) {
err++;
}
if (mp->genSlots == 0 && mp->listing == 0 && mp->html == 0 && mp->xml == 0 && mp->depends == 0) {
mp->listing = 1;
}
if (mp->depends && requiredModules == 0) {
requiredModules = mprCreateList(-1, 0);
}
if (err) {
/*
Examples:
ejsmod file.mod # Defaults to --listing
ejsmod --listing embedthis.mod
ejsmod --out slots.h embedthis.mod
*/
mprPrintfError("Usage: %s [options] modules ...\n"
" Ejscript module manager options:\n"
" --cslots # Generate a C slot definitions file\n"
" --html dir # Generate HTML documentation to the specified directory\n"
" --listing # Create assembler listing files (default)\n"
" --out file # Output file for all C slots (implies --cslots)\n"
" --require \"modules\" # List of modules to preload\n"
" --search ejsPath # Module file search path\n"
" --version # Emit the program version information\n"
" --warn # Warn about undocumented methods or parameters in doc\n\n", mpr->name);
return -1;
}
/*
Need an interpreter to load modules
*/
flags = EJS_FLAG_NO_INIT;
if (mp->html || mp->xml) {
flags |= EJS_FLAG_DOC;
}
if ((ejs = ejsCreateVM(0, 0, flags)) == 0) {
return MPR_ERR_MEMORY;
}
if (ejsLoadModules(ejs, searchPath, requiredModules) < 0) {
return MPR_ERR_CANT_READ;
}
mp->ejs = ejs;
if (nextArg < argc) {
if (process(mp, output, argc - nextArg, &argv[nextArg]) < 0) {
err++;
}
}
if (mp->errorCount > 0) {
err = -1;
}
mprRemoveRoot(mp);
ejsDestroyVM(ejs);
mprDestroy(MPR_EXIT_DEFAULT);
return err;
}
int main(int argc, char *argv[])
{
char *argp, *value;
int err, nextArg, status;
err = 0;
mprCreate(argc, argv, MPR_USER_EVENTS_THREAD);
app = mprAllocObj(App, manageApp);
mprAddRoot(app);
mprAddTerminator(terminating);
mprAddStandardSignals();
setAppDefaults();
for (nextArg = 1; nextArg < argc && !err; nextArg++) {
argp = argv[nextArg];
if (*argp != '-') {
break;
}
if (strcmp(argp, "--args") == 0) {
/*
Args to pass to service
*/
if (nextArg >= argc) {
err++;
} else {
app->serviceArgs = argv[++nextArg];
}
} else if (strcmp(argp, "--console") == 0) {
/* Does nothing. Here for compatibility with windows watcher */
} else if (strcmp(argp, "--daemon") == 0) {
app->runAsDaemon++;
#if FUTURE
} else if (strcmp(argp, "--heartBeat") == 0) {
/*
Set the frequency to check on the program.
*/
if (nextArg >= argc) {
err++;
} else {
app->heartBeatPeriod = atoi(argv[++nextArg]);
}
#endif
} else if (strcmp(argp, "--home") == 0) {
/*
Change to this directory before starting the service
*/
if (nextArg >= argc) {
err++;
} else {
app->serviceHome = sclone(argv[++nextArg]);
}
} else if (strcmp(argp, "--log") == 0) {
/*
Pass the log directive through to the service
*/
if (nextArg >= argc) {
err++;
} else {
app->logSpec = sclone(argv[++nextArg]);
mprStartLogging(app->logSpec, 0);
mprSetCmdlineLogging(1);
}
} else if (strcmp(argp, "--name") == 0) {
if (nextArg >= argc) {
err++;
} else {
app->serviceName = sclone(argv[++nextArg]);
}
} else if (strcmp(argp, "--pidfile") == 0) {
if (nextArg >= argc) {
err++;
} else {
app->pidPath = sclone(argv[++nextArg]);
}
} else if (strcmp(argp, "--program") == 0) {
if (nextArg >= argc) {
err++;
} else {
app->serviceProgram = sclone(argv[++nextArg]);
}
} else if (strcmp(argp, "--retries") == 0) {
if (nextArg >= argc) {
err++;
} else {
app->retries = atoi(argv[++nextArg]);
}
} else if (strcmp(argp, "--signal") == 0) {
if (nextArg >= argc) {
err++;
} else {
value = argv[++nextArg];
if (smatch(value, "SIGABRT")) {
app->signal = SIGABRT;
} else if (smatch(value, "SIGINT")) {
app->signal = SIGINT;
} else if (smatch(value, "SIGHUP")) {
app->signal = SIGHUP;
} else if (smatch(value, "SIGQUIT")) {
app->signal = SIGQUIT;
} else if (smatch(value, "SIGTERM")) {
app->signal = SIGTERM;
} else if (smatch(value, "SIGUSR1")) {
app->signal = SIGUSR1;
} else if (smatch(value, "SIGUSR2")) {
app->signal = SIGUSR2;
} else {
app->signal = atoi(argv[++nextArg]);
}
}
} else if (strcmp(argp, "--verbose") == 0 || strcmp(argp, "-v") == 0) {
mprSetLogLevel(1);
} else {
err++;
break;
}
}
if (nextArg >= argc) {
err++;
}
if (err) {
mprUserError("Bad command line: \n"
" Usage: %s [commands]\n"
" Switches:\n"
" --args # Args to pass to service\n"
" --daemon # Run manager as a daemon\n"
" --home path # Home directory for service\n"
" --log logFile:level # Log directive for service\n"
" --retries count # Max count of app restarts\n"
" --name name # Name of the service to manage\n"
" --pidfile path # Location of the pid file\n"
" --program path # Service program to start\n"
" --signal signo # Signal number to terminate service\n"
" --verbose # Show command feedback\n"
#if FUTURE
" --heartBeat interval # Heart beat interval period (secs) \n"
#endif
" Commands:\n"
" disable # Disable the service\n"
" enable # Enable the service\n"
" install # Install the service\n"
" run # Run and watch over the service\n"
" start # Start the service\n"
" stop # Start the service\n"
" uninstall # Uninstall the service\n"
, app->appName);
return -1;
}
if (!app->pidPath) {
app->pidPath = sjoin(app->pidDir, "/", app->serviceName, ".pid", NULL);
}
if (app->runAsDaemon) {
makeDaemon();
}
status = 0;
if (getuid() != 0) {
mprUserError("Must run with administrator privilege. Use sudo.");
status = 1;
} else if (mprStart() < 0) {
mprUserError("Can't start MPR for %s", mprGetAppName());
status = 2;
} else {
mprStartEventsThread();
for (; nextArg < argc; nextArg++) {
if (!process(argv[nextArg], 0)) {
status = 3;
break;
}
}
}
mprDestroy(MPR_EXIT_DEFAULT);
return status;
}
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(appweb, int argc, char **argv, char **envp)
{
Mpr *mpr;
cchar *ipAddrPort, *argp, *jail;
char *ip, *logSpec;
int argind, port, status, verbose;
ipAddrPort = 0;
ip = 0;
jail = 0;
port = -1;
verbose = 0;
logSpec = 0;
argv[0] = BLD_APPWEB_PATH;
if ((mpr = mprCreate(argc, argv, MPR_USER_EVENTS_THREAD)) == NULL) {
exit(1);
}
mprSetAppName(BLD_PRODUCT, BLD_NAME, BLD_VERSION);
if ((app = mprAllocObj(App, manageApp)) == NULL) {
exit(2);
}
mprAddRoot(app);
mprAddStandardSignals();
#if BLD_FEATURE_ROMFS
extern MprRomInode romFiles[];
mprSetRomFileSystem(romFiles);
#endif
app->mpr = mpr;
app->workers = -1;
app->configFile = BLD_CONFIG_FILE;
app->home = BLD_SERVER_ROOT;
app->documents = app->home;
argc = mpr->argc;
argv = mpr->argv;
for (argind = 1; argind < argc; argind++) {
argp = argv[argind];
if (*argp != '-') {
break;
}
if (smatch(argp, "--config") || smatch(argp, "--conf")) {
if (argind >= argc) {
usageError();
}
app->configFile = sclone(argv[++argind]);
#if BLD_UNIX_LIKE
} else if (smatch(argp, "--chroot")) {
if (argind >= argc) {
usageError();
}
jail = mprGetAbsPath(argv[++argind]);
#endif
} else if (smatch(argp, "--debugger") || smatch(argp, "-D")) {
mprSetDebugMode(1);
} else if (smatch(argp, "--exe")) {
if (argind >= argc) {
usageError();
}
mpr->argv[0] = mprGetAbsPath(argv[++argind]);
mprSetAppPath(mpr->argv[0]);
mprSetModuleSearchPath(NULL);
} else if (smatch(argp, "--home")) {
if (argind >= argc) {
usageError();
}
app->home = mprGetAbsPath(argv[++argind]);
#if UNUSED && KEEP
if (chdir(app->home) < 0) {
mprError("%s: Can't change directory to %s", mprGetAppName(), app->home);
exit(4);
}
#endif
} else if (smatch(argp, "--log") || smatch(argp, "-l")) {
if (argind >= argc) {
usageError();
}
logSpec = argv[++argind];
} else if (smatch(argp, "--name") || smatch(argp, "-n")) {
if (argind >= argc) {
usageError();
}
mprSetAppName(argv[++argind], 0, 0);
} else if (smatch(argp, "--threads")) {
if (argind >= argc) {
usageError();
}
app->workers = atoi(argv[++argind]);
} else if (smatch(argp, "--verbose") || smatch(argp, "-v")) {
verbose++;
} else if (smatch(argp, "--version") || smatch(argp, "-V")) {
mprPrintf("%s %s-%s\n", mprGetAppTitle(), BLD_VERSION, BLD_NUMBER);
exit(0);
} else {
mprError("Unknown switch \"%s\"", argp);
usageError();
exit(5);
}
}
if (logSpec) {
mprStartLogging(logSpec, 1);
mprSetCmdlineLogging(1);
} else if (verbose) {
mprStartLogging(sfmt("stderr:%d", verbose + 1), 1);
mprSetCmdlineLogging(1);
}
if (mprStart() < 0) {
mprUserError("Can't start MPR for %s", mprGetAppName());
mprDestroy(MPR_EXIT_DEFAULT);
return MPR_ERR_CANT_INITIALIZE;
}
if (checkEnvironment(argv[0]) < 0) {
exit(6);
}
if (argc > argind) {
if (argc > (argind + 2)) {
usageError();
}
ipAddrPort = argv[argind++];
if (argc > argind) {
app->documents = sclone(argv[argind++]);
}
mprParseSocketAddress(ipAddrPort, &ip, &port, HTTP_DEFAULT_PORT);
} else if (findConfigFile() < 0) {
exit(7);
}
if (jail && changeRoot(jail) < 0) {
exit(8);
}
if (initialize(ip, port) < 0) {
return MPR_ERR_CANT_INITIALIZE;
}
if (maStartAppweb(app->appweb) < 0) {
mprUserError("Can't start HTTP service, exiting.");
exit(9);
}
/*
Service I/O events until instructed to exit
*/
while (!mprIsStopping()) {
mprServiceEvents(-1, 0);
}
status = mprGetExitStatus();
mprLog(1, "Stopping Appweb ...");
maStopAppweb(app->appweb);
mprDestroy(MPR_EXIT_DEFAULT);
return status;
}
MAIN(http, int argc, char **argv, char **envp)
{
Mpr *mpr;
cchar *argp;
char *logSpec, *traceSpec;
int argind;
logSpec = 0;
traceSpec = 0;
if ((mpr = mprCreate(argc, argv, MPR_USER_EVENTS_THREAD)) == NULL) {
exit(1);
}
if ((app = mprAllocObj(App, manageApp)) == NULL) {
exit(2);
}
mprAddRoot(app);
mprAddStandardSignals();
if (httpCreate(HTTP_CLIENT_SIDE | HTTP_SERVER_SIDE) < 0) {
exit(2);
}
app->mpr = mpr;
app->home = mprGetCurrentPath();
argc = mpr->argc;
argv = (char**) mpr->argv;
for (argind = 1; argind < argc; argind++) {
argp = argv[argind];
if (*argp != '-') {
break;
}
if (smatch(argp, "--config") || smatch(argp, "--conf")) {
if (argind >= argc) {
usageError();
}
app->configFile = sclone(argv[++argind]);
} else if (smatch(argp, "--debugger") || smatch(argp, "-D")) {
mprSetDebugMode(1);
} else if (smatch(argp, "--log") || smatch(argp, "-l")) {
if (argind >= argc) {
usageError();
}
logSpec = argv[++argind];
} else if (smatch(argp, "--name") || smatch(argp, "-n")) {
if (argind >= argc) {
usageError();
}
mprSetAppName(argv[++argind], 0, 0);
} else if (smatch(argp, "--show") || smatch(argp, "-s")) {
app->show = 1;
} else if (smatch(argp, "--trace") || smatch(argp, "-t")) {
if (argind >= argc) {
usageError();
}
traceSpec = argv[++argind];
} else if (smatch(argp, "--verbose") || smatch(argp, "-v")) {
if (!logSpec) {
logSpec = sfmt("stderr:2");
}
if (!traceSpec) {
traceSpec = sfmt("stderr:2");
}
} else if (smatch(argp, "--version") || smatch(argp, "-V")) {
mprPrintf("%s\n", ME_VERSION);
exit(0);
} else if (*argp == '-' && isdigit((uchar) argp[1])) {
if (!logSpec) {
logSpec = sfmt("stderr:%d", (int) stoi(&argp[1]));
}
if (!traceSpec) {
traceSpec = sfmt("stderr:%d", (int) stoi(&argp[1]));
}
} else if (smatch(argp, "-?") || scontains(argp, "-help")) {
usageError();
exit(3);
} else if (*argp == '-') {
mprLog("error http", 0, "Unknown switch \"%s\"", argp);
usageError();
exit(4);
}
}
if (logSpec) {
mprStartLogging(logSpec, MPR_LOG_CMDLINE);
}
if (traceSpec) {
httpStartTracing(traceSpec);
}
if (mprStart() < 0) {
mprLog("error http", 0, "Cannot start MPR");
mprDestroy();
return MPR_ERR_CANT_INITIALIZE;
}
if (argc == argind && !app->configFile) {
if (findConfig() < 0) {
exit(5);
}
}
if (createEndpoints(argc - argind, &argv[argind]) < 0) {
return MPR_ERR_CANT_INITIALIZE;
}
if (httpStartEndpoints() < 0) {
mprLog("error http", 0, "Cannot start HTTP service, exiting.");
exit(6);
}
if (app->show) {
httpLogRoutes(0, 0);
}
mprServiceEvents(-1, 0);
mprLog("info http", 1, "Stopping http-server ...");
mprDestroy();
return mprGetExitStatus();
}
MAIN(appweb, int argc, char **argv, char **envp)
{
Mpr *mpr;
cchar *argp, *jail;
char *logSpec, *traceSpec;
int argind;
jail = 0;
logSpec = 0;
traceSpec = 0;
if ((mpr = mprCreate(argc, argv, MPR_USER_EVENTS_THREAD)) == NULL) {
exit(1);
}
if ((app = mprAllocObj(AppwebApp, manageApp)) == NULL) {
exit(2);
}
mprAddRoot(app);
mprAddStandardSignals();
#if ME_ROM
extern MprRomInode romFiles[];
mprSetRomFileSystem(romFiles);
#endif
if (httpCreate(HTTP_CLIENT_SIDE | HTTP_SERVER_SIDE) == 0) {
exit(3);
}
app->mpr = mpr;
app->workers = -1;
app->home = sclone(ME_SERVER_ROOT);
app->documents = app->home;
argc = mpr->argc;
argv = (char**) mpr->argv;
for (argind = 1; argind < argc; argind++) {
argp = argv[argind];
if (*argp != '-') {
break;
}
if (smatch(argp, "--config") || smatch(argp, "--conf")) {
if (argind >= argc) {
usageError();
}
app->configFile = sclone(argv[++argind]);
#if ME_UNIX_LIKE
} else if (smatch(argp, "--chroot")) {
if (argind >= argc) {
usageError();
}
jail = mprGetAbsPath(argv[++argind]);
#endif
} else if (smatch(argp, "--debugger") || smatch(argp, "-D")) {
mprSetDebugMode(1);
} else if (smatch(argp, "--exe")) {
if (argind >= argc) {
usageError();
}
mpr->argv[0] = mprGetAbsPath(argv[++argind]);
mprSetAppPath(mpr->argv[0]);
mprSetModuleSearchPath(NULL);
} else if (smatch(argp, "--home")) {
if (argind >= argc) {
usageError();
}
app->home = sclone(argv[++argind]);
if (chdir(app->home) < 0) {
mprLog("error appweb", 0, "Cannot change directory to %s", app->home);
exit(4);
}
} else if (smatch(argp, "--log") || smatch(argp, "-l")) {
if (argind >= argc) {
usageError();
}
logSpec = argv[++argind];
} else if (smatch(argp, "--name") || smatch(argp, "-n")) {
if (argind >= argc) {
usageError();
}
mprSetAppName(argv[++argind], 0, 0);
} else if (smatch(argp, "--threads")) {
if (argind >= argc) {
usageError();
}
app->workers = atoi(argv[++argind]);
} else if (smatch(argp, "--show") || smatch(argp, "-s")) {
app->show = 1;
} else if (smatch(argp, "--trace") || smatch(argp, "-t")) {
if (argind >= argc) {
usageError();
}
traceSpec = argv[++argind];
} else if (smatch(argp, "--verbose") || smatch(argp, "-v")) {
if (!logSpec) {
logSpec = sfmt("stderr:2");
}
if (!traceSpec) {
traceSpec = sfmt("stderr:2");
}
} else if (smatch(argp, "--version") || smatch(argp, "-V")) {
mprPrintf("%s\n", ME_VERSION);
exit(0);
} else if (*argp == '-' && isdigit((uchar) argp[1])) {
if (!logSpec) {
logSpec = sfmt("stderr:%d", (int) stoi(&argp[1]));
}
if (!traceSpec) {
traceSpec = sfmt("stderr:%d", (int) stoi(&argp[1]));
}
} else if (smatch(argp, "-?") || scontains(argp, "-help")) {
usageError();
exit(5);
} else if (*argp == '-') {
mprLog("error appweb", 0, "Unknown switch \"%s\"", argp);
usageError();
exit(5);
}
}
app->home = mprGetAbsPath(app->home);
if (logSpec) {
mprStartLogging(logSpec, MPR_LOG_DETAILED | MPR_LOG_CONFIG | MPR_LOG_CMDLINE);
}
if (traceSpec) {
httpStartTracing(traceSpec);
}
if (mprStart() < 0) {
mprLog("error appweb", 0, "Cannot start MPR");
mprDestroy();
return MPR_ERR_CANT_INITIALIZE;
}
if (checkEnvironment(argv[0]) < 0) {
exit(6);
}
if (argc == argind && !app->configFile) {
if (findAppwebConf() < 0) {
exit(7);
}
}
if (jail && changeRoot(jail) < 0) {
exit(8);
}
if (createEndpoints(argc - argind, &argv[argind]) < 0) {
return MPR_ERR_CANT_INITIALIZE;
}
if (maStartAppweb(app->appweb) < 0) {
mprLog("error appweb", 0, "Cannot start HTTP service, exiting.");
exit(9);
}
if (app->show) {
httpLogRoutes(0, 0);
}
mprServiceEvents(-1, 0);
mprLog("info appweb", 1, "Stopping Appweb ...");
mprDestroy();
return mprGetExitStatus();
}
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;
}
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;
}
MAIN(appweb, int argc, char **argv, char **envp)
{
Mpr *mpr;
cchar *argp, *jail;
char *logSpec;
int argind, status, verbose;
jail = 0;
verbose = 0;
logSpec = 0;
if ((mpr = mprCreate(argc, argv, MPR_USER_EVENTS_THREAD)) == NULL) {
exit(1);
}
mprSetAppName(BIT_PRODUCT, BIT_TITLE, BIT_VERSION);
/*
Allocate the top level application object. ManageApp is the GC manager function and is called
by the GC to mark references in the app object.
*/
if ((app = mprAllocObj(AppwebApp, manageApp)) == NULL) {
exit(2);
}
mprAddRoot(app);
mprAddStandardSignals();
app->mpr = mpr;
app->configFile = sclone("appweb.conf");
app->home = mprGetCurrentPath();
app->documents = app->home;
argc = mpr->argc;
argv = (char**) mpr->argv;
for (argind = 1; argind < argc; argind++) {
argp = argv[argind];
if (*argp != '-') {
break;
}
if (smatch(argp, "--config") || smatch(argp, "--conf")) {
if (argind >= argc) {
usageError();
}
app->configFile = sclone(argv[++argind]);
#if BIT_UNIX_LIKE
} else if (smatch(argp, "--chroot")) {
if (argind >= argc) {
usageError();
}
jail = mprGetAbsPath(argv[++argind]);
#endif
} else if (smatch(argp, "--debugger") || smatch(argp, "-D")) {
mprSetDebugMode(1);
} else if (smatch(argp, "--exe")) {
if (argind >= argc) {
usageError();
}
mpr->argv[0] = mprGetAbsPath(argv[++argind]);
mprSetAppPath(mpr->argv[0]);
mprSetModuleSearchPath(NULL);
} else if (smatch(argp, "--home")) {
if (argind >= argc) {
usageError();
}
app->home = mprGetAbsPath(argv[++argind]);
if (chdir(app->home) < 0) {
mprError("%s: Cannot change directory to %s", mprGetAppName(), app->home);
exit(4);
}
} else if (smatch(argp, "--log") || smatch(argp, "-l")) {
if (argind >= argc) {
usageError();
}
logSpec = argv[++argind];
} else if (smatch(argp, "--name") || smatch(argp, "-n")) {
if (argind >= argc) {
usageError();
}
mprSetAppName(argv[++argind], 0, 0);
} else if (smatch(argp, "--verbose") || smatch(argp, "-v")) {
verbose++;
} else if (smatch(argp, "--version") || smatch(argp, "-V")) {
mprPrintf("%s-%s\n", BIT_VERSION, BIT_BUILD_NUMBER);
exit(0);
} else {
if (!smatch(argp, "?")) {
mprError("Unknown switch \"%s\"", argp);
}
usageError();
exit(5);
}
}
if (logSpec) {
mprStartLogging(logSpec, 1);
mprSetCmdlineLogging(1);
} else if (verbose) {
mprStartLogging(sfmt("stderr:%d", verbose + 1), 1);
mprSetCmdlineLogging(1);
}
/*
Start the multithreaded portable runtime (MPR)
*/
if (mprStart() < 0) {
mprError("Cannot start MPR for %s", mprGetAppName());
mprDestroy(MPR_EXIT_DEFAULT);
return MPR_ERR_CANT_INITIALIZE;
}
if (checkEnvironment(argv[0]) < 0) {
exit(6);
}
if (findAppwebConf() < 0) {
exit(7);
}
if (jail && changeRoot(jail) < 0) {
exit(8);
}
/*
Open the sockets to listen on
*/
if (createEndpoints(argc - argind, &argv[argind]) < 0) {
return MPR_ERR_CANT_INITIALIZE;
}
/*
Start HTTP services
*/
if (maStartAppweb(app->appweb) < 0) {
mprError("Cannot start HTTP service, exiting.");
exit(9);
}
/*
Service I/O events until instructed to exit
*/
while (!mprIsStopping()) {
mprServiceEvents(-1, 0);
}
status = mprGetExitStatus();
mprLog(1, "Stopping Appweb ...");
maStopAppweb(app->appweb);
mprDestroy(MPR_EXIT_DEFAULT);
return status;
}