Ответ

ARV 26.05.2004 21:12

нашел решение...но мне не нравится...может, есть и лучше?
пример ниже: строит "почти дерево" каталогов. почти - потому что без "полосок" - не знаю, как их нарисовать :(

@prova[name]
$result(-d $name)

@treet[pat][tree_t;tree_t1;loc;tt]
$loc[$pat]
$tree_t[^file:list[$loc]]
$tree_t1[^tree_t.select(^prova[${loc}$tree_t.name])]
^if(def $tree_t1){
<table>
^tree_t1.menu{
<tr>
<td width="25">&nbsp</td>
<td>
$tree_t1.name
$tt[$tree_t1.name]
^treet[${loc}${tt}/]
</td>
</tr>
}
</table>
}
почему-то в методе select не срабатывает объединение строк ${loc}$tree_t.name, поэтому проверку пришлось вынести в отдельную процедурку...

---