Выложена версия 3.4.0 beta3

oчерёдность ключей в хеше

$hTest[
	$.old[]
]

^hTest.add[$.new[]]
$tKeys[^hTest._keys[]]
^tKeys.menu{$tKeys.key }

В старых версиях порядок следования ключей был не определен...

Не могу исправить ошибки

$tree[
	$.[/fullpath][/_admin/]
	$.index[
		$.[/fullpath][/_admin/index/]
		$.content[$.[/fullpath][/_admin/index/content/]]
		$.test[$.[/fullpath][/_admin/index/test/]]
	]
	$.help[$.[/fullpath][/_admin/help/]]
]

$found[^find[/_admin/index/content/;$tree]]
<h2>$found.[/fullpath]</h2>
<p>$sLog</p>

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


@log[string]
$sLog[${sLog}$string<br/>]

Not found

начинаем пойск
пойск в index
пойск глубее
. начинаем пойск
. пойск в content
. нейдёться в content, определаем result
. конец пойска ***тепер хочю сделать мега супер break, но не знаю как***
определаем result
пойск в help
пойск глубее
. начинаем пойск
. конец пойска
определаем result
конец пойска

вы бы ваш @find оказали-бы...

$tree[
	$.[/fullpath][/_admin/]
	$.index[
		$.[/fullpath][/_admin/index/]
		$.content[$.[/fullpath][/_admin/index/content/]]
		$.test[$.[/fullpath][/_admin/index/test/]]
	]
	$.help[$.[/fullpath][/_admin/help/]]
]

$found[^find[/_admin/index/content/;$tree]]
<h2>$found.[/fullpath]</h2>
<p>$sLog</p>

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

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


@log[string]
$sLog[${sLog}$string<br/>]

"Ужос"

@find[fullpath;XMLTree;level][found]
$result[]
...
			$result[^find[$fullpath;$value;${level}.]]
			^if(def $result){^break[]}

$tree[
	$._admin[
		$.index[
			$.content[ $.options[ $.все_остальное[] ] ]
			$.test[ $.options[ $.все_остальное[] ] ]

			$.options[ $.все_остальное[] ]
		]
		$.help[ $.options[ $.все_остальное[] ] ]

		$.options[ $.все_остальное[] ]
	]
]

Спосибо - заработало...

$result[] вокруг всего кода метода

@find[fullpath;XMLTree;level][found]
$result[]
...
			$result[^find[$fullpath;$value;${level}.]]
			^if(def $result){^break[]}

Буквально

@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 конец пойска]
]

Ваш match эквивалентен конструкции ^this_key.left(1) ne "/", которая значительно быстрее.

Спасибо

$tree[
	$.__admin[
		$._index[
			$._content[ $.все_остальное[] ]
			$._test[ $.все_остальное[] ]

			$.все_остальное[]
		]
		$._help[ $.все_остальное[] ]

		$.все_остальное[]
	]
]

redhat73_grpunlim

работало "хорошо"

Я собрал сам, но sql не работает

^connect[$SQL.connect-string]{}

подробности

cvs -d :pserver:anonymous@cvs.parser.ru:/parser3project get parser3

./configure --disable-safe-mode --with-shared-xml=/var/www/vhosts/magik.domanski.pro/private/gnome --with-static-pcre=/var/www/vhosts/magik.domanski.pro/private/pcre --with-shared-gc=/var/www/vhosts/magik.domanski.pro/private/gc/lib --prefix=/var/www/vhosts/magik.domanski.pro/private/parser3install

make install

sql лучше тоже собрать

Ужос

@find[basepath][locals]
$basepath[^basepath.trim[both;/]]
^if(def $basepath){
	$tBasepath[^basepath.split[/]]
	^tBasepath.menu{
		$sHashPath[${sHashPath}[$tBasepath.piece].]
	}
	$sHashPath[^sHashPath.trim[end;.]]
	$result[^process{^$hTree.root.$sHashPath}]
}{
	$result[$hTree.root]
}

^tBasepath.menu{
	$sHashPath[${sHashPath}[$tBasepath.piece].]
}
$sHashPath[^sHashPath.trim[end;.]]

^tBasepath.menu{[$tBasepath.piece]}[.]

$result[$hTree.root]
^tBasepath.menu{
	^if(def $result){
		$result[$result.[$tBasepath.piece]]
	}
}

$result[^process{^$hTree.root.$sHashPath}]