я так понял, вы охотитесь за общностью?

Александр Петросян (PAF) 12.05.2006 23:00 / 12.05.2006 23:05

и простой кусочек вида

#достали из базы
<item>
   <title>$record.title</title>
   …
</item>

вас не устраивает.

нет ничего проще: опишите таблицы в общем виде, и используйте один метод, который будет, основываясь на описании таблиц, делать преобразование в xml.

сильно упрощая:

^ToXML:register[table1;element1;
field1	attr1
field2	attr2
}]

$table1[достали где-то]
#-тут-перешли к нужной записи-

#выводим
^ToXML:render[table1;$table1]

а за кадром что-то такое:

@CLASS
ToXML

@register[sTableName;sElementName;sDecl]
$m_hStructure.$sTableName[
   $.sElementName[$sElementName]
   $.tDecl[^table::create{field	attr^#0A$sDecl}]
]

@render[sTableName;hRecord][hDecl;tDecl]
$hDecl[$m_hStructure.$sTableName]
$tDecl[$hDecl.tDecl]
<$hDecl.sElementName
^tDecl.menu{
   $tDecl.attr="$hRecord.[$tDecl.field]"
}
>

---