<title>SQLite Documentation</title>
<h1 align="center">Categorical Index Of SQLite Documents</h1>
<table width="100%" cellpadding="5">
<tcl>
hd_keywords {categorical listing of SQLite documents}
set ::lHead [list]
proc doc {name url desc} {
}
proc heading {text tag {caption {}}} {
lappend ::lHead $text $tag
}
source [file join $::DOC pages docsdata.tcl]
hd_puts "<table align=center class=nounderline>"
set i 0
set style "\"padding-right:8ex; padding-bottom: 1em\""
foreach {text tag} $::lHead {
if {($i % 2)==0} { hd_puts <tr> }
hd_puts "<th valign=top align=left style=$style> <a href=#$tag>$text</a>"
incr i
}
hd_puts "</table>"
proc doc {name url desc} {
hd_puts {<tr><td valign="top" align="right" class=nounderline>}
regsub -all { +} $name {\ } name
hd_puts "<a href=\"$url\">$name</a></td>"
hd_puts {<td width="10"></td>}
hd_puts {<td valign="top" align="left">}
hd_resolve $desc
hd_puts {</td></tr>}
}
proc heading {text tag {caption {}}} {
hd_puts {<tr><td colspan=3 style="padding: 3ex 0 2ex 0">}
hd_puts "<b><a name=$tag></a>$text</b>"
if {$caption ne ""} {
hd_puts {<br />}
hd_puts "$caption"
}
}
hd_puts "<table width=100% cellpadding=5>"
source [file join $::DOC pages docsdata.tcl]
hd_puts "</table>"
</tcl>
</table>