0000: 2f 2a 0a 2a 2a 20 43 6f 70 79 72 69 67 68 74 20 /*.** Copyright
0010: 28 63 29 20 32 30 30 38 20 44 2e 20 52 69 63 68 (c) 2008 D. Rich
0020: 61 72 64 20 48 69 70 70 0a 2a 2a 0a 2a 2a 20 54 ard Hipp.**.** T
0030: 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 his program is f
0040: 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f ree software; yo
0050: 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 u can redistribu
0060: 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 2a 2a 20 te it and/or.**
0070: 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 modify it under
0080: 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 the terms of the
0090: 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 GNU General Pub
00a0: 6c 69 63 0a 2a 2a 20 4c 69 63 65 6e 73 65 20 76 lic.** License v
00b0: 65 72 73 69 6f 6e 20 32 20 61 73 20 70 75 62 6c ersion 2 as publ
00c0: 69 73 68 65 64 20 62 79 20 74 68 65 20 46 72 65 ished by the Fre
00d0: 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 e Software Found
00e0: 61 74 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 ation..**.** Thi
00f0: 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 s program is dis
0100: 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 tributed in the
0110: 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c hope that it wil
0120: 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 2a 2a 20 l be useful,.**
0130: 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 but WITHOUT ANY
0140: 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 WARRANTY; withou
0150: 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 t even the impli
0160: 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 2a ed warranty of.*
0170: 2a 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 * MERCHANTABILIT
0180: 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 Y or FITNESS FOR
0190: 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 A PARTICULAR PU
01a0: 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 20 RPOSE. See the
01b0: 47 4e 55 0a 2a 2a 20 47 65 6e 65 72 61 6c 20 50 GNU.** General P
01c0: 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f ublic License fo
01d0: 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a r more details..
01e0: 2a 2a 20 0a 2a 2a 20 59 6f 75 20 73 68 6f 75 6c ** .** You shoul
01f0: 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 d have received
0200: 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e a copy of the GN
0210: 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 U General Public
0220: 0a 2a 2a 20 4c 69 63 65 6e 73 65 20 61 6c 6f 6e .** License alon
0230: 67 20 77 69 74 68 20 74 68 69 73 20 6c 69 62 72 g with this libr
0240: 61 72 79 3b 20 69 66 20 6e 6f 74 2c 20 77 72 69 ary; if not, wri
0250: 74 65 20 74 6f 20 74 68 65 0a 2a 2a 20 46 72 65 te to the.** Fre
0260: 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 e Software Found
0270: 61 74 69 6f 6e 2c 20 49 6e 63 2e 2c 20 35 39 20 ation, Inc., 59
0280: 54 65 6d 70 6c 65 20 50 6c 61 63 65 20 2d 20 53 Temple Place - S
0290: 75 69 74 65 20 33 33 30 2c 0a 2a 2a 20 42 6f 73 uite 330,.** Bos
02a0: 74 6f 6e 2c 20 4d 41 20 20 30 32 31 31 31 2d 31 ton, MA 02111-1
02b0: 33 30 37 2c 20 55 53 41 2e 0a 2a 2a 0a 2a 2a 20 307, USA..**.**
02c0: 41 75 74 68 6f 72 20 63 6f 6e 74 61 63 74 20 69 Author contact i
02d0: 6e 66 6f 72 6d 61 74 69 6f 6e 3a 0a 2a 2a 20 20 nformation:.**
02e0: 20 64 72 68 40 68 77 61 63 69 2e 63 6f 6d 0a 2a drh@hwaci.com.*
02f0: 2a 20 20 20 68 74 74 70 3a 2f 2f 77 77 77 2e 68 * http://www.h
0300: 77 61 63 69 2e 63 6f 6d 2f 64 72 68 2f 0a 2a 2a waci.com/drh/.**
0310: 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .***************
0320: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0330: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0340: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0350: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0360: 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 69 6c 65 .**.** This file
0370: 20 63 6f 6e 74 61 69 6e 73 20 61 6e 20 69 6e 74 contains an int
0380: 65 72 66 61 63 65 20 62 65 74 77 65 65 6e 20 74 erface between t
0390: 68 65 20 54 48 20 73 63 72 69 70 74 69 6e 67 20 he TH scripting
03a0: 6c 61 6e 67 75 61 67 65 0a 2a 2a 20 28 61 6e 20 language.** (an
03b0: 69 6e 64 65 70 65 6e 64 65 6e 74 20 70 72 6f 6a independent proj
03c0: 65 63 74 29 20 61 6e 64 20 66 6f 73 73 69 6c 2e ect) and fossil.
03d0: 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 22 63 6f .*/.#include "co
03e0: 6e 66 69 67 2e 68 22 0a 23 69 6e 63 6c 75 64 65 nfig.h".#include
03f0: 20 22 74 68 5f 6d 61 69 6e 2e 68 22 0a 0a 2f 2a "th_main.h"../*
0400: 0a 2a 2a 20 47 6c 6f 62 61 6c 20 76 61 72 69 61 .** Global varia
0410: 62 6c 65 20 63 6f 75 6e 74 69 6e 67 20 74 68 65 ble counting the
0420: 20 6e 75 6d 62 65 72 20 6f 66 20 6f 75 74 73 74 number of outst
0430: 61 6e 64 69 6e 67 20 63 61 6c 6c 73 20 74 6f 20 anding calls to
0440: 6d 61 6c 6c 6f 63 28 29 0a 2a 2a 20 6d 61 64 65 malloc().** made
0450: 20 62 79 20 74 68 65 20 74 68 31 20 69 6d 70 6c by the th1 impl
0460: 65 6d 65 6e 74 61 74 69 6f 6e 2e 20 54 68 69 73 ementation. This
0470: 20 69 73 20 75 73 65 64 20 74 6f 20 63 61 74 63 is used to catc
0480: 68 20 6d 65 6d 6f 72 79 20 6c 65 61 6b 73 0a 2a h memory leaks.*
0490: 2a 20 69 6e 20 74 68 65 20 69 6e 74 65 72 70 72 * in the interpr
04a0: 65 74 65 72 2e 20 4f 62 76 69 6f 75 73 6c 79 2c eter. Obviously,
04b0: 20 69 74 20 61 6c 73 6f 20 6d 65 61 6e 73 20 74 it also means t
04c0: 68 31 20 69 73 20 6e 6f 74 20 74 68 72 65 61 64 h1 is not thread
04d0: 73 61 66 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 safe..*/.static
04e0: 69 6e 74 20 6e 4f 75 74 73 74 61 6e 64 69 6e 67 int nOutstanding
04f0: 4d 61 6c 6c 6f 63 20 3d 20 30 3b 0a 0a 2f 2a 0a Malloc = 0;../*.
0500: 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f ** Implementatio
0510: 6e 73 20 6f 66 20 6d 61 6c 6c 6f 63 28 29 20 61 ns of malloc() a
0520: 6e 64 20 66 72 65 65 28 29 20 74 6f 20 70 61 73 nd free() to pas
0530: 73 20 74 6f 20 74 68 65 20 69 6e 74 65 72 70 72 s to the interpr
0540: 65 74 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 eter..*/.static
0550: 76 6f 69 64 20 2a 78 4d 61 6c 6c 6f 63 28 75 6e void *xMalloc(un
0560: 73 69 67 6e 65 64 20 69 6e 74 20 6e 29 7b 0a 20 signed int n){.
0570: 20 76 6f 69 64 20 2a 70 20 3d 20 6d 61 6c 6c 6f void *p = mallo
0580: 63 28 6e 29 3b 0a 20 20 69 66 28 20 70 20 29 7b c(n);. if( p ){
0590: 0a 20 20 20 20 6e 4f 75 74 73 74 61 6e 64 69 6e . nOutstandin
05a0: 67 4d 61 6c 6c 6f 63 2b 2b 3b 0a 20 20 7d 0a 20 gMalloc++;. }.
05b0: 20 72 65 74 75 72 6e 20 70 3b 0a 7d 0a 73 74 61 return p;.}.sta
05c0: 74 69 63 20 76 6f 69 64 20 78 46 72 65 65 28 76 tic void xFree(v
05d0: 6f 69 64 20 2a 70 29 7b 0a 20 20 69 66 28 20 70 oid *p){. if( p
05e0: 20 29 7b 0a 20 20 20 20 6e 4f 75 74 73 74 61 6e ){. nOutstan
05f0: 64 69 6e 67 4d 61 6c 6c 6f 63 2d 2d 3b 0a 20 20 dingMalloc--;.
0600: 7d 0a 20 20 66 72 65 65 28 70 29 3b 0a 7d 0a 73 }. free(p);.}.s
0610: 74 61 74 69 63 20 54 68 5f 56 74 61 62 20 76 74 tatic Th_Vtab vt
0620: 61 62 20 3d 20 7b 20 78 4d 61 6c 6c 6f 63 2c 20 ab = { xMalloc,
0630: 78 46 72 65 65 20 7d 3b 0a 0a 0a 2f 2a 0a 2a 2a xFree };.../*.**
0640: 20 54 72 75 65 20 69 66 20 6f 75 74 70 75 74 20 True if output
0650: 69 73 20 65 6e 61 62 6c 65 64 2e 20 20 46 61 6c is enabled. Fal
0660: 73 65 20 69 66 20 64 69 73 61 62 6c 65 64 2e 0a se if disabled..
0670: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 65 6e */.static int en
0680: 61 62 6c 65 4f 75 74 70 75 74 20 3d 20 31 3b 0a ableOutput = 1;.
0690: 0a 2f 2a 0a 2a 2a 20 54 48 20 63 6f 6d 6d 61 6e ./*.** TH comman
06a0: 64 3a 20 20 20 20 20 65 6e 61 62 6c 65 5f 6f 75 d: enable_ou
06b0: 74 70 75 74 20 42 4f 4f 4c 45 41 4e 0a 2a 2a 0a tput BOOLEAN.**.
06c0: 2a 2a 20 45 6e 61 62 6c 65 20 6f 72 20 64 69 73 ** Enable or dis
06d0: 61 62 6c 65 20 74 68 65 20 70 75 74 73 20 61 6e able the puts an
06e0: 64 20 68 70 75 74 73 20 63 6f 6d 6d 61 6e 64 73 d hputs commands
06f0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
0700: 65 6e 61 62 6c 65 4f 75 74 70 75 74 43 6d 64 28 enableOutputCmd(
0710: 0a 20 20 54 68 5f 49 6e 74 65 72 70 20 2a 69 6e . Th_Interp *in
0720: 74 65 72 70 2c 20 0a 20 20 76 6f 69 64 20 2a 70 terp, . void *p
0730: 2c 20 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 0a , . int argc, .
0740: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 const char **a
0750: 72 67 76 2c 20 0a 20 20 69 6e 74 20 2a 61 72 67 rgv, . int *arg
0760: 6c 0a 29 7b 0a 20 20 69 66 28 20 61 72 67 63 21 l.){. if( argc!
0770: 3d 32 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e =2 ){. return
0780: 20 54 68 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Th_WrongNumArgs
0790: 28 69 6e 74 65 72 70 2c 20 22 65 6e 61 62 6c 65 (interp, "enable
07a0: 5f 6f 75 74 70 75 74 20 42 4f 4f 4c 45 41 4e 22 _output BOOLEAN"
07b0: 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 );. }. return
07c0: 54 68 5f 54 6f 49 6e 74 28 69 6e 74 65 72 70 2c Th_ToInt(interp,
07d0: 20 61 72 67 76 5b 31 5d 2c 20 61 72 67 6c 5b 31 argv[1], argl[1
07e0: 5d 2c 20 26 65 6e 61 62 6c 65 4f 75 74 70 75 74 ], &enableOutput
07f0: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 65 6e 64 );.}../*.** Send
0800: 20 74 65 78 74 20 74 6f 20 74 68 65 20 61 70 70 text to the app
0810: 72 6f 70 72 69 61 74 65 20 6f 75 74 70 75 74 3a ropriate output:
0820: 20 20 45 69 74 68 65 72 20 74 6f 20 74 68 65 20 Either to the
0830: 63 6f 6e 73 6f 6c 65 0a 2a 2a 20 6f 72 20 74 6f console.** or to
0840: 20 74 68 65 20 43 47 49 20 72 65 70 6c 79 20 62 the CGI reply b
0850: 75 66 66 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 uffer..*/.static
0860: 20 76 6f 69 64 20 73 65 6e 64 54 65 78 74 28 63 void sendText(c
0870: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 2c 20 69 6e onst char *z, in
0880: 74 20 6e 2c 20 69 6e 74 20 65 6e 63 6f 64 65 29 t n, int encode)
0890: 7b 0a 20 20 69 66 28 20 65 6e 61 62 6c 65 4f 75 {. if( enableOu
08a0: 74 70 75 74 20 26 26 20 6e 20 29 7b 0a 20 20 20 tput && n ){.
08b0: 20 69 66 28 20 6e 3c 30 20 29 20 6e 20 3d 20 73 if( n<0 ) n = s
08c0: 74 72 6c 65 6e 28 7a 29 3b 0a 20 20 20 20 69 66 trlen(z);. if
08d0: 28 20 65 6e 63 6f 64 65 20 29 7b 0a 20 20 20 20 ( encode ){.
08e0: 20 20 7a 20 3d 20 68 74 6d 6c 69 7a 65 28 7a 2c z = htmlize(z,
08f0: 20 6e 29 3b 0a 20 20 20 20 20 20 6e 20 3d 20 73 n);. n = s
0900: 74 72 6c 65 6e 28 7a 29 3b 0a 20 20 20 20 7d 0a trlen(z);. }.
0910: 20 20 20 20 69 66 28 20 67 2e 63 67 69 50 61 6e if( g.cgiPan
0920: 69 63 20 29 7b 0a 20 20 20 20 20 20 63 67 69 5f ic ){. cgi_
0930: 61 70 70 65 6e 64 5f 63 6f 6e 74 65 6e 74 28 7a append_content(z
0940: 2c 20 6e 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b , n);. }else{
0950: 0a 20 20 20 20 20 20 66 77 72 69 74 65 28 7a 2c . fwrite(z,
0960: 20 31 2c 20 6e 2c 20 73 74 64 6f 75 74 29 3b 0a 1, n, stdout);.
0970: 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 65 6e }. if( en
0980: 63 6f 64 65 20 29 20 66 72 65 65 28 28 63 68 61 code ) free((cha
0990: 72 2a 29 7a 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a r*)z);. }.}../*
09a0: 0a 2a 2a 20 54 48 20 63 6f 6d 6d 61 6e 64 3a 20 .** TH command:
09b0: 20 20 20 20 70 75 74 73 20 53 54 52 49 4e 47 0a puts STRING.
09c0: 2a 2a 20 54 48 20 63 6f 6d 6d 61 6e 64 3a 20 20 ** TH command:
09d0: 20 20 20 68 74 6d 6c 20 53 54 52 49 4e 47 0a 2a html STRING.*
09e0: 2a 0a 2a 2a 20 4f 75 74 70 75 74 20 53 54 52 49 *.** Output STRI
09f0: 4e 47 20 61 73 20 48 54 4d 4c 20 28 68 74 6d 6c NG as HTML (html
0a00: 29 20 6f 72 20 75 6e 63 68 61 6e 67 65 64 20 28 ) or unchanged (
0a10: 70 75 74 73 29 2e 20 20 0a 2a 2f 0a 73 74 61 74 puts). .*/.stat
0a20: 69 63 20 69 6e 74 20 70 75 74 73 43 6d 64 28 0a ic int putsCmd(.
0a30: 20 20 54 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Th_Interp *int
0a40: 65 72 70 2c 20 0a 20 20 76 6f 69 64 20 2a 70 43 erp, . void *pC
0a50: 6f 6e 76 65 72 74 2c 20 0a 20 20 69 6e 74 20 61 onvert, . int a
0a60: 72 67 63 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 rgc, . const ch
0a70: 61 72 20 2a 2a 61 72 67 76 2c 20 0a 20 20 69 6e ar **argv, . in
0a80: 74 20 2a 61 72 67 6c 0a 29 7b 0a 20 20 69 66 28 t *argl.){. if(
0a90: 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 argc!=2 ){.
0aa0: 72 65 74 75 72 6e 20 54 68 5f 57 72 6f 6e 67 4e return Th_WrongN
0ab0: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 22 umArgs(interp, "
0ac0: 70 75 74 73 20 53 54 52 49 4e 47 22 29 3b 0a 20 puts STRING");.
0ad0: 20 7d 0a 20 20 73 65 6e 64 54 65 78 74 28 28 63 }. sendText((c
0ae0: 68 61 72 2a 29 61 72 67 76 5b 31 5d 2c 20 61 72 har*)argv[1], ar
0af0: 67 6c 5b 31 5d 2c 20 70 43 6f 6e 76 65 72 74 21 gl[1], pConvert!
0b00: 3d 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 48 =0);. return TH
0b10: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 48 _OK;.}../*.** TH
0b20: 20 63 6f 6d 6d 61 6e 64 3a 20 20 20 20 20 20 77 command: w
0b30: 69 6b 69 20 53 54 52 49 4e 47 0a 2a 2a 0a 2a 2a iki STRING.**.**
0b40: 20 52 65 6e 64 65 72 20 74 68 65 20 69 6e 70 75 Render the inpu
0b50: 74 20 73 74 72 69 6e 67 20 61 73 20 77 69 6b 69 t string as wiki
0b60: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
0b70: 77 69 6b 69 43 6d 64 28 0a 20 20 54 68 5f 49 6e wikiCmd(. Th_In
0b80: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 0a 20 terp *interp, .
0b90: 20 76 6f 69 64 20 2a 70 2c 20 0a 20 20 69 6e 74 void *p, . int
0ba0: 20 61 72 67 63 2c 20 0a 20 20 63 6f 6e 73 74 20 argc, . const
0bb0: 63 68 61 72 20 2a 2a 61 72 67 76 2c 20 0a 20 20 char **argv, .
0bc0: 69 6e 74 20 2a 61 72 67 6c 0a 29 7b 0a 20 20 69 int *argl.){. i
0bd0: 66 28 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 f( argc!=2 ){.
0be0: 20 20 72 65 74 75 72 6e 20 54 68 5f 57 72 6f 6e return Th_Wron
0bf0: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
0c00: 20 22 77 69 6b 69 20 53 54 52 49 4e 47 22 29 3b "wiki STRING");
0c10: 0a 20 20 7d 0a 20 20 69 66 28 20 65 6e 61 62 6c . }. if( enabl
0c20: 65 4f 75 74 70 75 74 20 29 7b 0a 20 20 20 20 42 eOutput ){. B
0c30: 6c 6f 62 20 73 72 63 3b 0a 20 20 20 20 62 6c 6f lob src;. blo
0c40: 62 5f 69 6e 69 74 28 26 73 72 63 2c 20 28 63 68 b_init(&src, (ch
0c50: 61 72 2a 29 61 72 67 76 5b 31 5d 2c 20 61 72 67 ar*)argv[1], arg
0c60: 6c 5b 31 5d 29 3b 0a 20 20 20 20 77 69 6b 69 5f l[1]);. wiki_
0c70: 63 6f 6e 76 65 72 74 28 26 73 72 63 2c 20 30 2c convert(&src, 0,
0c80: 20 57 49 4b 49 5f 49 4e 4c 49 4e 45 29 3b 0a 20 WIKI_INLINE);.
0c90: 20 20 20 62 6c 6f 62 5f 72 65 73 65 74 28 26 73 blob_reset(&s
0ca0: 72 63 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 rc);. }. retur
0cb0: 6e 20 54 48 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a n TH_OK;.}../*.*
0cc0: 2a 20 54 48 20 63 6f 6d 6d 61 6e 64 3a 20 20 20 * TH command:
0cd0: 20 20 20 68 74 6d 6c 69 7a 65 20 53 54 52 49 4e htmlize STRIN
0ce0: 47 0a 2a 2a 0a 2a 2a 20 45 73 63 61 70 65 20 61 G.**.** Escape a
0cf0: 6c 6c 20 63 68 61 72 61 63 74 65 72 73 20 6f 66 ll characters of
0d00: 20 53 54 52 49 4e 47 20 77 68 69 63 68 20 68 61 STRING which ha
0d10: 76 65 20 73 70 65 63 69 61 6c 20 6d 65 61 6e 69 ve special meani
0d20: 6e 67 20 69 6e 20 48 54 4d 4c 2e 0a 2a 2a 20 52 ng in HTML..** R
0d30: 65 74 75 72 6e 20 61 20 6e 65 77 20 73 74 72 69 eturn a new stri
0d40: 6e 67 20 72 65 73 75 6c 74 2e 0a 2a 2f 0a 73 74 ng result..*/.st
0d50: 61 74 69 63 20 69 6e 74 20 68 74 6d 6c 69 7a 65 atic int htmlize
0d60: 43 6d 64 28 0a 20 20 54 68 5f 49 6e 74 65 72 70 Cmd(. Th_Interp
0d70: 20 2a 69 6e 74 65 72 70 2c 20 0a 20 20 76 6f 69 *interp, . voi
0d80: 64 20 2a 70 2c 20 0a 20 20 69 6e 74 20 61 72 67 d *p, . int arg
0d90: 63 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 c, . const char
0da0: 20 2a 2a 61 72 67 76 2c 20 0a 20 20 69 6e 74 20 **argv, . int
0db0: 2a 61 72 67 6c 0a 29 7b 0a 20 20 63 68 61 72 20 *argl.){. char
0dc0: 2a 7a 4f 75 74 3b 0a 20 20 69 66 28 20 61 72 67 *zOut;. if( arg
0dd0: 63 21 3d 32 20 29 7b 0a 20 20 20 20 72 65 74 75 c!=2 ){. retu
0de0: 72 6e 20 54 68 5f 57 72 6f 6e 67 4e 75 6d 41 72 rn Th_WrongNumAr
0df0: 67 73 28 69 6e 74 65 72 70 2c 20 22 68 74 6d 6c gs(interp, "html
0e00: 69 7a 65 20 53 54 52 49 4e 47 22 29 3b 0a 20 20 ize STRING");.
0e10: 7d 0a 20 20 7a 4f 75 74 20 3d 20 68 74 6d 6c 69 }. zOut = htmli
0e20: 7a 65 28 28 63 68 61 72 2a 29 61 72 67 76 5b 31 ze((char*)argv[1
0e30: 5d 2c 20 61 72 67 6c 5b 31 5d 29 3b 0a 20 20 54 ], argl[1]);. T
0e40: 68 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 h_SetResult(inte
0e50: 72 70 2c 20 7a 4f 75 74 2c 20 2d 31 29 3b 0a 20 rp, zOut, -1);.
0e60: 20 66 72 65 65 28 7a 4f 75 74 29 3b 0a 20 20 72 free(zOut);. r
0e70: 65 74 75 72 6e 20 54 48 5f 4f 4b 3b 0a 7d 0a 0a eturn TH_OK;.}..
0e80: 2f 2a 0a 2a 2a 20 54 48 20 63 6f 6d 6d 61 6e 64 /*.** TH command
0e90: 3a 20 20 20 20 20 20 64 61 74 65 0a 2a 2a 0a 2a : date.**.*
0ea0: 2a 20 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e * Return a strin
0eb0: 67 20 77 68 69 63 68 20 69 73 20 74 68 65 20 63 g which is the c
0ec0: 75 72 72 65 6e 74 20 74 69 6d 65 20 61 6e 64 20 urrent time and
0ed0: 64 61 74 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 date..*/.static
0ee0: 69 6e 74 20 64 61 74 65 43 6d 64 28 0a 20 20 54 int dateCmd(. T
0ef0: 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 h_Interp *interp
0f00: 2c 20 0a 20 20 76 6f 69 64 20 2a 70 2c 20 0a 20 , . void *p, .
0f10: 20 69 6e 74 20 61 72 67 63 2c 20 0a 20 20 63 6f int argc, . co
0f20: 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 67 76 2c nst char **argv,
0f30: 20 0a 20 20 69 6e 74 20 2a 61 72 67 6c 0a 29 7b . int *argl.){
0f40: 0a 20 20 63 68 61 72 20 2a 7a 4f 75 74 20 3d 20 . char *zOut =
0f50: 64 62 5f 74 65 78 74 28 22 3f 3f 22 2c 20 22 53 db_text("??", "S
0f60: 45 4c 45 43 54 20 64 61 74 65 74 69 6d 65 28 27 ELECT datetime('
0f70: 6e 6f 77 27 29 22 29 3b 0a 20 20 54 68 5f 53 65 now')");. Th_Se
0f80: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 tResult(interp,
0f90: 7a 4f 75 74 2c 20 2d 31 29 3b 0a 20 20 66 72 65 zOut, -1);. fre
0fa0: 65 28 7a 4f 75 74 29 3b 0a 20 20 72 65 74 75 72 e(zOut);. retur
0fb0: 6e 20 54 48 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a n TH_OK;.}../*.*
0fc0: 2a 20 54 48 20 63 6f 6d 6d 61 6e 64 3a 20 20 20 * TH command:
0fd0: 20 20 68 61 73 63 61 70 20 53 54 52 49 4e 47 0a hascap STRING.
0fe0: 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 72 75 **.** Return tru
0ff0: 65 20 69 66 20 74 68 65 20 75 73 65 72 20 68 61 e if the user ha
1000: 73 20 61 6c 6c 20 6f 66 20 74 68 65 20 63 61 70 s all of the cap
1010: 61 62 69 6c 69 74 69 65 73 20 6c 69 73 74 65 64 abilities listed
1020: 20 69 6e 20 53 54 52 49 4e 47 2e 0a 2a 2f 0a 73 in STRING..*/.s
1030: 74 61 74 69 63 20 69 6e 74 20 68 61 73 63 61 70 tatic int hascap
1040: 43 6d 64 28 0a 20 20 54 68 5f 49 6e 74 65 72 70 Cmd(. Th_Interp
1050: 20 2a 69 6e 74 65 72 70 2c 20 0a 20 20 76 6f 69 *interp, . voi
1060: 64 20 2a 70 2c 20 0a 20 20 69 6e 74 20 61 72 67 d *p, . int arg
1070: 63 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 c, . const char
1080: 20 2a 2a 61 72 67 76 2c 20 0a 20 20 69 6e 74 20 **argv, . int
1090: 2a 61 72 67 6c 0a 29 7b 0a 20 20 69 66 28 20 61 *argl.){. if( a
10a0: 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 72 65 rgc!=2 ){. re
10b0: 74 75 72 6e 20 54 68 5f 57 72 6f 6e 67 4e 75 6d turn Th_WrongNum
10c0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 22 68 61 Args(interp, "ha
10d0: 73 63 61 70 20 53 54 52 49 4e 47 22 29 3b 0a 20 scap STRING");.
10e0: 20 7d 0a 20 20 54 68 5f 53 65 74 52 65 73 75 6c }. Th_SetResul
10f0: 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 6c 6f 67 tInt(interp, log
1100: 69 6e 5f 68 61 73 5f 63 61 70 61 62 69 6c 69 74 in_has_capabilit
1110: 79 28 28 63 68 61 72 2a 29 61 72 67 76 5b 31 5d y((char*)argv[1]
1120: 2c 61 72 67 6c 5b 31 5d 29 29 3b 0a 20 20 72 65 ,argl[1]));. re
1130: 74 75 72 6e 20 54 48 5f 4f 4b 3b 0a 7d 0a 0a 2f turn TH_OK;.}../
1140: 2a 0a 2a 2a 20 54 48 31 20 63 6f 6d 6d 61 6e 64 *.** TH1 command
1150: 3a 20 20 63 6f 6d 62 6f 62 6f 78 20 4e 41 4d 45 : combobox NAME
1160: 20 54 45 58 54 2d 4c 49 53 54 20 4e 55 4d 4c 49 TEXT-LIST NUMLI
1170: 4e 45 53 0a 2a 2a 0a 2a 2a 20 47 65 6e 65 72 61 NES.**.** Genera
1180: 74 65 20 61 6e 20 48 54 4d 4c 20 63 6f 6d 62 6f te an HTML combo
1190: 62 6f 78 2e 20 20 4e 41 4d 45 20 69 73 20 62 6f box. NAME is bo
11a0: 74 68 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 th the name of t
11b0: 68 65 0a 2a 2a 20 43 47 49 20 70 61 72 61 6d 65 he.** CGI parame
11c0: 74 65 72 20 61 6e 64 20 74 68 65 20 6e 61 6d 65 ter and the name
11d0: 20 6f 66 20 61 20 76 61 72 69 61 62 6c 65 20 74 of a variable t
11e0: 68 61 74 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 hat contains the
11f0: 0a 2a 2a 20 63 75 72 72 65 6e 74 6c 79 20 73 65 .** currently se
1200: 6c 65 63 74 65 64 20 76 61 6c 75 65 2e 20 20 54 lected value. T
1210: 45 58 54 2d 4c 49 53 54 20 69 73 20 61 20 6c 69 EXT-LIST is a li
1220: 73 74 20 6f 66 20 70 6f 73 73 69 62 6c 65 0a 2a st of possible.*
1230: 2a 20 76 61 6c 75 65 73 20 66 6f 72 20 74 68 65 * values for the
1240: 20 63 6f 6d 62 6f 62 6f 78 2e 20 20 4e 55 4d 4c combobox. NUML
1250: 49 4e 45 53 20 69 73 20 31 20 66 6f 72 20 61 20 INES is 1 for a
1260: 74 72 75 65 20 63 6f 6d 62 6f 62 6f 78 2e 0a 2a true combobox..*
1270: 2a 20 49 66 20 4e 55 4d 4c 49 4e 45 53 20 69 73 * If NUMLINES is
1280: 20 67 72 65 61 74 65 72 20 74 68 61 6e 20 6f 6e greater than on
1290: 65 20 74 68 65 6e 20 74 68 65 20 64 69 73 70 6c e then the displ
12a0: 61 79 20 69 73 20 61 20 6c 69 73 74 62 6f 78 0a ay is a listbox.
12b0: 2a 2a 20 77 69 74 68 20 74 68 65 20 6e 75 6d 62 ** with the numb
12c0: 65 72 20 6f 66 20 6c 69 6e 65 73 20 67 69 76 65 er of lines give
12d0: 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 n..*/.static int
12e0: 20 63 6f 6d 62 6f 62 6f 78 43 6d 64 28 0a 20 20 comboboxCmd(.
12f0: 54 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 Th_Interp *inter
1300: 70 2c 0a 20 20 76 6f 69 64 20 2a 70 2c 20 0a 20 p,. void *p, .
1310: 20 69 6e 74 20 61 72 67 63 2c 20 0a 20 20 63 6f int argc, . co
1320: 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 67 76 2c nst char **argv,
1330: 20 0a 20 20 69 6e 74 20 2a 61 72 67 6c 0a 29 7b . int *argl.){
1340: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 34 20 29 . if( argc!=4 )
1350: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 68 5f {. return Th_
1360: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
1370: 65 72 70 2c 20 22 63 6f 6d 62 6f 62 6f 78 20 4e erp, "combobox N
1380: 41 4d 45 20 54 45 58 54 2d 4c 49 53 54 20 4e 55 AME TEXT-LIST NU
1390: 4d 4c 49 4e 45 53 22 29 3b 0a 20 20 7d 0a 20 20 MLINES");. }.
13a0: 69 66 28 20 65 6e 61 62 6c 65 4f 75 74 70 75 74 if( enableOutput
13b0: 20 29 7b 0a 20 20 20 20 69 6e 74 20 68 65 69 67 ){. int heig
13c0: 68 74 3b 0a 20 20 20 20 42 6c 6f 62 20 6e 61 6d ht;. Blob nam
13d0: 65 3b 0a 20 20 20 20 69 6e 74 20 6e 56 61 6c 75 e;. int nValu
13e0: 65 3b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 e;. const cha
13f0: 72 20 2a 7a 56 61 6c 75 65 3b 0a 20 20 20 20 63 r *zValue;. c
1400: 68 61 72 20 2a 7a 2c 20 2a 7a 48 3b 0a 20 20 20 har *z, *zH;.
1410: 20 69 6e 74 20 6e 45 6c 65 6d 3b 0a 20 20 20 20 int nElem;.
1420: 69 6e 74 20 2a 61 73 7a 45 6c 65 6d 3b 0a 20 20 int *aszElem;.
1430: 20 20 63 68 61 72 20 2a 2a 61 7a 45 6c 65 6d 3b char **azElem;
1440: 0a 20 20 20 20 69 6e 74 20 69 3b 0a 0a 20 20 20 . int i;..
1450: 20 69 66 28 20 54 68 5f 54 6f 49 6e 74 28 69 6e if( Th_ToInt(in
1460: 74 65 72 70 2c 20 61 72 67 76 5b 33 5d 2c 20 61 terp, argv[3], a
1470: 72 67 6c 5b 33 5d 2c 20 26 68 65 69 67 68 74 29 rgl[3], &height)
1480: 20 29 20 72 65 74 75 72 6e 20 54 48 5f 45 52 52 ) return TH_ERR
1490: 4f 52 3b 0a 20 20 20 20 54 68 5f 53 70 6c 69 74 OR;. Th_Split
14a0: 4c 69 73 74 28 69 6e 74 65 72 70 2c 20 61 72 67 List(interp, arg
14b0: 76 5b 32 5d 2c 20 61 72 67 6c 5b 32 5d 2c 20 26 v[2], argl[2], &
14c0: 61 7a 45 6c 65 6d 2c 20 26 61 73 7a 45 6c 65 6d azElem, &aszElem
14d0: 2c 20 26 6e 45 6c 65 6d 29 3b 0a 20 20 20 20 62 , &nElem);. b
14e0: 6c 6f 62 5f 69 6e 69 74 28 26 6e 61 6d 65 2c 20 lob_init(&name,
14f0: 28 63 68 61 72 2a 29 61 72 67 76 5b 31 5d 2c 20 (char*)argv[1],
1500: 61 72 67 6c 5b 31 5d 29 3b 0a 20 20 20 20 7a 56 argl[1]);. zV
1510: 61 6c 75 65 20 3d 20 54 68 5f 46 65 74 63 68 28 alue = Th_Fetch(
1520: 62 6c 6f 62 5f 73 74 72 28 26 6e 61 6d 65 29 2c blob_str(&name),
1530: 20 26 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 7a &nValue);. z
1540: 20 3d 20 6d 70 72 69 6e 74 66 28 22 3c 73 65 6c = mprintf("<sel
1550: 65 63 74 20 6e 61 6d 65 3d 5c 22 25 7a 5c 22 20 ect name=\"%z\"
1560: 73 69 7a 65 3d 5c 22 25 64 5c 22 3e 22 2c 20 0a size=\"%d\">", .
1570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1580: 20 68 74 6d 6c 69 7a 65 28 62 6c 6f 62 5f 62 75 htmlize(blob_bu
1590: 66 66 65 72 28 26 6e 61 6d 65 29 2c 20 62 6c 6f ffer(&name), blo
15a0: 62 5f 73 69 7a 65 28 26 6e 61 6d 65 29 29 2c 20 b_size(&name)),
15b0: 68 65 69 67 68 74 29 3b 0a 20 20 20 20 73 65 6e height);. sen
15c0: 64 54 65 78 74 28 7a 2c 20 2d 31 2c 20 30 29 3b dText(z, -1, 0);
15d0: 0a 20 20 20 20 66 72 65 65 28 7a 29 3b 0a 20 20 . free(z);.
15e0: 20 20 62 6c 6f 62 5f 72 65 73 65 74 28 26 6e 61 blob_reset(&na
15f0: 6d 65 29 3b 0a 20 20 20 20 66 6f 72 28 69 3d 30 me);. for(i=0
1600: 3b 20 69 3c 6e 45 6c 65 6d 3b 20 69 2b 2b 29 7b ; i<nElem; i++){
1610: 0a 20 20 20 20 20 20 7a 48 20 3d 20 68 74 6d 6c . zH = html
1620: 69 7a 65 28 28 63 68 61 72 2a 29 61 7a 45 6c 65 ize((char*)azEle
1630: 6d 5b 69 5d 2c 20 61 73 7a 45 6c 65 6d 5b 69 5d m[i], aszElem[i]
1640: 29 3b 0a 20 20 20 20 20 20 69 66 28 20 7a 56 61 );. if( zVa
1650: 6c 75 65 20 26 26 20 61 73 7a 45 6c 65 6d 5b 69 lue && aszElem[i
1660: 5d 3d 3d 6e 56 61 6c 75 65 20 0a 20 20 20 20 20 ]==nValue .
1670: 20 20 20 20 20 20 20 20 26 26 20 6d 65 6d 63 6d && memcm
1680: 70 28 7a 56 61 6c 75 65 2c 20 61 7a 45 6c 65 6d p(zValue, azElem
1690: 5b 69 5d 2c 20 6e 56 61 6c 75 65 29 3d 3d 30 20 [i], nValue)==0
16a0: 29 7b 0a 20 20 20 20 20 20 20 20 7a 20 3d 20 6d ){. z = m
16b0: 70 72 69 6e 74 66 28 22 3c 6f 70 74 69 6f 6e 20 printf("<option
16c0: 76 61 6c 75 65 3d 5c 22 25 73 5c 22 20 73 65 6c value=\"%s\" sel
16d0: 65 63 74 65 64 3e 25 73 3c 2f 6f 70 74 69 6f 6e ected>%s</option
16e0: 3e 22 2c 20 7a 48 2c 20 7a 48 29 3b 0a 20 20 20 >", zH, zH);.
16f0: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
1700: 20 20 7a 20 3d 20 6d 70 72 69 6e 74 66 28 22 3c z = mprintf("<
1710: 6f 70 74 69 6f 6e 20 76 61 6c 75 65 3d 5c 22 25 option value=\"%
1720: 73 5c 22 3e 25 73 3c 2f 6f 70 74 69 6f 6e 3e 22 s\">%s</option>"
1730: 2c 20 7a 48 2c 20 7a 48 29 3b 0a 20 20 20 20 20 , zH, zH);.
1740: 20 7d 0a 20 20 20 20 20 20 66 72 65 65 28 7a 48 }. free(zH
1750: 29 3b 0a 20 20 20 20 20 20 73 65 6e 64 54 65 78 );. sendTex
1760: 74 28 7a 2c 20 2d 31 2c 20 30 29 3b 0a 20 20 20 t(z, -1, 0);.
1770: 20 20 20 66 72 65 65 28 7a 29 3b 0a 20 20 20 20 free(z);.
1780: 7d 0a 20 20 20 20 73 65 6e 64 54 65 78 74 28 22 }. sendText("
1790: 3c 2f 73 65 6c 65 63 74 3e 22 2c 20 2d 31 2c 20 </select>", -1,
17a0: 30 29 3b 0a 20 20 20 20 54 68 5f 46 72 65 65 28 0);. Th_Free(
17b0: 69 6e 74 65 72 70 2c 20 61 7a 45 6c 65 6d 29 3b interp, azElem);
17c0: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 48 . }. return TH
17d0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 48 _OK;.}../*.** TH
17e0: 31 20 63 6f 6d 6d 61 6e 64 3a 20 20 20 20 20 6c 1 command: l
17f0: 69 6e 65 63 6f 75 6e 74 20 53 54 52 49 4e 47 20 inecount STRING
1800: 4d 41 58 20 4d 49 4e 0a 2a 2a 0a 2a 2a 20 52 65 MAX MIN.**.** Re
1810: 74 75 72 6e 20 6f 6e 65 20 6d 6f 72 65 20 74 68 turn one more th
1820: 61 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 an the number of
1830: 20 5c 6e 20 63 68 61 72 61 63 74 65 72 73 20 69 \n characters i
1840: 6e 20 53 54 52 49 4e 47 2e 20 20 42 75 74 0a 2a n STRING. But.*
1850: 2a 20 6e 65 76 65 72 20 72 65 74 75 72 6e 20 6c * never return l
1860: 65 73 73 20 74 68 61 6e 20 4d 49 4e 20 6f 72 20 ess than MIN or
1870: 6d 6f 72 65 20 74 68 61 6e 20 4d 41 58 2e 0a 2a more than MAX..*
1880: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 6c 69 6e /.static int lin
1890: 65 63 6e 74 43 6d 64 28 0a 20 20 54 68 5f 49 6e ecntCmd(. Th_In
18a0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 terp *interp,.
18b0: 76 6f 69 64 20 2a 70 2c 20 0a 20 20 69 6e 74 20 void *p, . int
18c0: 61 72 67 63 2c 20 0a 20 20 63 6f 6e 73 74 20 63 argc, . const c
18d0: 68 61 72 20 2a 2a 61 72 67 76 2c 20 0a 20 20 69 har **argv, . i
18e0: 6e 74 20 2a 61 72 67 6c 0a 29 7b 0a 20 20 63 6f nt *argl.){. co
18f0: 6e 73 74 20 63 68 61 72 20 2a 7a 3b 0a 20 20 69 nst char *z;. i
1900: 6e 74 20 73 69 7a 65 2c 20 6e 2c 20 69 3b 0a 20 nt size, n, i;.
1910: 20 69 6e 74 20 69 4d 69 6e 2c 20 69 4d 61 78 3b int iMin, iMax;
1920: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 34 20 29 . if( argc!=4 )
1930: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 68 5f {. return Th_
1940: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
1950: 65 72 70 2c 20 22 6c 69 6e 65 63 6f 75 6e 74 20 erp, "linecount
1960: 53 54 52 49 4e 47 20 4d 41 58 20 4d 49 4e 22 29 STRING MAX MIN")
1970: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 68 5f 54 ;. }. if( Th_T
1980: 6f 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 oInt(interp, arg
1990: 76 5b 32 5d 2c 20 61 72 67 6c 5b 32 5d 2c 20 26 v[2], argl[2], &
19a0: 69 4d 61 78 29 20 29 20 72 65 74 75 72 6e 20 54 iMax) ) return T
19b0: 48 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 H_ERROR;. if( T
19c0: 68 5f 54 6f 49 6e 74 28 69 6e 74 65 72 70 2c 20 h_ToInt(interp,
19d0: 61 72 67 76 5b 33 5d 2c 20 61 72 67 6c 5b 33 5d argv[3], argl[3]
19e0: 2c 20 26 69 4d 69 6e 29 20 29 20 72 65 74 75 72 , &iMin) ) retur
19f0: 6e 20 54 48 5f 45 52 52 4f 52 3b 0a 20 20 7a 20 n TH_ERROR;. z
1a00: 3d 20 61 72 67 76 5b 31 5d 3b 0a 20 20 73 69 7a = argv[1];. siz
1a10: 65 20 3d 20 61 72 67 6c 5b 31 5d 3b 0a 20 20 66 e = argl[1];. f
1a20: 6f 72 28 6e 3d 31 2c 20 69 3d 30 3b 20 69 3c 73 or(n=1, i=0; i<s
1a30: 69 7a 65 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 ize; i++){. i
1a40: 66 28 20 7a 5b 69 5d 3d 3d 27 5c 6e 27 20 29 7b f( z[i]=='\n' ){
1a50: 0a 20 20 20 20 20 20 6e 2b 2b 3b 0a 20 20 20 20 . n++;.
1a60: 20 20 69 66 28 20 6e 3e 3d 69 4d 61 78 20 29 20 if( n>=iMax )
1a70: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d break;. }. }
1a80: 0a 20 20 69 66 28 20 6e 3c 69 4d 69 6e 20 29 20 . if( n<iMin )
1a90: 6e 20 3d 20 69 4d 69 6e 3b 0a 20 20 69 66 28 20 n = iMin;. if(
1aa0: 6e 3e 69 4d 61 78 20 29 20 6e 20 3d 20 69 4d 61 n>iMax ) n = iMa
1ab0: 78 3b 0a 20 20 54 68 5f 53 65 74 52 65 73 75 6c x;. Th_SetResul
1ac0: 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 6e 29 3b tInt(interp, n);
1ad0: 0a 20 20 72 65 74 75 72 6e 20 54 48 5f 4f 4b 3b . return TH_OK;
1ae0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4d 61 6b 65 20 73 .}../*.** Make s
1af0: 75 72 65 20 74 68 65 20 69 6e 74 65 72 70 72 65 ure the interpre
1b00: 74 65 72 20 68 61 73 20 62 65 65 6e 20 69 6e 69 ter has been ini
1b10: 74 69 61 6c 69 7a 65 64 2e 0a 2a 2f 0a 76 6f 69 tialized..*/.voi
1b20: 64 20 54 68 5f 46 6f 73 73 69 6c 49 6e 69 74 28 d Th_FossilInit(
1b30: 76 6f 69 64 29 7b 0a 20 20 73 74 61 74 69 63 20 void){. static
1b40: 73 74 72 75 63 74 20 5f 43 6f 6d 6d 61 6e 64 20 struct _Command
1b50: 7b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 {. const char
1b60: 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 54 68 5f *zName;. Th_
1b70: 43 6f 6d 6d 61 6e 64 50 72 6f 63 20 78 50 72 6f CommandProc xPro
1b80: 63 3b 0a 20 20 20 20 76 6f 69 64 20 2a 70 43 6f c;. void *pCo
1b90: 6e 74 65 78 74 3b 0a 20 20 7d 20 61 43 6f 6d 6d ntext;. } aComm
1ba0: 61 6e 64 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 22 and[] = {. {"
1bb0: 63 6f 6d 62 6f 62 6f 78 22 2c 20 20 20 20 20 20 combobox",
1bc0: 63 6f 6d 62 6f 62 6f 78 43 6d 64 2c 20 20 20 20 comboboxCmd,
1bd0: 20 20 20 20 20 20 30 7d 2c 0a 20 20 20 20 7b 22 0},. {"
1be0: 65 6e 61 62 6c 65 5f 6f 75 74 70 75 74 22 2c 20 enable_output",
1bf0: 65 6e 61 62 6c 65 4f 75 74 70 75 74 43 6d 64 2c enableOutputCmd,
1c00: 20 20 20 20 20 20 30 7d 2c 0a 20 20 20 20 7b 22 0},. {"
1c10: 6c 69 6e 65 63 6f 75 6e 74 22 2c 20 20 20 20 20 linecount",
1c20: 6c 69 6e 65 63 6e 74 43 6d 64 2c 20 20 20 20 20 linecntCmd,
1c30: 20 20 20 20 20 20 30 7d 2c 0a 20 20 20 20 7b 22 0},. {"
1c40: 68 61 73 63 61 70 22 2c 20 20 20 20 20 20 20 20 hascap",
1c50: 68 61 73 63 61 70 43 6d 64 2c 20 20 20 20 20 20 hascapCmd,
1c60: 20 20 20 20 20 20 30 7d 2c 0a 20 20 20 20 7b 22 0},. {"
1c70: 68 74 6d 6c 69 7a 65 22 2c 20 20 20 20 20 20 20 htmlize",
1c80: 68 74 6d 6c 69 7a 65 43 6d 64 2c 20 20 20 20 20 htmlizeCmd,
1c90: 20 20 20 20 20 20 30 7d 2c 0a 20 20 20 20 7b 22 0},. {"
1ca0: 64 61 74 65 22 2c 20 20 20 20 20 20 20 20 20 20 date",
1cb0: 64 61 74 65 43 6d 64 2c 20 20 20 20 20 20 20 20 dateCmd,
1cc0: 20 20 20 20 20 20 30 7d 2c 0a 20 20 20 20 7b 22 0},. {"
1cd0: 68 74 6d 6c 22 2c 20 20 20 20 20 20 20 20 20 20 html",
1ce0: 70 75 74 73 43 6d 64 2c 20 20 20 20 20 20 20 20 putsCmd,
1cf0: 20 20 20 20 20 20 30 7d 2c 0a 20 20 20 20 7b 22 0},. {"
1d00: 70 75 74 73 22 2c 20 20 20 20 20 20 20 20 20 20 puts",
1d10: 70 75 74 73 43 6d 64 2c 20 20 20 20 20 20 20 28 putsCmd, (
1d20: 76 6f 69 64 2a 29 31 7d 2c 0a 20 20 20 20 7b 22 void*)1},. {"
1d30: 77 69 6b 69 22 2c 20 20 20 20 20 20 20 20 20 20 wiki",
1d40: 77 69 6b 69 43 6d 64 2c 20 20 20 20 20 20 20 20 wikiCmd,
1d50: 20 20 20 20 20 20 30 7d 2c 0a 20 20 7d 3b 0a 20 0},. };.
1d60: 20 69 66 28 20 67 2e 69 6e 74 65 72 70 3d 3d 30 if( g.interp==0
1d70: 20 29 7b 0a 20 20 20 20 69 6e 74 20 69 3b 0a 20 ){. int i;.
1d80: 20 20 20 67 2e 69 6e 74 65 72 70 20 3d 20 54 68 g.interp = Th
1d90: 5f 43 72 65 61 74 65 49 6e 74 65 72 70 28 26 76 _CreateInterp(&v
1da0: 74 61 62 29 3b 0a 20 20 20 20 74 68 5f 72 65 67 tab);. th_reg
1db0: 69 73 74 65 72 5f 6c 61 6e 67 75 61 67 65 28 67 ister_language(g
1dc0: 2e 69 6e 74 65 72 70 29 3b 20 20 20 20 20 20 20 .interp);
1dd0: 2f 2a 20 42 61 73 69 63 20 73 63 72 69 70 74 69 /* Basic scripti
1de0: 6e 67 20 63 6f 6d 6d 61 6e 64 73 2e 20 2a 2f 0a ng commands. */.
1df0: 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73 for(i=0; i<s
1e00: 69 7a 65 6f 66 28 61 43 6f 6d 6d 61 6e 64 29 2f izeof(aCommand)/
1e10: 73 69 7a 65 6f 66 28 61 43 6f 6d 6d 61 6e 64 5b sizeof(aCommand[
1e20: 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 0]); i++){.
1e30: 20 54 68 5f 43 72 65 61 74 65 43 6f 6d 6d 61 6e Th_CreateComman
1e40: 64 28 67 2e 69 6e 74 65 72 70 2c 20 61 43 6f 6d d(g.interp, aCom
1e50: 6d 61 6e 64 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 61 mand[i].zName, a
1e60: 43 6f 6d 6d 61 6e 64 5b 69 5d 2e 78 50 72 6f 63 Command[i].xProc
1e70: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
1e80: 20 20 20 20 20 20 20 20 20 61 43 6f 6d 6d 61 6e aComman
1e90: 64 5b 69 5d 2e 70 43 6f 6e 74 65 78 74 2c 20 30 d[i].pContext, 0
1ea0: 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a );. }. }.}..
1eb0: 2f 2a 0a 2a 2a 20 53 74 6f 72 65 20 61 20 73 74 /*.** Store a st
1ec0: 72 69 6e 67 20 76 61 6c 75 65 20 69 6e 20 61 20 ring value in a
1ed0: 76 61 72 69 61 62 6c 65 20 69 6e 20 74 68 65 20 variable in the
1ee0: 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a interpreter..*/.
1ef0: 76 6f 69 64 20 54 68 5f 53 74 6f 72 65 28 63 6f void Th_Store(co
1f00: 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c nst char *zName,
1f10: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 61 const char *zVa
1f20: 6c 75 65 29 7b 0a 20 20 54 68 5f 46 6f 73 73 69 lue){. Th_Fossi
1f30: 6c 49 6e 69 74 28 29 3b 0a 20 20 69 66 28 20 7a lInit();. if( z
1f40: 56 61 6c 75 65 20 29 7b 0a 20 20 20 20 54 68 5f Value ){. Th_
1f50: 53 65 74 56 61 72 28 67 2e 69 6e 74 65 72 70 2c SetVar(g.interp,
1f60: 20 28 63 68 61 72 2a 29 7a 4e 61 6d 65 2c 20 2d (char*)zName, -
1f70: 31 2c 20 28 63 68 61 72 2a 29 7a 56 61 6c 75 65 1, (char*)zValue
1f80: 2c 20 73 74 72 6c 65 6e 28 7a 56 61 6c 75 65 29 , strlen(zValue)
1f90: 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 );. }.}../*.**
1fa0: 55 6e 73 65 74 20 61 20 76 61 72 69 61 62 6c 65 Unset a variable
1fb0: 2e 0a 2a 2f 0a 76 6f 69 64 20 54 68 5f 55 6e 73 ..*/.void Th_Uns
1fc0: 74 6f 72 65 28 63 6f 6e 73 74 20 63 68 61 72 20 tore(const char
1fd0: 2a 7a 4e 61 6d 65 29 7b 0a 20 20 69 66 28 20 67 *zName){. if( g
1fe0: 2e 69 6e 74 65 72 70 20 29 7b 0a 20 20 20 20 54 .interp ){. T
1ff0: 68 5f 55 6e 73 65 74 56 61 72 28 67 2e 69 6e 74 h_UnsetVar(g.int
2000: 65 72 70 2c 20 28 63 68 61 72 2a 29 7a 4e 61 6d erp, (char*)zNam
2010: 65 2c 20 2d 31 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f e, -1);. }.}../
2020: 2a 0a 2a 2a 20 52 65 74 72 69 65 76 65 20 61 20 *.** Retrieve a
2030: 73 74 72 69 6e 67 20 76 61 6c 75 65 20 66 72 6f string value fro
2040: 6d 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 m the interprete
2050: 72 2e 20 20 49 66 20 6e 6f 20 73 75 63 68 0a 2a r. If no such.*
2060: 2a 20 76 61 72 69 61 62 6c 65 20 65 78 69 73 74 * variable exist
2070: 73 2c 20 72 65 74 75 72 6e 20 4e 55 4c 4c 2e 0a s, return NULL..
2080: 2a 2f 0a 63 68 61 72 20 2a 54 68 5f 46 65 74 63 */.char *Th_Fetc
2090: 68 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e h(const char *zN
20a0: 61 6d 65 2c 20 69 6e 74 20 2a 70 53 69 7a 65 29 ame, int *pSize)
20b0: 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 54 68 {. int rc;. Th
20c0: 5f 46 6f 73 73 69 6c 49 6e 69 74 28 29 3b 0a 20 _FossilInit();.
20d0: 20 72 63 20 3d 20 54 68 5f 47 65 74 56 61 72 28 rc = Th_GetVar(
20e0: 67 2e 69 6e 74 65 72 70 2c 20 28 63 68 61 72 2a g.interp, (char*
20f0: 29 7a 4e 61 6d 65 2c 20 2d 31 29 3b 0a 20 20 69 )zName, -1);. i
2100: 66 28 20 72 63 3d 3d 54 48 5f 4f 4b 20 29 7b 0a f( rc==TH_OK ){.
2110: 20 20 20 20 72 65 74 75 72 6e 20 28 63 68 61 72 return (char
2120: 2a 29 54 68 5f 47 65 74 52 65 73 75 6c 74 28 67 *)Th_GetResult(g
2130: 2e 69 6e 74 65 72 70 2c 20 70 53 69 7a 65 29 3b .interp, pSize);
2140: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 72 65 . }else{. re
2150: 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 7d 0a 0a 2f turn 0;. }.}../
2160: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 72 75 65 *.** Return true
2170: 20 69 66 20 74 68 65 20 73 74 72 69 6e 67 20 62 if the string b
2180: 65 67 69 6e 73 20 77 69 74 68 20 74 68 65 20 54 egins with the T
2190: 48 31 20 62 65 67 69 6e 2d 73 63 72 69 70 74 0a H1 begin-script.
21a0: 2a 2a 20 74 61 67 3a 20 20 3c 74 68 31 3e 2e 0a ** tag: <th1>..
21b0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 69 73 */.static int is
21c0: 42 65 67 69 6e 53 63 72 69 70 74 54 61 67 28 63 BeginScriptTag(c
21d0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 29 7b 0a 20 onst char *z){.
21e0: 20 72 65 74 75 72 6e 20 7a 5b 30 5d 3d 3d 27 3c return z[0]=='<
21f0: 27 0a 20 20 20 20 20 20 26 26 20 28 7a 5b 31 5d '. && (z[1]
2200: 3d 3d 27 74 27 20 7c 7c 20 7a 5b 31 5d 3d 3d 27 =='t' || z[1]=='
2210: 54 27 29 0a 20 20 20 20 20 20 26 26 20 28 7a 5b T'). && (z[
2220: 32 5d 3d 3d 27 68 27 20 7c 7c 20 7a 5b 32 5d 3d 2]=='h' || z[2]=
2230: 3d 27 48 27 29 0a 20 20 20 20 20 20 26 26 20 7a ='H'). && z
2240: 5b 33 5d 3d 3d 27 31 27 0a 20 20 20 20 20 20 26 [3]=='1'. &
2250: 26 20 7a 5b 34 5d 3d 3d 27 3e 27 3b 0a 7d 0a 0a & z[4]=='>';.}..
2260: 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 72 75 /*.** Return tru
2270: 65 20 69 66 20 74 68 65 20 73 74 72 69 6e 67 20 e if the string
2280: 62 65 67 69 6e 73 20 77 69 74 68 20 74 68 65 20 begins with the
2290: 54 48 31 20 65 6e 64 2d 73 63 72 69 70 74 0a 2a TH1 end-script.*
22a0: 2a 20 74 61 67 3a 20 20 3c 2f 74 68 31 3e 2e 0a * tag: </th1>..
22b0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 69 73 */.static int is
22c0: 45 6e 64 53 63 72 69 70 74 54 61 67 28 63 6f 6e EndScriptTag(con
22d0: 73 74 20 63 68 61 72 20 2a 7a 29 7b 0a 20 20 72 st char *z){. r
22e0: 65 74 75 72 6e 20 7a 5b 30 5d 3d 3d 27 3c 27 0a eturn z[0]=='<'.
22f0: 20 20 20 20 20 20 26 26 20 7a 5b 31 5d 3d 3d 27 && z[1]=='
2300: 2f 27 0a 20 20 20 20 20 20 26 26 20 28 7a 5b 32 /'. && (z[2
2310: 5d 3d 3d 27 74 27 20 7c 7c 20 7a 5b 32 5d 3d 3d ]=='t' || z[2]==
2320: 27 54 27 29 0a 20 20 20 20 20 20 26 26 20 28 7a 'T'). && (z
2330: 5b 33 5d 3d 3d 27 68 27 20 7c 7c 20 7a 5b 33 5d [3]=='h' || z[3]
2340: 3d 3d 27 48 27 29 0a 20 20 20 20 20 20 26 26 20 =='H'). &&
2350: 7a 5b 34 5d 3d 3d 27 31 27 0a 20 20 20 20 20 20 z[4]=='1'.
2360: 26 26 20 7a 5b 35 5d 3d 3d 27 3e 27 3b 0a 7d 0a && z[5]=='>';.}.
2370: 0a 2f 2a 0a 2a 2a 20 49 66 20 73 74 72 69 6e 67 ./*.** If string
2380: 20 7a 5b 30 2e 2e 2e 5d 20 63 6f 6e 74 61 69 6e z[0...] contain
2390: 73 20 61 20 76 61 6c 69 64 20 76 61 72 69 61 62 s a valid variab
23a0: 6c 65 20 6e 61 6d 65 2c 20 72 65 74 75 72 6e 0a le name, return.
23b0: 2a 2a 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 ** the number of
23c0: 20 63 68 61 72 61 63 74 65 72 73 20 69 6e 20 74 characters in t
23d0: 68 61 74 20 6e 61 6d 65 2e 20 20 4f 74 68 65 72 hat name. Other
23e0: 77 69 73 65 2c 20 72 65 74 75 72 6e 20 30 2e 0a wise, return 0..
23f0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 76 61 */.static int va
2400: 6c 69 64 56 61 72 4e 61 6d 65 28 63 6f 6e 73 74 lidVarName(const
2410: 20 63 68 61 72 20 2a 7a 29 7b 0a 20 20 69 6e 74 char *z){. int
2420: 20 69 20 3d 20 30 3b 0a 20 20 69 6e 74 20 69 6e i = 0;. int in
2430: 42 72 61 63 6b 65 74 20 3d 20 30 3b 0a 20 20 69 Bracket = 0;. i
2440: 66 28 20 7a 5b 30 5d 3d 3d 27 3c 27 20 29 7b 0a f( z[0]=='<' ){.
2450: 20 20 20 20 69 6e 42 72 61 63 6b 65 74 20 3d 20 inBracket =
2460: 31 3b 0a 20 20 20 20 7a 2b 2b 3b 0a 20 20 7d 0a 1;. z++;. }.
2470: 20 20 69 66 28 20 7a 5b 30 5d 3d 3d 27 3a 27 20 if( z[0]==':'
2480: 26 26 20 7a 5b 31 5d 3d 3d 27 3a 27 20 26 26 20 && z[1]==':' &&
2490: 69 73 61 6c 70 68 61 28 7a 5b 32 5d 29 20 29 7b isalpha(z[2]) ){
24a0: 0a 20 20 20 20 7a 20 2b 3d 20 33 3b 0a 20 20 20 . z += 3;.
24b0: 20 69 20 2b 3d 20 33 3b 0a 20 20 7d 65 6c 73 65 i += 3;. }else
24c0: 20 69 66 28 20 69 73 61 6c 70 68 61 28 7a 5b 30 if( isalpha(z[0
24d0: 5d 29 20 29 7b 0a 20 20 20 20 7a 20 2b 2b 3b 0a ]) ){. z ++;.
24e0: 20 20 20 20 69 20 2b 3d 20 31 3b 0a 20 20 7d 65 i += 1;. }e
24f0: 6c 73 65 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 lse{. return
2500: 30 3b 0a 20 20 7d 0a 20 20 77 68 69 6c 65 28 20 0;. }. while(
2510: 69 73 61 6c 6e 75 6d 28 7a 5b 30 5d 29 20 7c 7c isalnum(z[0]) ||
2520: 20 7a 5b 30 5d 3d 3d 27 5f 27 20 29 7b 0a 20 20 z[0]=='_' ){.
2530: 20 20 7a 2b 2b 3b 0a 20 20 20 20 69 2b 2b 3b 0a z++;. i++;.
2540: 20 20 7d 0a 20 20 69 66 28 20 69 6e 42 72 61 63 }. if( inBrac
2550: 6b 65 74 20 29 7b 0a 20 20 20 20 69 66 28 20 7a ket ){. if( z
2560: 5b 30 5d 21 3d 27 3e 27 20 29 20 72 65 74 75 72 [0]!='>' ) retur
2570: 6e 20 30 3b 0a 20 20 20 20 69 20 2b 3d 20 32 3b n 0;. i += 2;
2580: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 69 3b . }. return i;
2590: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 7a 5b .}../*.** The z[
25a0: 5d 20 69 6e 70 75 74 20 63 6f 6e 74 61 69 6e 73 ] input contains
25b0: 20 74 65 78 74 20 6d 69 78 65 64 20 77 69 74 68 text mixed with
25c0: 20 54 48 31 20 73 63 72 69 70 74 73 2e 0a 2a 2a TH1 scripts..**
25d0: 20 54 68 65 20 54 48 31 20 73 63 72 69 70 74 73 The TH1 scripts
25e0: 20 61 72 65 20 63 6f 6e 74 61 69 6e 65 64 20 77 are contained w
25f0: 69 74 68 69 6e 20 3c 74 68 31 3e 2e 2e 2e 3c 2f ithin <th1>...</
2600: 74 68 31 3e 2e 20 0a 2a 2a 20 54 48 31 20 76 61 th1>. .** TH1 va
2610: 72 69 61 62 6c 65 73 20 61 72 65 20 24 61 61 61 riables are $aaa
2620: 20 6f 72 20 24 3c 61 61 61 3e 2e 20 20 54 68 65 or $<aaa>. The
2630: 20 66 69 72 73 74 20 66 6f 72 6d 20 6f 66 0a 2a first form of.*
2640: 2a 20 76 61 72 69 61 62 6c 65 20 69 73 20 6c 69 * variable is li
2650: 74 65 72 61 6c 2e 20 20 54 68 65 20 73 65 63 6f teral. The seco
2660: 6e 64 20 69 73 20 72 75 6e 20 74 68 72 6f 75 67 nd is run throug
2670: 68 20 68 74 6d 6c 69 7a 65 0a 2a 2a 20 62 65 66 h htmlize.** bef
2680: 6f 72 65 20 62 65 69 6e 67 20 69 6e 73 65 72 74 ore being insert
2690: 65 64 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 ed..**.** This r
26a0: 6f 75 74 69 6e 65 20 70 72 6f 63 65 73 73 65 73 outine processes
26b0: 20 74 68 65 20 74 65 6d 70 6c 61 74 65 20 61 6e the template an
26c0: 64 20 77 72 69 74 65 73 20 74 68 65 20 72 65 73 d writes the res
26d0: 75 6c 74 73 0a 2a 2a 20 6f 6e 20 65 69 74 68 65 ults.** on eithe
26e0: 72 20 73 74 64 6f 75 74 20 6f 72 20 69 6e 74 6f r stdout or into
26f0: 20 43 47 49 2e 0a 2a 2f 0a 69 6e 74 20 54 68 5f CGI..*/.int Th_
2700: 52 65 6e 64 65 72 28 63 6f 6e 73 74 20 63 68 61 Render(const cha
2710: 72 20 2a 7a 29 7b 0a 20 20 69 6e 74 20 69 20 3d r *z){. int i =
2720: 20 30 3b 0a 20 20 69 6e 74 20 6e 3b 0a 20 20 69 0;. int n;. i
2730: 6e 74 20 72 63 20 3d 20 54 48 5f 4f 4b 3b 0a 20 nt rc = TH_OK;.
2740: 20 63 68 61 72 20 2a 7a 52 65 73 75 6c 74 3b 0a char *zResult;.
2750: 20 20 54 68 5f 46 6f 73 73 69 6c 49 6e 69 74 28 Th_FossilInit(
2760: 29 3b 0a 20 20 77 68 69 6c 65 28 20 7a 5b 69 5d );. while( z[i]
2770: 20 29 7b 0a 20 20 20 20 69 66 28 20 7a 5b 69 5d ){. if( z[i]
2780: 3d 3d 27 24 27 20 26 26 20 28 6e 20 3d 20 76 61 =='$' && (n = va
2790: 6c 69 64 56 61 72 4e 61 6d 65 28 26 7a 5b 69 2b lidVarName(&z[i+
27a0: 31 5d 29 29 3e 30 20 29 7b 0a 20 20 20 20 20 20 1]))>0 ){.
27b0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 61 72 const char *zVar
27c0: 3b 0a 20 20 20 20 20 20 69 6e 74 20 6e 56 61 72 ;. int nVar
27d0: 3b 0a 20 20 20 20 20 20 73 65 6e 64 54 65 78 74 ;. sendText
27e0: 28 7a 2c 20 69 2c 20 30 29 3b 0a 20 20 20 20 20 (z, i, 0);.
27f0: 20 69 66 28 20 7a 5b 69 2b 31 5d 3d 3d 27 3c 27 if( z[i+1]=='<'
2800: 20 29 7b 0a 20 20 20 20 20 20 20 20 2f 2a 20 56 ){. /* V
2810: 61 72 69 61 62 6c 65 73 20 6f 66 20 74 68 65 20 ariables of the
2820: 66 6f 72 6d 20 24 3c 61 61 61 3e 20 2a 2f 0a 20 form $<aaa> */.
2830: 20 20 20 20 20 20 20 7a 56 61 72 20 3d 20 26 7a zVar = &z
2840: 5b 69 2b 32 5d 3b 0a 20 20 20 20 20 20 20 20 6e [i+2];. n
2850: 56 61 72 20 3d 20 6e 2d 32 3b 0a 20 20 20 20 20 Var = n-2;.
2860: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 }else{.
2870: 2f 2a 20 56 61 72 69 61 62 6c 65 73 20 6f 66 20 /* Variables of
2880: 74 68 65 20 66 6f 72 6d 20 24 61 61 61 20 2a 2f the form $aaa */
2890: 0a 20 20 20 20 20 20 20 20 7a 56 61 72 20 3d 20 . zVar =
28a0: 26 7a 5b 69 2b 31 5d 3b 0a 20 20 20 20 20 20 20 &z[i+1];.
28b0: 20 6e 56 61 72 20 3d 20 6e 3b 0a 20 20 20 20 20 nVar = n;.
28c0: 20 7d 0a 20 20 20 20 20 20 72 63 20 3d 20 54 68 }. rc = Th
28d0: 5f 47 65 74 56 61 72 28 67 2e 69 6e 74 65 72 70 _GetVar(g.interp
28e0: 2c 20 28 63 68 61 72 2a 29 7a 56 61 72 2c 20 6e , (char*)zVar, n
28f0: 56 61 72 29 3b 0a 20 20 20 20 20 20 7a 20 2b 3d Var);. z +=
2900: 20 69 2b 31 2b 6e 3b 0a 20 20 20 20 20 20 69 20 i+1+n;. i
2910: 3d 20 30 3b 0a 20 20 20 20 20 20 7a 52 65 73 75 = 0;. zResu
2920: 6c 74 20 3d 20 28 63 68 61 72 2a 29 54 68 5f 47 lt = (char*)Th_G
2930: 65 74 52 65 73 75 6c 74 28 67 2e 69 6e 74 65 72 etResult(g.inter
2940: 70 2c 20 26 6e 29 3b 0a 20 20 20 20 20 20 73 65 p, &n);. se
2950: 6e 64 54 65 78 74 28 28 63 68 61 72 2a 29 7a 52 ndText((char*)zR
2960: 65 73 75 6c 74 2c 20 6e 2c 20 6e 3e 6e 56 61 72 esult, n, n>nVar
2970: 29 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 );. }else if(
2980: 20 7a 5b 69 5d 3d 3d 27 3c 27 20 26 26 20 69 73 z[i]=='<' && is
2990: 42 65 67 69 6e 53 63 72 69 70 74 54 61 67 28 26 BeginScriptTag(&
29a0: 7a 5b 69 5d 29 20 29 7b 0a 20 20 20 20 20 20 73 z[i]) ){. s
29b0: 65 6e 64 54 65 78 74 28 7a 2c 20 69 2c 20 30 29 endText(z, i, 0)
29c0: 3b 0a 20 20 20 20 20 20 7a 20 2b 3d 20 69 2b 35 ;. z += i+5
29d0: 3b 0a 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b ;. for(i=0;
29e0: 20 7a 5b 69 5d 20 26 26 20 28 7a 5b 69 5d 21 3d z[i] && (z[i]!=
29f0: 27 3c 27 20 7c 7c 20 21 69 73 45 6e 64 53 63 72 '<' || !isEndScr
2a00: 69 70 74 54 61 67 28 26 7a 5b 69 5d 29 29 3b 20 iptTag(&z[i]));
2a10: 69 2b 2b 29 7b 7d 0a 20 20 20 20 20 20 72 63 20 i++){}. rc
2a20: 3d 20 54 68 5f 45 76 61 6c 28 67 2e 69 6e 74 65 = Th_Eval(g.inte
2a30: 72 70 2c 20 30 2c 20 28 63 6f 6e 73 74 20 63 68 rp, 0, (const ch
2a40: 61 72 2a 29 7a 2c 20 69 29 3b 0a 20 20 20 20 20 ar*)z, i);.
2a50: 20 69 66 28 20 72 63 21 3d 54 48 5f 4f 4b 20 29 if( rc!=TH_OK )
2a60: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7a 20 break;. z
2a70: 2b 3d 20 69 3b 0a 20 20 20 20 20 20 69 66 28 20 += i;. if(
2a80: 7a 5b 30 5d 20 29 7b 20 7a 20 2b 3d 20 36 3b 20 z[0] ){ z += 6;
2a90: 7d 0a 20 20 20 20 20 20 69 20 3d 20 30 3b 0a 20 }. i = 0;.
2aa0: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
2ab0: 69 2b 2b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 i++;. }. }.
2ac0: 20 69 66 28 20 72 63 3d 3d 54 48 5f 45 52 52 4f if( rc==TH_ERRO
2ad0: 52 20 29 7b 0a 20 20 20 20 73 65 6e 64 54 65 78 R ){. sendTex
2ae0: 74 28 22 3c 68 72 3e 3c 70 3e 3c 66 6f 6e 74 20 t("<hr><p><font
2af0: 63 6f 6c 6f 72 3d 5c 22 72 65 64 5c 22 3e 3c 62 color=\"red\"><b
2b00: 3e 45 52 52 4f 52 3a 20 22 2c 20 2d 31 2c 20 30 >ERROR: ", -1, 0
2b10: 29 3b 0a 20 20 20 20 7a 52 65 73 75 6c 74 20 3d );. zResult =
2b20: 20 28 63 68 61 72 2a 29 54 68 5f 47 65 74 52 65 (char*)Th_GetRe
2b30: 73 75 6c 74 28 67 2e 69 6e 74 65 72 70 2c 20 26 sult(g.interp, &
2b40: 6e 29 3b 0a 20 20 20 20 73 65 6e 64 54 65 78 74 n);. sendText
2b50: 28 28 63 68 61 72 2a 29 7a 52 65 73 75 6c 74 2c ((char*)zResult,
2b60: 20 6e 2c 20 31 29 3b 0a 20 20 20 20 73 65 6e 64 n, 1);. send
2b70: 54 65 78 74 28 22 3c 2f 62 3e 3c 2f 66 6f 6e 74 Text("</b></font
2b80: 3e 3c 2f 70 3e 22 2c 20 2d 31 2c 20 30 29 3b 0a ></p>", -1, 0);.
2b90: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 73 65 6e }else{. sen
2ba0: 64 54 65 78 74 28 7a 2c 20 69 2c 20 30 29 3b 0a dText(z, i, 0);.
2bb0: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72 63 3b }. return rc;
2bc0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 4f 4d 4d 41 4e .}../*.** COMMAN
2bd0: 44 3a 20 74 65 73 74 2d 74 68 2d 72 65 6e 64 65 D: test-th-rende
2be0: 72 0a 2a 2f 0a 76 6f 69 64 20 74 65 73 74 5f 74 r.*/.void test_t
2bf0: 68 5f 72 65 6e 64 65 72 28 76 6f 69 64 29 7b 0a h_render(void){.
2c00: 20 20 42 6c 6f 62 20 69 6e 3b 0a 20 20 69 66 28 Blob in;. if(
2c10: 20 67 2e 61 72 67 63 3c 33 20 29 7b 0a 20 20 20 g.argc<3 ){.
2c20: 20 75 73 61 67 65 28 22 46 49 4c 45 22 29 3b 0a usage("FILE");.
2c30: 20 20 7d 0a 20 20 62 6c 6f 62 5f 7a 65 72 6f 28 }. blob_zero(
2c40: 26 69 6e 29 3b 0a 20 20 62 6c 6f 62 5f 72 65 61 &in);. blob_rea
2c50: 64 5f 66 72 6f 6d 5f 66 69 6c 65 28 26 69 6e 2c d_from_file(&in,
2c60: 20 67 2e 61 72 67 76 5b 32 5d 29 3b 0a 20 20 54 g.argv[2]);. T
2c70: 68 5f 52 65 6e 64 65 72 28 62 6c 6f 62 5f 73 74 h_Render(blob_st
2c80: 72 28 26 69 6e 29 29 3b 0a 7d 0a r(&in));.}.