Documents By Category
hd_keywords {categorical listing of SQLite documents} {documents by category} set prevHead {} set lDoc {} set cnt 0 proc doc {name url desc} { global lDoc lappend lDoc $name $url } proc heading {text tag {caption {}}} { end_heading set ::prevHead $text } proc end_heading {} { global lDoc cnt prevHead if {$prevHead==""} return incr cnt hd_puts "
" hd_puts "
" hd_puts "►
$prevHead
\n" hd_putsnl "
" foreach {name url} $lDoc { hd_putsnl "
$name
" } hd_putsnl
set lDoc {} } source [file join $::DOC pages docsdata.tcl] end_heading
proc end_heading {} {} proc doc {name url desc} { hd_puts {
} regsub -all { +} $name {\ } name hd_putsnl "
$name
" hd_putsnl {
} hd_putsnl {
} hd_resolve $desc hd_putsnl {
} } proc heading {text tag {caption {}}} { hd_puts {
} hd_puts "
$text
" if {$caption ne ""} { hd_puts {
} hd_puts "$caption" } } source [file join $::DOC pages docsdata.tcl]