Documentation Source Text

Hex Artifact Content
Login

Artifact ad8c745d21163991438ea2fc30e379a91ff9115a:


0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 74 63 6c 73 71  #!/usr/bin/tclsq
0010: 6c 69 74 65 33 2e 73 65 61 72 63 68 0a 0a 73 6f  lite3.search..so
0020: 75 72 63 65 20 5b 66 69 6c 65 20 64 69 72 6e 61  urce [file dirna
0030: 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d  me [info script]
0040: 5d 2f 64 6f 63 75 6d 65 6e 74 5f 68 65 61 64 65  ]/document_heade
0050: 72 2e 74 63 6c 0a 0a 23 20 44 65 63 6f 64 65 20  r.tcl..# Decode 
0060: 61 6e 20 48 54 54 50 20 25 2d 65 6e 63 6f 64 65  an HTTP %-encode
0070: 64 20 73 74 72 69 6e 67 0a 23 0a 70 72 6f 63 20  d string.#.proc 
0080: 70 65 72 63 65 6e 74 5f 64 65 63 6f 64 65 20 7b  percent_decode {
0090: 73 74 72 7d 20 7b 0a 20 20 20 20 23 20 72 65 77  str} {.    # rew
00a0: 72 69 74 65 20 22 2b 22 20 62 61 63 6b 20 74 6f  rite "+" back to
00b0: 20 73 70 61 63 65 0a 20 20 20 20 23 20 70 72 6f   space.    # pro
00c0: 74 65 63 74 20 5c 20 61 6e 64 20 5b 20 61 6e 64  tect \ and [ and
00d0: 20 5d 20 62 79 20 71 75 6f 74 69 6e 67 20 77 69   ] by quoting wi
00e0: 74 68 20 27 5c 27 0a 20 20 20 20 73 65 74 20 73  th '\'.    set s
00f0: 74 72 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 5b  tr [string map [
0100: 6c 69 73 74 20 2b 20 7b 20 7d 20 22 5c 5c 22 20  list + { } "\\" 
0110: 22 5c 5c 5c 5c 22 20 5c 5b 20 5c 5c 5c 5b 20 5c  "\\\\" \[ \\\[ \
0120: 5d 20 5c 5c 5c 5d 5d 20 24 73 74 72 5d 0a 0a 20  ] \\\]] $str].. 
0130: 20 20 20 23 20 70 72 65 70 61 72 65 20 74 6f 20     # prepare to 
0140: 70 72 6f 63 65 73 73 20 61 6c 6c 20 25 2d 65 73  process all %-es
0150: 63 61 70 65 73 0a 20 20 20 20 72 65 67 73 75 62  capes.    regsub
0160: 20 2d 61 6c 6c 20 2d 2d 20 7b 25 28 5b 41 2d 46   -all -- {%([A-F
0170: 61 2d 66 5d 5b 41 2d 46 61 2d 66 30 2d 39 5d 29  a-f][A-Fa-f0-9])
0180: 25 28 5b 41 2d 46 61 2d 66 38 39 5d 5b 41 2d 46  %([A-Fa-f89][A-F
0190: 61 2d 66 30 2d 39 5d 29 7d 20 5c 0a 20 20 20 20  a-f0-9])} \.    
01a0: 20 20 20 20 24 73 74 72 20 7b 5b 65 6e 63 6f 64      $str {[encod
01b0: 69 6e 67 20 63 6f 6e 76 65 72 74 66 72 6f 6d 20  ing convertfrom 
01c0: 75 74 66 2d 38 20 5b 62 69 6e 61 72 79 20 64 65  utf-8 [binary de
01d0: 63 6f 64 65 20 68 65 78 20 5c 31 5c 32 5d 5d 7d  code hex \1\2]]}
01e0: 20 73 74 72 0a 20 20 20 20 72 65 67 73 75 62 20   str.    regsub 
01f0: 2d 61 6c 6c 20 2d 2d 20 7b 25 28 5b 30 2d 37 5d  -all -- {%([0-7]
0200: 5b 41 2d 46 61 2d 66 30 2d 39 5d 29 7d 20 24 73  [A-Fa-f0-9])} $s
0210: 74 72 20 7b 5c 5c 75 30 30 5c 31 7d 20 73 74 72  tr {\\u00\1} str
0220: 0a 0a 20 20 20 20 23 20 70 72 6f 63 65 73 73 20  ..    # process 
0230: 25 2d 65 73 63 61 70 65 73 0a 20 20 20 20 72 65  %-escapes.    re
0240: 74 75 72 6e 20 5b 73 75 62 73 74 20 2d 6e 6f 76  turn [subst -nov
0250: 61 72 20 24 73 74 72 5d 0a 7d 0a 0a 23 3d 3d 3d  ar $str].}..#===
0260: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0270: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0280: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0290: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
02a0: 3d 3d 3d 3d 3d 3d 0a 23 20 54 68 69 73 20 70 72  ======.# This pr
02b0: 6f 63 20 69 73 20 63 61 6c 6c 65 64 20 74 6f 20  oc is called to 
02c0: 70 61 72 73 65 20 74 68 65 20 61 72 67 75 6d 65  parse the argume
02d0: 6e 74 73 20 70 61 73 73 65 64 20 74 6f 20 74 68  nts passed to th
02e0: 69 73 20 69 6e 76 6f 63 61 74 69 6f 6e 20 6f 66  is invocation of
02f0: 0a 23 20 74 68 65 20 43 47 49 20 70 72 6f 67 72  .# the CGI progr
0300: 61 6d 20 28 76 69 61 20 65 69 74 68 65 72 20 74  am (via either t
0310: 68 65 20 47 45 54 20 6f 72 20 50 4f 53 54 20 6d  he GET or POST m
0320: 65 74 68 6f 64 29 2e 20 49 74 20 72 65 74 75 72  ethod). It retur
0330: 6e 73 20 61 0a 23 20 6b 65 79 2f 76 61 6c 75 65  ns a.# key/value
0340: 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67   list containing
0350: 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 20 73   the arguments s
0360: 75 69 74 61 62 6c 65 20 66 6f 72 20 70 61 73 73  uitable for pass
0370: 69 6e 67 20 74 6f 20 5b 61 72 72 61 79 0a 23 20  ing to [array.# 
0380: 73 65 74 5d 2e 20 46 6f 72 20 65 78 61 6d 70 6c  set]. For exampl
0390: 65 2c 20 69 66 20 74 68 65 20 43 47 49 20 69 73  e, if the CGI is
03a0: 20 69 6e 76 6f 6b 65 64 20 76 69 61 20 61 20 47   invoked via a G
03b0: 45 54 20 72 65 71 75 65 73 74 20 6f 6e 20 74 68  ET request on th
03c0: 65 20 55 52 49 3a 0a 23 0a 23 20 20 20 68 74 74  e URI:.#.#   htt
03d0: 70 3a 2f 2f 77 77 77 2e 73 71 6c 69 74 65 2e 6f  p://www.sqlite.o
03e0: 72 67 2f 73 65 61 72 63 68 3f 71 75 65 72 79 3d  rg/search?query=
03f0: 66 74 73 33 2b 74 61 62 6c 65 26 72 65 73 75 6c  fts3+table&resul
0400: 74 73 3d 31 30 0a 23 0a 23 20 74 68 65 6e 20 74  ts=10.#.# then t
0410: 68 65 20 72 65 74 75 72 6e 65 64 20 6c 69 73 74  he returned list
0420: 20 76 61 6c 75 65 20 69 73 3a 20 0a 23 0a 23 20   value is: .#.# 
0430: 20 20 7b 71 75 65 72 79 20 7b 66 74 73 33 20 74    {query {fts3 t
0440: 61 62 6c 65 7d 20 72 65 73 75 6c 74 73 20 31 30  able} results 10
0450: 7d 0a 23 0a 70 72 6f 63 20 63 67 69 5f 70 61 72  }.#.proc cgi_par
0460: 73 65 5f 61 72 67 73 20 7b 7d 20 7b 0a 20 20 67  se_args {} {.  g
0470: 6c 6f 62 61 6c 20 65 6e 76 20 41 0a 0a 20 20 69  lobal env A..  i
0480: 66 20 7b 24 65 6e 76 28 52 45 51 55 45 53 54 5f  f {$env(REQUEST_
0490: 4d 45 54 48 4f 44 29 20 3d 3d 20 22 47 45 54 22  METHOD) == "GET"
04a0: 7d 20 7b 0a 20 20 20 20 66 6f 72 65 61 63 68 20  } {.    foreach 
04b0: 71 20 5b 73 70 6c 69 74 20 24 65 6e 76 28 51 55  q [split $env(QU
04c0: 45 52 59 5f 53 54 52 49 4e 47 29 20 26 5d 20 7b  ERY_STRING) &] {
04d0: 0a 20 20 20 20 20 20 69 66 20 7b 5b 72 65 67 65  .      if {[rege
04e0: 78 70 20 7b 28 5b 61 2d 7a 30 2d 39 5d 2a 29 3d  xp {([a-z0-9]*)=
04f0: 28 2e 2a 29 7d 20 24 71 20 61 6c 6c 20 76 61 72  (.*)} $q all var
0500: 20 76 61 6c 75 65 5d 7d 20 7b 0a 20 20 20 20 20   value]} {.     
0510: 20 20 20 73 65 74 20 41 28 24 76 61 72 29 20 5b     set A($var) [
0520: 70 65 72 63 65 6e 74 5f 64 65 63 6f 64 65 20 24  percent_decode $
0530: 76 61 6c 75 65 5d 0a 20 20 20 20 20 20 7d 0a 20  value].      }. 
0540: 20 20 20 7d 0a 20 20 7d 20 65 6c 73 65 69 66 20     }.  } elseif 
0550: 7b 24 65 6e 76 28 52 45 51 55 45 53 54 5f 4d 45  {$env(REQUEST_ME
0560: 54 48 4f 44 29 20 3d 3d 20 22 50 4f 53 54 22 7d  THOD) == "POST"}
0570: 20 7b 0a 20 20 20 20 73 65 74 20 71 73 74 72 69   {.    set qstri
0580: 6e 67 20 5b 72 65 61 64 20 73 74 64 69 6e 20 24  ng [read stdin $
0590: 65 6e 76 28 43 4f 4e 54 45 4e 54 5f 4c 45 4e 47  env(CONTENT_LENG
05a0: 54 48 29 5d 0a 20 20 20 20 66 6f 72 65 61 63 68  TH)].    foreach
05b0: 20 71 20 5b 73 70 6c 69 74 20 24 71 73 74 72 69   q [split $qstri
05c0: 6e 67 20 26 5d 20 7b 0a 20 20 20 20 20 20 69 66  ng &] {.      if
05d0: 20 7b 5b 72 65 67 65 78 70 20 7b 28 5b 61 2d 7a   {[regexp {([a-z
05e0: 30 2d 39 5d 2a 29 3d 28 2e 2a 29 7d 20 24 71 20  0-9]*)=(.*)} $q 
05f0: 61 6c 6c 20 76 61 72 20 76 61 6c 75 65 5d 7d 20  all var value]} 
0600: 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 41 28  {.        set A(
0610: 24 76 61 72 29 20 5b 70 65 72 63 65 6e 74 5f 64  $var) [percent_d
0620: 65 63 6f 64 65 20 24 76 61 6c 75 65 5d 0a 20 20  ecode $value].  
0630: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 20      }.    }.  } 
0640: 65 6c 73 65 20 7b 0a 20 20 20 20 65 72 72 6f 72  else {.    error
0650: 20 22 55 6e 72 65 63 6f 67 6e 69 7a 65 64 20 6d   "Unrecognized m
0660: 65 74 68 6f 64 3a 20 24 65 6e 76 28 52 45 51 55  ethod: $env(REQU
0670: 45 53 54 5f 4d 45 54 48 4f 44 29 22 0a 20 20 7d  EST_METHOD)".  }
0680: 0a 7d 0a 0a 0a 23 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  .}...#==========
0690: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
06a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
06b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
06c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a  ===============.
06d0: 23 20 54 68 65 20 61 72 67 75 6d 65 6e 74 20 63  # The argument c
06e0: 6f 6e 74 61 69 6e 73 20 61 20 6b 65 79 20 76 61  ontains a key va
06f0: 6c 75 65 20 6c 69 73 74 2e 20 54 68 65 20 76 61  lue list. The va
0700: 6c 75 65 73 20 69 6e 20 74 68 65 20 6c 69 73 74  lues in the list
0710: 20 61 72 65 0a 23 20 74 72 61 6e 73 66 6f 72 6d   are.# transform
0720: 65 64 20 74 6f 20 61 6e 20 48 54 54 50 20 71 75  ed to an HTTP qu
0730: 65 72 79 20 6b 65 79 20 76 61 6c 75 65 20 6c 69  ery key value li
0740: 73 74 2e 20 46 6f 72 20 65 78 61 6d 70 6c 65 3a  st. For example:
0750: 0a 23 0a 23 20 20 20 25 20 63 67 69 5f 65 6e 63  .#.#   % cgi_enc
0760: 6f 64 65 5f 61 72 67 73 20 7b 73 20 22 73 65 61  ode_args {s "sea
0770: 72 63 68 20 73 74 72 69 6e 67 22 20 74 20 22 73  rch string" t "s
0780: 65 61 72 63 68 20 5c 22 74 79 70 65 5c 22 22 7d  earch \"type\""}
0790: 0a 23 20 20 20 73 3d 73 65 61 72 63 68 2b 73 74  .#   s=search+st
07a0: 72 69 6e 67 26 74 3d 73 65 61 72 63 68 2b 25 32  ring&t=search+%2
07b0: 32 74 79 70 65 25 32 32 0a 23 0a 70 72 6f 63 20  2type%22.#.proc 
07c0: 63 67 69 5f 65 6e 63 6f 64 65 5f 61 72 67 73 20  cgi_encode_args 
07d0: 7b 6c 69 73 74 7d 20 7b 0a 20 20 73 65 74 20 72  {list} {.  set r
07e0: 65 73 6c 69 73 74 20 5b 6c 69 73 74 5d 0a 20 20  eslist [list].  
07f0: 66 6f 72 65 61 63 68 20 7b 6b 65 79 20 76 61 6c  foreach {key val
0800: 75 65 7d 20 24 6c 69 73 74 20 7b 0a 20 20 20 20  ue} $list {.    
0810: 73 65 74 20 76 61 6c 75 65 20 5b 73 74 72 69 6e  set value [strin
0820: 67 20 6d 61 70 20 7b 0a 20 20 20 20 20 20 5c 78  g map {.      \x
0830: 32 30 20 2b 20 20 20 5c 78 32 31 20 25 32 31 20  20 +   \x21 %21 
0840: 5c 78 32 41 20 25 32 41 20 5c 78 32 32 20 25 32  \x2A %2A \x22 %2
0850: 32 20 5c 78 32 37 20 25 32 37 20 5c 78 32 38 20  2 \x27 %27 \x28 
0860: 25 32 38 20 5c 78 32 39 20 25 32 39 20 5c 78 33  %28 \x29 %29 \x3
0870: 42 20 25 33 42 20 0a 20 20 20 20 20 20 5c 78 33  B %3B .      \x3
0880: 41 20 25 33 41 20 5c 78 34 30 20 25 34 30 20 5c  A %3A \x40 %40 \
0890: 78 32 36 20 25 32 36 20 5c 78 33 44 20 25 33 44  x26 %26 \x3D %3D
08a0: 20 5c 78 32 42 20 25 32 42 20 5c 78 32 34 20 25   \x2B %2B \x24 %
08b0: 32 34 20 5c 78 32 43 20 25 32 43 20 5c 78 32 46  24 \x2C %2C \x2F
08c0: 20 25 32 46 20 0a 20 20 20 20 20 20 5c 78 33 46   %2F .      \x3F
08d0: 20 25 33 46 20 5c 78 32 35 20 25 32 35 20 5c 78   %3F \x25 %25 \x
08e0: 32 33 20 25 32 33 20 5c 78 35 42 20 25 35 42 20  23 %23 \x5B %5B 
08f0: 5c 78 35 44 20 25 35 44 0a 20 20 20 20 7d 20 24  \x5D %5D.    } $
0900: 76 61 6c 75 65 5d 0a 0a 20 20 20 20 6c 61 70 70  value]..    lapp
0910: 65 6e 64 20 72 65 73 6c 69 73 74 20 22 24 6b 65  end reslist "$ke
0920: 79 3d 24 76 61 6c 75 65 22 0a 20 20 7d 0a 20 20  y=$value".  }.  
0930: 6a 6f 69 6e 20 24 72 65 73 6c 69 73 74 20 26 0a  join $reslist &.
0940: 7d 0a 0a 70 72 6f 63 20 68 74 6d 6c 69 7a 65 20  }..proc htmlize 
0950: 7b 73 74 72 7d 20 7b 20 73 74 72 69 6e 67 20 6d  {str} { string m
0960: 61 70 20 7b 3c 20 26 6c 74 3b 20 3e 20 26 67 74  ap {< &lt; > &gt
0970: 3b 7d 20 24 73 74 72 20 7d 0a 70 72 6f 63 20 61  ;} $str }.proc a
0980: 74 74 72 69 7a 65 20 7b 73 74 72 7d 20 7b 20 73  ttrize {str} { s
0990: 74 72 69 6e 67 20 6d 61 70 20 7b 3c 20 26 6c 74  tring map {< &lt
09a0: 3b 20 3e 20 26 67 74 3b 20 5c 78 32 32 20 26 71  ; > &gt; \x22 &q
09b0: 75 6f 74 3b 7d 20 24 73 74 72 20 7d 0a 0a 23 3d  uot;} $str }..#=
09c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
09d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
09e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
09f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0a00: 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 70 72 6f 63 20 63  ========..proc c
0a10: 67 69 5f 65 6e 76 5f 64 75 6d 70 20 7b 7d 20 7b  gi_env_dump {} {
0a20: 0a 0a 20 20 73 65 74 20 72 65 74 20 22 3c 68 31  ..  set ret "<h1
0a30: 3e 41 72 67 75 6d 65 6e 74 73 3c 2f 68 31 3e 3c  >Arguments</h1><
0a40: 74 61 62 6c 65 3e 22 0a 20 20 66 6f 72 65 61 63  table>".  foreac
0a50: 68 20 7b 6b 65 79 20 76 61 6c 75 65 7d 20 5b 61  h {key value} [a
0a60: 72 72 61 79 20 67 65 74 20 3a 3a 41 5d 20 7b 0a  rray get ::A] {.
0a70: 20 20 20 20 61 70 70 65 6e 64 20 72 65 74 20 22      append ret "
0a80: 3c 74 72 3e 3c 74 64 3e 5b 68 74 6d 6c 69 7a 65  <tr><td>[htmlize
0a90: 20 24 6b 65 79 5d 3c 74 64 3e 5b 68 74 6d 6c 69   $key]<td>[htmli
0aa0: 7a 65 20 24 76 61 6c 75 65 5d 22 0a 20 20 7d 0a  ze $value]".  }.
0ab0: 20 20 61 70 70 65 6e 64 20 72 65 74 20 22 3c 2f    append ret "</
0ac0: 74 61 62 6c 65 3e 22 0a 0a 20 20 61 70 70 65 6e  table>"..  appen
0ad0: 64 20 72 65 74 20 22 3c 68 31 3e 45 6e 76 69 72  d ret "<h1>Envir
0ae0: 6f 6e 6d 65 6e 74 3c 2f 68 31 3e 3c 74 61 62 6c  onment</h1><tabl
0af0: 65 3e 22 0a 20 20 66 6f 72 65 61 63 68 20 7b 6b  e>".  foreach {k
0b00: 65 79 20 76 61 6c 75 65 7d 20 5b 61 72 72 61 79  ey value} [array
0b10: 20 67 65 74 20 3a 3a 65 6e 76 5d 20 7b 0a 20 20   get ::env] {.  
0b20: 20 20 61 70 70 65 6e 64 20 72 65 74 20 22 3c 74    append ret "<t
0b30: 72 3e 3c 74 64 3e 5b 68 74 6d 6c 69 7a 65 20 24  r><td>[htmlize $
0b40: 6b 65 79 5d 3c 74 64 3e 5b 68 74 6d 6c 69 7a 65  key]<td>[htmlize
0b50: 20 24 76 61 6c 75 65 5d 22 0a 20 20 7d 0a 20 20   $value]".  }.  
0b60: 61 70 70 65 6e 64 20 72 65 74 20 22 3c 2f 74 61  append ret "</ta
0b70: 62 6c 65 3e 22 0a 20 20 72 65 74 75 72 6e 20 24  ble>".  return $
0b80: 72 65 74 0a 7d 0a 0a 70 72 6f 63 20 66 6f 6f 74  ret.}..proc foot
0b90: 65 72 20 7b 7d 20 7b 0a 20 20 72 65 74 75 72 6e  er {} {.  return
0ba0: 20 7b 0a 20 20 20 20 3c 68 72 3e 0a 20 20 20 20   {.    <hr>.    
0bb0: 3c 74 61 62 6c 65 20 61 6c 69 67 6e 3d 72 69 67  <table align=rig
0bc0: 68 74 3e 0a 20 20 20 20 3c 74 64 3e 0a 20 20 20  ht>.    <td>.   
0bd0: 20 20 20 3c 69 3e 50 6f 77 65 72 65 64 20 62 79     <i>Powered by
0be0: 20 3c 61 20 68 72 65 66 3d 22 68 74 74 70 3a 2f   <a href="http:/
0bf0: 2f 77 77 77 2e 73 71 6c 69 74 65 2e 6f 72 67 2f  /www.sqlite.org/
0c00: 66 74 73 35 2e 68 74 6d 6c 22 3e 46 54 53 35 3c  fts5.html">FTS5<
0c10: 2f 61 3e 2e 3c 2f 69 3e 0a 20 20 20 20 3c 2f 74  /a>.</i>.    </t
0c20: 61 62 6c 65 3e 0a 20 20 7d 0a 7d 0a 0a 0a 23 2d  able>.  }.}...#-
0c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0c70: 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 54 68 69 73 20  --------.# This 
0c80: 63 6f 6d 6d 61 6e 64 20 69 73 20 73 69 6d 69 6c  command is simil
0c90: 61 72 20 74 6f 20 74 68 65 20 62 75 69 6c 74 69  ar to the builti
0ca0: 6e 20 54 63 6c 20 5b 74 69 6d 65 5d 20 63 6f 6d  n Tcl [time] com
0cb0: 6d 61 6e 64 2c 20 65 78 63 65 70 74 20 74 68 61  mand, except tha
0cc0: 74 0a 23 20 69 74 20 6f 6e 6c 79 20 65 76 65 72  t.# it only ever
0cd0: 20 72 75 6e 73 20 74 68 65 20 73 75 70 70 6c 69   runs the suppli
0ce0: 65 64 20 73 63 72 69 70 74 20 6f 6e 63 65 2e 20  ed script once. 
0cf0: 41 6c 73 6f 2c 20 69 6e 73 74 65 61 64 20 6f 66  Also, instead of
0d00: 20 72 65 74 75 72 6e 69 6e 67 0a 23 20 61 20 73   returning.# a s
0d10: 74 72 69 6e 67 20 6c 69 6b 65 20 22 78 78 78 20  tring like "xxx 
0d20: 6d 69 63 72 6f 73 65 63 6f 6e 64 73 20 70 65 72  microseconds per
0d30: 20 69 74 65 72 61 74 69 6f 6e 22 2c 20 69 74 20   iteration", it 
0d40: 72 65 74 75 72 6e 73 20 22 78 2e 79 79 20 6d 73  returns "x.yy ms
0d50: 22 20 6f 72 0a 23 20 22 78 2e 79 79 20 73 22 2c  " or.# "x.yy s",
0d60: 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 74 68   depending on th
0d70: 65 20 6d 61 67 6e 69 74 75 64 65 20 6f 66 20 74  e magnitude of t
0d80: 68 65 20 74 69 6d 65 20 73 70 65 6e 74 20 72 75  he time spent ru
0d90: 6e 6e 69 6e 67 20 74 68 65 20 0a 23 20 63 6f 6d  nning the .# com
0da0: 6d 61 6e 64 2e 20 46 6f 72 20 65 78 61 6d 70 6c  mand. For exampl
0db0: 65 3a 0a 23 0a 23 20 20 20 25 20 74 74 69 6d 65  e:.#.#   % ttime
0dc0: 20 7b 61 66 74 65 72 20 31 35 30 30 7d 0a 23 20   {after 1500}.# 
0dd0: 20 20 31 2e 35 30 20 73 0a 23 20 20 20 25 20 74    1.50 s.#   % t
0de0: 74 69 6d 65 20 7b 61 66 74 65 72 20 34 35 7d 0a  time {after 45}.
0df0: 23 20 20 20 34 35 2e 30 32 20 6d 73 0a 23 0a 70  #   45.02 ms.#.p
0e00: 72 6f 63 20 74 74 69 6d 65 20 7b 73 63 72 69 70  roc ttime {scrip
0e10: 74 7d 20 7b 0a 20 20 73 65 74 20 74 20 5b 6c 69  t} {.  set t [li
0e20: 6e 64 65 78 20 5b 74 69 6d 65 20 5b 6c 69 73 74  ndex [time [list
0e30: 20 75 70 6c 65 76 65 6c 20 24 73 63 72 69 70 74   uplevel $script
0e40: 5d 5d 20 30 5d 0a 20 20 69 66 20 7b 24 74 3e 31  ]] 0].  if {$t>1
0e50: 30 30 30 30 30 30 7d 20 7b 20 72 65 74 75 72 6e  000000} { return
0e60: 20 5b 66 6f 72 6d 61 74 20 22 25 2e 32 66 20 73   [format "%.2f s
0e70: 22 20 5b 65 78 70 72 20 7b 24 74 2f 31 30 30 30  " [expr {$t/1000
0e80: 30 30 30 2e 30 7d 5d 5d 20 7d 0a 20 20 72 65 74  000.0}]] }.  ret
0e90: 75 72 6e 20 5b 66 6f 72 6d 61 74 20 22 25 2e 32  urn [format "%.2
0ea0: 66 20 6d 73 22 20 5b 65 78 70 72 20 7b 24 74 2f  f ms" [expr {$t/
0eb0: 31 30 30 30 2e 30 7d 5d 5d 0a 7d 0a 0a 70 72 6f  1000.0}]].}..pro
0ec0: 63 20 73 65 61 72 63 68 72 65 73 75 6c 74 73 20  c searchresults 
0ed0: 7b 7d 20 7b 0a 20 20 69 66 20 7b 21 5b 69 6e 66  {} {.  if {![inf
0ee0: 6f 20 65 78 69 73 74 73 20 3a 3a 41 28 71 29 5d  o exists ::A(q)]
0ef0: 7d 20 72 65 74 75 72 6e 20 22 22 0a 20 20 23 73  } return "".  #s
0f00: 65 74 20 3a 3a 41 28 71 29 20 5b 73 74 72 69 6e  et ::A(q) [strin
0f10: 67 20 6d 61 70 20 7b 27 20 27 27 7d 20 24 41 28  g map {' ''} $A(
0f20: 71 29 5d 0a 20 20 23 72 65 67 73 75 62 20 2d 61  q)].  #regsub -a
0f30: 6c 6c 20 7b 5b 5e 2d 2f 22 41 2d 5a 61 2d 7a 30  ll {[^-/"A-Za-z0
0f40: 2d 39 5d 7d 20 24 3a 3a 41 28 71 29 20 7b 20 7d  -9]} $::A(q) { }
0f50: 20 3a 3a 41 28 71 29 0a 0a 20 20 23 20 43 6f 75   ::A(q)..  # Cou
0f60: 6e 74 20 74 68 65 20 27 22 27 20 63 68 61 72 61  nt the '"' chara
0f70: 63 74 65 72 73 20 69 6e 20 24 3a 3a 41 28 71 29  cters in $::A(q)
0f80: 2e 20 49 66 20 74 68 65 72 65 20 69 73 20 61 6e  . If there is an
0f90: 20 6f 64 64 20 6e 75 6d 62 65 72 20 6f 66 0a 20   odd number of. 
0fa0: 20 23 20 6f 63 63 75 72 65 6e 63 65 73 2c 20 61   # occurences, a
0fb0: 64 64 20 61 20 22 20 74 6f 20 74 68 65 20 65 6e  dd a " to the en
0fc0: 64 20 6f 66 20 74 68 65 20 71 75 65 72 79 20 73  d of the query s
0fd0: 6f 20 74 68 61 74 20 66 74 73 35 20 63 61 6e 20  o that fts5 can 
0fe0: 70 61 72 73 65 0a 20 20 23 20 69 74 20 77 69 74  parse.  # it wit
0ff0: 68 6f 75 74 20 65 72 72 6f 72 2e 0a 20 20 69 66  hout error..  if
1000: 20 7b 5b 72 65 67 65 78 70 20 2d 61 6c 6c 20 5c   {[regexp -all \
1010: 78 32 32 20 24 3a 3a 41 28 71 29 5d 20 25 20 32  x22 $::A(q)] % 2
1020: 7d 20 7b 20 61 70 70 65 6e 64 20 3a 3a 41 28 71  } { append ::A(q
1030: 29 20 5c 78 32 32 20 7d 0a 0a 20 20 23 20 53 65  ) \x22 }..  # Se
1040: 74 20 69 53 74 61 72 74 20 74 6f 20 74 68 65 20  t iStart to the 
1050: 69 6e 64 65 78 20 6f 66 20 74 68 65 20 66 69 72  index of the fir
1060: 73 74 20 72 65 73 75 6c 74 20 74 6f 20 64 69 73  st result to dis
1070: 70 6c 61 79 2e 20 52 65 73 75 6c 74 73 20 61 72  play. Results ar
1080: 65 0a 20 20 23 20 69 6e 64 65 78 65 64 20 73 74  e.  # indexed st
1090: 61 72 74 69 6e 67 20 61 74 20 7a 65 72 6f 20 66  arting at zero f
10a0: 72 6f 6d 20 6d 6f 73 74 20 74 6f 20 6c 65 61 73  rom most to leas
10b0: 74 20 72 65 6c 65 76 61 6e 74 2e 0a 20 20 23 0a  t relevant..  #.
10c0: 20 20 73 65 74 20 69 53 74 61 72 74 20 5b 65 78    set iStart [ex
10d0: 70 72 20 7b 28 5b 69 6e 66 6f 20 65 78 69 73 74  pr {([info exist
10e0: 73 20 3a 3a 41 28 69 29 5d 20 3f 20 24 3a 3a 41  s ::A(i)] ? $::A
10f0: 28 69 29 20 3a 20 30 29 2a 31 30 7d 5d 0a 0a 20  (i) : 0)*10}].. 
1100: 20 23 20 47 72 61 62 20 61 20 6c 69 73 74 20 6f   # Grab a list o
1110: 66 20 72 6f 77 69 64 20 72 65 73 75 6c 74 73 2e  f rowid results.
1120: 0a 20 20 23 0a 20 20 73 65 74 20 71 20 7b 0a 20  .  #.  set q {. 
1130: 20 20 20 53 45 4c 45 43 54 20 72 6f 77 69 64 20     SELECT rowid 
1140: 46 52 4f 4d 20 70 61 67 65 20 57 48 45 52 45 20  FROM page WHERE 
1150: 70 61 67 65 20 4d 41 54 43 48 20 24 3a 3a 41 28  page MATCH $::A(
1160: 71 29 20 0a 20 20 20 20 4f 52 44 45 52 20 42 59  q) .    ORDER BY
1170: 20 72 61 6e 6b 20 2a 20 43 4f 41 4c 45 53 43 45   rank * COALESCE
1180: 28 0a 20 20 20 20 20 20 28 53 45 4c 45 43 54 20  (.      (SELECT 
1190: 70 65 72 63 65 6e 74 20 46 52 4f 4d 20 77 65 69  percent FROM wei
11a0: 67 68 74 20 57 48 45 52 45 20 69 64 3d 70 61 67  ght WHERE id=pag
11b0: 65 2e 72 6f 77 69 64 29 2c 20 31 30 30 0a 20 20  e.rowid), 100.  
11c0: 20 20 29 3b 0a 20 20 7d 0a 20 20 69 66 20 7b 5b    );.  }.  if {[
11d0: 63 61 74 63 68 20 7b 20 73 65 74 20 6c 52 6f 77  catch { set lRow
11e0: 69 64 20 5b 64 62 20 65 76 61 6c 20 24 71 5d 20  id [db eval $q] 
11f0: 7d 5d 7d 20 7b 0a 20 20 20 20 73 65 74 20 78 20  }]} {.    set x 
1200: 22 22 0a 20 20 20 20 66 6f 72 65 61 63 68 20 77  "".    foreach w
1210: 6f 72 64 20 5b 73 70 6c 69 74 20 24 3a 3a 41 28  ord [split $::A(
1220: 71 29 20 22 20 22 5d 20 7b 0a 20 20 20 20 20 20  q) " "] {.      
1230: 61 70 70 65 6e 64 20 78 20 22 20 5c 22 5b 73 74  append x " \"[st
1240: 72 69 6e 67 20 6d 61 70 20 5b 6c 69 73 74 20 22  ring map [list "
1250: 5c 22 22 20 22 5c 22 5c 22 22 5d 20 24 77 6f 72  \"" "\"\""] $wor
1260: 64 5d 5c 22 22 0a 20 20 20 20 7d 0a 20 20 20 20  d]\"".    }.    
1270: 73 65 74 20 3a 3a 41 28 71 29 20 5b 73 74 72 69  set ::A(q) [stri
1280: 6e 67 20 74 72 69 6d 20 24 78 5d 0a 20 20 20 20  ng trim $x].    
1290: 73 65 74 20 6c 52 6f 77 69 64 20 5b 64 62 20 65  set lRowid [db e
12a0: 76 61 6c 20 24 71 5d 0a 20 20 7d 0a 0a 20 20 73  val $q].  }..  s
12b0: 65 74 20 6c 52 65 73 20 5b 6c 69 73 74 5d 0a 20  et lRes [list]. 
12c0: 20 66 6f 72 65 61 63 68 20 72 6f 77 69 64 20 24   foreach rowid $
12d0: 6c 52 6f 77 69 64 20 7b 0a 20 20 20 20 69 66 20  lRowid {.    if 
12e0: 7b 24 72 6f 77 69 64 20 3e 20 31 30 30 30 7d 20  {$rowid > 1000} 
12f0: 7b 0a 20 20 20 20 20 20 73 65 74 20 70 61 72 65  {.      set pare
1300: 6e 74 20 5b 65 78 70 72 20 24 72 6f 77 69 64 20  nt [expr $rowid 
1310: 2f 20 31 30 30 30 5d 0a 20 20 20 20 20 20 6c 61  / 1000].      la
1320: 70 70 65 6e 64 20 73 75 62 73 65 63 74 69 6f 6e  ppend subsection
1330: 73 28 24 70 61 72 65 6e 74 29 20 24 72 6f 77 69  s($parent) $rowi
1340: 64 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20  d.    } else {. 
1350: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 6c 52 65       lappend lRe
1360: 73 20 24 72 6f 77 69 64 0a 20 20 20 20 7d 0a 20  s $rowid.    }. 
1370: 20 7d 0a 0a 20 20 73 65 74 20 6e 52 65 73 20 5b   }..  set nRes [
1380: 6c 6c 65 6e 67 74 68 20 24 6c 52 65 73 5d 0a 20  llength $lRes]. 
1390: 20 73 65 74 20 6c 52 65 73 20 5b 6c 72 61 6e 67   set lRes [lrang
13a0: 65 20 24 6c 52 65 73 20 24 69 53 74 61 72 74 20  e $lRes $iStart 
13b0: 5b 65 78 70 72 20 24 69 53 74 61 72 74 2b 39 5d  [expr $iStart+9]
13c0: 5d 0a 0a 20 20 23 20 49 66 20 74 68 65 72 65 20  ]..  # If there 
13d0: 61 72 65 20 6e 6f 20 72 65 73 75 6c 74 73 2c 20  are no results, 
13e0: 72 65 74 75 72 6e 20 61 20 6d 65 73 73 61 67 65  return a message
13f0: 20 74 6f 20 74 68 61 74 20 65 66 66 65 63 74 2e   to that effect.
1400: 0a 20 20 23 0a 20 20 69 66 20 7b 5b 6c 6c 65 6e  .  #.  if {[llen
1410: 67 74 68 20 24 6c 52 65 73 5d 20 3d 3d 20 30 7d  gth $lRes] == 0}
1420: 20 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 5b 73   {.    return [s
1430: 75 62 73 74 20 7b 20 4e 6f 20 72 65 73 75 6c 74  ubst { No result
1440: 73 20 66 6f 72 3a 20 3c 62 3e 5b 68 74 6d 6c 69  s for: <b>[htmli
1450: 7a 65 20 24 3a 3a 41 28 71 29 5d 3c 2f 62 3e 20  ze $::A(q)]</b> 
1460: 7d 5d 0a 20 20 7d 0a 20 20 0a 20 20 23 20 48 54  }].  }.  .  # HT
1470: 4d 4c 20 6d 61 72 6b 75 70 20 75 73 65 64 20 74  ML markup used t
1480: 6f 20 68 69 67 68 6c 69 67 68 74 20 6b 65 79 77  o highlight keyw
1490: 6f 72 64 73 20 77 69 74 68 69 6e 20 46 54 53 35  ords within FTS5
14a0: 20 67 65 6e 65 72 61 74 65 64 20 73 6e 69 70 70   generated snipp
14b0: 65 74 73 2e 0a 20 20 23 0a 20 20 73 65 74 20 6f  ets..  #.  set o
14c0: 70 65 6e 20 7b 3c 73 70 61 6e 20 73 74 79 6c 65  pen {<span style
14d0: 3d 22 62 61 63 6b 67 72 6f 75 6e 64 2d 63 6f 6c  ="background-col
14e0: 6f 72 3a 23 64 39 66 32 65 36 22 3e 7d 0a 20 20  or:#d9f2e6">}.  
14f0: 73 65 74 20 63 6c 6f 73 65 20 7b 3c 2f 73 70 61  set close {</spa
1500: 6e 3e 7d 0a 20 20 73 65 74 20 65 6c 6c 69 70 73  n>}.  set ellips
1510: 69 73 20 7b 3c 62 3e 26 6e 62 73 70 3b 2e 2e 2e  is {<b>&nbsp;...
1520: 26 6e 62 73 70 3b 3c 2f 62 3e 7d 0a 0a 20 20 23  &nbsp;</b>}..  #
1530: 20 47 72 61 62 20 74 68 65 20 72 65 71 75 69 72   Grab the requir
1540: 65 64 20 64 61 74 61 0a 20 20 23 0a 20 20 64 62  ed data.  #.  db
1550: 20 65 76 61 6c 20 5b 73 74 72 69 6e 67 20 6d 61   eval [string ma
1560: 70 20 5b 6c 69 73 74 20 25 4c 49 53 54 25 20 5b  p [list %LIST% [
1570: 6a 6f 69 6e 20 24 6c 52 6f 77 69 64 20 2c 5d 5d  join $lRowid ,]]
1580: 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 0a 20   {.    SELECT . 
1590: 20 20 20 20 20 72 6f 77 69 64 20 41 53 20 70 61       rowid AS pa
15a0: 72 65 6e 74 69 64 2c 20 0a 20 20 20 20 20 20 73  rentid, .      s
15b0: 6e 69 70 70 65 74 28 70 61 67 65 2c 20 30 2c 20  nippet(page, 0, 
15c0: 24 6f 70 65 6e 2c 20 24 63 6c 6f 73 65 2c 20 24  $open, $close, $
15d0: 65 6c 6c 69 70 73 69 73 2c 20 36 29 20 20 41 53  ellipsis, 6)  AS
15e0: 20 73 5f 61 70 69 73 2c 0a 20 20 20 20 20 20 73   s_apis,.      s
15f0: 6e 69 70 70 65 74 28 70 61 67 65 2c 20 32 2c 20  nippet(page, 2, 
1600: 24 6f 70 65 6e 2c 20 24 63 6c 6f 73 65 2c 20 27  $open, $close, '
1610: 27 2c 20 34 30 29 20 20 20 20 20 20 20 20 41 53  ', 40)        AS
1620: 20 73 5f 74 69 74 6c 65 31 2c 0a 20 20 20 20 20   s_title1,.     
1630: 20 73 6e 69 70 70 65 74 28 70 61 67 65 2c 20 33   snippet(page, 3
1640: 2c 20 24 6f 70 65 6e 2c 20 24 63 6c 6f 73 65 2c  , $open, $close,
1650: 20 24 65 6c 6c 69 70 73 69 73 2c 20 34 30 29 20   $ellipsis, 40) 
1660: 41 53 20 73 5f 74 69 74 6c 65 32 2c 0a 20 20 20  AS s_title2,.   
1670: 20 20 20 73 6e 69 70 70 65 74 28 70 61 67 65 2c     snippet(page,
1680: 20 34 2c 20 24 6f 70 65 6e 2c 20 24 63 6c 6f 73   4, $open, $clos
1690: 65 2c 20 24 65 6c 6c 69 70 73 69 73 2c 20 34 30  e, $ellipsis, 40
16a0: 29 20 41 53 20 73 5f 63 6f 6e 74 65 6e 74 2c 0a  ) AS s_content,.
16b0: 20 20 20 20 20 20 75 72 6c 2c 20 72 61 6e 6b 0a        url, rank.
16c0: 20 20 20 20 46 52 4f 4d 20 70 61 67 65 28 24 3a      FROM page($:
16d0: 3a 41 28 71 29 29 0a 20 20 20 20 57 48 45 52 45  :A(q)).    WHERE
16e0: 20 72 6f 77 69 64 20 49 4e 20 28 25 4c 49 53 54   rowid IN (%LIST
16f0: 25 29 0a 20 20 7d 5d 20 58 20 7b 0a 20 20 20 20  %).  }] X {.    
1700: 66 6f 72 65 61 63 68 20 6b 20 5b 61 72 72 61 79  foreach k [array
1710: 20 6e 61 6d 65 73 20 58 5d 20 7b 20 73 65 74 20   names X] { set 
1720: 64 61 74 61 28 24 58 28 70 61 72 65 6e 74 69 64  data($X(parentid
1730: 29 2c 24 6b 29 20 5b 73 65 74 20 58 28 24 6b 29  ),$k) [set X($k)
1740: 5d 20 7d 0a 20 20 7d 0a 0a 20 20 73 65 74 20 72  ] }.  }..  set r
1750: 65 74 20 5b 73 75 62 73 74 20 7b 0a 20 20 20 20  et [subst {.    
1760: 3c 74 61 62 6c 65 20 62 6f 72 64 65 72 3d 30 3e  <table border=0>
1770: 0a 20 20 20 20 3c 70 3e 53 65 61 72 63 68 20 72  .    <p>Search r
1780: 65 73 75 6c 74 73 20 0a 20 20 20 20 20 20 20 5b  esults .       [
1790: 65 78 70 72 20 24 69 53 74 61 72 74 2b 31 5d 2e  expr $iStart+1].
17a0: 2e 5b 65 78 70 72 20 7b 28 24 6e 52 65 73 20 3c  .[expr {($nRes <
17b0: 20 24 69 53 74 61 72 74 2b 31 30 29 20 3f 20 24   $iStart+10) ? $
17c0: 6e 52 65 73 20 3a 20 24 69 53 74 61 72 74 2b 31  nRes : $iStart+1
17d0: 30 7d 5d 20 0a 20 20 20 20 20 20 20 6f 66 20 24  0}] .       of $
17e0: 6e 52 65 73 20 66 6f 72 3a 20 3c 62 3e 5b 68 74  nRes for: <b>[ht
17f0: 6d 6c 69 7a 65 20 24 3a 3a 41 28 71 29 5d 3c 2f  mlize $::A(q)]</
1800: 62 3e 0a 20 20 7d 5d 0a 0a 20 20 66 6f 72 65 61  b>.  }]..  forea
1810: 63 68 20 72 6f 77 69 64 20 24 6c 52 65 73 20 7b  ch rowid $lRes {
1820: 0a 0a 20 20 20 20 66 6f 72 65 61 63 68 20 61 20  ..    foreach a 
1830: 7b 70 61 72 65 6e 74 69 64 20 73 5f 61 70 69 73  {parentid s_apis
1840: 20 73 5f 74 69 74 6c 65 31 20 73 5f 63 6f 6e 74   s_title1 s_cont
1850: 65 6e 74 20 75 72 6c 20 72 61 6e 6b 7d 20 7b 0a  ent url rank} {.
1860: 20 20 20 20 20 20 73 65 74 20 24 61 20 24 64 61        set $a $da
1870: 74 61 28 24 72 6f 77 69 64 2c 24 61 29 0a 20 20  ta($rowid,$a).  
1880: 20 20 7d 0a 0a 20 20 20 20 69 66 20 7b 5b 69 6e    }..    if {[in
1890: 66 6f 20 65 78 69 73 74 73 20 73 75 62 73 65 63  fo exists subsec
18a0: 74 69 6f 6e 73 28 24 70 61 72 65 6e 74 69 64 29  tions($parentid)
18b0: 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 63  ]} {.      set c
18c0: 68 69 6c 64 69 64 20 5b 6c 69 6e 64 65 78 20 24  hildid [lindex $
18d0: 73 75 62 73 65 63 74 69 6f 6e 73 28 24 70 61 72  subsections($par
18e0: 65 6e 74 69 64 29 20 30 5d 0a 20 20 20 20 20 20  entid) 0].      
18f0: 73 65 74 20 6c 69 6e 6b 20 24 64 61 74 61 28 24  set link $data($
1900: 63 68 69 6c 64 69 64 2c 75 72 6c 29 0a 20 20 20  childid,url).   
1910: 20 20 20 73 65 74 20 68 64 72 20 24 64 61 74 61     set hdr $data
1920: 28 24 63 68 69 6c 64 69 64 2c 73 5f 74 69 74 6c  ($childid,s_titl
1930: 65 32 29 0a 0a 20 20 20 20 20 20 69 66 20 7b 24  e2)..      if {$
1940: 68 64 72 3d 3d 22 22 7d 20 7b 0a 20 20 20 20 20  hdr==""} {.     
1950: 20 20 20 73 65 74 20 73 5f 63 6f 6e 74 65 6e 74     set s_content
1960: 20 22 22 0a 20 20 20 20 20 20 7d 20 65 6c 73 65   "".      } else
1970: 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 73   {.        set s
1980: 5f 63 6f 6e 74 65 6e 74 20 5b 73 75 62 73 74 20  _content [subst 
1990: 7b 0a 20 20 20 20 20 20 20 20 20 20 3c 62 3e 3c  {.          <b><
19a0: 61 20 73 74 79 6c 65 3d 63 6f 6c 6f 72 3a 23 30  a style=color:#0
19b0: 34 34 61 36 34 20 68 72 65 66 3d 24 6c 69 6e 6b  44a64 href=$link
19c0: 3e 24 68 64 72 3c 2f 61 3e 3c 2f 62 3e 0a 20 20  >$hdr</a></b>.  
19d0: 20 20 20 20 20 20 7d 5d 0a 20 20 20 20 20 20 7d        }].      }
19e0: 0a 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20 73  ..      append s
19f0: 5f 63 6f 6e 74 65 6e 74 20 22 20 24 64 61 74 61  _content " $data
1a00: 28 24 63 68 69 6c 64 69 64 2c 73 5f 63 6f 6e 74  ($childid,s_cont
1a10: 65 6e 74 29 22 0a 20 20 20 20 7d 0a 0a 20 20 20  ent)".    }..   
1a20: 20 61 70 70 65 6e 64 20 72 65 74 20 5b 73 75 62   append ret [sub
1a30: 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 7b  st -nocommands {
1a40: 3c 74 72 3e 0a 20 20 20 20 20 20 3c 74 64 20 76  <tr>.      <td v
1a50: 61 6c 69 67 6e 3d 74 6f 70 20 73 74 79 6c 65 3d  align=top style=
1a60: 22 6c 69 6e 65 2d 68 65 69 67 68 74 3a 31 35 30  "line-height:150
1a70: 25 22 3e 0a 20 20 20 20 20 20 20 20 3c 64 69 76  %">.        <div
1a80: 20 73 74 79 6c 65 3d 22 77 68 69 74 65 2d 73 70   style="white-sp
1a90: 61 63 65 3a 77 72 61 70 3b 66 6f 6e 74 2d 73 69  ace:wrap;font-si
1aa0: 7a 65 3a 6c 61 72 67 65 72 22 20 63 6c 61 73 73  ze:larger" class
1ab0: 3d 6e 6f 75 6e 64 65 72 6c 69 6e 65 3e 0a 20 20  =nounderline>.  
1ac0: 20 20 20 20 20 20 20 20 3c 61 20 68 72 65 66 3d          <a href=
1ad0: 22 24 75 72 6c 22 3e 24 73 5f 74 69 74 6c 65 31  "$url">$s_title1
1ae0: 3c 2f 61 3e 20 0a 20 20 20 20 20 20 20 20 20 20  </a> .          
1af0: 3c 64 69 76 20 73 74 79 6c 65 3d 22 66 6c 6f 61  <div style="floa
1b00: 74 3a 72 69 67 68 74 3b 66 6f 6e 74 2d 73 69 7a  t:right;font-siz
1b10: 65 3a 73 6d 61 6c 6c 65 72 3b 63 6f 6c 6f 72 3a  e:smaller;color:
1b20: 23 42 42 42 22 3e 28 24 75 72 6c 29 3c 2f 64 69  #BBB">($url)</di
1b30: 76 3e 0a 20 20 20 20 20 20 20 20 3c 2f 64 69 76  v>.        </div
1b40: 3e 0a 20 20 20 20 20 20 20 20 20 20 3c 64 69 76  >.          <div
1b50: 20 73 74 79 6c 65 3d 22 6d 61 72 67 69 6e 2d 6c   style="margin-l
1b60: 65 66 74 3a 20 31 30 65 78 3b 20 66 6f 6e 74 3a  eft: 10ex; font:
1b70: 6c 61 72 67 65 72 20 6d 6f 6e 6f 73 70 61 63 65  larger monospace
1b80: 22 3e 24 73 5f 61 70 69 73 3c 2f 64 69 76 3e 0a  ">$s_apis</div>.
1b90: 20 20 20 20 20 20 20 20 3c 64 69 76 20 73 74 79          <div sty
1ba0: 6c 65 3d 22 6d 61 72 67 69 6e 2d 6c 65 66 74 3a  le="margin-left:
1bb0: 20 34 65 78 3b 20 6d 61 72 67 69 6e 2d 62 6f 74   4ex; margin-bot
1bc0: 74 6f 6d 3a 31 2e 35 65 6d 22 3e 0a 20 20 20 20  tom:1.5em">.    
1bd0: 20 20 20 20 20 20 20 24 73 5f 63 6f 6e 74 65 6e         $s_conten
1be0: 74 20 0a 20 20 20 20 20 20 20 20 3c 2f 64 69 76  t .        </div
1bf0: 3e 0a 20 20 20 20 20 20 3c 2f 74 64 3e 0a 20 20  >.      </td>.  
1c00: 20 20 7d 5d 0a 20 20 7d 0a 20 20 61 70 70 65 6e    }].  }.  appen
1c10: 64 20 72 65 74 20 7b 20 3c 2f 74 61 62 6c 65 3e  d ret { </table>
1c20: 20 7d 0a 0a 0a 20 20 23 20 49 66 20 74 68 65 20   }...  # If the 
1c30: 71 75 65 72 79 20 72 65 74 75 72 6e 65 64 20 6d  query returned m
1c40: 6f 72 65 20 74 68 61 6e 20 31 30 20 72 65 73 75  ore than 10 resu
1c50: 6c 74 73 2c 20 61 64 64 20 75 70 20 74 6f 20 31  lts, add up to 1
1c60: 30 20 6c 69 6e 6b 73 20 74 6f 20 0a 20 20 23 20  0 links to .  # 
1c70: 65 61 63 68 20 73 65 74 20 6f 66 20 31 30 20 72  each set of 10 r
1c80: 65 73 75 6c 74 73 20 28 66 69 72 73 74 20 6c 69  esults (first li
1c90: 6e 6b 20 74 6f 20 72 65 73 75 6c 74 73 20 31 2d  nk to results 1-
1ca0: 31 30 2c 20 73 65 63 6f 6e 64 20 74 6f 20 31 31  10, second to 11
1cb0: 2d 32 30 2c 20 0a 20 20 23 20 74 68 69 72 64 20  -20, .  # third 
1cc0: 74 6f 20 32 31 2d 33 30 2c 20 61 73 20 72 65 71  to 21-30, as req
1cd0: 75 69 72 65 64 29 2e 0a 20 20 23 0a 20 20 69 66  uired)..  #.  if
1ce0: 20 7b 24 6e 52 65 73 3e 31 30 7d 20 7b 0a 20 20   {$nRes>10} {.  
1cf0: 20 20 73 65 74 20 73 28 30 29 20 7b 62 6f 72 64    set s(0) {bord
1d00: 65 72 3a 20 73 6f 6c 69 64 20 23 30 34 34 61 36  er: solid #044a6
1d10: 34 20 31 70 78 20 3b 20 70 61 64 64 69 6e 67 3a  4 1px ; padding:
1d20: 20 31 65 78 20 3b 20 6d 61 72 67 69 6e 3a 20 31   1ex ; margin: 1
1d30: 65 78 7d 0a 20 20 20 20 73 65 74 20 73 28 31 29  ex}.    set s(1)
1d40: 20 22 24 73 28 30 29 3b 62 61 63 6b 67 72 6f 75   "$s(0);backgrou
1d50: 6e 64 3a 23 30 34 34 61 36 34 3b 63 6f 6c 6f 72  nd:#044a64;color
1d60: 3a 77 68 69 74 65 22 0a 20 20 20 20 61 70 70 65  :white".    appe
1d70: 6e 64 20 72 65 74 20 3c 63 65 6e 74 65 72 3e 3c  nd ret <center><
1d80: 70 3e 0a 20 20 20 20 66 6f 72 20 7b 73 65 74 20  p>.    for {set 
1d90: 69 20 30 7d 20 7b 24 69 20 3c 20 31 30 20 26 26  i 0} {$i < 10 &&
1da0: 20 28 24 69 2a 31 30 29 3c 24 6e 52 65 73 7d 20   ($i*10)<$nRes} 
1db0: 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20 20  {incr i} {.     
1dc0: 20 61 70 70 65 6e 64 20 72 65 74 20 5b 73 75 62   append ret [sub
1dd0: 73 74 20 7b 0a 20 20 20 20 20 20 20 20 3c 61 20  st {.        <a 
1de0: 73 74 79 6c 65 3d 22 24 73 28 5b 65 78 70 72 20  style="$s([expr 
1df0: 7b 28 24 69 53 74 61 72 74 2f 31 30 29 3d 3d 24  {($iStart/10)==$
1e00: 69 7d 5d 29 22 20 0a 20 20 20 20 20 20 20 20 20  i}])" .         
1e10: 20 20 68 72 65 66 3d 22 73 65 61 72 63 68 3f 5b    href="search?[
1e20: 63 67 69 5f 65 6e 63 6f 64 65 5f 61 72 67 73 20  cgi_encode_args 
1e30: 5b 6c 69 73 74 20 71 20 24 3a 3a 41 28 71 29 20  [list q $::A(q) 
1e40: 69 20 24 69 5d 5d 22 3e 5b 65 78 70 72 20 24 69  i $i]]">[expr $i
1e50: 2b 31 5d 3c 2f 61 3e 0a 20 20 20 20 20 20 7d 5d  +1]</a>.      }]
1e60: 0a 20 20 20 20 7d 0a 20 20 20 20 61 70 70 65 6e  .    }.    appen
1e70: 64 20 72 65 74 20 3c 2f 63 65 6e 74 65 72 3e 0a  d ret </center>.
1e80: 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 24 72    }..  return $r
1e90: 65 74 0a 7d 0a 0a 70 72 6f 63 20 6d 61 69 6e 20  et.}..proc main 
1ea0: 7b 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 41 0a  {} {.  global A.
1eb0: 20 20 73 71 6c 69 74 65 33 20 64 62 20 73 65 61    sqlite3 db sea
1ec0: 72 63 68 2e 64 62 0a 20 20 63 67 69 5f 70 61 72  rch.db.  cgi_par
1ed0: 73 65 5f 61 72 67 73 0a 0a 20 20 64 62 20 74 72  se_args..  db tr
1ee0: 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 20 20 20 20  ansaction {.    
1ef0: 73 65 74 20 74 20 5b 74 74 69 6d 65 20 7b 20 0a  set t [ttime { .
1f00: 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68        if {[catch
1f10: 20 73 65 61 72 63 68 72 65 73 75 6c 74 73 20 73   searchresults s
1f20: 72 63 68 6f 75 74 5d 7d 20 7b 0a 20 20 20 20 20  rchout]} {.     
1f30: 20 20 20 73 65 74 20 41 28 71 29 20 5b 73 74 72     set A(q) [str
1f40: 69 6e 67 20 74 6f 6c 6f 77 65 72 20 24 41 28 71  ing tolower $A(q
1f50: 29 5d 0a 20 20 20 20 20 20 20 20 73 65 74 20 73  )].        set s
1f60: 72 63 68 6f 75 74 20 5b 73 65 61 72 63 68 72 65  rchout [searchre
1f70: 73 75 6c 74 73 5d 0a 20 20 20 20 20 20 7d 0a 20  sults].      }. 
1f80: 20 20 20 20 20 73 65 74 20 64 6f 63 20 22 24 73       set doc "$s
1f90: 72 63 68 6f 75 74 20 5b 66 6f 6f 74 65 72 5d 22  rchout [footer]"
1fa0: 20 0a 20 20 20 20 7d 5d 0a 20 20 7d 0a 20 20 61   .    }].  }.  a
1fb0: 70 70 65 6e 64 20 64 6f 63 20 22 3c 70 3e 50 61  ppend doc "<p>Pa
1fc0: 67 65 20 67 65 6e 65 72 61 74 65 64 20 69 6e 20  ge generated in 
1fd0: 24 74 2e 22 0a 20 20 72 65 74 75 72 6e 20 24 64  $t.".  return $d
1fe0: 6f 63 0a 0a 20 20 23 20 72 65 74 75 72 6e 20 5b  oc..  # return [
1ff0: 63 67 69 5f 65 6e 76 5f 64 75 6d 70 5d 0a 7d 0a  cgi_env_dump].}.
2000: 0a 23 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  .#==============
2010: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
2020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
2030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
2040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 73 6f 75  ===========..sou
2050: 72 63 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d  rce [file dirnam
2060: 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d 5d  e [info script]]
2070: 2f 64 6f 63 75 6d 65 6e 74 5f 68 65 61 64 65 72  /document_header
2080: 2e 74 63 6c 0a 0a 69 66 20 7b 21 5b 69 6e 66 6f  .tcl..if {![info
2090: 20 65 78 69 73 74 73 20 65 6e 76 28 52 45 51 55   exists env(REQU
20a0: 45 53 54 5f 4d 45 54 48 4f 44 29 5d 7d 20 7b 0a  EST_METHOD)]} {.
20b0: 20 20 73 65 74 20 65 6e 76 28 52 45 51 55 45 53    set env(REQUES
20c0: 54 5f 4d 45 54 48 4f 44 29 20 47 45 54 0a 20 20  T_METHOD) GET.  
20d0: 73 65 74 20 65 6e 76 28 51 55 45 52 59 5f 53 54  set env(QUERY_ST
20e0: 52 49 4e 47 29 20 72 65 62 75 69 6c 64 3d 31 0a  RING) rebuild=1.
20f0: 20 20 73 65 74 20 3a 3a 48 45 41 44 45 52 20 22    set ::HEADER "
2100: 22 0a 0a 20 20 23 73 65 74 20 65 6e 76 28 51 55  "..  #set env(QU
2110: 45 52 59 5f 53 54 52 49 4e 47 29 20 7b 71 3d 22  ERY_STRING) {q="
2120: 6f 6e 65 2b 74 77 6f 2b 74 68 72 65 65 2b 66 6f  one+two+three+fo
2130: 75 72 22 2b 65 6c 65 76 65 6e 7d 0a 20 20 73 65  ur"+eleven}.  se
2140: 74 20 65 6e 76 28 51 55 45 52 59 5f 53 54 52 49  t env(QUERY_STRI
2150: 4e 47 29 20 7b 71 3d 77 69 6e 64 6f 77 73 7d 0a  NG) {q=windows}.
2160: 20 20 73 65 74 20 3a 3a 48 45 41 44 45 52 20 22    set ::HEADER "
2170: 22 0a 7d 0a 0a 69 66 20 7b 30 3d 3d 5b 63 61 74  ".}..if {0==[cat
2180: 63 68 20 6d 61 69 6e 20 72 65 73 5d 7d 20 7b 0a  ch main res]} {.
2190: 20 20 73 65 74 20 74 69 74 6c 65 20 22 53 65 61    set title "Sea
21a0: 72 63 68 20 53 51 4c 69 74 65 20 44 6f 63 75 6d  rch SQLite Docum
21b0: 65 6e 74 61 74 69 6f 6e 22 0a 20 20 69 66 20 7b  entation".  if {
21c0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 41  [info exists ::A
21d0: 28 71 29 5d 7d 20 7b 0a 20 20 20 20 73 65 74 20  (q)]} {.    set 
21e0: 69 6e 69 74 73 65 61 72 63 68 20 5b 61 74 74 72  initsearch [attr
21f0: 69 7a 65 20 24 3a 3a 41 28 71 29 5d 0a 20 20 20  ize $::A(q)].   
2200: 20 61 70 70 65 6e 64 20 74 69 74 6c 65 20 22 20   append title " 
2210: 2d 20 5b 68 74 6d 6c 69 7a 65 20 24 3a 3a 41 28  - [htmlize $::A(
2220: 71 29 5d 22 0a 20 20 7d 20 65 6c 73 65 20 7b 0a  q)]".  } else {.
2230: 20 20 20 20 73 65 74 20 69 6e 69 74 73 65 61 72      set initsear
2240: 63 68 20 7b 7d 0a 20 20 7d 0a 20 20 73 65 74 20  ch {}.  }.  set 
2250: 64 6f 63 75 6d 65 6e 74 20 5b 64 6f 63 75 6d 65  document [docume
2260: 6e 74 5f 68 65 61 64 65 72 20 24 74 69 74 6c 65  nt_header $title
2270: 20 22 22 20 24 69 6e 69 74 73 65 61 72 63 68 5d   "" $initsearch]
2280: 0a 20 20 61 70 70 65 6e 64 20 64 6f 63 75 6d 65  .  append docume
2290: 6e 74 20 24 72 65 73 0a 7d 20 65 6c 73 65 20 7b  nt $res.} else {
22a0: 0a 20 20 73 65 74 20 64 6f 63 75 6d 65 6e 74 20  .  set document 
22b0: 22 3c 70 72 65 3e 22 0a 20 20 61 70 70 65 6e 64  "<pre>".  append
22c0: 20 64 6f 63 75 6d 65 6e 74 20 22 45 72 72 6f 72   document "Error
22d0: 3a 20 24 72 65 73 5c 6e 5c 6e 22 0a 20 20 61 70  : $res\n\n".  ap
22e0: 70 65 6e 64 20 64 6f 63 75 6d 65 6e 74 20 24 3a  pend document $:
22f0: 3a 65 72 72 6f 72 49 6e 66 6f 0a 20 20 61 70 70  :errorInfo.  app
2300: 65 6e 64 20 64 6f 63 75 6d 65 6e 74 20 22 3c 2f  end document "</
2310: 70 72 65 3e 22 0a 7d 0a 0a 70 75 74 73 20 22 43  pre>".}..puts "C
2320: 6f 6e 74 65 6e 74 2d 74 79 70 65 3a 20 74 65 78  ontent-type: tex
2330: 74 2f 68 74 6d 6c 22 20 0a 70 75 74 73 20 22 43  t/html" .puts "C
2340: 6f 6e 74 65 6e 74 2d 4c 65 6e 67 74 68 3a 20 5b  ontent-Length: [
2350: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 64  string length $d
2360: 6f 63 75 6d 65 6e 74 5d 22 0a 70 75 74 73 20 22  ocument]".puts "
2370: 22 0a 70 75 74 73 20 24 64 6f 63 75 6d 65 6e 74  ".puts $document
2380: 0a 70 75 74 73 20 22 22 0a 66 6c 75 73 68 20 73  .puts "".flush s
2390: 74 64 6f 75 74 0a 63 6c 6f 73 65 20 73 74 64 6f  tdout.close stdo
23a0: 75 74 0a 0a 65 78 69 74 0a                       ut..exit.