xdoc -> object

j-Walker 23.06.2012 12:33 / 23.06.2012 12:33

@nodeToObject[node][node;children;resHash;keyID]
$children[$node.childNodes]
^if($children == 1 && $children.0.nodeName eq 'text'){
	$result[$children.0.nodeValue]
	}{
	$resHash[^hash::create[]]
	^for[keyID](0;$children-1){
		^if($children.$keyID.nodeName ne 'text'){
			$resHash.[$children.$keyID.nodeName][^nodeToObject[$children.$keyID]]
			}
		}
	$result[$resHash]		
	}

Если так, то для того, чтобы отличить хэш от таблицы, мне придётся посчитать количество детей-тёзок: если имена детей уникальны, то отдать хэш, иначе таблицу. Есть альтернативные идеи? :)

---