Documentation Source Text

Artifact Content
Login

Artifact d0233a470a4754a39f7ff75e7136db21b915834d:


<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>"
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">}
  regsub -all { +} $name {\&nbsp;} 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>