Documentation Source Text

Hex Artifact Content
Login

Artifact 2b9685d813693a6605bcffd0ba5279cd7fa1d1a9:


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 66 6c 61 67 20 65 78 63 6c 75 64 65 7d  penflag 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 69  et b [hd_id].  i
4520: 66 20 7b 24 6f 70 65 6e 66 6c 61 67 7d 20 7b 0a  f {$openflag} {.
4530: 20 20 20 20 70 75 74 73 20 24 68 64 28 24 63 6c      puts $hd($cl
4540: 61 73 73 29 20 5c 0a 20 20 20 20 20 20 22 3c 62  ass) \.      "<b
4550: 75 74 74 6f 6e 20 69 64 3d 27 24 61 27 20 6f 6e  utton id='$a' on
4560: 63 6c 69 63 6b 3d 27 68 69 64 65 6f 72 73 68 6f  click='hideorsho
4570: 77 28 5c 22 24 61 5c 22 2c 5c 22 24 62 5c 22 29  w(\"$a\",\"$b\")
4580: 27 3e 68 69 64 65 3c 2f 62 75 74 74 6f 6e 3e 3c  '>hide</button><
4590: 2f 70 3e 5c 6e 5c 0a 20 20 20 20 20 20 20 3c 62  /p>\n\.       <b
45a0: 6c 6f 63 6b 71 75 6f 74 65 20 69 64 3d 27 24 62  lockquote id='$b
45b0: 27 3e 5c 6e 5c 0a 20 20 20 20 20 20 20 3c 69 6d  '>\n\.       <im
45c0: 67 20 24 61 6c 74 20 73 72 63 3d 5c 22 24 68 64  g $alt src=\"$hd
45d0: 28 72 6f 6f 74 70 61 74 68 2d 24 63 6c 61 73 73  (rootpath-$class
45e0: 29 69 6d 61 67 65 73 2f 73 79 6e 74 61 78 2f 24  )images/syntax/$
45f0: 6e 61 6d 65 2e 67 69 66 5c 22 20 2f 3e 22 0a 20  name.gif\" />". 
4600: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 70 75   } else {.    pu
4610: 74 73 20 24 68 64 28 24 63 6c 61 73 73 29 20 5c  ts $hd($class) \
4620: 0a 20 20 20 20 20 20 22 3c 62 75 74 74 6f 6e 20  .      "<button 
4630: 69 64 3d 27 24 61 27 20 6f 6e 63 6c 69 63 6b 3d  id='$a' onclick=
4640: 27 68 69 64 65 6f 72 73 68 6f 77 28 5c 22 24 61  'hideorshow(\"$a
4650: 5c 22 2c 5c 22 24 62 5c 22 29 27 3e 73 68 6f 77  \",\"$b\")'>show
4660: 3c 2f 62 75 74 74 6f 6e 3e 3c 2f 70 3e 5c 6e 5c  </button></p>\n\
4670: 0a 20 20 20 20 20 20 20 3c 62 6c 6f 63 6b 71 75  .       <blockqu
4680: 6f 74 65 20 69 64 3d 27 24 62 27 20 73 74 79 6c  ote id='$b' styl
4690: 65 3d 27 64 69 73 70 6c 61 79 3a 6e 6f 6e 65 3b  e='display:none;
46a0: 27 3e 5c 6e 5c 0a 20 20 20 20 20 20 20 3c 69 6d  '>\n\.       <im
46b0: 67 20 24 61 6c 74 20 73 72 63 3d 5c 22 24 68 64  g $alt src=\"$hd
46c0: 28 72 6f 6f 74 70 61 74 68 2d 24 63 6c 61 73 73  (rootpath-$class
46d0: 29 69 6d 61 67 65 73 2f 73 79 6e 74 61 78 2f 24  )images/syntax/$
46e0: 6e 61 6d 65 2e 67 69 66 5c 22 20 2f 3e 22 0a 20  name.gif\" />". 
46f0: 20 7d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65   }.  if {[info e
4700: 78 69 73 74 73 20 73 79 6e 74 61 78 5f 6c 69 6e  xists syntax_lin
4710: 6b 61 67 65 28 24 6e 61 6d 65 29 5d 7d 20 7b 0a  kage($name)]} {.
4720: 20 20 20 20 66 6f 72 65 61 63 68 20 7b 63 78 20      foreach {cx 
4730: 70 78 7d 20 24 73 79 6e 74 61 78 5f 6c 69 6e 6b  px} $syntax_link
4740: 61 67 65 28 24 6e 61 6d 65 29 20 62 72 65 61 6b  age($name) break
4750: 0a 20 20 20 20 66 6f 72 65 61 63 68 20 63 20 24  .    foreach c $
4760: 63 78 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 5b  cx {.      if {[
4770: 6c 73 65 61 72 63 68 20 24 65 78 63 6c 75 64 65  lsearch $exclude
4780: 20 24 63 5d 3e 3d 30 7d 20 63 6f 6e 74 69 6e 75   $c]>=0} continu
4790: 65 0a 20 20 20 20 20 20 52 65 63 75 72 73 69 76  e.      Recursiv
47a0: 65 42 75 62 62 6c 65 44 69 61 67 72 61 6d 5f 68  eBubbleDiagram_h
47b0: 65 6c 70 65 72 20 24 63 6c 61 73 73 20 24 63 20  elper $class $c 
47c0: 30 20 5b 63 6f 6e 63 61 74 20 24 65 78 63 6c 75  0 [concat $exclu
47d0: 64 65 20 24 63 5d 0a 20 20 20 20 7d 20 20 0a 20  de $c].    }  . 
47e0: 20 7d 0a 20 20 70 75 74 73 20 24 68 64 28 24 63   }.  puts $hd($c
47f0: 6c 61 73 73 29 20 22 3c 2f 62 6c 6f 63 6b 71 75  lass) "</blockqu
4800: 6f 74 65 3e 22 0a 7d 0a 70 72 6f 63 20 52 65 63  ote>".}.proc Rec
4810: 75 72 73 69 76 65 42 75 62 62 6c 65 44 69 61 67  ursiveBubbleDiag
4820: 72 61 6d 20 7b 61 72 67 73 7d 20 7b 0a 20 20 67  ram {args} {.  g
4830: 6c 6f 62 61 6c 20 68 64 0a 20 20 66 6f 72 65 61  lobal hd.  forea
4840: 63 68 20 6e 61 6d 65 20 24 61 72 67 73 20 7b 0a  ch name $args {.
4850: 20 20 20 20 69 66 20 7b 24 68 64 28 65 6e 61 62      if {$hd(enab
4860: 6c 65 2d 6d 61 69 6e 29 7d 20 7b 0a 20 20 20 20  le-main)} {.    
4870: 20 20 52 65 63 75 72 73 69 76 65 42 75 62 62 6c    RecursiveBubbl
4880: 65 44 69 61 67 72 61 6d 5f 68 65 6c 70 65 72 20  eDiagram_helper 
4890: 6d 61 69 6e 20 24 6e 61 6d 65 20 31 20 24 61 72  main $name 1 $ar
48a0: 67 73 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20  gs.    }.    if 
48b0: 7b 24 68 64 28 65 6e 61 62 6c 65 2d 61 75 78 29  {$hd(enable-aux)
48c0: 7d 20 7b 0a 20 20 20 20 20 20 52 65 63 75 72 73  } {.      Recurs
48d0: 69 76 65 42 75 62 62 6c 65 44 69 61 67 72 61 6d  iveBubbleDiagram
48e0: 5f 68 65 6c 70 65 72 20 61 75 78 20 24 6e 61 6d  _helper aux $nam
48f0: 65 20 31 20 24 61 72 67 73 0a 20 20 20 20 7d 0a  e 1 $args.    }.
4900: 20 20 7d 0a 7d 0a 0a 0a 0a 23 20 49 6e 73 65 72    }.}....# Inser
4910: 74 20 61 20 53 65 65 20 41 6c 73 6f 20 6c 69 6e  t a See Also lin
4920: 65 20 66 6f 72 20 72 65 6c 61 74 65 64 20 62 75  e for related bu
4930: 62 62 6c 65 0a 0a 23 20 52 65 63 6f 72 64 20 61  bble..# Record a
4940: 20 72 65 71 75 69 72 65 6d 65 6e 74 2e 20 20 54   requirement.  T
4950: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73  his procedure is
4960: 20 61 63 74 69 76 65 20 6f 6e 6c 79 20 66 6f 72   active only for
4970: 20 74 68 65 20 66 69 72 73 74 0a 23 20 70 61 73   the first.# pas
4980: 73 2e 20 20 54 68 69 73 20 70 72 6f 63 65 64 75  s.  This procedu
4990: 72 65 20 62 65 63 6f 6d 65 73 20 61 20 6e 6f 2d  re becomes a no-
49a0: 6f 70 20 66 6f 72 20 74 68 65 20 73 65 63 6f 6e  op for the secon
49b0: 64 20 70 61 73 73 2e 20 20 44 75 72 69 6e 67 0a  d pass.  During.
49c0: 23 20 74 68 65 20 73 65 63 6f 6e 64 20 70 61 73  # the second pas
49d0: 73 2c 20 72 65 71 75 69 72 65 6d 65 6e 74 73 20  s, requirements 
49e0: 6c 69 73 74 69 6e 67 20 72 65 70 6f 72 74 20 67  listing report g
49f0: 65 6e 65 72 61 74 6f 72 73 20 63 61 6e 20 75 73  enerators can us
4a00: 65 20 74 68 65 0a 23 20 64 61 74 61 20 61 63 63  e the.# data acc
4a10: 75 6d 75 6c 61 74 65 64 20 64 75 72 69 6e 67 20  umulated during 
4a20: 74 68 65 20 66 69 72 73 74 20 70 61 73 73 20 74  the first pass t
4a30: 6f 20 63 6f 6e 73 74 72 75 63 74 20 74 68 65 69  o construct thei
4a40: 72 20 72 65 70 6f 72 74 73 2e 0a 23 0a 23 20 49  r reports..#.# I
4a50: 66 20 74 68 65 20 22 76 65 72 62 61 74 69 6d 22  f the "verbatim"
4a60: 20 61 72 67 75 6d 65 6e 74 20 69 73 20 74 72 75   argument is tru
4a70: 65 2c 20 74 68 65 6e 20 74 68 65 20 72 65 71 75  e, then the requ
4a80: 69 72 65 6d 65 6e 74 20 74 65 78 74 20 69 73 0a  irement text is.
4a90: 23 20 72 65 6e 64 65 72 65 64 20 61 73 20 69 73  # rendered as is
4aa0: 2e 20 20 49 6e 20 6f 74 68 65 72 20 77 6f 72 64  .  In other word
4ab0: 73 2c 20 74 68 65 20 72 65 71 75 69 72 65 6d 65  s, the requireme
4ac0: 6e 74 20 74 65 78 74 20 69 73 20 61 73 73 75 6d  nt text is assum
4ad0: 65 64 20 74 6f 0a 23 20 62 65 20 76 61 6c 69 64  ed to.# be valid
4ae0: 20 48 54 4d 4c 20 77 69 74 68 20 61 6c 6c 20 68   HTML with all h
4af0: 79 70 65 72 6c 69 6e 6b 73 20 61 6c 72 65 61 64  yperlinks alread
4b00: 79 20 72 65 73 6f 6c 76 65 64 2e 20 20 49 66 20  y resolved.  If 
4b10: 74 68 65 20 22 76 65 72 62 61 74 69 6d 22 0a 23  the "verbatim".#
4b20: 20 61 72 67 75 6d 65 6e 74 20 69 73 20 66 61 6c   argument is fal
4b30: 73 65 20 28 74 68 65 20 64 65 66 61 75 6c 74 29  se (the default)
4b40: 20 74 68 65 6e 20 74 68 65 20 72 65 71 75 69 72   then the requir
4b50: 65 6d 65 6e 74 20 74 65 78 74 20 69 73 20 72 65  ement text is re
4b60: 6e 64 65 72 65 64 0a 23 20 75 73 69 6e 67 20 68  ndered.# using h
4b70: 64 5f 72 65 6e 64 65 72 20 77 68 69 63 68 20 77  d_render which w
4b80: 69 6c 6c 20 66 69 6e 64 20 61 6e 20 65 78 70 61  ill find an expa
4b90: 6e 64 20 68 79 70 65 72 6c 69 6e 6b 73 20 77 69  nd hyperlinks wi
4ba0: 74 68 69 6e 20 74 68 65 20 74 65 78 74 2e 0a 23  thin the text..#
4bb0: 0a 23 20 54 68 65 20 22 63 6f 6d 6d 65 6e 74 22  .# The "comment"
4bc0: 20 61 72 67 75 6d 65 6e 74 20 69 73 20 6e 6f 6e   argument is non
4bd0: 2d 62 69 6e 64 69 6e 67 20 63 6f 6d 6d 65 6e 74  -binding comment
4be0: 61 72 79 20 61 6e 64 20 65 78 70 6c 61 6e 61 74  ary and explanat
4bf0: 69 6f 6e 20 74 68 61 74 0a 23 20 61 63 63 6f 6d  ion that.# accom
4c00: 70 61 6e 69 65 73 20 74 68 65 20 72 65 71 75 69  panies the requi
4c10: 72 65 6d 65 6e 74 2e 0a 23 0a 70 72 6f 63 20 68  rement..#.proc h
4c20: 64 5f 72 65 71 75 69 72 65 6d 65 6e 74 20 7b 69  d_requirement {i
4c30: 64 20 74 65 78 74 20 64 65 72 69 76 65 64 66 72  d text derivedfr
4c40: 6f 6d 20 63 6f 6d 6d 65 6e 74 7d 20 7b 0a 20 20  om comment} {.  
4c50: 67 6c 6f 62 61 6c 20 41 4c 4c 52 45 51 20 41 4c  global ALLREQ AL
4c60: 4c 52 45 51 5f 44 45 52 49 56 45 44 46 52 4f 4d  LREQ_DERIVEDFROM
4c70: 20 41 4c 4c 52 45 51 5f 43 4f 4d 0a 20 20 69 66   ALLREQ_COM.  if
4c80: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 41   {[info exists A
4c90: 4c 4c 52 45 51 28 24 69 64 29 5d 7d 20 7b 0a 20  LLREQ($id)]} {. 
4ca0: 20 20 20 70 75 74 73 20 73 74 64 65 72 72 20 22     puts stderr "
4cb0: 64 75 70 6c 69 63 61 74 65 20 72 65 71 75 69 72  duplicate requir
4cc0: 65 6d 65 6e 74 20 6c 61 62 65 6c 3a 20 24 69 64  ement label: $id
4cd0: 22 0a 20 20 7d 0a 20 20 73 65 74 20 41 4c 4c 52  ".  }.  set ALLR
4ce0: 45 51 5f 44 45 52 49 56 45 44 46 52 4f 4d 28 24  EQ_DERIVEDFROM($
4cf0: 69 64 29 20 24 64 65 72 69 76 65 64 66 72 6f 6d  id) $derivedfrom
4d00: 0a 20 20 73 65 74 20 41 4c 4c 52 45 51 28 24 69  .  set ALLREQ($i
4d10: 64 29 20 24 74 65 78 74 0a 20 20 73 65 74 20 41  d) $text.  set A
4d20: 4c 4c 52 45 51 5f 43 4f 4d 28 24 69 64 29 20 24  LLREQ_COM($id) $
4d30: 63 6f 6d 6d 65 6e 74 0a 7d 0a 0a 23 20 52 65 61  comment.}..# Rea
4d40: 64 20 61 20 62 6c 6f 63 6b 20 6f 66 20 72 65 71  d a block of req
4d50: 75 69 72 65 6d 65 6e 74 73 20 66 72 6f 6d 20 61  uirements from a
4d60: 6e 20 41 53 43 49 49 20 74 65 78 74 20 66 69 6c  n ASCII text fil
4d70: 65 2e 20 20 53 74 6f 72 65 20 74 68 65 0a 23 20  e.  Store the.# 
4d80: 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 62 74 61  information obta
4d90: 69 6e 65 64 20 69 6e 20 61 20 67 6c 6f 62 61 6c  ined in a global
4da0: 20 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 64 20   variable named 
4db0: 62 79 20 74 68 65 20 73 65 63 6f 6e 64 20 70 61  by the second pa
4dc0: 72 61 6d 65 74 65 72 2e 0a 23 0a 70 72 6f 63 20  rameter..#.proc 
4dd0: 68 64 5f 72 65 61 64 5f 72 65 71 75 69 72 65 6d  hd_read_requirem
4de0: 65 6e 74 5f 66 69 6c 65 20 7b 66 69 6c 65 6e 61  ent_file {filena
4df0: 6d 65 20 76 61 72 6e 61 6d 65 7d 20 7b 0a 20 20  me varname} {.  
4e00: 67 6c 6f 62 61 6c 20 68 64 5f 72 65 71 5f 72 64  global hd_req_rd
4e10: 72 0a 20 20 68 64 5f 72 65 73 65 74 5f 72 65 71  r.  hd_reset_req
4e20: 75 69 72 65 6d 65 6e 74 5f 72 65 61 64 65 72 0a  uirement_reader.
4e30: 20 20 73 65 74 20 69 6e 20 5b 6f 70 65 6e 20 24    set in [open $
4e40: 66 69 6c 65 6e 61 6d 65 5d 0a 20 20 77 68 69 6c  filename].  whil
4e50: 65 20 7b 21 5b 65 6f 66 20 24 69 6e 5d 7d 20 7b  e {![eof $in]} {
4e60: 0a 20 20 20 20 73 65 74 20 6c 69 6e 65 20 5b 67  .    set line [g
4e70: 65 74 73 20 24 69 6e 5d 0a 20 20 20 20 69 66 20  ets $in].    if 
4e80: 7b 5b 72 65 67 65 78 70 20 7b 5e 28 48 4c 52 7c  {[regexp {^(HLR|
4e90: 55 4e 44 45 46 7c 53 59 53 52 45 51 29 20 2b 28  UNDEF|SYSREQ) +(
4ea0: 5b 4c 48 53 55 5d 5c 64 2b 29 20 2a 28 2e 2a 29  [LHSU]\d+) *(.*)
4eb0: 7d 20 24 6c 69 6e 65 20 61 6c 6c 20 74 79 70 65  } $line all type
4ec0: 20 72 6e 20 64 66 5d 7d 20 7b 0a 20 20 20 20 20   rn df]} {.     
4ed0: 20 68 64 5f 61 64 64 5f 6f 6e 65 5f 72 65 71 75   hd_add_one_requ
4ee0: 69 72 65 6d 65 6e 74 20 24 76 61 72 6e 61 6d 65  irement $varname
4ef0: 0a 20 20 20 20 20 20 73 65 74 20 68 64 5f 72 65  .      set hd_re
4f00: 71 5f 72 64 72 28 72 6e 29 20 24 72 6e 0a 20 20  q_rdr(rn) $rn.  
4f10: 20 20 20 20 73 65 74 20 68 64 5f 72 65 71 5f 72      set hd_req_r
4f20: 64 72 28 64 65 72 69 76 65 64 29 20 24 64 66 0a  dr(derived) $df.
4f30: 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 73      } elseif {[s
4f40: 74 72 69 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65  tring trim $line
4f50: 5d 3d 3d 22 22 7d 20 7b 0a 20 20 20 20 20 20 69  ]==""} {.      i
4f60: 66 20 7b 24 68 64 5f 72 65 71 5f 72 64 72 28 62  f {$hd_req_rdr(b
4f70: 6f 64 79 29 3d 3d 22 22 7d 20 7b 0a 20 20 20 20  ody)==""} {.    
4f80: 20 20 20 20 73 65 74 20 68 64 5f 72 65 71 5f 72      set hd_req_r
4f90: 64 72 28 62 6f 64 79 29 20 24 68 64 5f 72 65 71  dr(body) $hd_req
4fa0: 5f 72 64 72 28 63 6f 6d 6d 65 6e 74 29 0a 20 20  _rdr(comment).  
4fb0: 20 20 20 20 20 20 73 65 74 20 68 64 5f 72 65 71        set hd_req
4fc0: 5f 72 64 72 28 63 6f 6d 6d 65 6e 74 29 20 7b 7d  _rdr(comment) {}
4fd0: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a  .      } else {.
4fe0: 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 68          append h
4ff0: 64 5f 72 65 71 5f 72 64 72 28 63 6f 6d 6d 65 6e  d_req_rdr(commen
5000: 74 29 20 5c 6e 0a 20 20 20 20 20 20 7d 0a 20 20  t) \n.      }.  
5010: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20    } else {.     
5020: 20 61 70 70 65 6e 64 20 68 64 5f 72 65 71 5f 72   append hd_req_r
5030: 64 72 28 63 6f 6d 6d 65 6e 74 29 20 24 6c 69 6e  dr(comment) $lin
5040: 65 5c 6e 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20  e\n.    }.  }.  
5050: 68 64 5f 61 64 64 5f 6f 6e 65 5f 72 65 71 75 69  hd_add_one_requi
5060: 72 65 6d 65 6e 74 20 24 76 61 72 6e 61 6d 65 0a  rement $varname.
5070: 20 20 63 6c 6f 73 65 20 24 69 6e 0a 20 20 0a 7d    close $in.  .}
5080: 0a 70 72 6f 63 20 68 64 5f 72 65 73 65 74 5f 72  .proc hd_reset_r
5090: 65 71 75 69 72 65 6d 65 6e 74 5f 72 65 61 64 65  equirement_reade
50a0: 72 20 7b 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20  r {} {.  global 
50b0: 68 64 5f 72 65 71 5f 72 64 72 0a 20 20 73 65 74  hd_req_rdr.  set
50c0: 20 68 64 5f 72 65 71 5f 72 64 72 28 72 6e 29 20   hd_req_rdr(rn) 
50d0: 7b 7d 0a 20 20 73 65 74 20 68 64 5f 72 65 71 5f  {}.  set hd_req_
50e0: 72 64 72 28 63 6f 6d 6d 65 6e 74 29 20 7b 7d 0a  rdr(comment) {}.
50f0: 20 20 73 65 74 20 68 64 5f 72 65 71 5f 72 64 72    set hd_req_rdr
5100: 28 62 6f 64 79 29 20 7b 7d 0a 20 20 73 65 74 20  (body) {}.  set 
5110: 68 64 5f 72 65 71 5f 72 64 72 28 64 65 72 69 76  hd_req_rdr(deriv
5120: 65 64 29 20 7b 7d 0a 7d 0a 70 72 6f 63 20 68 64  ed) {}.}.proc hd
5130: 5f 61 64 64 5f 6f 6e 65 5f 72 65 71 75 69 72 65  _add_one_require
5140: 6d 65 6e 74 20 7b 76 61 72 6e 61 6d 65 7d 20 7b  ment {varname} {
5150: 0a 20 20 67 6c 6f 62 61 6c 20 68 64 5f 72 65 71  .  global hd_req
5160: 5f 72 64 72 0a 20 20 73 65 74 20 72 6e 20 24 68  _rdr.  set rn $h
5170: 64 5f 72 65 71 5f 72 64 72 28 72 6e 29 0a 20 20  d_req_rdr(rn).  
5180: 69 66 20 7b 24 72 6e 21 3d 22 22 7d 20 7b 0a 20  if {$rn!=""} {. 
5190: 20 20 20 69 66 20 7b 24 68 64 5f 72 65 71 5f 72     if {$hd_req_r
51a0: 64 72 28 62 6f 64 79 29 3d 3d 22 22 7d 20 7b 0a  dr(body)==""} {.
51b0: 20 20 20 20 20 20 73 65 74 20 68 64 5f 72 65 71        set hd_req
51c0: 5f 72 64 72 28 62 6f 64 79 29 20 24 68 64 5f 72  _rdr(body) $hd_r
51d0: 65 71 5f 72 64 72 28 63 6f 6d 6d 65 6e 74 29 0a  eq_rdr(comment).
51e0: 20 20 20 20 20 20 73 65 74 20 68 64 5f 72 65 71        set hd_req
51f0: 5f 72 64 72 28 63 6f 6d 6d 65 6e 74 29 20 7b 7d  _rdr(comment) {}
5200: 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 74 20 62  .    }.    set b
5210: 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 68   [string trim $h
5220: 64 5f 72 65 71 5f 72 64 72 28 62 6f 64 79 29 5d  d_req_rdr(body)]
5230: 0a 20 20 20 20 73 65 74 20 63 20 5b 73 74 72 69  .    set c [stri
5240: 6e 67 20 74 72 69 6d 20 24 68 64 5f 72 65 71 5f  ng trim $hd_req_
5250: 72 64 72 28 63 6f 6d 6d 65 6e 74 29 5d 0a 20 20  rdr(comment)].  
5260: 20 20 73 65 74 20 3a 3a 24 7b 76 61 72 6e 61 6d    set ::${varnam
5270: 65 7d 28 24 72 6e 29 20 5b 6c 69 73 74 20 24 68  e}($rn) [list $h
5280: 64 5f 72 65 71 5f 72 64 72 28 64 65 72 69 76 65  d_req_rdr(derive
5290: 64 29 20 24 62 20 24 63 5d 0a 20 20 20 20 6c 61  d) $b $c].    la
52a0: 70 70 65 6e 64 20 3a 3a 24 7b 76 61 72 6e 61 6d  ppend ::${varnam
52b0: 65 7d 28 2a 29 20 24 72 6e 0a 20 20 7d 0a 20 20  e}(*) $rn.  }.  
52c0: 68 64 5f 72 65 73 65 74 5f 72 65 71 75 69 72 65  hd_reset_require
52d0: 6d 65 6e 74 5f 72 65 61 64 65 72 0a 7d 0a 0a 23  ment_reader.}..#
52e0: 20 46 69 72 73 74 20 70 61 73 73 2e 20 20 50 72   First pass.  Pr
52f0: 6f 63 65 73 73 20 61 6c 6c 20 66 69 6c 65 73 2e  ocess all files.
5300: 20 20 42 75 74 20 64 6f 20 6e 6f 74 20 72 65 6e    But do not ren
5310: 64 65 72 20 68 79 70 65 72 6c 69 6e 6b 73 2e 0a  der hyperlinks..
5320: 23 20 4d 65 72 65 6c 79 20 63 6f 6c 6c 65 63 74  # Merely collect
5330: 20 6b 65 79 77 6f 72 64 20 69 6e 66 6f 72 6d 61   keyword informa
5340: 74 69 6f 6e 20 73 6f 20 74 68 61 74 20 68 79 70  tion so that hyp
5350: 65 72 6c 69 6e 6b 73 20 63 61 6e 20 62 65 0a 23  erlinks can be.#
5360: 20 63 6f 72 72 65 63 74 6c 79 20 72 65 6e 64 65   correctly rende
5370: 72 65 64 20 6f 6e 20 74 68 65 20 73 65 63 6f 6e  red on the secon
5380: 64 20 70 61 73 73 2e 0a 23 0a 66 6f 72 65 61 63  d pass..#.foreac
5390: 68 20 69 6e 66 69 6c 65 20 5b 6c 72 61 6e 67 65  h infile [lrange
53a0: 20 24 61 72 67 76 20 33 20 65 6e 64 5d 20 7b 0a   $argv 3 end] {.
53b0: 20 20 63 64 20 24 48 4f 4d 45 44 49 52 0a 20 20    cd $HOMEDIR.  
53c0: 70 75 74 73 20 22 50 72 6f 63 65 73 73 69 6e 67  puts "Processing
53d0: 20 24 69 6e 66 69 6c 65 22 0a 20 20 73 65 74 20   $infile".  set 
53e0: 66 64 20 5b 6f 70 65 6e 20 24 69 6e 66 69 6c 65  fd [open $infile
53f0: 20 72 5d 0a 20 20 73 65 74 20 69 6e 20 5b 72 65   r].  set in [re
5400: 61 64 20 24 66 64 5d 0a 20 20 63 6c 6f 73 65 20  ad $fd].  close 
5410: 24 66 64 0a 20 20 69 66 20 7b 5b 73 74 72 69 6e  $fd.  if {[strin
5420: 67 20 66 69 72 73 74 20 3c 74 61 62 6c 65 5f 6f  g first <table_o
5430: 66 5f 63 6f 6e 74 65 6e 74 73 3e 20 24 69 6e 5d  f_contents> $in]
5440: 3e 3d 30 7d 20 7b 20 73 65 74 20 69 6e 20 5b 61  >=0} { set in [a
5450: 64 64 74 6f 63 20 24 69 6e 5d 20 7d 0a 20 20 73  ddtoc $in] }.  s
5460: 65 74 20 74 69 74 6c 65 20 7b 4e 6f 20 54 69 74  et title {No Tit
5470: 6c 65 7d 0a 20 20 72 65 67 65 78 70 20 7b 3c 74  le}.  regexp {<t
5480: 69 74 6c 65 3e 28 5b 5e 5c 6e 5d 2a 29 3c 2f 74  itle>([^\n]*)</t
5490: 69 74 6c 65 3e 7d 20 24 69 6e 20 61 6c 6c 20 74  itle>} $in all t
54a0: 69 74 6c 65 0a 20 20 72 65 67 73 75 62 20 7b 3c  itle.  regsub {<
54b0: 74 69 74 6c 65 3e 5b 5e 5c 6e 5d 2a 3c 2f 74 69  title>[^\n]*</ti
54c0: 74 6c 65 3e 7d 20 24 69 6e 20 7b 7d 20 69 6e 0a  tle>} $in {} in.
54d0: 20 20 73 65 74 20 6f 75 74 66 69 6c 65 20 5b 66    set outfile [f
54e0: 69 6c 65 20 72 6f 6f 74 20 5b 66 69 6c 65 20 74  ile root [file t
54f0: 61 69 6c 20 24 69 6e 66 69 6c 65 5d 5d 2e 68 74  ail $infile]].ht
5500: 6d 6c 0a 20 20 68 64 5f 6f 70 65 6e 5f 6d 61 69  ml.  hd_open_mai
5510: 6e 20 24 6f 75 74 66 69 6c 65 0a 20 20 64 62 20  n $outfile.  db 
5520: 65 76 61 6c 20 7b 0a 20 20 20 20 49 4e 53 45 52  eval {.    INSER
5530: 54 20 49 4e 54 4f 20 70 61 67 65 28 66 69 6c 65  T INTO page(file
5540: 6e 61 6d 65 2c 70 61 67 65 74 69 74 6c 65 29 0a  name,pagetitle).
5550: 20 20 20 20 56 41 4c 55 45 53 28 24 6f 75 74 66      VALUES($outf
5560: 69 6c 65 2c 24 74 69 74 6c 65 29 3b 0a 20 20 7d  ile,$title);.  }
5570: 0a 20 20 73 65 74 20 68 28 70 61 67 65 69 64 29  .  set h(pageid)
5580: 20 5b 64 62 20 6c 61 73 74 5f 69 6e 73 65 72 74   [db last_insert
5590: 5f 72 6f 77 69 64 5d 0a 20 20 68 64 5f 68 65 61  _rowid].  hd_hea
55a0: 64 65 72 20 24 74 69 74 6c 65 20 24 69 6e 66 69  der $title $infi
55b0: 6c 65 0a 20 20 72 65 67 73 75 62 20 2d 61 6c 6c  le.  regsub -all
55c0: 20 7b 3c 74 63 6c 3e 7d 20 24 69 6e 20 22 5c 31   {<tcl>} $in "\1
55d0: 37 35 3b 20 65 76 61 6c 20 5c 31 37 33 22 20 69  75; eval \173" i
55e0: 6e 0a 20 20 72 65 67 73 75 62 20 2d 61 6c 6c 20  n.  regsub -all 
55f0: 7b 3c 2f 74 63 6c 3e 7d 20 24 69 6e 20 22 5c 31  {</tcl>} $in "\1
5600: 37 35 3b 20 68 64 5f 70 75 74 73 20 5c 31 37 33  75; hd_puts \173
5610: 22 20 69 6e 0a 20 20 65 76 61 6c 20 22 68 64 5f  " in.  eval "hd_
5620: 70 75 74 73 20 5c 31 37 33 24 69 6e 5c 31 37 35  puts \173$in\175
5630: 22 0a 20 20 63 64 20 24 3a 3a 48 4f 4d 45 44 49  ".  cd $::HOMEDI
5640: 52 0a 20 20 68 64 5f 63 6c 6f 73 65 5f 6d 61 69  R.  hd_close_mai
5650: 6e 0a 7d 0a 0a 23 20 53 65 63 6f 6e 64 20 70 61  n.}..# Second pa
5660: 73 73 2e 20 20 50 72 6f 63 65 73 73 20 61 6c 6c  ss.  Process all
5670: 20 66 69 6c 65 73 20 61 67 61 69 6e 2e 20 20 54   files again.  T
5680: 68 69 73 20 74 69 6d 65 20 72 65 6e 64 65 72 20  his time render 
5690: 68 79 70 65 72 6c 69 6e 6b 73 0a 23 20 61 63 63  hyperlinks.# acc
56a0: 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 6b 65  ording to the ke
56b0: 79 77 6f 72 64 20 69 6e 66 6f 72 6d 61 74 69 6f  yword informatio
56c0: 6e 20 63 6f 6c 6c 65 63 74 65 64 20 6f 6e 20 74  n collected on t
56d0: 68 65 20 66 69 72 73 74 20 70 61 73 73 2e 0a 23  he first pass..#
56e0: 0a 70 72 6f 63 20 68 64 5f 6b 65 79 77 6f 72 64  .proc hd_keyword
56f0: 73 20 7b 61 72 67 73 7d 20 7b 7d 0a 72 65 6e 61  s {args} {}.rena
5700: 6d 65 20 68 64 5f 72 65 73 6f 6c 76 65 20 7b 7d  me hd_resolve {}
5710: 0a 72 65 6e 61 6d 65 20 68 64 5f 72 65 73 6f 6c  .rename hd_resol
5720: 76 65 5f 32 6e 64 70 61 73 73 20 68 64 5f 72 65  ve_2ndpass hd_re
5730: 73 6f 6c 76 65 0a 70 72 6f 63 20 68 64 5f 72 65  solve.proc hd_re
5740: 71 75 69 72 65 6d 65 6e 74 20 7b 61 72 67 73 7d  quirement {args}
5750: 20 7b 7d 0a 66 6f 72 65 61 63 68 20 69 6e 66 69   {}.foreach infi
5760: 6c 65 20 5b 6c 72 61 6e 67 65 20 24 61 72 67 76  le [lrange $argv
5770: 20 33 20 65 6e 64 5d 20 7b 0a 20 20 63 64 20 24   3 end] {.  cd $
5780: 48 4f 4d 45 44 49 52 0a 20 20 70 75 74 73 20 22  HOMEDIR.  puts "
5790: 50 72 6f 63 65 73 73 69 6e 67 20 24 69 6e 66 69  Processing $infi
57a0: 6c 65 22 0a 20 20 73 65 74 20 66 64 20 5b 6f 70  le".  set fd [op
57b0: 65 6e 20 24 69 6e 66 69 6c 65 20 72 5d 0a 20 20  en $infile r].  
57c0: 73 65 74 20 69 6e 20 5b 72 65 61 64 20 24 66 64  set in [read $fd
57d0: 5d 0a 20 20 63 6c 6f 73 65 20 24 66 64 0a 20 20  ].  close $fd.  
57e0: 69 66 20 7b 5b 73 74 72 69 6e 67 20 66 69 72 73  if {[string firs
57f0: 74 20 3c 74 61 62 6c 65 5f 6f 66 5f 63 6f 6e 74  t <table_of_cont
5800: 65 6e 74 73 3e 20 24 69 6e 5d 3e 3d 30 7d 20 7b  ents> $in]>=0} {
5810: 20 73 65 74 20 69 6e 20 5b 61 64 64 74 6f 63 20   set in [addtoc 
5820: 24 69 6e 5d 20 7d 0a 20 20 73 65 74 20 74 69 74  $in] }.  set tit
5830: 6c 65 20 7b 4e 6f 20 54 69 74 6c 65 7d 0a 20 20  le {No Title}.  
5840: 72 65 67 65 78 70 20 7b 3c 74 69 74 6c 65 3e 28  regexp {<title>(
5850: 5b 5e 5c 6e 5d 2a 29 3c 2f 74 69 74 6c 65 3e 7d  [^\n]*)</title>}
5860: 20 24 69 6e 20 61 6c 6c 20 74 69 74 6c 65 0a 20   $in all title. 
5870: 20 72 65 67 73 75 62 20 7b 3c 74 69 74 6c 65 3e   regsub {<title>
5880: 5b 5e 5c 6e 5d 2a 3c 2f 74 69 74 6c 65 3e 7d 20  [^\n]*</title>} 
5890: 24 69 6e 20 7b 7d 20 69 6e 0a 20 20 73 65 74 20  $in {} in.  set 
58a0: 6f 75 74 66 69 6c 65 20 5b 66 69 6c 65 20 72 6f  outfile [file ro
58b0: 6f 74 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 69  ot [file tail $i
58c0: 6e 66 69 6c 65 5d 5d 2e 68 74 6d 6c 0a 20 20 68  nfile]].html.  h
58d0: 64 5f 6f 70 65 6e 5f 6d 61 69 6e 20 24 6f 75 74  d_open_main $out
58e0: 66 69 6c 65 0a 20 20 68 64 5f 68 65 61 64 65 72  file.  hd_header
58f0: 20 24 74 69 74 6c 65 20 24 69 6e 66 69 6c 65 0a   $title $infile.
5900: 20 20 72 65 67 73 75 62 20 2d 61 6c 6c 20 7b 3c    regsub -all {<
5910: 74 63 6c 3e 7d 20 24 69 6e 20 22 5c 31 37 35 3b  tcl>} $in "\175;
5920: 20 65 76 61 6c 20 5c 31 37 33 22 20 69 6e 0a 20   eval \173" in. 
5930: 20 72 65 67 73 75 62 20 2d 61 6c 6c 20 7b 3c 2f   regsub -all {</
5940: 74 63 6c 3e 7d 20 24 69 6e 20 22 5c 31 37 35 3b  tcl>} $in "\175;
5950: 20 68 64 5f 72 65 73 6f 6c 76 65 20 5c 31 37 33   hd_resolve \173
5960: 22 20 69 6e 0a 20 20 65 76 61 6c 20 22 68 64 5f  " in.  eval "hd_
5970: 72 65 73 6f 6c 76 65 20 5c 31 37 33 24 69 6e 5c  resolve \173$in\
5980: 31 37 35 22 0a 20 20 63 64 20 24 3a 3a 48 4f 4d  175".  cd $::HOM
5990: 45 44 49 52 0a 20 20 68 64 5f 63 6c 6f 73 65 5f  EDIR.  hd_close_
59a0: 6d 61 69 6e 0a 7d 0a 0a 23 20 47 65 6e 65 72 61  main.}..# Genera
59b0: 74 65 20 61 20 64 6f 63 75 6d 65 6e 74 20 73 68  te a document sh
59c0: 6f 77 69 6e 67 20 74 68 65 20 68 79 70 65 72 6c  owing the hyperl
59d0: 69 6e 6b 20 6b 65 79 77 6f 72 64 73 20 61 6e 64  ink keywords and
59e0: 20 74 68 65 69 72 0a 23 20 74 61 72 67 65 74 73   their.# targets
59f0: 2e 0a 23 0a 68 64 5f 6f 70 65 6e 5f 6d 61 69 6e  ..#.hd_open_main
5a00: 20 64 6f 63 5f 6b 65 79 77 6f 72 64 5f 63 72 6f   doc_keyword_cro
5a10: 73 73 72 65 66 2e 68 74 6d 6c 0a 68 64 5f 68 65  ssref.html.hd_he
5a20: 61 64 65 72 20 7b 4b 65 79 77 6f 72 64 20 43 72  ader {Keyword Cr
5a30: 6f 73 73 72 65 66 65 72 65 6e 63 65 7d 20 24 44  ossreference} $D
5a40: 4f 43 2f 77 72 61 70 2e 74 63 6c 0a 68 64 5f 70  OC/wrap.tcl.hd_p
5a50: 75 74 73 20 22 3c 75 6c 3e 22 0a 66 6f 72 65 61  uts "<ul>".forea
5a60: 63 68 20 78 20 5b 6c 73 6f 72 74 20 2d 64 69 63  ch x [lsort -dic
5a70: 74 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 67  t [array names g
5a80: 6c 69 6e 6b 5d 5d 20 7b 0a 20 20 73 65 74 20 79  link]] {.  set y
5a90: 20 24 67 6c 69 6e 6b 28 24 78 29 0a 20 20 68 64   $glink($x).  hd
5aa0: 5f 70 75 74 73 20 22 3c 6c 69 3e 24 78 20 2d 20  _puts "<li>$x - 
5ab0: 3c 61 20 68 72 65 66 3d 5c 22 24 79 5c 22 3e 24  <a href=\"$y\">$
5ac0: 79 3c 2f 61 3e 3c 2f 6c 69 3e 22 0a 20 20 6c 61  y</a></li>".  la
5ad0: 70 70 65 6e 64 20 72 65 76 67 6c 69 6e 6b 28 24  ppend revglink($
5ae0: 79 29 20 24 78 0a 7d 0a 68 64 5f 70 75 74 73 20  y) $x.}.hd_puts 
5af0: 22 3c 2f 75 6c 3e 22 0a 68 64 5f 63 6c 6f 73 65  "</ul>".hd_close
5b00: 5f 6d 61 69 6e 0a 0a 68 64 5f 6f 70 65 6e 5f 6d  _main..hd_open_m
5b10: 61 69 6e 20 64 6f 63 5f 74 61 72 67 65 74 5f 63  ain doc_target_c
5b20: 72 6f 73 73 72 65 66 2e 68 74 6d 6c 0a 68 64 5f  rossref.html.hd_
5b30: 68 65 61 64 65 72 20 7b 54 61 72 67 65 74 20 43  header {Target C
5b40: 72 6f 73 73 72 65 66 65 72 65 6e 63 65 7d 20 24  rossreference} $
5b50: 44 4f 43 2f 77 72 61 70 2e 74 63 6c 0a 68 64 5f  DOC/wrap.tcl.hd_
5b60: 70 75 74 73 20 22 3c 75 6c 3e 22 0a 66 6f 72 65  puts "<ul>".fore
5b70: 61 63 68 20 79 20 5b 6c 73 6f 72 74 20 5b 61 72  ach y [lsort [ar
5b80: 72 61 79 20 6e 61 6d 65 73 20 72 65 76 67 6c 69  ray names revgli
5b90: 6e 6b 5d 5d 20 7b 0a 20 20 68 64 5f 70 75 74 73  nk]] {.  hd_puts
5ba0: 20 22 3c 6c 69 3e 3c 61 20 68 72 65 66 3d 5c 22   "<li><a href=\"
5bb0: 24 79 5c 22 3e 24 79 3c 2f 61 3e 20 2d 20 5b 6c  $y\">$y</a> - [l
5bc0: 73 6f 72 74 20 24 72 65 76 67 6c 69 6e 6b 28 24  sort $revglink($
5bd0: 79 29 5d 3c 2f 6c 69 3e 22 0a 7d 0a 68 64 5f 70  y)]</li>".}.hd_p
5be0: 75 74 73 20 22 3c 2f 75 6c 3e 22 0a 68 64 5f 63  uts "</ul>".hd_c
5bf0: 6c 6f 73 65 5f 6d 61 69 6e 0a 0a 68 64 5f 6f 70  lose_main..hd_op
5c00: 65 6e 5f 6d 61 69 6e 20 64 6f 63 5f 62 61 63 6b  en_main doc_back
5c10: 6c 69 6e 6b 5f 63 72 6f 73 73 72 65 66 2e 68 74  link_crossref.ht
5c20: 6d 6c 0a 68 64 5f 68 65 61 64 65 72 20 7b 42 61  ml.hd_header {Ba
5c30: 63 6b 6c 69 6e 6b 20 43 72 6f 73 73 72 65 66 65  cklink Crossrefe
5c40: 72 65 6e 63 65 7d 20 24 44 4f 43 2f 77 72 61 70  rence} $DOC/wrap
5c50: 2e 74 63 6c 0a 68 64 5f 70 75 74 73 20 22 3c 75  .tcl.hd_puts "<u
5c60: 6c 3e 22 0a 66 6f 72 65 61 63 68 20 6b 77 20 5b  l>".foreach kw [
5c70: 6c 73 6f 72 74 20 2d 6e 6f 63 61 73 65 20 5b 61  lsort -nocase [a
5c80: 72 72 61 79 20 6e 61 6d 65 73 20 62 61 63 6b 6c  rray names backl
5c90: 69 6e 6b 5d 5d 20 7b 0a 20 20 68 64 5f 70 75 74  ink]] {.  hd_put
5ca0: 73 20 22 3c 6c 69 3e 24 6b 77 20 2d 22 0a 20 20  s "<li>$kw -".  
5cb0: 73 65 74 20 70 72 65 76 20 7b 7d 0a 20 20 66 6f  set prev {}.  fo
5cc0: 72 65 61 63 68 20 72 65 66 20 5b 6c 73 6f 72 74  reach ref [lsort
5cd0: 20 24 62 61 63 6b 6c 69 6e 6b 28 24 6b 77 29 5d   $backlink($kw)]
5ce0: 20 7b 0a 20 20 20 20 69 66 20 7b 24 72 65 66 3d   {.    if {$ref=
5cf0: 3d 24 70 72 65 76 7d 20 63 6f 6e 74 69 6e 75 65  =$prev} continue
5d00: 0a 20 20 20 20 73 65 74 20 70 72 65 76 20 24 72  .    set prev $r
5d10: 65 66 0a 20 20 20 20 68 64 5f 70 75 74 73 20 22  ef.    hd_puts "
5d20: 20 20 3c 61 20 68 72 65 66 3d 5c 22 24 72 65 66    <a href=\"$ref
5d30: 5c 22 3e 24 72 65 66 3c 2f 61 3e 22 0a 20 20 7d  \">$ref</a>".  }
5d40: 0a 7d 0a 68 64 5f 70 75 74 73 20 22 3c 2f 75 6c  .}.hd_puts "</ul
5d50: 3e 22 0a 68 64 5f 63 6c 6f 73 65 5f 6d 61 69 6e  >".hd_close_main
5d60: 0a 0a 68 64 5f 6f 70 65 6e 5f 6d 61 69 6e 20 64  ..hd_open_main d
5d70: 6f 63 5f 70 61 67 65 6c 69 6e 6b 5f 63 72 6f 73  oc_pagelink_cros
5d80: 73 72 65 66 2e 68 74 6d 6c 0a 68 64 5f 68 65 61  sref.html.hd_hea
5d90: 64 65 72 20 7b 50 61 67 65 6c 69 6e 6b 20 43 72  der {Pagelink Cr
5da0: 6f 73 73 72 65 66 65 72 65 6e 63 65 7d 20 24 44  ossreference} $D
5db0: 4f 43 2f 77 72 61 70 2e 74 63 6c 0a 68 64 5f 70  OC/wrap.tcl.hd_p
5dc0: 75 74 73 20 22 3c 70 3e 54 61 72 67 65 74 20 50  uts "<p>Target P
5dd0: 61 67 65 20 2d 20 57 68 69 63 68 20 70 61 67 65  age - Which page
5de0: 73 20 72 65 66 65 72 65 6e 63 65 20 69 74 2e 3c  s reference it.<
5df0: 2f 70 3e 22 0a 68 64 5f 70 75 74 73 20 22 3c 70  /p>".hd_puts "<p
5e00: 3e 50 61 67 65 73 20 6d 61 74 63 68 69 6e 67 20  >Pages matching 
5e10: 28 6e 65 77 73 7c 63 68 61 6e 67 65 73 7c 72 65  (news|changes|re
5e20: 6c 65 61 73 65 6c 6f 67 7c 5c 5b 30 2d 39 5d 74  leaselog|\[0-9]t
5e30: 6f 5c 5b 30 2d 39 5d 7c 26 23 39 34 3b 64 6f 63  o\[0-9]|&#94;doc
5e40: 5f 2e 2a 5f 63 72 6f 73 73 72 65 66 29 20 61 72  _.*_crossref) ar
5e50: 65 20 73 6b 69 70 70 65 64 2e 3c 2f 70 3e 22 0a  e skipped.</p>".
5e60: 68 64 5f 70 75 74 73 20 22 3c 75 6c 3e 22 0a 66  hd_puts "<ul>".f
5e70: 6f 72 65 61 63 68 20 79 20 5b 6c 73 6f 72 74 20  oreach y [lsort 
5e80: 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 72 65 76  [array names rev
5e90: 67 6c 69 6e 6b 5d 5d 20 7b 0a 20 20 72 65 67 73  glink]] {.  regs
5ea0: 75 62 20 7b 23 2e 2a 7d 20 24 79 20 7b 7d 20 79  ub {#.*} $y {} y
5eb0: 32 0a 20 20 66 6f 72 65 61 63 68 20 6b 77 20 5b  2.  foreach kw [
5ec0: 6c 73 6f 72 74 20 24 72 65 76 67 6c 69 6e 6b 28  lsort $revglink(
5ed0: 24 79 29 5d 20 7b 0a 20 20 20 20 69 66 20 7b 5b  $y)] {.    if {[
5ee0: 69 6e 66 6f 20 65 78 69 73 74 73 20 62 61 63 6b  info exists back
5ef0: 6c 69 6e 6b 28 24 6b 77 29 5d 7d 20 7b 0a 20 20  link($kw)]} {.  
5f00: 20 20 20 20 66 6f 72 65 61 63 68 20 72 65 66 20      foreach ref 
5f10: 5b 6c 73 6f 72 74 20 24 62 61 63 6b 6c 69 6e 6b  [lsort $backlink
5f20: 28 24 6b 77 29 5d 20 7b 0a 20 20 20 20 20 20 20  ($kw)] {.       
5f30: 20 72 65 67 73 75 62 20 7b 23 2e 2a 7d 20 24 72   regsub {#.*} $r
5f40: 65 66 20 7b 7d 20 72 65 66 32 0a 20 20 20 20 20  ef {} ref2.     
5f50: 20 20 20 6c 61 70 70 65 6e 64 20 70 61 67 65 6c     lappend pagel
5f60: 69 6e 6b 28 24 79 32 29 20 24 72 65 66 32 0a 20  ink($y2) $ref2. 
5f70: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d       }.    }.  }
5f80: 0a 7d 0a 66 6f 72 65 61 63 68 20 79 20 5b 6c 73  .}.foreach y [ls
5f90: 6f 72 74 20 5b 61 72 72 61 79 20 6e 61 6d 65 73  ort [array names
5fa0: 20 70 61 67 65 6c 69 6e 6b 5d 5d 20 7b 0a 20 20   pagelink]] {.  
5fb0: 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 28 6e 65  if {[regexp {(ne
5fc0: 77 73 7c 63 68 61 6e 67 65 73 7c 72 65 6c 65 61  ws|changes|relea
5fd0: 73 65 6c 6f 67 7c 5b 30 2d 39 5d 74 6f 5b 30 2d  selog|[0-9]to[0-
5fe0: 39 5d 7c 5e 64 6f 63 5f 2e 2a 5f 63 72 6f 73 73  9]|^doc_.*_cross
5ff0: 72 65 66 29 7d 20 24 79 5d 7d 20 63 6f 6e 74 69  ref)} $y]} conti
6000: 6e 75 65 0a 20 20 68 64 5f 70 75 74 73 20 22 3c  nue.  hd_puts "<
6010: 6c 69 3e 3c 61 20 68 72 65 66 3d 5c 22 24 79 5c  li><a href=\"$y\
6020: 22 3e 24 79 3c 2f 61 3e 20 2d 20 22 0a 20 20 73  ">$y</a> - ".  s
6030: 65 74 20 70 72 65 76 20 7b 7d 0a 20 20 66 6f 72  et prev {}.  for
6040: 65 61 63 68 20 72 65 66 20 5b 6c 73 6f 72 74 20  each ref [lsort 
6050: 24 70 61 67 65 6c 69 6e 6b 28 24 79 29 5d 20 7b  $pagelink($y)] {
6060: 0a 20 20 20 20 69 66 20 7b 24 72 65 66 3d 3d 24  .    if {$ref==$
6070: 70 72 65 76 7d 20 63 6f 6e 74 69 6e 75 65 0a 20  prev} continue. 
6080: 20 20 20 69 66 20 7b 24 72 65 66 3d 3d 24 79 7d     if {$ref==$y}
6090: 20 63 6f 6e 74 69 6e 75 65 0a 20 20 20 20 69 66   continue.    if
60a0: 20 7b 5b 72 65 67 65 78 70 20 7b 28 6e 65 77 73   {[regexp {(news
60b0: 7c 63 68 61 6e 67 65 73 7c 72 65 6c 65 61 73 65  |changes|release
60c0: 6c 6f 67 7c 5b 30 2d 39 5d 74 6f 5b 30 2d 39 5d  log|[0-9]to[0-9]
60d0: 7c 5e 64 6f 63 5f 2e 2a 5f 63 72 6f 73 73 72 65  |^doc_.*_crossre
60e0: 66 29 7d 20 24 72 65 66 5d 7d 20 63 6f 6e 74 69  f)} $ref]} conti
60f0: 6e 75 65 0a 20 20 20 20 68 64 5f 70 75 74 73 20  nue.    hd_puts 
6100: 22 3c 61 20 68 72 65 66 3d 5c 22 24 72 65 66 5c  "<a href=\"$ref\
6110: 22 3e 24 72 65 66 3c 2f 61 3e 20 22 0a 20 20 20  ">$ref</a> ".   
6120: 20 73 65 74 20 70 72 65 76 20 24 72 65 66 0a 20   set prev $ref. 
6130: 20 7d 0a 20 20 68 64 5f 70 75 74 73 20 22 3c 2f   }.  hd_puts "</
6140: 6c 69 3e 22 0a 7d 0a 68 64 5f 70 75 74 73 20 22  li>".}.hd_puts "
6150: 3c 2f 75 6c 3e 22 0a 68 64 5f 63 6c 6f 73 65 5f  </ul>".hd_close_
6160: 6d 61 69 6e 0a 64 62 20 65 76 61 6c 20 43 4f 4d  main.db eval COM
6170: 4d 49 54 0a                                      MIT.