|
"]
append text [markup ""]
append text $label
append text [tag/ a][tag/ td]\n
append text [markup " | "]${desc}[tag /td]\n
append text [tag/ tr]\n
return $text
}
proc fmt_comment {text} {ht_comment $text}
################################################################
proc Term {text} { return [tag dt]${text}[tag /dt] }
proc Def {text} { return [tag dd]${text}[tag /dd] }
proc Anchor {text} {
set anchor [regsub -all {[^a-zA-Z0-9]} [string tolower $text] {_}]
set anchor [regsub -all {__+} $anchor _]
return $anchor
}
################################################################
global __level
global __items ; set __items {}
global __istack ; set __istack {}
global __even ; set __even 1
proc Even! {} { global __even ; set __even 1 }
proc Even {} { global __even ; set __even }
proc EFlip {} { global __even ; set __even [expr {1 - $__even}] }
proc LSetup {} { global __level ; set __level 0 }
proc LIn {} { global __level ; incr __level 1 }
proc LOut {} { global __level ; incr __level -1 }
proc LTop {} { global __level ; expr {!$__level } }
proc IReset {} { global __items ; set __items 0 }
proc INext {} { global __items ; incr __items }
proc IFirst {} { global __items ; expr {!$__items} }
proc Items {} { global __items ; set __items }
proc IPush {} {
global __istack __items
lappend __istack $__items
set __items 0
return
}
proc IPop {} {
global __items __istack
set __items [lindex $__istack end]
set __istack [lreplace $__istack end end]
return
}
################################################################
global __var
array set __var {
meta {}
header {}
footer {}
raw 0
}
proc Get {varname} {global __var ; return $__var($varname)}
proc toc_listvariables {} {global __var ; return [array names __var]}
proc toc_varset {varname text} {
global __var
if {![info exists __var($varname)]} {return -code error "Unknown engine variable \"$varname\""}
set __var($varname) $text
return
}
################################################################
|