Artifact
b1fab154c9d717efa3fe916ed0281fcf90aac93d:
- File
search/search4.tcl
— part of check-in
[db6671c0ab]
at
2013-01-14 19:22:34
on branch trunk
— Add scripts allowing src4 to be used as the search engine for sqlite.org.
(user:
dan
size: 12917)
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 {< <
0b30: 3b 20 3e 20 26 67 74 3b 7d 20 24 73 74 72 20 7d ; > >} $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 {< < > >
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> ...&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> 
1b00: 3b 2e 2e 2e 26 6e 62 73 70 3b 3c 2f 62 3e 7d 0a ;... </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.