Documentation Source Text

Hex Artifact Content
Login

Artifact 37b79215055e71d454d236ea315eae749d71147a:


0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 74 63 6c 73 68  #!/usr/bin/tclsh
0010: 0a 23 0a 23 20 54 68 69 73 20 73 63 72 69 70 74  .#.# This script
0020: 20 70 72 6f 63 65 73 73 65 73 20 72 61 77 20 64   processes raw d
0030: 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 6f 75  ocumentation sou
0040: 72 63 65 20 74 65 78 74 20 69 6e 74 6f 20 69 74  rce text into it
0050: 73 20 66 69 6e 61 6c 20 66 6f 72 6d 20 0a 23 20  s final form .# 
0060: 66 6f 72 20 64 69 73 70 6c 61 79 2e 20 20 54 68  for display.  Th
0070: 65 20 70 72 6f 63 65 73 73 69 6e 67 20 61 63 74  e processing act
0080: 69 6f 6e 73 20 61 72 65 20 64 65 73 63 72 69 62  ions are describ
0090: 65 64 20 62 65 6c 6f 77 2e 0a 23 0a 23 20 49 6e  ed below..#.# In
00a0: 76 6f 6b 65 20 74 68 69 73 20 63 6f 6d 6d 61 6e  voke this comman
00b0: 64 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 23 0a  d as follows:.#.
00c0: 23 20 20 20 20 20 20 20 74 63 6c 73 68 20 77 72  #       tclsh wr
00d0: 61 70 2e 74 63 6c 20 24 28 44 4f 43 29 20 24 28  ap.tcl $(DOC) $(
00e0: 53 52 43 29 20 24 28 44 45 53 54 29 20 73 6f 75  SRC) $(DEST) sou
00f0: 72 63 65 31 2e 69 6e 20 73 6f 75 72 63 65 32 2e  rce1.in source2.
0100: 69 6e 20 2e 2e 2e 0a 23 0a 23 20 54 68 65 20 24  in ....#.# The $
0110: 28 44 4f 43 29 20 61 6e 64 20 24 28 53 52 43 29  (DOC) and $(SRC)
0120: 20 76 61 6c 75 65 73 20 61 72 65 20 74 68 65 20   values are the 
0130: 6e 61 6d 65 73 20 6f 66 20 64 69 72 65 63 74 6f  names of directo
0140: 72 69 65 73 20 63 6f 6e 74 61 69 6e 69 6e 67 0a  ries containing.
0150: 23 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 61 74  # the documentat
0160: 69 6f 6e 20 73 6f 75 72 63 65 20 61 6e 64 20 70  ion source and p
0170: 72 6f 67 72 61 6d 20 73 6f 75 72 63 65 2e 20 20  rogram source.  
0180: 24 28 44 45 53 54 29 20 69 73 20 74 68 65 20 6e  $(DEST) is the n
0190: 61 6d 65 20 6f 66 0a 23 20 6f 66 20 74 68 65 20  ame of.# of the 
01a0: 64 69 72 65 63 74 6f 72 79 20 77 68 65 72 65 20  directory where 
01b0: 67 65 6e 65 72 61 74 65 64 20 48 54 4d 4c 20 69  generated HTML i
01c0: 73 20 77 72 69 74 74 65 6e 2e 20 20 73 6f 75 72  s written.  sour
01d0: 63 65 4e 2e 69 6e 20 69 73 20 74 68 65 0a 23 20  ceN.in is the.# 
01e0: 69 6e 70 75 74 20 66 69 6c 65 20 74 6f 20 62 65  input file to be
01f0: 20 70 72 6f 63 65 73 73 65 64 2e 20 20 54 68 65   processed.  The
0200: 20 6f 75 74 70 75 74 20 69 73 20 73 6f 75 72 63   output is sourc
0210: 65 4e 2e 68 74 6d 6c 20 69 6e 20 74 68 65 0a 23  eN.html in the.#
0220: 20 24 28 44 45 53 54 29 20 64 69 72 65 63 74 6f   $(DEST) directo
0230: 72 79 2e 0a 23 0a 23 20 43 68 61 6e 67 65 73 20  ry..#.# Changes 
0240: 6d 61 64 65 20 74 6f 20 74 68 65 20 73 6f 75 72  made to the sour
0250: 63 65 20 66 69 6c 65 73 3a 0a 23 0a 23 20 20 20  ce files:.#.#   
0260: 20 20 2a 20 20 41 6e 20 61 70 70 72 6f 70 72 69    *  An appropri
0270: 61 74 65 20 68 65 61 64 65 72 20 28 63 6f 6e 74  ate header (cont
0280: 61 69 6e 69 6e 67 20 74 68 65 20 53 51 4c 69 74  aining the SQLit
0290: 65 20 6c 6f 67 6f 20 61 6e 64 20 73 74 61 6e 64  e logo and stand
02a0: 61 72 64 0a 23 20 20 20 20 20 20 20 20 6d 65 6e  ard.#        men
02b0: 75 20 62 61 72 29 20 69 73 20 70 72 65 70 65 6e  u bar) is prepen
02c0: 64 65 64 20 74 6f 20 74 68 65 20 66 69 6c 65 2e  ded to the file.
02d0: 20 20 0a 23 0a 23 20 20 20 20 20 2a 20 20 41 6e    .#.#     *  An
02e0: 79 20 3c 74 69 74 6c 65 3e 2e 2e 2e 3c 2f 74 69  y <title>...</ti
02f0: 74 6c 65 3e 20 69 6e 20 74 68 65 20 69 6e 70 75  tle> in the inpu
0300: 74 20 69 73 20 6d 6f 76 65 64 20 69 6e 74 6f 20  t is moved into 
0310: 74 68 65 20 70 72 65 70 65 6e 64 65 64 0a 23 20  the prepended.# 
0320: 20 20 20 20 20 20 20 68 65 61 64 65 72 2e 0a 23         header..#
0330: 0a 23 20 20 20 20 20 2a 20 20 41 6e 20 61 70 70  .#     *  An app
0340: 72 6f 70 72 69 61 74 65 20 66 6f 6f 74 65 72 20  ropriate footer 
0350: 69 73 20 61 70 70 65 6e 64 65 64 2e 0a 23 0a 23  is appended..#.#
0360: 20 20 20 20 20 2a 20 20 53 63 72 69 70 74 73 20       *  Scripts 
0370: 77 69 74 68 69 6e 20 3c 74 63 6c 3e 2e 2e 2e 3c  within <tcl>...<
0380: 2f 74 63 6c 3e 20 61 72 65 20 65 76 61 6c 75 61  /tcl> are evalua
0390: 74 65 64 2e 20 20 4f 75 74 70 75 74 20 74 68 61  ted.  Output tha
03a0: 74 0a 23 20 20 20 20 20 20 20 20 69 73 20 65 6d  t.#        is em
03b0: 69 74 74 65 64 20 66 72 6f 6d 20 74 68 65 73 65  itted from these
03c0: 20 73 63 72 69 70 74 73 20 62 79 20 22 68 64 5f   scripts by "hd_
03d0: 70 75 74 73 22 20 6f 72 20 22 68 64 5f 72 65 73  puts" or "hd_res
03e0: 6f 6c 76 65 22 0a 23 20 20 20 20 20 20 20 20 70  olve".#        p
03f0: 72 6f 63 65 64 75 72 65 73 20 61 70 70 65 61 72  rocedures appear
0400: 73 20 69 6e 20 70 6c 61 63 65 20 6f 66 20 74 68  s in place of th
0410: 65 20 6f 72 69 67 69 6e 61 6c 20 73 63 72 69 70  e original scrip
0420: 74 2e 0a 23 0a 23 20 20 20 20 20 2a 20 20 48 79  t..#.#     *  Hy
0430: 70 65 72 6c 69 6e 6b 73 20 77 69 74 68 69 6e 20  perlinks within 
0440: 5b 2e 2e 2e 5d 20 61 72 65 20 72 65 73 6f 6c 76  [...] are resolv
0450: 65 64 2e 0a 23 0a 23 20 41 20 74 77 6f 2d 70 61  ed..#.# A two-pa
0460: 73 73 20 61 6c 67 6f 72 69 74 68 6d 20 69 73 20  ss algorithm is 
0470: 75 73 65 64 2e 20 20 54 68 65 20 66 69 72 73 74  used.  The first
0480: 20 70 61 73 73 20 63 6f 6c 6c 65 63 74 73 20 74   pass collects t
0490: 68 65 20 6e 61 6d 65 73 20 6f 66 0a 23 20 68 79  he names of.# hy
04a0: 70 65 72 6c 69 6e 6b 20 74 61 72 67 65 74 73 2c  perlink targets,
04b0: 20 72 65 71 75 69 72 65 6d 65 6e 74 73 20 74 65   requirements te
04c0: 78 74 2c 20 61 6e 64 20 6f 74 68 65 72 20 67 6c  xt, and other gl
04d0: 6f 62 61 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e  obal information
04e0: 2e 0a 23 20 54 68 65 20 73 65 63 6f 6e 64 20 70  ..# The second p
04f0: 61 73 73 20 75 73 65 73 20 74 68 65 20 64 61 74  ass uses the dat
0500: 61 20 67 61 74 68 65 72 65 64 20 6f 6e 20 74 68  a gathered on th
0510: 65 20 66 69 72 73 74 20 70 61 73 73 20 74 6f 20  e first pass to 
0520: 67 65 6e 65 72 61 74 65 0a 23 20 74 68 65 20 66  generate.# the f
0530: 69 6e 61 6c 20 6f 75 74 70 75 74 2e 0a 23 0a 73  inal output..#.s
0540: 65 74 20 44 4f 43 20 5b 6c 69 6e 64 65 78 20 24  et DOC [lindex $
0550: 61 72 67 76 20 30 5d 0a 73 65 74 20 53 52 43 20  argv 0].set SRC 
0560: 5b 6c 69 6e 64 65 78 20 24 61 72 67 76 20 31 5d  [lindex $argv 1]
0570: 0a 73 65 74 20 44 45 53 54 20 5b 6c 69 6e 64 65  .set DEST [linde
0580: 78 20 24 61 72 67 76 20 32 5d 0a 73 65 74 20 48  x $argv 2].set H
0590: 4f 4d 45 44 49 52 20 5b 70 77 64 5d 20 20 20 20  OMEDIR [pwd]    
05a0: 20 20 20 20 20 20 20 20 3b 23 20 41 6c 73 6f 20          ;# Also 
05b0: 72 65 6d 65 6d 62 65 72 20 6f 75 72 20 68 6f 6d  remember our hom
05c0: 65 20 64 69 72 65 63 74 6f 72 79 2e 0a 0a 73 6f  e directory...so
05d0: 75 72 63 65 20 5b 66 69 6c 65 20 64 69 72 6e 61  urce [file dirna
05e0: 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d  me [info script]
05f0: 5d 2f 70 61 67 65 73 2f 66 61 6e 63 79 66 6f 72  ]/pages/fancyfor
0600: 6d 61 74 2e 74 63 6c 0a 0a 23 20 4f 70 65 6e 20  mat.tcl..# Open 
0610: 74 68 65 20 53 51 4c 69 74 65 20 64 61 74 61 62  the SQLite datab
0620: 61 73 65 2e 0a 23 0a 73 71 6c 69 74 65 33 20 64  ase..#.sqlite3 d
0630: 62 20 64 6f 63 69 6e 66 6f 2e 64 62 0a 64 62 20  b docinfo.db.db 
0640: 65 76 61 6c 20 7b 0a 20 20 42 45 47 49 4e 3b 0a  eval {.  BEGIN;.
0650: 20 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 6c 69    DELETE FROM li
0660: 6e 6b 3b 0a 20 20 44 45 4c 45 54 45 20 46 52 4f  nk;.  DELETE FRO
0670: 4d 20 6b 65 79 77 6f 72 64 3b 0a 20 20 44 45 4c  M keyword;.  DEL
0680: 45 54 45 20 46 52 4f 4d 20 66 72 61 67 6d 65 6e  ETE FROM fragmen
0690: 74 3b 0a 20 20 44 45 4c 45 54 45 20 46 52 4f 4d  t;.  DELETE FROM
06a0: 20 70 61 67 65 3b 0a 7d 0a 0a 23 20 4c 6f 61 64   page;.}..# Load
06b0: 20 74 68 65 20 73 79 6e 74 61 78 20 64 69 61 67   the syntax diag
06c0: 72 61 6d 20 6c 69 6e 6b 61 67 65 20 64 61 74 61  ram linkage data
06d0: 0a 23 0a 73 6f 75 72 63 65 20 24 44 4f 43 2f 61  .#.source $DOC/a
06e0: 72 74 2f 73 79 6e 74 61 78 2f 73 79 6e 74 61 78  rt/syntax/syntax
06f0: 5f 6c 69 6e 6b 61 67 65 2e 74 63 6c 0a 0a 0a 23  _linkage.tcl...#
0700: 20 54 68 69 73 20 69 73 20 74 68 65 20 66 69 72   This is the fir
0710: 73 74 2d 70 61 73 73 20 69 6d 70 6c 65 6d 65 6e  st-pass implemen
0720: 74 61 74 69 6f 6e 20 6f 66 20 70 72 6f 63 65 64  tation of proced
0730: 75 72 65 20 74 68 61 74 20 72 65 6e 64 65 72 73  ure that renders
0740: 0a 23 20 68 79 70 65 72 6c 69 6e 6b 73 2e 20 20  .# hyperlinks.  
0750: 44 6f 20 6e 6f 74 20 65 76 65 6e 20 62 6f 74 68  Do not even both
0760: 65 72 20 74 72 79 69 6e 67 20 74 6f 20 64 6f 20  er trying to do 
0770: 61 6e 79 74 68 69 6e 67 20 64 75 72 69 6e 67 20  anything during 
0780: 74 68 65 0a 23 20 66 69 72 73 74 20 70 61 73 73  the.# first pass
0790: 2e 20 20 57 65 20 68 61 76 65 20 74 6f 20 63 6f  .  We have to co
07a0: 6c 6c 65 63 74 20 6b 65 79 77 6f 72 64 20 69 6e  llect keyword in
07b0: 66 6f 72 6d 61 74 69 6f 6e 20 62 65 66 6f 72 65  formation before
07c0: 20 74 68 65 0a 23 20 68 79 70 65 72 6c 69 6e 6b   the.# hyperlink
07d0: 73 20 61 72 65 20 6d 65 61 6e 69 6e 67 66 75 6c  s are meaningful
07e0: 2e 20 20 0a 23 0a 70 72 6f 63 20 68 64 5f 72 65  .  .#.proc hd_re
07f0: 73 6f 6c 76 65 20 7b 74 65 78 74 7d 20 7b 0a 20  solve {text} {. 
0800: 20 68 64 5f 70 75 74 73 20 24 74 65 78 74 0a 7d   hd_puts $text.}
0810: 0a 0a 23 20 54 68 69 73 20 69 73 20 74 68 65 20  ..# This is the 
0820: 73 65 63 6f 6e 64 2d 70 61 73 73 20 69 6d 70 6c  second-pass impl
0830: 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68  ementation of th
0840: 65 20 70 72 6f 63 65 64 75 72 65 20 74 68 61 74  e procedure that
0850: 0a 23 20 72 65 6e 64 65 72 73 20 68 79 70 65 72  .# renders hyper
0860: 6c 69 6e 6b 73 2e 20 20 43 6f 6e 76 65 72 74 20  links.  Convert 
0870: 61 6c 6c 20 68 79 70 65 72 6c 69 6e 6b 73 20 69  all hyperlinks i
0880: 6e 20 24 74 65 78 74 20 69 6e 74 6f 20 0a 23 20  n $text into .# 
0890: 61 70 70 72 6f 70 72 69 61 74 65 20 3c 61 20 68  appropriate <a h
08a0: 72 65 66 3d 22 22 3e 20 6d 61 72 6b 75 70 2e 0a  ref=""> markup..
08b0: 23 0a 23 20 4c 69 6e 6b 73 20 74 6f 20 6b 65 79  #.# Links to key
08c0: 77 6f 72 64 73 20 77 69 74 68 69 6e 20 74 68 65  words within the
08d0: 20 73 61 6d 65 20 6d 61 69 6e 20 66 69 6c 65 20   same main file 
08e0: 61 72 65 20 72 65 73 6f 6c 76 65 64 20 75 73 69  are resolved usi
08f0: 6e 67 0a 23 20 24 3a 3a 6c 6c 69 6e 6b 28 29 20  ng.# $::llink() 
0900: 69 66 20 70 6f 73 73 69 62 6c 65 2e 20 20 41 6c  if possible.  Al
0910: 6c 20 6f 74 68 65 72 20 6c 69 6e 6b 73 20 61 6e  l other links an
0920: 64 20 6c 69 6e 6b 73 20 74 68 61 74 20 63 6f 75  d links that cou
0930: 6c 64 0a 23 20 6e 6f 74 20 62 65 20 72 65 73 6f  ld.# not be reso
0940: 6c 76 65 64 20 75 73 69 6e 67 20 24 3a 3a 6c 6c  lved using $::ll
0950: 69 6e 6b 28 29 20 61 72 65 20 72 65 73 6f 6c 76  ink() are resolv
0960: 65 64 20 75 73 69 6e 67 20 24 3a 3a 67 6c 69 6e  ed using $::glin
0970: 6b 28 29 2e 0a 23 20 0a 70 72 6f 63 20 68 64 5f  k()..# .proc hd_
0980: 72 65 73 6f 6c 76 65 5f 32 6e 64 70 61 73 73 20  resolve_2ndpass 
0990: 7b 74 65 78 74 7d 20 7b 0a 20 20 72 65 67 73 75  {text} {.  regsu
09a0: 62 20 2d 61 6c 6c 20 7b 5c 5b 28 2e 2a 3f 29 5c  b -all {\[(.*?)\
09b0: 5d 7d 20 24 74 65 78 74 20 5c 0a 20 20 20 20 20  ]} $text \.     
09c0: 20 22 5c 31 37 35 3b 20 68 64 5f 72 65 73 6f 6c   "\175; hd_resol
09d0: 76 65 5f 6f 6e 65 20 5c 31 37 33 5c 5c 31 5c 31  ve_one \173\\1\1
09e0: 37 35 3b 20 68 64 5f 70 75 74 73 20 5c 31 37 33  75; hd_puts \173
09f0: 22 20 74 65 78 74 0a 20 20 65 76 61 6c 20 22 68  " text.  eval "h
0a00: 64 5f 70 75 74 73 20 5c 31 37 33 24 74 65 78 74  d_puts \173$text
0a10: 5c 31 37 35 22 0a 7d 0a 70 72 6f 63 20 68 64 5f  \175".}.proc hd_
0a20: 72 65 73 6f 6c 76 65 5f 6f 6e 65 20 7b 78 7d 20  resolve_one {x} 
0a30: 7b 0a 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20  {.  if {[string 
0a40: 69 73 20 69 6e 74 65 67 65 72 20 24 78 5d 7d 20  is integer $x]} 
0a50: 7b 0a 20 20 20 20 68 64 5f 70 75 74 73 20 5c 5b  {.    hd_puts \[
0a60: 24 78 5c 5d 0a 20 20 20 20 72 65 74 75 72 6e 0a  $x\].    return.
0a70: 20 20 7d 0a 20 20 73 65 74 20 78 32 20 5b 73 70    }.  set x2 [sp
0a80: 6c 69 74 20 24 78 20 7c 5d 0a 20 20 73 65 74 20  lit $x |].  set 
0a90: 6b 77 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20  kw [string trim 
0aa0: 5b 6c 69 6e 64 65 78 20 24 78 32 20 30 5d 5d 0a  [lindex $x2 0]].
0ab0: 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24    if {[llength $
0ac0: 78 32 5d 3d 3d 31 7d 20 7b 0a 20 20 20 20 73 65  x2]==1} {.    se
0ad0: 74 20 63 6f 6e 74 65 6e 74 20 24 6b 77 0a 20 20  t content $kw.  
0ae0: 20 20 72 65 67 73 75 62 20 7b 5c 28 5b 5e 29 5d    regsub {\([^)]
0af0: 2a 5c 29 7d 20 24 63 6f 6e 74 65 6e 74 20 7b 7d  *\)} $content {}
0b00: 20 6b 77 0a 20 20 20 20 72 65 67 73 75 62 20 7b   kw.    regsub {
0b10: 3d 2e 2a 7d 20 24 6b 77 20 7b 7d 20 6b 77 0a 20  =.*} $kw {} kw. 
0b20: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65   } else {.    se
0b30: 74 20 63 6f 6e 74 65 6e 74 20 5b 73 74 72 69 6e  t content [strin
0b40: 67 20 74 72 69 6d 20 5b 6c 69 6e 64 65 78 20 24  g trim [lindex $
0b50: 78 32 20 31 5d 5d 0a 20 20 7d 0a 20 20 69 66 20  x2 1]].  }.  if 
0b60: 7b 21 5b 72 65 67 65 78 70 20 7b 5e 68 74 74 70  {![regexp {^http
0b70: 73 3f 3a 7d 20 24 6b 77 5d 7d 20 7b 0a 20 20 20  s?:} $kw]} {.   
0b80: 20 72 65 67 73 75 62 20 2d 61 6c 6c 20 7b 5b 5e   regsub -all {[^
0b90: 61 2d 7a 41 2d 5a 30 2d 39 5f 2e 23 2f 20 2d 5d  a-zA-Z0-9_.#/ -]
0ba0: 7d 20 24 6b 77 20 7b 7d 20 6b 77 0a 20 20 7d 0a  } $kw {} kw.  }.
0bb0: 20 20 67 6c 6f 62 61 6c 20 68 64 20 6c 6c 69 6e    global hd llin
0bc0: 6b 20 67 6c 69 6e 6b 20 62 61 63 6b 6c 69 6e 6b  k glink backlink
0bd0: 0a 20 20 69 66 20 7b 24 68 64 28 65 6e 61 62 6c  .  if {$hd(enabl
0be0: 65 2d 6d 61 69 6e 29 7d 20 7b 0a 20 20 20 20 73  e-main)} {.    s
0bf0: 65 74 20 66 6e 20 24 68 64 28 66 6e 2d 6d 61 69  et fn $hd(fn-mai
0c00: 6e 29 0a 20 20 20 20 69 66 20 7b 5b 72 65 67 65  n).    if {[rege
0c10: 78 70 20 7b 5e 68 74 74 70 73 3f 3a 7d 20 24 6b  xp {^https?:} $k
0c20: 77 5d 7d 20 7b 0a 20 20 20 20 20 20 70 75 74 73  w]} {.      puts
0c30: 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 24 68 64 28   -nonewline $hd(
0c40: 6d 61 69 6e 29 20 5c 0a 20 20 20 20 20 20 20 20  main) \.        
0c50: 22 3c 61 20 68 72 65 66 3d 5c 22 24 6b 77 5c 22  "<a href=\"$kw\"
0c60: 3e 24 63 6f 6e 74 65 6e 74 3c 2f 61 3e 22 0a 20  >$content</a>". 
0c70: 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 72 65     } elseif {[re
0c80: 67 65 78 70 20 7b 5e 5b 54 74 5d 69 63 6b 65 74  gexp {^[Tt]icket
0c90: 20 23 28 5c 64 2b 29 24 7d 20 24 6b 77 20 61 6c   #(\d+)$} $kw al
0ca0: 6c 20 74 6b 74 69 64 5d 7d 20 7b 0a 20 20 20 20  l tktid]} {.    
0cb0: 20 20 73 65 74 20 75 72 6c 20 68 74 74 70 3a 2f    set url http:/
0cc0: 2f 77 77 77 2e 73 71 6c 69 74 65 2e 6f 72 67 2f  /www.sqlite.org/
0cd0: 63 76 73 74 72 61 63 2f 74 6b 74 76 69 65 77 3f  cvstrac/tktview?
0ce0: 74 6e 3d 24 74 6b 74 69 64 0a 20 20 20 20 20 20  tn=$tktid.      
0cf0: 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20  puts -nonewline 
0d00: 24 68 64 28 6d 61 69 6e 29 20 5c 0a 20 20 20 20  $hd(main) \.    
0d10: 20 20 20 20 22 3c 61 20 68 72 65 66 3d 5c 22 24      "<a href=\"$
0d20: 75 72 6c 5c 22 3e 24 63 6f 6e 74 65 6e 74 3c 2f  url\">$content</
0d30: 61 3e 22 0a 20 20 20 20 7d 20 65 6c 73 65 69 66  a>".    } elseif
0d40: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6c   {[info exists l
0d50: 6c 69 6e 6b 28 24 66 6e 3a 24 6b 77 29 5d 7d 20  link($fn:$kw)]} 
0d60: 7b 0a 20 20 20 20 20 20 70 75 74 73 20 2d 6e 6f  {.      puts -no
0d70: 6e 65 77 6c 69 6e 65 20 24 68 64 28 6d 61 69 6e  newline $hd(main
0d80: 29 20 5c 0a 20 20 20 20 20 20 20 20 22 3c 61 20  ) \.        "<a 
0d90: 68 72 65 66 3d 5c 22 24 68 64 28 72 6f 6f 74 70  href=\"$hd(rootp
0da0: 61 74 68 2d 6d 61 69 6e 29 24 6c 6c 69 6e 6b 28  ath-main)$llink(
0db0: 24 66 6e 3a 24 6b 77 29 5c 22 3e 24 63 6f 6e 74  $fn:$kw)\">$cont
0dc0: 65 6e 74 3c 2f 61 3e 22 0a 20 20 20 20 7d 20 65  ent</a>".    } e
0dd0: 6c 73 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  lseif {[info exi
0de0: 73 74 73 20 67 6c 69 6e 6b 28 24 6b 77 29 5d 7d  sts glink($kw)]}
0df0: 20 7b 0a 20 20 20 20 20 20 70 75 74 73 20 2d 6e   {.      puts -n
0e00: 6f 6e 65 77 6c 69 6e 65 20 24 68 64 28 6d 61 69  onewline $hd(mai
0e10: 6e 29 20 5c 0a 20 20 20 20 20 20 20 20 22 3c 61  n) \.        "<a
0e20: 20 68 72 65 66 3d 5c 22 24 68 64 28 72 6f 6f 74   href=\"$hd(root
0e30: 70 61 74 68 2d 6d 61 69 6e 29 24 67 6c 69 6e 6b  path-main)$glink
0e40: 28 24 6b 77 29 5c 22 3e 24 63 6f 6e 74 65 6e 74  ($kw)\">$content
0e50: 3c 2f 61 3e 22 0a 20 20 20 20 7d 20 65 6c 73 65  </a>".    } else
0e60: 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 5c 2e 67  if {[regexp {\.g
0e70: 69 66 24 7d 20 24 6b 77 5d 7d 20 7b 0a 20 20 20  if$} $kw]} {.   
0e80: 20 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69     puts -nonewli
0e90: 6e 65 20 24 68 64 28 6d 61 69 6e 29 20 5c 0a 20  ne $hd(main) \. 
0ea0: 20 20 20 20 20 20 20 22 3c 69 6d 67 20 73 72 63         "<img src
0eb0: 3d 5c 22 24 68 64 28 72 6f 6f 74 70 61 74 68 2d  =\"$hd(rootpath-
0ec0: 6d 61 69 6e 29 69 6d 61 67 65 73 2f 24 6b 77 5c  main)images/$kw\
0ed0: 22 3e 22 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b  ">".    } else {
0ee0: 0a 20 20 20 20 20 20 70 75 74 73 20 73 74 64 65  .      puts stde
0ef0: 72 72 20 22 45 52 52 4f 52 3a 20 75 6e 6b 6e 6f  rr "ERROR: unkno
0f00: 77 6e 20 68 79 70 65 72 6c 69 6e 6b 20 74 61 72  wn hyperlink tar
0f10: 67 65 74 3a 20 24 6b 77 22 0a 20 20 20 20 20 20  get: $kw".      
0f20: 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20  puts -nonewline 
0f30: 24 68 64 28 6d 61 69 6e 29 20 22 3c 66 6f 6e 74  $hd(main) "<font
0f40: 20 63 6f 6c 6f 72 3d 5c 22 72 65 64 5c 22 3e 24   color=\"red\">$
0f50: 63 6f 6e 74 65 6e 74 3c 2f 66 6f 6e 74 3e 22 0a  content</font>".
0f60: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 24 68      }.    if {$h
0f70: 64 28 66 72 61 67 6d 65 6e 74 29 21 3d 22 22 7d  d(fragment)!=""}
0f80: 20 7b 0a 20 20 20 20 20 20 6c 61 70 70 65 6e 64   {.      lappend
0f90: 20 62 61 63 6b 6c 69 6e 6b 28 24 6b 77 29 20 24   backlink($kw) $
0fa0: 66 6e 23 24 68 64 28 66 72 61 67 6d 65 6e 74 29  fn#$hd(fragment)
0fb0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20  .    } else {.  
0fc0: 20 20 20 20 6c 61 70 70 65 6e 64 20 62 61 63 6b      lappend back
0fd0: 6c 69 6e 6b 28 24 6b 77 29 20 24 66 6e 0a 20 20  link($kw) $fn.  
0fe0: 20 20 7d 0a 20 20 7d 0a 20 20 69 66 20 7b 24 68    }.  }.  if {$h
0ff0: 64 28 65 6e 61 62 6c 65 2d 61 75 78 29 7d 20 7b  d(enable-aux)} {
1000: 0a 20 20 20 20 69 66 20 7b 5b 72 65 67 65 78 70  .    if {[regexp
1010: 20 7b 5e 68 74 74 70 73 3f 3a 7d 20 24 6b 77 5d   {^https?:} $kw]
1020: 7d 20 7b 0a 20 20 20 20 20 20 70 75 74 73 20 2d  } {.      puts -
1030: 6e 6f 6e 65 77 6c 69 6e 65 20 24 68 64 28 61 75  nonewline $hd(au
1040: 78 29 20 5c 0a 20 20 20 20 20 20 20 20 22 3c 61  x) \.        "<a
1050: 20 68 72 65 66 3d 5c 22 24 6b 77 5c 22 3e 24 63   href=\"$kw\">$c
1060: 6f 6e 74 65 6e 74 3c 2f 61 3e 22 0a 20 20 20 20  ontent</a>".    
1070: 7d 20 65 6c 73 65 69 66 20 7b 5b 72 65 67 65 78  } elseif {[regex
1080: 70 20 7b 5e 5b 54 74 5d 69 63 6b 65 74 20 23 28  p {^[Tt]icket #(
1090: 5c 64 2b 29 24 7d 20 24 6b 77 20 61 6c 6c 20 74  \d+)$} $kw all t
10a0: 6b 74 69 64 5d 7d 20 7b 0a 20 20 20 20 20 20 73  ktid]} {.      s
10b0: 65 74 20 75 72 6c 20 68 74 74 70 3a 2f 2f 77 77  et url http://ww
10c0: 77 2e 73 71 6c 69 74 65 2e 6f 72 67 2f 63 76 73  w.sqlite.org/cvs
10d0: 74 72 61 63 2f 74 6b 74 76 69 65 77 3f 74 6e 3d  trac/tktview?tn=
10e0: 24 74 6b 74 69 64 0a 20 20 20 20 20 20 70 75 74  $tktid.      put
10f0: 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 24 68 64  s -nonewline $hd
1100: 28 61 75 78 29 20 5c 0a 20 20 20 20 20 20 20 20  (aux) \.        
1110: 22 3c 61 20 68 72 65 66 3d 5c 22 24 75 72 6c 5c  "<a href=\"$url\
1120: 22 3e 24 63 6f 6e 74 65 6e 74 3c 2f 61 3e 22 0a  ">$content</a>".
1130: 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 69      } elseif {[i
1140: 6e 66 6f 20 65 78 69 73 74 73 20 67 6c 69 6e 6b  nfo exists glink
1150: 28 24 6b 77 29 5d 7d 20 7b 0a 20 20 20 20 20 20  ($kw)]} {.      
1160: 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20  puts -nonewline 
1170: 24 68 64 28 61 75 78 29 20 5c 0a 20 20 20 20 20  $hd(aux) \.     
1180: 20 20 20 22 3c 61 20 68 72 65 66 3d 5c 22 24 68     "<a href=\"$h
1190: 64 28 72 6f 6f 74 70 61 74 68 2d 61 75 78 29 24  d(rootpath-aux)$
11a0: 67 6c 69 6e 6b 28 24 6b 77 29 5c 22 3e 24 63 6f  glink($kw)\">$co
11b0: 6e 74 65 6e 74 3c 2f 61 3e 22 0a 20 20 20 20 7d  ntent</a>".    }
11c0: 20 65 6c 73 65 69 66 20 7b 5b 72 65 67 65 78 70   elseif {[regexp
11d0: 20 7b 5c 2e 67 69 66 24 7d 20 24 6b 77 5d 7d 20   {\.gif$} $kw]} 
11e0: 7b 0a 20 20 20 20 20 20 70 75 74 73 20 2d 6e 6f  {.      puts -no
11f0: 6e 65 77 6c 69 6e 65 20 24 68 64 28 6d 61 69 6e  newline $hd(main
1200: 29 20 5c 0a 20 20 20 20 20 20 20 20 22 3c 69 6d  ) \.        "<im
1210: 67 20 73 72 63 3d 5c 22 24 68 64 28 72 6f 6f 74  g src=\"$hd(root
1220: 70 61 74 68 2d 61 75 78 29 69 6d 61 67 65 73 2f  path-aux)images/
1230: 24 6b 77 5c 22 3e 22 0a 20 20 20 20 7d 20 65 6c  $kw\">".    } el
1240: 73 65 20 7b 0a 20 20 20 20 20 20 70 75 74 73 20  se {.      puts 
1250: 73 74 64 65 72 72 20 22 45 52 52 4f 52 3a 20 75  stderr "ERROR: u
1260: 6e 6b 6e 6f 77 6e 20 68 79 70 65 72 6c 69 6e 6b  nknown hyperlink
1270: 20 74 61 72 67 65 74 3a 20 24 6b 77 22 0a 20 20   target: $kw".  
1280: 20 20 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c      puts -nonewl
1290: 69 6e 65 20 24 68 64 28 61 75 78 29 20 22 3c 66  ine $hd(aux) "<f
12a0: 6f 6e 74 20 63 6f 6c 6f 72 3d 5c 22 72 65 64 5c  ont color=\"red\
12b0: 22 3e 24 63 6f 6e 74 65 6e 74 3c 2f 66 6f 6e 74  ">$content</font
12c0: 3e 22 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20  >".    }.    if 
12d0: 7b 24 68 64 28 61 75 78 2d 66 72 61 67 6d 65 6e  {$hd(aux-fragmen
12e0: 74 29 21 3d 22 22 7d 20 7b 0a 20 20 20 20 20 20  t)!=""} {.      
12f0: 6c 61 70 70 65 6e 64 20 62 61 63 6b 6c 69 6e 6b  lappend backlink
1300: 28 24 6b 77 29 20 24 68 64 28 66 6e 2d 61 75 78  ($kw) $hd(fn-aux
1310: 29 23 24 68 64 28 61 75 78 2d 66 72 61 67 6d 65  )#$hd(aux-fragme
1320: 6e 74 29 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b  nt).    } else {
1330: 0a 20 20 20 20 20 20 6c 61 70 70 65 6e 64 20 62  .      lappend b
1340: 61 63 6b 6c 69 6e 6b 28 24 6b 77 29 20 24 68 64  acklink($kw) $hd
1350: 28 66 6e 2d 61 75 78 29 0a 20 20 20 20 7d 0a 20  (fn-aux).    }. 
1360: 20 7d 0a 7d 0a 0a 0a 0a 23 20 52 65 63 6f 72 64   }.}....# Record
1370: 20 74 68 65 20 66 61 63 74 20 74 68 61 74 20 61   the fact that a
1380: 6c 6c 20 6b 65 79 77 6f 72 64 73 20 67 69 76 65  ll keywords give
1390: 6e 20 69 6e 20 74 68 65 20 61 72 67 75 6d 65 6e  n in the argumen
13a0: 74 20 6c 69 73 74 20 73 68 6f 75 6c 64 0a 23 20  t list should.# 
13b0: 63 61 75 73 65 20 61 20 6a 75 6d 70 20 74 6f 20  cause a jump to 
13c0: 74 68 65 20 63 75 72 72 65 6e 74 20 6c 6f 63 61  the current loca
13d0: 74 69 6f 6e 20 69 6e 20 74 68 65 20 63 75 72 72  tion in the curr
13e0: 65 6e 74 20 66 69 6c 65 2e 0a 23 0a 23 20 49 66  ent file..#.# If
13f0: 20 6f 6e 6c 79 20 74 68 65 20 6d 61 69 6e 20 6f   only the main o
1400: 75 74 70 75 74 20 66 69 6c 65 20 69 73 20 6f 70  utput file is op
1410: 65 6e 2c 20 74 68 65 6e 20 61 6c 6c 20 72 65 66  en, then all ref
1420: 65 72 65 6e 63 65 73 20 74 6f 20 74 68 65 0a 23  erences to the.#
1430: 20 6b 65 79 77 6f 72 64 20 6a 75 6d 70 20 74 6f   keyword jump to
1440: 20 74 68 65 20 6d 61 69 6e 20 6f 75 74 70 75 74   the main output
1450: 20 66 69 6c 65 2e 20 20 49 66 20 62 6f 74 68 20   file.  If both 
1460: 6d 61 69 6e 20 61 6e 64 20 61 75 78 20 61 72 65  main and aux are
1470: 0a 23 20 6f 70 65 6e 20 74 68 65 6e 20 72 65 66  .# open then ref
1480: 65 72 65 6e 63 65 73 20 66 72 6f 6d 20 77 69 74  erences from wit
1490: 68 69 6e 20 74 68 65 20 6d 61 69 6e 20 66 69 6c  hin the main fil
14a0: 65 20 6a 75 6d 70 20 74 6f 20 74 68 65 20 6d 61  e jump to the ma
14b0: 69 6e 20 66 69 6c 65 0a 23 20 61 6e 64 20 61 6c  in file.# and al
14c0: 6c 20 6f 74 68 65 72 20 72 65 66 65 72 65 6e 63  l other referenc
14d0: 65 73 20 6a 75 6d 70 20 74 6f 20 74 68 65 20 61  es jump to the a
14e0: 75 78 69 6c 69 61 72 79 20 66 69 6c 65 2e 0a 23  uxiliary file..#
14f0: 0a 23 20 54 68 69 73 20 70 72 6f 63 65 64 75 72  .# This procedur
1500: 65 20 69 73 20 6f 6e 6c 79 20 61 63 74 69 76 65  e is only active
1510: 20 64 75 72 69 6e 67 20 74 68 65 20 66 69 72 73   during the firs
1520: 74 20 70 61 73 73 20 77 68 65 6e 20 77 65 20 61  t pass when we a
1530: 72 65 0a 23 20 63 6f 6c 6c 65 63 74 69 6e 67 20  re.# collecting 
1540: 68 79 70 65 72 6c 69 6e 6b 20 69 6e 66 6f 72 6d  hyperlink inform
1550: 61 74 69 6f 6e 2e 20 20 54 68 69 73 20 70 72 6f  ation.  This pro
1560: 63 65 64 75 72 65 20 69 73 20 72 65 64 65 66 69  cedure is redefi
1570: 6e 65 64 20 74 6f 0a 23 20 62 65 20 61 20 6e 6f  ned to.# be a no
1580: 2d 6f 70 20 62 65 66 6f 72 65 20 74 68 65 20 73  -op before the s
1590: 74 61 72 74 20 6f 66 20 74 68 65 20 73 65 63 6f  tart of the seco
15a0: 6e 64 20 70 61 73 73 2e 0a 23 0a 70 72 6f 63 20  nd pass..#.proc 
15b0: 68 64 5f 6b 65 79 77 6f 72 64 73 20 7b 61 72 67  hd_keywords {arg
15c0: 73 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 67 6c  s} {.  global gl
15d0: 69 6e 6b 20 6c 6c 69 6e 6b 20 68 64 0a 20 20 69  ink llink hd.  i
15e0: 66 20 7b 24 68 64 28 66 72 61 67 6d 65 6e 74 29  f {$hd(fragment)
15f0: 3d 3d 22 22 7d 20 7b 0a 20 20 20 20 73 65 74 20  ==""} {.    set 
1600: 6c 75 72 6c 20 24 68 64 28 66 6e 2d 6d 61 69 6e  lurl $hd(fn-main
1610: 29 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20  ).  } else {.   
1620: 20 73 65 74 20 6c 75 72 6c 20 22 23 24 68 64 28   set lurl "#$hd(
1630: 66 72 61 67 6d 65 6e 74 29 22 0a 20 20 7d 0a 20  fragment)".  }. 
1640: 20 73 65 74 20 66 6e 20 24 68 64 28 66 6e 2d 6d   set fn $hd(fn-m
1650: 61 69 6e 29 0a 20 20 69 66 20 7b 5b 69 6e 66 6f  ain).  if {[info
1660: 20 65 78 69 73 74 73 20 68 64 28 61 75 78 29 5d   exists hd(aux)]
1670: 7d 20 7b 0a 20 20 20 20 73 65 74 20 67 75 72 6c  } {.    set gurl
1680: 20 24 68 64 28 66 6e 2d 61 75 78 29 0a 20 20 20   $hd(fn-aux).   
1690: 20 69 66 20 7b 24 68 64 28 61 75 78 2d 66 72 61   if {$hd(aux-fra
16a0: 67 6d 65 6e 74 29 21 3d 22 22 7d 20 7b 0a 20 20  gment)!=""} {.  
16b0: 20 20 20 20 61 70 70 65 6e 64 20 67 75 72 6c 20      append gurl 
16c0: 22 23 24 68 64 28 61 75 78 2d 66 72 61 67 6d 65  "#$hd(aux-fragme
16d0: 6e 74 29 22 0a 20 20 20 20 7d 0a 20 20 7d 20 65  nt)".    }.  } e
16e0: 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20 67 75  lse {.    set gu
16f0: 72 6c 20 7b 7d 0a 20 20 20 20 69 66 20 7b 24 68  rl {}.    if {$h
1700: 64 28 66 72 61 67 6d 65 6e 74 29 21 3d 22 22 7d  d(fragment)!=""}
1710: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 6c 75 72   {.      set lur
1720: 6c 20 24 68 64 28 66 6e 2d 6d 61 69 6e 29 23 24  l $hd(fn-main)#$
1730: 68 64 28 66 72 61 67 6d 65 6e 74 29 0a 20 20 20  hd(fragment).   
1740: 20 7d 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63 68   }.  }.  foreach
1750: 20 61 20 24 61 72 67 73 20 7b 0a 20 20 20 20 69   a $args {.    i
1760: 66 20 7b 5b 72 65 67 65 78 70 20 7b 5e 5c 2a 7d  f {[regexp {^\*}
1770: 20 24 61 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65   $a]} {.      se
1780: 74 20 76 69 73 69 62 6c 65 20 30 0a 20 20 20 20  t visible 0.    
1790: 20 20 73 65 74 20 61 20 5b 73 74 72 69 6e 67 20    set a [string 
17a0: 72 61 6e 67 65 20 24 61 20 31 20 65 6e 64 5d 0a  range $a 1 end].
17b0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20      } else {.   
17c0: 20 20 20 73 65 74 20 76 69 73 69 62 6c 65 20 31     set visible 1
17d0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 67 73 75  .    }.    regsu
17e0: 62 20 2d 61 6c 6c 20 7b 5b 5e 61 2d 7a 41 2d 5a  b -all {[^a-zA-Z
17f0: 30 2d 39 5f 2e 23 2f 20 2d 5d 7d 20 24 61 20 7b  0-9_.#/ -]} $a {
1800: 7d 20 6b 77 0a 20 20 20 20 69 66 20 7b 5b 69 6e  } kw.    if {[in
1810: 66 6f 20 65 78 69 73 74 73 20 67 6c 69 6e 6b 28  fo exists glink(
1820: 24 6b 77 29 5d 7d 20 7b 0a 20 20 20 20 20 20 69  $kw)]} {.      i
1830: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
1840: 68 64 28 61 75 78 29 5d 20 26 26 20 24 67 6c 69  hd(aux)] && $gli
1850: 6e 6b 28 24 6b 77 29 3d 3d 24 68 64 28 66 6e 2d  nk($kw)==$hd(fn-
1860: 61 75 78 29 7d 20 7b 0a 20 20 20 20 20 20 20 20  aux)} {.        
1870: 64 62 20 65 76 61 6c 20 7b 44 45 4c 45 54 45 20  db eval {DELETE 
1880: 46 52 4f 4d 20 6b 65 79 77 6f 72 64 20 57 48 45  FROM keyword WHE
1890: 52 45 20 6b 77 3d 24 6b 77 7d 0a 20 20 20 20 20  RE kw=$kw}.     
18a0: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20   } else {.      
18b0: 20 20 70 75 74 73 20 73 74 64 65 72 72 20 22 57    puts stderr "W
18c0: 41 52 4e 49 4e 47 3a 20 64 75 70 6c 69 63 61 74  ARNING: duplicat
18d0: 65 20 6b 65 79 77 6f 72 64 20 5c 22 24 6b 77 5c  e keyword \"$kw\
18e0: 22 20 2d 20 24 67 6c 69 6e 6b 28 24 6b 77 29 20  " - $glink($kw) 
18f0: 61 6e 64 20 24 6c 75 72 6c 22 0a 20 20 20 20 20  and $lurl".     
1900: 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20   }.    }.    if 
1910: 7b 24 67 75 72 6c 3d 3d 22 22 7d 20 7b 0a 20 20  {$gurl==""} {.  
1920: 20 20 20 20 73 65 74 20 67 6c 69 6e 6b 28 24 6b      set glink($k
1930: 77 29 20 24 6c 75 72 6c 0a 20 20 20 20 20 20 64  w) $lurl.      d
1940: 62 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 4f  b eval {INSERT O
1950: 52 20 49 47 4e 4f 52 45 20 49 4e 54 4f 20 6b 65  R IGNORE INTO ke
1960: 79 77 6f 72 64 28 6b 77 2c 66 72 61 67 6d 65 6e  yword(kw,fragmen
1970: 74 2c 69 6e 64 65 78 4b 77 29 20 0a 20 20 20 20  t,indexKw) .    
1980: 20 20 20 20 20 20 20 20 20 20 20 20 56 41 4c 55              VALU
1990: 45 53 28 24 61 2c 24 6c 75 72 6c 2c 24 76 69 73  ES($a,$lurl,$vis
19a0: 69 62 6c 65 29 7d 0a 20 20 20 20 7d 20 65 6c 73  ible)}.    } els
19b0: 65 20 7b 0a 20 20 20 20 20 20 73 65 74 20 67 6c  e {.      set gl
19c0: 69 6e 6b 28 24 6b 77 29 20 24 67 75 72 6c 0a 20  ink($kw) $gurl. 
19d0: 20 20 20 20 20 73 65 74 20 6c 6c 69 6e 6b 28 24       set llink($
19e0: 66 6e 3a 24 6b 77 29 20 24 6c 75 72 6c 0a 20 20  fn:$kw) $lurl.  
19f0: 20 20 20 20 64 62 20 65 76 61 6c 20 7b 49 4e 53      db eval {INS
1a00: 45 52 54 20 4f 52 20 49 47 4e 4f 52 45 20 49 4e  ERT OR IGNORE IN
1a10: 54 4f 20 6b 65 79 77 6f 72 64 28 6b 77 2c 66 72  TO keyword(kw,fr
1a20: 61 67 6d 65 6e 74 2c 69 6e 64 65 78 4b 77 29 20  agment,indexKw) 
1a30: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
1a40: 20 56 41 4c 55 45 53 28 24 61 2c 24 67 75 72 6c   VALUES($a,$gurl
1a50: 2c 24 76 69 73 69 62 6c 65 29 7d 0a 20 20 20 20  ,$visible)}.    
1a60: 7d 0a 20 20 7d 0a 7d 0a 0a 23 20 53 74 61 72 74  }.  }.}..# Start
1a70: 20 61 20 6e 65 77 20 66 72 61 67 6d 65 6e 74 20   a new fragment 
1a80: 69 6e 20 74 68 65 20 6d 61 69 6e 20 66 69 6c 65  in the main file
1a90: 2e 20 20 47 69 76 65 20 74 68 65 20 6e 65 77 20  .  Give the new 
1aa0: 66 72 61 67 6d 65 6e 74 20 74 68 65 0a 23 20 69  fragment the.# i
1ab0: 6e 64 69 63 61 74 65 64 20 6e 61 6d 65 2e 20 20  ndicated name.  
1ac0: 41 6e 79 20 6b 65 79 77 6f 72 64 73 20 64 65 66  Any keywords def
1ad0: 69 6e 65 64 20 61 66 74 65 72 20 74 68 69 73 20  ined after this 
1ae0: 70 6f 69 6e 74 20 77 69 6c 6c 20 72 65 66 65 72  point will refer
1af0: 0a 23 20 74 6f 20 74 68 65 20 66 72 61 67 6d 65  .# to the fragme
1b00: 6e 74 2c 20 6e 6f 74 20 74 6f 20 74 68 65 20 62  nt, not to the b
1b10: 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20  eginning of the 
1b20: 66 69 6c 65 2e 0a 23 0a 70 72 6f 63 20 68 64 5f  file..#.proc hd_
1b30: 66 72 61 67 6d 65 6e 74 20 7b 6e 61 6d 65 20 61  fragment {name a
1b40: 72 67 73 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20  rgs} {.  global 
1b50: 68 64 0a 20 20 73 65 74 20 68 64 28 66 72 61 67  hd.  set hd(frag
1b60: 6d 65 6e 74 29 20 24 6e 61 6d 65 0a 20 20 70 75  ment) $name.  pu
1b70: 74 73 20 24 68 64 28 6d 61 69 6e 29 20 22 3c 61  ts $hd(main) "<a
1b80: 20 6e 61 6d 65 3d 5c 22 24 6e 61 6d 65 5c 22 3e   name=\"$name\">
1b90: 3c 2f 61 3e 22 0a 20 20 69 66 20 7b 24 68 64 28  </a>".  if {$hd(
1ba0: 65 6e 61 62 6c 65 2d 61 75 78 29 7d 20 7b 0a 20  enable-aux)} {. 
1bb0: 20 20 20 70 75 74 73 20 24 68 64 28 61 75 78 29     puts $hd(aux)
1bc0: 20 22 3c 61 20 6e 61 6d 65 3d 5c 22 24 6e 61 6d   "<a name=\"$nam
1bd0: 65 5c 22 3e 3c 2f 61 3e 22 0a 20 20 20 20 73 65  e\"></a>".    se
1be0: 74 20 68 64 28 61 75 78 2d 66 72 61 67 6d 65 6e  t hd(aux-fragmen
1bf0: 74 29 20 24 6e 61 6d 65 0a 20 20 7d 0a 20 20 65  t) $name.  }.  e
1c00: 76 61 6c 20 68 64 5f 6b 65 79 77 6f 72 64 73 20  val hd_keywords 
1c10: 24 61 72 67 73 0a 7d 0a 0a 23 20 57 72 69 74 65  $args.}..# Write
1c20: 20 72 61 77 20 6f 75 74 70 75 74 20 74 6f 20 62   raw output to b
1c30: 6f 74 68 20 74 68 65 20 6d 61 69 6e 20 66 69 6c  oth the main fil
1c40: 65 20 61 6e 64 20 74 68 65 20 61 75 78 69 6c 69  e and the auxili
1c50: 61 72 79 2e 20 20 4f 6e 6c 79 20 77 72 69 74 65  ary.  Only write
1c60: 0a 23 20 74 6f 20 66 69 6c 65 73 20 74 68 61 74  .# to files that
1c70: 20 61 72 65 20 65 6e 61 62 6c 65 64 2e 0a 23 0a   are enabled..#.
1c80: 70 72 6f 63 20 68 64 5f 70 75 74 73 20 7b 74 65  proc hd_puts {te
1c90: 78 74 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 68  xt} {.  global h
1ca0: 64 0a 20 20 69 66 20 7b 24 68 64 28 65 6e 61 62  d.  if {$hd(enab
1cb0: 6c 65 2d 6d 61 69 6e 29 7d 20 7b 0a 20 20 20 20  le-main)} {.    
1cc0: 73 65 74 20 66 6e 20 24 68 64 28 66 6e 2d 6d 61  set fn $hd(fn-ma
1cd0: 69 6e 29 0a 20 20 20 20 70 75 74 73 20 2d 6e 6f  in).    puts -no
1ce0: 6e 65 77 6c 69 6e 65 20 24 68 64 28 6d 61 69 6e  newline $hd(main
1cf0: 29 20 24 74 65 78 74 0a 20 20 7d 0a 20 20 69 66  ) $text.  }.  if
1d00: 20 7b 24 68 64 28 65 6e 61 62 6c 65 2d 61 75 78   {$hd(enable-aux
1d10: 29 7d 20 7b 0a 20 20 20 20 73 65 74 20 66 6e 20  )} {.    set fn 
1d20: 24 68 64 28 66 6e 2d 61 75 78 29 0a 20 20 20 20  $hd(fn-aux).    
1d30: 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20  puts -nonewline 
1d40: 24 68 64 28 61 75 78 29 20 24 74 65 78 74 0a 20  $hd(aux) $text. 
1d50: 20 7d 0a 20 20 0a 20 20 23 20 4f 75 72 20 70 61   }.  .  # Our pa
1d60: 67 65 6c 69 6e 6b 20 70 72 6f 63 65 73 73 69 6e  gelink processin
1d70: 67 20 62 61 73 65 64 20 6f 66 66 20 74 68 65 20  g based off the 
1d80: 67 6c 6f 62 61 6c 73 0a 20 20 23 20 6c 6c 69 6e  globals.  # llin
1d90: 6b 2c 20 67 6c 69 6e 6b 2c 20 61 6e 64 20 62 61  k, glink, and ba
1da0: 63 6b 6c 69 6e 6b 20 67 65 6e 65 72 61 74 65 64  cklink generated
1db0: 20 64 75 72 69 6e 67 20 68 64 5f 72 65 73 6f 6c   during hd_resol
1dc0: 76 65 0a 20 20 23 20 70 72 6f 63 65 73 73 69 6e  ve.  # processin
1dd0: 67 20 64 6f 65 73 6e 27 74 20 63 61 74 63 68 20  g doesn't catch 
1de0: 6c 69 6e 6b 73 20 6f 75 74 70 75 74 74 65 64 20  links outputted 
1df0: 64 69 72 65 63 74 6c 79 0a 20 20 23 20 77 69 74  directly.  # wit
1e00: 68 20 68 64 5f 70 75 74 73 2e 20 20 54 68 69 73  h hd_puts.  This
1e10: 20 63 6f 64 65 20 61 74 74 65 6d 70 74 73 20 74   code attempts t
1e20: 6f 20 61 64 64 20 74 68 6f 73 65 20 6c 69 6e 6b  o add those link
1e30: 73 20 74 6f 0a 20 20 23 20 6f 75 72 20 70 61 67  s to.  # our pag
1e40: 65 6c 69 6e 6b 20 61 72 72 61 79 2e 0a 20 20 67  elink array..  g
1e50: 6c 6f 62 61 6c 20 70 61 67 65 6c 69 6e 6b 0a 20  lobal pagelink. 
1e60: 20 73 65 74 20 72 65 66 73 20 5b 72 65 67 65 78   set refs [regex
1e70: 70 20 2d 61 6c 6c 20 2d 69 6e 6c 69 6e 65 20 7b  p -all -inline {
1e80: 68 72 65 66 3d 5c 22 28 2e 2a 3f 29 5c 22 7d 20  href=\"(.*?)\"} 
1e90: 24 74 65 78 74 5d 0a 20 20 66 6f 72 65 61 63 68  $text].  foreach
1ea0: 20 7b 68 72 65 66 20 72 65 66 7d 20 24 72 65 66   {href ref} $ref
1eb0: 73 20 7b 0a 20 20 20 20 72 65 67 73 75 62 20 7b  s {.    regsub {
1ec0: 23 2e 2a 7d 20 24 72 65 66 20 7b 7d 20 72 65 66  #.*} $ref {} ref
1ed0: 32 0a 20 20 20 20 72 65 67 73 75 62 20 7b 68 74  2.    regsub {ht
1ee0: 74 70 3a 5c 2f 5c 2f 77 77 77 5c 2e 73 71 6c 69  tp:\/\/www\.sqli
1ef0: 74 65 5c 2e 6f 72 67 5c 2f 7d 20 24 72 65 66 32  te\.org\/} $ref2
1f00: 20 7b 7d 20 72 65 66 33 0a 20 20 20 20 72 65 67   {} ref3.    reg
1f10: 73 75 62 20 7b 5c 2e 5c 2e 5c 2f 7d 20 24 72 65  sub {\.\.\/} $re
1f20: 66 33 20 7b 7d 20 72 65 66 34 0a 20 20 20 20 69  f3 {} ref4.    i
1f30: 66 20 7b 5b 72 65 67 65 78 70 20 7b 5e 68 74 74  f {[regexp {^htt
1f40: 70 7d 20 24 72 65 66 34 5d 7d 20 63 6f 6e 74 69  p} $ref4]} conti
1f50: 6e 75 65 0a 20 20 20 20 69 66 20 7b 24 72 65 66  nue.    if {$ref
1f60: 34 3d 3d 22 22 7d 20 63 6f 6e 74 69 6e 75 65 0a  4==""} continue.
1f70: 20 20 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20      if {[regexp 
1f80: 7b 5c 2e 68 74 6d 6c 24 7d 20 24 72 65 66 34 5d  {\.html$} $ref4]
1f90: 7d 20 7b 0a 20 20 20 20 20 20 6c 61 70 70 65 6e  } {.      lappen
1fa0: 64 20 70 61 67 65 6c 69 6e 6b 28 24 72 65 66 34  d pagelink($ref4
1fb0: 29 20 24 66 6e 0a 20 20 20 20 7d 0a 20 20 7d 0a  ) $fn.    }.  }.
1fc0: 7d 0a 70 72 6f 63 20 68 64 5f 70 75 74 73 6e 6c  }.proc hd_putsnl
1fd0: 20 7b 74 65 78 74 7d 20 7b 0a 20 20 68 64 5f 70   {text} {.  hd_p
1fe0: 75 74 73 20 24 74 65 78 74 5c 6e 0a 7d 0a 0a 23  uts $text\n.}..#
1ff0: 20 45 6e 61 62 6c 65 20 6f 72 20 64 69 73 61 62   Enable or disab
2000: 6c 65 20 74 68 65 20 6d 61 69 6e 20 6f 75 74 70  le the main outp
2010: 75 74 20 66 69 6c 65 2e 0a 23 0a 70 72 6f 63 20  ut file..#.proc 
2020: 68 64 5f 65 6e 61 62 6c 65 5f 6d 61 69 6e 20 7b  hd_enable_main {
2030: 62 6f 6f 6c 65 61 6e 7d 20 7b 0a 20 20 67 6c 6f  boolean} {.  glo
2040: 62 61 6c 20 68 64 0a 20 20 73 65 74 20 68 64 28  bal hd.  set hd(
2050: 65 6e 61 62 6c 65 2d 6d 61 69 6e 29 20 24 62 6f  enable-main) $bo
2060: 6f 6c 65 61 6e 0a 7d 0a 0a 23 20 45 6e 61 62 6c  olean.}..# Enabl
2070: 65 20 6f 72 20 64 69 73 61 62 6c 65 20 74 68 65  e or disable the
2080: 20 61 75 78 69 6c 69 61 72 79 20 6f 75 74 70 75   auxiliary outpu
2090: 74 20 66 69 6c 65 2e 0a 23 0a 70 72 6f 63 20 68  t file..#.proc h
20a0: 64 5f 65 6e 61 62 6c 65 5f 61 75 78 20 7b 62 6f  d_enable_aux {bo
20b0: 6f 6c 65 61 6e 7d 20 7b 0a 20 20 67 6c 6f 62 61  olean} {.  globa
20c0: 6c 20 68 64 0a 20 20 73 65 74 20 68 64 28 65 6e  l hd.  set hd(en
20d0: 61 62 6c 65 2d 61 75 78 29 20 24 62 6f 6f 6c 65  able-aux) $boole
20e0: 61 6e 0a 7d 0a 73 65 74 20 68 64 28 65 6e 61 62  an.}.set hd(enab
20f0: 6c 65 2d 61 75 78 29 20 30 0a 0a 23 20 4f 70 65  le-aux) 0..# Ope
2100: 6e 20 74 68 65 20 6d 61 69 6e 20 6f 75 74 70 75  n the main outpu
2110: 74 20 66 69 6c 65 2e 20 20 24 66 69 6c 65 6e 61  t file.  $filena
2120: 6d 65 20 69 73 20 72 65 6c 61 74 69 76 65 20 74  me is relative t
2130: 6f 20 24 3a 3a 44 45 53 54 2e 20 20 0a 23 0a 70  o $::DEST.  .#.p
2140: 72 6f 63 20 68 64 5f 6f 70 65 6e 5f 6d 61 69 6e  roc hd_open_main
2150: 20 7b 66 69 6c 65 6e 61 6d 65 7d 20 7b 0a 20 20   {filename} {.  
2160: 67 6c 6f 62 61 6c 20 68 64 20 44 45 53 54 0a 20  global hd DEST. 
2170: 20 68 64 5f 63 6c 6f 73 65 5f 6d 61 69 6e 0a 20   hd_close_main. 
2180: 20 73 65 74 20 68 64 28 66 6e 2d 6d 61 69 6e 29   set hd(fn-main)
2190: 20 24 66 69 6c 65 6e 61 6d 65 0a 20 20 73 65 74   $filename.  set
21a0: 20 68 64 28 72 6f 6f 74 70 61 74 68 2d 6d 61 69   hd(rootpath-mai
21b0: 6e 29 20 5b 68 64 5f 72 6f 6f 74 70 61 74 68 20  n) [hd_rootpath 
21c0: 24 66 69 6c 65 6e 61 6d 65 5d 0a 20 20 73 65 74  $filename].  set
21d0: 20 68 64 28 6d 61 69 6e 29 20 5b 6f 70 65 6e 20   hd(main) [open 
21e0: 24 44 45 53 54 2f 24 66 69 6c 65 6e 61 6d 65 20  $DEST/$filename 
21f0: 77 5d 0a 20 20 73 65 74 20 68 64 28 65 6e 61 62  w].  set hd(enab
2200: 6c 65 2d 6d 61 69 6e 29 20 31 0a 20 20 73 65 74  le-main) 1.  set
2210: 20 68 64 28 65 6e 61 62 6c 65 2d 61 75 78 29 20   hd(enable-aux) 
2220: 30 0a 20 20 73 65 74 20 68 64 28 66 72 61 67 6d  0.  set hd(fragm
2230: 65 6e 74 29 20 7b 7d 0a 20 20 67 6c 6f 62 61 6c  ent) {}.  global
2240: 20 70 61 67 65 6c 69 6e 6b 0a 20 20 6c 61 70 70   pagelink.  lapp
2250: 65 6e 64 20 70 61 67 65 6c 69 6e 6b 28 24 66 69  end pagelink($fi
2260: 6c 65 6e 61 6d 65 29 20 24 66 69 6c 65 6e 61 6d  lename) $filenam
2270: 65 0a 7d 0a 0a 23 20 49 66 20 24 66 69 6c 65 6e  e.}..# If $filen
2280: 61 6d 65 20 69 73 20 61 20 70 61 74 68 20 66 72  ame is a path fr
2290: 6f 6d 20 24 3a 3a 44 45 53 54 20 74 6f 20 61 20  om $::DEST to a 
22a0: 66 69 6c 65 2c 20 72 65 74 75 72 6e 20 61 20 70  file, return a p
22b0: 61 74 68 0a 23 20 66 72 6f 6d 20 74 68 65 20 64  ath.# from the d
22c0: 69 72 65 63 74 6f 72 79 20 63 6f 6e 74 61 69 6e  irectory contain
22d0: 69 6e 67 20 24 66 69 6c 65 6e 61 6d 65 20 62 61  ing $filename ba
22e0: 63 6b 20 74 6f 20 74 68 65 20 64 69 72 65 63 74  ck to the direct
22f0: 6f 72 79 20 24 3a 3a 44 45 53 54 2e 0a 23 0a 70  ory $::DEST..#.p
2300: 72 6f 63 20 68 64 5f 72 6f 6f 74 70 61 74 68 20  roc hd_rootpath 
2310: 7b 66 69 6c 65 6e 61 6d 65 7d 20 7b 0a 20 20 73  {filename} {.  s
2320: 65 74 20 75 70 20 7b 7d 0a 20 20 73 65 74 20 6e  et up {}.  set n
2330: 20 5b 6c 6c 65 6e 67 74 68 20 5b 73 70 6c 69 74   [llength [split
2340: 20 24 66 69 6c 65 6e 61 6d 65 20 2f 5d 5d 0a 20   $filename /]]. 
2350: 20 69 66 20 7b 24 6e 3c 3d 31 7d 20 7b 0a 20 20   if {$n<=1} {.  
2360: 20 20 72 65 74 75 72 6e 20 7b 7d 0a 20 20 7d 20    return {}.  } 
2370: 65 6c 73 65 20 7b 0a 20 20 20 20 72 65 74 75 72  else {.    retur
2380: 6e 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74  n [string repeat
2390: 20 2e 2e 2f 20 5b 65 78 70 72 20 7b 24 6e 2d 31   ../ [expr {$n-1
23a0: 7d 5d 5d 0a 20 20 7d 0a 7d 0a 0a 23 20 43 6c 6f  }]].  }.}..# Clo
23b0: 73 65 20 74 68 65 20 6d 61 69 6e 20 6f 75 74 70  se the main outp
23c0: 75 74 20 66 69 6c 65 2e 0a 23 0a 70 72 6f 63 20  ut file..#.proc 
23d0: 68 64 5f 63 6c 6f 73 65 5f 6d 61 69 6e 20 7b 7d  hd_close_main {}
23e0: 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 68 64 0a 20   {.  global hd. 
23f0: 20 68 64 5f 63 6c 6f 73 65 5f 61 75 78 0a 20 20   hd_close_aux.  
2400: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
2410: 20 68 64 28 6d 61 69 6e 29 5d 7d 20 7b 0a 20 20   hd(main)]} {.  
2420: 20 20 70 75 74 73 20 24 68 64 28 6d 61 69 6e 29    puts $hd(main)
2430: 20 24 68 64 28 66 6f 6f 74 65 72 29 0a 20 20 20   $hd(footer).   
2440: 20 63 6c 6f 73 65 20 24 68 64 28 6d 61 69 6e 29   close $hd(main)
2450: 0a 20 20 20 20 75 6e 73 65 74 20 68 64 28 6d 61  .    unset hd(ma
2460: 69 6e 29 0a 20 20 7d 0a 7d 0a 0a 23 20 4f 70 65  in).  }.}..# Ope
2470: 6e 20 74 68 65 20 61 75 78 69 6c 69 61 72 79 20  n the auxiliary 
2480: 6f 75 74 70 75 74 20 66 69 6c 65 2e 0a 23 0a 23  output file..#.#
2490: 20 4d 6f 73 74 20 64 6f 63 75 6d 65 6e 74 73 20   Most documents 
24a0: 68 61 76 65 20 6f 6e 6c 79 20 61 20 6d 61 69 6e  have only a main
24b0: 20 66 69 6c 65 20 61 6e 64 20 6e 6f 20 61 75 78   file and no aux
24c0: 69 6c 69 61 72 79 2e 20 20 48 6f 77 65 76 65 72  iliary.  However
24d0: 2c 20 73 6f 6d 65 0a 23 20 6c 61 72 67 65 20 64  , some.# large d
24e0: 6f 63 75 6d 65 6e 74 73 20 61 72 65 20 62 72 6f  ocuments are bro
24f0: 6b 65 6e 20 75 70 20 69 6e 74 6f 20 73 6d 61 6c  ken up into smal
2500: 6c 65 72 20 70 69 65 63 65 73 20 77 68 65 72 65  ler pieces where
2510: 20 65 61 63 68 20 73 6d 61 6c 6c 65 72 20 70 69   each smaller pi
2520: 65 63 65 0a 23 20 69 73 20 61 6e 20 61 75 78 69  ece.# is an auxi
2530: 6c 69 61 72 79 20 66 69 6c 65 2e 20 20 54 68 65  liary file.  The
2540: 72 65 20 77 69 6c 6c 20 74 79 70 69 63 61 6c 6c  re will typicall
2550: 79 20 62 65 20 65 69 74 68 65 72 20 6d 61 6e 79  y be either many
2560: 20 61 75 78 69 6c 69 61 72 79 20 66 69 6c 65 73   auxiliary files
2570: 0a 23 20 6f 72 20 6e 6f 20 61 75 78 69 6c 69 61  .# or no auxilia
2580: 72 79 20 66 69 6c 65 73 20 61 73 73 6f 63 69 61  ry files associa
2590: 74 65 64 20 77 69 74 68 20 65 61 63 68 20 6d 61  ted with each ma
25a0: 69 6e 20 66 69 6c 65 2e 0a 23 0a 70 72 6f 63 20  in file..#.proc 
25b0: 68 64 5f 6f 70 65 6e 5f 61 75 78 20 7b 66 69 6c  hd_open_aux {fil
25c0: 65 6e 61 6d 65 7d 20 7b 0a 20 20 67 6c 6f 62 61  ename} {.  globa
25d0: 6c 20 68 64 20 44 45 53 54 0a 20 20 68 64 5f 63  l hd DEST.  hd_c
25e0: 6c 6f 73 65 5f 61 75 78 0a 20 20 73 65 74 20 68  lose_aux.  set h
25f0: 64 28 66 6e 2d 61 75 78 29 20 24 66 69 6c 65 6e  d(fn-aux) $filen
2600: 61 6d 65 0a 20 20 73 65 74 20 68 64 28 72 6f 6f  ame.  set hd(roo
2610: 74 70 61 74 68 2d 61 75 78 29 20 5b 68 64 5f 72  tpath-aux) [hd_r
2620: 6f 6f 74 70 61 74 68 20 24 66 69 6c 65 6e 61 6d  ootpath $filenam
2630: 65 5d 0a 20 20 73 65 74 20 68 64 28 61 75 78 29  e].  set hd(aux)
2640: 20 5b 6f 70 65 6e 20 24 44 45 53 54 2f 24 66 69   [open $DEST/$fi
2650: 6c 65 6e 61 6d 65 20 77 5d 0a 20 20 73 65 74 20  lename w].  set 
2660: 68 64 28 65 6e 61 62 6c 65 2d 61 75 78 29 20 31  hd(enable-aux) 1
2670: 0a 20 20 73 65 74 20 68 64 28 61 75 78 2d 66 72  .  set hd(aux-fr
2680: 61 67 6d 65 6e 74 29 20 7b 7d 0a 20 20 67 6c 6f  agment) {}.  glo
2690: 62 61 6c 20 70 61 67 65 6c 69 6e 6b 0a 20 20 6c  bal pagelink.  l
26a0: 61 70 70 65 6e 64 20 70 61 67 65 6c 69 6e 6b 28  append pagelink(
26b0: 24 66 69 6c 65 6e 61 6d 65 29 20 24 66 69 6c 65  $filename) $file
26c0: 6e 61 6d 65 0a 7d 0a 0a 23 20 43 6c 6f 73 65 20  name.}..# Close 
26d0: 74 68 65 20 61 75 78 69 6c 69 61 72 79 20 6f 75  the auxiliary ou
26e0: 74 70 75 74 20 66 69 6c 65 0a 23 0a 70 72 6f 63  tput file.#.proc
26f0: 20 68 64 5f 63 6c 6f 73 65 5f 61 75 78 20 7b 7d   hd_close_aux {}
2700: 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 68 64 0a 20   {.  global hd. 
2710: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
2720: 73 20 68 64 28 61 75 78 29 5d 7d 20 7b 0a 20 20  s hd(aux)]} {.  
2730: 20 20 70 75 74 73 20 24 68 64 28 61 75 78 29 20    puts $hd(aux) 
2740: 24 68 64 28 66 6f 6f 74 65 72 29 0a 20 20 20 20  $hd(footer).    
2750: 63 6c 6f 73 65 20 24 68 64 28 61 75 78 29 0a 20  close $hd(aux). 
2760: 20 20 20 75 6e 73 65 74 20 68 64 28 61 75 78 29     unset hd(aux)
2770: 0a 20 20 20 20 73 65 74 20 68 64 28 65 6e 61 62  .    set hd(enab
2780: 6c 65 2d 61 75 78 29 20 30 0a 20 20 20 20 73 65  le-aux) 0.    se
2790: 74 20 68 64 28 65 6e 61 62 6c 65 2d 6d 61 69 6e  t hd(enable-main
27a0: 29 20 31 0a 20 20 7d 0a 7d 0a 0a 0a 23 20 68 64  ) 1.  }.}...# hd
27b0: 5f 70 75 74 73 69 6e 34 20 69 73 20 6c 69 6b 65  _putsin4 is like
27c0: 20 70 75 74 73 20 65 78 63 65 70 74 20 74 68 61   puts except tha
27d0: 74 20 69 74 20 72 65 6d 6f 76 65 73 20 74 68 65  t it removes the
27e0: 20 66 69 72 73 74 20 34 20 69 6e 64 65 6e 74 61   first 4 indenta
27f0: 74 69 6f 6e 0a 23 20 63 68 61 72 61 63 74 65 72  tion.# character
2800: 73 20 66 72 6f 6d 20 65 61 63 68 20 6c 69 6e 65  s from each line
2810: 2e 20 20 49 74 20 61 6c 73 6f 20 64 6f 65 73 20  .  It also does 
2820: 76 61 72 69 61 62 6c 65 20 73 75 62 73 74 69 74  variable substit
2830: 75 74 69 6f 6e 20 69 6e 0a 23 20 74 68 65 20 6e  ution in.# the n
2840: 61 6d 65 73 70 61 63 65 20 6f 66 20 69 74 73 20  amespace of its 
2850: 63 61 6c 6c 69 6e 67 20 70 72 6f 63 65 64 75 72  calling procedur
2860: 65 2e 0a 23 0a 70 72 6f 63 20 70 75 74 73 69 6e  e..#.proc putsin
2870: 34 20 7b 66 64 20 74 65 78 74 7d 20 7b 0a 20 20  4 {fd text} {.  
2880: 72 65 67 73 75 62 20 2d 61 6c 6c 20 22 5c 6e 20  regsub -all "\n 
2890: 20 20 20 22 20 24 74 65 78 74 20 5c 6e 20 74 65     " $text \n te
28a0: 78 74 0a 20 20 70 75 74 73 20 24 66 64 20 5b 75  xt.  puts $fd [u
28b0: 70 6c 65 76 65 6c 20 31 20 5b 6c 69 73 74 20 73  plevel 1 [list s
28c0: 75 62 73 74 20 2d 6e 6f 62 61 63 6b 20 2d 6e 6f  ubst -noback -no
28d0: 63 6f 6d 20 24 74 65 78 74 5d 5d 0a 7d 0a 0a 23  com $text]].}..#
28e0: 20 52 65 74 75 72 6e 20 61 20 67 6c 6f 62 61 6c   Return a global
28f0: 6c 79 20 75 6e 69 71 75 65 20 6f 62 6a 65 63 74  ly unique object
2900: 20 69 64 0a 23 0a 73 65 74 20 68 64 5f 69 64 5f   id.#.set hd_id_
2910: 63 6f 75 6e 74 65 72 20 30 0a 70 72 6f 63 20 68  counter 0.proc h
2920: 64 5f 69 64 20 7b 7d 20 7b 0a 20 20 67 6c 6f 62  d_id {} {.  glob
2930: 61 6c 20 68 64 5f 69 64 5f 63 6f 75 6e 74 65 72  al hd_id_counter
2940: 0a 20 20 69 6e 63 72 20 68 64 5f 69 64 5f 63 6f  .  incr hd_id_co
2950: 75 6e 74 65 72 0a 20 20 72 65 74 75 72 6e 20 78  unter.  return x
2960: 24 68 64 5f 69 64 5f 63 6f 75 6e 74 65 72 0a 7d  $hd_id_counter.}
2970: 0a 0a 23 20 41 20 70 72 6f 63 65 64 75 72 65 20  ..# A procedure 
2980: 74 6f 20 77 72 69 74 65 20 74 68 65 20 63 6f 6d  to write the com
2990: 6d 6f 6e 20 68 65 61 64 65 72 20 66 6f 75 6e 64  mon header found
29a0: 20 6f 6e 20 65 76 65 72 79 20 48 54 4d 4c 20 66   on every HTML f
29b0: 69 6c 65 20 6f 6e 0a 23 20 74 68 65 20 53 51 4c  ile on.# the SQL
29c0: 69 74 65 20 77 65 62 73 69 74 65 2e 0a 23 0a 23  ite website..#.#
29d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
29e0: 23 23 23 23 0a 23 20 4e 4f 54 45 3a 20 20 54 68  ####.# NOTE:  Th
29f0: 69 73 20 63 6f 64 65 20 69 73 20 63 6f 70 69 65  is code is copie
2a00: 64 20 61 6e 64 20 72 65 75 73 65 64 20 69 6e 20  d and reused in 
2a10: 6d 61 74 72 69 78 2e 74 63 6c 2e 20 20 57 68 65  matrix.tcl.  Whe
2a20: 6e 20 6d 61 6b 69 6e 67 0a 23 20 63 68 61 6e 67  n making.# chang
2a30: 65 73 20 74 6f 20 74 68 69 73 20 69 6d 70 6c 65  es to this imple
2a40: 6d 65 6e 74 61 74 69 6f 6e 2c 20 62 65 20 73 75  mentation, be su
2a50: 72 65 20 74 6f 20 61 6c 73 6f 20 63 68 61 6e 67  re to also chang
2a60: 65 20 6d 61 74 72 69 78 2e 74 63 6c 2e 0a 23 0a  e matrix.tcl..#.
2a70: 70 72 6f 63 20 68 64 5f 68 65 61 64 65 72 20 7b  proc hd_header {
2a80: 74 69 74 6c 65 20 7b 73 72 63 66 69 6c 65 20 7b  title {srcfile {
2a90: 7d 7d 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 68  }}} {.  global h
2aa0: 64 0a 20 20 73 65 74 20 73 61 76 65 64 5f 65 6e  d.  set saved_en
2ab0: 61 62 6c 65 20 24 68 64 28 65 6e 61 62 6c 65 2d  able $hd(enable-
2ac0: 6d 61 69 6e 29 0a 20 20 69 66 20 7b 24 73 72 63  main).  if {$src
2ad0: 66 69 6c 65 3d 3d 22 22 7d 20 7b 0a 20 20 20 20  file==""} {.    
2ae0: 73 65 74 20 66 64 20 24 68 64 28 61 75 78 29 0a  set fd $hd(aux).
2af0: 20 20 20 20 73 65 74 20 70 61 74 68 20 24 68 64      set path $hd
2b00: 28 72 6f 6f 74 70 61 74 68 2d 61 75 78 29 0a 20  (rootpath-aux). 
2b10: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65   } else {.    se
2b20: 74 20 66 64 20 24 68 64 28 6d 61 69 6e 29 0a 20  t fd $hd(main). 
2b30: 20 20 20 73 65 74 20 70 61 74 68 20 24 68 64 28     set path $hd(
2b40: 72 6f 6f 74 70 61 74 68 2d 6d 61 69 6e 29 0a 20  rootpath-main). 
2b50: 20 7d 0a 20 20 70 75 74 73 20 24 66 64 20 7b 3c   }.  puts $fd {<
2b60: 21 44 4f 43 54 59 50 45 20 48 54 4d 4c 20 50 55  !DOCTYPE HTML PU
2b70: 42 4c 49 43 20 22 2d 2f 2f 57 33 43 2f 2f 44 54  BLIC "-//W3C//DT
2b80: 44 20 48 54 4d 4c 20 34 2e 30 31 2f 2f 45 4e 22  D HTML 4.01//EN"
2b90: 20 22 68 74 74 70 3a 2f 2f 77 77 77 2e 77 33 2e   "http://www.w3.
2ba0: 6f 72 67 2f 54 52 2f 68 74 6d 6c 34 2f 73 74 72  org/TR/html4/str
2bb0: 69 63 74 2e 64 74 64 22 3e 7d 0a 20 20 70 75 74  ict.dtd">}.  put
2bc0: 73 20 24 66 64 20 7b 3c 68 74 6d 6c 3e 3c 68 65  s $fd {<html><he
2bd0: 61 64 3e 7d 0a 20 20 70 75 74 73 20 24 66 64 20  ad>}.  puts $fd 
2be0: 7b 3c 6d 65 74 61 20 68 74 74 70 2d 65 71 75 69  {<meta http-equi
2bf0: 76 3d 22 63 6f 6e 74 65 6e 74 2d 74 79 70 65 22  v="content-type"
2c00: 20 63 6f 6e 74 65 6e 74 3d 22 74 65 78 74 2f 68   content="text/h
2c10: 74 6d 6c 3b 20 63 68 61 72 73 65 74 3d 55 54 46  tml; charset=UTF
2c20: 2d 38 22 3e 7d 0a 20 20 70 75 74 73 20 24 66 64  -8">}.  puts $fd
2c30: 20 22 3c 74 69 74 6c 65 3e 24 74 69 74 6c 65 3c   "<title>$title<
2c40: 2f 74 69 74 6c 65 3e 22 0a 20 20 70 75 74 73 69  /title>".  putsi
2c50: 6e 34 20 24 66 64 20 7b 3c 73 74 79 6c 65 20 74  n4 $fd {<style t
2c60: 79 70 65 3d 22 74 65 78 74 2f 63 73 73 22 3e 0a  ype="text/css">.
2c70: 20 20 20 20 62 6f 64 79 20 7b 0a 20 20 20 20 20      body {.     
2c80: 20 20 20 6d 61 72 67 69 6e 3a 20 61 75 74 6f 3b     margin: auto;
2c90: 0a 20 20 20 20 20 20 20 20 66 6f 6e 74 2d 66 61  .        font-fa
2ca0: 6d 69 6c 79 3a 20 56 65 72 64 61 6e 61 2c 20 73  mily: Verdana, s
2cb0: 61 6e 73 2d 73 65 72 69 66 3b 0a 20 20 20 20 20  ans-serif;.     
2cc0: 20 20 20 70 61 64 64 69 6e 67 3a 20 38 70 78 20     padding: 8px 
2cd0: 31 25 3b 0a 20 20 20 20 7d 0a 20 20 20 20 0a 20  1%;.    }.    . 
2ce0: 20 20 20 61 20 7b 20 63 6f 6c 6f 72 3a 20 23 30     a { color: #0
2cf0: 34 34 61 36 34 20 7d 0a 20 20 20 20 61 3a 76 69  44a64 }.    a:vi
2d00: 73 69 74 65 64 20 7b 20 63 6f 6c 6f 72 3a 20 23  sited { color: #
2d10: 37 33 34 35 35 39 20 7d 0a 20 20 20 20 0a 20 20  734559 }.    .  
2d20: 20 20 2e 6c 6f 67 6f 20 7b 20 70 6f 73 69 74 69    .logo { positi
2d30: 6f 6e 3a 61 62 73 6f 6c 75 74 65 3b 20 6d 61 72  on:absolute; mar
2d40: 67 69 6e 3a 33 70 78 3b 20 7d 0a 20 20 20 20 2e  gin:3px; }.    .
2d50: 74 61 67 6c 69 6e 65 20 7b 0a 20 20 20 20 20 20  tagline {.      
2d60: 66 6c 6f 61 74 3a 72 69 67 68 74 3b 0a 20 20 20  float:right;.   
2d70: 20 20 20 74 65 78 74 2d 61 6c 69 67 6e 3a 72 69     text-align:ri
2d80: 67 68 74 3b 0a 20 20 20 20 20 20 66 6f 6e 74 2d  ght;.      font-
2d90: 73 74 79 6c 65 3a 69 74 61 6c 69 63 3b 0a 20 20  style:italic;.  
2da0: 20 20 20 20 77 69 64 74 68 3a 33 30 30 70 78 3b      width:300px;
2db0: 0a 20 20 20 20 20 20 6d 61 72 67 69 6e 3a 31 32  .      margin:12
2dc0: 70 78 3b 0a 20 20 20 20 20 20 6d 61 72 67 69 6e  px;.      margin
2dd0: 2d 74 6f 70 3a 35 38 70 78 3b 0a 20 20 20 20 7d  -top:58px;.    }
2de0: 0a 0a 20 20 20 20 2e 6d 65 6e 75 62 61 72 20 7b  ..    .menubar {
2df0: 0a 20 20 20 20 20 20 63 6c 65 61 72 3a 20 62 6f  .      clear: bo
2e00: 74 68 3b 0a 20 20 20 20 20 20 62 6f 72 64 65 72  th;.      border
2e10: 2d 72 61 64 69 75 73 3a 20 38 70 78 3b 0a 20 20  -radius: 8px;.  
2e20: 20 20 20 20 62 61 63 6b 67 72 6f 75 6e 64 3a 20      background: 
2e30: 23 30 34 34 61 36 34 3b 0a 20 20 20 20 20 20 70  #044a64;.      p
2e40: 61 64 64 69 6e 67 3a 20 30 70 78 3b 0a 20 20 20  adding: 0px;.   
2e50: 20 20 20 6d 61 72 67 69 6e 3a 20 30 70 78 3b 0a     margin: 0px;.
2e60: 20 20 20 20 20 20 63 65 6c 6c 2d 73 70 61 63 69        cell-spaci
2e70: 6e 67 3a 20 30 70 78 3b 0a 20 20 20 20 7d 20 20  ng: 0px;.    }  
2e80: 20 20 0a 20 20 20 20 2e 74 6f 6f 6c 62 61 72 20    .    .toolbar 
2e90: 7b 0a 20 20 20 20 20 20 74 65 78 74 2d 61 6c 69  {.      text-ali
2ea0: 67 6e 3a 20 63 65 6e 74 65 72 3b 0a 20 20 20 20  gn: center;.    
2eb0: 20 20 6c 69 6e 65 2d 68 65 69 67 68 74 3a 20 31    line-height: 1
2ec0: 2e 36 65 6d 3b 0a 20 20 20 20 20 20 6d 61 72 67  .6em;.      marg
2ed0: 69 6e 3a 20 30 3b 0a 20 20 20 20 20 20 70 61 64  in: 0;.      pad
2ee0: 64 69 6e 67 3a 20 30 70 78 20 38 70 78 3b 0a 20  ding: 0px 8px;. 
2ef0: 20 20 20 7d 0a 20 20 20 20 2e 74 6f 6f 6c 62 61     }.    .toolba
2f00: 72 20 61 20 7b 20 63 6f 6c 6f 72 3a 20 77 68 69  r a { color: whi
2f10: 74 65 3b 20 74 65 78 74 2d 64 65 63 6f 72 61 74  te; text-decorat
2f20: 69 6f 6e 3a 20 6e 6f 6e 65 3b 20 70 61 64 64 69  ion: none; paddi
2f30: 6e 67 3a 20 36 70 78 20 31 32 70 78 3b 20 7d 0a  ng: 6px 12px; }.
2f40: 20 20 20 20 2e 74 6f 6f 6c 62 61 72 20 61 3a 76      .toolbar a:v
2f50: 69 73 69 74 65 64 20 7b 20 63 6f 6c 6f 72 3a 20  isited { color: 
2f60: 77 68 69 74 65 3b 20 7d 0a 20 20 20 20 2e 74 6f  white; }.    .to
2f70: 6f 6c 62 61 72 20 61 3a 68 6f 76 65 72 20 7b 20  olbar a:hover { 
2f80: 63 6f 6c 6f 72 3a 20 23 30 34 34 61 36 34 3b 20  color: #044a64; 
2f90: 62 61 63 6b 67 72 6f 75 6e 64 3a 20 77 68 69 74  background: whit
2fa0: 65 3b 20 7d 0a 20 20 20 20 0a 20 20 20 20 2e 63  e; }.    .    .c
2fb0: 6f 6e 74 65 6e 74 20 20 20 20 7b 20 6d 61 72 67  ontent    { marg
2fc0: 69 6e 3a 20 35 25 3b 20 7d 0a 20 20 20 20 2e 63  in: 5%; }.    .c
2fd0: 6f 6e 74 65 6e 74 20 64 74 20 7b 20 66 6f 6e 74  ontent dt { font
2fe0: 2d 77 65 69 67 68 74 3a 62 6f 6c 64 3b 20 7d 0a  -weight:bold; }.
2ff0: 20 20 20 20 2e 63 6f 6e 74 65 6e 74 20 64 64 20      .content dd 
3000: 7b 20 6d 61 72 67 69 6e 2d 62 6f 74 74 6f 6d 3a  { margin-bottom:
3010: 20 32 35 70 78 3b 20 6d 61 72 67 69 6e 2d 6c 65   25px; margin-le
3020: 66 74 3a 32 30 25 3b 20 7d 0a 20 20 20 20 2e 63  ft:20%; }.    .c
3030: 6f 6e 74 65 6e 74 20 75 6c 20 7b 20 70 61 64 64  ontent ul { padd
3040: 69 6e 67 3a 30 70 78 3b 20 70 61 64 64 69 6e 67  ing:0px; padding
3050: 2d 6c 65 66 74 3a 20 31 35 70 78 3b 20 6d 61 72  -left: 15px; mar
3060: 67 69 6e 3a 30 70 78 3b 20 7d 0a 20 20 20 20 0a  gin:0px; }.    .
3070: 20 20 20 20 2f 2a 20 54 68 69 6e 67 73 20 66 6f      /* Things fo
3080: 72 20 22 66 61 6e 63 79 66 6f 72 6d 61 74 22 20  r "fancyformat" 
3090: 64 6f 63 75 6d 65 6e 74 73 20 73 74 61 72 74 20  documents start 
30a0: 68 65 72 65 2e 20 2a 2f 0a 20 20 20 20 2e 66 61  here. */.    .fa
30b0: 6e 63 79 20 69 6d 67 2b 70 20 7b 66 6f 6e 74 2d  ncy img+p {font-
30c0: 73 74 79 6c 65 3a 69 74 61 6c 69 63 7d 0a 20 20  style:italic}.  
30d0: 20 20 2e 66 61 6e 63 79 20 2e 63 6f 64 65 62 6c    .fancy .codebl
30e0: 6f 63 6b 20 69 20 7b 20 63 6f 6c 6f 72 3a 20 64  ock i { color: d
30f0: 61 72 6b 62 6c 75 65 3b 20 7d 0a 20 20 20 20 2e  arkblue; }.    .
3100: 66 61 6e 63 79 20 68 31 2c 2e 66 61 6e 63 79 20  fancy h1,.fancy 
3110: 68 32 2c 2e 66 61 6e 63 79 20 68 33 2c 2e 66 61  h2,.fancy h3,.fa
3120: 6e 63 79 20 68 34 20 7b 66 6f 6e 74 2d 77 65 69  ncy h4 {font-wei
3130: 67 68 74 3a 6e 6f 72 6d 61 6c 3b 63 6f 6c 6f 72  ght:normal;color
3140: 3a 23 30 34 34 61 36 34 7d 0a 20 20 20 20 2e 66  :#044a64}.    .f
3150: 61 6e 63 79 20 68 32 20 7b 20 6d 61 72 67 69 6e  ancy h2 { margin
3160: 2d 6c 65 66 74 3a 20 31 30 70 78 20 7d 0a 20 20  -left: 10px }.  
3170: 20 20 2e 66 61 6e 63 79 20 68 33 20 7b 20 6d 61    .fancy h3 { ma
3180: 72 67 69 6e 2d 6c 65 66 74 3a 20 32 30 70 78 20  rgin-left: 20px 
3190: 7d 0a 20 20 20 20 2e 66 61 6e 63 79 20 68 34 20  }.    .fancy h4 
31a0: 7b 20 6d 61 72 67 69 6e 2d 6c 65 66 74 3a 20 33  { margin-left: 3
31b0: 30 70 78 20 7d 0a 20 20 20 20 2e 66 61 6e 63 79  0px }.    .fancy
31c0: 20 74 68 20 7b 77 68 69 74 65 2d 73 70 61 63 65   th {white-space
31d0: 3a 6e 6f 77 72 61 70 3b 74 65 78 74 2d 61 6c 69  :nowrap;text-ali
31e0: 67 6e 3a 6c 65 66 74 3b 62 6f 72 64 65 72 2d 62  gn:left;border-b
31f0: 6f 74 74 6f 6d 3a 73 6f 6c 69 64 20 31 70 78 20  ottom:solid 1px 
3200: 23 34 34 34 7d 0a 20 20 20 20 2e 66 61 6e 63 79  #444}.    .fancy
3210: 20 74 68 2c 20 2e 66 61 6e 63 79 20 74 64 20 7b   th, .fancy td {
3220: 70 61 64 64 69 6e 67 3a 20 30 2e 32 65 6d 20 31  padding: 0.2em 1
3230: 65 78 3b 20 76 65 72 74 69 63 61 6c 2d 61 6c 69  ex; vertical-ali
3240: 67 6e 3a 74 6f 70 7d 0a 20 20 20 20 2e 66 61 6e  gn:top}.    .fan
3250: 63 79 20 23 74 6f 63 20 61 20 20 20 20 20 20 20  cy #toc a       
3260: 20 7b 20 63 6f 6c 6f 72 3a 20 64 61 72 6b 62 6c   { color: darkbl
3270: 75 65 20 3b 20 74 65 78 74 2d 64 65 63 6f 72 61  ue ; text-decora
3280: 74 69 6f 6e 3a 20 6e 6f 6e 65 20 7d 0a 20 20 20  tion: none }.   
3290: 20 2e 66 61 6e 63 79 20 2e 74 6f 64 6f 20 20 20   .fancy .todo   
32a0: 20 20 20 20 20 20 7b 20 63 6f 6c 6f 72 3a 20 23        { color: #
32b0: 41 41 33 33 33 33 20 3b 20 66 6f 6e 74 2d 73 74  AA3333 ; font-st
32c0: 79 6c 65 20 3a 20 69 74 61 6c 69 63 20 7d 0a 20  yle : italic }. 
32d0: 20 20 20 2e 66 61 6e 63 79 20 2e 74 6f 64 6f 3a     .fancy .todo:
32e0: 62 65 66 6f 72 65 20 20 7b 20 63 6f 6e 74 65 6e  before  { conten
32f0: 74 3a 20 27 54 4f 44 4f 3a 27 20 7d 0a 20 20 20  t: 'TODO:' }.   
3300: 20 2e 66 61 6e 63 79 20 70 2e 74 6f 64 6f 20 20   .fancy p.todo  
3310: 20 20 20 20 20 20 7b 20 62 6f 72 64 65 72 3a 20        { border: 
3320: 73 6f 6c 69 64 20 23 41 41 33 33 33 33 20 31 70  solid #AA3333 1p
3330: 78 3b 20 70 61 64 64 69 6e 67 3a 20 31 65 78 20  x; padding: 1ex 
3340: 7d 0a 20 20 20 20 2e 66 61 6e 63 79 20 69 6d 67  }.    .fancy img
3350: 20 7b 20 64 69 73 70 6c 61 79 3a 62 6c 6f 63 6b   { display:block
3360: 3b 20 7d 0a 20 20 20 20 2e 66 61 6e 63 79 20 3a  ; }.    .fancy :
3370: 6c 69 6e 6b 3a 68 6f 76 65 72 2c 20 2e 66 61 6e  link:hover, .fan
3380: 63 79 20 3a 76 69 73 69 74 65 64 3a 68 6f 76 65  cy :visited:hove
3390: 72 20 7b 20 62 61 63 6b 67 72 6f 75 6e 64 3a 20  r { background: 
33a0: 77 68 65 61 74 20 7d 0a 20 20 20 20 2e 66 61 6e  wheat }.    .fan
33b0: 63 79 20 70 2c 2e 66 61 6e 63 79 20 75 6c 2c 2e  cy p,.fancy ul,.
33c0: 66 61 6e 63 79 20 6f 6c 20 7b 20 6d 61 72 67 69  fancy ol { margi
33d0: 6e 3a 20 31 65 6d 20 35 65 78 20 7d 0a 20 20 20  n: 1em 5ex }.   
33e0: 20 2e 66 61 6e 63 79 20 6c 69 20 70 20 7b 20 6d   .fancy li p { m
33f0: 61 72 67 69 6e 3a 20 31 65 6d 20 30 20 7d 0a 20  argin: 1em 0 }. 
3400: 20 20 20 2f 2a 20 45 6e 64 20 6f 66 20 22 66 61     /* End of "fa
3410: 6e 63 79 66 6f 72 6d 61 74 22 20 73 70 65 63 69  ncyformat" speci
3420: 66 69 63 20 72 75 6c 65 73 2e 20 2a 2f 0a 0a 20  fic rules. */.. 
3430: 20 20 20 3c 2f 73 74 79 6c 65 3e 0a 20 20 7d 0a     </style>.  }.
3440: 20 20 70 75 74 73 20 24 66 64 20 7b 3c 2f 68 65    puts $fd {</he
3450: 61 64 3e 7d 0a 20 20 69 66 20 7b 5b 66 69 6c 65  ad>}.  if {[file
3460: 20 65 78 69 73 74 73 20 44 52 41 46 54 5d 7d 20   exists DRAFT]} 
3470: 7b 0a 20 20 20 20 73 65 74 20 74 61 67 6c 69 6e  {.    set taglin
3480: 65 20 7b 3c 66 6f 6e 74 20 73 69 7a 65 3d 22 36  e {<font size="6
3490: 22 20 63 6f 6c 6f 72 3d 22 72 65 64 22 3e 2a 2a  " color="red">**
34a0: 2a 20 44 52 41 46 54 20 2a 2a 2a 3c 2f 66 6f 6e  * DRAFT ***</fon
34b0: 74 3e 7d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20  t>}.  } else {. 
34c0: 20 20 20 73 65 74 20 74 61 67 6c 69 6e 65 20 7b     set tagline {
34d0: 53 6d 61 6c 6c 2e 20 46 61 73 74 2e 20 52 65 6c  Small. Fast. Rel
34e0: 69 61 62 6c 65 2e 3c 62 72 3e 43 68 6f 6f 73 65  iable.<br>Choose
34f0: 20 61 6e 79 20 74 68 72 65 65 2e 7d 0a 20 20 7d   any three.}.  }
3500: 0a 20 20 70 75 74 73 69 6e 34 20 24 66 64 20 7b  .  putsin4 $fd {
3510: 3c 62 6f 64 79 3e 0a 20 20 20 20 3c 64 69 76 3e  <body>.    <div>
3520: 3c 21 2d 2d 20 63 6f 6e 74 61 69 6e 65 72 20 64  <!-- container d
3530: 69 76 20 74 6f 20 73 61 74 69 73 66 79 20 76 61  iv to satisfy va
3540: 6c 69 64 61 74 6f 72 20 2d 2d 3e 0a 20 20 20 20  lidator -->.    
3550: 0a 20 20 20 20 3c 61 20 68 72 65 66 3d 22 24 7b  .    <a href="${
3560: 70 61 74 68 7d 69 6e 64 65 78 2e 68 74 6d 6c 22  path}index.html"
3570: 3e 0a 20 20 20 20 3c 69 6d 67 20 63 6c 61 73 73  >.    <img class
3580: 3d 22 6c 6f 67 6f 22 20 73 72 63 3d 22 24 7b 70  ="logo" src="${p
3590: 61 74 68 7d 69 6d 61 67 65 73 2f 73 71 6c 69 74  ath}images/sqlit
35a0: 65 33 37 30 5f 62 61 6e 6e 65 72 2e 67 69 66 22  e370_banner.gif"
35b0: 20 61 6c 74 3d 22 53 51 4c 69 74 65 20 4c 6f 67   alt="SQLite Log
35c0: 6f 22 0a 20 20 20 20 20 62 6f 72 64 65 72 3d 22  o".     border="
35d0: 30 22 3e 3c 2f 61 3e 0a 20 20 20 20 3c 64 69 76  0"></a>.    <div
35e0: 3e 3c 21 2d 2d 20 49 45 20 68 61 63 6b 20 74 6f  ><!-- IE hack to
35f0: 20 70 72 65 76 65 6e 74 20 64 69 73 61 70 70 65   prevent disappe
3600: 61 72 69 6e 67 20 6c 6f 67 6f 2d 2d 3e 3c 2f 64  aring logo--></d
3610: 69 76 3e 0a 20 20 20 20 3c 64 69 76 20 63 6c 61  iv>.    <div cla
3620: 73 73 3d 22 74 61 67 6c 69 6e 65 22 3e 24 7b 74  ss="tagline">${t
3630: 61 67 6c 69 6e 65 7d 3c 2f 64 69 76 3e 0a 0a 20  agline}</div>.. 
3640: 20 20 20 3c 74 61 62 6c 65 20 77 69 64 74 68 3d     <table width=
3650: 31 30 30 25 20 63 6c 61 73 73 3d 22 6d 65 6e 75  100% class="menu
3660: 62 61 72 22 3e 3c 74 72 3e 0a 20 20 20 20 20 20  bar"><tr>.      
3670: 3c 74 64 20 77 69 64 74 68 3d 31 30 30 25 3e 0a  <td width=100%>.
3680: 20 20 20 20 20 20 3c 64 69 76 20 63 6c 61 73 73        <div class
3690: 3d 22 74 6f 6f 6c 62 61 72 22 3e 0a 20 20 20 20  ="toolbar">.    
36a0: 20 20 20 20 3c 61 20 68 72 65 66 3d 22 24 7b 70      <a href="${p
36b0: 61 74 68 7d 61 62 6f 75 74 2e 68 74 6d 6c 22 3e  ath}about.html">
36c0: 41 62 6f 75 74 3c 2f 61 3e 0a 20 20 20 20 20 20  About</a>.      
36d0: 20 20 3c 61 20 68 72 65 66 3d 22 24 7b 70 61 74    <a href="${pat
36e0: 68 7d 73 69 74 65 6d 61 70 2e 68 74 6d 6c 22 3e  h}sitemap.html">
36f0: 53 69 74 65 6d 61 70 3c 2f 61 3e 0a 20 20 20 20  Sitemap</a>.    
3700: 20 20 20 20 3c 61 20 68 72 65 66 3d 22 24 7b 70      <a href="${p
3710: 61 74 68 7d 64 6f 63 73 2e 68 74 6d 6c 22 3e 44  ath}docs.html">D
3720: 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 3c 2f 61 3e  ocumentation</a>
3730: 0a 20 20 20 20 20 20 20 20 3c 61 20 68 72 65 66  .        <a href
3740: 3d 22 24 7b 70 61 74 68 7d 64 6f 77 6e 6c 6f 61  ="${path}downloa
3750: 64 2e 68 74 6d 6c 22 3e 44 6f 77 6e 6c 6f 61 64  d.html">Download
3760: 3c 2f 61 3e 0a 20 20 20 20 20 20 20 20 3c 61 20  </a>.        <a 
3770: 68 72 65 66 3d 22 24 7b 70 61 74 68 7d 63 6f 70  href="${path}cop
3780: 79 72 69 67 68 74 2e 68 74 6d 6c 22 3e 4c 69 63  yright.html">Lic
3790: 65 6e 73 65 3c 2f 61 3e 0a 20 20 20 20 20 20 20  ense</a>.       
37a0: 20 3c 61 20 68 72 65 66 3d 22 24 7b 70 61 74 68   <a href="${path
37b0: 7d 6e 65 77 73 2e 68 74 6d 6c 22 3e 4e 65 77 73  }news.html">News
37c0: 3c 2f 61 3e 0a 20 20 20 20 20 20 20 20 3c 61 20  </a>.        <a 
37d0: 68 72 65 66 3d 22 24 7b 70 61 74 68 7d 73 75 70  href="${path}sup
37e0: 70 6f 72 74 2e 68 74 6d 6c 22 3e 53 75 70 70 6f  port.html">Suppo
37f0: 72 74 3c 2f 61 3e 0a 20 20 20 20 20 20 3c 2f 64  rt</a>.      </d
3800: 69 76 3e 7d 0a 0a 20 20 69 66 20 7b 31 7d 20 7b  iv>}..  if {1} {
3810: 0a 20 20 20 20 70 75 74 73 69 6e 34 20 24 66 64  .    putsin4 $fd
3820: 20 7b 3c 73 63 72 69 70 74 3e 0a 20 20 20 20 20   {<script>.     
3830: 20 67 4d 73 67 20 3d 20 22 53 65 61 72 63 68 20   gMsg = "Search 
3840: 53 51 4c 69 74 65 20 44 6f 63 73 2e 2e 2e 22 0a  SQLite Docs...".
3850: 20 20 20 20 20 20 66 75 6e 63 74 69 6f 6e 20 65        function e
3860: 6e 74 65 72 73 65 61 72 63 68 28 29 20 7b 0a 20  ntersearch() {. 
3870: 20 20 20 20 20 20 20 76 61 72 20 71 20 3d 20 64         var q = d
3880: 6f 63 75 6d 65 6e 74 2e 67 65 74 45 6c 65 6d 65  ocument.getEleme
3890: 6e 74 42 79 49 64 28 22 71 22 29 3b 0a 20 20 20  ntById("q");.   
38a0: 20 20 20 20 20 69 66 28 20 71 2e 76 61 6c 75 65       if( q.value
38b0: 20 3d 3d 20 67 4d 73 67 20 29 20 7b 20 71 2e 76   == gMsg ) { q.v
38c0: 61 6c 75 65 20 3d 20 22 22 20 7d 0a 20 20 20 20  alue = "" }.    
38d0: 20 20 20 20 71 2e 73 74 79 6c 65 2e 63 6f 6c 6f      q.style.colo
38e0: 72 20 3d 20 22 62 6c 61 63 6b 22 0a 20 20 20 20  r = "black".    
38f0: 20 20 20 20 71 2e 73 74 79 6c 65 2e 66 6f 6e 74      q.style.font
3900: 53 74 79 6c 65 20 3d 20 22 6e 6f 72 6d 61 6c 22  Style = "normal"
3910: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 66  .      }.      f
3920: 75 6e 63 74 69 6f 6e 20 6c 65 61 76 65 73 65 61  unction leavesea
3930: 72 63 68 28 29 20 7b 0a 20 20 20 20 20 20 20 20  rch() {.        
3940: 76 61 72 20 71 20 3d 20 64 6f 63 75 6d 65 6e 74  var q = document
3950: 2e 67 65 74 45 6c 65 6d 65 6e 74 42 79 49 64 28  .getElementById(
3960: 22 71 22 29 3b 0a 20 20 20 20 20 20 20 20 69 66  "q");.        if
3970: 28 20 71 2e 76 61 6c 75 65 20 3d 3d 20 22 22 20  ( q.value == "" 
3980: 29 20 7b 20 0a 20 20 20 20 20 20 20 20 20 20 71  ) { .          q
3990: 2e 76 61 6c 75 65 20 3d 20 67 4d 73 67 0a 20 20  .value = gMsg.  
39a0: 20 20 20 20 20 20 20 20 71 2e 73 74 79 6c 65 2e          q.style.
39b0: 63 6f 6c 6f 72 20 3d 20 22 23 30 34 34 61 36 34  color = "#044a64
39c0: 22 0a 20 20 20 20 20 20 20 20 20 20 71 2e 73 74  ".          q.st
39d0: 79 6c 65 2e 66 6f 6e 74 53 74 79 6c 65 20 3d 20  yle.fontStyle = 
39e0: 22 69 74 61 6c 69 63 22 0a 20 20 20 20 20 20 20  "italic".       
39f0: 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20   }.      }.     
3a00: 20 66 75 6e 63 74 69 6f 6e 20 68 69 64 65 6f 72   function hideor
3a10: 73 68 6f 77 28 62 74 6e 2c 6f 62 6a 29 7b 0a 20  show(btn,obj){. 
3a20: 20 20 20 20 20 20 20 76 61 72 20 78 20 3d 20 64         var x = d
3a30: 6f 63 75 6d 65 6e 74 2e 67 65 74 45 6c 65 6d 65  ocument.getEleme
3a40: 6e 74 42 79 49 64 28 6f 62 6a 29 3b 0a 20 20 20  ntById(obj);.   
3a50: 20 20 20 20 20 76 61 72 20 62 20 3d 20 64 6f 63       var b = doc
3a60: 75 6d 65 6e 74 2e 67 65 74 45 6c 65 6d 65 6e 74  ument.getElement
3a70: 42 79 49 64 28 62 74 6e 29 3b 0a 20 20 20 20 20  ById(btn);.     
3a80: 20 20 20 69 66 28 20 78 2e 73 74 79 6c 65 2e 64     if( x.style.d
3a90: 69 73 70 6c 61 79 21 3d 27 6e 6f 6e 65 27 20 29  isplay!='none' )
3aa0: 7b 0a 20 20 20 20 20 20 20 20 20 20 78 2e 73 74  {.          x.st
3ab0: 79 6c 65 2e 64 69 73 70 6c 61 79 20 3d 20 27 6e  yle.display = 'n
3ac0: 6f 6e 65 27 3b 0a 20 20 20 20 20 20 20 20 20 20  one';.          
3ad0: 62 2e 69 6e 6e 65 72 48 54 4d 4c 3d 27 73 68 6f  b.innerHTML='sho
3ae0: 77 27 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73  w';.        }els
3af0: 65 7b 0a 20 20 20 20 20 20 20 20 20 20 78 2e 73  e{.          x.s
3b00: 74 79 6c 65 2e 64 69 73 70 6c 61 79 20 3d 20 27  tyle.display = '
3b10: 27 3b 0a 20 20 20 20 20 20 20 20 20 20 62 2e 69  ';.          b.i
3b20: 6e 6e 65 72 48 54 4d 4c 3d 27 68 69 64 65 27 3b  nnerHTML='hide';
3b30: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
3b40: 20 20 20 72 65 74 75 72 6e 20 66 61 6c 73 65 3b     return false;
3b50: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 3c 2f 73  .      }.    </s
3b60: 63 72 69 70 74 3e 7d 0a 20 20 7d 0a 20 20 69 66  cript>}.  }.  if
3b70: 20 7b 31 7d 20 7b 0a 20 20 20 20 70 75 74 73 69   {1} {.    putsi
3b80: 6e 34 20 24 66 64 20 7b 3c 74 64 3e 0a 20 20 20  n4 $fd {<td>.   
3b90: 20 20 20 20 20 3c 64 69 76 20 73 74 79 6c 65 3d       <div style=
3ba0: 22 70 61 64 64 69 6e 67 3a 30 20 31 65 6d 20 30  "padding:0 1em 0
3bb0: 70 78 20 30 3b 77 68 69 74 65 2d 73 70 61 63 65  px 0;white-space
3bc0: 3a 6e 6f 77 72 61 70 22 3e 0a 20 20 20 20 20 20  :nowrap">.      
3bd0: 20 20 3c 66 6f 72 6d 20 6e 61 6d 65 3d 66 20 6d    <form name=f m
3be0: 65 74 68 6f 64 3d 22 47 45 54 22 20 61 63 74 69  ethod="GET" acti
3bf0: 6f 6e 3d 22 68 74 74 70 3a 2f 2f 77 77 77 2e 73  on="http://www.s
3c00: 71 6c 69 74 65 2e 6f 72 67 2f 73 65 61 72 63 68  qlite.org/search
3c10: 22 3e 0a 20 20 20 20 20 20 20 20 20 20 3c 69 6e  ">.          <in
3c20: 70 75 74 20 69 64 3d 71 20 6e 61 6d 65 3d 71 20  put id=q name=q 
3c30: 74 79 70 65 3d 74 65 78 74 0a 20 20 20 20 20 20  type=text.      
3c40: 20 20 20 20 20 6f 6e 66 6f 63 75 73 3d 22 65 6e       onfocus="en
3c50: 74 65 72 73 65 61 72 63 68 28 29 22 20 6f 6e 62  tersearch()" onb
3c60: 6c 75 72 3d 22 6c 65 61 76 65 73 65 61 72 63 68  lur="leavesearch
3c70: 28 29 22 20 73 74 79 6c 65 3d 22 77 69 64 74 68  ()" style="width
3c80: 3a 32 34 65 78 3b 70 61 64 64 69 6e 67 3a 31 70  :24ex;padding:1p
3c90: 78 20 31 65 78 3b 20 62 6f 72 64 65 72 3a 73 6f  x 1ex; border:so
3ca0: 6c 69 64 20 77 68 69 74 65 20 31 70 78 3b 20 66  lid white 1px; f
3cb0: 6f 6e 74 2d 73 69 7a 65 3a 30 2e 39 65 6d 20 3b  ont-size:0.9em ;
3cc0: 20 66 6f 6e 74 2d 73 74 79 6c 65 3a 69 74 61 6c   font-style:ital
3cd0: 69 63 3b 63 6f 6c 6f 72 3a 23 30 34 34 61 36 34  ic;color:#044a64
3ce0: 3b 22 20 76 61 6c 75 65 3d 22 53 65 61 72 63 68  ;" value="Search
3cf0: 20 53 51 4c 69 74 65 20 44 6f 63 73 2e 2e 2e 22   SQLite Docs..."
3d00: 3e 0a 20 20 20 20 20 20 20 20 20 20 3c 69 6e 70  >.          <inp
3d10: 75 74 20 74 79 70 65 3d 73 75 62 6d 69 74 20 76  ut type=submit v
3d20: 61 6c 75 65 3d 22 47 6f 22 20 73 74 79 6c 65 3d  alue="Go" style=
3d30: 22 62 6f 72 64 65 72 3a 73 6f 6c 69 64 20 77 68  "border:solid wh
3d40: 69 74 65 20 31 70 78 3b 62 61 63 6b 67 72 6f 75  ite 1px;backgrou
3d50: 6e 64 2d 63 6f 6c 6f 72 3a 23 30 34 34 61 36 34  nd-color:#044a64
3d60: 3b 63 6f 6c 6f 72 3a 77 68 69 74 65 3b 66 6f 6e  ;color:white;fon
3d70: 74 2d 73 69 7a 65 3a 30 2e 39 65 6d 3b 70 61 64  t-size:0.9em;pad
3d80: 64 69 6e 67 3a 30 20 31 65 78 22 3e 0a 20 20 20  ding:0 1ex">.   
3d90: 20 20 20 20 20 3c 2f 66 6f 72 6d 3e 0a 20 20 20       </form>.   
3da0: 20 20 20 20 20 3c 2f 64 69 76 3e 0a 20 20 20 20       </div>.    
3db0: 20 20 3c 2f 74 61 62 6c 65 3e 7d 0a 20 20 7d 0a    </table>}.  }.
3dc0: 20 20 70 75 74 73 69 6e 34 20 24 66 64 20 7b 0a    putsin4 $fd {.
3dd0: 20 20 20 20 3c 64 69 76 20 63 6c 61 73 73 3d 73      <div class=s
3de0: 74 61 72 74 73 65 61 72 63 68 3e 3c 2f 64 69 76  tartsearch></div
3df0: 3e 0a 20 20 7d 0a 20 20 69 66 20 7b 24 73 72 63  >.  }.  if {$src
3e00: 66 69 6c 65 21 3d 22 22 7d 20 7b 0a 20 20 20 20  file!=""} {.    
3e10: 69 66 20 7b 5b 66 69 6c 65 20 65 78 69 73 74 73  if {[file exists
3e20: 20 44 52 41 46 54 5d 7d 20 7b 0a 20 20 20 20 20   DRAFT]} {.     
3e30: 20 73 65 74 20 68 64 28 66 6f 6f 74 65 72 29 20   set hd(footer) 
3e40: 7b 0a 20 20 20 20 20 20 20 20 3c 70 20 61 6c 69  {.        <p ali
3e50: 67 6e 3d 22 63 65 6e 74 65 72 22 3e 3c 66 6f 6e  gn="center"><fon
3e60: 74 20 73 69 7a 65 3d 22 36 22 20 63 6f 6c 6f 72  t size="6" color
3e70: 3d 22 72 65 64 22 3e 2a 2a 2a 20 44 52 41 46 54  ="red">*** DRAFT
3e80: 20 2a 2a 2a 3c 2f 66 6f 6e 74 3e 3c 2f 70 3e 0a   ***</font></p>.
3e90: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 20 65 6c        }.    } el
3ea0: 73 65 20 7b 0a 20 20 20 20 20 20 73 65 74 20 68  se {.      set h
3eb0: 64 28 66 6f 6f 74 65 72 29 20 7b 7d 0a 20 20 20  d(footer) {}.   
3ec0: 20 7d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20   }.  } else {.  
3ed0: 20 20 73 65 74 20 68 64 28 65 6e 61 62 6c 65 2d    set hd(enable-
3ee0: 6d 61 69 6e 29 20 24 73 61 76 65 64 5f 65 6e 61  main) $saved_ena
3ef0: 62 6c 65 0a 20 20 7d 0a 7d 0a 0a 23 20 49 6e 73  ble.  }.}..# Ins
3f00: 65 72 74 20 61 20 62 75 62 62 6c 65 20 73 79 6e  ert a bubble syn
3f10: 74 61 78 20 64 69 61 67 72 61 6d 20 69 6e 74 6f  tax diagram into
3f20: 20 74 68 65 20 6f 75 74 70 75 74 2e 0a 23 0a 70   the output..#.p
3f30: 72 6f 63 20 42 75 62 62 6c 65 44 69 61 67 72 61  roc BubbleDiagra
3f40: 6d 20 7b 6e 61 6d 65 20 7b 61 6e 6f 6e 79 6d 6f  m {name {anonymo
3f50: 75 73 5f 66 6c 61 67 20 30 7d 7d 20 7b 0a 20 20  us_flag 0}} {.  
3f60: 67 6c 6f 62 61 6c 20 68 64 0a 0a 20 20 23 69 66  global hd..  #if
3f70: 20 7b 21 24 61 6e 6f 6e 79 6d 6f 75 73 5f 66 6c   {!$anonymous_fl
3f80: 61 67 7d 20 7b 0a 20 20 23 20 20 68 64 5f 72 65  ag} {.  #  hd_re
3f90: 73 6f 6c 76 65 20 22 3c 68 34 3e 5c 5b 24 6e 61  solve "<h4>\[$na
3fa0: 6d 65 3a 5c 5d 3c 2f 68 34 3e 22 0a 20 20 23 7d  me:\]</h4>".  #}
3fb0: 0a 20 20 68 64 5f 72 65 73 6f 6c 76 65 20 22 3c  .  hd_resolve "<
3fc0: 70 3e 3c 62 3e 5c 5b 24 6e 61 6d 65 3a 5c 5d 3c  p><b>\[$name:\]<
3fd0: 2f 62 3e 3c 2f 70 3e 22 0a 20 20 73 65 74 20 61  /b></p>".  set a
3fe0: 6c 74 20 22 61 6c 74 3d 5c 22 73 79 6e 74 61 78  lt "alt=\"syntax
3ff0: 20 64 69 61 67 72 61 6d 20 24 6e 61 6d 65 5c 22   diagram $name\"
4000: 22 0a 20 20 69 66 20 7b 24 68 64 28 65 6e 61 62  ".  if {$hd(enab
4010: 6c 65 2d 6d 61 69 6e 29 7d 20 7b 0a 20 20 20 20  le-main)} {.    
4020: 70 75 74 73 20 24 68 64 28 6d 61 69 6e 29 20 22  puts $hd(main) "
4030: 3c 62 6c 6f 63 6b 71 75 6f 74 65 3e 5c 6e 5c 0a  <blockquote>\n\.
4040: 20 20 20 20 20 20 20 20 3c 69 6d 67 20 24 61 6c          <img $al
4050: 74 20 73 72 63 3d 5c 22 24 68 64 28 72 6f 6f 74  t src=\"$hd(root
4060: 70 61 74 68 2d 6d 61 69 6e 29 69 6d 61 67 65 73  path-main)images
4070: 2f 73 79 6e 74 61 78 2f 24 6e 61 6d 65 2e 67 69  /syntax/$name.gi
4080: 66 5c 22 3e 3c 2f 69 6d 67 3e 5c 6e 5c 0a 20 20  f\"></img>\n\.  
4090: 20 20 20 20 20 20 3c 2f 62 6c 6f 63 6b 71 75 6f        </blockquo
40a0: 74 65 3e 22 0a 20 20 7d 0a 20 20 69 66 20 7b 24  te>".  }.  if {$
40b0: 68 64 28 65 6e 61 62 6c 65 2d 61 75 78 29 7d 20  hd(enable-aux)} 
40c0: 7b 0a 20 20 20 20 70 75 74 73 20 24 68 64 28 61  {.    puts $hd(a
40d0: 75 78 29 20 22 3c 62 6c 6f 63 6b 71 75 6f 74 65  ux) "<blockquote
40e0: 3e 5c 6e 5c 0a 20 20 20 20 20 20 20 20 3c 69 6d  >\n\.        <im
40f0: 67 20 24 61 6c 74 20 73 72 63 3d 5c 22 24 68 64  g $alt src=\"$hd
4100: 28 72 6f 6f 74 70 61 74 68 2d 61 75 78 29 69 6d  (rootpath-aux)im
4110: 61 67 65 73 2f 73 79 6e 74 61 78 2f 24 6e 61 6d  ages/syntax/$nam
4120: 65 2e 67 69 66 5c 22 3e 3c 2f 69 6d 67 3e 5c 6e  e.gif\"></img>\n
4130: 5c 0a 20 20 20 20 20 20 20 20 3c 2f 62 6c 6f 63  \.        </bloc
4140: 6b 71 75 6f 74 65 3e 22 0a 20 20 7d 0a 7d 0a 70  kquote>".  }.}.p
4150: 72 6f 63 20 48 69 64 64 65 6e 42 75 62 62 6c 65  roc HiddenBubble
4160: 44 69 61 67 72 61 6d 20 7b 6e 61 6d 65 7d 20 7b  Diagram {name} {
4170: 0a 20 20 67 6c 6f 62 61 6c 20 68 64 0a 20 20 73  .  global hd.  s
4180: 65 74 20 61 6c 74 20 22 61 6c 74 3d 5c 22 73 79  et alt "alt=\"sy
4190: 6e 74 61 78 20 64 69 61 67 72 61 6d 20 24 6e 61  ntax diagram $na
41a0: 6d 65 5c 22 22 0a 20 20 68 64 5f 72 65 73 6f 6c  me\"".  hd_resol
41b0: 76 65 20 22 3c 70 3e 3c 62 3e 5c 5b 24 6e 61 6d  ve "<p><b>\[$nam
41c0: 65 3a 5c 5d 3c 2f 62 3e 20 22 0a 20 20 69 66 20  e:\]</b> ".  if 
41d0: 7b 24 68 64 28 65 6e 61 62 6c 65 2d 6d 61 69 6e  {$hd(enable-main
41e0: 29 7d 20 7b 0a 20 20 20 20 73 65 74 20 61 20 5b  )} {.    set a [
41f0: 68 64 5f 69 64 5d 0a 20 20 20 20 73 65 74 20 62  hd_id].    set b
4200: 20 5b 68 64 5f 69 64 5d 0a 20 20 20 20 70 75 74   [hd_id].    put
4210: 73 20 24 68 64 28 6d 61 69 6e 29 20 5c 0a 20 20  s $hd(main) \.  
4220: 20 20 20 22 3c 62 75 74 74 6f 6e 20 69 64 3d 27     "<button id='
4230: 24 61 27 20 6f 6e 63 6c 69 63 6b 3d 27 68 69 64  $a' onclick='hid
4240: 65 6f 72 73 68 6f 77 28 5c 22 24 61 5c 22 2c 5c  eorshow(\"$a\",\
4250: 22 24 62 5c 22 29 27 3e 73 68 6f 77 3c 2f 62 75  "$b\")'>show</bu
4260: 74 74 6f 6e 3e 5c 0a 20 20 20 20 20 20 3c 2f 70  tton>\.      </p
4270: 3e 5c 6e 5c 0a 20 20 20 20 20 20 3c 62 6c 6f 63  >\n\.      <bloc
4280: 6b 71 75 6f 74 65 20 69 64 3d 27 24 62 27 20 73  kquote id='$b' s
4290: 74 79 6c 65 3d 27 64 69 73 70 6c 61 79 3a 6e 6f  tyle='display:no
42a0: 6e 65 3b 27 3e 5c 6e 5c 0a 20 20 20 20 20 20 3c  ne;'>\n\.      <
42b0: 69 6d 67 20 24 61 6c 74 20 73 72 63 3d 5c 22 24  img $alt src=\"$
42c0: 68 64 28 72 6f 6f 74 70 61 74 68 2d 6d 61 69 6e  hd(rootpath-main
42d0: 29 69 6d 61 67 65 73 2f 73 79 6e 74 61 78 2f 24  )images/syntax/$
42e0: 6e 61 6d 65 2e 67 69 66 5c 22 3e 3c 2f 69 6d 67  name.gif\"></img
42f0: 3e 5c 6e 5c 0a 20 20 20 20 20 20 3c 2f 62 6c 6f  >\n\.      </blo
4300: 63 6b 71 75 6f 74 65 3e 22 0a 20 20 7d 0a 20 20  ckquote>".  }.  
4310: 69 66 20 7b 24 68 64 28 65 6e 61 62 6c 65 2d 61  if {$hd(enable-a
4320: 75 78 29 7d 20 7b 0a 20 20 20 20 73 65 74 20 61  ux)} {.    set a
4330: 20 5b 68 64 5f 69 64 5d 0a 20 20 20 20 73 65 74   [hd_id].    set
4340: 20 62 20 5b 68 64 5f 69 64 5d 0a 20 20 20 20 70   b [hd_id].    p
4350: 75 74 73 20 24 68 64 28 61 75 78 29 20 5c 0a 20  uts $hd(aux) \. 
4360: 20 20 20 20 22 3c 62 75 74 74 6f 6e 20 69 64 3d      "<button id=
4370: 27 24 61 27 20 6f 6e 63 6c 69 63 6b 3d 27 68 69  '$a' onclick='hi
4380: 64 65 6f 72 73 68 6f 77 28 5c 22 24 61 5c 22 2c  deorshow(\"$a\",
4390: 5c 22 24 62 5c 22 29 27 3e 73 68 6f 77 3c 2f 62  \"$b\")'>show</b
43a0: 75 74 74 6f 6e 3e 5c 0a 20 20 20 20 20 20 3c 2f  utton>\.      </
43b0: 70 3e 5c 6e 5c 0a 20 20 20 20 20 20 3c 62 6c 6f  p>\n\.      <blo
43c0: 63 6b 71 75 6f 74 65 20 69 64 3d 27 24 62 27 20  ckquote id='$b' 
43d0: 73 74 79 6c 65 3d 27 64 69 73 70 6c 61 79 3a 6e  style='display:n
43e0: 6f 6e 65 3b 27 3e 5c 6e 5c 0a 20 20 20 20 20 20  one;'>\n\.      
43f0: 3c 69 6d 67 20 24 61 6c 74 20 73 72 63 3d 5c 22  <img $alt src=\"
4400: 24 68 64 28 72 6f 6f 74 70 61 74 68 2d 61 75 78  $hd(rootpath-aux
4410: 29 69 6d 61 67 65 73 2f 73 79 6e 74 61 78 2f 24  )images/syntax/$
4420: 6e 61 6d 65 2e 67 69 66 5c 22 3e 3c 2f 69 6d 67  name.gif\"></img
4430: 3e 5c 6e 5c 0a 20 20 20 20 20 20 3c 2f 62 6c 6f  >\n\.      </blo
4440: 63 6b 71 75 6f 74 65 3e 22 0a 20 20 7d 0a 7d 0a  ckquote>".  }.}.
4450: 70 72 6f 63 20 52 65 63 75 72 73 69 76 65 42 75  proc RecursiveBu
4460: 62 62 6c 65 44 69 61 67 72 61 6d 5f 68 65 6c 70  bbleDiagram_help
4470: 65 72 20 7b 63 6c 61 73 73 20 6e 61 6d 65 20 6f  er {class name o
4480: 70 65 6e 6c 69 73 74 20 65 78 63 6c 75 64 65 7d  penlist exclude}
4490: 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 68 64 20 73   {.  global hd s
44a0: 79 6e 74 61 78 5f 6c 69 6e 6b 61 67 65 0a 20 20  yntax_linkage.  
44b0: 73 65 74 20 61 6c 74 20 22 61 6c 74 3d 5c 22 73  set alt "alt=\"s
44c0: 79 6e 74 61 78 20 64 69 61 67 72 61 6d 20 24 6e  yntax diagram $n
44d0: 61 6d 65 5c 22 22 0a 20 20 68 64 5f 72 65 73 6f  ame\"".  hd_reso
44e0: 6c 76 65 20 22 3c 70 3e 3c 62 3e 5c 5b 24 6e 61  lve "<p><b>\[$na
44f0: 6d 65 3a 5c 5d 3c 2f 62 3e 5c 6e 22 0a 20 20 73  me:\]</b>\n".  s
4500: 65 74 20 61 20 5b 68 64 5f 69 64 5d 0a 20 20 73  et a [hd_id].  s
4510: 65 74 20 62 20 5b 68 64 5f 69 64 5d 0a 20 20 73  et b [hd_id].  s
4520: 65 74 20 6f 70 65 6e 66 6c 61 67 20 30 0a 20 20  et openflag 0.  
4530: 73 65 74 20 6f 70 65 6e 32 20 7b 7d 0a 20 20 66  set open2 {}.  f
4540: 6f 72 65 61 63 68 20 78 20 24 6f 70 65 6e 6c 69  oreach x $openli
4550: 73 74 20 7b 0a 20 20 20 20 69 66 20 7b 24 78 3d  st {.    if {$x=
4560: 3d 24 6e 61 6d 65 7d 20 7b 0a 20 20 20 20 20 20  =$name} {.      
4570: 73 65 74 20 6f 70 65 6e 66 6c 61 67 20 31 0a 20  set openflag 1. 
4580: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20     } else {.    
4590: 20 20 6c 61 70 70 65 6e 64 20 6f 70 65 6e 32 20    lappend open2 
45a0: 24 78 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69  $x.    }.  }.  i
45b0: 66 20 7b 24 6f 70 65 6e 66 6c 61 67 7d 20 7b 0a  f {$openflag} {.
45c0: 20 20 20 20 70 75 74 73 20 24 68 64 28 24 63 6c      puts $hd($cl
45d0: 61 73 73 29 20 5c 0a 20 20 20 20 20 20 22 3c 62  ass) \.      "<b
45e0: 75 74 74 6f 6e 20 69 64 3d 27 24 61 27 20 6f 6e  utton id='$a' on
45f0: 63 6c 69 63 6b 3d 27 68 69 64 65 6f 72 73 68 6f  click='hideorsho
4600: 77 28 5c 22 24 61 5c 22 2c 5c 22 24 62 5c 22 29  w(\"$a\",\"$b\")
4610: 27 3e 68 69 64 65 3c 2f 62 75 74 74 6f 6e 3e 3c  '>hide</button><
4620: 2f 70 3e 5c 6e 5c 0a 20 20 20 20 20 20 20 3c 62  /p>\n\.       <b
4630: 6c 6f 63 6b 71 75 6f 74 65 20 69 64 3d 27 24 62  lockquote id='$b
4640: 27 3e 5c 6e 5c 0a 20 20 20 20 20 20 20 3c 69 6d  '>\n\.       <im
4650: 67 20 24 61 6c 74 20 73 72 63 3d 5c 22 24 68 64  g $alt src=\"$hd
4660: 28 72 6f 6f 74 70 61 74 68 2d 24 63 6c 61 73 73  (rootpath-$class
4670: 29 69 6d 61 67 65 73 2f 73 79 6e 74 61 78 2f 24  )images/syntax/$
4680: 6e 61 6d 65 2e 67 69 66 5c 22 20 2f 3e 22 0a 20  name.gif\" />". 
4690: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 70 75   } else {.    pu
46a0: 74 73 20 24 68 64 28 24 63 6c 61 73 73 29 20 5c  ts $hd($class) \
46b0: 0a 20 20 20 20 20 20 22 3c 62 75 74 74 6f 6e 20  .      "<button 
46c0: 69 64 3d 27 24 61 27 20 6f 6e 63 6c 69 63 6b 3d  id='$a' onclick=
46d0: 27 68 69 64 65 6f 72 73 68 6f 77 28 5c 22 24 61  'hideorshow(\"$a
46e0: 5c 22 2c 5c 22 24 62 5c 22 29 27 3e 73 68 6f 77  \",\"$b\")'>show
46f0: 3c 2f 62 75 74 74 6f 6e 3e 3c 2f 70 3e 5c 6e 5c  </button></p>\n\
4700: 0a 20 20 20 20 20 20 20 3c 62 6c 6f 63 6b 71 75  .       <blockqu
4710: 6f 74 65 20 69 64 3d 27 24 62 27 20 73 74 79 6c  ote id='$b' styl
4720: 65 3d 27 64 69 73 70 6c 61 79 3a 6e 6f 6e 65 3b  e='display:none;
4730: 27 3e 5c 6e 5c 0a 20 20 20 20 20 20 20 3c 69 6d  '>\n\.       <im
4740: 67 20 24 61 6c 74 20 73 72 63 3d 5c 22 24 68 64  g $alt src=\"$hd
4750: 28 72 6f 6f 74 70 61 74 68 2d 24 63 6c 61 73 73  (rootpath-$class
4760: 29 69 6d 61 67 65 73 2f 73 79 6e 74 61 78 2f 24  )images/syntax/$
4770: 6e 61 6d 65 2e 67 69 66 5c 22 20 2f 3e 22 0a 20  name.gif\" />". 
4780: 20 7d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65   }.  if {[info e
4790: 78 69 73 74 73 20 73 79 6e 74 61 78 5f 6c 69 6e  xists syntax_lin
47a0: 6b 61 67 65 28 24 6e 61 6d 65 29 5d 7d 20 7b 0a  kage($name)]} {.
47b0: 20 20 20 20 66 6f 72 65 61 63 68 20 7b 63 78 20      foreach {cx 
47c0: 70 78 7d 20 24 73 79 6e 74 61 78 5f 6c 69 6e 6b  px} $syntax_link
47d0: 61 67 65 28 24 6e 61 6d 65 29 20 62 72 65 61 6b  age($name) break
47e0: 0a 20 20 20 20 66 6f 72 65 61 63 68 20 63 20 24  .    foreach c $
47f0: 63 78 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 5b  cx {.      if {[
4800: 6c 73 65 61 72 63 68 20 24 65 78 63 6c 75 64 65  lsearch $exclude
4810: 20 24 63 5d 3e 3d 30 7d 20 63 6f 6e 74 69 6e 75   $c]>=0} continu
4820: 65 0a 20 20 20 20 20 20 52 65 63 75 72 73 69 76  e.      Recursiv
4830: 65 42 75 62 62 6c 65 44 69 61 67 72 61 6d 5f 68  eBubbleDiagram_h
4840: 65 6c 70 65 72 20 24 63 6c 61 73 73 20 24 63 20  elper $class $c 
4850: 24 6f 70 65 6e 32 20 5b 63 6f 6e 63 61 74 20 24  $open2 [concat $
4860: 65 78 63 6c 75 64 65 20 24 63 78 5d 0a 20 20 20  exclude $cx].   
4870: 20 7d 20 20 0a 20 20 7d 0a 20 20 70 75 74 73 20   }  .  }.  puts 
4880: 24 68 64 28 24 63 6c 61 73 73 29 20 22 3c 2f 62  $hd($class) "</b
4890: 6c 6f 63 6b 71 75 6f 74 65 3e 22 0a 7d 0a 70 72  lockquote>".}.pr
48a0: 6f 63 20 52 65 63 75 72 73 69 76 65 42 75 62 62  oc RecursiveBubb
48b0: 6c 65 44 69 61 67 72 61 6d 20 7b 61 72 67 73 7d  leDiagram {args}
48c0: 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 68 64 0a 20   {.  global hd. 
48d0: 20 73 65 74 20 73 68 6f 77 20 31 0a 20 20 73 65   set show 1.  se
48e0: 74 20 61 32 20 7b 7d 0a 20 20 66 6f 72 65 61 63  t a2 {}.  foreac
48f0: 68 20 6e 61 6d 65 20 24 61 72 67 73 20 7b 0a 20  h name $args {. 
4900: 20 20 20 69 66 20 7b 24 6e 61 6d 65 3d 3d 22 2d     if {$name=="-
4910: 2d 69 6e 69 74 69 61 6c 6c 79 2d 68 69 64 64 65  -initially-hidde
4920: 6e 22 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20  n"} {.      set 
4930: 73 68 6f 77 20 30 0a 20 20 20 20 7d 20 65 6c 73  show 0.    } els
4940: 65 20 7b 0a 20 20 20 20 20 20 6c 61 70 70 65 6e  e {.      lappen
4950: 64 20 61 32 20 24 6e 61 6d 65 0a 20 20 20 20 7d  d a2 $name.    }
4960: 0a 20 20 7d 0a 20 20 69 66 20 7b 24 73 68 6f 77  .  }.  if {$show
4970: 7d 20 7b 0a 20 20 20 20 73 65 74 20 73 68 6f 77  } {.    set show
4980: 6c 69 73 74 20 24 61 32 0a 20 20 7d 20 65 6c 73  list $a2.  } els
4990: 65 20 7b 0a 20 20 20 20 73 65 74 20 73 68 6f 77  e {.    set show
49a0: 6c 69 73 74 20 7b 7d 0a 20 20 7d 0a 20 20 73 65  list {}.  }.  se
49b0: 74 20 6e 61 6d 65 20 5b 6c 69 6e 64 65 78 20 24  t name [lindex $
49c0: 61 32 20 30 5d 0a 20 20 69 66 20 7b 24 68 64 28  a2 0].  if {$hd(
49d0: 65 6e 61 62 6c 65 2d 6d 61 69 6e 29 7d 20 7b 0a  enable-main)} {.
49e0: 20 20 20 20 52 65 63 75 72 73 69 76 65 42 75 62      RecursiveBub
49f0: 62 6c 65 44 69 61 67 72 61 6d 5f 68 65 6c 70 65  bleDiagram_helpe
4a00: 72 20 6d 61 69 6e 20 24 6e 61 6d 65 20 24 73 68  r main $name $sh
4a10: 6f 77 6c 69 73 74 20 24 6e 61 6d 65 0a 20 20 7d  owlist $name.  }
4a20: 0a 20 20 69 66 20 7b 24 68 64 28 65 6e 61 62 6c  .  if {$hd(enabl
4a30: 65 2d 61 75 78 29 7d 20 7b 0a 20 20 20 20 52 65  e-aux)} {.    Re
4a40: 63 75 72 73 69 76 65 42 75 62 62 6c 65 44 69 61  cursiveBubbleDia
4a50: 67 72 61 6d 5f 68 65 6c 70 65 72 20 61 75 78 20  gram_helper aux 
4a60: 24 6e 61 6d 65 20 24 73 68 6f 77 6c 69 73 74 20  $name $showlist 
4a70: 24 6e 61 6d 65 0a 20 20 7d 0a 7d 0a 0a 0a 0a 23  $name.  }.}....#
4a80: 20 49 6e 73 65 72 74 20 61 20 53 65 65 20 41 6c   Insert a See Al
4a90: 73 6f 20 6c 69 6e 65 20 66 6f 72 20 72 65 6c 61  so line for rela
4aa0: 74 65 64 20 62 75 62 62 6c 65 0a 0a 23 20 52 65  ted bubble..# Re
4ab0: 63 6f 72 64 20 61 20 72 65 71 75 69 72 65 6d 65  cord a requireme
4ac0: 6e 74 2e 20 20 54 68 69 73 20 70 72 6f 63 65 64  nt.  This proced
4ad0: 75 72 65 20 69 73 20 61 63 74 69 76 65 20 6f 6e  ure is active on
4ae0: 6c 79 20 66 6f 72 20 74 68 65 20 66 69 72 73 74  ly for the first
4af0: 0a 23 20 70 61 73 73 2e 20 20 54 68 69 73 20 70  .# pass.  This p
4b00: 72 6f 63 65 64 75 72 65 20 62 65 63 6f 6d 65 73  rocedure becomes
4b10: 20 61 20 6e 6f 2d 6f 70 20 66 6f 72 20 74 68 65   a no-op for the
4b20: 20 73 65 63 6f 6e 64 20 70 61 73 73 2e 20 20 44   second pass.  D
4b30: 75 72 69 6e 67 0a 23 20 74 68 65 20 73 65 63 6f  uring.# the seco
4b40: 6e 64 20 70 61 73 73 2c 20 72 65 71 75 69 72 65  nd pass, require
4b50: 6d 65 6e 74 73 20 6c 69 73 74 69 6e 67 20 72 65  ments listing re
4b60: 70 6f 72 74 20 67 65 6e 65 72 61 74 6f 72 73 20  port generators 
4b70: 63 61 6e 20 75 73 65 20 74 68 65 0a 23 20 64 61  can use the.# da
4b80: 74 61 20 61 63 63 75 6d 75 6c 61 74 65 64 20 64  ta accumulated d
4b90: 75 72 69 6e 67 20 74 68 65 20 66 69 72 73 74 20  uring the first 
4ba0: 70 61 73 73 20 74 6f 20 63 6f 6e 73 74 72 75 63  pass to construc
4bb0: 74 20 74 68 65 69 72 20 72 65 70 6f 72 74 73 2e  t their reports.
4bc0: 0a 23 0a 23 20 49 66 20 74 68 65 20 22 76 65 72  .#.# If the "ver
4bd0: 62 61 74 69 6d 22 20 61 72 67 75 6d 65 6e 74 20  batim" argument 
4be0: 69 73 20 74 72 75 65 2c 20 74 68 65 6e 20 74 68  is true, then th
4bf0: 65 20 72 65 71 75 69 72 65 6d 65 6e 74 20 74 65  e requirement te
4c00: 78 74 20 69 73 0a 23 20 72 65 6e 64 65 72 65 64  xt is.# rendered
4c10: 20 61 73 20 69 73 2e 20 20 49 6e 20 6f 74 68 65   as is.  In othe
4c20: 72 20 77 6f 72 64 73 2c 20 74 68 65 20 72 65 71  r words, the req
4c30: 75 69 72 65 6d 65 6e 74 20 74 65 78 74 20 69 73  uirement text is
4c40: 20 61 73 73 75 6d 65 64 20 74 6f 0a 23 20 62 65   assumed to.# be
4c50: 20 76 61 6c 69 64 20 48 54 4d 4c 20 77 69 74 68   valid HTML with
4c60: 20 61 6c 6c 20 68 79 70 65 72 6c 69 6e 6b 73 20   all hyperlinks 
4c70: 61 6c 72 65 61 64 79 20 72 65 73 6f 6c 76 65 64  already resolved
4c80: 2e 20 20 49 66 20 74 68 65 20 22 76 65 72 62 61  .  If the "verba
4c90: 74 69 6d 22 0a 23 20 61 72 67 75 6d 65 6e 74 20  tim".# argument 
4ca0: 69 73 20 66 61 6c 73 65 20 28 74 68 65 20 64 65  is false (the de
4cb0: 66 61 75 6c 74 29 20 74 68 65 6e 20 74 68 65 20  fault) then the 
4cc0: 72 65 71 75 69 72 65 6d 65 6e 74 20 74 65 78 74  requirement text
4cd0: 20 69 73 20 72 65 6e 64 65 72 65 64 0a 23 20 75   is rendered.# u
4ce0: 73 69 6e 67 20 68 64 5f 72 65 6e 64 65 72 20 77  sing hd_render w
4cf0: 68 69 63 68 20 77 69 6c 6c 20 66 69 6e 64 20 61  hich will find a
4d00: 6e 20 65 78 70 61 6e 64 20 68 79 70 65 72 6c 69  n expand hyperli
4d10: 6e 6b 73 20 77 69 74 68 69 6e 20 74 68 65 20 74  nks within the t
4d20: 65 78 74 2e 0a 23 0a 23 20 54 68 65 20 22 63 6f  ext..#.# The "co
4d30: 6d 6d 65 6e 74 22 20 61 72 67 75 6d 65 6e 74 20  mment" argument 
4d40: 69 73 20 6e 6f 6e 2d 62 69 6e 64 69 6e 67 20 63  is non-binding c
4d50: 6f 6d 6d 65 6e 74 61 72 79 20 61 6e 64 20 65 78  ommentary and ex
4d60: 70 6c 61 6e 61 74 69 6f 6e 20 74 68 61 74 0a 23  planation that.#
4d70: 20 61 63 63 6f 6d 70 61 6e 69 65 73 20 74 68 65   accompanies the
4d80: 20 72 65 71 75 69 72 65 6d 65 6e 74 2e 0a 23 0a   requirement..#.
4d90: 70 72 6f 63 20 68 64 5f 72 65 71 75 69 72 65 6d  proc hd_requirem
4da0: 65 6e 74 20 7b 69 64 20 74 65 78 74 20 64 65 72  ent {id text der
4db0: 69 76 65 64 66 72 6f 6d 20 63 6f 6d 6d 65 6e 74  ivedfrom comment
4dc0: 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 41 4c 4c  } {.  global ALL
4dd0: 52 45 51 20 41 4c 4c 52 45 51 5f 44 45 52 49 56  REQ ALLREQ_DERIV
4de0: 45 44 46 52 4f 4d 20 41 4c 4c 52 45 51 5f 43 4f  EDFROM ALLREQ_CO
4df0: 4d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78  M.  if {[info ex
4e00: 69 73 74 73 20 41 4c 4c 52 45 51 28 24 69 64 29  ists ALLREQ($id)
4e10: 5d 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 73 74  ]} {.    puts st
4e20: 64 65 72 72 20 22 64 75 70 6c 69 63 61 74 65 20  derr "duplicate 
4e30: 72 65 71 75 69 72 65 6d 65 6e 74 20 6c 61 62 65  requirement labe
4e40: 6c 3a 20 24 69 64 22 0a 20 20 7d 0a 20 20 73 65  l: $id".  }.  se
4e50: 74 20 41 4c 4c 52 45 51 5f 44 45 52 49 56 45 44  t ALLREQ_DERIVED
4e60: 46 52 4f 4d 28 24 69 64 29 20 24 64 65 72 69 76  FROM($id) $deriv
4e70: 65 64 66 72 6f 6d 0a 20 20 73 65 74 20 41 4c 4c  edfrom.  set ALL
4e80: 52 45 51 28 24 69 64 29 20 24 74 65 78 74 0a 20  REQ($id) $text. 
4e90: 20 73 65 74 20 41 4c 4c 52 45 51 5f 43 4f 4d 28   set ALLREQ_COM(
4ea0: 24 69 64 29 20 24 63 6f 6d 6d 65 6e 74 0a 7d 0a  $id) $comment.}.
4eb0: 0a 23 20 52 65 61 64 20 61 20 62 6c 6f 63 6b 20  .# Read a block 
4ec0: 6f 66 20 72 65 71 75 69 72 65 6d 65 6e 74 73 20  of requirements 
4ed0: 66 72 6f 6d 20 61 6e 20 41 53 43 49 49 20 74 65  from an ASCII te
4ee0: 78 74 20 66 69 6c 65 2e 20 20 53 74 6f 72 65 20  xt file.  Store 
4ef0: 74 68 65 0a 23 20 69 6e 66 6f 72 6d 61 74 69 6f  the.# informatio
4f00: 6e 20 6f 62 74 61 69 6e 65 64 20 69 6e 20 61 20  n obtained in a 
4f10: 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20  global variable 
4f20: 6e 61 6d 65 64 20 62 79 20 74 68 65 20 73 65 63  named by the sec
4f30: 6f 6e 64 20 70 61 72 61 6d 65 74 65 72 2e 0a 23  ond parameter..#
4f40: 0a 70 72 6f 63 20 68 64 5f 72 65 61 64 5f 72 65  .proc hd_read_re
4f50: 71 75 69 72 65 6d 65 6e 74 5f 66 69 6c 65 20 7b  quirement_file {
4f60: 66 69 6c 65 6e 61 6d 65 20 76 61 72 6e 61 6d 65  filename varname
4f70: 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 68 64 5f  } {.  global hd_
4f80: 72 65 71 5f 72 64 72 0a 20 20 68 64 5f 72 65 73  req_rdr.  hd_res
4f90: 65 74 5f 72 65 71 75 69 72 65 6d 65 6e 74 5f 72  et_requirement_r
4fa0: 65 61 64 65 72 0a 20 20 73 65 74 20 69 6e 20 5b  eader.  set in [
4fb0: 6f 70 65 6e 20 24 66 69 6c 65 6e 61 6d 65 5d 0a  open $filename].
4fc0: 20 20 77 68 69 6c 65 20 7b 21 5b 65 6f 66 20 24    while {![eof $
4fd0: 69 6e 5d 7d 20 7b 0a 20 20 20 20 73 65 74 20 6c  in]} {.    set l
4fe0: 69 6e 65 20 5b 67 65 74 73 20 24 69 6e 5d 0a 20  ine [gets $in]. 
4ff0: 20 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b     if {[regexp {
5000: 5e 28 48 4c 52 7c 55 4e 44 45 46 7c 53 59 53 52  ^(HLR|UNDEF|SYSR
5010: 45 51 29 20 2b 28 5b 4c 48 53 55 5d 5c 64 2b 29  EQ) +([LHSU]\d+)
5020: 20 2a 28 2e 2a 29 7d 20 24 6c 69 6e 65 20 61 6c   *(.*)} $line al
5030: 6c 20 74 79 70 65 20 72 6e 20 64 66 5d 7d 20 7b  l type rn df]} {
5040: 0a 20 20 20 20 20 20 68 64 5f 61 64 64 5f 6f 6e  .      hd_add_on
5050: 65 5f 72 65 71 75 69 72 65 6d 65 6e 74 20 24 76  e_requirement $v
5060: 61 72 6e 61 6d 65 0a 20 20 20 20 20 20 73 65 74  arname.      set
5070: 20 68 64 5f 72 65 71 5f 72 64 72 28 72 6e 29 20   hd_req_rdr(rn) 
5080: 24 72 6e 0a 20 20 20 20 20 20 73 65 74 20 68 64  $rn.      set hd
5090: 5f 72 65 71 5f 72 64 72 28 64 65 72 69 76 65 64  _req_rdr(derived
50a0: 29 20 24 64 66 0a 20 20 20 20 7d 20 65 6c 73 65  ) $df.    } else
50b0: 69 66 20 7b 5b 73 74 72 69 6e 67 20 74 72 69 6d  if {[string trim
50c0: 20 24 6c 69 6e 65 5d 3d 3d 22 22 7d 20 7b 0a 20   $line]==""} {. 
50d0: 20 20 20 20 20 69 66 20 7b 24 68 64 5f 72 65 71       if {$hd_req
50e0: 5f 72 64 72 28 62 6f 64 79 29 3d 3d 22 22 7d 20  _rdr(body)==""} 
50f0: 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 68 64  {.        set hd
5100: 5f 72 65 71 5f 72 64 72 28 62 6f 64 79 29 20 24  _req_rdr(body) $
5110: 68 64 5f 72 65 71 5f 72 64 72 28 63 6f 6d 6d 65  hd_req_rdr(comme
5120: 6e 74 29 0a 20 20 20 20 20 20 20 20 73 65 74 20  nt).        set 
5130: 68 64 5f 72 65 71 5f 72 64 72 28 63 6f 6d 6d 65  hd_req_rdr(comme
5140: 6e 74 29 20 7b 7d 0a 20 20 20 20 20 20 7d 20 65  nt) {}.      } e
5150: 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 61 70  lse {.        ap
5160: 70 65 6e 64 20 68 64 5f 72 65 71 5f 72 64 72 28  pend hd_req_rdr(
5170: 63 6f 6d 6d 65 6e 74 29 20 5c 6e 0a 20 20 20 20  comment) \n.    
5180: 20 20 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b    }.    } else {
5190: 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20 68 64  .      append hd
51a0: 5f 72 65 71 5f 72 64 72 28 63 6f 6d 6d 65 6e 74  _req_rdr(comment
51b0: 29 20 24 6c 69 6e 65 5c 6e 0a 20 20 20 20 7d 0a  ) $line\n.    }.
51c0: 20 20 7d 0a 20 20 68 64 5f 61 64 64 5f 6f 6e 65    }.  hd_add_one
51d0: 5f 72 65 71 75 69 72 65 6d 65 6e 74 20 24 76 61  _requirement $va
51e0: 72 6e 61 6d 65 0a 20 20 63 6c 6f 73 65 20 24 69  rname.  close $i
51f0: 6e 0a 20 20 0a 7d 0a 70 72 6f 63 20 68 64 5f 72  n.  .}.proc hd_r
5200: 65 73 65 74 5f 72 65 71 75 69 72 65 6d 65 6e 74  eset_requirement
5210: 5f 72 65 61 64 65 72 20 7b 7d 20 7b 0a 20 20 67  _reader {} {.  g
5220: 6c 6f 62 61 6c 20 68 64 5f 72 65 71 5f 72 64 72  lobal hd_req_rdr
5230: 0a 20 20 73 65 74 20 68 64 5f 72 65 71 5f 72 64  .  set hd_req_rd
5240: 72 28 72 6e 29 20 7b 7d 0a 20 20 73 65 74 20 68  r(rn) {}.  set h
5250: 64 5f 72 65 71 5f 72 64 72 28 63 6f 6d 6d 65 6e  d_req_rdr(commen
5260: 74 29 20 7b 7d 0a 20 20 73 65 74 20 68 64 5f 72  t) {}.  set hd_r
5270: 65 71 5f 72 64 72 28 62 6f 64 79 29 20 7b 7d 0a  eq_rdr(body) {}.
5280: 20 20 73 65 74 20 68 64 5f 72 65 71 5f 72 64 72    set hd_req_rdr
5290: 28 64 65 72 69 76 65 64 29 20 7b 7d 0a 7d 0a 70  (derived) {}.}.p
52a0: 72 6f 63 20 68 64 5f 61 64 64 5f 6f 6e 65 5f 72  roc hd_add_one_r
52b0: 65 71 75 69 72 65 6d 65 6e 74 20 7b 76 61 72 6e  equirement {varn
52c0: 61 6d 65 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20  ame} {.  global 
52d0: 68 64 5f 72 65 71 5f 72 64 72 0a 20 20 73 65 74  hd_req_rdr.  set
52e0: 20 72 6e 20 24 68 64 5f 72 65 71 5f 72 64 72 28   rn $hd_req_rdr(
52f0: 72 6e 29 0a 20 20 69 66 20 7b 24 72 6e 21 3d 22  rn).  if {$rn!="
5300: 22 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 68 64  "} {.    if {$hd
5310: 5f 72 65 71 5f 72 64 72 28 62 6f 64 79 29 3d 3d  _req_rdr(body)==
5320: 22 22 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20  ""} {.      set 
5330: 68 64 5f 72 65 71 5f 72 64 72 28 62 6f 64 79 29  hd_req_rdr(body)
5340: 20 24 68 64 5f 72 65 71 5f 72 64 72 28 63 6f 6d   $hd_req_rdr(com
5350: 6d 65 6e 74 29 0a 20 20 20 20 20 20 73 65 74 20  ment).      set 
5360: 68 64 5f 72 65 71 5f 72 64 72 28 63 6f 6d 6d 65  hd_req_rdr(comme
5370: 6e 74 29 20 7b 7d 0a 20 20 20 20 7d 0a 20 20 20  nt) {}.    }.   
5380: 20 73 65 74 20 62 20 5b 73 74 72 69 6e 67 20 74   set b [string t
5390: 72 69 6d 20 24 68 64 5f 72 65 71 5f 72 64 72 28  rim $hd_req_rdr(
53a0: 62 6f 64 79 29 5d 0a 20 20 20 20 73 65 74 20 63  body)].    set c
53b0: 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 68   [string trim $h
53c0: 64 5f 72 65 71 5f 72 64 72 28 63 6f 6d 6d 65 6e  d_req_rdr(commen
53d0: 74 29 5d 0a 20 20 20 20 73 65 74 20 3a 3a 24 7b  t)].    set ::${
53e0: 76 61 72 6e 61 6d 65 7d 28 24 72 6e 29 20 5b 6c  varname}($rn) [l
53f0: 69 73 74 20 24 68 64 5f 72 65 71 5f 72 64 72 28  ist $hd_req_rdr(
5400: 64 65 72 69 76 65 64 29 20 24 62 20 24 63 5d 0a  derived) $b $c].
5410: 20 20 20 20 6c 61 70 70 65 6e 64 20 3a 3a 24 7b      lappend ::${
5420: 76 61 72 6e 61 6d 65 7d 28 2a 29 20 24 72 6e 0a  varname}(*) $rn.
5430: 20 20 7d 0a 20 20 68 64 5f 72 65 73 65 74 5f 72    }.  hd_reset_r
5440: 65 71 75 69 72 65 6d 65 6e 74 5f 72 65 61 64 65  equirement_reade
5450: 72 0a 7d 0a 0a 23 20 46 69 72 73 74 20 70 61 73  r.}..# First pas
5460: 73 2e 20 20 50 72 6f 63 65 73 73 20 61 6c 6c 20  s.  Process all 
5470: 66 69 6c 65 73 2e 20 20 42 75 74 20 64 6f 20 6e  files.  But do n
5480: 6f 74 20 72 65 6e 64 65 72 20 68 79 70 65 72 6c  ot render hyperl
5490: 69 6e 6b 73 2e 0a 23 20 4d 65 72 65 6c 79 20 63  inks..# Merely c
54a0: 6f 6c 6c 65 63 74 20 6b 65 79 77 6f 72 64 20 69  ollect keyword i
54b0: 6e 66 6f 72 6d 61 74 69 6f 6e 20 73 6f 20 74 68  nformation so th
54c0: 61 74 20 68 79 70 65 72 6c 69 6e 6b 73 20 63 61  at hyperlinks ca
54d0: 6e 20 62 65 0a 23 20 63 6f 72 72 65 63 74 6c 79  n be.# correctly
54e0: 20 72 65 6e 64 65 72 65 64 20 6f 6e 20 74 68 65   rendered on the
54f0: 20 73 65 63 6f 6e 64 20 70 61 73 73 2e 0a 23 0a   second pass..#.
5500: 66 6f 72 65 61 63 68 20 69 6e 66 69 6c 65 20 5b  foreach infile [
5510: 6c 72 61 6e 67 65 20 24 61 72 67 76 20 33 20 65  lrange $argv 3 e
5520: 6e 64 5d 20 7b 0a 20 20 63 64 20 24 48 4f 4d 45  nd] {.  cd $HOME
5530: 44 49 52 0a 20 20 70 75 74 73 20 22 50 72 6f 63  DIR.  puts "Proc
5540: 65 73 73 69 6e 67 20 24 69 6e 66 69 6c 65 22 0a  essing $infile".
5550: 20 20 73 65 74 20 66 64 20 5b 6f 70 65 6e 20 24    set fd [open $
5560: 69 6e 66 69 6c 65 20 72 5d 0a 20 20 73 65 74 20  infile r].  set 
5570: 69 6e 20 5b 72 65 61 64 20 24 66 64 5d 0a 20 20  in [read $fd].  
5580: 63 6c 6f 73 65 20 24 66 64 0a 20 20 69 66 20 7b  close $fd.  if {
5590: 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20 3c 74  [string first <t
55a0: 61 62 6c 65 5f 6f 66 5f 63 6f 6e 74 65 6e 74 73  able_of_contents
55b0: 3e 20 24 69 6e 5d 3e 3d 30 7d 20 7b 20 73 65 74  > $in]>=0} { set
55c0: 20 69 6e 20 5b 61 64 64 74 6f 63 20 24 69 6e 5d   in [addtoc $in]
55d0: 20 7d 0a 20 20 73 65 74 20 74 69 74 6c 65 20 7b   }.  set title {
55e0: 4e 6f 20 54 69 74 6c 65 7d 0a 20 20 72 65 67 65  No Title}.  rege
55f0: 78 70 20 7b 3c 74 69 74 6c 65 3e 28 5b 5e 5c 6e  xp {<title>([^\n
5600: 5d 2a 29 3c 2f 74 69 74 6c 65 3e 7d 20 24 69 6e  ]*)</title>} $in
5610: 20 61 6c 6c 20 74 69 74 6c 65 0a 20 20 72 65 67   all title.  reg
5620: 73 75 62 20 7b 3c 74 69 74 6c 65 3e 5b 5e 5c 6e  sub {<title>[^\n
5630: 5d 2a 3c 2f 74 69 74 6c 65 3e 7d 20 24 69 6e 20  ]*</title>} $in 
5640: 7b 7d 20 69 6e 0a 20 20 73 65 74 20 6f 75 74 66  {} in.  set outf
5650: 69 6c 65 20 5b 66 69 6c 65 20 72 6f 6f 74 20 5b  ile [file root [
5660: 66 69 6c 65 20 74 61 69 6c 20 24 69 6e 66 69 6c  file tail $infil
5670: 65 5d 5d 2e 68 74 6d 6c 0a 20 20 68 64 5f 6f 70  e]].html.  hd_op
5680: 65 6e 5f 6d 61 69 6e 20 24 6f 75 74 66 69 6c 65  en_main $outfile
5690: 0a 20 20 64 62 20 65 76 61 6c 20 7b 0a 20 20 20  .  db eval {.   
56a0: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 70 61 67   INSERT INTO pag
56b0: 65 28 66 69 6c 65 6e 61 6d 65 2c 70 61 67 65 74  e(filename,paget
56c0: 69 74 6c 65 29 0a 20 20 20 20 56 41 4c 55 45 53  itle).    VALUES
56d0: 28 24 6f 75 74 66 69 6c 65 2c 24 74 69 74 6c 65  ($outfile,$title
56e0: 29 3b 0a 20 20 7d 0a 20 20 73 65 74 20 68 28 70  );.  }.  set h(p
56f0: 61 67 65 69 64 29 20 5b 64 62 20 6c 61 73 74 5f  ageid) [db last_
5700: 69 6e 73 65 72 74 5f 72 6f 77 69 64 5d 0a 20 20  insert_rowid].  
5710: 68 64 5f 68 65 61 64 65 72 20 24 74 69 74 6c 65  hd_header $title
5720: 20 24 69 6e 66 69 6c 65 0a 20 20 72 65 67 73 75   $infile.  regsu
5730: 62 20 2d 61 6c 6c 20 7b 3c 74 63 6c 3e 7d 20 24  b -all {<tcl>} $
5740: 69 6e 20 22 5c 31 37 35 3b 20 65 76 61 6c 20 5c  in "\175; eval \
5750: 31 37 33 22 20 69 6e 0a 20 20 72 65 67 73 75 62  173" in.  regsub
5760: 20 2d 61 6c 6c 20 7b 3c 2f 74 63 6c 3e 7d 20 24   -all {</tcl>} $
5770: 69 6e 20 22 5c 31 37 35 3b 20 68 64 5f 70 75 74  in "\175; hd_put
5780: 73 20 5c 31 37 33 22 20 69 6e 0a 20 20 65 76 61  s \173" in.  eva
5790: 6c 20 22 68 64 5f 70 75 74 73 20 5c 31 37 33 24  l "hd_puts \173$
57a0: 69 6e 5c 31 37 35 22 0a 20 20 63 64 20 24 3a 3a  in\175".  cd $::
57b0: 48 4f 4d 45 44 49 52 0a 20 20 68 64 5f 63 6c 6f  HOMEDIR.  hd_clo
57c0: 73 65 5f 6d 61 69 6e 0a 7d 0a 0a 23 20 53 65 63  se_main.}..# Sec
57d0: 6f 6e 64 20 70 61 73 73 2e 20 20 50 72 6f 63 65  ond pass.  Proce
57e0: 73 73 20 61 6c 6c 20 66 69 6c 65 73 20 61 67 61  ss all files aga
57f0: 69 6e 2e 20 20 54 68 69 73 20 74 69 6d 65 20 72  in.  This time r
5800: 65 6e 64 65 72 20 68 79 70 65 72 6c 69 6e 6b 73  ender hyperlinks
5810: 0a 23 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20  .# according to 
5820: 74 68 65 20 6b 65 79 77 6f 72 64 20 69 6e 66 6f  the keyword info
5830: 72 6d 61 74 69 6f 6e 20 63 6f 6c 6c 65 63 74 65  rmation collecte
5840: 64 20 6f 6e 20 74 68 65 20 66 69 72 73 74 20 70  d on the first p
5850: 61 73 73 2e 0a 23 0a 70 72 6f 63 20 68 64 5f 6b  ass..#.proc hd_k
5860: 65 79 77 6f 72 64 73 20 7b 61 72 67 73 7d 20 7b  eywords {args} {
5870: 7d 0a 72 65 6e 61 6d 65 20 68 64 5f 72 65 73 6f  }.rename hd_reso
5880: 6c 76 65 20 7b 7d 0a 72 65 6e 61 6d 65 20 68 64  lve {}.rename hd
5890: 5f 72 65 73 6f 6c 76 65 5f 32 6e 64 70 61 73 73  _resolve_2ndpass
58a0: 20 68 64 5f 72 65 73 6f 6c 76 65 0a 70 72 6f 63   hd_resolve.proc
58b0: 20 68 64 5f 72 65 71 75 69 72 65 6d 65 6e 74 20   hd_requirement 
58c0: 7b 61 72 67 73 7d 20 7b 7d 0a 66 6f 72 65 61 63  {args} {}.foreac
58d0: 68 20 69 6e 66 69 6c 65 20 5b 6c 72 61 6e 67 65  h infile [lrange
58e0: 20 24 61 72 67 76 20 33 20 65 6e 64 5d 20 7b 0a   $argv 3 end] {.
58f0: 20 20 63 64 20 24 48 4f 4d 45 44 49 52 0a 20 20    cd $HOMEDIR.  
5900: 70 75 74 73 20 22 50 72 6f 63 65 73 73 69 6e 67  puts "Processing
5910: 20 24 69 6e 66 69 6c 65 22 0a 20 20 73 65 74 20   $infile".  set 
5920: 66 64 20 5b 6f 70 65 6e 20 24 69 6e 66 69 6c 65  fd [open $infile
5930: 20 72 5d 0a 20 20 73 65 74 20 69 6e 20 5b 72 65   r].  set in [re
5940: 61 64 20 24 66 64 5d 0a 20 20 63 6c 6f 73 65 20  ad $fd].  close 
5950: 24 66 64 0a 20 20 69 66 20 7b 5b 73 74 72 69 6e  $fd.  if {[strin
5960: 67 20 66 69 72 73 74 20 3c 74 61 62 6c 65 5f 6f  g first <table_o
5970: 66 5f 63 6f 6e 74 65 6e 74 73 3e 20 24 69 6e 5d  f_contents> $in]
5980: 3e 3d 30 7d 20 7b 20 73 65 74 20 69 6e 20 5b 61  >=0} { set in [a
5990: 64 64 74 6f 63 20 24 69 6e 5d 20 7d 0a 20 20 73  ddtoc $in] }.  s
59a0: 65 74 20 74 69 74 6c 65 20 7b 4e 6f 20 54 69 74  et title {No Tit
59b0: 6c 65 7d 0a 20 20 72 65 67 65 78 70 20 7b 3c 74  le}.  regexp {<t
59c0: 69 74 6c 65 3e 28 5b 5e 5c 6e 5d 2a 29 3c 2f 74  itle>([^\n]*)</t
59d0: 69 74 6c 65 3e 7d 20 24 69 6e 20 61 6c 6c 20 74  itle>} $in all t
59e0: 69 74 6c 65 0a 20 20 72 65 67 73 75 62 20 7b 3c  itle.  regsub {<
59f0: 74 69 74 6c 65 3e 5b 5e 5c 6e 5d 2a 3c 2f 74 69  title>[^\n]*</ti
5a00: 74 6c 65 3e 7d 20 24 69 6e 20 7b 7d 20 69 6e 0a  tle>} $in {} in.
5a10: 20 20 73 65 74 20 6f 75 74 66 69 6c 65 20 5b 66    set outfile [f
5a20: 69 6c 65 20 72 6f 6f 74 20 5b 66 69 6c 65 20 74  ile root [file t
5a30: 61 69 6c 20 24 69 6e 66 69 6c 65 5d 5d 2e 68 74  ail $infile]].ht
5a40: 6d 6c 0a 20 20 68 64 5f 6f 70 65 6e 5f 6d 61 69  ml.  hd_open_mai
5a50: 6e 20 24 6f 75 74 66 69 6c 65 0a 20 20 68 64 5f  n $outfile.  hd_
5a60: 68 65 61 64 65 72 20 24 74 69 74 6c 65 20 24 69  header $title $i
5a70: 6e 66 69 6c 65 0a 20 20 72 65 67 73 75 62 20 2d  nfile.  regsub -
5a80: 61 6c 6c 20 7b 3c 74 63 6c 3e 7d 20 24 69 6e 20  all {<tcl>} $in 
5a90: 22 5c 31 37 35 3b 20 65 76 61 6c 20 5c 31 37 33  "\175; eval \173
5aa0: 22 20 69 6e 0a 20 20 72 65 67 73 75 62 20 2d 61  " in.  regsub -a
5ab0: 6c 6c 20 7b 3c 2f 74 63 6c 3e 7d 20 24 69 6e 20  ll {</tcl>} $in 
5ac0: 22 5c 31 37 35 3b 20 68 64 5f 72 65 73 6f 6c 76  "\175; hd_resolv
5ad0: 65 20 5c 31 37 33 22 20 69 6e 0a 20 20 65 76 61  e \173" in.  eva
5ae0: 6c 20 22 68 64 5f 72 65 73 6f 6c 76 65 20 5c 31  l "hd_resolve \1
5af0: 37 33 24 69 6e 5c 31 37 35 22 0a 20 20 63 64 20  73$in\175".  cd 
5b00: 24 3a 3a 48 4f 4d 45 44 49 52 0a 20 20 68 64 5f  $::HOMEDIR.  hd_
5b10: 63 6c 6f 73 65 5f 6d 61 69 6e 0a 7d 0a 0a 23 20  close_main.}..# 
5b20: 47 65 6e 65 72 61 74 65 20 61 20 64 6f 63 75 6d  Generate a docum
5b30: 65 6e 74 20 73 68 6f 77 69 6e 67 20 74 68 65 20  ent showing the 
5b40: 68 79 70 65 72 6c 69 6e 6b 20 6b 65 79 77 6f 72  hyperlink keywor
5b50: 64 73 20 61 6e 64 20 74 68 65 69 72 0a 23 20 74  ds and their.# t
5b60: 61 72 67 65 74 73 2e 0a 23 0a 68 64 5f 6f 70 65  argets..#.hd_ope
5b70: 6e 5f 6d 61 69 6e 20 64 6f 63 5f 6b 65 79 77 6f  n_main doc_keywo
5b80: 72 64 5f 63 72 6f 73 73 72 65 66 2e 68 74 6d 6c  rd_crossref.html
5b90: 0a 68 64 5f 68 65 61 64 65 72 20 7b 4b 65 79 77  .hd_header {Keyw
5ba0: 6f 72 64 20 43 72 6f 73 73 72 65 66 65 72 65 6e  ord Crossreferen
5bb0: 63 65 7d 20 24 44 4f 43 2f 77 72 61 70 2e 74 63  ce} $DOC/wrap.tc
5bc0: 6c 0a 68 64 5f 70 75 74 73 20 22 3c 75 6c 3e 22  l.hd_puts "<ul>"
5bd0: 0a 66 6f 72 65 61 63 68 20 78 20 5b 6c 73 6f 72  .foreach x [lsor
5be0: 74 20 2d 64 69 63 74 20 5b 61 72 72 61 79 20 6e  t -dict [array n
5bf0: 61 6d 65 73 20 67 6c 69 6e 6b 5d 5d 20 7b 0a 20  ames glink]] {. 
5c00: 20 73 65 74 20 79 20 24 67 6c 69 6e 6b 28 24 78   set y $glink($x
5c10: 29 0a 20 20 68 64 5f 70 75 74 73 20 22 3c 6c 69  ).  hd_puts "<li
5c20: 3e 24 78 20 2d 20 3c 61 20 68 72 65 66 3d 5c 22  >$x - <a href=\"
5c30: 24 79 5c 22 3e 24 79 3c 2f 61 3e 3c 2f 6c 69 3e  $y\">$y</a></li>
5c40: 22 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 76 67  ".  lappend revg
5c50: 6c 69 6e 6b 28 24 79 29 20 24 78 0a 7d 0a 68 64  link($y) $x.}.hd
5c60: 5f 70 75 74 73 20 22 3c 2f 75 6c 3e 22 0a 68 64  _puts "</ul>".hd
5c70: 5f 63 6c 6f 73 65 5f 6d 61 69 6e 0a 0a 68 64 5f  _close_main..hd_
5c80: 6f 70 65 6e 5f 6d 61 69 6e 20 64 6f 63 5f 74 61  open_main doc_ta
5c90: 72 67 65 74 5f 63 72 6f 73 73 72 65 66 2e 68 74  rget_crossref.ht
5ca0: 6d 6c 0a 68 64 5f 68 65 61 64 65 72 20 7b 54 61  ml.hd_header {Ta
5cb0: 72 67 65 74 20 43 72 6f 73 73 72 65 66 65 72 65  rget Crossrefere
5cc0: 6e 63 65 7d 20 24 44 4f 43 2f 77 72 61 70 2e 74  nce} $DOC/wrap.t
5cd0: 63 6c 0a 68 64 5f 70 75 74 73 20 22 3c 75 6c 3e  cl.hd_puts "<ul>
5ce0: 22 0a 66 6f 72 65 61 63 68 20 79 20 5b 6c 73 6f  ".foreach y [lso
5cf0: 72 74 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20  rt [array names 
5d00: 72 65 76 67 6c 69 6e 6b 5d 5d 20 7b 0a 20 20 68  revglink]] {.  h
5d10: 64 5f 70 75 74 73 20 22 3c 6c 69 3e 3c 61 20 68  d_puts "<li><a h
5d20: 72 65 66 3d 5c 22 24 79 5c 22 3e 24 79 3c 2f 61  ref=\"$y\">$y</a
5d30: 3e 20 2d 20 5b 6c 73 6f 72 74 20 24 72 65 76 67  > - [lsort $revg
5d40: 6c 69 6e 6b 28 24 79 29 5d 3c 2f 6c 69 3e 22 0a  link($y)]</li>".
5d50: 7d 0a 68 64 5f 70 75 74 73 20 22 3c 2f 75 6c 3e  }.hd_puts "</ul>
5d60: 22 0a 68 64 5f 63 6c 6f 73 65 5f 6d 61 69 6e 0a  ".hd_close_main.
5d70: 0a 68 64 5f 6f 70 65 6e 5f 6d 61 69 6e 20 64 6f  .hd_open_main do
5d80: 63 5f 62 61 63 6b 6c 69 6e 6b 5f 63 72 6f 73 73  c_backlink_cross
5d90: 72 65 66 2e 68 74 6d 6c 0a 68 64 5f 68 65 61 64  ref.html.hd_head
5da0: 65 72 20 7b 42 61 63 6b 6c 69 6e 6b 20 43 72 6f  er {Backlink Cro
5db0: 73 73 72 65 66 65 72 65 6e 63 65 7d 20 24 44 4f  ssreference} $DO
5dc0: 43 2f 77 72 61 70 2e 74 63 6c 0a 68 64 5f 70 75  C/wrap.tcl.hd_pu
5dd0: 74 73 20 22 3c 75 6c 3e 22 0a 66 6f 72 65 61 63  ts "<ul>".foreac
5de0: 68 20 6b 77 20 5b 6c 73 6f 72 74 20 2d 6e 6f 63  h kw [lsort -noc
5df0: 61 73 65 20 5b 61 72 72 61 79 20 6e 61 6d 65 73  ase [array names
5e00: 20 62 61 63 6b 6c 69 6e 6b 5d 5d 20 7b 0a 20 20   backlink]] {.  
5e10: 68 64 5f 70 75 74 73 20 22 3c 6c 69 3e 24 6b 77  hd_puts "<li>$kw
5e20: 20 2d 22 0a 20 20 73 65 74 20 70 72 65 76 20 7b   -".  set prev {
5e30: 7d 0a 20 20 66 6f 72 65 61 63 68 20 72 65 66 20  }.  foreach ref 
5e40: 5b 6c 73 6f 72 74 20 24 62 61 63 6b 6c 69 6e 6b  [lsort $backlink
5e50: 28 24 6b 77 29 5d 20 7b 0a 20 20 20 20 69 66 20  ($kw)] {.    if 
5e60: 7b 24 72 65 66 3d 3d 24 70 72 65 76 7d 20 63 6f  {$ref==$prev} co
5e70: 6e 74 69 6e 75 65 0a 20 20 20 20 73 65 74 20 70  ntinue.    set p
5e80: 72 65 76 20 24 72 65 66 0a 20 20 20 20 68 64 5f  rev $ref.    hd_
5e90: 70 75 74 73 20 22 20 20 3c 61 20 68 72 65 66 3d  puts "  <a href=
5ea0: 5c 22 24 72 65 66 5c 22 3e 24 72 65 66 3c 2f 61  \"$ref\">$ref</a
5eb0: 3e 22 0a 20 20 7d 0a 7d 0a 68 64 5f 70 75 74 73  >".  }.}.hd_puts
5ec0: 20 22 3c 2f 75 6c 3e 22 0a 68 64 5f 63 6c 6f 73   "</ul>".hd_clos
5ed0: 65 5f 6d 61 69 6e 0a 0a 68 64 5f 6f 70 65 6e 5f  e_main..hd_open_
5ee0: 6d 61 69 6e 20 64 6f 63 5f 70 61 67 65 6c 69 6e  main doc_pagelin
5ef0: 6b 5f 63 72 6f 73 73 72 65 66 2e 68 74 6d 6c 0a  k_crossref.html.
5f00: 68 64 5f 68 65 61 64 65 72 20 7b 50 61 67 65 6c  hd_header {Pagel
5f10: 69 6e 6b 20 43 72 6f 73 73 72 65 66 65 72 65 6e  ink Crossreferen
5f20: 63 65 7d 20 24 44 4f 43 2f 77 72 61 70 2e 74 63  ce} $DOC/wrap.tc
5f30: 6c 0a 68 64 5f 70 75 74 73 20 22 3c 70 3e 54 61  l.hd_puts "<p>Ta
5f40: 72 67 65 74 20 50 61 67 65 20 2d 20 57 68 69 63  rget Page - Whic
5f50: 68 20 70 61 67 65 73 20 72 65 66 65 72 65 6e 63  h pages referenc
5f60: 65 20 69 74 2e 3c 2f 70 3e 22 0a 68 64 5f 70 75  e it.</p>".hd_pu
5f70: 74 73 20 22 3c 70 3e 50 61 67 65 73 20 6d 61 74  ts "<p>Pages mat
5f80: 63 68 69 6e 67 20 28 6e 65 77 73 7c 63 68 61 6e  ching (news|chan
5f90: 67 65 73 7c 72 65 6c 65 61 73 65 6c 6f 67 7c 5c  ges|releaselog|\
5fa0: 5b 30 2d 39 5d 74 6f 5c 5b 30 2d 39 5d 7c 26 23  [0-9]to\[0-9]|&#
5fb0: 39 34 3b 64 6f 63 5f 2e 2a 5f 63 72 6f 73 73 72  94;doc_.*_crossr
5fc0: 65 66 29 20 61 72 65 20 73 6b 69 70 70 65 64 2e  ef) are skipped.
5fd0: 3c 2f 70 3e 22 0a 68 64 5f 70 75 74 73 20 22 3c  </p>".hd_puts "<
5fe0: 75 6c 3e 22 0a 66 6f 72 65 61 63 68 20 79 20 5b  ul>".foreach y [
5ff0: 6c 73 6f 72 74 20 5b 61 72 72 61 79 20 6e 61 6d  lsort [array nam
6000: 65 73 20 72 65 76 67 6c 69 6e 6b 5d 5d 20 7b 0a  es revglink]] {.
6010: 20 20 72 65 67 73 75 62 20 7b 23 2e 2a 7d 20 24    regsub {#.*} $
6020: 79 20 7b 7d 20 79 32 0a 20 20 66 6f 72 65 61 63  y {} y2.  foreac
6030: 68 20 6b 77 20 5b 6c 73 6f 72 74 20 24 72 65 76  h kw [lsort $rev
6040: 67 6c 69 6e 6b 28 24 79 29 5d 20 7b 0a 20 20 20  glink($y)] {.   
6050: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
6060: 73 20 62 61 63 6b 6c 69 6e 6b 28 24 6b 77 29 5d  s backlink($kw)]
6070: 7d 20 7b 0a 20 20 20 20 20 20 66 6f 72 65 61 63  } {.      foreac
6080: 68 20 72 65 66 20 5b 6c 73 6f 72 74 20 24 62 61  h ref [lsort $ba
6090: 63 6b 6c 69 6e 6b 28 24 6b 77 29 5d 20 7b 0a 20  cklink($kw)] {. 
60a0: 20 20 20 20 20 20 20 72 65 67 73 75 62 20 7b 23         regsub {#
60b0: 2e 2a 7d 20 24 72 65 66 20 7b 7d 20 72 65 66 32  .*} $ref {} ref2
60c0: 0a 20 20 20 20 20 20 20 20 6c 61 70 70 65 6e 64  .        lappend
60d0: 20 70 61 67 65 6c 69 6e 6b 28 24 79 32 29 20 24   pagelink($y2) $
60e0: 72 65 66 32 0a 20 20 20 20 20 20 7d 0a 20 20 20  ref2.      }.   
60f0: 20 7d 0a 20 20 7d 0a 7d 0a 66 6f 72 65 61 63 68   }.  }.}.foreach
6100: 20 79 20 5b 6c 73 6f 72 74 20 5b 61 72 72 61 79   y [lsort [array
6110: 20 6e 61 6d 65 73 20 70 61 67 65 6c 69 6e 6b 5d   names pagelink]
6120: 5d 20 7b 0a 20 20 69 66 20 7b 5b 72 65 67 65 78  ] {.  if {[regex
6130: 70 20 7b 28 6e 65 77 73 7c 63 68 61 6e 67 65 73  p {(news|changes
6140: 7c 72 65 6c 65 61 73 65 6c 6f 67 7c 5b 30 2d 39  |releaselog|[0-9
6150: 5d 74 6f 5b 30 2d 39 5d 7c 5e 64 6f 63 5f 2e 2a  ]to[0-9]|^doc_.*
6160: 5f 63 72 6f 73 73 72 65 66 29 7d 20 24 79 5d 7d  _crossref)} $y]}
6170: 20 63 6f 6e 74 69 6e 75 65 0a 20 20 68 64 5f 70   continue.  hd_p
6180: 75 74 73 20 22 3c 6c 69 3e 3c 61 20 68 72 65 66  uts "<li><a href
6190: 3d 5c 22 24 79 5c 22 3e 24 79 3c 2f 61 3e 20 2d  =\"$y\">$y</a> -
61a0: 20 22 0a 20 20 73 65 74 20 70 72 65 76 20 7b 7d   ".  set prev {}
61b0: 0a 20 20 66 6f 72 65 61 63 68 20 72 65 66 20 5b  .  foreach ref [
61c0: 6c 73 6f 72 74 20 24 70 61 67 65 6c 69 6e 6b 28  lsort $pagelink(
61d0: 24 79 29 5d 20 7b 0a 20 20 20 20 69 66 20 7b 24  $y)] {.    if {$
61e0: 72 65 66 3d 3d 24 70 72 65 76 7d 20 63 6f 6e 74  ref==$prev} cont
61f0: 69 6e 75 65 0a 20 20 20 20 69 66 20 7b 24 72 65  inue.    if {$re
6200: 66 3d 3d 24 79 7d 20 63 6f 6e 74 69 6e 75 65 0a  f==$y} continue.
6210: 20 20 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20      if {[regexp 
6220: 7b 28 6e 65 77 73 7c 63 68 61 6e 67 65 73 7c 72  {(news|changes|r
6230: 65 6c 65 61 73 65 6c 6f 67 7c 5b 30 2d 39 5d 74  eleaselog|[0-9]t
6240: 6f 5b 30 2d 39 5d 7c 5e 64 6f 63 5f 2e 2a 5f 63  o[0-9]|^doc_.*_c
6250: 72 6f 73 73 72 65 66 29 7d 20 24 72 65 66 5d 7d  rossref)} $ref]}
6260: 20 63 6f 6e 74 69 6e 75 65 0a 20 20 20 20 68 64   continue.    hd
6270: 5f 70 75 74 73 20 22 3c 61 20 68 72 65 66 3d 5c  _puts "<a href=\
6280: 22 24 72 65 66 5c 22 3e 24 72 65 66 3c 2f 61 3e  "$ref\">$ref</a>
6290: 20 22 0a 20 20 20 20 73 65 74 20 70 72 65 76 20   ".    set prev 
62a0: 24 72 65 66 0a 20 20 7d 0a 20 20 68 64 5f 70 75  $ref.  }.  hd_pu
62b0: 74 73 20 22 3c 2f 6c 69 3e 22 0a 7d 0a 68 64 5f  ts "</li>".}.hd_
62c0: 70 75 74 73 20 22 3c 2f 75 6c 3e 22 0a 68 64 5f  puts "</ul>".hd_
62d0: 63 6c 6f 73 65 5f 6d 61 69 6e 0a 64 62 20 65 76  close_main.db ev
62e0: 61 6c 20 43 4f 4d 4d 49 54 0a                    al COMMIT.