Documentation
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 $desc
}
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 ""
if {$cnt==1} {
hd_puts "▼ $prevHead\n"
hd_putsnl "
"
} else {
hd_puts "► $prevHead\n"
hd_putsnl ""
}
foreach {name url desc} $lDoc {
hd_putsnl "- $name"
if {$desc!=""} {
hd_putsnl "→ $desc"
}
}
hd_putsnl
set lDoc {}
}
source [file join $::DOC pages docsdata.tcl]
end_heading