Создание html на языке tcl
Небольшая библиотечка для создания html-документов. Использую в AOL web server. Простейшая страничка выглядит так: <% html ! { head ! { title - {Главная страница} } body ! { menu path mainpage h3 - {Минимальная страница} copyright } } %> ############# Тэги ############# # шаблон для генерации стандартного html-тэга proc mbg_tag {name args} { array set opts $args ns_adp_puts -nonewline "<$name" foreach {argname argvalue} [array get opts] { if {$argname ne "!" && $argname ne "-"} {ns_adp_puts -nonewline " [string range $argname 1 end]='$argvalue'"} } ns_adp_puts -nonewline ">" if [info exists opts(!)] {uplevel 1 $opts(!)} if [info exists opts(-)] {ns_adp_puts -nonewline $opts(-) } ns_adp_puts -nonewline "</$name>" } # создаем нужные нам тэги foreach name {meta title body form fieldset table thead tfoot tbody tr td th acronym textarea center pre a font button div span ul