global xmlObject
on createObjXML(config_XML)
gObjetDanalyse = new(xtra "xmlparser")
gObjetDanalyse.ignoreWhiteSpace(TRUE)
codeDerreur = gObjetDanalyse.parseString(config_XML)
xmlObject = [:]
return getXMLObject(gObjetDanalyse)
end
on getXMLObject(_xml) {
theXML = [:]
_attributes_num = _xml.attributeName.count
repeat with i = 1 to _attributes_num
theXML.addProp(_xml.attributeName,_xml.attributeValue)
end repeat
_nodeList_num = _xml.child.count
repeat with i = 1 to _nodeList_num
_type = _xml.child.type
if _type = #text then
theXML.addProp("_value",_xml.child.text)
else if _type = #element then
nName = _xml.child.name
objNode = getXMLObject(_xml.child)
if theXML[nName] = void then
theXML.setaprop(nName,objNode)
else
res = theXML[nName]
if ilk(theXML[nName]) <> #list then theXML[nName] = [res]
theXML[nName].add(objNode)
end if
end if
end repeat
return theXML
end
