PUBLIC void httpInitLimits(HttpLimits *limits, bool serverSide)
{
memset(limits, 0, sizeof(HttpLimits));
limits->bufferSize = ME_MAX_QBUFFER;
limits->cacheItemSize = ME_MAX_CACHE_ITEM;
limits->chunkSize = ME_MAX_CHUNK;
limits->clientMax = ME_MAX_CLIENTS;
limits->connectionsMax = ME_MAX_CONNECTIONS;
limits->headerMax = ME_MAX_NUM_HEADERS;
limits->headerSize = ME_MAX_HEADERS;
limits->keepAliveMax = ME_MAX_KEEP_ALIVE;
limits->processMax = ME_MAX_PROCESSES;
limits->requestsPerClientMax = ME_MAX_REQUESTS_PER_CLIENT;
limits->sessionMax = ME_MAX_SESSIONS;
limits->uriSize = ME_MAX_URI;
limits->inactivityTimeout = ME_MAX_INACTIVITY_DURATION;
limits->requestTimeout = ME_MAX_REQUEST_DURATION;
limits->requestParseTimeout = ME_MAX_PARSE_DURATION;
limits->sessionTimeout = ME_MAX_SESSION_DURATION;
limits->webSocketsMax = ME_MAX_WSS_SOCKETS;
limits->webSocketsMessageSize = ME_MAX_WSS_MESSAGE;
limits->webSocketsFrameSize = ME_MAX_WSS_FRAME;
limits->webSocketsPacketSize = ME_MAX_WSS_PACKET;
limits->webSocketsPing = ME_MAX_PING_DURATION;
if (serverSide) {
limits->rxFormSize = ME_MAX_RX_FORM;
limits->rxBodySize = ME_MAX_RX_BODY;
limits->txBodySize = ME_MAX_TX_BODY;
limits->uploadSize = ME_MAX_UPLOAD;
} else {
limits->rxFormSize = HTTP_UNLIMITED;
limits->rxBodySize = HTTP_UNLIMITED;
limits->txBodySize = HTTP_UNLIMITED;
limits->uploadSize = HTTP_UNLIMITED;
}
#if KEEP
mprSetMaxSocketClients(endpoint, atoi(value));
if (scaselesscmp(key, "LimitClients") == 0) {
mprSetMaxSocketClients(endpoint, atoi(value));
return 1;
}
if (scaselesscmp(key, "LimitMemoryMax") == 0) {
mprSetAllocLimits(endpoint, -1, atoi(value));
return 1;
}
if (scaselesscmp(key, "LimitMemoryRedline") == 0) {
mprSetAllocLimits(endpoint, atoi(value), -1);
return 1;
}
#endif
}
/*
function secure(keyFile: Path, certFile: Path!, protocols: Array? = null, ciphers: Array? = null): Void
*/
static EjsObj *hs_secure(Ejs *ejs, EjsHttpServer *sp, int argc, EjsObj **argv)
{
#if ME_COM_SSL
EjsArray *protocols;
cchar *token;
int mask, protoMask, i;
if (sp->ssl == 0 && ((sp->ssl = mprCreateSsl(1)) == 0)) {
return 0;
}
if (!ejsIs(ejs, argv[0], Null)) {
mprSetSslKeyFile(sp->ssl, ejsToMulti(ejs, argv[0]));
}
if (!ejsIs(ejs, argv[1], Null)) {
mprSetSslCertFile(sp->ssl, ejsToMulti(ejs, argv[1]));
}
if (argc >= 3 && ejsIs(ejs, argv[2], Array)) {
protocols = (EjsArray*) argv[2];
protoMask = 0;
for (i = 0; i < protocols->length; i++) {
token = ejsToMulti(ejs, ejsGetProperty(ejs, protocols, i));
mask = -1;
if (*token == '-') {
token++;
mask = 0;
} else if (*token == '+') {
token++;
}
if (scaselesscmp(token, "SSLv2") == 0) {
protoMask &= ~(MPR_PROTO_SSLV2 & ~mask);
protoMask |= (MPR_PROTO_SSLV2 & mask);
} else if (scaselesscmp(token, "SSLv3") == 0) {
protoMask &= ~(MPR_PROTO_SSLV3 & ~mask);
protoMask |= (MPR_PROTO_SSLV3 & mask);
} else if (scaselesscmp(token, "TLSv1") == 0) {
protoMask &= ~(MPR_PROTO_TLSV1 & ~mask);
protoMask |= (MPR_PROTO_TLSV1 & mask);
} else if (scaselesscmp(token, "ALL") == 0) {
protoMask &= ~(MPR_PROTO_ALL & ~mask);
protoMask |= (MPR_PROTO_ALL & mask);
}
}
mprSetSslProtocols(sp->ssl, protoMask);
}
if (argc >= 4 && ejsIs(ejs, argv[3], Array)) {
mprSetSslCiphers(sp->ssl, ejsToMulti(ejs, argv[3]));
}
#else
ejsThrowReferenceError(ejs, "SSL support was not included in the build");
#endif
return 0;
}
/*
Determine the registry hive by the first portion of the path. Return
a pointer to the rest of key path after the hive portion.
*/
static cchar *getHive(cchar *keyPath, HKEY *hive)
{
char key[ME_MAX_PATH], *cp;
ssize len;
assert(keyPath && *keyPath);
*hive = 0;
scopy(key, sizeof(key), keyPath);
key[sizeof(key) - 1] = '\0';
if ((cp = schr(key, '\\')) != 0) {
*cp++ = '\0';
}
if (cp == 0 || *cp == '\0') {
return 0;
}
if (!scaselesscmp(key, "HKEY_LOCAL_MACHINE") || !scaselesscmp(key, "HKLM")) {
*hive = HKEY_LOCAL_MACHINE;
} else if (!scaselesscmp(key, "HKEY_CURRENT_USER") || !scaselesscmp(key, "HKCU")) {
*hive = HKEY_CURRENT_USER;
} else if (!scaselesscmp(key, "HKEY_USERS")) {
*hive = HKEY_USERS;
} else if (!scaselesscmp(key, "HKEY_CLASSES_ROOT")) {
*hive = HKEY_CLASSES_ROOT;
} else {
return 0;
}
if (*hive == 0) {
return 0;
}
len = slen(key) + 1;
return keyPath + len;
}
/*
Match a keyword an ignore case for windows
*/
bool matchAnyCase(MprTestGroup *gp, char *key, char *value)
{
char *vp, *trim;
vp = lookupValue(gp, key);
if (vp == 0 && value == 0) {
return 1;
}
trim = strim(vp, "\"", MPR_TRIM_BOTH);
#if BIT_WIN_LIKE
if (vp == 0 || scaselesscmp(trim, value) != 0)
#else
if (vp == 0 || value == 0 || scmp(trim, value) != 0)
#endif
{
mprLog("appweb test match", 0, "Match %s failed. Got %s expected %s", key, vp, value);
return 0;
}
return 1;
}
static int processUploadHeader(Webs *wp, char *line)
{
WebsUpload *file;
char *key, *headerTok, *rest, *nextPair, *value;
if (line[0] == '\0') {
wp->uploadState = UPLOAD_CONTENT_DATA;
return 0;
}
trace(7, "Header line: %s", line);
headerTok = line;
stok(line, ": ", &rest);
if (scaselesscmp(headerTok, "Content-Disposition") == 0) {
/*
The content disposition header describes either a form variable or an uploaded file.
Content-Disposition: form-data; name="field1"
>>blank line
Field Data
---boundary
Content-Disposition: form-data; name="field1" filename="user.file"
>>blank line
File data
---boundary
*/
key = rest;
wp->uploadVar = wp->clientFilename = 0;
while (key && stok(key, ";\r\n", &nextPair)) {
key = strim(key, " ", WEBS_TRIM_BOTH);
stok(key, "= ", &value);
value = strim(value, "\"", WEBS_TRIM_BOTH);
if (scaselesscmp(key, "form-data") == 0) {
/* Nothing to do */
} else if (scaselesscmp(key, "name") == 0) {
wp->uploadVar = sclone(value);
} else if (scaselesscmp(key, "filename") == 0) {
if (wp->uploadVar == 0) {
websError(wp, HTTP_CODE_BAD_REQUEST, "Bad upload state. Missing name field");
return -1;
}
wp->clientFilename = sclone(value);
/*
Create the file to hold the uploaded data
*/
if ((wp->uploadTmp = websTempFile(uploadDir, "tmp")) == 0) {
websError(wp, HTTP_CODE_INTERNAL_SERVER_ERROR,
"Can't create upload temp file %s. Check upload temp dir %s", wp->uploadTmp, uploadDir);
return -1;
}
trace(5, "File upload of: %s stored as %s", wp->clientFilename, wp->uploadTmp);
if ((wp->upfd = open(wp->uploadTmp, O_WRONLY | O_CREAT | O_TRUNC | O_BINARY, 0600)) < 0) {
websError(wp, HTTP_CODE_INTERNAL_SERVER_ERROR, "Can't open upload temp file %s", wp->uploadTmp);
return -1;
}
/*
Create the files[id]
*/
file = wp->currentFile = walloc(sizeof(WebsUpload));
memset(file, 0, sizeof(WebsUpload));
file->clientFilename = sclone(wp->clientFilename);
file->filename = sclone(wp->uploadTmp);
}
key = nextPair;
}
} else if (scaselesscmp(headerTok, "Content-Type") == 0) {
if (wp->clientFilename) {
trace(5, "Set files[%s][CONTENT_TYPE] = %s", wp->uploadVar, rest);
wp->currentFile->contentType = sclone(rest);
}
}
return 0;
}
static bool parseDigestDetails(Webs *wp)
{
WebsTime when;
char *value, *tok, *key, *dp, *sp, *secret, *realm;
int seenComma;
assure(wp);
key = sclone(wp->authDetails);
while (*key) {
while (*key && isspace((uchar) *key)) {
key++;
}
tok = key;
while (*tok && !isspace((uchar) *tok) && *tok != ',' && *tok != '=') {
tok++;
}
*tok++ = '\0';
while (isspace((uchar) *tok)) {
tok++;
}
seenComma = 0;
if (*tok == '\"') {
value = ++tok;
while (*tok != '\"' && *tok != '\0') {
tok++;
}
} else {
value = tok;
while (*tok != ',' && *tok != '\0') {
tok++;
}
seenComma++;
}
*tok++ = '\0';
/*
Handle back-quoting
*/
if (strchr(value, '\\')) {
for (dp = sp = value; *sp; sp++) {
if (*sp == '\\') {
sp++;
}
*dp++ = *sp++;
}
*dp = '\0';
}
/*
user, response, oqaque, uri, realm, nonce, nc, cnonce, qop
*/
switch (tolower((uchar) *key)) {
case 'a':
if (scaselesscmp(key, "algorithm") == 0) {
break;
} else if (scaselesscmp(key, "auth-param") == 0) {
break;
}
break;
case 'c':
if (scaselesscmp(key, "cnonce") == 0) {
wp->cnonce = sclone(value);
}
break;
case 'd':
if (scaselesscmp(key, "domain") == 0) {
break;
}
break;
case 'n':
if (scaselesscmp(key, "nc") == 0) {
wp->nc = sclone(value);
} else if (scaselesscmp(key, "nonce") == 0) {
wp->nonce = sclone(value);
}
break;
case 'o':
if (scaselesscmp(key, "opaque") == 0) {
wp->opaque = sclone(value);
}
break;
case 'q':
if (scaselesscmp(key, "qop") == 0) {
wp->qop = sclone(value);
}
break;
case 'r':
if (scaselesscmp(key, "realm") == 0) {
wp->realm = sclone(value);
} else if (scaselesscmp(key, "response") == 0) {
/* Store the response digest in the password field. This is MD5(user:realm:password) */
wp->password = sclone(value);
wp->encoded = 1;
}
break;
case 's':
if (scaselesscmp(key, "stale") == 0) {
break;
}
case 'u':
if (scaselesscmp(key, "uri") == 0) {
wp->digestUri = sclone(value);
} else if (scaselesscmp(key, "username") == 0 || scaselesscmp(key, "user") == 0) {
wp->username = sclone(value);
}
break;
default:
/* Just ignore keywords we don't understand */
;
}
key = tok;
if (!seenComma) {
while (*key && *key != ',') {
key++;
}
if (*key) {
key++;
}
}
}
if (wp->username == 0 || wp->realm == 0 || wp->nonce == 0 || wp->route == 0 || wp->password == 0) {
return 0;
}
if (wp->qop && (wp->cnonce == 0 || wp->nc == 0)) {
return 0;
}
if (wp->qop == 0) {
wp->qop = sclone("");
}
/*
Validate the nonce value - prevents replay attacks
*/
when = 0; secret = 0; realm = 0;
parseDigestNonce(wp->nonce, &secret, &realm, &when);
if (!smatch(secret, secret)) {
trace(2, "Access denied: Nonce mismatch\n");
return 0;
} else if (!smatch(realm, BIT_REALM)) {
trace(2, "Access denied: Realm mismatch\n");
return 0;
} else if (!smatch(wp->qop, "auth")) {
trace(2, "Access denied: Bad qop\n");
return 0;
} else if ((when + (5 * 60)) < time(0)) {
trace(2, "Access denied: Nonce is stale\n");
return 0;
}
if (!wp->user) {
if ((wp->user = websLookupUser(wp->username)) == 0) {
trace(2, "Access denied: user is unknown\n");
return 0;
}
}
wp->digest = calcDigest(wp, 0, wp->user->password);
return 1;
}
/*
Parse the client 'Authorization' header and the server 'Www-Authenticate' header
*/
PUBLIC int httpDigestParse(HttpConn *conn, cchar **username, cchar **password)
{
HttpRx *rx;
DigestData *dp;
MprTime when;
char *value, *tok, *key, *cp, *sp;
cchar *secret, *realm;
int seenComma;
rx = conn->rx;
if (password) {
*password = NULL;
}
if (username) {
*username = NULL;
}
if (!rx->authDetails) {
return 0;
}
dp = conn->authData = mprAllocObj(DigestData, manageDigestData);
key = sclone(rx->authDetails);
while (*key) {
while (*key && isspace((uchar) *key)) {
key++;
}
tok = key;
while (*tok && !isspace((uchar) *tok) && *tok != ',' && *tok != '=') {
tok++;
}
*tok++ = '\0';
while (isspace((uchar) *tok)) {
tok++;
}
seenComma = 0;
if (*tok == '\"') {
value = ++tok;
while (*tok != '\"' && *tok != '\0') {
tok++;
}
} else {
value = tok;
while (*tok != ',' && *tok != '\0') {
tok++;
}
seenComma++;
}
*tok++ = '\0';
/*
Handle back-quoting
*/
if (strchr(value, '\\')) {
for (cp = sp = value; *sp; sp++) {
if (*sp == '\\') {
sp++;
}
*cp++ = *sp++;
}
*cp = '\0';
}
/*
user, response, oqaque, uri, realm, nonce, nc, cnonce, qop
*/
switch (tolower((uchar) *key)) {
case 'a':
if (scaselesscmp(key, "algorithm") == 0) {
dp->algorithm = sclone(value);
break;
} else if (scaselesscmp(key, "auth-param") == 0) {
break;
}
break;
case 'c':
if (scaselesscmp(key, "cnonce") == 0) {
dp->cnonce = sclone(value);
}
break;
case 'd':
if (scaselesscmp(key, "domain") == 0) {
dp->domain = sclone(value);
break;
}
break;
case 'n':
if (scaselesscmp(key, "nc") == 0) {
dp->nc = sclone(value);
} else if (scaselesscmp(key, "nonce") == 0) {
dp->nonce = sclone(value);
}
break;
case 'o':
if (scaselesscmp(key, "opaque") == 0) {
dp->opaque = sclone(value);
}
break;
case 'q':
if (scaselesscmp(key, "qop") == 0) {
dp->qop = sclone(value);
}
break;
case 'r':
if (scaselesscmp(key, "realm") == 0) {
dp->realm = sclone(value);
} else if (scaselesscmp(key, "response") == 0) {
/* Store the response digest in the password field. This is MD5(user:realm:password) */
if (password) {
*password = sclone(value);
}
conn->encoded = 1;
}
break;
case 's':
if (scaselesscmp(key, "stale") == 0) {
break;
}
case 'u':
if (scaselesscmp(key, "uri") == 0) {
dp->uri = sclone(value);
} else if (scaselesscmp(key, "username") == 0 || scaselesscmp(key, "user") == 0) {
if (username) {
*username = sclone(value);
}
}
break;
default:
/* Just ignore keywords we don't understand */
;
}
key = tok;
if (!seenComma) {
while (*key && *key != ',') {
key++;
}
if (*key) {
key++;
}
}
}
if (username && *username == 0) {
return MPR_ERR_BAD_FORMAT;
}
if (password && *password == 0) {
return MPR_ERR_BAD_FORMAT;
}
if (dp->realm == 0 || dp->nonce == 0 || dp->uri == 0) {
return MPR_ERR_BAD_FORMAT;
}
if (dp->qop && (dp->cnonce == 0 || dp->nc == 0)) {
return MPR_ERR_BAD_FORMAT;
}
if (conn->endpoint) {
realm = secret = 0;
when = 0;
parseDigestNonce(dp->nonce, &secret, &realm, &when);
if (!smatch(secret, secret)) {
mprTrace(2, "Access denied: Nonce mismatch\n");
return MPR_ERR_BAD_STATE;
} else if (!smatch(realm, rx->route->auth->realm)) {
mprTrace(2, "Access denied: Realm mismatch\n");
return MPR_ERR_BAD_STATE;
} else if (dp->qop && !smatch(dp->qop, "auth")) {
mprTrace(2, "Access denied: Bad qop\n");
return MPR_ERR_BAD_STATE;
} else if ((when + (5 * 60)) < time(0)) {
mprTrace(2, "Access denied: Nonce is stale\n");
return MPR_ERR_BAD_STATE;
}
rx->passwordDigest = calcDigest(conn, dp, *username);
} else {
if (dp->domain == 0 || dp->opaque == 0 || dp->algorithm == 0 || dp->stale == 0) {
return MPR_ERR_BAD_FORMAT;
}
}
return 0;
}
/*
Expecting content headers. A blank line indicates the start of the data.
Returns < 0 Request or state error
Returns == 0 Successfully parsed the input line.
*/
static int processUploadHeader(HttpQueue *q, char *line)
{
HttpConn *conn;
HttpRx *rx;
HttpUploadFile *file;
Upload *up;
cchar *uploadDir;
char *key, *headerTok, *rest, *nextPair, *value;
conn = q->conn;
rx = conn->rx;
up = q->queueData;
if (line[0] == '\0') {
up->contentState = HTTP_UPLOAD_CONTENT_DATA;
return 0;
}
headerTok = line;
stok(line, ": ", &rest);
if (scaselesscmp(headerTok, "Content-Disposition") == 0) {
/*
The content disposition header describes either a form
variable or an uploaded file.
Content-Disposition: form-data; name="field1"
>>blank line
Field Data
---boundary
Content-Disposition: form-data; name="field1" ->
filename="user.file"
>>blank line
File data
---boundary
*/
key = rest;
up->name = up->clientFilename = 0;
while (key && stok(key, ";\r\n", &nextPair)) {
key = strim(key, " ", MPR_TRIM_BOTH);
stok(key, "= ", &value);
value = strim(value, "\"", MPR_TRIM_BOTH);
if (scaselesscmp(key, "form-data") == 0) {
/* Nothing to do */
} else if (scaselesscmp(key, "name") == 0) {
up->name = sclone(value);
} else if (scaselesscmp(key, "filename") == 0) {
if (up->name == 0) {
httpError(conn, HTTP_CODE_BAD_REQUEST, "Bad upload state. Missing name field");
return MPR_ERR_BAD_STATE;
}
/*
Client filenames must be simple filenames without illegal characters or path separators.
We are deliberately restrictive here to assist users that may use the clientFilename in shell scripts.
They MUST still sanitize for their environment, but some extra caution is worthwhile.
*/
value = mprNormalizePath(value);
if (*value == '.' || !httpValidUriChars(value) || strpbrk(value, "\\/:*?<>|~\"'%`^\n\r\t\f")) {
httpError(conn, HTTP_CODE_BAD_REQUEST, "Bad upload client filename.");
return MPR_ERR_BAD_STATE;
}
up->clientFilename = sclone(value);
/*
Create the file to hold the uploaded data
*/
uploadDir = getUploadDir(rx->route);
up->tmpPath = mprGetTempPath(uploadDir);
if (up->tmpPath == 0) {
if (!mprPathExists(uploadDir, X_OK)) {
mprLog("http error", 0, "Cannot access upload directory %s", uploadDir);
}
httpError(conn, HTTP_CODE_INTERNAL_SERVER_ERROR,
"Cannot create upload temp file %s. Check upload temp dir %s", up->tmpPath, uploadDir);
return MPR_ERR_CANT_OPEN;
}
httpTrace(conn, "request.upload.file", "context", "clientFilename:'%s',filename:'%s'",
up->clientFilename, up->tmpPath);
up->file = mprOpenFile(up->tmpPath, O_WRONLY | O_CREAT | O_TRUNC | O_BINARY, 0600);
if (up->file == 0) {
httpError(conn, HTTP_CODE_INTERNAL_SERVER_ERROR, "Cannot open upload temp file %s", up->tmpPath);
return MPR_ERR_BAD_STATE;
}
/*
Create the files[id]
*/
file = up->currentFile = mprAllocObj(HttpUploadFile, manageHttpUploadFile);
file->clientFilename = up->clientFilename;
file->filename = up->tmpPath;
file->name = up->name;
addUploadFile(conn, file);
}
key = nextPair;
}
} else if (scaselesscmp(headerTok, "Content-Type") == 0) {
if (up->clientFilename) {
up->currentFile->contentType = sclone(rest);
}
}
return 0;
}
bool scaselessmatch(cchar *s1, cchar *s2)
{
return scaselesscmp(s1, s2) == 0;
}
static int compileInner(EcCompiler *cp, int argc, char **argv)
{
Ejs *ejs;
EjsModule *mp;
MprList *nodes;
EjsBlock *block;
EcLocation loc;
cchar *ext;
char *msg;
int next, i, j, nextModule, lflags, rc, paused;
ejs = cp->ejs;
if ((nodes = mprCreateList(-1, 0)) == 0) {
return EJS_ERR;
}
cp->nodes = nodes;
/*
Warn about source files mentioned multiple times.
TODO OPT. This is slow.
*/
for (i = 0; i < argc; i++) {
for (j = 0; j < argc; j++) {
if (i == j) {
continue;
}
if (mprSamePath(argv[i], argv[j])) {
compileError(cp, "Loading source %s multiple times. Ignoring extra copies.", argv[i]);
return EJS_ERR;
}
}
if (cp->outputFile && mprSamePath(cp->outputFile, argv[i])) {
compileError(cp, "Output file is the same as input file: %s", argv[i]);
return EJS_ERR;
}
}
/*
Compile source files and load any module files
*/
for (i = 0; i < argc && !cp->fatalError; i++) {
ext = mprGetPathExt(argv[i]);
if (scaselesscmp(ext, "mod") == 0 || scaselesscmp(ext, BIT_SHOBJ) == 0) {
nextModule = mprGetListLength(ejs->modules);
lflags = cp->strict ? EJS_LOADER_STRICT : 0;
if ((rc = ejsLoadModule(cp->ejs, ejsCreateStringFromAsc(ejs, argv[i]), -1, -1, lflags)) < 0) {
msg = sfmt("Error initializing module %s\n%s", argv[i], ejsGetErrorMsg(cp->ejs, 1));
memset(&loc, 0, sizeof(EcLocation));
loc.filename = sclone(argv[i]);
if (rc == MPR_ERR_CANT_INITIALIZE) {
ecError(cp, "Error", &loc, msg);
} else {
ecError(cp, "Error", &loc, msg);
}
cp->nodes = NULL;
return EJS_ERR;
}
if (cp->merge) {
/*
If merging, we must emit the loaded module into the output. So add to the compiled modules list.
*/
for (next = nextModule; (mp = mprGetNextItem(ejs->modules, &next)) != 0; ) {
if (mprLookupItem(cp->modules, mp) < 0 && mprAddItem(cp->modules, mp) < 0) {
compileError(cp, "Cannot add module %s", mp->name);
}
}
}
mprAddItem(nodes, 0);
} else {
paused = ejsBlockGC(ejs);
mprAddItem(nodes, ecParseFile(cp, argv[i]));
ejsUnblockGC(ejs, paused);
}
}
assure(ejs->result == 0 || (MPR_GET_GEN(MPR_GET_MEM(ejs->result)) != MPR->heap->dead));
/*
Allocate the eval frame stack. This is used for property lookups. We have one dummy block at the top always.
*/
block = ejsCreateBlock(ejs, 0);
mprSetName(block, "Compiler");
ejsPushBlock(ejs, block);
/*
Process the internal representation and generate code
*/
paused = ejsBlockGC(ejs);
if (!cp->parseOnly && cp->errorCount == 0) {
ecResetParser(cp);
if (ecAstProcess(cp) < 0) {
ejsPopBlock(ejs);
cp->nodes = NULL;
ejsUnblockGC(ejs, paused);
return EJS_ERR;
}
if (cp->errorCount == 0) {
ecResetParser(cp);
if (ecCodeGen(cp) < 0) {
ejsPopBlock(ejs);
cp->nodes = NULL;
ejsUnblockGC(ejs, paused);
return EJS_ERR;
}
}
}
ejsPopBlock(ejs);
assure(ejs->result == 0 || (MPR_GET_GEN(MPR_GET_MEM(ejs->result)) != MPR->heap->dead));
/*
Add compiled modules to the interpreter
*/
for (next = 0; ((mp = (EjsModule*) mprGetNextItem(cp->modules, &next)) != 0); ) {
ejsAddModule(cp->ejs, mp);
}
cp->nodes = NULL;
ejsUnblockGC(ejs, paused);
if (!paused) {
mprYield(0);
}
assure(ejs->result == 0 || (MPR_GET_GEN(MPR_GET_MEM(ejs->result)) != MPR->heap->dead));
return (cp->errorCount > 0) ? EJS_ERR: 0;
}
