Буквально

moko 22.09.2009 16:50

@find[fullpath;XMLTree;level][found]
$result[
^log[$level начинаем пойск]

^XMLTree.foreach[key;value]{
	^if($key ne "/fullpath"){
		^log[$level пойск в $key]
		^if($value.[/fullpath] eq $fullpath){
				$.key[$key]
				^value.foreach[this_key;this_value]{
					^if(^this_key.match[^^/[.]*]){
						$.[$this_key][$this_value]
					}
				}
			^log[$level нейдёться в $key, определаем result]
		}{
			^log[$level пойск глубее]
			^find[$fullpath;$value;${level}.]
			^log[$level определаем result]
		}
	}
}
^log[$level конец пойска]
]

Но так можно делать, только если четко понимаете, что здесь на самом деле происходит, какой по типу результат когда возвращается.

---