Documentation Source Text

Hex Artifact Content
Login

Artifact b1fab154c9d717efa3fe916ed0281fcf90aac93d:


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 34 0a 0a 23 3d 3d 3d 3d 3d 3d 3d 3d  lite4..#========
0020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0050: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0060: 3d 0a 23 20 44 65 63 6f 64 65 20 61 6e 20 48 54  =.# Decode an HT
0070: 54 50 20 25 2d 65 6e 63 6f 64 65 64 20 73 74 72  TP %-encoded str
0080: 69 6e 67 0a 23 0a 70 72 6f 63 20 70 65 72 63 65  ing.#.proc perce
0090: 6e 74 5f 64 65 63 6f 64 65 20 7b 73 74 72 7d 20  nt_decode {str} 
00a0: 7b 0a 20 20 20 20 23 20 72 65 77 72 69 74 65 20  {.    # rewrite 
00b0: 22 2b 22 20 62 61 63 6b 20 74 6f 20 73 70 61 63  "+" back to spac
00c0: 65 0a 20 20 20 20 23 20 70 72 6f 74 65 63 74 20  e.    # protect 
00d0: 5c 20 61 6e 64 20 5b 20 61 6e 64 20 5d 20 62 79  \ and [ and ] by
00e0: 20 71 75 6f 74 69 6e 67 20 77 69 74 68 20 27 5c   quoting with '\
00f0: 27 0a 20 20 20 20 73 65 74 20 73 74 72 20 5b 73  '.    set str [s
0100: 74 72 69 6e 67 20 6d 61 70 20 5b 6c 69 73 74 20  tring map [list 
0110: 2b 20 7b 20 7d 20 22 5c 5c 22 20 22 5c 5c 5c 5c  + { } "\\" "\\\\
0120: 22 20 5c 5b 20 5c 5c 5c 5b 20 5c 5d 20 5c 5c 5c  " \[ \\\[ \] \\\
0130: 5d 5d 20 24 73 74 72 5d 0a 0a 20 20 20 20 23 20  ]] $str]..    # 
0140: 70 72 65 70 61 72 65 20 74 6f 20 70 72 6f 63 65  prepare to proce
0150: 73 73 20 61 6c 6c 20 25 2d 65 73 63 61 70 65 73  ss all %-escapes
0160: 0a 20 20 20 20 72 65 67 73 75 62 20 2d 61 6c 6c  .    regsub -all
0170: 20 2d 2d 20 7b 25 28 5b 41 2d 46 61 2d 66 5d 5b   -- {%([A-Fa-f][
0180: 41 2d 46 61 2d 66 30 2d 39 5d 29 25 28 5b 41 2d  A-Fa-f0-9])%([A-
0190: 46 61 2d 66 38 39 5d 5b 41 2d 46 61 2d 66 30 2d  Fa-f89][A-Fa-f0-
01a0: 39 5d 29 7d 20 5c 0a 20 20 20 20 20 20 20 20 24  9])} \.        $
01b0: 73 74 72 20 7b 5b 65 6e 63 6f 64 69 6e 67 20 63  str {[encoding c
01c0: 6f 6e 76 65 72 74 66 72 6f 6d 20 75 74 66 2d 38  onvertfrom utf-8
01d0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
01e0: 68 65 78 20 5c 31 5c 32 5d 5d 7d 20 73 74 72 0a  hex \1\2]]} str.
01f0: 20 20 20 20 72 65 67 73 75 62 20 2d 61 6c 6c 20      regsub -all 
0200: 2d 2d 20 7b 25 28 5b 30 2d 37 5d 5b 41 2d 46 61  -- {%([0-7][A-Fa
0210: 2d 66 30 2d 39 5d 29 7d 20 24 73 74 72 20 7b 5c  -f0-9])} $str {\
0220: 5c 75 30 30 5c 31 7d 20 73 74 72 0a 0a 20 20 20  \u00\1} str..   
0230: 20 23 20 70 72 6f 63 65 73 73 20 25 2d 65 73 63   # process %-esc
0240: 61 70 65 73 0a 20 20 20 20 72 65 74 75 72 6e 20  apes.    return 
0250: 5b 73 75 62 73 74 20 2d 6e 6f 76 61 72 20 24 73  [subst -novar $s
0260: 74 72 5d 0a 7d 0a 0a 23 3d 3d 3d 3d 3d 3d 3d 3d  tr].}..#========
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 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
02b0: 3d 0a 23 20 54 68 69 73 20 70 72 6f 63 20 69 73  =.# This proc is
02c0: 20 63 61 6c 6c 65 64 20 74 6f 20 70 61 72 73 65   called to parse
02d0: 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 20 70   the arguments p
02e0: 61 73 73 65 64 20 74 6f 20 74 68 69 73 20 69 6e  assed to this in
02f0: 76 6f 63 61 74 69 6f 6e 20 6f 66 0a 23 20 74 68  vocation of.# th
0300: 65 20 43 47 49 20 70 72 6f 67 72 61 6d 20 28 76  e CGI program (v
0310: 69 61 20 65 69 74 68 65 72 20 74 68 65 20 47 45  ia either the GE
0320: 54 20 6f 72 20 50 4f 53 54 20 6d 65 74 68 6f 64  T or POST method
0330: 29 2e 20 49 74 20 72 65 74 75 72 6e 73 20 61 0a  ). It returns a.
0340: 23 20 6b 65 79 2f 76 61 6c 75 65 20 6c 69 73 74  # key/value list
0350: 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20   containing the 
0360: 61 72 67 75 6d 65 6e 74 73 20 73 75 69 74 61 62  arguments suitab
0370: 6c 65 20 66 6f 72 20 70 61 73 73 69 6e 67 20 74  le for passing t
0380: 6f 20 5b 61 72 72 61 79 0a 23 20 73 65 74 5d 2e  o [array.# set].
0390: 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 69 66   For example, if
03a0: 20 74 68 65 20 43 47 49 20 69 73 20 69 6e 76 6f   the CGI is invo
03b0: 6b 65 64 20 76 69 61 20 61 20 47 45 54 20 72 65  ked via a GET re
03c0: 71 75 65 73 74 20 6f 6e 20 74 68 65 20 55 52 49  quest on the URI
03d0: 3a 0a 23 0a 23 20 20 20 68 74 74 70 3a 2f 2f 77  :.#.#   http://w
03e0: 77 77 2e 73 71 6c 69 74 65 2e 6f 72 67 2f 73 65  ww.sqlite.org/se
03f0: 61 72 63 68 3f 71 75 65 72 79 3d 66 74 73 33 2b  arch?query=fts3+
0400: 74 61 62 6c 65 26 72 65 73 75 6c 74 73 3d 31 30  table&results=10
0410: 0a 23 0a 23 20 74 68 65 6e 20 74 68 65 20 72 65  .#.# then the re
0420: 74 75 72 6e 65 64 20 6c 69 73 74 20 76 61 6c 75  turned list valu
0430: 65 20 69 73 3a 20 0a 23 0a 23 20 20 20 7b 71 75  e is: .#.#   {qu
0440: 65 72 79 20 7b 66 74 73 33 20 74 61 62 6c 65 7d  ery {fts3 table}
0450: 20 72 65 73 75 6c 74 73 20 31 30 7d 0a 23 0a 70   results 10}.#.p
0460: 72 6f 63 20 63 67 69 5f 70 61 72 73 65 5f 61 72  roc cgi_parse_ar
0470: 67 73 20 7b 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c  gs {} {.  global
0480: 20 65 6e 76 20 41 0a 0a 20 20 69 66 20 7b 24 65   env A..  if {$e
0490: 6e 76 28 52 45 51 55 45 53 54 5f 4d 45 54 48 4f  nv(REQUEST_METHO
04a0: 44 29 20 3d 3d 20 22 47 45 54 22 7d 20 7b 0a 20  D) == "GET"} {. 
04b0: 20 20 20 66 6f 72 65 61 63 68 20 71 20 5b 73 70     foreach q [sp
04c0: 6c 69 74 20 24 65 6e 76 28 51 55 45 52 59 5f 53  lit $env(QUERY_S
04d0: 54 52 49 4e 47 29 20 26 5d 20 7b 0a 20 20 20 20  TRING) &] {.    
04e0: 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 28    if {[regexp {(
04f0: 5b 61 2d 7a 30 2d 39 5d 2a 29 3d 28 2e 2a 29 7d  [a-z0-9]*)=(.*)}
0500: 20 24 71 20 61 6c 6c 20 76 61 72 20 76 61 6c 75   $q all var valu
0510: 65 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 73 65  e]} {.        se
0520: 74 20 41 28 24 76 61 72 29 20 5b 70 65 72 63 65  t A($var) [perce
0530: 6e 74 5f 64 65 63 6f 64 65 20 24 76 61 6c 75 65  nt_decode $value
0540: 5d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a  ].      }.    }.
0550: 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 65 6e 76    } elseif {$env
0560: 28 52 45 51 55 45 53 54 5f 4d 45 54 48 4f 44 29  (REQUEST_METHOD)
0570: 20 3d 3d 20 22 50 4f 53 54 22 7d 20 7b 0a 20 20   == "POST"} {.  
0580: 20 20 73 65 74 20 71 73 74 72 69 6e 67 20 5b 72    set qstring [r
0590: 65 61 64 20 73 74 64 69 6e 20 24 65 6e 76 28 43  ead stdin $env(C
05a0: 4f 4e 54 45 4e 54 5f 4c 45 4e 47 54 48 29 5d 0a  ONTENT_LENGTH)].
05b0: 20 20 20 20 66 6f 72 65 61 63 68 20 71 20 5b 73      foreach q [s
05c0: 70 6c 69 74 20 24 71 73 74 72 69 6e 67 20 26 5d  plit $qstring &]
05d0: 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 5b 72 65   {.      if {[re
05e0: 67 65 78 70 20 7b 28 5b 61 2d 7a 30 2d 39 5d 2a  gexp {([a-z0-9]*
05f0: 29 3d 28 2e 2a 29 7d 20 24 71 20 61 6c 6c 20 76  )=(.*)} $q all v
0600: 61 72 20 76 61 6c 75 65 5d 7d 20 7b 0a 20 20 20  ar value]} {.   
0610: 20 20 20 20 20 73 65 74 20 41 28 24 76 61 72 29       set A($var)
0620: 20 5b 70 65 72 63 65 6e 74 5f 64 65 63 6f 64 65   [percent_decode
0630: 20 24 76 61 6c 75 65 5d 0a 20 20 20 20 20 20 7d   $value].      }
0640: 0a 20 20 20 20 7d 0a 20 20 7d 20 65 6c 73 65 20  .    }.  } else 
0650: 7b 0a 20 20 20 20 65 72 72 6f 72 20 22 55 6e 72  {.    error "Unr
0660: 65 63 6f 67 6e 69 7a 65 64 20 6d 65 74 68 6f 64  ecognized method
0670: 3a 20 24 65 6e 76 28 52 45 51 55 45 53 54 5f 4d  : $env(REQUEST_M
0680: 45 54 48 4f 44 29 22 0a 20 20 7d 0a 7d 0a 0a 0a  ETHOD)".  }.}...
0690: 23 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 3d  ================
06d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 23 20 52 65 64  ==========.# Red
06e0: 69 72 65 63 74 20 74 68 65 20 77 65 62 2d 62 72  irect the web-br
06f0: 6f 77 73 65 72 20 74 6f 20 55 52 4c 20 24 75 72  owser to URL $ur
0700: 6c 2e 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20  l. This command 
0710: 64 6f 65 73 20 6e 6f 74 20 72 65 74 75 72 6e 2e  does not return.
0720: 0a 23 0a 70 72 6f 63 20 63 67 69 5f 72 65 64 69  .#.proc cgi_redi
0730: 72 65 63 74 20 7b 75 72 6c 7d 20 7b 0a 20 20 73  rect {url} {.  s
0740: 65 74 20 73 65 72 76 65 72 20 24 3a 3a 65 6e 76  et server $::env
0750: 28 53 45 52 56 45 52 5f 4e 41 4d 45 29 0a 20 20  (SERVER_NAME).  
0760: 73 65 74 20 70 61 74 68 20 5b 66 69 6c 65 20 64  set path [file d
0770: 69 72 6e 61 6d 65 20 24 3a 3a 65 6e 76 28 52 45  irname $::env(RE
0780: 51 55 45 53 54 5f 55 52 49 29 5d 0a 20 20 69 66  QUEST_URI)].  if
0790: 20 7b 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20   {[string range 
07a0: 24 70 61 74 68 20 65 6e 64 20 65 6e 64 5d 21 3d  $path end end]!=
07b0: 22 2f 22 7d 20 7b 0a 20 20 20 20 61 70 70 65 6e  "/"} {.    appen
07c0: 64 20 70 61 74 68 20 2f 0a 20 20 7d 0a 0a 20 20  d path /.  }..  
07d0: 70 75 74 73 20 22 53 74 61 74 75 73 3a 20 33 30  puts "Status: 30
07e0: 32 20 52 65 64 69 72 65 63 74 22 0a 20 20 70 75  2 Redirect".  pu
07f0: 74 73 20 22 4c 6f 63 61 74 69 6f 6e 3a 20 68 74  ts "Location: ht
0800: 74 70 3a 2f 2f 24 7b 73 65 72 76 65 72 7d 24 7b  tp://${server}${
0810: 70 61 74 68 7d 24 7b 75 72 6c 7d 22 0a 20 20 70  path}${url}".  p
0820: 75 74 73 20 22 43 6f 6e 74 65 6e 74 2d 4c 65 6e  uts "Content-Len
0830: 67 74 68 3a 20 30 22 0a 20 20 70 75 74 73 20 22  gth: 0".  puts "
0840: 22 0a 20 20 65 78 69 74 0a 7d 0a 0a 23 3d 3d 3d  ".  exit.}..#===
0850: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0860: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0870: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0880: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0890: 3d 3d 3d 3d 3d 3d 0a 23 20 54 68 65 20 61 72 67  ======.# The arg
08a0: 75 6d 65 6e 74 20 63 6f 6e 74 61 69 6e 73 20 61  ument contains a
08b0: 20 6b 65 79 20 76 61 6c 75 65 20 6c 69 73 74 2e   key value list.
08c0: 20 54 68 65 20 76 61 6c 75 65 73 20 69 6e 20 74   The values in t
08d0: 68 65 20 6c 69 73 74 20 61 72 65 0a 23 20 74 72  he list are.# tr
08e0: 61 6e 73 66 6f 72 6d 65 64 20 74 6f 20 61 6e 20  ansformed to an 
08f0: 48 54 54 50 20 71 75 65 72 79 20 6b 65 79 20 76  HTTP query key v
0900: 61 6c 75 65 20 6c 69 73 74 2e 20 46 6f 72 20 65  alue list. For e
0910: 78 61 6d 70 6c 65 3a 0a 23 0a 23 20 20 20 25 20  xample:.#.#   % 
0920: 63 67 69 5f 65 6e 63 6f 64 65 5f 61 72 67 73 20  cgi_encode_args 
0930: 7b 73 20 22 73 65 61 72 63 68 20 73 74 72 69 6e  {s "search strin
0940: 67 22 20 74 20 22 73 65 61 72 63 68 20 5c 22 74  g" t "search \"t
0950: 79 70 65 5c 22 22 7d 0a 23 20 20 20 73 3d 73 65  ype\""}.#   s=se
0960: 61 72 63 68 2b 73 74 72 69 6e 67 26 74 3d 73 65  arch+string&t=se
0970: 61 72 63 68 2b 25 32 32 74 79 70 65 25 32 32 0a  arch+%22type%22.
0980: 23 0a 70 72 6f 63 20 63 67 69 5f 65 6e 63 6f 64  #.proc cgi_encod
0990: 65 5f 61 72 67 73 20 7b 6c 69 73 74 7d 20 7b 0a  e_args {list} {.
09a0: 20 20 73 65 74 20 72 65 73 6c 69 73 74 20 5b 6c    set reslist [l
09b0: 69 73 74 5d 0a 20 20 66 6f 72 65 61 63 68 20 7b  ist].  foreach {
09c0: 6b 65 79 20 76 61 6c 75 65 7d 20 24 6c 69 73 74  key value} $list
09d0: 20 7b 0a 20 20 20 20 73 65 74 20 76 61 6c 75 65   {.    set value
09e0: 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 7b 0a 20   [string map {. 
09f0: 20 20 20 20 20 5c 78 32 30 20 2b 20 20 20 5c 78       \x20 +   \x
0a00: 32 31 20 25 32 31 20 5c 78 32 41 20 25 32 41 20  21 %21 \x2A %2A 
0a10: 5c 78 32 32 20 25 32 32 20 5c 78 32 37 20 25 32  \x22 %22 \x27 %2
0a20: 37 20 5c 78 32 38 20 25 32 38 20 5c 78 32 39 20  7 \x28 %28 \x29 
0a30: 25 32 39 20 5c 78 33 42 20 25 33 42 20 0a 20 20  %29 \x3B %3B .  
0a40: 20 20 20 20 5c 78 33 41 20 25 33 41 20 5c 78 34      \x3A %3A \x4
0a50: 30 20 25 34 30 20 5c 78 32 36 20 25 32 36 20 5c  0 %40 \x26 %26 \
0a60: 78 33 44 20 25 33 44 20 5c 78 32 42 20 25 32 42  x3D %3D \x2B %2B
0a70: 20 5c 78 32 34 20 25 32 34 20 5c 78 32 43 20 25   \x24 %24 \x2C %
0a80: 32 43 20 5c 78 32 46 20 25 32 46 20 0a 20 20 20  2C \x2F %2F .   
0a90: 20 20 20 5c 78 33 46 20 25 33 46 20 5c 78 32 35     \x3F %3F \x25
0aa0: 20 25 32 35 20 5c 78 32 33 20 25 32 33 20 5c 78   %25 \x23 %23 \x
0ab0: 35 42 20 25 35 42 20 5c 78 35 44 20 25 35 44 0a  5B %5B \x5D %5D.
0ac0: 20 20 20 20 7d 20 24 76 61 6c 75 65 5d 0a 0a 20      } $value].. 
0ad0: 20 20 20 6c 61 70 70 65 6e 64 20 72 65 73 6c 69     lappend resli
0ae0: 73 74 20 22 24 6b 65 79 3d 24 76 61 6c 75 65 22  st "$key=$value"
0af0: 0a 20 20 7d 0a 20 20 6a 6f 69 6e 20 24 72 65 73  .  }.  join $res
0b00: 6c 69 73 74 20 26 0a 7d 0a 0a 70 72 6f 63 20 68  list &.}..proc h
0b10: 74 6d 6c 69 7a 65 20 7b 73 74 72 7d 20 7b 20 73  tmlize {str} { s
0b20: 74 72 69 6e 67 20 6d 61 70 20 7b 3c 20 26 6c 74  tring map {< &lt
0b30: 3b 20 3e 20 26 67 74 3b 7d 20 24 73 74 72 20 7d  ; > &gt;} $str }
0b40: 0a 70 72 6f 63 20 61 74 74 72 69 7a 65 20 7b 73  .proc attrize {s
0b50: 74 72 7d 20 7b 20 73 74 72 69 6e 67 20 6d 61 70  tr} { string map
0b60: 20 7b 3c 20 26 6c 74 3b 20 3e 20 26 67 74 3b 20   {< &lt; > &gt; 
0b70: 5c 78 32 32 20 5c 78 35 63 5c 78 32 32 7d 20 24  \x22 \x5c\x22} $
0b80: 73 74 72 20 7d 0a 0a 23 3d 3d 3d 3d 3d 3d 3d 3d  str }..#========
0b90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0ba0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0bb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0bc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0bd0: 3d 0a 0a 70 72 6f 63 20 63 67 69 5f 65 6e 76 5f  =..proc cgi_env_
0be0: 64 75 6d 70 20 7b 7d 20 7b 0a 0a 20 20 73 65 74  dump {} {..  set
0bf0: 20 72 65 74 20 22 3c 68 31 3e 41 72 67 75 6d 65   ret "<h1>Argume
0c00: 6e 74 73 3c 2f 68 31 3e 3c 74 61 62 6c 65 3e 22  nts</h1><table>"
0c10: 0a 20 20 66 6f 72 65 61 63 68 20 7b 6b 65 79 20  .  foreach {key 
0c20: 76 61 6c 75 65 7d 20 5b 61 72 72 61 79 20 67 65  value} [array ge
0c30: 74 20 3a 3a 41 5d 20 7b 0a 20 20 20 20 61 70 70  t ::A] {.    app
0c40: 65 6e 64 20 72 65 74 20 22 3c 74 72 3e 3c 74 64  end ret "<tr><td
0c50: 3e 5b 68 74 6d 6c 69 7a 65 20 24 6b 65 79 5d 3c  >[htmlize $key]<
0c60: 74 64 3e 5b 68 74 6d 6c 69 7a 65 20 24 76 61 6c  td>[htmlize $val
0c70: 75 65 5d 22 0a 20 20 7d 0a 20 20 61 70 70 65 6e  ue]".  }.  appen
0c80: 64 20 72 65 74 20 22 3c 2f 74 61 62 6c 65 3e 22  d ret "</table>"
0c90: 0a 0a 20 20 61 70 70 65 6e 64 20 72 65 74 20 22  ..  append ret "
0ca0: 3c 68 31 3e 45 6e 76 69 72 6f 6e 6d 65 6e 74 3c  <h1>Environment<
0cb0: 2f 68 31 3e 3c 74 61 62 6c 65 3e 22 0a 20 20 66  /h1><table>".  f
0cc0: 6f 72 65 61 63 68 20 7b 6b 65 79 20 76 61 6c 75  oreach {key valu
0cd0: 65 7d 20 5b 61 72 72 61 79 20 67 65 74 20 3a 3a  e} [array get ::
0ce0: 65 6e 76 5d 20 7b 0a 20 20 20 20 61 70 70 65 6e  env] {.    appen
0cf0: 64 20 72 65 74 20 22 3c 74 72 3e 3c 74 64 3e 5b  d ret "<tr><td>[
0d00: 68 74 6d 6c 69 7a 65 20 24 6b 65 79 5d 3c 74 64  htmlize $key]<td
0d10: 3e 5b 68 74 6d 6c 69 7a 65 20 24 76 61 6c 75 65  >[htmlize $value
0d20: 5d 22 0a 20 20 7d 0a 20 20 61 70 70 65 6e 64 20  ]".  }.  append 
0d30: 72 65 74 20 22 3c 2f 74 61 62 6c 65 3e 22 0a 20  ret "</table>". 
0d40: 20 72 65 74 75 72 6e 20 24 72 65 74 0a 7d 0a 0a   return $ret.}..
0d50: 70 72 6f 63 20 73 65 61 72 63 68 66 6f 72 6d 20  proc searchform 
0d60: 7b 7d 20 7b 0a 20 20 72 65 74 75 72 6e 20 7b 7d  {} {.  return {}
0d70: 0a 20 20 73 65 74 20 69 6e 69 74 69 61 6c 20 22  .  set initial "
0d80: 45 6e 74 65 72 20 73 65 61 72 63 68 20 74 65 72  Enter search ter
0d90: 6d 3a 22 0a 20 20 63 61 74 63 68 20 7b 20 73 65  m:".  catch { se
0da0: 74 20 69 6e 69 74 69 61 6c 20 24 3a 3a 41 28 71  t initial $::A(q
0db0: 29 20 7d 0a 20 20 72 65 74 75 72 6e 20 5b 73 75  ) }.  return [su
0dc0: 62 73 74 20 7b 0a 20 20 20 20 3c 74 61 62 6c 65  bst {.    <table
0dd0: 20 73 74 79 6c 65 3d 22 6d 61 72 67 69 6e 3a 20   style="margin: 
0de0: 31 65 6d 20 61 75 74 6f 22 3e 20 3c 74 72 3e 3c  1em auto"> <tr><
0df0: 74 64 3e 53 65 61 72 63 68 20 53 51 4c 69 74 65  td>Search SQLite
0e00: 20 64 6f 63 73 20 66 6f 72 3a 3c 74 64 3e 0a 20   docs for:<td>. 
0e10: 20 20 20 20 20 3c 66 6f 72 6d 20 6e 61 6d 65 3d       <form name=
0e20: 66 20 6d 65 74 68 6f 64 3d 47 45 54 20 61 63 74  f method=GET act
0e30: 69 6f 6e 3d 73 65 61 72 63 68 34 3e 0a 20 20 20  ion=search4>.   
0e40: 20 20 20 20 20 3c 69 6e 70 75 74 20 6e 61 6d 65       <input name
0e50: 3d 71 20 74 79 70 65 3d 74 65 78 74 20 77 69 64  =q type=text wid
0e60: 74 68 3d 33 35 20 76 61 6c 75 65 3d 22 5b 61 74  th=35 value="[at
0e70: 74 72 69 7a 65 20 24 69 6e 69 74 69 61 6c 5d 22  trize $initial]"
0e80: 3e 3c 2f 69 6e 70 75 74 3e 0a 20 20 20 20 20 20  ></input>.      
0e90: 20 20 3c 69 6e 70 75 74 20 6e 61 6d 65 3d 73 20    <input name=s 
0ea0: 74 79 70 65 3d 73 75 62 6d 69 74 20 76 61 6c 75  type=submit valu
0eb0: 65 3d 22 53 65 61 72 63 68 22 3e 3c 2f 69 6e 70  e="Search"></inp
0ec0: 75 74 3e 0a 20 20 20 20 20 20 20 20 3c 69 6e 70  ut>.        <inp
0ed0: 75 74 20 6e 61 6d 65 3d 73 20 74 79 70 65 3d 73  ut name=s type=s
0ee0: 75 62 6d 69 74 20 76 61 6c 75 65 3d 22 4c 75 63  ubmit value="Luc
0ef0: 6b 79 22 3e 3c 2f 69 6e 70 75 74 3e 0a 20 20 20  ky"></input>.   
0f00: 20 20 20 3c 2f 66 6f 72 6d 3e 0a 20 20 20 20 3c     </form>.    <
0f10: 2f 74 61 62 6c 65 3e 0a 20 20 20 20 3c 73 63 72  /table>.    <scr
0f20: 69 70 74 3e 20 0a 20 20 20 20 20 20 64 6f 63 75  ipt> .      docu
0f30: 6d 65 6e 74 2e 66 6f 72 6d 73 2e 66 2e 71 2e 66  ment.forms.f.q.f
0f40: 6f 63 75 73 28 29 0a 20 20 20 20 20 20 64 6f 63  ocus().      doc
0f50: 75 6d 65 6e 74 2e 66 6f 72 6d 73 2e 66 2e 71 2e  ument.forms.f.q.
0f60: 73 65 6c 65 63 74 28 29 0a 20 20 20 20 3c 2f 73  select().    </s
0f70: 63 72 69 70 74 3e 0a 20 20 7d 5d 0a 7d 0a 0a 70  cript>.  }].}..p
0f80: 72 6f 63 20 66 6f 6f 74 65 72 20 7b 7d 20 7b 0a  roc footer {} {.
0f90: 20 20 72 65 74 75 72 6e 20 7b 0a 20 20 20 20 3c    return {.    <
0fa0: 68 72 3e 0a 20 20 20 20 3c 74 61 62 6c 65 20 61  hr>.    <table a
0fb0: 6c 69 67 6e 3d 72 69 67 68 74 3e 0a 20 20 20 20  lign=right>.    
0fc0: 3c 74 64 3e 0a 20 20 20 20 20 20 3c 69 3e 50 6f  <td>.      <i>Po
0fd0: 77 65 72 65 64 20 62 79 20 3c 61 20 68 72 65 66  wered by <a href
0fe0: 3d 22 68 74 74 70 3a 2f 2f 77 77 77 2e 73 71 6c  ="http://www.sql
0ff0: 69 74 65 2e 6f 72 67 2f 73 72 63 34 22 3e 46 54  ite.org/src4">FT
1000: 53 35 3c 2f 61 3e 2e 3c 2f 69 3e 0a 20 20 20 20  S5</a>.</i>.    
1010: 3c 2f 74 61 62 6c 65 3e 0a 20 20 7d 0a 7d 0a 0a  </table>.  }.}..
1020: 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  .#--------------
1030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 54 68  -----------.# Th
1070: 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 73 69  is command is si
1080: 6d 69 6c 61 72 20 74 6f 20 74 68 65 20 62 75 69  milar to the bui
1090: 6c 74 69 6e 20 54 63 6c 20 5b 74 69 6d 65 5d 20  ltin Tcl [time] 
10a0: 63 6f 6d 6d 61 6e 64 2c 20 65 78 63 65 70 74 20  command, except 
10b0: 74 68 61 74 0a 23 20 69 74 20 6f 6e 6c 79 20 65  that.# it only e
10c0: 76 65 72 20 72 75 6e 73 20 74 68 65 20 73 75 70  ver runs the sup
10d0: 70 6c 69 65 64 20 73 63 72 69 70 74 20 6f 6e 63  plied script onc
10e0: 65 2e 20 41 6c 73 6f 2c 20 69 6e 73 74 65 61 64  e. Also, instead
10f0: 20 6f 66 20 72 65 74 75 72 6e 69 6e 67 0a 23 20   of returning.# 
1100: 61 20 73 74 72 69 6e 67 20 6c 69 6b 65 20 22 78  a string like "x
1110: 78 78 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73 20  xx microseconds 
1120: 70 65 72 20 69 74 65 72 61 74 69 6f 6e 22 2c 20  per iteration", 
1130: 69 74 20 72 65 74 75 72 6e 73 20 22 78 2e 79 79  it returns "x.yy
1140: 20 6d 73 22 20 6f 72 0a 23 20 22 78 2e 79 79 20   ms" or.# "x.yy 
1150: 73 22 2c 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e  s", depending on
1160: 20 74 68 65 20 6d 61 67 6e 69 74 75 64 65 20 6f   the magnitude o
1170: 66 20 74 68 65 20 74 69 6d 65 20 73 70 65 6e 74  f the time spent
1180: 20 72 75 6e 6e 69 6e 67 20 74 68 65 20 0a 23 20   running the .# 
1190: 63 6f 6d 6d 61 6e 64 2e 20 46 6f 72 20 65 78 61  command. For exa
11a0: 6d 70 6c 65 3a 0a 23 0a 23 20 20 20 25 20 74 74  mple:.#.#   % tt
11b0: 69 6d 65 20 7b 61 66 74 65 72 20 31 35 30 30 7d  ime {after 1500}
11c0: 0a 23 20 20 20 31 2e 35 30 20 73 0a 23 20 20 20  .#   1.50 s.#   
11d0: 25 20 74 74 69 6d 65 20 7b 61 66 74 65 72 20 34  % ttime {after 4
11e0: 35 7d 0a 23 20 20 20 34 35 2e 30 32 20 6d 73 0a  5}.#   45.02 ms.
11f0: 23 0a 70 72 6f 63 20 74 74 69 6d 65 20 7b 73 63  #.proc ttime {sc
1200: 72 69 70 74 7d 20 7b 0a 20 20 73 65 74 20 74 20  ript} {.  set t 
1210: 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 5b 6c  [lindex [time [l
1220: 69 73 74 20 75 70 6c 65 76 65 6c 20 24 73 63 72  ist uplevel $scr
1230: 69 70 74 5d 5d 20 30 5d 0a 20 20 69 66 20 7b 24  ipt]] 0].  if {$
1240: 74 3e 31 30 30 30 30 30 30 7d 20 7b 20 72 65 74  t>1000000} { ret
1250: 75 72 6e 20 5b 66 6f 72 6d 61 74 20 22 25 2e 32  urn [format "%.2
1260: 66 20 73 22 20 5b 65 78 70 72 20 7b 24 74 2f 31  f s" [expr {$t/1
1270: 30 30 30 30 30 30 2e 30 7d 5d 5d 20 7d 0a 20 20  000000.0}]] }.  
1280: 72 65 74 75 72 6e 20 5b 66 6f 72 6d 61 74 20 22  return [format "
1290: 25 2e 32 66 20 6d 73 22 20 5b 65 78 70 72 20 7b  %.2f ms" [expr {
12a0: 24 74 2f 31 30 30 30 2e 30 7d 5d 5d 0a 7d 0a 0a  $t/1000.0}]].}..
12b0: 70 72 6f 63 20 72 61 6e 6b 20 7b 6d 61 74 63 68  proc rank {match
12c0: 69 6e 66 6f 20 61 72 67 73 7d 20 7b 0a 20 20 62  info args} {.  b
12d0: 69 6e 61 72 79 20 73 63 61 6e 20 24 6d 61 74 63  inary scan $matc
12e0: 68 69 6e 66 6f 20 69 2a 20 49 0a 0a 20 20 73 65  hinfo i* I..  se
12f0: 74 20 6e 50 68 72 61 73 65 20 5b 6c 69 6e 64 65  t nPhrase [linde
1300: 78 20 24 49 20 30 5d 0a 20 20 73 65 74 20 6e 43  x $I 0].  set nC
1310: 6f 6c 20 5b 6c 69 6e 64 65 78 20 24 49 20 31 5d  ol [lindex $I 1]
1320: 0a 0a 20 20 73 65 74 20 47 20 5b 6c 72 61 6e 67  ..  set G [lrang
1330: 65 20 24 49 20 32 20 5b 65 78 70 72 20 7b 31 2b  e $I 2 [expr {1+
1340: 24 6e 43 6f 6c 2a 24 6e 50 68 72 61 73 65 7d 5d  $nCol*$nPhrase}]
1350: 5d 0a 20 20 73 65 74 20 4c 20 5b 6c 72 61 6e 67  ].  set L [lrang
1360: 65 20 24 49 20 5b 65 78 70 72 20 7b 32 2b 24 6e  e $I [expr {2+$n
1370: 43 6f 6c 2a 24 6e 50 68 72 61 73 65 7d 5d 20 65  Col*$nPhrase}] e
1380: 6e 64 5d 0a 0a 20 20 66 6f 72 65 61 63 68 20 61  nd]..  foreach a
1390: 20 24 61 72 67 73 20 7b 20 6c 61 70 70 65 6e 64   $args { lappend
13a0: 20 6c 6f 67 20 5b 65 78 70 72 20 7b 6c 6f 67 31   log [expr {log1
13b0: 30 28 31 30 30 2b 24 61 29 7d 5d 20 7d 0a 0a 20  0(100+$a)}] }.. 
13c0: 20 73 65 74 20 73 63 6f 72 65 20 30 2e 30 0a 20   set score 0.0. 
13d0: 20 73 65 74 20 69 20 30 0a 20 20 66 6f 72 65 61   set i 0.  forea
13e0: 63 68 20 6c 20 24 4c 20 67 20 24 47 20 7b 0a 20  ch l $L g $G {. 
13f0: 20 20 20 69 66 20 7b 24 6c 20 3e 20 30 7d 20 7b     if {$l > 0} {
1400: 0a 20 20 20 20 20 20 73 65 74 20 64 69 76 20 5b  .      set div [
1410: 6c 69 6e 64 65 78 20 24 6c 6f 67 20 5b 65 78 70  lindex $log [exp
1420: 72 20 24 69 25 33 5d 5d 0a 20 20 20 20 20 20 73  r $i%3]].      s
1430: 65 74 20 73 63 6f 72 65 20 5b 65 78 70 72 20 7b  et score [expr {
1440: 24 73 63 6f 72 65 20 2b 20 28 64 6f 75 62 6c 65  $score + (double
1450: 28 24 6c 29 20 2f 20 64 6f 75 62 6c 65 28 24 67  ($l) / double($g
1460: 29 29 20 2f 20 24 64 69 76 7d 5d 0a 20 20 20 20  )) / $div}].    
1470: 7d 0a 20 20 20 20 69 6e 63 72 20 69 0a 20 20 7d  }.    incr i.  }
1480: 0a 0a 20 20 72 65 74 75 72 6e 20 24 73 63 6f 72  ..  return $scor
1490: 65 0a 7d 0a 70 72 6f 63 20 65 72 61 6e 6b 20 7b  e.}.proc erank {
14a0: 6d 61 74 63 68 69 6e 66 6f 20 61 72 67 73 7d 20  matchinfo args} 
14b0: 7b 0a 20 20 65 76 61 6c 20 72 61 6e 6b 20 5b 6c  {.  eval rank [l
14c0: 69 73 74 20 24 6d 61 74 63 68 69 6e 66 6f 5d 20  ist $matchinfo] 
14d0: 24 61 72 67 73 0a 7d 0a 0a 0a 70 72 6f 63 20 73  $args.}...proc s
14e0: 65 61 72 63 68 72 65 73 75 6c 74 73 20 7b 7d 20  earchresults {} 
14f0: 7b 0a 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65  {.  if {![info e
1500: 78 69 73 74 73 20 3a 3a 41 28 71 29 5d 7d 20 72  xists ::A(q)]} r
1510: 65 74 75 72 6e 20 22 22 0a 20 20 23 73 65 74 20  eturn "".  #set 
1520: 3a 3a 41 28 71 29 20 5b 73 74 72 69 6e 67 20 6d  ::A(q) [string m
1530: 61 70 20 7b 27 20 27 27 7d 20 24 41 28 71 29 5d  ap {' ''} $A(q)]
1540: 0a 20 20 23 72 65 67 73 75 62 20 2d 61 6c 6c 20  .  #regsub -all 
1550: 7b 5b 5e 2d 2f 22 41 2d 5a 61 2d 7a 30 2d 39 5d  {[^-/"A-Za-z0-9]
1560: 7d 20 24 3a 3a 41 28 71 29 20 7b 20 7d 20 3a 3a  } $::A(q) { } ::
1570: 41 28 71 29 0a 0a 20 20 23 20 43 6f 75 6e 74 20  A(q)..  # Count 
1580: 74 68 65 20 27 22 27 20 63 68 61 72 61 63 74 65  the '"' characte
1590: 72 73 20 69 6e 20 24 3a 3a 41 28 71 29 2e 20 49  rs in $::A(q). I
15a0: 66 20 74 68 65 72 65 20 69 73 20 61 6e 20 6f 64  f there is an od
15b0: 64 20 6e 75 6d 62 65 72 20 6f 66 0a 20 20 23 20  d number of.  # 
15c0: 6f 63 63 75 72 65 6e 63 65 73 2c 20 61 64 64 20  occurences, add 
15d0: 61 20 22 20 74 6f 20 74 68 65 20 65 6e 64 20 6f  a " to the end o
15e0: 66 20 74 68 65 20 71 75 65 72 79 20 73 6f 20 74  f the query so t
15f0: 68 61 74 20 66 74 73 33 20 63 61 6e 20 70 61 72  hat fts3 can par
1600: 73 65 0a 20 20 23 20 69 74 20 77 69 74 68 6f 75  se.  # it withou
1610: 74 20 65 72 72 6f 72 2e 0a 20 20 69 66 20 7b 5b  t error..  if {[
1620: 72 65 67 65 78 70 20 2d 61 6c 6c 20 5c 78 32 32  regexp -all \x22
1630: 20 24 3a 3a 41 28 71 29 5d 20 25 20 32 7d 20 7b   $::A(q)] % 2} {
1640: 20 61 70 70 65 6e 64 20 3a 3a 41 28 71 29 20 5c   append ::A(q) \
1650: 78 32 32 20 7d 0a 0a 20 20 73 65 74 20 3a 3a 54  x22 }..  set ::T
1660: 49 54 4c 45 20 22 52 65 73 75 6c 74 73 20 66 6f  ITLE "Results fo
1670: 72 3a 20 5c 22 5b 68 74 6d 6c 69 7a 65 20 24 3a  r: \"[htmlize $:
1680: 3a 41 28 71 29 5d 5c 22 22 0a 0a 20 20 23 64 62  :A(q)]\""..  #db
1690: 20 66 75 6e 63 20 72 61 6e 6b 20 72 61 6e 6b 0a   func rank rank.
16a0: 20 20 23 64 62 20 66 75 6e 63 20 65 72 61 6e 6b    #db func erank
16b0: 20 65 72 61 6e 6b 0a 0a 20 20 73 65 74 20 73 63   erank..  set sc
16c0: 6f 72 65 20 30 0a 20 20 63 61 74 63 68 20 7b 73  ore 0.  catch {s
16d0: 65 74 20 73 63 6f 72 65 20 24 3a 3a 41 28 73 63  et score $::A(sc
16e0: 6f 72 65 29 7d 0a 0a 20 20 23 20 53 65 74 20 6e  ore)}..  # Set n
16f0: 52 65 73 20 74 6f 20 74 68 65 20 74 6f 74 61 6c  Res to the total
1700: 20 6e 75 6d 62 65 72 20 6f 66 20 64 6f 63 75 6d   number of docum
1710: 65 6e 74 73 20 74 68 61 74 20 74 68 65 20 75 73  ents that the us
1720: 65 72 73 20 71 75 65 72 79 20 6d 61 74 63 68 65  ers query matche
1730: 73 2e 0a 20 20 23 20 49 66 20 6e 52 65 73 20 69  s..  # If nRes i
1740: 73 20 30 2c 20 74 68 65 6e 20 74 68 65 20 75 73  s 0, then the us
1750: 65 72 73 20 71 75 65 72 79 20 72 65 74 75 72 6e  ers query return
1760: 65 64 20 7a 65 72 6f 20 72 65 73 75 6c 74 73 2e  ed zero results.
1770: 20 52 65 74 75 72 6e 20 61 20 73 68 6f 72 74 20   Return a short 
1780: 0a 20 20 23 20 6d 65 73 73 61 67 65 20 74 6f 20  .  # message to 
1790: 74 68 61 74 20 65 66 66 65 63 74 2e 0a 20 20 23  that effect..  #
17a0: 0a 20 20 73 65 74 20 6e 52 65 73 20 5b 64 62 20  .  set nRes [db 
17b0: 6f 6e 65 20 7b 20 53 45 4c 45 43 54 20 63 6f 75  one { SELECT cou
17c0: 6e 74 28 2a 29 20 46 52 4f 4d 20 70 61 67 65 64  nt(*) FROM paged
17d0: 61 74 61 20 57 48 45 52 45 20 70 61 67 65 64 61  ata WHERE pageda
17e0: 74 61 20 4d 41 54 43 48 20 24 3a 3a 41 28 71 29  ta MATCH $::A(q)
17f0: 20 7d 5d 0a 20 20 69 66 20 7b 24 6e 52 65 73 20   }].  if {$nRes 
1800: 3d 3d 20 30 7d 20 7b 0a 20 20 20 20 72 65 74 75  == 0} {.    retu
1810: 72 6e 20 5b 73 75 62 73 74 20 7b 20 4e 6f 20 72  rn [subst { No r
1820: 65 73 75 6c 74 73 20 66 6f 72 3a 20 3c 62 3e 5b  esults for: <b>[
1830: 68 74 6d 6c 69 7a 65 20 24 3a 3a 41 28 71 29 5d  htmlize $::A(q)]
1840: 3c 2f 62 3e 20 7d 5d 0a 20 20 7d 0a 0a 20 20 23  </b> }].  }..  #
1850: 20 53 65 74 20 69 53 74 61 72 74 20 74 6f 20 74   Set iStart to t
1860: 68 65 20 69 6e 64 65 78 20 6f 66 20 74 68 65 20  he index of the 
1870: 66 69 72 73 74 20 72 65 73 75 6c 74 20 74 6f 20  first result to 
1880: 64 69 73 70 6c 61 79 2e 20 52 65 73 75 6c 74 73  display. Results
1890: 20 61 72 65 0a 20 20 23 20 69 6e 64 65 78 65 64   are.  # indexed
18a0: 20 73 74 61 72 74 69 6e 67 20 61 74 20 7a 65 72   starting at zer
18b0: 6f 20 66 72 6f 6d 20 6d 6f 73 74 20 74 6f 20 6c  o from most to l
18c0: 65 61 73 74 20 72 65 6c 65 76 61 6e 74 2e 0a 20  east relevant.. 
18d0: 20 23 0a 20 20 73 65 74 20 69 53 74 61 72 74 20   #.  set iStart 
18e0: 5b 65 78 70 72 20 7b 28 5b 69 6e 66 6f 20 65 78  [expr {([info ex
18f0: 69 73 74 73 20 3a 3a 41 28 69 29 5d 20 3f 20 24  ists ::A(i)] ? $
1900: 3a 3a 41 28 69 29 20 3a 20 30 29 2a 31 30 7d 5d  ::A(i) : 0)*10}]
1910: 0a 0a 20 20 23 20 48 54 4d 4c 20 6d 61 72 6b 75  ..  # HTML marku
1920: 70 20 75 73 65 64 20 74 6f 20 68 69 67 68 6c 69  p used to highli
1930: 67 68 74 20 6b 65 79 77 6f 72 64 73 20 77 69 74  ght keywords wit
1940: 68 69 6e 20 46 54 53 33 20 67 65 6e 65 72 61 74  hin FTS3 generat
1950: 65 64 20 73 6e 69 70 70 65 74 73 2e 0a 20 20 23  ed snippets..  #
1960: 0a 20 20 73 65 74 20 6f 70 65 6e 20 7b 3c 73 70  .  set open {<sp
1970: 61 6e 20 73 74 79 6c 65 3d 22 66 6f 6e 74 2d 77  an style="font-w
1980: 65 69 67 68 74 3a 62 6f 6c 64 3b 20 63 6f 6c 6f  eight:bold; colo
1990: 72 3a 6e 61 76 79 22 3e 7d 0a 20 20 73 65 74 20  r:navy">}.  set 
19a0: 63 6c 6f 73 65 20 7b 3c 2f 73 70 61 6e 3e 7d 0a  close {</span>}.
19b0: 20 20 73 65 74 20 65 6c 6c 69 70 73 69 73 20 7b    set ellipsis {
19c0: 3c 62 3e 26 6e 62 73 70 3b 2e 2e 2e 26 6e 62 73  <b>&nbsp;...&nbs
19d0: 70 3b 3c 2f 62 3e 7d 0a 0a 20 20 73 65 74 20 72  p;</b>}..  set r
19e0: 65 74 20 5b 73 75 62 73 74 20 7b 0a 20 20 20 20  et [subst {.    
19f0: 3c 74 61 62 6c 65 20 62 6f 72 64 65 72 3d 30 3e  <table border=0>
1a00: 0a 20 20 20 20 3c 70 3e 53 65 61 72 63 68 20 72  .    <p>Search r
1a10: 65 73 75 6c 74 73 20 0a 20 20 20 20 20 20 20 5b  esults .       [
1a20: 65 78 70 72 20 24 69 53 74 61 72 74 2b 31 5d 2e  expr $iStart+1].
1a30: 2e 5b 65 78 70 72 20 7b 28 24 6e 52 65 73 20 3c  .[expr {($nRes <
1a40: 20 24 69 53 74 61 72 74 2b 31 30 29 20 3f 20 24   $iStart+10) ? $
1a50: 6e 52 65 73 20 3a 20 24 69 53 74 61 72 74 2b 31  nRes : $iStart+1
1a60: 30 7d 5d 20 0a 20 20 20 20 20 20 20 6f 66 20 24  0}] .       of $
1a70: 6e 52 65 73 20 66 6f 72 3a 20 3c 62 3e 5b 68 74  nRes for: <b>[ht
1a80: 6d 6c 69 7a 65 20 24 3a 3a 41 28 71 29 5d 3c 2f  mlize $::A(q)]</
1a90: 62 3e 0a 20 20 7d 5d 0a 0a 20 20 73 65 74 20 6f  b>.  }]..  set o
1aa0: 70 65 6e 20 7b 3c 73 70 61 6e 20 73 74 79 6c 65  pen {<span style
1ab0: 3d 22 66 6f 6e 74 2d 77 65 69 67 68 74 3a 62 6f  ="font-weight:bo
1ac0: 6c 64 3b 20 63 6f 6c 6f 72 3a 6e 61 76 79 22 3e  ld; color:navy">
1ad0: 7d 0a 20 20 73 65 74 20 63 6c 6f 73 65 20 7b 3c  }.  set close {<
1ae0: 2f 73 70 61 6e 3e 7d 0a 20 20 73 65 74 20 65 6c  /span>}.  set el
1af0: 6c 69 70 73 69 73 20 7b 3c 62 3e 26 6e 62 73 70  lipsis {<b>&nbsp
1b00: 3b 2e 2e 2e 26 6e 62 73 70 3b 3c 2f 62 3e 7d 0a  ;...&nbsp;</b>}.
1b10: 0a 20 20 69 66 20 7b 30 3d 3d 5b 69 6e 66 6f 20  .  if {0==[info 
1b20: 65 78 69 73 74 73 20 3a 3a 41 28 65 29 5d 7d 20  exists ::A(e)]} 
1b30: 7b 0a 20 20 20 20 73 65 74 20 73 71 6c 71 75 65  {.    set sqlque
1b40: 72 79 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43  ry {.      SELEC
1b50: 54 20 75 72 6c 2c 20 74 69 74 6c 65 2c 20 0a 20  T url, title, . 
1b60: 20 20 20 20 20 73 6e 69 70 70 65 74 28 70 61 67       snippet(pag
1b70: 65 64 61 74 61 2c 20 24 6f 70 65 6e 2c 20 24 63  edata, $open, $c
1b80: 6c 6f 73 65 2c 20 24 65 6c 6c 69 70 73 69 73 2c  lose, $ellipsis,
1b90: 20 33 2c 20 34 30 29 20 41 53 20 73 6e 69 70 70   3, 40) AS snipp
1ba0: 65 74 2c 0a 20 20 20 20 20 20 27 27 20 41 53 20  et,.      '' AS 
1bb0: 72 65 70 6f 72 74 0a 20 20 20 20 20 20 46 52 4f  report.      FRO
1bc0: 4d 20 70 61 67 65 64 61 74 61 20 57 48 45 52 45  M pagedata WHERE
1bd0: 20 70 61 67 65 64 61 74 61 20 4d 41 54 43 48 20   pagedata MATCH 
1be0: 24 3a 3a 41 28 71 29 0a 20 20 20 20 20 20 4f 52  $::A(q).      OR
1bf0: 44 45 52 20 42 59 20 72 61 6e 6b 63 28 70 61 67  DER BY rankc(pag
1c00: 65 64 61 74 61 2c 20 31 2e 30 2c 20 35 2e 30 2c  edata, 1.0, 5.0,
1c10: 20 31 30 2e 30 2c 20 31 2e 30 29 20 44 45 53 43   10.0, 1.0) DESC
1c20: 0a 20 20 20 20 20 20 4c 49 4d 49 54 20 31 30 20  .      LIMIT 10 
1c30: 4f 46 46 53 45 54 20 24 69 53 74 61 72 74 0a 20  OFFSET $iStart. 
1c40: 20 20 20 7d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a     }.  } else {.
1c50: 20 20 20 20 73 65 74 20 73 71 6c 71 75 65 72 79      set sqlquery
1c60: 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20   {.      SELECT 
1c70: 75 72 6c 2c 20 74 69 74 6c 65 2c 20 0a 20 20 20  url, title, .   
1c80: 20 20 20 73 6e 69 70 70 65 74 28 70 61 67 65 64     snippet(paged
1c90: 61 74 61 2c 20 24 6f 70 65 6e 2c 20 24 63 6c 6f  ata, $open, $clo
1ca0: 73 65 2c 20 24 65 6c 6c 69 70 73 69 73 2c 20 33  se, $ellipsis, 3
1cb0: 2c 20 34 30 29 20 41 53 20 73 6e 69 70 70 65 74  , 40) AS snippet
1cc0: 2c 0a 20 20 20 20 20 20 65 72 61 6e 6b 63 28 70  ,.      erankc(p
1cd0: 61 67 65 64 61 74 61 2c 20 31 2e 30 2c 20 35 2e  agedata, 1.0, 5.
1ce0: 30 2c 20 31 30 2e 30 2c 20 31 2e 30 29 20 41 53  0, 10.0, 1.0) AS
1cf0: 20 72 65 70 6f 72 74 0a 20 20 20 20 20 20 46 52   report.      FR
1d00: 4f 4d 20 70 61 67 65 64 61 74 61 20 57 48 45 52  OM pagedata WHER
1d10: 45 20 70 61 67 65 64 61 74 61 20 4d 41 54 43 48  E pagedata MATCH
1d20: 20 24 3a 3a 41 28 71 29 0a 20 20 20 20 20 20 4f   $::A(q).      O
1d30: 52 44 45 52 20 42 59 20 72 61 6e 6b 63 28 70 61  RDER BY rankc(pa
1d40: 67 65 64 61 74 61 2c 20 31 2e 30 2c 20 35 2e 30  gedata, 1.0, 5.0
1d50: 2c 20 31 30 2e 30 2c 20 31 2e 30 29 20 44 45 53  , 10.0, 1.0) DES
1d60: 43 0a 20 20 20 20 20 20 4c 49 4d 49 54 20 31 30  C.      LIMIT 10
1d70: 20 4f 46 46 53 45 54 20 24 69 53 74 61 72 74 0a   OFFSET $iStart.
1d80: 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 73 65 74      }.  }..  set
1d90: 20 72 65 73 6e 75 6d 20 24 69 53 74 61 72 74 0a   resnum $iStart.
1da0: 20 20 64 62 20 65 76 61 6c 20 24 73 71 6c 71 75    db eval $sqlqu
1db0: 65 72 79 20 7b 0a 20 20 20 20 69 6e 63 72 20 72  ery {.    incr r
1dc0: 65 73 6e 75 6d 0a 0a 20 20 20 20 61 70 70 65 6e  esnum..    appen
1dd0: 64 20 72 65 74 20 5b 73 75 62 73 74 20 2d 6e 6f  d ret [subst -no
1de0: 63 6f 6d 6d 61 6e 64 73 20 7b 3c 74 72 3e 0a 20  commands {<tr>. 
1df0: 20 20 20 20 20 3c 74 64 20 76 61 6c 69 67 6e 3d       <td valign=
1e00: 74 6f 70 3e 24 7b 72 65 73 6e 75 6d 7d 2e 3c 2f  top>${resnum}.</
1e10: 74 64 3e 0a 20 20 20 20 20 20 3c 74 64 20 76 61  td>.      <td va
1e20: 6c 69 67 6e 3d 74 6f 70 3e 0a 20 20 20 20 20 20  lign=top>.      
1e30: 20 20 3c 64 69 76 20 73 74 79 6c 65 3d 22 77 68    <div style="wh
1e40: 69 74 65 2d 73 70 61 63 65 3a 77 72 61 70 22 3e  ite-space:wrap">
1e50: 0a 20 20 20 20 20 20 20 20 20 20 3c 61 20 68 72  .          <a hr
1e60: 65 66 3d 22 24 75 72 6c 22 3e 24 74 69 74 6c 65  ef="$url">$title
1e70: 3c 2f 61 3e 0a 20 20 20 20 20 20 20 20 3c 2f 64  </a>.        </d
1e80: 69 76 3e 0a 20 20 20 20 20 20 20 20 3c 64 69 76  iv>.        <div
1e90: 20 73 74 79 6c 65 3d 22 66 6f 6e 74 2d 73 69 7a   style="font-siz
1ea0: 65 3a 73 6d 61 6c 6c 3b 6d 61 72 67 69 6e 2d 6c  e:small;margin-l
1eb0: 65 66 74 3a 20 32 65 78 22 3e 0a 20 20 20 20 20  eft: 2ex">.     
1ec0: 20 20 20 20 20 3c 64 69 76 20 73 74 79 6c 65 3d       <div style=
1ed0: 22 77 69 64 74 68 3a 38 30 65 78 22 3e 20 24 73  "width:80ex"> $s
1ee0: 6e 69 70 70 65 74 20 3c 2f 64 69 76 3e 0a 20 20  nippet </div>.  
1ef0: 20 20 20 20 20 20 20 20 3c 64 69 76 20 73 74 79          <div sty
1f00: 6c 65 3d 22 6d 61 72 67 69 6e 2d 62 6f 74 74 6f  le="margin-botto
1f10: 6d 3a 31 65 6d 22 3e 3c 61 20 68 72 65 66 3d 22  m:1em"><a href="
1f20: 24 75 72 6c 22 3e 24 75 72 6c 3c 2f 61 3e 3c 2f  $url">$url</a></
1f30: 64 69 76 3e 0a 20 20 20 20 20 20 20 20 3c 2f 64  div>.        </d
1f40: 69 76 3e 0a 20 20 20 20 20 20 3c 2f 74 64 3e 0a  iv>.      </td>.
1f50: 0a 20 20 20 20 20 20 3c 74 64 20 77 69 64 74 68  .      <td width
1f60: 3d 31 30 30 25 3e 0a 20 20 20 20 20 20 3c 74 64  =100%>.      <td
1f70: 20 76 61 6c 69 67 6e 3d 74 6f 70 20 73 74 79 6c   valign=top styl
1f80: 65 3d 22 66 6f 6e 74 2d 73 69 7a 65 3a 37 30 25  e="font-size:70%
1f90: 3b 77 68 69 74 65 2d 73 70 61 63 65 3a 6e 6f 77  ;white-space:now
1fa0: 72 61 70 3b 63 6f 6c 6f 72 3a 64 61 72 6b 67 72  rap;color:darkgr
1fb0: 65 65 6e 22 3e 20 24 72 65 70 6f 72 74 20 3c 2f  een"> $report </
1fc0: 74 64 3e 0a 20 20 20 20 7d 5d 0a 20 20 7d 0a 20  td>.    }].  }. 
1fd0: 20 61 70 70 65 6e 64 20 72 65 74 20 7b 20 3c 2f   append ret { </
1fe0: 74 61 62 6c 65 3e 20 7d 0a 0a 0a 20 20 23 20 49  table> }...  # I
1ff0: 66 20 74 68 65 20 71 75 65 72 79 20 72 65 74 75  f the query retu
2000: 72 6e 65 64 20 6d 6f 72 65 20 74 68 61 6e 20 31  rned more than 1
2010: 30 20 72 65 73 75 6c 74 73 2c 20 61 64 64 20 75  0 results, add u
2020: 70 20 74 6f 20 31 30 20 6c 69 6e 6b 73 20 74 6f  p to 10 links to
2030: 20 0a 20 20 23 20 65 61 63 68 20 73 65 74 20 6f   .  # each set o
2040: 66 20 31 30 20 72 65 73 75 6c 74 73 20 28 66 69  f 10 results (fi
2050: 72 73 74 20 6c 69 6e 6b 20 74 6f 20 72 65 73 75  rst link to resu
2060: 6c 74 73 20 31 2d 31 30 2c 20 73 65 63 6f 6e 64  lts 1-10, second
2070: 20 74 6f 20 31 31 2d 32 30 2c 20 0a 20 20 23 20   to 11-20, .  # 
2080: 74 68 69 72 64 20 74 6f 20 32 31 2d 33 30 2c 20  third to 21-30, 
2090: 61 73 20 72 65 71 75 69 72 65 64 29 2e 0a 20 20  as required)..  
20a0: 23 0a 20 20 69 66 20 7b 24 6e 52 65 73 3e 31 30  #.  if {$nRes>10
20b0: 7d 20 7b 0a 20 20 20 20 73 65 74 20 73 28 30 29  } {.    set s(0)
20c0: 20 7b 62 6f 72 64 65 72 3a 20 73 6f 6c 69 64 20   {border: solid 
20d0: 23 30 34 34 61 36 34 20 31 70 78 20 3b 20 70 61  #044a64 1px ; pa
20e0: 64 64 69 6e 67 3a 20 31 65 78 20 3b 20 6d 61 72  dding: 1ex ; mar
20f0: 67 69 6e 3a 20 31 65 78 7d 0a 20 20 20 20 73 65  gin: 1ex}.    se
2100: 74 20 73 28 31 29 20 22 24 73 28 30 29 3b 62 61  t s(1) "$s(0);ba
2110: 63 6b 67 72 6f 75 6e 64 3a 23 30 34 34 61 36 34  ckground:#044a64
2120: 3b 63 6f 6c 6f 72 3a 77 68 69 74 65 22 0a 20 20  ;color:white".  
2130: 20 20 61 70 70 65 6e 64 20 72 65 74 20 3c 63 65    append ret <ce
2140: 6e 74 65 72 3e 3c 70 3e 0a 20 20 20 20 66 6f 72  nter><p>.    for
2150: 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 20 3c   {set i 0} {$i <
2160: 20 31 30 20 26 26 20 28 24 69 2a 31 30 29 3c 24   10 && ($i*10)<$
2170: 6e 52 65 73 7d 20 7b 69 6e 63 72 20 69 7d 20 7b  nRes} {incr i} {
2180: 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20 72 65  .      append re
2190: 74 20 5b 73 75 62 73 74 20 7b 0a 20 20 20 20 20  t [subst {.     
21a0: 20 20 20 3c 61 20 73 74 79 6c 65 3d 22 24 73 28     <a style="$s(
21b0: 5b 65 78 70 72 20 7b 28 24 69 53 74 61 72 74 2f  [expr {($iStart/
21c0: 31 30 29 3d 3d 24 69 7d 5d 29 22 20 0a 20 20 20  10)==$i}])" .   
21d0: 20 20 20 20 20 20 20 20 68 72 65 66 3d 22 73 65          href="se
21e0: 61 72 63 68 34 3f 5b 63 67 69 5f 65 6e 63 6f 64  arch4?[cgi_encod
21f0: 65 5f 61 72 67 73 20 5b 6c 69 73 74 20 71 20 24  e_args [list q $
2200: 3a 3a 41 28 71 29 20 69 20 24 69 5d 5d 22 3e 5b  ::A(q) i $i]]">[
2210: 65 78 70 72 20 24 69 2b 31 5d 3c 2f 61 3e 0a 20  expr $i+1]</a>. 
2220: 20 20 20 20 20 7d 5d 0a 20 20 20 20 7d 0a 20 20       }].    }.  
2230: 20 20 61 70 70 65 6e 64 20 72 65 74 20 3c 2f 63    append ret </c
2240: 65 6e 74 65 72 3e 0a 20 20 7d 0a 0a 20 20 72 65  enter>.  }..  re
2250: 74 75 72 6e 20 24 72 65 74 0a 7d 0a 0a 70 72 6f  turn $ret.}..pro
2260: 63 20 6d 61 69 6e 20 7b 7d 20 7b 0a 20 20 67 6c  c main {} {.  gl
2270: 6f 62 61 6c 20 41 0a 20 20 73 71 6c 69 74 65 34  obal A.  sqlite4
2280: 20 64 62 20 73 65 61 72 63 68 34 2e 64 62 0a 20   db search4.db. 
2290: 20 63 67 69 5f 70 61 72 73 65 5f 61 72 67 73 0a   cgi_parse_args.
22a0: 0a 20 20 64 62 20 74 72 61 6e 73 61 63 74 69 6f  .  db transactio
22b0: 6e 20 7b 0a 20 20 20 20 73 65 74 20 74 20 5b 74  n {.    set t [t
22c0: 74 69 6d 65 20 7b 20 73 65 74 20 64 6f 63 20 22  time { set doc "
22d0: 5b 73 65 61 72 63 68 66 6f 72 6d 5d 20 5b 73 65  [searchform] [se
22e0: 61 72 63 68 72 65 73 75 6c 74 73 5d 20 5b 66 6f  archresults] [fo
22f0: 6f 74 65 72 5d 22 20 7d 5d 0a 20 20 7d 0a 20 20  oter]" }].  }.  
2300: 61 70 70 65 6e 64 20 64 6f 63 20 22 3c 70 3e 50  append doc "<p>P
2310: 61 67 65 20 67 65 6e 65 72 61 74 65 64 20 69 6e  age generated in
2320: 20 24 74 2e 22 0a 20 20 72 65 74 75 72 6e 20 24   $t.".  return $
2330: 64 6f 63 0a 0a 20 20 23 20 72 65 74 75 72 6e 20  doc..  # return 
2340: 5b 63 67 69 5f 65 6e 76 5f 64 75 6d 70 5d 0a 7d  [cgi_env_dump].}
2350: 0a 0a 23 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ..#=============
2360: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
2370: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
2380: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
2390: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 73 65  ============..se
23a0: 74 20 3a 3a 48 45 41 44 45 52 20 7b 0a 20 20 3c  t ::HEADER {.  <
23b0: 21 44 4f 43 54 59 50 45 20 48 54 4d 4c 20 50 55  !DOCTYPE HTML PU
23c0: 42 4c 49 43 20 22 2d 2f 2f 57 33 43 2f 2f 44 54  BLIC "-//W3C//DT
23d0: 44 20 48 54 4d 4c 20 34 2e 30 31 2f 2f 45 4e 22  D HTML 4.01//EN"
23e0: 0a 20 20 22 68 74 74 70 3a 2f 2f 77 77 77 2e 77  .  "http://www.w
23f0: 33 2e 6f 72 67 2f 54 52 2f 68 74 6d 6c 34 2f 73  3.org/TR/html4/s
2400: 74 72 69 63 74 2e 64 74 64 22 3e 0a 20 20 3c 68  trict.dtd">.  <h
2410: 74 6d 6c 3e 3c 68 65 61 64 3e 0a 20 20 3c 74 69  tml><head>.  <ti
2420: 74 6c 65 3e 24 54 49 54 4c 45 3c 2f 74 69 74 6c  tle>$TITLE</titl
2430: 65 3e 0a 20 20 3c 73 74 79 6c 65 20 74 79 70 65  e>.  <style type
2440: 3d 22 74 65 78 74 2f 63 73 73 22 3e 0a 20 20 62  ="text/css">.  b
2450: 6f 64 79 20 7b 0a 20 20 20 20 6d 61 72 67 69 6e  ody {.    margin
2460: 3a 20 61 75 74 6f 3b 0a 20 20 20 20 66 6f 6e 74  : auto;.    font
2470: 2d 66 61 6d 69 6c 79 3a 20 56 65 72 64 61 6e 61  -family: Verdana
2480: 2c 20 73 61 6e 73 2d 73 65 72 69 66 3b 0a 20 20  , sans-serif;.  
2490: 20 20 70 61 64 64 69 6e 67 3a 20 38 70 78 20 31    padding: 8px 1
24a0: 25 3b 0a 20 20 7d 0a 0a 20 20 61 20 7b 20 63 6f  %;.  }..  a { co
24b0: 6c 6f 72 3a 20 23 30 34 34 61 36 34 20 7d 0a 20  lor: #044a64 }. 
24c0: 20 61 3a 76 69 73 69 74 65 64 20 7b 20 63 6f 6c   a:visited { col
24d0: 6f 72 3a 20 23 37 33 34 35 35 39 20 7d 0a 0a 20  or: #734559 }.. 
24e0: 20 2e 6c 6f 67 6f 20 7b 20 70 6f 73 69 74 69 6f   .logo { positio
24f0: 6e 3a 61 62 73 6f 6c 75 74 65 3b 20 6d 61 72 67  n:absolute; marg
2500: 69 6e 3a 33 70 78 3b 20 7d 0a 20 20 2e 74 61 67  in:3px; }.  .tag
2510: 6c 69 6e 65 20 7b 0a 20 20 20 20 66 6c 6f 61 74  line {.    float
2520: 3a 72 69 67 68 74 3b 0a 20 20 20 20 74 65 78 74  :right;.    text
2530: 2d 61 6c 69 67 6e 3a 72 69 67 68 74 3b 0a 20 20  -align:right;.  
2540: 20 20 66 6f 6e 74 2d 73 74 79 6c 65 3a 69 74 61    font-style:ita
2550: 6c 69 63 3b 0a 20 20 20 20 77 69 64 74 68 3a 33  lic;.    width:3
2560: 30 30 70 78 3b 0a 20 20 20 20 6d 61 72 67 69 6e  00px;.    margin
2570: 3a 31 32 70 78 3b 0a 20 20 20 20 6d 61 72 67 69  :12px;.    margi
2580: 6e 2d 74 6f 70 3a 35 38 70 78 3b 0a 20 20 7d 0a  n-top:58px;.  }.
2590: 20 20 2e 6d 65 6e 75 62 61 72 20 7b 0a 20 20 20    .menubar {.   
25a0: 20 63 6c 65 61 72 3a 20 62 6f 74 68 3b 0a 20 20   clear: both;.  
25b0: 20 20 62 6f 72 64 65 72 2d 72 61 64 69 75 73 3a    border-radius:
25c0: 20 38 70 78 3b 0a 20 20 20 20 62 61 63 6b 67 72   8px;.    backgr
25d0: 6f 75 6e 64 3a 20 23 30 34 34 61 36 34 3b 0a 20  ound: #044a64;. 
25e0: 20 20 20 70 61 64 64 69 6e 67 3a 20 30 70 78 3b     padding: 0px;
25f0: 0a 20 20 20 20 6d 61 72 67 69 6e 3a 20 30 70 78  .    margin: 0px
2600: 3b 0a 20 20 20 20 63 65 6c 6c 2d 73 70 61 63 69  ;.    cell-spaci
2610: 6e 67 3a 20 30 70 78 3b 0a 20 20 7d 0a 20 20 2e  ng: 0px;.  }.  .
2620: 74 6f 6f 6c 62 61 72 20 7b 0a 20 20 20 20 74 65  toolbar {.    te
2630: 78 74 2d 61 6c 69 67 6e 3a 20 63 65 6e 74 65 72  xt-align: center
2640: 3b 0a 20 20 20 20 6c 69 6e 65 2d 68 65 69 67 68  ;.    line-heigh
2650: 74 3a 20 31 2e 36 65 6d 3b 0a 20 20 20 20 6d 61  t: 1.6em;.    ma
2660: 72 67 69 6e 3a 20 30 3b 0a 20 20 20 20 70 61 64  rgin: 0;.    pad
2670: 64 69 6e 67 3a 20 30 70 78 20 38 70 78 3b 0a 20  ding: 0px 8px;. 
2680: 20 7d 0a 20 20 2e 74 6f 6f 6c 62 61 72 20 61 20   }.  .toolbar a 
2690: 7b 20 63 6f 6c 6f 72 3a 20 77 68 69 74 65 3b 0a  { color: white;.
26a0: 20 20 74 65 78 74 2d 64 65 63 6f 72 61 74 69 6f    text-decoratio
26b0: 6e 3a 20 6e 6f 6e 65 3b 20 70 61 64 64 69 6e 67  n: none; padding
26c0: 3a 20 36 70 78 0a 20 20 31 32 70 78 3b 20 7d 0a  : 6px.  12px; }.
26d0: 20 20 2e 74 6f 6f 6c 62 61 72 20 61 3a 76 69 73    .toolbar a:vis
26e0: 69 74 65 64 20 7b 20 63 6f 6c 6f 72 3a 20 77 68  ited { color: wh
26f0: 69 74 65 3b 20 7d 0a 20 20 2e 74 6f 6f 6c 62 61  ite; }.  .toolba
2700: 72 20 61 3a 68 6f 76 65 72 20 7b 20 63 6f 6c 6f  r a:hover { colo
2710: 72 3a 20 23 30 34 34 61 36 34 3b 0a 20 20 62 61  r: #044a64;.  ba
2720: 63 6b 67 72 6f 75 6e 64 3a 20 77 68 69 74 65 3b  ckground: white;
2730: 20 7d 0a 0a 20 20 2e 63 6f 6e 74 65 6e 74 20 20   }..  .content  
2740: 20 20 7b 20 6d 61 72 67 69 6e 3a 20 35 25 3b 20    { margin: 5%; 
2750: 7d 0a 20 20 2e 63 6f 6e 74 65 6e 74 20 64 74 20  }.  .content dt 
2760: 7b 20 66 6f 6e 74 2d 77 65 69 67 68 74 3a 62 6f  { font-weight:bo
2770: 6c 64 3b 20 7d 0a 20 20 2e 63 6f 6e 74 65 6e 74  ld; }.  .content
2780: 20 64 64 20 7b 20 6d 61 72 67 69 6e 2d 62 6f 74   dd { margin-bot
2790: 74 6f 6d 3a 20 32 35 70 78 3b 20 6d 61 72 67 69  tom: 25px; margi
27a0: 6e 2d 6c 65 66 74 3a 32 30 25 3b 20 7d 0a 20 20  n-left:20%; }.  
27b0: 2e 63 6f 6e 74 65 6e 74 20 75 6c 20 7b 20 70 61  .content ul { pa
27c0: 64 64 69 6e 67 3a 30 70 78 3b 20 70 61 64 64 69  dding:0px; paddi
27d0: 6e 67 2d 6c 65 66 74 3a 20 31 35 70 78 3b 20 6d  ng-left: 15px; m
27e0: 61 72 67 69 6e 3a 30 70 78 3b 20 7d 0a 20 20 3c  argin:0px; }.  <
27f0: 2f 73 74 79 6c 65 3e 0a 20 20 3c 6d 65 74 61 20  /style>.  <meta 
2800: 68 74 74 70 2d 65 71 75 69 76 3d 22 63 6f 6e 74  http-equiv="cont
2810: 65 6e 74 2d 74 79 70 65 22 20 63 6f 6e 74 65 6e  ent-type" conten
2820: 74 3d 22 74 65 78 74 2f 68 74 6d 6c 3b 20 63 68  t="text/html; ch
2830: 61 72 73 65 74 3d 55 54 46 2d 38 22 3e 0a 20 20  arset=UTF-8">.  
2840: 20 20 0a 20 20 3c 2f 68 65 61 64 3e 0a 20 20 3c    .  </head>.  <
2850: 62 6f 64 79 3e 0a 20 20 3c 64 69 76 3e 3c 21 2d  body>.  <div><!-
2860: 2d 20 63 6f 6e 74 61 69 6e 65 72 20 64 69 76 20  - container div 
2870: 74 6f 20 73 61 74 69 73 66 79 20 76 61 6c 69 64  to satisfy valid
2880: 61 74 6f 72 20 2d 2d 3e 0a 0a 20 20 3c 61 20 68  ator -->..  <a h
2890: 72 65 66 3d 22 69 6e 64 65 78 2e 68 74 6d 6c 22  ref="index.html"
28a0: 3e 0a 20 20 3c 69 6d 67 20 63 6c 61 73 73 3d 22  >.  <img class="
28b0: 6c 6f 67 6f 22 20 73 72 63 3d 22 69 6d 61 67 65  logo" src="image
28c0: 73 2f 73 71 6c 69 74 65 33 37 30 5f 62 61 6e 6e  s/sqlite370_bann
28d0: 65 72 2e 67 69 66 22 20 61 6c 74 3d 22 53 51 4c  er.gif" alt="SQL
28e0: 69 74 65 20 4c 6f 67 6f 22 20 62 6f 72 64 65 72  ite Logo" border
28f0: 3d 22 30 22 3e 3c 2f 61 3e 0a 20 20 20 20 3c 64  ="0"></a>.    <d
2900: 69 76 3e 3c 21 2d 2d 20 49 45 20 68 61 63 6b 20  iv><!-- IE hack 
2910: 74 6f 20 70 72 65 76 65 6e 74 20 64 69 73 61 70  to prevent disap
2920: 70 65 61 72 69 6e 67 20 6c 6f 67 6f 2d 2d 3e 3c  pearing logo--><
2930: 2f 64 69 76 3e 0a 20 20 20 20 3c 64 69 76 20 63  /div>.    <div c
2940: 6c 61 73 73 3d 22 74 61 67 6c 69 6e 65 22 3e 53  lass="tagline">S
2950: 6d 61 6c 6c 2e 20 46 61 73 74 2e 20 52 65 6c 69  mall. Fast. Reli
2960: 61 62 6c 65 2e 3c 62 72 3e 43 68 6f 6f 73 65 20  able.<br>Choose 
2970: 61 6e 79 20 74 68 72 65 65 2e 3c 2f 64 69 76 3e  any three.</div>
2980: 0a 0a 20 20 20 20 3c 74 61 62 6c 65 20 77 69 64  ..    <table wid
2990: 74 68 3d 31 30 30 25 20 63 6c 61 73 73 3d 22 6d  th=100% class="m
29a0: 65 6e 75 62 61 72 22 3e 3c 74 72 3e 3c 74 64 3e  enubar"><tr><td>
29b0: 0a 20 20 3c 74 61 62 6c 65 20 77 69 64 74 68 3d  .  <table width=
29c0: 31 30 30 25 20 73 74 79 6c 65 3d 22 70 61 64 64  100% style="padd
29d0: 69 6e 67 3a 30 3b 6d 61 72 67 69 6e 3a 30 3b 63  ing:0;margin:0;c
29e0: 65 6c 6c 2d 73 70 61 63 69 6e 67 3a 30 22 3e 3c  ell-spacing:0"><
29f0: 74 72 3e 0a 20 20 3c 74 64 20 77 69 64 74 68 3d  tr>.  <td width=
2a00: 31 30 30 25 3e 0a 20 20 3c 64 69 76 20 63 6c 61  100%>.  <div cla
2a10: 73 73 3d 22 74 6f 6f 6c 62 61 72 22 3e 0a 20 20  ss="toolbar">.  
2a20: 20 20 3c 61 20 68 72 65 66 3d 22 61 62 6f 75 74    <a href="about
2a30: 2e 68 74 6d 6c 22 3e 41 62 6f 75 74 3c 2f 61 3e  .html">About</a>
2a40: 0a 20 20 20 20 3c 61 20 68 72 65 66 3d 22 73 69  .    <a href="si
2a50: 74 65 6d 61 70 2e 68 74 6d 6c 22 3e 53 69 74 65  temap.html">Site
2a60: 6d 61 70 3c 2f 61 3e 0a 20 20 20 20 3c 61 20 68  map</a>.    <a h
2a70: 72 65 66 3d 22 64 6f 63 73 2e 68 74 6d 6c 22 3e  ref="docs.html">
2a80: 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 3c 2f 61  Documentation</a
2a90: 3e 0a 20 20 20 20 3c 61 20 68 72 65 66 3d 22 64  >.    <a href="d
2aa0: 6f 77 6e 6c 6f 61 64 2e 68 74 6d 6c 22 3e 44 6f  ownload.html">Do
2ab0: 77 6e 6c 6f 61 64 3c 2f 61 3e 0a 20 20 20 20 3c  wnload</a>.    <
2ac0: 61 20 68 72 65 66 3d 22 63 6f 70 79 72 69 67 68  a href="copyrigh
2ad0: 74 2e 68 74 6d 6c 22 3e 4c 69 63 65 6e 73 65 3c  t.html">License<
2ae0: 2f 61 3e 0a 20 20 20 20 3c 61 20 68 72 65 66 3d  /a>.    <a href=
2af0: 22 6e 65 77 73 2e 68 74 6d 6c 22 3e 4e 65 77 73  "news.html">News
2b00: 3c 2f 61 3e 0a 20 20 20 20 3c 61 20 68 72 65 66  </a>.    <a href
2b10: 3d 22 73 75 70 70 6f 72 74 2e 68 74 6d 6c 22 3e  ="support.html">
2b20: 53 75 70 70 6f 72 74 3c 2f 61 3e 0a 20 20 3c 2f  Support</a>.  </
2b30: 64 69 76 3e 0a 3c 74 64 3e 0a 20 20 20 20 3c 64  div>.<td>.    <d
2b40: 69 76 20 73 74 79 6c 65 3d 22 70 61 64 64 69 6e  iv style="paddin
2b50: 67 3a 30 20 31 65 6d 20 30 70 78 20 30 3b 77 68  g:0 1em 0px 0;wh
2b60: 69 74 65 2d 73 70 61 63 65 3a 6e 6f 77 72 61 70  ite-space:nowrap
2b70: 22 3e 0a 20 20 20 20 3c 66 6f 72 6d 20 6e 61 6d  ">.    <form nam
2b80: 65 3d 66 20 6d 65 74 68 6f 64 3d 22 47 45 54 22  e=f method="GET"
2b90: 20 61 63 74 69 6f 6e 3d 22 73 65 61 72 63 68 34   action="search4
2ba0: 22 3e 0a 20 20 20 20 20 20 3c 69 6e 70 75 74 20  ">.      <input 
2bb0: 69 64 3d 71 20 6e 61 6d 65 3d 71 20 74 79 70 65  id=q name=q type
2bc0: 3d 74 65 78 74 20 76 61 6c 75 65 3d 22 22 0a 20  =text value="". 
2bd0: 20 20 20 20 20 20 6f 6e 66 6f 63 75 73 3d 22 65        onfocus="e
2be0: 6e 74 65 72 73 65 61 72 63 68 28 29 22 20 6f 6e  ntersearch()" on
2bf0: 62 6c 75 72 3d 22 6c 65 61 76 65 73 65 61 72 63  blur="leavesearc
2c00: 68 28 29 22 20 73 74 79 6c 65 3d 22 77 69 64 74  h()" style="widt
2c10: 68 3a 32 34 65 78 3b 70 61 64 64 69 6e 67 3a 31  h:24ex;padding:1
2c20: 70 78 20 31 65 78 3b 20 62 6f 72 64 65 72 3a 73  px 1ex; border:s
2c30: 6f 6c 69 64 20 77 68 69 74 65 20 31 70 78 3b 20  olid white 1px; 
2c40: 66 6f 6e 74 2d 73 69 7a 65 3a 30 2e 39 65 6d 22  font-size:0.9em"
2c50: 3e 0a 20 20 20 20 20 20 3c 69 6e 70 75 74 20 74  >.      <input t
2c60: 79 70 65 3d 73 75 62 6d 69 74 20 76 61 6c 75 65  ype=submit value
2c70: 3d 22 47 6f 22 20 73 74 79 6c 65 3d 22 62 6f 72  ="Go" style="bor
2c80: 64 65 72 3a 73 6f 6c 69 64 20 77 68 69 74 65 20  der:solid white 
2c90: 31 70 78 3b 62 61 63 6b 67 72 6f 75 6e 64 2d 63  1px;background-c
2ca0: 6f 6c 6f 72 3a 23 30 34 34 61 36 34 3b 63 6f 6c  olor:#044a64;col
2cb0: 6f 72 3a 77 68 69 74 65 3b 66 6f 6e 74 2d 73 69  or:white;font-si
2cc0: 7a 65 3a 30 2e 39 65 6d 3b 70 61 64 64 69 6e 67  ze:0.9em;padding
2cd0: 3a 30 20 31 65 78 22 3e 0a 20 20 20 20 3c 2f 66  :0 1ex">.    </f
2ce0: 6f 72 6d 3e 0a 20 20 20 20 3c 2f 64 69 76 3e 0a  orm>.    </div>.
2cf0: 20 20 3c 2f 74 61 62 6c 65 3e 0a 3c 2f 64 69 76    </table>.</div
2d00: 3e 3c 2f 64 69 76 3e 3c 2f 64 69 76 3e 3c 2f 64  ></div></div></d
2d10: 69 76 3e 0a 3c 2f 74 64 3e 3c 2f 74 72 3e 3c 2f  iv>.</td></tr></
2d20: 74 61 62 6c 65 3e 0a 20 20 0a 3c 73 63 72 69 70  table>.  .<scrip
2d30: 74 3e 0a 20 20 67 4d 73 67 20 3d 20 22 53 65 61  t>.  gMsg = "Sea
2d40: 72 63 68 20 53 51 4c 69 74 65 20 44 6f 63 73 2e  rch SQLite Docs.
2d50: 2e 2e 22 0a 20 20 66 75 6e 63 74 69 6f 6e 20 65  ..".  function e
2d60: 6e 74 65 72 73 65 61 72 63 68 28 29 20 7b 0a 20  ntersearch() {. 
2d70: 20 20 20 76 61 72 20 71 20 3d 20 64 6f 63 75 6d     var q = docum
2d80: 65 6e 74 2e 67 65 74 45 6c 65 6d 65 6e 74 42 79  ent.getElementBy
2d90: 49 64 28 22 71 22 29 3b 0a 20 20 20 20 69 66 28  Id("q");.    if(
2da0: 20 71 2e 76 61 6c 75 65 20 3d 3d 20 67 4d 73 67   q.value == gMsg
2db0: 20 29 20 7b 20 71 2e 76 61 6c 75 65 20 3d 20 22   ) { q.value = "
2dc0: 22 20 7d 0a 20 20 20 20 71 2e 73 74 79 6c 65 2e  " }.    q.style.
2dd0: 63 6f 6c 6f 72 20 3d 20 22 62 6c 61 63 6b 22 0a  color = "black".
2de0: 20 20 20 20 71 2e 73 74 79 6c 65 2e 66 6f 6e 74      q.style.font
2df0: 53 74 79 6c 65 20 3d 20 22 6e 6f 72 6d 61 6c 22  Style = "normal"
2e00: 0a 20 20 7d 0a 20 20 66 75 6e 63 74 69 6f 6e 20  .  }.  function 
2e10: 6c 65 61 76 65 73 65 61 72 63 68 28 29 20 7b 0a  leavesearch() {.
2e20: 20 20 20 20 76 61 72 20 71 20 3d 20 64 6f 63 75      var q = docu
2e30: 6d 65 6e 74 2e 67 65 74 45 6c 65 6d 65 6e 74 42  ment.getElementB
2e40: 79 49 64 28 22 71 22 29 3b 0a 20 20 20 20 69 66  yId("q");.    if
2e50: 28 20 71 2e 76 61 6c 75 65 20 3d 3d 20 22 22 20  ( q.value == "" 
2e60: 29 20 7b 20 0a 20 20 20 20 20 20 71 2e 76 61 6c  ) { .      q.val
2e70: 75 65 20 3d 20 67 4d 73 67 0a 20 20 20 20 20 20  ue = gMsg.      
2e80: 71 2e 73 74 79 6c 65 2e 63 6f 6c 6f 72 20 3d 20  q.style.color = 
2e90: 22 23 30 34 34 61 36 34 22 0a 20 20 20 20 20 20  "#044a64".      
2ea0: 71 2e 73 74 79 6c 65 2e 66 6f 6e 74 53 74 79 6c  q.style.fontStyl
2eb0: 65 20 3d 20 22 69 74 61 6c 69 63 22 0a 20 20 20  e = "italic".   
2ec0: 20 7d 0a 20 20 7d 0a 20 20 66 75 6e 63 74 69 6f   }.  }.  functio
2ed0: 6e 20 69 6e 69 74 73 65 61 72 63 68 28 29 20 7b  n initsearch() {
2ee0: 0a 20 20 20 20 76 61 72 20 71 20 3d 20 64 6f 63  .    var q = doc
2ef0: 75 6d 65 6e 74 2e 67 65 74 45 6c 65 6d 65 6e 74  ument.getElement
2f00: 42 79 49 64 28 22 71 22 29 3b 0a 20 20 20 20 71  ById("q");.    q
2f10: 2e 76 61 6c 75 65 20 3d 20 22 22 0a 20 20 20 20  .value = "".    
2f20: 20 20 71 2e 76 61 6c 75 65 20 3d 20 24 3a 3a 49    q.value = $::I
2f30: 4e 49 54 53 45 41 52 43 48 0a 20 20 20 20 20 20  NITSEARCH.      
2f40: 71 2e 73 74 79 6c 65 2e 63 6f 6c 6f 72 20 3d 20  q.style.color = 
2f50: 22 62 6c 61 63 6b 22 0a 20 20 20 20 20 20 71 2e  "black".      q.
2f60: 73 74 79 6c 65 2e 66 6f 6e 74 53 74 79 6c 65 20  style.fontStyle 
2f70: 3d 20 22 6e 6f 72 6d 61 6c 22 0a 20 20 7d 0a 20  = "normal".  }. 
2f80: 20 77 69 6e 64 6f 77 2e 6f 6e 6c 6f 61 64 20 3d   window.onload =
2f90: 20 69 6e 69 74 73 65 61 72 63 68 0a 3c 2f 73 63   initsearch.</sc
2fa0: 72 69 70 74 3e 0a 7d 0a 0a 69 66 20 7b 21 5b 69  ript>.}..if {![i
2fb0: 6e 66 6f 20 65 78 69 73 74 73 20 65 6e 76 28 52  nfo exists env(R
2fc0: 45 51 55 45 53 54 5f 4d 45 54 48 4f 44 29 5d 7d  EQUEST_METHOD)]}
2fd0: 20 7b 0a 20 20 73 65 74 20 65 6e 76 28 52 45 51   {.  set env(REQ
2fe0: 55 45 53 54 5f 4d 45 54 48 4f 44 29 20 47 45 54  UEST_METHOD) GET
2ff0: 0a 20 20 73 65 74 20 65 6e 76 28 51 55 45 52 59  .  set env(QUERY
3000: 5f 53 54 52 49 4e 47 29 20 72 65 62 75 69 6c 64  _STRING) rebuild
3010: 3d 31 0a 20 20 73 65 74 20 3a 3a 48 45 41 44 45  =1.  set ::HEADE
3020: 52 20 22 22 0a 0a 20 20 73 65 74 20 65 6e 76 28  R ""..  set env(
3030: 51 55 45 52 59 5f 53 54 52 49 4e 47 29 20 7b 71  QUERY_STRING) {q
3040: 3d 63 61 63 68 65 2b 73 69 7a 65 7d 0a 20 20 73  =cache+size}.  s
3050: 65 74 20 3a 3a 48 45 41 44 45 52 20 22 22 0a 7d  et ::HEADER "".}
3060: 0a 0a 0a 73 65 74 20 54 49 54 4c 45 20 22 53 65  ...set TITLE "Se
3070: 61 72 63 68 20 53 51 4c 69 74 65 20 44 6f 63 75  arch SQLite Docu
3080: 6d 65 6e 74 61 74 69 6f 6e 20 28 66 74 73 35 29  mentation (fts5)
3090: 22 0a 0a 69 66 20 7b 30 3d 3d 5b 63 61 74 63 68  "..if {0==[catch
30a0: 20 6d 61 69 6e 20 72 65 73 5d 7d 20 7b 0a 20 20   main res]} {.  
30b0: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
30c0: 20 3a 3a 41 28 71 29 5d 7d 20 7b 0a 20 20 20 20   ::A(q)]} {.    
30d0: 73 65 74 20 3a 3a 49 4e 49 54 53 45 41 52 43 48  set ::INITSEARCH
30e0: 20 5c 22 5b 61 74 74 72 69 7a 65 20 24 3a 3a 41   \"[attrize $::A
30f0: 28 71 29 5d 5c 22 0a 20 20 7d 20 65 6c 73 65 20  (q)]\".  } else 
3100: 7b 0a 20 20 20 20 73 65 74 20 3a 3a 49 4e 49 54  {.    set ::INIT
3110: 53 45 41 52 43 48 20 5c 22 5c 22 0a 20 20 7d 0a  SEARCH \"\".  }.
3120: 20 20 73 65 74 20 64 6f 63 75 6d 65 6e 74 20 5b    set document [
3130: 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64  subst -nocommand
3140: 73 20 24 3a 3a 48 45 41 44 45 52 5d 0a 20 20 61  s $::HEADER].  a
3150: 70 70 65 6e 64 20 64 6f 63 75 6d 65 6e 74 20 24  ppend document $
3160: 72 65 73 0a 7d 20 65 6c 73 65 20 7b 0a 20 20 73  res.} else {.  s
3170: 65 74 20 64 6f 63 75 6d 65 6e 74 20 22 3c 70 72  et document "<pr
3180: 65 3e 22 0a 20 20 61 70 70 65 6e 64 20 64 6f 63  e>".  append doc
3190: 75 6d 65 6e 74 20 22 45 72 72 6f 72 3a 20 24 72  ument "Error: $r
31a0: 65 73 5c 6e 5c 6e 22 0a 20 20 61 70 70 65 6e 64  es\n\n".  append
31b0: 20 64 6f 63 75 6d 65 6e 74 20 24 3a 3a 65 72 72   document $::err
31c0: 6f 72 49 6e 66 6f 0a 20 20 61 70 70 65 6e 64 20  orInfo.  append 
31d0: 64 6f 63 75 6d 65 6e 74 20 22 3c 2f 70 72 65 3e  document "</pre>
31e0: 22 0a 7d 0a 0a 70 75 74 73 20 22 43 6f 6e 74 65  ".}..puts "Conte
31f0: 6e 74 2d 74 79 70 65 3a 20 74 65 78 74 2f 68 74  nt-type: text/ht
3200: 6d 6c 22 20 0a 70 75 74 73 20 22 43 6f 6e 74 65  ml" .puts "Conte
3210: 6e 74 2d 4c 65 6e 67 74 68 3a 20 5b 73 74 72 69  nt-Length: [stri
3220: 6e 67 20 6c 65 6e 67 74 68 20 24 64 6f 63 75 6d  ng length $docum
3230: 65 6e 74 5d 22 0a 70 75 74 73 20 22 22 0a 70 75  ent]".puts "".pu
3240: 74 73 20 24 64 6f 63 75 6d 65 6e 74 0a 70 75 74  ts $document.put
3250: 73 20 22 22 0a 66 6c 75 73 68 20 73 74 64 6f 75  s "".flush stdou
3260: 74 0a 63 6c 6f 73 65 20 73 74 64 6f 75 74 0a 0a  t.close stdout..
3270: 65 78 69 74 0a                                   exit.