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();
}
int APIENTRY WinMain(HINSTANCE inst, HINSTANCE junk, char *args, int junk2)
{
char **argv, *argp;
int argc, err, nextArg, manage, stop;
mpr = mprCreate(0, NULL, NULL);
err = 0;
manage = 0;
appInst = inst;
stop = 0;
serviceName = BLD_COMPANY "-" BLD_PRODUCT;
serviceTitle = BLD_NAME;
serviceWindowName = BLD_PRODUCT "Angel";
serviceWindowTitle = BLD_NAME "Angel";
mprSetAppName(mpr, BLD_PRODUCT "Monitor", BLD_NAME " Monitor", BLD_VERSION);
appName = mprGetAppName(mpr);
appTitle = mprGetAppTitle(mpr);
mprSetLogHandler(mpr, logHandler, NULL);
chdir(mprGetAppDir(mpr));
/*
* Parse command line arguments
*/
if (mprMakeArgv(mpr, "", args, &argc, &argv) < 0) {
return FALSE;
}
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) {
mprUserError(mpr, "Bad command line: %s\n"
" Usage: %s [options]\n"
" Switches:\n"
" --manage # Launch browser to manage",
" --stop # Stop a running monitor",
args, appName);
return -1;
}
}
if (stop) {
stopMonitor();
return 0;
}
if (findInstance(mpr)) {
mprUserError(mpr, "Application %s is already active.", mprGetAppTitle(mpr));
return MPR_ERR_BUSY;
}
/*
* Create the window
*/
if (initWindow(mpr) < 0) {
mprUserError(mpr, "Can't initialize application Window");
return MPR_ERR_CANT_INITIALIZE;
}
if (manage) {
/*
* Launch the browser
*/
runBrowser("/index.html");
} else {
if (openMonitorIcon() < 0) {
mprUserError(mpr, "Can't open %s tray", appName);
} else {
eventLoop();
closeMonitorIcon();
}
}
// mprFree(mpr);
return 0;
}
int APIENTRY WinMain(HINSTANCE inst, HINSTANCE junk, char *args, int junk2)
{
char **argv, *argp;
int argc, err, nextArg;
mpr = mprCreate(0, NULL, MPR_USER_EVENTS_THREAD);
app = mprAllocObj(App, manageApp);
mprAddRoot(app);
mprAddTerminator(terminating);
err = 0;
app->appInst = inst;
app->heartBeatPeriod = HEART_BEAT_PERIOD;
setAppDefaults();
mprSetAppName(BLD_PRODUCT "Manager", BLD_NAME "Manager", BLD_VERSION);
app->appName = mprGetAppName();
app->appTitle = mprGetAppTitle(mpr);
mprSetLogHandler(logHandler);
mprSetWinMsgCallback((MprMsgCallback) msgProc);
if ((argc = mprMakeArgv(args, &argv, MPR_ARGV_ARGS_ONLY)) < 0) {
return FALSE;
}
for (nextArg = 1; nextArg < argc; nextArg++) {
argp = argv[nextArg];
if (*argp != '-' || strcmp(argp, "--") == 0) {
break;
}
if (strcmp(argp, "--args") == 0) {
/*
Args to pass to service when it starts
*/
if (nextArg >= argc) {
err++;
} else {
app->serviceArgs = argv[++nextArg];
}
} else if (strcmp(argp, "--console") == 0) {
/*
Allow the service to interact with the console
*/
app->createConsole++;
} else if (strcmp(argp, "--daemon") == 0) {
/* Ignored on windows */
} else if (strcmp(argp, "--heartBeat") == 0) {
/*
Set the heart beat period
*/
if (nextArg >= argc) {
err++;
} else {
app->heartBeatPeriod = atoi(argv[++nextArg]) * 1000;
}
} 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, "--program") == 0) {
if (nextArg >= argc) {
err++;
} else {
app->serviceProgram = sclone(argv[++nextArg]);
}
} else if (strcmp(argp, "--verbose") == 0 || strcmp(argp, "-v") == 0) {
mprSetLogLevel(1);
} else {
err++;
}
if (err) {
mprUserError("Bad command line: %s\n"
" Usage: %s [options] [program args]\n"
" Switches:\n"
" --args # Args to pass to service\n"
" --console # Display the service console\n"
" --heartBeat interval # Heart beat interval period (secs)\n"
" --home path # Home directory for service\n"
" --log logFile:level # Log directive for service\n"
" --name name # Name of the service to manage\n"
" --program path # Service program to start\n"
" --verbose # Show command feedback\n"
" Commands:\n"
" disable # Disable the service\n"
" enable # Enable the service\n"
" start # Start the service\n"
" stop # Start the service\n"
" run # Run and watch over the service\n",
args, app->appName);
return -1;
}
}
if (mprStart() < 0) {
mprUserError("Can't start MPR for %s", mprGetAppName());
} else {
mprStartEventsThread();
if (nextArg >= argc) {
return process("run");
} else for (; nextArg < argc; nextArg++) {
if (!process(argv[nextArg])) {
return FALSE;
}
}
}
return TRUE;
}
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;
}
MAIN(appweb, int argc, char **argv)
{
Mpr *mpr;
MaHttp *http;
cchar *ipAddrPort, *documentRoot, *argp, *logSpec;
char *configFile, *ipAddr, *homeDir, *timeText, *ejsPrefix, *ejsPath, *changeRoot;
int workers, outputVersion, argind, port;
documentRoot = 0;
changeRoot = ejsPrefix = ejsPath = 0;
ipAddrPort = 0;
ipAddr = 0;
port = -1;
logSpec = 0;
server = 0;
outputVersion = 0;
workers = -1;
configFile = BLD_FEATURE_CONFIG_FILE;
homeDir = BLD_FEATURE_SERVER_ROOT;
mpr = mprCreate(argc, argv, memoryFailure);
argc = mpr->argc;
argv = mpr->argv;
#if BLD_FEATURE_ROMFS
extern MprRomInode romFiles[];
mprSetRomFileSystem(mpr, romFiles);
#endif
if (osInit(mpr) < 0) {
exit(2);
}
if (mprStart(mpr, 0) < 0) {
mprUserError(mpr, "Can't start MPR for %s", mprGetAppName(mpr));
mprFree(mpr);
return MPR_ERR_CANT_INITIALIZE;
}
for (argind = 1; argind < argc; argind++) {
argp = argv[argind];
if (*argp != '-') {
break;
}
if (strcmp(argp, "--config") == 0) {
if (argind >= argc) {
return printUsage(mpr);
}
configFile = argv[++argind];
#if BLD_UNIX_LIKE
} else if (strcmp(argp, "--chroot") == 0) {
if (argind >= argc) {
return printUsage(mpr);
}
changeRoot = mprGetAbsPath(mpr, argv[++argind]);
#endif
} else if (strcmp(argp, "--debug") == 0 || strcmp(argp, "-D") == 0 ||
strcmp(argp, "-d") == 0 || strcmp(argp, "--debugger") == 0) {
mprSetDebugMode(mpr, 1);
} else if (strcmp(argp, "--ejs") == 0) {
if (argind >= argc) {
return printUsage(mpr);
}
ejsPrefix = mprStrdup(mpr, argv[++argind]);
if ((ejsPath = strchr(ejsPrefix, ':')) != 0) {
*ejsPath++ = '\0';
}
ejsPath = mprGetAbsPath(mpr, ejsPath);
} else if (strcmp(argp, "--home") == 0) {
if (argind >= argc) {
return printUsage(mpr);
}
homeDir = mprGetAbsPath(mpr, argv[++argind]);
if (chdir((char*) homeDir) < 0) {
mprPrintfError(mpr, "%s: Can't change directory to %s\n", mprGetAppName(mpr), homeDir);
exit(2);
}
} else if (strcmp(argp, "--log") == 0 || strcmp(argp, "-l") == 0) {
if (argind >= argc) {
return printUsage(mpr);
}
logSpec = argv[++argind];
maStartLogging(mpr, logSpec);
} else if (strcmp(argp, "--name") == 0 || strcmp(argp, "-n") == 0) {
if (argind >= argc) {
return printUsage(mpr);
}
mprSetAppName(mpr, argv[++argind], 0, 0);
} else if (strcmp(argp, "--threads") == 0) {
if (argind >= argc) {
return printUsage(mpr);
}
workers = atoi(argv[++argind]);
} else if (strcmp(argp, "--verbose") == 0 || strcmp(argp, "-v") == 0) {
maStartLogging(mpr, "stdout:2");
} else if (strcmp(argp, "--version") == 0 || strcmp(argp, "-V") == 0) {
outputVersion++;
} else {
mprPrintfError(mpr, "Unknown switch \"%s\"\n", argp);
printUsage(mpr);
exit(2);
}
}
if (argc > argind) {
if (argc > (argind + 2)) {
return printUsage(mpr);
}
ipAddrPort = argv[argind++];
if (argc > argind) {
documentRoot = argv[argind++];
} else {
documentRoot = ".";
}
}
if (outputVersion) {
mprPrintf(mpr, "%s %s-%s\n", mprGetAppTitle(mpr), BLD_VERSION, BLD_NUMBER);
exit(0);
}
if (ipAddrPort) {
mprParseIp(mpr, ipAddrPort, &ipAddr, &port, MA_SERVER_DEFAULT_PORT_NUM);
} else {
#if BLD_FEATURE_CONFIG_PARSE
if (configFile == 0) {
configFile = mprStrcat(mpr, -1, mprGetAppName(mpr), ".conf", NULL);
}
if (!mprPathExists(mpr, configFile, R_OK)) {
mprPrintfError(mpr, "Can't open config file %s\n", configFile);
exit(2);
}
#else
return printUsage(mpr);
#endif
#if !BLD_FEATURE_ROMFS
if (homeDir == 0) {
homeDir = mprGetPathParent(mpr, configFile);
if (chdir((char*) homeDir) < 0) {
mprPrintfError(mpr, "%s: Can't change directory to %s\n", mprGetAppName(mpr), homeDir);
exit(2);
}
}
#endif
}
homeDir = mprGetCurrentPath(mpr);
if (checkEnvironment(mpr, argv[0], homeDir) < 0) {
exit(3);
}
#if BLD_UNIX_LIKE
if (changeRoot) {
homeDir = mprGetAbsPath(mpr, changeRoot);
if (chdir(homeDir) < 0) {
mprError(mpr, "%s: Can't change directory to %s", homeDir);
exit(4);
}
if (chroot(homeDir) < 0) {
if (errno == EPERM) {
mprError(mpr, "%s: Must be super user to use the --chroot option", mprGetAppName(mpr));
} else {
mprError(mpr, "%s: Can't change change root directory to %s, errno %d",
mprGetAppName(mpr), homeDir, errno);
}
exit(5);
}
}
#endif
/*
* Create the top level HTTP service and default HTTP server. Set the initial server root to "."
*/
http = maCreateHttp(mpr);
if (http == 0) {
mprUserError(mpr, "Can't create HTTP service for %s", mprGetAppName(mpr));
return MPR_ERR_CANT_INITIALIZE;
}
server = maCreateServer(http, "default", ".", 0, -1);
if (server == 0) {
mprUserError(mpr, "Can't create HTTP server for %s", mprGetAppName(mpr));
return MPR_ERR_CANT_INITIALIZE;
}
if (maConfigureServer(mpr, http, server, configFile, ipAddr, port, documentRoot) < 0) {
/* mprUserError(mpr, "Can't configure the server, exiting."); */
exit(6);
}
if (mpr->ipAddr) {
mprLog(mpr, 2, "Server IP address %s", mpr->ipAddr);
}
timeText = mprFormatLocalTime(mpr, mprGetTime(mpr));
mprLog(mpr, 1, "Started at %s", timeText);
mprFree(timeText);
#if BLD_FEATURE_EJS
if (ejsPrefix) {
createEjsAlias(mpr, http, server, ejsPrefix, ejsPath);
}
#endif
#if BLD_FEATURE_MULTITHREAD
if (workers >= 0) {
mprSetMaxWorkers(http, workers);
}
#endif
#if BLD_WIN_LIKE
if (!ejsPrefix) {
writePort(server->defaultHost);
}
#endif
if (maStartHttp(http) < 0) {
mprUserError(mpr, "Can't start HTTP service, exiting.");
exit(7);
}
#if BLD_FEATURE_MULTITHREAD
mprLog(mpr, 1, "HTTP services are ready with max %d worker threads", mprGetMaxWorkers(mpr));
#else
mprLog(mpr, 1, "HTTP services are ready (single-threaded)");
#endif
/*
* Service I/O events until instructed to exit
*/
while (!mprIsExiting(mpr)) {
mprServiceEvents(mpr->dispatcher, -1, MPR_SERVICE_EVENTS | MPR_SERVICE_IO);
}
/*
* Signal a graceful shutdown
*/
mprLog(http, 1, "Exiting ...");
maStopHttp(http);
mprLog(http, 1, "Exit complete");
#if VXWORKS
if (mprStop(mpr)) {
mprFree(mpr);
}
#endif
return 0;
}
int main(int argc, char **argv)
{
cchar *searchPath, *argp, *program;
int nextArg, err;
/*
* Create the Embedthis Portable Runtime (MPR) and setup a memory failure handler
*/
mpr = mprCreate(argc, argv, ejsMemoryFailure);
program = mprGetBaseName(argv[0]);
mprSetAppName(mpr, program, 0, 0);
if (strcmp(program, "ejscgi-debug") == 0) {
debug++;
}
if (mprStart(mpr, 0) < 0) {
mprError(mpr, "Can't start mpr services");
return EJS_ERR;
}
for (err = 0, nextArg = 1; nextArg < argc; nextArg++) {
argp = argv[nextArg];
if (*argp != '-') {
break;
}
if (strcmp(argp, "--debug") == 0 || strcmp(argp, "-d") == 0) {
debug++;
#if BLD_DEBUG
} else if (strcmp(argp, "--dummy") == 0) {
dummy++;
#endif
} else if (strcmp(argp, "--log") == 0 || strcmp(argp, "-l") == 0) {
if (nextArg >= argc) {
err++;
} else {
ejsStartLogging(mpr, argv[++nextArg]);
}
} else if (strcmp(argp, "--searchpath") == 0) {
if (nextArg >= argc) {
err++;
} else {
searchPath = argv[++nextArg];
}
} 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 {
err++;
break;
}
}
if (err) {
mprErrorPrintf(mpr,
"Usage: %s [options]\n"
" Options:\n"
" --log logSpec # Diagnostic trace\n"
" --searchpath ejsPath # Module search path\n"
" --version # Emit the program version information\n\n",
mpr->name);
return -1;
}
if (initControlBlock() < 0) {
error(NULL, 0, "Can't initialize control block");
exit(1);
}
// FAST CGI must update this
currentDate = getDateString(0);
if (getRequest() < 0) {
error(NULL, 0, "Can't get request");
} else {
processRequest();
}
if (responseCode && responseMsg) {
fprintf(stderr, "ejscgi: ERROR: %s\n", responseMsg);
}
return 0;
}
APIENTRY WinMain(HINSTANCE inst, HINSTANCE junk, char *command, int junk2)
{
char *argv[MPR_MAX_ARGC], *argp;
int argc, err, nextArg, manage, stop;
argc = mprParseArgs(command, &argv[1], MPR_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->serviceName = sclone(BIT_COMPANY "-" BIT_PRODUCT);
app->serviceTitle = sclone(BIT_TITLE);
app->serviceWindowName = sclone(BIT_PRODUCT "Angel");
app->serviceWindowTitle = sclone(BIT_TITLE "Angel");
mprSetAppName(BIT_PRODUCT "Monitor", BIT_TITLE " Monitor", BIT_VERSION);
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) {
mprUserError("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()) {
mprUserError("Application %s is already active.", mprGetAppTitle());
return MPR_ERR_BUSY;
}
if (mprInitWindow() < 0) {
mprUserError("Can't initialize application Window");
return MPR_ERR_CANT_INITIALIZE;
}
app->appHwnd = mprGetHwnd();
mprSetWinMsgCallback(msgProc);
if (app->taskBarIcon > 0) {
ShowWindow(app->appHwnd, SW_MINIMIZE);
UpdateWindow(app->appHwnd);
}
if (manage) {
/*
Launch the browser
*/
runBrowser("/index.html");
} else {
if (openMonitorIcon() < 0) {
mprUserError("Can't open %s tray", mprGetAppName());
} else {
eventLoop();
closeMonitorIcon();
}
}
return 0;
}
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(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(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;
}
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;
}
int APIENTRY WinMain(HINSTANCE inst, HINSTANCE junk, char *args, int junk2)
{
char **argv, *argp, *serviceArgs, *homeDir;
int argc, err, nextArg, installFlag;
mpr = mprCreate(0, NULL, NULL);
appInst = inst;
serviceArgs = 0;
err = 0;
exiting = 0;
installFlag = 0;
homeDir = 0;
heartBeatPeriod = HEART_BEAT_PERIOD;
initService();
mprSetAppName(mpr, BLD_PRODUCT "Angel", BLD_NAME "Angel", BLD_VERSION);
appName = mprGetAppName(mpr);
appTitle = mprGetAppTitle(mpr);
mprSetLogHandler(mpr, logHandler, NULL);
/*
* Create the window
*/
if (initWindow() < 0) {
mprError(mpr, "Can't initialize application Window");
return FALSE;
}
/*
* Parse command line arguments
*/
if (mprMakeArgv(mpr, "", args, &argc, &argv) < 0) {
return FALSE;
}
for (nextArg = 1; nextArg < argc; nextArg++) {
argp = argv[nextArg];
if (*argp != '-' || strcmp(argp, "--") == 0) {
break;
}
if (strcmp(argp, "--args") == 0) {
/*
* Args to pass to service when it starts
*/
if (nextArg >= argc) {
err++;
} else {
serviceArgs = argv[++nextArg];
}
} else if (strcmp(argp, "--console") == 0) {
/*
* Allow the service to interact with the console
*/
createConsole++;
} else if (strcmp(argp, "--daemon") == 0) {
/* Ignored on windows */
} else if (strcmp(argp, "--heartBeat") == 0) {
/*
* Set the heart beat period
*/
if (nextArg >= argc) {
err++;
} else {
heartBeatPeriod = atoi(argv[++nextArg]) * 1000;
}
} else if (strcmp(argp, "--home") == 0) {
/*
* Change to this directory before starting the service
*/
if (nextArg >= argc) {
err++;
} else {
homeDir = argv[++nextArg];
}
} else if (strcmp(argp, "--program") == 0) {
if (nextArg >= argc) {
err++;
} else {
serviceProgram = argv[++nextArg];
}
} else if (strcmp(argp, "--install") == 0) {
installFlag++;
} else if (strcmp(argp, "--start") == 0) {
/*
* Start the angel
*/
if (startService() < 0) {
return FALSE;
}
mprSleep(mpr, 2000); /* Time for service to really start */
} else if (strcmp(argp, "--stop") == 0) {
/*
* Stop the angel
*/
if (removeService(0) < 0) {
return FALSE;
}
} else if (strcmp(argp, "--uninstall") == 0) {
/*
* Remove the angel
*/
if (removeService(1) < 0) {
return FALSE;
}
} else if (strcmp(argp, "--verbose") == 0 || strcmp(argp, "-v") == 0) {
verbose++;
} else {
err++;
}
if (err) {
mprUserError(mpr,
"Bad command line: %s\n"
" Usage: %s [options] [program args]\n"
" Switches:\n"
" --args # Args to pass to service\n"
" --console # Display the service console\n"
" --heartBeat interval # Heart beat interval period (secs)\n"
" --home path # Home directory for service\n"
" --install # Install the service\n"
" --program # Service program to start\n"
" --start # Start the service\n"
" --stop # Stop the service\n"
" --uninstall # Uninstall the service",
args, appName);
return -1;
}
}
if (installFlag) {
/*
* Install the angel
*/
if (installService(homeDir, serviceArgs) < 0) {
return FALSE;
}
}
if (argc <= 1) {
/*
* This will block if we are a service and are being started by the
* service control manager. While blocked, the svcMain will be called
* which becomes the effective main program.
*/
startDispatcher(serviceMain);
}
return 0;
}
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();
}
