System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact c0973f72bdf993f892d5a017f83fcd40da5acbb3:


0000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
0050: 0a 23 0d 0a 23 20 76 74 61 62 2e 74 63 6c 20 2d  .#..# vtab.tcl -
0060: 2d 0d 0a 23 0d 0a 23 20 57 72 69 74 74 65 6e 20  -..#..# Written 
0070: 62 79 20 4a 6f 65 20 4d 69 73 74 61 63 68 6b 69  by Joe Mistachki
0080: 6e 2e 0d 0a 23 20 52 65 6c 65 61 73 65 64 20 74  n...# Released t
0090: 6f 20 74 68 65 20 70 75 62 6c 69 63 20 64 6f 6d  o the public dom
00a0: 61 69 6e 2c 20 75 73 65 20 61 74 20 79 6f 75 72  ain, use at your
00b0: 20 6f 77 6e 20 72 69 73 6b 21 0d 0a 23 0d 0a 23   own risk!..#..#
00c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
00d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
00e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
00f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a  ##############..
0110: 0d 0a 70 72 6f 63 20 72 65 61 64 46 69 6c 65 20  ..proc readFile 
0120: 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a  { fileName } {..
0130: 20 20 73 65 74 20 66 69 6c 65 5f 69 64 20 5b 6f    set file_id [o
0140: 70 65 6e 20 24 66 69 6c 65 4e 61 6d 65 20 52 44  pen $fileName RD
0150: 4f 4e 4c 59 5d 0d 0a 20 20 66 63 6f 6e 66 69 67  ONLY]..  fconfig
0160: 75 72 65 20 24 66 69 6c 65 5f 69 64 20 2d 65 6e  ure $file_id -en
0170: 63 6f 64 69 6e 67 20 62 69 6e 61 72 79 20 2d 74  coding binary -t
0180: 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72  ranslation binar
0190: 79 0d 0a 20 20 73 65 74 20 72 65 73 75 6c 74 20  y..  set result 
01a0: 5b 72 65 61 64 20 24 66 69 6c 65 5f 69 64 5d 0d  [read $file_id].
01b0: 0a 20 20 63 6c 6f 73 65 20 24 66 69 6c 65 5f 69  .  close $file_i
01c0: 64 0d 0a 20 20 72 65 74 75 72 6e 20 24 72 65 73  d..  return $res
01d0: 75 6c 74 0d 0a 7d 0d 0a 0c 0d 0a 70 72 6f 63 20  ult..}.....proc 
01e0: 77 72 69 74 65 46 69 6c 65 20 7b 20 66 69 6c 65  writeFile { file
01f0: 4e 61 6d 65 20 64 61 74 61 20 7d 20 7b 0d 0a 20  Name data } {.. 
0200: 20 73 65 74 20 66 69 6c 65 5f 69 64 20 5b 6f 70   set file_id [op
0210: 65 6e 20 24 66 69 6c 65 4e 61 6d 65 20 7b 57 52  en $fileName {WR
0220: 4f 4e 4c 59 20 43 52 45 41 54 20 54 52 55 4e 43  ONLY CREAT TRUNC
0230: 7d 5d 0d 0a 20 20 66 63 6f 6e 66 69 67 75 72 65  }]..  fconfigure
0240: 20 24 66 69 6c 65 5f 69 64 20 2d 65 6e 63 6f 64   $file_id -encod
0250: 69 6e 67 20 62 69 6e 61 72 79 20 2d 74 72 61 6e  ing binary -tran
0260: 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72 79 0d 0a  slation binary..
0270: 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e    puts -nonewlin
0280: 65 20 24 66 69 6c 65 5f 69 64 20 24 64 61 74 61  e $file_id $data
0290: 0d 0a 20 20 63 6c 6f 73 65 20 24 66 69 6c 65 5f  ..  close $file_
02a0: 69 64 0d 0a 20 20 72 65 74 75 72 6e 20 22 22 0d  id..  return "".
02b0: 0a 7d 0d 0a 0c 0d 0a 70 72 6f 63 20 65 73 63 61  .}.....proc esca
02c0: 70 65 53 75 62 53 70 65 63 20 7b 20 64 61 74 61  peSubSpec { data
02d0: 20 7d 20 7b 0d 0a 20 20 72 65 67 73 75 62 20 2d   } {..  regsub -
02e0: 61 6c 6c 20 2d 2d 20 7b 26 7d 20 24 64 61 74 61  all -- {&} $data
02f0: 20 7b 5c 5c 5c 26 7d 20 64 61 74 61 0d 0a 20 20   {\\\&} data..  
0300: 72 65 67 73 75 62 20 2d 61 6c 6c 20 2d 2d 20 7b  regsub -all -- {
0310: 5c 5c 28 5c 64 2b 29 7d 20 24 64 61 74 61 20 7b  \\(\d+)} $data {
0320: 5c 5c 5c 5c 5c 31 7d 20 64 61 74 61 0d 0a 20 20  \\\\\1} data..  
0330: 72 65 74 75 72 6e 20 24 64 61 74 61 0d 0a 7d 0d  return $data..}.
0340: 0a 0c 0d 0a 70 72 6f 63 20 70 72 65 50 72 6f 63  ....proc preProc
0350: 65 73 73 4c 69 6e 65 20 7b 20 76 61 6c 75 65 20  essLine { value 
0360: 7d 20 7b 0d 0a 20 20 72 65 67 73 75 62 20 2d 2d  } {..  regsub --
0370: 20 7b 20 69 64 3d 22 5b 30 2d 39 61 2d 7a 5f 5d   { id="[0-9a-z_]
0380: 2b 22 7d 20 24 76 61 6c 75 65 20 22 22 20 76 61  +"} $value "" va
0390: 6c 75 65 0d 0a 20 20 72 65 67 73 75 62 20 2d 2d  lue..  regsub --
03a0: 20 7b 3c 2f 70 3e 3c 68 28 5c 64 29 3e 7d 20 24   {</p><h(\d)>} $
03b0: 76 61 6c 75 65 20 3c 2f 70 3e 5c 6e 3c 68 5c 5c  value </p>\n<h\\
03c0: 31 3e 20 76 61 6c 75 65 0d 0a 20 20 72 65 67 73  1> value..  regs
03d0: 75 62 20 2d 2d 20 7b 3c 2f 70 3e 3c 62 6c 6f 63  ub -- {</p><bloc
03e0: 6b 71 75 6f 74 65 3e 3c 70 72 65 3e 7d 20 24 76  kquote><pre>} $v
03f0: 61 6c 75 65 20 3c 62 6c 6f 63 6b 71 75 6f 74 65  alue <blockquote
0400: 3e 3c 70 72 65 3e 20 76 61 6c 75 65 0d 0a 20 20  ><pre> value..  
0410: 72 65 74 75 72 6e 20 24 76 61 6c 75 65 0d 0a 7d  return $value..}
0420: 0d 0a 0c 0d 0a 70 72 6f 63 20 65 6e 67 6c 69 73  .....proc englis
0430: 68 54 6f 4c 69 73 74 20 7b 20 76 61 6c 75 65 20  hToList { value 
0440: 7d 20 7b 0d 0a 20 20 73 65 74 20 72 65 73 75 6c  } {..  set resul
0450: 74 20 5b 6c 69 73 74 5d 0d 0a 0d 0a 20 20 66 6f  t [list]....  fo
0460: 72 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 5b 73  reach element [s
0470: 70 6c 69 74 20 24 76 61 6c 75 65 20 22 5c 74 5c  plit $value "\t\
0480: 6e 20 2c 22 5d 20 7b 0d 0a 20 20 20 20 69 66 20  n ,"] {..    if 
0490: 7b 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72  {[string tolower
04a0: 20 24 65 6c 65 6d 65 6e 74 5d 20 6e 69 20 5b 6c   $element] ni [l
04b0: 69 73 74 20 22 22 20 61 6e 64 20 6f 72 5d 7d 20  ist "" and or]} 
04c0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 6c 61  then {..      la
04d0: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 24 65 6c  ppend result $el
04e0: 65 6d 65 6e 74 0d 0a 20 20 20 20 7d 0d 0a 20 20  ement..    }..  
04f0: 7d 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 24 72  }....  return $r
0500: 65 73 75 6c 74 0d 0a 7d 0d 0a 0c 0d 0a 70 72 6f  esult..}.....pro
0510: 63 20 70 72 6f 63 65 73 73 4c 69 6e 65 20 7b 20  c processLine { 
0520: 6c 69 6e 65 20 70 72 65 66 69 78 20 6c 74 41 6e  line prefix ltAn
0530: 64 47 74 20 7d 20 7b 0d 0a 20 20 69 66 20 7b 5b  dGt } {..  if {[
0540: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 5b 73  string length [s
0550: 74 72 69 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65  tring trim $line
0560: 5d 5d 20 3d 3d 20 30 20 7c 7c 20 5c 0d 0a 20 20  ]] == 0 || \..  
0570: 20 20 20 20 5b 72 65 67 65 78 70 20 2d 2d 20 7b      [regexp -- {
0580: 3c 68 5c 64 28 3f 3a 20 7c 3e 29 7d 20 5b 73 74  <h\d(?: |>)} [st
0590: 72 69 6e 67 20 72 61 6e 67 65 20 24 6c 69 6e 65  ring range $line
05a0: 20 30 20 33 5d 5d 20 7c 7c 20 5c 0d 0a 20 20 20   0 3]] || \..   
05b0: 20 20 20 5b 72 65 67 65 78 70 20 2d 2d 20 7b 3c     [regexp -- {<
05c0: 2f 70 3e 5c 6e 3c 68 5c 64 28 3f 3a 20 7c 3e 29  /p>\n<h\d(?: |>)
05d0: 7d 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20  } [string range 
05e0: 24 6c 69 6e 65 20 30 20 38 5d 5d 7d 20 74 68 65  $line 0 8]]} the
05f0: 6e 20 7b 0d 0a 20 20 20 20 72 65 74 75 72 6e 20  n {..    return 
0600: 22 22 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74  ""..  }....  set
0610: 20 72 65 73 75 6c 74 20 24 6c 69 6e 65 0d 0a 0d   result $line...
0620: 0a 20 20 66 6f 72 65 61 63 68 20 72 65 6d 6f 76  .  foreach remov
0630: 65 20 5b 6c 69 73 74 20 5c 0d 0a 20 20 20 20 20  e [list \..     
0640: 20 7b 3c 61 20 6e 61 6d 65 3d 22 2e 2a 3f 22 3e   {<a name=".*?">
0650: 7d 20 7b 3c 61 20 68 72 65 66 3d 22 2e 2a 3f 22  } {<a href=".*?"
0660: 3e 7d 20 7b 3c 2f 61 3e 7d 20 7b 3c 70 3e 7d 20  >} {</a>} {<p>} 
0670: 7b 3c 2f 70 3e 7d 5d 20 7b 0d 0a 20 20 20 20 72  {</p>}] {..    r
0680: 65 67 73 75 62 20 2d 61 6c 6c 20 2d 2d 20 24 72  egsub -all -- $r
0690: 65 6d 6f 76 65 20 24 72 65 73 75 6c 74 20 22 22  emove $result ""
06a0: 20 72 65 73 75 6c 74 0d 0a 0d 0a 20 20 20 20 69   result....    i
06b0: 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74  f {[string lengt
06c0: 68 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24  h [string trim $
06d0: 72 65 73 75 6c 74 5d 5d 20 3d 3d 20 30 7d 20 74  result]] == 0} t
06e0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 72 65 74  hen {..      ret
06f0: 75 72 6e 20 22 22 0d 0a 20 20 20 20 7d 0d 0a 20  urn ""..    }.. 
0700: 20 7d 0d 0a 0d 0a 20 20 66 6f 72 65 61 63 68 20   }....  foreach 
0710: 65 73 63 61 70 65 20 5b 6c 69 73 74 20 5c 0d 0a  escape [list \..
0720: 20 20 20 20 20 20 7b 3c 62 3e 7d 20 7b 3c 2f 62        {<b>} {</b
0730: 3e 7d 20 7b 3c 62 72 3e 7d 20 7b 3c 2f 62 72 3e  >} {<br>} {</br>
0740: 7d 20 7b 3c 64 64 3e 7d 20 7b 3c 2f 64 64 3e 7d  } {<dd>} {</dd>}
0750: 20 7b 3c 64 6c 3e 7d 20 7b 3c 2f 64 6c 3e 7d 20   {<dl>} {</dl>} 
0760: 5c 0d 0a 20 20 20 20 20 20 7b 3c 64 74 3e 7d 20  \..      {<dt>} 
0770: 7b 3c 2f 64 74 3e 7d 20 7b 3c 6c 69 3e 7d 20 7b  {</dt>} {<li>} {
0780: 3c 2f 6c 69 3e 7d 20 7b 3c 6f 6c 3e 7d 20 7b 3c  </li>} {<ol>} {<
0790: 2f 6f 6c 3e 7d 20 7b 3c 74 74 3e 7d 20 7b 3c 2f  /ol>} {<tt>} {</
07a0: 74 74 3e 7d 20 5c 0d 0a 20 20 20 20 20 20 7b 3c  tt>} \..      {<
07b0: 75 6c 3e 7d 20 7b 3c 2f 75 6c 3e 7d 5d 20 7b 0d  ul>} {</ul>}] {.
07c0: 0a 20 20 20 20 72 65 67 73 75 62 20 2d 61 6c 6c  .    regsub -all
07d0: 20 2d 2d 20 28 24 65 73 63 61 70 65 29 20 24 72   -- ($escape) $r
07e0: 65 73 75 6c 74 20 7b 3c 21 5b 43 44 41 54 41 5b  esult {<![CDATA[
07f0: 5c 31 5d 5d 3e 7d 20 72 65 73 75 6c 74 0d 0a 20  \1]]>} result.. 
0800: 20 7d 0d 0a 0d 0a 20 20 72 65 67 73 75 62 20 2d   }....  regsub -
0810: 61 6c 6c 20 2d 2d 20 7b 26 6e 65 3b 7d 20 24 72  all -- {&ne;} $r
0820: 65 73 75 6c 74 20 7b 5c 26 23 38 38 30 30 3b 7d  esult {\&#8800;}
0830: 20 72 65 73 75 6c 74 0d 0a 20 20 72 65 67 73 75   result..  regsu
0840: 62 20 2d 61 6c 6c 20 2d 2d 20 7b 26 23 39 31 28  b -all -- {&#91(
0850: 3f 3a 3b 29 3f 7d 20 24 72 65 73 75 6c 74 20 7b  ?:;)?} $result {
0860: 5b 7d 20 72 65 73 75 6c 74 0d 0a 20 20 72 65 67  [} result..  reg
0870: 73 75 62 20 2d 61 6c 6c 20 2d 2d 20 7b 26 23 39  sub -all -- {&#9
0880: 33 28 3f 3a 3b 29 3f 7d 20 24 72 65 73 75 6c 74  3(?:;)?} $result
0890: 20 7b 5d 7d 20 72 65 73 75 6c 74 0d 0a 0d 0a 20   {]} result.... 
08a0: 20 69 66 20 7b 24 6c 74 41 6e 64 47 74 7d 20 74   if {$ltAndGt} t
08b0: 68 65 6e 20 7b 0d 0a 20 20 20 20 72 65 67 73 75  hen {..    regsu
08c0: 62 20 2d 61 6c 6c 20 2d 2d 20 7b 3c 28 20 7c 5c  b -all -- {<( |\
08d0: 22 7c 5c 64 7c 3d 29 7d 20 24 72 65 73 75 6c 74  "|\d|=)} $result
08e0: 20 7b 5c 26 6c 74 3b 5c 31 7d 20 72 65 73 75 6c   {\&lt;\1} resul
08f0: 74 0d 0a 20 20 20 20 72 65 67 73 75 62 20 2d 61  t..    regsub -a
0900: 6c 6c 20 2d 2d 20 7b 28 20 7c 5c 22 7c 5c 64 7c  ll -- {( |\"|\d|
0910: 3d 29 3e 7d 20 24 72 65 73 75 6c 74 20 7b 5c 31  =)>} $result {\1
0920: 5c 26 67 74 3b 7d 20 72 65 73 75 6c 74 0d 0a 20  \&gt;} result.. 
0930: 20 7d 0d 0a 0d 0a 20 20 72 65 67 73 75 62 20 2d   }....  regsub -
0940: 61 6c 6c 20 2d 2d 20 7b 20 3c 20 7d 20 24 72 65  all -- { < } $re
0950: 73 75 6c 74 20 7b 20 5c 26 6c 74 3b 20 7d 20 72  sult { \&lt; } r
0960: 65 73 75 6c 74 0d 0a 20 20 72 65 67 73 75 62 20  esult..  regsub 
0970: 2d 61 6c 6c 20 2d 2d 20 7b 20 3e 20 7d 20 24 72  -all -- { > } $r
0980: 65 73 75 6c 74 20 7b 20 5c 26 67 74 3b 20 7d 20  esult { \&gt; } 
0990: 72 65 73 75 6c 74 0d 0a 0d 0a 20 20 72 65 67 73  result....  regs
09a0: 75 62 20 2d 61 6c 6c 20 2d 2d 20 7b 3c 64 69 76  ub -all -- {<div
09b0: 20 63 6c 61 73 73 3d 22 63 6f 64 65 62 6c 6f 63   class="codebloc
09c0: 6b 22 3e 3c 70 72 65 3e 7d 20 24 72 65 73 75 6c  k"><pre>} $resul
09d0: 74 20 5c 0d 0a 20 20 20 20 20 20 3c 70 61 72 61  t \..      <para
09e0: 3e 3c 63 6f 64 65 3e 5c 6e 24 7b 70 72 65 66 69  ><code>\n${prefi
09f0: 78 7d 20 72 65 73 75 6c 74 0d 0a 0d 0a 20 20 72  x} result....  r
0a00: 65 67 73 75 62 20 2d 61 6c 6c 20 2d 2d 20 7b 3c  egsub -all -- {<
0a10: 2f 70 72 65 3e 3c 2f 64 69 76 3e 7d 20 24 72 65  /pre></div>} $re
0a20: 73 75 6c 74 20 3c 2f 63 6f 64 65 3e 3c 2f 70 61  sult </code></pa
0a30: 72 61 3e 20 72 65 73 75 6c 74 0d 0a 20 20 72 65  ra> result..  re
0a40: 67 73 75 62 20 2d 61 6c 6c 20 2d 2d 20 7b 3c 62  gsub -all -- {<b
0a50: 6c 6f 63 6b 71 75 6f 74 65 3e 3c 70 72 65 3e 7d  lockquote><pre>}
0a60: 20 24 72 65 73 75 6c 74 20 3c 70 61 72 61 3e 3c   $result <para><
0a70: 63 6f 64 65 3e 20 72 65 73 75 6c 74 0d 0a 20 20  code> result..  
0a80: 72 65 67 73 75 62 20 2d 61 6c 6c 20 2d 2d 20 7b  regsub -all -- {
0a90: 3c 2f 70 72 65 3e 3c 2f 62 6c 6f 63 6b 71 75 6f  </pre></blockquo
0aa0: 74 65 3e 7d 20 24 72 65 73 75 6c 74 20 3c 2f 63  te>} $result </c
0ab0: 6f 64 65 3e 3c 2f 70 61 72 61 3e 20 72 65 73 75  ode></para> resu
0ac0: 6c 74 0d 0a 20 20 72 65 67 73 75 62 20 2d 61 6c  lt..  regsub -al
0ad0: 6c 20 2d 2d 20 7b 3c 62 6c 6f 63 6b 71 75 6f 74  l -- {<blockquot
0ae0: 65 3e 7d 20 24 72 65 73 75 6c 74 20 3c 70 61 72  e>} $result <par
0af0: 61 3e 3c 63 6f 64 65 3e 20 72 65 73 75 6c 74 0d  a><code> result.
0b00: 0a 20 20 72 65 67 73 75 62 20 2d 61 6c 6c 20 2d  .  regsub -all -
0b10: 2d 20 7b 3c 2f 62 6c 6f 63 6b 71 75 6f 74 65 3e  - {</blockquote>
0b20: 7d 20 24 72 65 73 75 6c 74 20 3c 2f 63 6f 64 65  } $result </code
0b30: 3e 3c 2f 70 61 72 61 3e 20 72 65 73 75 6c 74 0d  ></para> result.
0b40: 0a 0d 0a 20 20 72 65 74 75 72 6e 20 24 72 65 73  ...  return $res
0b50: 75 6c 74 0d 0a 7d 0d 0a 0c 0d 0a 70 72 6f 63 20  ult..}.....proc 
0b60: 65 78 74 72 61 63 74 4d 65 74 68 6f 64 20 7b 0d  extractMethod {.
0b70: 0a 20 20 20 20 20 20 20 20 6e 61 6d 65 20 6c 69  .        name li
0b80: 6e 65 73 20 70 61 74 74 65 72 6e 20 70 72 65 66  nes pattern pref
0b90: 69 78 20 69 6e 64 65 78 56 61 72 4e 61 6d 65 20  ix indexVarName 
0ba0: 6d 65 74 68 6f 64 73 56 61 72 4e 61 6d 65 20 6c  methodsVarName l
0bb0: 74 41 6e 64 47 74 20 7d 20 7b 0d 0a 20 20 75 70  tAndGt } {..  up
0bc0: 76 61 72 20 31 20 24 69 6e 64 65 78 56 61 72 4e  var 1 $indexVarN
0bd0: 61 6d 65 20 69 6e 64 65 78 0d 0a 20 20 75 70 76  ame index..  upv
0be0: 61 72 20 31 20 24 6d 65 74 68 6f 64 73 56 61 72  ar 1 $methodsVar
0bf0: 4e 61 6d 65 20 6d 65 74 68 6f 64 73 0d 0a 0d 0a  Name methods....
0c00: 20 20 61 72 72 61 79 20 73 65 74 20 6c 65 76 65    array set leve
0c10: 6c 73 20 7b 70 20 30 7d 0d 0a 20 20 73 65 74 20  ls {p 0}..  set 
0c20: 6c 65 6e 67 74 68 20 5b 6c 6c 65 6e 67 74 68 20  length [llength 
0c30: 24 6c 69 6e 65 73 5d 0d 0a 0d 0a 20 20 77 68 69  $lines]....  whi
0c40: 6c 65 20 7b 24 69 6e 64 65 78 20 3c 20 24 6c 65  le {$index < $le
0c50: 6e 67 74 68 7d 20 7b 0d 0a 20 20 20 20 73 65 74  ngth} {..    set
0c60: 20 6c 69 6e 65 20 5b 70 72 65 50 72 6f 63 65 73   line [preProces
0c70: 73 4c 69 6e 65 20 5b 6c 69 6e 64 65 78 20 24 6c  sLine [lindex $l
0c80: 69 6e 65 73 20 24 69 6e 64 65 78 5d 5d 0d 0a 0d  ines $index]]...
0c90: 0a 20 20 20 20 69 66 20 7b 5b 72 65 67 65 78 70  .    if {[regexp
0ca0: 20 2d 2d 20 24 70 61 74 74 65 72 6e 20 24 6c 69   -- $pattern $li
0cb0: 6e 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  ne]} then {..   
0cc0: 20 20 20 62 72 65 61 6b 3b 20 23 20 73 74 6f 70     break; # stop
0cd0: 20 6f 6e 20 74 68 69 73 20 6c 69 6e 65 20 66 6f   on this line fo
0ce0: 72 20 6f 75 74 65 72 20 6c 6f 6f 70 2e 0d 0a 20  r outer loop... 
0cf0: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20     } else {..   
0d00: 20 20 20 73 65 74 20 74 72 69 6d 4c 69 6e 65 20     set trimLine 
0d10: 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 6c 69  [string trim $li
0d20: 6e 65 5d 3b 20 73 65 74 20 64 61 74 61 20 22 22  ne]; set data ""
0d30: 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 24 6c  ....      if {$l
0d40: 65 76 65 6c 73 28 70 29 20 3e 20 30 20 26 26 20  evels(p) > 0 && 
0d50: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
0d60: 74 72 69 6d 4c 69 6e 65 5d 20 3d 3d 20 30 7d 20  trimLine] == 0} 
0d70: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
0d80: 23 20 62 6c 61 6e 6b 20 6c 69 6e 65 2c 20 63 6c  # blank line, cl
0d90: 6f 73 65 20 70 61 72 61 67 72 61 70 68 2e 0d 0a  ose paragraph...
0da0: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66          if {[inf
0db0: 6f 20 65 78 69 73 74 73 20 6d 65 74 68 6f 64 73  o exists methods
0dc0: 28 24 6e 61 6d 65 29 5d 7d 20 74 68 65 6e 20 7b  ($name)]} then {
0dd0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 6e 6f  ..          # no
0de0: 6e 2d 66 69 72 73 74 20 6c 69 6e 65 2c 20 6c 65  n-first line, le
0df0: 61 64 69 6e 67 20 6c 69 6e 65 20 73 65 70 61 72  ading line separ
0e00: 61 74 6f 72 2e 0d 0a 20 20 20 20 20 20 20 20 20  ator...         
0e10: 20 61 70 70 65 6e 64 20 64 61 74 61 20 5c 6e 20   append data \n 
0e20: 24 70 72 65 66 69 78 20 3c 2f 70 61 72 61 3e 0d  $prefix </para>.
0e30: 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20  .        } else 
0e40: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 66  {..          # f
0e50: 69 72 73 74 20 6c 69 6e 65 2c 20 6e 6f 20 6c 65  irst line, no le
0e60: 61 64 69 6e 67 20 6c 69 6e 65 20 73 65 70 61 72  ading line separ
0e70: 61 74 6f 72 2e 0d 0a 20 20 20 20 20 20 20 20 20  ator...         
0e80: 20 61 70 70 65 6e 64 20 64 61 74 61 20 24 70 72   append data $pr
0e90: 65 66 69 78 20 3c 2f 70 61 72 61 3e 0d 0a 20 20  efix </para>..  
0ea0: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20        }....     
0eb0: 20 20 20 69 6e 63 72 20 6c 65 76 65 6c 73 28 70     incr levels(p
0ec0: 29 20 2d 31 0d 0a 20 20 20 20 20 20 7d 20 65 6c  ) -1..      } el
0ed0: 73 65 69 66 20 7b 5b 73 74 72 69 6e 67 20 72 61  seif {[string ra
0ee0: 6e 67 65 20 24 74 72 69 6d 4c 69 6e 65 20 30 20  nge $trimLine 0 
0ef0: 32 5d 20 65 71 20 22 3c 70 3e 22 20 7c 7c 20 5c  2] eq "<p>" || \
0f00: 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 73 74 72  ..          [str
0f10: 69 6e 67 20 72 61 6e 67 65 20 24 74 72 69 6d 4c  ing range $trimL
0f20: 69 6e 65 20 30 20 36 5d 20 65 71 20 22 3c 2f 70  ine 0 6] eq "</p
0f30: 3e 3c 70 3e 22 7d 20 74 68 65 6e 20 7b 0d 0a 20  ><p>"} then {.. 
0f40: 20 20 20 20 20 20 20 23 20 6f 70 65 6e 20 74 61         # open ta
0f50: 67 20 2e 2e 2e 20 6d 61 79 62 65 20 6f 6e 65 20  g ... maybe one 
0f60: 6c 69 6e 65 3f 0d 0a 20 20 20 20 20 20 20 20 69  line?..        i
0f70: 66 20 7b 5b 73 74 72 69 6e 67 20 72 61 6e 67 65  f {[string range
0f80: 20 24 74 72 69 6d 4c 69 6e 65 20 65 6e 64 2d 33   $trimLine end-3
0f90: 20 65 6e 64 5d 20 65 71 20 22 3c 2f 70 3e 22 7d   end] eq "</p>"}
0fa0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
0fb0: 20 20 20 73 65 74 20 6e 65 77 4c 69 6e 65 20 5b     set newLine [
0fc0: 70 72 6f 63 65 73 73 4c 69 6e 65 20 24 6c 69 6e  processLine $lin
0fd0: 65 20 24 70 72 65 66 69 78 20 24 6c 74 41 6e 64  e $prefix $ltAnd
0fe0: 47 74 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  Gt]....         
0ff0: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e   if {[string len
1000: 67 74 68 20 24 6e 65 77 4c 69 6e 65 5d 20 3e 20  gth $newLine] > 
1010: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
1020: 20 20 20 20 20 20 20 23 20 6f 6e 65 20 6c 69 6e         # one lin
1030: 65 20 74 61 67 2c 20 77 72 61 70 2e 0d 0a 20 20  e tag, wrap...  
1040: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69            if {[i
1050: 6e 66 6f 20 65 78 69 73 74 73 20 6d 65 74 68 6f  nfo exists metho
1060: 64 73 28 24 6e 61 6d 65 29 5d 7d 20 74 68 65 6e  ds($name)]} then
1070: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
1080: 20 20 23 20 6e 6f 6e 2d 66 69 72 73 74 20 6c 69    # non-first li
1090: 6e 65 2c 20 6c 65 61 64 69 6e 67 20 6c 69 6e 65  ne, leading line
10a0: 20 73 65 70 61 72 61 74 6f 72 2e 0d 0a 20 20 20   separator...   
10b0: 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e             appen
10c0: 64 20 64 61 74 61 20 5c 6e 20 24 70 72 65 66 69  d data \n $prefi
10d0: 78 20 3c 70 61 72 61 3e 0d 0a 20 20 20 20 20 20  x <para>..      
10e0: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a        } else {..
10f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 20                # 
1100: 66 69 72 73 74 20 6c 69 6e 65 2c 20 6e 6f 20 6c  first line, no l
1110: 65 61 64 69 6e 67 20 6c 69 6e 65 20 73 65 70 61  eading line sepa
1120: 72 61 74 6f 72 2e 0d 0a 20 20 20 20 20 20 20 20  rator...        
1130: 20 20 20 20 20 20 61 70 70 65 6e 64 20 64 61 74        append dat
1140: 61 20 24 70 72 65 66 69 78 20 3c 70 61 72 61 3e  a $prefix <para>
1150: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d  ..            }.
1160: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 61  ...            a
1170: 70 70 65 6e 64 20 64 61 74 61 20 5c 6e 20 24 70  ppend data \n $p
1180: 72 65 66 69 78 20 24 6e 65 77 4c 69 6e 65 0d 0a  refix $newLine..
1190: 20 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65              appe
11a0: 6e 64 20 64 61 74 61 20 5c 6e 20 24 70 72 65 66  nd data \n $pref
11b0: 69 78 20 3c 2f 70 61 72 61 3e 0d 0a 20 20 20 20  ix </para>..    
11c0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
11d0: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20   } else {..     
11e0: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65       if {[info e
11f0: 78 69 73 74 73 20 6d 65 74 68 6f 64 73 28 24 6e  xists methods($n
1200: 61 6d 65 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  ame)]} then {.. 
1210: 20 20 20 20 20 20 20 20 20 20 20 23 20 6e 6f 6e             # non
1220: 2d 66 69 72 73 74 20 6c 69 6e 65 2c 20 6c 65 61  -first line, lea
1230: 64 69 6e 67 20 6c 69 6e 65 20 73 65 70 61 72 61  ding line separa
1240: 74 6f 72 2e 0d 0a 20 20 20 20 20 20 20 20 20 20  tor...          
1250: 20 20 61 70 70 65 6e 64 20 64 61 74 61 20 5c 6e    append data \n
1260: 20 24 70 72 65 66 69 78 20 3c 70 61 72 61 3e 0d   $prefix <para>.
1270: 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73  .          } els
1280: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  e {..           
1290: 20 23 20 66 69 72 73 74 20 6c 69 6e 65 2c 20 6e   # first line, n
12a0: 6f 20 6c 65 61 64 69 6e 67 20 6c 69 6e 65 20 73  o leading line s
12b0: 65 70 61 72 61 74 6f 72 2e 0d 0a 20 20 20 20 20  eparator...     
12c0: 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 64 61         append da
12d0: 74 61 20 24 70 72 65 66 69 78 20 3c 70 61 72 61  ta $prefix <para
12e0: 3e 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a  >..          }..
12f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20  ..          set 
1300: 6e 65 77 4c 69 6e 65 20 5b 70 72 6f 63 65 73 73  newLine [process
1310: 4c 69 6e 65 20 24 6c 69 6e 65 20 24 70 72 65 66  Line $line $pref
1320: 69 78 20 24 6c 74 41 6e 64 47 74 5d 0d 0a 0d 0a  ix $ltAndGt]....
1330: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 73            if {[s
1340: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 6e 65  tring length $ne
1350: 77 4c 69 6e 65 5d 20 3e 20 30 7d 20 74 68 65 6e  wLine] > 0} then
1360: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
1370: 61 70 70 65 6e 64 20 64 61 74 61 20 5c 6e 20 24  append data \n $
1380: 70 72 65 66 69 78 20 24 6e 65 77 4c 69 6e 65 0d  prefix $newLine.
1390: 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a  .          }....
13a0: 20 20 20 20 20 20 20 20 20 20 69 6e 63 72 20 6c            incr l
13b0: 65 76 65 6c 73 28 70 29 0d 0a 20 20 20 20 20 20  evels(p)..      
13c0: 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73    }..      } els
13d0: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 65 74  e {..        set
13e0: 20 6e 65 77 4c 69 6e 65 20 5b 70 72 6f 63 65 73   newLine [proces
13f0: 73 4c 69 6e 65 20 24 6c 69 6e 65 20 24 70 72 65  sLine $line $pre
1400: 66 69 78 20 24 6c 74 41 6e 64 47 74 5d 0d 0a 0d  fix $ltAndGt]...
1410: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 73 74  .        if {[st
1420: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 6e 65 77  ring length $new
1430: 4c 69 6e 65 5d 20 3e 20 30 7d 20 74 68 65 6e 20  Line] > 0} then 
1440: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20  {..          if 
1450: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6d 65  {[info exists me
1460: 74 68 6f 64 73 28 24 6e 61 6d 65 29 5d 7d 20 74  thods($name)]} t
1470: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
1480: 20 20 20 23 20 6e 6f 6e 2d 66 69 72 73 74 20 6c     # non-first l
1490: 69 6e 65 2c 20 6c 65 61 64 69 6e 67 20 6c 69 6e  ine, leading lin
14a0: 65 20 73 65 70 61 72 61 74 6f 72 2e 0d 0a 20 20  e separator...  
14b0: 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64            append
14c0: 20 64 61 74 61 20 5c 6e 20 24 70 72 65 66 69 78   data \n $prefix
14d0: 20 24 6e 65 77 4c 69 6e 65 0d 0a 20 20 20 20 20   $newLine..     
14e0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20       } else {.. 
14f0: 20 20 20 20 20 20 20 20 20 20 20 23 20 66 69 72             # fir
1500: 73 74 20 6c 69 6e 65 2c 20 6e 6f 20 6c 65 61 64  st line, no lead
1510: 69 6e 67 20 6c 69 6e 65 20 73 65 70 61 72 61 74  ing line separat
1520: 6f 72 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20  or...           
1530: 20 61 70 70 65 6e 64 20 64 61 74 61 20 24 70 72   append data $pr
1540: 65 66 69 78 20 24 6e 65 77 4c 69 6e 65 0d 0a 20  efix $newLine.. 
1550: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
1560: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a      }..      }..
1570: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72  ..      if {[str
1580: 69 6e 67 20 6c 65 6e 67 74 68 20 24 64 61 74 61  ing length $data
1590: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20  ] > 0} then {.. 
15a0: 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 6d 65         append me
15b0: 74 68 6f 64 73 28 24 6e 61 6d 65 29 20 24 64 61  thods($name) $da
15c0: 74 61 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20  ta..      }.... 
15d0: 20 20 20 20 20 69 6e 63 72 20 69 6e 64 65 78 3b       incr index;
15e0: 20 23 20 63 6f 6e 73 75 6d 65 20 74 68 69 73 20   # consume this 
15f0: 6c 69 6e 65 20 66 6f 72 20 6f 75 74 65 72 20 6c  line for outer l
1600: 6f 6f 70 2e 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d  oop...    }..  }
1610: 0d 0a 7d 0d 0a 0c 0d 0a 23 0d 0a 23 20 4e 4f 54  ..}.....#..# NOT
1620: 45 3a 20 54 68 69 73 20 69 73 20 74 68 65 20 65  E: This is the e
1630: 6e 74 72 79 20 70 6f 69 6e 74 20 66 6f 72 20 74  ntry point for t
1640: 68 69 73 20 73 63 72 69 70 74 2e 0d 0a 23 0d 0a  his script...#..
1650: 73 65 74 20 70 61 74 68 20 5b 66 69 6c 65 20 6e  set path [file n
1660: 6f 72 6d 61 6c 69 7a 65 20 5b 66 69 6c 65 20 64  ormalize [file d
1670: 69 72 6e 61 6d 65 20 5b 69 6e 66 6f 20 73 63 72  irname [info scr
1680: 69 70 74 5d 5d 5d 0d 0a 0d 0a 73 65 74 20 63 6f  ipt]]]....set co
1690: 72 65 44 6f 63 50 61 74 68 20 5b 66 69 6c 65 20  reDocPath [file 
16a0: 6a 6f 69 6e 20 24 70 61 74 68 20 53 70 65 63 69  join $path Speci
16b0: 61 6c 20 43 6f 72 65 5d 0d 0a 73 65 74 20 69 6e  al Core]..set in
16c0: 74 65 72 66 61 63 65 50 61 74 68 20 5b 66 69 6c  terfacePath [fil
16d0: 65 20 6a 6f 69 6e 20 5b 66 69 6c 65 20 64 69 72  e join [file dir
16e0: 6e 61 6d 65 20 24 70 61 74 68 5d 20 53 79 73 74  name $path] Syst
16f0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 5d 0d  em.Data.SQLite].
1700: 0a 73 65 74 20 69 6e 70 75 74 46 69 6c 65 4e 61  .set inputFileNa
1710: 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 63  me [file join $c
1720: 6f 72 65 44 6f 63 50 61 74 68 20 76 74 61 62 2e  oreDocPath vtab.
1730: 68 74 6d 6c 5d 0d 0a 0d 0a 69 66 20 7b 21 5b 66  html]....if {![f
1740: 69 6c 65 20 65 78 69 73 74 73 20 24 69 6e 70 75  ile exists $inpu
1750: 74 46 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e  tFileName]} then
1760: 20 7b 0d 0a 20 20 70 75 74 73 20 22 69 6e 70 75   {..  puts "inpu
1770: 74 20 66 69 6c 65 20 5c 22 24 69 6e 70 75 74 46  t file \"$inputF
1780: 69 6c 65 4e 61 6d 65 5c 22 20 64 6f 65 73 20 6e  ileName\" does n
1790: 6f 74 20 65 78 69 73 74 22 0d 0a 20 20 65 78 69  ot exist"..  exi
17a0: 74 20 31 0d 0a 7d 0d 0a 0d 0a 73 65 74 20 6f 75  t 1..}....set ou
17b0: 74 70 75 74 46 69 6c 65 4e 61 6d 65 20 5b 66 69  tputFileName [fi
17c0: 6c 65 20 6a 6f 69 6e 20 24 69 6e 74 65 72 66 61  le join $interfa
17d0: 63 65 50 61 74 68 20 49 53 51 4c 69 74 65 4e 61  cePath ISQLiteNa
17e0: 74 69 76 65 4d 6f 64 75 6c 65 2e 63 73 5d 0d 0a  tiveModule.cs]..
17f0: 0d 0a 69 66 20 7b 21 5b 66 69 6c 65 20 65 78 69  ..if {![file exi
1800: 73 74 73 20 24 6f 75 74 70 75 74 46 69 6c 65 4e  sts $outputFileN
1810: 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  ame]} then {..  
1820: 70 75 74 73 20 22 6f 75 74 70 75 74 20 66 69 6c  puts "output fil
1830: 65 20 5c 22 24 6f 75 74 70 75 74 46 69 6c 65 4e  e \"$outputFileN
1840: 61 6d 65 5c 22 20 64 6f 65 73 20 6e 6f 74 20 65  ame\" does not e
1850: 78 69 73 74 22 0d 0a 20 20 65 78 69 74 20 31 0d  xist"..  exit 1.
1860: 0a 7d 0d 0a 0d 0a 73 65 74 20 69 6e 70 75 74 44  .}....set inputD
1870: 61 74 61 20 5b 72 65 61 64 46 69 6c 65 20 24 69  ata [readFile $i
1880: 6e 70 75 74 46 69 6c 65 4e 61 6d 65 5d 0d 0a 0d  nputFileName]...
1890: 0a 73 65 74 20 69 6e 70 75 74 44 61 74 61 20 5b  .set inputData [
18a0: 73 74 72 69 6e 67 20 6d 61 70 20 5b 6c 69 73 74  string map [list
18b0: 20 5c 0d 0a 20 20 20 20 7b 3c 66 6f 6e 74 20 73   \..    {<font s
18c0: 69 7a 65 3d 22 36 22 20 63 6f 6c 6f 72 3d 22 72  ize="6" color="r
18d0: 65 64 22 3e 2a 2a 2a 20 44 52 41 46 54 20 2a 2a  ed">*** DRAFT **
18e0: 2a 3c 2f 66 6f 6e 74 3e 7d 20 22 22 5d 20 24 69  *</font>} ""] $i
18f0: 6e 70 75 74 44 61 74 61 5d 0d 0a 0d 0a 73 65 74  nputData]....set
1900: 20 69 6e 70 75 74 44 61 74 61 20 5b 73 74 72 69   inputData [stri
1910: 6e 67 20 6d 61 70 20 5b 6c 69 73 74 20 7b 3c 70  ng map [list {<p
1920: 20 61 6c 69 67 6e 3d 22 63 65 6e 74 65 72 22 3e   align="center">
1930: 3c 2f 70 3e 7d 20 22 22 5d 20 24 69 6e 70 75 74  </p>} ""] $input
1940: 44 61 74 61 5d 0d 0a 0d 0a 69 66 20 7b 5b 73 74  Data]....if {[st
1950: 72 69 6e 67 20 66 69 72 73 74 20 26 6c 74 5c 3b  ring first &lt\;
1960: 20 24 69 6e 70 75 74 44 61 74 61 5d 20 21 3d 20   $inputData] != 
1970: 2d 31 20 7c 7c 20 5c 0d 0a 20 20 20 20 5b 73 74  -1 || \..    [st
1980: 72 69 6e 67 20 66 69 72 73 74 20 26 67 74 5c 3b  ring first &gt\;
1990: 20 24 69 6e 70 75 74 44 61 74 61 5d 20 21 3d 20   $inputData] != 
19a0: 2d 31 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 73 65  -1} then {..  se
19b0: 74 20 6c 74 41 6e 64 47 74 20 66 61 6c 73 65 0d  t ltAndGt false.
19c0: 0a 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 73 65 74  .} else {..  set
19d0: 20 6c 74 41 6e 64 47 74 20 74 72 75 65 0d 0a 7d   ltAndGt true..}
19e0: 0d 0a 0d 0a 73 65 74 20 6c 69 6e 65 73 20 5b 73  ....set lines [s
19f0: 70 6c 69 74 20 5b 73 74 72 69 6e 67 20 6d 61 70  plit [string map
1a00: 20 5b 6c 69 73 74 20 5c 72 5c 6e 20 5c 6e 5d 20   [list \r\n \n] 
1a10: 24 69 6e 70 75 74 44 61 74 61 5d 20 5c 6e 5d 0d  $inputData] \n].
1a20: 0a 0d 0a 73 65 74 20 70 61 74 74 65 72 6e 73 28  ...set patterns(
1a30: 73 74 61 72 74 29 20 5b 73 74 72 69 6e 67 20 74  start) [string t
1a40: 72 69 6d 20 7b 0d 0a 20 20 5e 28 3f 3a 3c 2f 70  rim {..  ^(?:</p
1a50: 3e 5c 6e 29 3f 3c 68 31 3e 28 3f 3a 3c 73 70 61  >\n)?<h1>(?:<spa
1a60: 6e 3e 29 3f 32 5c 2e 20 28 3f 3a 3c 2f 73 70 61  n>)?2\. (?:</spa
1a70: 6e 3e 29 3f 56 69 72 74 75 61 6c 20 54 61 62 6c  n>)?Virtual Tabl
1a80: 65 20 4d 65 74 68 6f 64 73 3c 2f 68 31 3e 24 0d  e Methods</h1>$.
1a90: 0a 7d 5d 0d 0a 0d 0a 73 65 74 20 70 61 74 74 65  .}]....set patte
1aa0: 72 6e 73 28 6d 65 74 68 6f 64 29 20 5b 73 74 72  rns(method) [str
1ab0: 69 6e 67 20 74 72 69 6d 20 7b 0d 0a 20 20 5e 28  ing trim {..  ^(
1ac0: 3f 3a 3c 2f 70 3e 5c 6e 29 3f 3c 68 32 3e 28 3f  ?:</p>\n)?<h2>(?
1ad0: 3a 3c 73 70 61 6e 3e 29 3f 32 5c 2e 5c 64 2b 5c  :<span>)?2\.\d+\
1ae0: 2e 20 28 3f 3a 3c 2f 73 70 61 6e 3e 29 3f 54 68  . (?:</span>)?Th
1af0: 65 20 28 2e 2a 29 20 4d 65 74 68 6f 64 28 3f 3a  e (.*) Method(?:
1b00: 73 29 3f 3c 2f 68 32 3e 24 0d 0a 7d 5d 0d 0a 0d  s)?</h2>$..}]...
1b10: 0a 73 65 74 20 70 72 65 66 69 78 20 22 20 20 20  .set prefix "   
1b20: 20 20 20 20 20 2f 2f 2f 20 22 0d 0a 75 6e 73 65       /// "..unse
1b30: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 6d 65  t -nocomplain me
1b40: 74 68 6f 64 73 3b 20 73 65 74 20 73 74 61 72 74  thods; set start
1b50: 20 66 61 6c 73 65 0d 0a 0d 0a 66 6f 72 20 7b 73   false....for {s
1b60: 65 74 20 69 6e 64 65 78 20 30 7d 20 7b 24 69 6e  et index 0} {$in
1b70: 64 65 78 20 3c 20 5b 6c 6c 65 6e 67 74 68 20 24  dex < [llength $
1b80: 6c 69 6e 65 73 5d 7d 20 7b 7d 20 7b 0d 0a 20 20  lines]} {} {..  
1b90: 73 65 74 20 6c 69 6e 65 20 5b 70 72 65 50 72 6f  set line [prePro
1ba0: 63 65 73 73 4c 69 6e 65 20 5b 6c 69 6e 64 65 78  cessLine [lindex
1bb0: 20 24 6c 69 6e 65 73 20 24 69 6e 64 65 78 5d 5d   $lines $index]]
1bc0: 0d 0a 0d 0a 20 20 69 66 20 7b 24 73 74 61 72 74  ....  if {$start
1bd0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 69 66  } then {..    if
1be0: 20 7b 5b 72 65 67 65 78 70 20 2d 2d 20 24 70 61   {[regexp -- $pa
1bf0: 74 74 65 72 6e 73 28 6d 65 74 68 6f 64 29 20 24  tterns(method) $
1c00: 6c 69 6e 65 20 64 75 6d 6d 79 20 63 61 70 74 75  line dummy captu
1c10: 72 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  re]} then {..   
1c20: 20 20 20 66 6f 72 65 61 63 68 20 6d 65 74 68 6f     foreach metho
1c30: 64 20 5b 65 6e 67 6c 69 73 68 54 6f 4c 69 73 74  d [englishToList
1c40: 20 24 63 61 70 74 75 72 65 5d 20 7b 0d 0a 20 20   $capture] {..  
1c50: 20 20 20 20 20 20 73 65 74 20 6d 65 74 68 6f 64        set method
1c60: 49 6e 64 65 78 20 5b 65 78 70 72 20 7b 24 69 6e  Index [expr {$in
1c70: 64 65 78 20 2b 20 31 7d 5d 0d 0a 0d 0a 20 20 20  dex + 1}]....   
1c80: 20 20 20 20 20 65 78 74 72 61 63 74 4d 65 74 68       extractMeth
1c90: 6f 64 20 24 6d 65 74 68 6f 64 20 24 6c 69 6e 65  od $method $line
1ca0: 73 20 24 70 61 74 74 65 72 6e 73 28 6d 65 74 68  s $patterns(meth
1cb0: 6f 64 29 20 24 70 72 65 66 69 78 20 5c 0d 0a 20  od) $prefix \.. 
1cc0: 20 20 20 20 20 20 20 20 20 20 20 6d 65 74 68 6f             metho
1cd0: 64 49 6e 64 65 78 20 6d 65 74 68 6f 64 73 20 24  dIndex methods $
1ce0: 6c 74 41 6e 64 47 74 0d 0a 20 20 20 20 20 20 7d  ltAndGt..      }
1cf0: 0d 0a 0d 0a 20 20 20 20 20 20 73 65 74 20 69 6e  ....      set in
1d00: 64 65 78 20 24 6d 65 74 68 6f 64 49 6e 64 65 78  dex $methodIndex
1d10: 0d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a  ..    } else {..
1d20: 20 20 20 20 20 20 69 6e 63 72 20 69 6e 64 65 78        incr index
1d30: 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 20 65 6c 73  ..    }..  } els
1d40: 65 69 66 20 7b 5b 72 65 67 65 78 70 20 2d 2d 20  eif {[regexp -- 
1d50: 24 70 61 74 74 65 72 6e 73 28 73 74 61 72 74 29  $patterns(start)
1d60: 20 24 6c 69 6e 65 5d 7d 20 74 68 65 6e 20 7b 0d   $line]} then {.
1d70: 0a 20 20 20 20 73 65 74 20 73 74 61 72 74 20 74  .    set start t
1d80: 72 75 65 3b 20 69 6e 63 72 20 69 6e 64 65 78 0d  rue; incr index.
1d90: 0a 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20  .  } else {..   
1da0: 20 69 6e 63 72 20 69 6e 64 65 78 0d 0a 20 20 7d   incr index..  }
1db0: 0d 0a 7d 0d 0a 0d 0a 73 65 74 20 6f 75 74 70 75  ..}....set outpu
1dc0: 74 44 61 74 61 20 5b 73 74 72 69 6e 67 20 6d 61  tData [string ma
1dd0: 70 20 5b 6c 69 73 74 20 5c 72 5c 6e 20 5c 6e 5d  p [list \r\n \n]
1de0: 20 5b 72 65 61 64 46 69 6c 65 20 24 6f 75 74 70   [readFile $outp
1df0: 75 74 46 69 6c 65 4e 61 6d 65 5d 5d 0d 0a 73 65  utFileName]]..se
1e00: 74 20 63 6f 75 6e 74 20 30 3b 20 73 65 74 20 73  t count 0; set s
1e10: 74 61 72 74 20 30 0d 0a 0d 0a 23 0d 0a 23 20 4e  tart 0....#..# N
1e20: 4f 54 45 3a 20 54 68 65 73 65 20 6d 65 74 68 6f  OTE: These metho
1e30: 64 20 6e 61 6d 65 73 20 6d 75 73 74 20 62 65 20  d names must be 
1e40: 70 72 6f 63 65 73 73 65 64 20 69 6e 20 74 68 65  processed in the
1e50: 20 45 58 41 43 54 20 6f 72 64 65 72 20 74 68 61   EXACT order tha
1e60: 74 20 74 68 65 79 0d 0a 23 20 20 20 20 20 20 20  t they..#       
1e70: 61 70 70 65 61 72 20 69 6e 20 74 68 65 20 6f 75  appear in the ou
1e80: 74 70 75 74 20 66 69 6c 65 2e 0d 0a 23 0d 0a 66  tput file...#..f
1e90: 6f 72 65 61 63 68 20 6e 61 6d 65 20 5b 6c 69 73  oreach name [lis
1ea0: 74 20 5c 0d 0a 20 20 20 20 78 43 72 65 61 74 65  t \..    xCreate
1eb0: 20 78 43 6f 6e 6e 65 63 74 20 78 42 65 73 74 49   xConnect xBestI
1ec0: 6e 64 65 78 20 78 44 69 73 63 6f 6e 6e 65 63 74  ndex xDisconnect
1ed0: 20 78 44 65 73 74 72 6f 79 20 78 4f 70 65 6e 20   xDestroy xOpen 
1ee0: 78 43 6c 6f 73 65 20 5c 0d 0a 20 20 20 20 78 46  xClose \..    xF
1ef0: 69 6c 74 65 72 20 78 4e 65 78 74 20 78 45 6f 66  ilter xNext xEof
1f00: 20 78 43 6f 6c 75 6d 6e 20 78 52 6f 77 69 64 20   xColumn xRowid 
1f10: 78 55 70 64 61 74 65 20 78 42 65 67 69 6e 20 78  xUpdate xBegin x
1f20: 53 79 6e 63 20 78 43 6f 6d 6d 69 74 20 5c 0d 0a  Sync xCommit \..
1f30: 20 20 20 20 78 52 6f 6c 6c 62 61 63 6b 20 78 46      xRollback xF
1f40: 69 6e 64 46 75 6e 63 74 69 6f 6e 20 78 52 65 6e  indFunction xRen
1f50: 61 6d 65 20 78 53 61 76 65 70 6f 69 6e 74 20 78  ame xSavepoint x
1f60: 52 65 6c 65 61 73 65 20 78 52 6f 6c 6c 62 61 63  Release xRollbac
1f70: 6b 54 6f 5d 20 7b 0d 0a 20 20 23 0d 0a 20 20 23  kTo] {..  #..  #
1f80: 20 48 41 43 4b 3a 20 54 68 69 73 20 61 73 73 75   HACK: This assu
1f90: 6d 65 73 20 74 68 61 74 20 61 20 6c 69 6e 65 20  mes that a line 
1fa0: 6f 66 20 37 31 20 66 6f 72 77 61 72 64 20 73 6c  of 71 forward sl
1fb0: 61 73 68 65 73 20 77 69 6c 6c 20 62 65 20 70 72  ashes will be pr
1fc0: 65 73 65 6e 74 0d 0a 20 20 23 20 20 20 20 20 20  esent..  #      
1fd0: 20 62 65 66 6f 72 65 20 65 61 63 68 20 6d 65 74   before each met
1fe0: 68 6f 64 2c 20 65 78 63 65 70 74 20 66 6f 72 20  hod, except for 
1ff0: 74 68 65 20 66 69 72 73 74 20 6f 6e 65 2e 0d 0a  the first one...
2000: 20 20 23 0d 0a 20 20 69 66 20 7b 24 63 6f 75 6e    #..  if {$coun
2010: 74 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20  t > 0} then {.. 
2020: 20 20 20 73 65 74 20 73 74 61 72 74 20 5b 73 74     set start [st
2030: 72 69 6e 67 20 66 69 72 73 74 20 5b 73 74 72 69  ring first [stri
2040: 6e 67 20 72 65 70 65 61 74 20 2f 20 37 31 5d 20  ng repeat / 71] 
2050: 24 6f 75 74 70 75 74 44 61 74 61 20 24 73 74 61  $outputData $sta
2060: 72 74 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65  rt]..  }....  se
2070: 74 20 70 61 74 74 65 72 6e 20 22 22 0d 0a 0d 0a  t pattern ""....
2080: 20 20 61 70 70 65 6e 64 20 70 61 74 74 65 72 6e    append pattern
2090: 20 5e 20 7b 5c 73 7b 38 7d 7d 20 22 2f 2f 2f 20   ^ {\s{8}} "/// 
20a0: 3c 73 75 6d 6d 61 72 79 3e 22 0d 0a 20 20 61 70  <summary>"..  ap
20b0: 70 65 6e 64 20 70 61 74 74 65 72 6e 20 7b 28 28  pend pattern {((
20c0: 3f 3a 2e 7c 5c 6e 29 2a 3f 29 7d 0d 0a 20 20 61  ?:.|\n)*?)}..  a
20d0: 70 70 65 6e 64 20 70 61 74 74 65 72 6e 20 7b 5c  ppend pattern {\
20e0: 6e 5c 73 7b 38 7d 7d 20 22 2f 2f 2f 20 3c 2f 73  n\s{8}} "/// </s
20f0: 75 6d 6d 61 72 79 3e 22 0d 0a 20 20 61 70 70 65  ummary>"..  appe
2100: 6e 64 20 70 61 74 74 65 72 6e 20 7b 28 3f 3a 28  nd pattern {(?:(
2110: 3f 3a 2e 7c 5c 6e 29 2a 3f 29 7d 0d 0a 20 20 61  ?:.|\n)*?)}..  a
2120: 70 70 65 6e 64 20 70 61 74 74 65 72 6e 20 7b 5c  ppend pattern {\
2130: 6e 5c 73 7b 38 7d 5b 5c 77 5d 2b 3f 5c 73 2b 3f  n\s{8}[\w]+?\s+?
2140: 7d 20 24 6e 61 6d 65 20 7b 5c 28 24 7d 0d 0a 0d  } $name {\($}...
2150: 0a 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20 2d  .  if {[regexp -
2160: 6e 6f 63 61 73 65 20 2d 73 74 61 72 74 20 5c 0d  nocase -start \.
2170: 0a 20 20 20 20 20 20 24 73 74 61 72 74 20 2d 6c  .      $start -l
2180: 69 6e 65 20 2d 69 6e 64 69 63 65 73 20 2d 2d 20  ine -indices -- 
2190: 24 70 61 74 74 65 72 6e 20 24 6f 75 74 70 75 74  $pattern $output
21a0: 44 61 74 61 20 64 75 6d 6d 79 20 69 6e 64 65 78  Data dummy index
21b0: 65 73 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  es]} then {..   
21c0: 20 73 65 74 20 73 75 6d 6d 61 72 79 53 74 61 72   set summaryStar
21d0: 74 20 5b 6c 69 6e 64 65 78 20 24 69 6e 64 65 78  t [lindex $index
21e0: 65 73 20 30 5d 0d 0a 20 20 20 20 73 65 74 20 73  es 0]..    set s
21f0: 75 6d 6d 61 72 79 45 6e 64 20 5b 6c 69 6e 64 65  ummaryEnd [linde
2200: 78 20 24 69 6e 64 65 78 65 73 20 31 5d 0d 0a 0d  x $indexes 1]...
2210: 0a 20 20 20 20 73 65 74 20 6f 75 74 70 75 74 44  .    set outputD
2220: 61 74 61 20 5b 73 74 72 69 6e 67 20 72 61 6e 67  ata [string rang
2230: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 24 6f 75  e \..        $ou
2240: 74 70 75 74 44 61 74 61 20 30 20 24 73 75 6d 6d  tputData 0 $summ
2250: 61 72 79 53 74 61 72 74 5d 24 6d 65 74 68 6f 64  aryStart]$method
2260: 73 28 24 6e 61 6d 65 29 5b 73 74 72 69 6e 67 20  s($name)[string 
2270: 5c 0d 0a 20 20 20 20 20 20 20 20 72 61 6e 67 65  \..        range
2280: 20 24 6f 75 74 70 75 74 44 61 74 61 20 5b 65 78   $outputData [ex
2290: 70 72 20 7b 24 73 75 6d 6d 61 72 79 45 6e 64 20  pr {$summaryEnd 
22a0: 2b 20 31 7d 5d 20 65 6e 64 5d 0d 0a 0d 0a 20 20  + 1}] end]....  
22b0: 20 20 69 6e 63 72 20 63 6f 75 6e 74 3b 20 69 6e    incr count; in
22c0: 63 72 20 73 74 61 72 74 20 5b 65 78 70 72 20 7b  cr start [expr {
22d0: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
22e0: 6d 65 74 68 6f 64 73 28 24 6e 61 6d 65 29 5d 20  methods($name)] 
22f0: 2b 20 31 7d 5d 0d 0a 20 20 7d 20 65 6c 73 65 20  + 1}]..  } else 
2300: 7b 0d 0a 20 20 20 20 65 72 72 6f 72 20 22 63 61  {..    error "ca
2310: 6e 6e 6f 74 20 66 69 6e 64 20 76 69 72 74 75 61  nnot find virtua
2320: 6c 20 74 61 62 6c 65 20 6d 65 74 68 6f 64 20 5c  l table method \
2330: 22 24 6e 61 6d 65 5c 22 20 69 6e 20 5c 22 24 6f  "$name\" in \"$o
2340: 75 74 70 75 74 46 69 6c 65 4e 61 6d 65 5c 22 22  utputFileName\""
2350: 0d 0a 20 20 7d 0d 0a 7d 0d 0a 0d 0a 69 66 20 7b  ..  }..}....if {
2360: 24 63 6f 75 6e 74 20 3e 20 30 7d 20 74 68 65 6e  $count > 0} then
2370: 20 7b 0d 0a 20 20 77 72 69 74 65 46 69 6c 65 20   {..  writeFile 
2380: 24 6f 75 74 70 75 74 46 69 6c 65 4e 61 6d 65 20  $outputFileName 
2390: 5b 73 74 72 69 6e 67 20 6d 61 70 20 5b 6c 69 73  [string map [lis
23a0: 74 20 5c 6e 20 5c 72 5c 6e 5d 20 24 6f 75 74 70  t \n \r\n] $outp
23b0: 75 74 44 61 74 61 5d 0d 0a 7d 0d 0a 0d 0a 65 78  utData]..}....ex
23c0: 69 74 20 30 0d 0a                                it 0..