int ejsXMLToString(Ejs *ejs, MprBuf *buf, EjsXML *node, int indentLevel)
{
EjsXML *xml, *child, *attribute, *elt;
int sawElements, next;
if (node->obj.var.visited) {
return 0;
}
node->obj.var.visited = 1;
if (node->kind == EJS_XML_LIST) {
for (next = 0; (elt = mprGetNextItem(node->elements, &next)) != 0; ) {
ejsXMLToString(ejs, buf, elt, indentLevel);
}
return 0;
}
mprAssert(ejsIsXML(node));
xml = (EjsXML*) node;
switch (xml->kind) {
case EJS_XML_ELEMENT:
/*
* XML object is complex (has elements) so return full XML content.
*/
if (indentLevel > 0) {
mprPutCharToBuf(buf, '\n');
}
indent(buf, indentLevel);
mprPutFmtToBuf(buf, "<%s", xml->qname.name);
if (xml->attributes) {
for (next = 0; (attribute = mprGetNextItem(xml->attributes, &next)) != 0; ) {
mprPutFmtToBuf(buf, " %s=\"%s\"", attribute->qname.name, attribute->value);
}
}
sawElements = 0;
if (xml->elements) {
mprPutStringToBuf(buf, ">");
for (next = 0; (child = mprGetNextItem(xml->elements, &next)) != 0; ) {
if (child->kind != EJS_XML_TEXT) {
sawElements++;
}
/* Recurse */
if (ejsXMLToString(ejs, buf, child, indentLevel < 0 ? -1 : indentLevel + 1) < 0) {
return -1;
}
}
if (sawElements && indentLevel >= 0) {
mprPutCharToBuf(buf, '\n');
indent(buf, indentLevel);
}
mprPutFmtToBuf(buf, "</%s>", xml->qname.name);
} else {
/* Solo */
mprPutStringToBuf(buf, "/>");
}
break;
case EJS_XML_COMMENT:
mprPutCharToBuf(buf, '\n');
indent(buf, indentLevel);
mprPutFmtToBuf(buf, "<!--%s -->", xml->value);
break;
case EJS_XML_ATTRIBUTE:
/*
* Only here when converting solo attributes to a string
*/
mprPutStringToBuf(buf, xml->value);
break;
case EJS_XML_TEXT:
mprPutStringToBuf(buf, xml->value);
break;
}
node->obj.var.visited = 0;
return 0;
}
/*
Set a property attribute by name.
*/
static int setXmlPropertyAttributeByName(Ejs *ejs, EjsXML *xml, EjsName qname, EjsObj *value)
{
EjsXML *elt, *attribute, *xvalue, *lastElt;
EjsString *sv;
EjsName qn;
wchar *str;
int index, last, next;
/*
Attribute. If the value is an XML list, convert to a space separated string
*/
xvalue = (EjsXML*) value;
if (ejsIsXML(ejs, xvalue) && xvalue->kind == EJS_XML_LIST) {
str = 0;
for (next = 0; (elt = mprGetNextItem(xvalue->elements, &next)) != 0; ) {
sv = (EjsString*) ejsCast(ejs, (EjsObj*) elt, String);
str = mrejoin(str, NULL, " ", sv->value, NULL);
}
value = (EjsObj*) ejsCreateString(ejs, str, -1);
} else {
value = ejsCast(ejs, value, String);
}
assert(ejsIs(ejs, value, String));
/*
Find the first attribute that matches. Delete all other attributes of the same name.
*/
index = 0;
if (xml->attributes) {
lastElt = 0;
for (last = -1, index = -1; (elt = mprGetPrevItem(xml->attributes, &index)) != 0; ) {
assert(qname.name->value[0] == '@');
if (wcmp(elt->qname.name->value, &qname.name->value[1]) == 0) {
if (last >= 0) {
mprRemoveItemAtPos(xml->attributes, last);
}
last = index;
lastElt = elt;
}
}
if (lastElt) {
/*
Found a match. So replace its value
*/
lastElt->value = (EjsString*) value;
return last;
} else {
index = mprGetListLength(xml->attributes);
}
}
// TODO - namespace work to do here
/*
Not found. Create a new attribute node
*/
assert(ejsIs(ejs, value, String));
qn.space = NULL;
qn.name = ejsSubstring(ejs, qname.name, 1, -1);
attribute = ejsCreateXML(ejs, EJS_XML_ATTRIBUTE, qn, xml, (EjsString*) value);
if (xml->attributes == 0) {
xml->attributes = mprCreateList(-1, 0);
}
mprSetItem(xml->attributes, index, attribute);
return index;
}
/*
Set a property by name
There are 7 kinds of qname's: prop, @att, [prop], *, @*, .name, .@name
*/
static int setXmlPropertyByName(Ejs *ejs, EjsXML *xml, EjsName qname, EjsObj *value)
{
EjsXML *elt, *xvalue, *rp, *lastElt;
EjsObj *originalValue;
int index, last;
last = 0;
lastElt = 0;
if (isdigit((uchar) qname.name->value[0]) && allDigitsForXml(qname.name)) {
ejsThrowTypeError(ejs, "Integer indicies for set are not allowed");
return EJS_ERR;
}
if (xml->kind != EJS_XML_ELEMENT) {
// TODO spec requires this -- but why? -- surely throw?
return 0;
}
/*
Massage the value type.
*/
originalValue = value;
xvalue = (EjsXML*) value;
if (ejsIsXML(ejs, xvalue)) {
if (xvalue->kind == EJS_XML_LIST) {
value = cloneXml(ejs, xvalue, 1);
} else if (xvalue->kind == EJS_XML_TEXT || xvalue->kind == EJS_XML_ATTRIBUTE) {
value = ejsCast(ejs, originalValue, String);
} else {
value = cloneXml(ejs, xvalue, 1);
}
} else {
value = ejsCast(ejs, value, String);
}
if (qname.name->value[0] == '@') {
return setXmlPropertyAttributeByName(ejs, xml, qname, value);
}
/*
Delete redundant elements by the same name.
*/
if (xml->elements) {
for (last = -1, index = -1; (elt = mprGetPrevItem(xml->elements, &index)) != 0; ) {
if (qname.name->value[0] == '*' || (elt->kind == EJS_XML_ELEMENT && elt->qname.name == qname.name)) {
/*
Must remove all redundant elements of the same name except the first one
*/
if (last >= 0) {
rp = mprGetItem(xml->elements, last);
rp->parent = 0;
mprRemoveItemAtPos(xml->elements, last);
}
last = index;
lastElt = elt;
}
}
}
if (xml->elements == 0) {
// TODO - need routine to do this centrally so we can control the default number of elements in the list?
xml->elements = mprCreateList(-1, 0);
}
elt = lastElt;
index = last;
if (qname.name->value[0] == '*') {
/*
Special case when called from XMLList to update the value of an element
*/
xml = createValueNode(ejs, xml, value);
} else if (elt == 0) {
/*
Not found. New node required.
*/
elt = ejsCreateXML(ejs, EJS_XML_ELEMENT, qname, xml, NULL);
if (elt == 0) {
return 0;
}
index = mprGetListLength(xml->elements);
xml = ejsAppendToXML(ejs, xml, createValueNode(ejs, elt, value));
} else {
/*
Update existing element.
*/
xml = ejsSetXMLElement(ejs, xml, index, createValueNode(ejs, elt, value));
}
if (xml == 0) {
return EJS_ERR;
}
return index;
}
static EjsXML *createElement(Ejs *ejs, EjsXML *list, EjsXML *targetObject, EjsName qname, EjsObj *value)
{
EjsXML *elt, *last, *attList;
int index;
int j;
if (targetObject && ejsIsXML(ejs, targetObject) && targetObject->kind == EJS_XML_LIST) {
/*
If the target is a list it must have 1 element. So switch to it.
TODO - could we get resolve to do this?
*/
if (mprGetListLength(targetObject->elements) != 1) {
/* Spec says so - TODO why no error? */
return 0;
}
targetObject = mprGetFirstItem(targetObject->elements);
}
/*
Return if the target object is not an XML element
*/
if (!ejsIsXML(ejs, targetObject) || targetObject->kind != EJS_XML_ELEMENT) {
/* Spec says so - TODO why no error? */
return 0;
}
elt = ejsCreateXML(ejs, EJS_XML_ELEMENT, list->targetProperty, targetObject, NULL);
if (list->targetProperty.name && list->targetProperty.name->value[0] == '@') {
elt->kind = EJS_XML_ATTRIBUTE;
attList = ejsGetPropertyByName(ejs, (EjsObj*) targetObject, list->targetProperty);
if (attList && mprGetListLength(attList->elements) > 0) {
/* Spec says so. But this surely means you can't update an attribute? */
return 0;
}
} else if (list->targetProperty.name == NULL || qname.name->value[0] == '*') {
elt->kind = EJS_XML_TEXT;
elt->qname.name = 0;
}
index = mprGetListLength(list->elements);
if (elt->kind != EJS_XML_ATTRIBUTE) {
if (targetObject) {
if (index > 0) {
/*
Find the place of the last list item in the resolved target object.
*/
last = mprGetItem(list->elements, index - 1);
j = mprLookupItem(targetObject->elements, last);
} else {
j = -1;
}
if (j < 0) {
j = mprGetListLength(targetObject->elements) - 1;
}
// TODO - really need to wrap this ejsInsertXML(EjsXML *xml, int index, EjsXML *node)
if (targetObject->elements == 0) {
targetObject->elements = mprCreateList(-1, 0);
}
/*
Insert into the target object
*/
mprInsertItemAtPos(targetObject->elements, j + 1, elt);
}
if (ejsIsXML(ejs, value)) {
if (((EjsXML*) value)->kind == EJS_XML_LIST) {
elt->qname = ((EjsXML*) value)->targetProperty;
} else {
elt->qname = ((EjsXML*) value)->qname;
}
}
/*
Insert into the XML list
*/
mprSetItem(list->elements, index, elt);
}
return (EjsXML*) mprGetItem(list->elements, index);
}
