Documentation Source Text

Artifact Content
Login

Artifact 7efb1711ca78638c4e51c8ca6bb5e41d83141bac:


<title>Syntax Diagrams For SQLite</title>
<tcl>hd_keywords {syntax diagrams}</tcl>

<h1 align=center>Syntax Diagrams For SQLite</h1>

<tcl>

foreach name $syntax_order {
  # hd_fragment $name *$name "$name syntax diagram"
  hd_puts "<a name=\"$name\"></a>"
  hd_puts "<h4>$name:</h4>"
  hd_puts "<blockquote>\n"
  hd_puts "<img src=\"images/syntax/$name.gif\"></img><br></br>"
  foreach {cx px} $syntax_linkage($name) break
  if {[llength $px]>0} {
    hd_puts "\nUsed by:"
    foreach c $px {
      hd_puts "&nbsp;&nbsp; <a href=\"#$c\">$c</a>"
    }
  }
  if {[llength $cx]>0} {
    hd_puts "<br></br>\nReferences:"
    foreach c $cx {
      hd_puts "&nbsp;&nbsp; <a href=\"#$c\">$c</a>"
    }
  }
  if {[info exists ::backlink($name)]} {
    unset -nocomplain bk
    foreach c $::backlink($name) {
      set bk($c) 1
    }
    set bklist [lsort [array names bk]]
    if {[llength $bklist]>0} {
      hd_puts "<br></br>\nSee also:"
      foreach c $bklist {
        hd_puts "&nbsp;&nbsp; <a href=\"$c\">$c</a>"
      }
    }
  }
  hd_puts "\n</blockquote>\n\n"
}
unset -nocomplain c cx px