static EjsXML *shallowCopy(Ejs *ejs, EjsXML *xml)
{
EjsXML *root, *elt;
int next;
assure(xml->kind == EJS_XML_LIST);
if (xml == 0) {
return 0;
}
if ((root = ejsCreateXMLList(ejs, xml->targetObject, xml->targetProperty)) == NULL) {
return 0;
}
if (xml->elements) {
root->elements = mprCreateList(-1, 0);
for (next = 0; (elt = mprGetNextItem(xml->elements, &next)) != 0; ) {
assure(ejsIsXML(ejs, elt));
if (elt) {
mprAddItem(root->elements, elt);
}
}
}
if (mprHasMemError(ejs)) {
return 0;
}
return root;
}
/*
Load the standard ejs modules with an optional override search path and list of required modules.
If the require list is empty, then ejs->empty will be true. This routine should only be called once for an interpreter.
*/
int ejsLoadModules(Ejs *ejs, cchar *search, MprList *require)
{
EjsService *sp;
sp = ejs->service;
assure(mprGetListLength(ejs->modules) == 0);
ejs->empty = !(require == 0 || mprGetListLength(require));
if (search) {
initSearchPath(ejs, search);
}
lock(sp);
if (loadRequiredModules(ejs, require) < 0) {
if (ejs->exception) {
ejsReportError(ejs, "Cannot initialize interpreter");
}
ejsDestroyVM(ejs);
unlock(sp);
return MPR_ERR_CANT_READ;
}
unlock(sp);
if (mprHasMemError(ejs)) {
mprError("Memory allocation error during initialization");
ejsDestroyVM(ejs);
return MPR_ERR_MEMORY;
}
assure(!ejs->exception);
return 0;
}
Ejs *ejsCreateVM(int argc, cchar **argv, int flags)
{
EjsService *sp;
Ejs *ejs;
if ((ejs = mprAllocObj(Ejs, manageEjs)) == NULL) {
return 0;
}
sp = ejs->service = MPR->ejsService;
if (sp == 0) {
sp = ejs->service = createService();
defineSharedTypes(ejs);
}
ejs->empty = 1;
ejs->state = mprAllocZeroed(sizeof(EjsState));
ejs->argc = argc;
ejs->argv = argv;
ejs->name = sfmt("ejs-%d", sp->seqno++);
ejs->dispatcher = mprCreateDispatcher(ejs->name, MPR_DISPATCHER_ENABLED);
ejs->mutex = mprCreateLock(ejs);
ejs->dontExit = sp->dontExit;
ejs->flags |= (flags & (EJS_FLAG_NO_INIT | EJS_FLAG_DOC | EJS_FLAG_HOSTED));
ejs->hosted = (flags & EJS_FLAG_HOSTED) ? 1 : 0;
ejs->global = ejsCreateBlock(ejs, 0);
mprSetName(ejs->global, "global");
ejsDefineGlobalNamespaces(ejs);
/*
Modules are not marked in the modules list. This way, modules are collected when not referenced.
Workers are marked. This way workers are preserved to run in the background until they exit.
*/
ejs->modules = mprCreateList(-1, MPR_LIST_STATIC_VALUES);
ejs->workers = mprCreateList(0, 0);
initStack(ejs);
initSearchPath(ejs, 0);
mprAddItem(sp->vmlist, ejs);
if (ejs->hasError || mprHasMemError(ejs)) {
ejsDestroyVM(ejs);
mprError("Cannot create VM");
return 0;
}
mprLog(5, "ejs: create VM");
return ejs;
}
PUBLIC EjsAny *cloneXml(Ejs *ejs, EjsXML *xml, bool deep)
{
EjsXML *root, *elt;
int next;
if (xml == 0) {
return 0;
}
if (xml->kind == EJS_XML_LIST) {
root = ejsCreateXMLList(ejs, xml->targetObject, xml->targetProperty);
} else {
root = ejsCreateXML(ejs, xml->kind, xml->qname, NULL, xml->value);
}
if (root == 0) {
return 0;
}
// TODO - must copy inScopeNamespaces?
if (xml->attributes) {
root->attributes = mprCreateList(-1, 0);
for (next = 0; (elt = (EjsXML*) mprGetNextItem(xml->attributes, &next)) != 0; ) {
elt = ejsClone(ejs, elt, 1);
if (elt) {
elt->parent = root;
mprAddItem(root->attributes, elt);
}
}
}
if (xml->elements) {
root->elements = mprCreateList(-1, 0);
for (next = 0; (elt = mprGetNextItem(xml->elements, &next)) != 0; ) {
assert(ejsIsXML(ejs, elt));
elt = ejsClone(ejs, elt, 1);
if (elt) {
elt->parent = root;
mprAddItem(root->elements, elt);
}
}
}
if (mprHasMemError(ejs)) {
return 0;
}
return root;
}
