"]\n
}
set even [expr {1-$even}]
append res " [markup ""][markup ""] ${text} [markup ][tag/ td]\n"
append res " [markup " | "]\n"
incr cnt
return $res
}
proc FlushReferences {} {
global firstkey reflist
set res ""
if {!$firstkey} {
set lines [list]
foreach {ref label} $reflist {
lappend lines "\t[markup ""] ${label} [tag/ a]"
}
append res "[join $lines ,\n]\n [tag /td]\n[tag/ tr]\n"
}
set reflist [list]
return $res
}
proc fmt_manpage {file label} {global reflist ; lappend reflist [dt_fmap $file] $label ; return}
proc fmt_url {url label} {global reflist ; lappend reflist $url $label ; return}
proc fmt_comment {text} {ht_comment $text}
################################################################
global __var
array set __var {
meta {}
header {}
footer {}
}
proc Get {varname} {global __var ; return $__var($varname)}
proc idx_listvariables {} {global __var ; return [array names __var]}
proc idx_varset {varname text} {
global __var
if {![info exists __var($varname)]} {return -code error "Unknown engine variable \"$varname\""}
set __var($varname) $text
return
}
################################################################
|