0000: 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 66 69 6c 65 ./*.** This file
0010: 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 69 6d contains the im
0020: 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 plementation of
0030: 61 6c 6c 20 6f 66 20 74 68 65 20 54 48 20 6c 61 all of the TH la
0040: 6e 67 75 61 67 65 20 0a 2a 2a 20 62 75 69 6c 74 nguage .** built
0050: 2d 69 6e 20 63 6f 6d 6d 61 6e 64 73 2e 20 0a 2a -in commands. .*
0060: 2a 0a 2a 2a 20 41 6c 6c 20 62 75 69 6c 74 2d 69 *.** All built-i
0070: 6e 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 69 n commands are i
0080: 6d 70 6c 65 6d 65 6e 74 65 64 20 75 73 69 6e 67 mplemented using
0090: 20 74 68 65 20 70 75 62 6c 69 63 20 69 6e 74 65 the public inte
00a0: 72 66 61 63 65 20 0a 2a 2a 20 64 65 63 6c 61 72 rface .** declar
00b0: 65 64 20 69 6e 20 74 68 2e 68 2c 20 73 6f 20 74 ed in th.h, so t
00c0: 68 69 73 20 66 69 6c 65 20 73 65 72 76 65 73 20 his file serves
00d0: 61 73 20 62 6f 74 68 20 61 20 70 61 72 74 20 6f as both a part o
00e0: 66 20 74 68 65 20 6c 61 6e 67 75 61 67 65 20 0a f the language .
00f0: 2a 2a 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f ** implementatio
0100: 6e 20 61 6e 64 20 61 6e 20 65 78 61 6d 70 6c 65 n and an example
0110: 20 6f 66 20 68 6f 77 20 74 6f 20 65 78 74 65 6e of how to exten
0120: 64 20 74 68 65 20 6c 61 6e 67 75 61 67 65 20 77 d the language w
0130: 69 74 68 0a 2a 2a 20 6e 65 77 20 63 6f 6d 6d 61 ith.** new comma
0140: 6e 64 73 2e 0a 2a 2f 0a 0a 23 69 6e 63 6c 75 64 nds..*/..#includ
0150: 65 20 22 74 68 2e 68 22 0a 23 69 6e 63 6c 75 64 e "th.h".#includ
0160: 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 23 69 6e e <string.h>.#in
0170: 63 6c 75 64 65 20 3c 61 73 73 65 72 74 2e 68 3e clude <assert.h>
0180: 0a 0a 69 6e 74 20 54 68 5f 57 72 6f 6e 67 4e 75 ..int Th_WrongNu
0190: 6d 41 72 67 73 28 54 68 5f 49 6e 74 65 72 70 20 mArgs(Th_Interp
01a0: 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 20 63 *interp, const c
01b0: 68 61 72 20 2a 7a 4d 73 67 29 7b 0a 20 20 54 68 har *zMsg){. Th
01c0: 5f 45 72 72 6f 72 4d 65 73 73 61 67 65 28 69 6e _ErrorMessage(in
01d0: 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 terp, "wrong # a
01e0: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c rgs: should be \
01f0: 22 22 2c 20 7a 4d 73 67 2c 20 2d 31 29 3b 0a 20 "", zMsg, -1);.
0200: 20 72 65 74 75 72 6e 20 54 48 5f 45 52 52 4f 52 return TH_ERROR
0210: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 79 6e 74 61 ;.}../*.** Synta
0220: 78 3a 20 0a 2a 2a 0a 2a 2a 20 20 20 63 61 74 63 x: .**.** catc
0230: 68 20 73 63 72 69 70 74 20 3f 76 61 72 6e 61 6d h script ?varnam
0240: 65 3f 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 e?.*/.static int
0250: 20 63 61 74 63 68 5f 63 6f 6d 6d 61 6e 64 28 0a catch_command(.
0260: 20 20 54 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Th_Interp *int
0270: 65 72 70 2c 20 0a 20 20 76 6f 69 64 20 2a 63 74 erp, . void *ct
0280: 78 2c 20 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 x, . int argc,
0290: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a . const char **
02a0: 61 72 67 76 2c 20 0a 20 20 69 6e 74 20 2a 61 72 argv, . int *ar
02b0: 67 6c 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a gl.){. int rc;.
02c0: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 20 26 . if( argc!=2 &
02d0: 26 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 & argc!=3 ){.
02e0: 20 72 65 74 75 72 6e 20 54 68 5f 57 72 6f 6e 67 return Th_Wrong
02f0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
0300: 22 63 61 74 63 68 20 73 63 72 69 70 74 20 3f 76 "catch script ?v
0310: 61 72 6e 61 6d 65 3f 22 29 3b 0a 20 20 7d 0a 0a arname?");. }..
0320: 20 20 72 63 20 3d 20 54 68 5f 45 76 61 6c 28 69 rc = Th_Eval(i
0330: 6e 74 65 72 70 2c 20 30 2c 20 61 72 67 76 5b 31 nterp, 0, argv[1
0340: 5d 2c 20 2d 31 29 3b 0a 20 20 69 66 28 20 61 72 ], -1);. if( ar
0350: 67 63 3d 3d 33 20 29 7b 0a 20 20 20 20 69 6e 74 gc==3 ){. int
0360: 20 6e 52 65 73 75 6c 74 3b 0a 20 20 20 20 63 6f nResult;. co
0370: 6e 73 74 20 63 68 61 72 20 2a 7a 52 65 73 75 6c nst char *zResul
0380: 74 20 3d 20 54 68 5f 47 65 74 52 65 73 75 6c 74 t = Th_GetResult
0390: 28 69 6e 74 65 72 70 2c 20 26 6e 52 65 73 75 6c (interp, &nResul
03a0: 74 29 3b 0a 20 20 20 20 54 68 5f 53 65 74 56 61 t);. Th_SetVa
03b0: 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 32 r(interp, argv[2
03c0: 5d 2c 20 61 72 67 6c 5b 32 5d 2c 20 7a 52 65 73 ], argl[2], zRes
03d0: 75 6c 74 2c 20 6e 52 65 73 75 6c 74 29 3b 0a 20 ult, nResult);.
03e0: 20 7d 0a 0a 20 20 54 68 5f 53 65 74 52 65 73 75 }.. Th_SetResu
03f0: 6c 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 72 63 ltInt(interp, rc
0400: 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 48 5f 4f );. return TH_O
0410: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 48 20 53 K;.}../*.** TH S
0420: 79 6e 74 61 78 3a 20 0a 2a 2a 0a 2a 2a 20 20 20 yntax: .**.**
0430: 69 66 20 65 78 70 72 31 20 62 6f 64 79 31 20 3f if expr1 body1 ?
0440: 65 6c 73 65 69 66 20 65 78 70 72 32 20 62 6f 64 elseif expr2 bod
0450: 79 32 3f 20 3f 20 3f 65 6c 73 65 3f 20 62 6f 64 y2? ? ?else? bod
0460: 79 4e 3f 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e yN?.*/.static in
0470: 74 20 69 66 5f 63 6f 6d 6d 61 6e 64 28 0a 20 20 t if_command(.
0480: 54 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 Th_Interp *inter
0490: 70 2c 20 0a 20 20 76 6f 69 64 20 2a 63 74 78 2c p, . void *ctx,
04a0: 20 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 0a 20 . int argc, .
04b0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 const char **ar
04c0: 67 76 2c 20 0a 20 20 69 6e 74 20 2a 61 72 67 6c gv, . int *argl
04d0: 0a 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 54 .){. int rc = T
04e0: 48 5f 4f 4b 3b 0a 0a 20 20 69 6e 74 20 69 43 6f H_OK;.. int iCo
04f0: 6e 64 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a nd; /*
0500: 20 52 65 73 75 6c 74 20 6f 66 20 65 76 61 6c 75 Result of evalu
0510: 61 74 69 6e 67 20 65 78 70 72 65 73 73 69 6f 6e ating expression
0520: 20 2a 2f 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 */. int i;..
0530: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 52 65 73 const char *zRes
0540: 75 6c 74 3b 0a 20 20 69 6e 74 20 6e 52 65 73 75 ult;. int nResu
0550: 6c 74 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 3c lt;.. if( argc<
0560: 33 20 29 7b 0a 20 20 20 20 67 6f 74 6f 20 77 72 3 ){. goto wr
0570: 6f 6e 67 5f 61 72 67 73 3b 0a 20 20 7d 0a 0a 20 ong_args;. }..
0580: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 61 72 67 63 for(i=0; i<argc
0590: 20 26 26 20 72 63 3d 3d 54 48 5f 4f 4b 3b 20 69 && rc==TH_OK; i
05a0: 2b 3d 33 29 7b 0a 20 20 20 20 69 66 28 20 69 3e +=3){. if( i>
05b0: 61 72 67 63 2d 33 20 29 7b 0a 20 20 20 20 20 20 argc-3 ){.
05c0: 69 20 3d 20 61 72 67 63 2d 33 3b 0a 20 20 20 20 i = argc-3;.
05d0: 20 20 69 43 6f 6e 64 20 3d 20 31 3b 0a 20 20 20 iCond = 1;.
05e0: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 69 66 }else{. if
05f0: 28 20 54 48 5f 4f 4b 21 3d 54 68 5f 45 78 70 72 ( TH_OK!=Th_Expr
0600: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 69 2b (interp, argv[i+
0610: 31 5d 2c 20 61 72 67 6c 5b 69 2b 31 5d 29 20 29 1], argl[i+1]) )
0620: 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e {. return
0630: 20 54 48 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 TH_ERROR;.
0640: 20 7d 0a 20 20 20 20 20 20 7a 52 65 73 75 6c 74 }. zResult
0650: 20 3d 20 54 68 5f 47 65 74 52 65 73 75 6c 74 28 = Th_GetResult(
0660: 69 6e 74 65 72 70 2c 20 26 6e 52 65 73 75 6c 74 interp, &nResult
0670: 29 3b 0a 20 20 20 20 20 20 72 63 20 3d 20 54 68 );. rc = Th
0680: 5f 54 6f 49 6e 74 28 69 6e 74 65 72 70 2c 20 7a _ToInt(interp, z
0690: 52 65 73 75 6c 74 2c 20 6e 52 65 73 75 6c 74 2c Result, nResult,
06a0: 20 26 69 43 6f 6e 64 29 3b 0a 20 20 20 20 7d 0a &iCond);. }.
06b0: 20 20 20 20 69 66 28 20 69 43 6f 6e 64 20 26 26 if( iCond &&
06c0: 20 72 63 3d 3d 54 48 5f 4f 4b 20 29 7b 0a 20 20 rc==TH_OK ){.
06d0: 20 20 20 20 72 63 20 3d 20 54 68 5f 45 76 61 6c rc = Th_Eval
06e0: 28 69 6e 74 65 72 70 2c 20 30 2c 20 61 72 67 76 (interp, 0, argv
06f0: 5b 69 2b 32 5d 2c 20 2d 31 29 3b 0a 20 20 20 20 [i+2], -1);.
0700: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 break;. }.
0710: 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 72 63 3b }.. return rc;
0720: 0a 0a 77 72 6f 6e 67 5f 61 72 67 73 3a 0a 20 20 ..wrong_args:.
0730: 72 65 74 75 72 6e 20 54 68 5f 57 72 6f 6e 67 4e return Th_WrongN
0740: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 22 umArgs(interp, "
0750: 69 66 20 2e 2e 2e 22 29 3b 0a 7d 0a 0a 2f 2a 0a if ...");.}../*.
0760: 2a 2a 20 54 48 20 53 79 6e 74 61 78 3a 20 0a 2a ** TH Syntax: .*
0770: 2a 0a 2a 2a 20 20 20 65 78 70 72 20 65 78 70 72 *.** expr expr
0780: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 65 .*/.static int e
0790: 78 70 72 5f 63 6f 6d 6d 61 6e 64 28 0a 20 20 54 xpr_command(. T
07a0: 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 h_Interp *interp
07b0: 2c 20 0a 20 20 76 6f 69 64 20 2a 63 74 78 2c 20 , . void *ctx,
07c0: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 0a 20 20 . int argc, .
07d0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 67 const char **arg
07e0: 76 2c 20 0a 20 20 69 6e 74 20 2a 61 72 67 6c 0a v, . int *argl.
07f0: 29 7b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 ){. if( argc!=2
0800: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){. return T
0810: 68 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 h_WrongNumArgs(i
0820: 6e 74 65 72 70 2c 20 22 65 78 70 72 20 65 78 70 nterp, "expr exp
0830: 72 65 73 73 69 6f 6e 22 29 3b 0a 20 20 7d 0a 0a ression");. }..
0840: 20 20 72 65 74 75 72 6e 20 54 68 5f 45 78 70 72 return Th_Expr
0850: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d (interp, argv[1]
0860: 2c 20 61 72 67 6c 5b 31 5d 29 3b 0a 7d 0a 0a 2f , argl[1]);.}../
0870: 2a 0a 2a 2a 20 45 76 61 6c 75 61 74 65 20 74 68 *.** Evaluate th
0880: 65 20 74 68 31 20 73 63 72 69 70 74 20 28 7a 42 e th1 script (zB
0890: 6f 64 79 2c 20 6e 42 6f 64 79 29 20 69 6e 20 74 ody, nBody) in t
08a0: 68 65 20 6c 6f 63 61 6c 20 73 74 61 63 6b 20 66 he local stack f
08b0: 72 61 6d 65 2e 20 0a 2a 2a 20 52 65 74 75 72 6e rame. .** Return
08c0: 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 74 the result of t
08d0: 68 65 20 65 76 61 6c 75 61 74 69 6f 6e 2c 20 65 he evaluation, e
08e0: 78 63 65 70 74 20 69 66 20 74 68 65 20 72 65 73 xcept if the res
08f0: 75 6c 74 0a 2a 2a 20 69 73 20 54 48 5f 43 4f 4e ult.** is TH_CON
0900: 54 49 4e 55 45 2c 20 72 65 74 75 72 6e 20 54 48 TINUE, return TH
0910: 5f 4f 4b 20 69 6e 73 74 65 61 64 2e 0a 2a 2f 0a _OK instead..*/.
0920: 73 74 61 74 69 63 20 69 6e 74 20 65 76 61 6c 5f static int eval_
0930: 6c 6f 6f 70 62 6f 64 79 28 54 68 5f 49 6e 74 65 loopbody(Th_Inte
0940: 72 70 20 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 rp *interp, cons
0950: 74 20 63 68 61 72 20 2a 7a 42 6f 64 79 2c 20 69 t char *zBody, i
0960: 6e 74 20 6e 42 6f 64 79 29 7b 0a 20 20 69 6e 74 nt nBody){. int
0970: 20 72 63 20 3d 20 54 68 5f 45 76 61 6c 28 69 6e rc = Th_Eval(in
0980: 74 65 72 70 2c 20 30 2c 20 7a 42 6f 64 79 2c 20 terp, 0, zBody,
0990: 6e 42 6f 64 79 29 3b 0a 20 20 69 66 28 20 72 63 nBody);. if( rc
09a0: 3d 3d 54 48 5f 43 4f 4e 54 49 4e 55 45 20 29 7b ==TH_CONTINUE ){
09b0: 0a 20 20 20 20 72 63 20 3d 20 54 48 5f 4f 4b 3b . rc = TH_OK;
09c0: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72 63 . }. return rc
09d0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 48 20 53 79 ;.}../*.** TH Sy
09e0: 6e 74 61 78 3a 20 0a 2a 2a 0a 2a 2a 20 20 20 66 ntax: .**.** f
09f0: 6f 72 20 69 6e 69 74 20 63 6f 6e 64 69 74 69 6f or init conditio
0a00: 6e 20 69 6e 63 72 20 73 63 72 69 70 74 0a 2a 2f n incr script.*/
0a10: 0a 73 74 61 74 69 63 20 69 6e 74 20 66 6f 72 5f .static int for_
0a20: 63 6f 6d 6d 61 6e 64 28 0a 20 20 54 68 5f 49 6e command(. Th_In
0a30: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 0a 20 terp *interp, .
0a40: 20 76 6f 69 64 20 2a 63 74 78 2c 20 0a 20 20 69 void *ctx, . i
0a50: 6e 74 20 61 72 67 63 2c 20 0a 20 20 63 6f 6e 73 nt argc, . cons
0a60: 74 20 63 68 61 72 20 2a 2a 61 72 67 76 2c 20 0a t char **argv, .
0a70: 20 20 69 6e 74 20 2a 61 72 67 6c 0a 29 7b 0a 20 int *argl.){.
0a80: 20 69 6e 74 20 72 63 3b 0a 20 20 69 6e 74 20 69 int rc;. int i
0a90: 43 6f 6e 64 3b 0a 0a 20 20 69 66 28 20 61 72 67 Cond;.. if( arg
0aa0: 63 21 3d 35 20 29 7b 0a 20 20 20 20 72 65 74 75 c!=5 ){. retu
0ab0: 72 6e 20 54 68 5f 57 72 6f 6e 67 4e 75 6d 41 72 rn Th_WrongNumAr
0ac0: 67 73 28 69 6e 74 65 72 70 2c 20 22 66 6f 72 20 gs(interp, "for
0ad0: 69 6e 69 74 20 63 6f 6e 64 69 74 69 6f 6e 20 69 init condition i
0ae0: 6e 63 72 20 73 63 72 69 70 74 22 29 3b 0a 20 20 ncr script");.
0af0: 7d 0a 0a 20 20 2f 2a 20 45 76 61 6c 75 61 74 65 }.. /* Evaluate
0b00: 20 74 68 65 20 27 69 6e 69 74 27 20 73 63 72 69 the 'init' scri
0b10: 70 74 20 2a 2f 0a 20 20 72 63 20 3d 20 54 68 5f pt */. rc = Th_
0b20: 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 30 2c 20 Eval(interp, 0,
0b30: 61 72 67 76 5b 31 5d 2c 20 2d 31 29 3b 0a 0a 20 argv[1], -1);..
0b40: 20 77 68 69 6c 65 28 20 72 63 3d 3d 54 48 5f 4f while( rc==TH_O
0b50: 4b 20 0a 20 20 20 20 20 26 26 20 54 48 5f 4f 4b K . && TH_OK
0b60: 3d 3d 28 72 63 20 3d 20 54 68 5f 45 78 70 72 28 ==(rc = Th_Expr(
0b70: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 32 5d 2c interp, argv[2],
0b80: 20 2d 31 29 29 0a 20 20 20 20 20 26 26 20 54 48 -1)). && TH
0b90: 5f 4f 4b 3d 3d 28 72 63 20 3d 20 54 68 5f 54 6f _OK==(rc = Th_To
0ba0: 49 6e 74 28 69 6e 74 65 72 70 2c 20 54 68 5f 47 Int(interp, Th_G
0bb0: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
0bc0: 20 30 29 2c 20 2d 31 2c 20 26 69 43 6f 6e 64 29 0), -1, &iCond)
0bd0: 29 0a 20 20 20 20 20 26 26 20 69 43 6f 6e 64 0a ). && iCond.
0be0: 20 20 20 20 20 26 26 20 54 48 5f 4f 4b 3d 3d 28 && TH_OK==(
0bf0: 72 63 20 3d 20 65 76 61 6c 5f 6c 6f 6f 70 62 6f rc = eval_loopbo
0c00: 64 79 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b dy(interp, argv[
0c10: 34 5d 2c 20 61 72 67 6c 5b 34 5d 29 29 0a 20 20 4], argl[4])).
0c20: 29 7b 0a 20 20 20 20 72 63 20 3d 20 54 68 5f 45 ){. rc = Th_E
0c30: 76 61 6c 28 69 6e 74 65 72 70 2c 20 30 2c 20 61 val(interp, 0, a
0c40: 72 67 76 5b 33 5d 2c 20 2d 31 29 3b 0a 20 20 7d rgv[3], -1);. }
0c50: 0a 0a 20 20 69 66 28 20 72 63 3d 3d 54 48 5f 42 .. if( rc==TH_B
0c60: 52 45 41 4b 20 29 20 72 63 20 3d 20 54 48 5f 4f REAK ) rc = TH_O
0c70: 4b 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a K;. return rc;.
0c80: 7d 0a 0a 2f 2a 0a 2a 2a 20 54 48 20 53 79 6e 74 }../*.** TH Synt
0c90: 61 78 3a 20 0a 2a 2a 0a 2a 2a 20 20 20 6c 69 73 ax: .**.** lis
0ca0: 74 20 3f 61 72 67 31 20 3f 61 72 67 32 3f 20 2e t ?arg1 ?arg2? .
0cb0: 2e 2e 3f 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ..?.*/.static in
0cc0: 74 20 6c 69 73 74 5f 63 6f 6d 6d 61 6e 64 28 0a t list_command(.
0cd0: 20 20 54 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Th_Interp *int
0ce0: 65 72 70 2c 20 0a 20 20 76 6f 69 64 20 2a 63 74 erp, . void *ct
0cf0: 78 2c 20 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 x, . int argc,
0d00: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a . const char **
0d10: 61 72 67 76 2c 20 0a 20 20 69 6e 74 20 2a 61 72 argv, . int *ar
0d20: 67 6c 0a 29 7b 0a 20 20 63 68 61 72 20 2a 7a 4c gl.){. char *zL
0d30: 69 73 74 20 3d 20 30 3b 0a 20 20 69 6e 74 20 6e ist = 0;. int n
0d40: 4c 69 73 74 20 3d 20 30 3b 0a 20 20 69 6e 74 20 List = 0;. int
0d50: 69 3b 0a 0a 20 20 66 6f 72 28 69 3d 31 3b 20 69 i;.. for(i=1; i
0d60: 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 <argc; i++){.
0d70: 20 54 68 5f 4c 69 73 74 41 70 70 65 6e 64 28 69 Th_ListAppend(i
0d80: 6e 74 65 72 70 2c 20 26 7a 4c 69 73 74 2c 20 26 nterp, &zList, &
0d90: 6e 4c 69 73 74 2c 20 61 72 67 76 5b 69 5d 2c 20 nList, argv[i],
0da0: 61 72 67 6c 5b 69 5d 29 3b 0a 20 20 7d 0a 20 0a argl[i]);. }. .
0db0: 20 20 54 68 5f 53 65 74 52 65 73 75 6c 74 28 69 Th_SetResult(i
0dc0: 6e 74 65 72 70 2c 20 7a 4c 69 73 74 2c 20 6e 4c nterp, zList, nL
0dd0: 69 73 74 29 3b 0a 20 20 54 68 5f 46 72 65 65 28 ist);. Th_Free(
0de0: 69 6e 74 65 72 70 2c 20 7a 4c 69 73 74 29 3b 0a interp, zList);.
0df0: 0a 20 20 72 65 74 75 72 6e 20 54 48 5f 4f 4b 3b . return TH_OK;
0e00: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 48 20 53 79 6e .}../*.** TH Syn
0e10: 74 61 78 3a 20 0a 2a 2a 0a 2a 2a 20 20 20 6c 69 tax: .**.** li
0e20: 6e 64 65 78 20 6c 69 73 74 20 69 6e 64 65 78 0a ndex list index.
0e30: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 6c 69 */.static int li
0e40: 6e 64 65 78 5f 63 6f 6d 6d 61 6e 64 28 0a 20 20 ndex_command(.
0e50: 54 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 Th_Interp *inter
0e60: 70 2c 20 0a 20 20 76 6f 69 64 20 2a 63 74 78 2c p, . void *ctx,
0e70: 20 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 0a 20 . int argc, .
0e80: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 const char **ar
0e90: 67 76 2c 20 0a 20 20 69 6e 74 20 2a 61 72 67 6c gv, . int *argl
0ea0: 0a 29 7b 0a 20 20 69 6e 74 20 69 45 6c 65 6d 3b .){. int iElem;
0eb0: 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 63 68 . int rc;.. ch
0ec0: 61 72 20 2a 2a 61 7a 45 6c 65 6d 3b 0a 20 20 69 ar **azElem;. i
0ed0: 6e 74 20 2a 61 6e 45 6c 65 6d 3b 0a 20 20 69 6e nt *anElem;. in
0ee0: 74 20 6e 43 6f 75 6e 74 3b 0a 0a 20 20 69 66 28 t nCount;.. if(
0ef0: 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 argc!=3 ){.
0f00: 72 65 74 75 72 6e 20 54 68 5f 57 72 6f 6e 67 4e return Th_WrongN
0f10: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 22 umArgs(interp, "
0f20: 6c 69 6e 64 65 78 20 6c 69 73 74 20 69 6e 64 65 lindex list inde
0f30: 78 22 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 x");. }.. if(
0f40: 54 48 5f 4f 4b 21 3d 54 68 5f 54 6f 49 6e 74 28 TH_OK!=Th_ToInt(
0f50: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 32 5d 2c interp, argv[2],
0f60: 20 61 72 67 6c 5b 32 5d 2c 20 26 69 45 6c 65 6d argl[2], &iElem
0f70: 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 ) ){. return
0f80: 54 48 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 TH_ERROR;. }..
0f90: 20 72 63 20 3d 20 54 68 5f 53 70 6c 69 74 4c 69 rc = Th_SplitLi
0fa0: 73 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b st(interp, argv[
0fb0: 31 5d 2c 20 61 72 67 6c 5b 31 5d 2c 20 26 61 7a 1], argl[1], &az
0fc0: 45 6c 65 6d 2c 20 26 61 6e 45 6c 65 6d 2c 20 26 Elem, &anElem, &
0fd0: 6e 43 6f 75 6e 74 29 3b 0a 20 20 69 66 28 20 72 nCount);. if( r
0fe0: 63 3d 3d 54 48 5f 4f 4b 20 29 7b 0a 20 20 20 20 c==TH_OK ){.
0ff0: 69 66 28 20 69 45 6c 65 6d 3c 6e 43 6f 75 6e 74 if( iElem<nCount
1000: 20 26 26 20 69 45 6c 65 6d 3e 3d 30 20 29 7b 0a && iElem>=0 ){.
1010: 20 20 20 20 20 20 54 68 5f 53 65 74 52 65 73 75 Th_SetResu
1020: 6c 74 28 69 6e 74 65 72 70 2c 20 61 7a 45 6c 65 lt(interp, azEle
1030: 6d 5b 69 45 6c 65 6d 5d 2c 20 61 6e 45 6c 65 6d m[iElem], anElem
1040: 5b 69 45 6c 65 6d 5d 29 3b 0a 20 20 20 20 7d 65 [iElem]);. }e
1050: 6c 73 65 7b 0a 20 20 20 20 20 20 54 68 5f 53 65 lse{. Th_Se
1060: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 tResult(interp,
1070: 30 2c 20 30 29 3b 0a 20 20 20 20 7d 0a 20 20 20 0, 0);. }.
1080: 20 54 68 5f 46 72 65 65 28 69 6e 74 65 72 70 2c Th_Free(interp,
1090: 20 61 7a 45 6c 65 6d 29 3b 0a 20 20 7d 0a 0a 20 azElem);. }..
10a0: 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f return rc;.}../
10b0: 2a 0a 2a 2a 20 54 48 20 53 79 6e 74 61 78 3a 20 *.** TH Syntax:
10c0: 0a 2a 2a 0a 2a 2a 20 20 20 6c 6c 65 6e 67 74 68 .**.** llength
10d0: 20 6c 69 73 74 0a 2a 2f 0a 73 74 61 74 69 63 20 list.*/.static
10e0: 69 6e 74 20 6c 6c 65 6e 67 74 68 5f 63 6f 6d 6d int llength_comm
10f0: 61 6e 64 28 0a 20 20 54 68 5f 49 6e 74 65 72 70 and(. Th_Interp
1100: 20 2a 69 6e 74 65 72 70 2c 20 0a 20 20 76 6f 69 *interp, . voi
1110: 64 20 2a 63 74 78 2c 20 0a 20 20 69 6e 74 20 61 d *ctx, . int a
1120: 72 67 63 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 rgc, . const ch
1130: 61 72 20 2a 2a 61 72 67 76 2c 20 0a 20 20 69 6e ar **argv, . in
1140: 74 20 2a 61 72 67 6c 0a 29 7b 0a 20 20 69 6e 74 t *argl.){. int
1150: 20 6e 45 6c 65 6d 3b 0a 20 20 69 6e 74 20 72 63 nElem;. int rc
1160: 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 ;.. if( argc!=2
1170: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){. return T
1180: 68 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 h_WrongNumArgs(i
1190: 6e 74 65 72 70 2c 20 22 6c 6c 65 6e 67 74 68 20 nterp, "llength
11a0: 6c 69 73 74 22 29 3b 0a 20 20 7d 0a 0a 20 20 72 list");. }.. r
11b0: 63 20 3d 20 54 68 5f 53 70 6c 69 74 4c 69 73 74 c = Th_SplitList
11c0: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d (interp, argv[1]
11d0: 2c 20 61 72 67 6c 5b 31 5d 2c 20 30 2c 20 30 2c , argl[1], 0, 0,
11e0: 20 26 6e 45 6c 65 6d 29 3b 0a 20 20 69 66 28 20 &nElem);. if(
11f0: 72 63 3d 3d 54 48 5f 4f 4b 20 29 7b 0a 20 20 20 rc==TH_OK ){.
1200: 20 54 68 5f 53 65 74 52 65 73 75 6c 74 49 6e 74 Th_SetResultInt
1210: 28 69 6e 74 65 72 70 2c 20 6e 45 6c 65 6d 29 3b (interp, nElem);
1220: 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 72 . }.. return r
1230: 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 48 20 53 c;.}../*.** TH S
1240: 79 6e 74 61 78 3a 20 0a 2a 2a 0a 2a 2a 20 20 20 yntax: .**.**
1250: 73 65 74 20 76 61 72 6e 61 6d 65 20 3f 76 61 6c set varname ?val
1260: 75 65 3f 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ue?.*/.static in
1270: 74 20 73 65 74 5f 63 6f 6d 6d 61 6e 64 28 0a 20 t set_command(.
1280: 20 54 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Th_Interp *inte
1290: 72 70 2c 20 0a 20 20 76 6f 69 64 20 2a 63 74 78 rp, . void *ctx
12a0: 2c 20 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 0a , . int argc, .
12b0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 const char **a
12c0: 72 67 76 2c 20 0a 20 20 69 6e 74 20 2a 61 72 67 rgv, . int *arg
12d0: 6c 0a 29 7b 0a 20 20 69 66 28 20 61 72 67 63 21 l.){. if( argc!
12e0: 3d 32 20 26 26 20 61 72 67 63 21 3d 33 20 29 7b =2 && argc!=3 ){
12f0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 68 5f 57 . return Th_W
1300: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
1310: 72 70 2c 20 22 73 65 74 20 76 61 72 6e 61 6d 65 rp, "set varname
1320: 20 3f 76 61 6c 75 65 3f 22 29 3b 0a 20 20 7d 0a ?value?");. }.
1330: 0a 20 20 69 66 28 20 61 72 67 63 3d 3d 33 20 29 . if( argc==3 )
1340: 7b 0a 20 20 20 20 54 68 5f 53 65 74 56 61 72 28 {. Th_SetVar(
1350: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c interp, argv[1],
1360: 20 61 72 67 6c 5b 31 5d 2c 20 61 72 67 76 5b 32 argl[1], argv[2
1370: 5d 2c 20 61 72 67 6c 5b 32 5d 29 3b 0a 20 20 7d ], argl[2]);. }
1380: 0a 20 20 72 65 74 75 72 6e 20 54 68 5f 47 65 74 . return Th_Get
1390: 56 61 72 28 69 6e 74 65 72 70 2c 20 61 72 67 76 Var(interp, argv
13a0: 5b 31 5d 2c 20 61 72 67 6c 5b 31 5d 29 3b 0a 7d [1], argl[1]);.}
13b0: 0a 0a 2f 2a 0a 2a 2a 20 57 68 65 6e 20 61 20 6e ../*.** When a n
13c0: 65 77 20 63 6f 6d 6d 61 6e 64 20 69 73 20 63 72 ew command is cr
13d0: 65 61 74 65 64 20 75 73 69 6e 67 20 74 68 65 20 eated using the
13e0: 62 75 69 6c 74 2d 69 6e 20 5b 70 72 6f 63 5d 20 built-in [proc]
13f0: 63 6f 6d 6d 61 6e 64 2c 20 61 6e 0a 2a 2a 20 69 command, an.** i
1400: 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 65 20 66 nstance of the f
1410: 6f 6c 6c 6f 77 69 6e 67 20 73 74 72 75 63 74 75 ollowing structu
1420: 72 65 20 69 73 20 61 6c 6c 6f 63 61 74 65 64 20 re is allocated
1430: 61 6e 64 20 70 6f 70 75 6c 61 74 65 64 2e 20 41 and populated. A
1440: 20 0a 2a 2a 20 70 6f 69 6e 74 65 72 20 74 6f 20 .** pointer to
1450: 74 68 65 20 73 74 72 75 63 74 75 72 65 20 69 73 the structure is
1460: 20 70 61 73 73 65 64 20 61 73 20 74 68 65 20 63 passed as the c
1470: 6f 6e 74 65 78 74 20 28 73 65 63 6f 6e 64 29 20 ontext (second)
1480: 61 72 67 75 6d 65 6e 74 20 0a 2a 2a 20 74 6f 20 argument .** to
1490: 66 75 6e 63 74 69 6f 6e 20 70 72 6f 63 5f 63 61 function proc_ca
14a0: 6c 6c 31 28 29 20 77 68 65 6e 20 74 68 65 20 6e ll1() when the n
14b0: 65 77 20 63 6f 6d 6d 61 6e 64 20 69 73 20 65 78 ew command is ex
14c0: 65 63 75 74 65 64 2e 0a 2a 2f 0a 74 79 70 65 64 ecuted..*/.typed
14d0: 65 66 20 73 74 72 75 63 74 20 50 72 6f 63 44 65 ef struct ProcDe
14e0: 66 6e 20 50 72 6f 63 44 65 66 6e 3b 0a 73 74 72 fn ProcDefn;.str
14f0: 75 63 74 20 50 72 6f 63 44 65 66 6e 20 7b 0a 20 uct ProcDefn {.
1500: 20 69 6e 74 20 6e 50 61 72 61 6d 3b 20 20 20 20 int nParam;
1510: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
1520: 75 6d 62 65 72 20 6f 66 20 66 6f 72 6d 61 6c 20 umber of formal
1530: 28 6e 6f 6e 20 22 61 72 67 73 22 29 20 70 61 72 (non "args") par
1540: 61 6d 65 74 65 72 73 20 2a 2f 0a 20 20 63 68 61 ameters */. cha
1550: 72 20 2a 2a 61 7a 50 61 72 61 6d 3b 20 20 20 20 r **azParam;
1560: 20 20 20 20 20 20 20 2f 2a 20 50 61 72 61 6d 65 /* Parame
1570: 74 65 72 20 6e 61 6d 65 73 20 2a 2f 0a 20 20 69 ter names */. i
1580: 6e 74 20 2a 61 6e 50 61 72 61 6d 3b 20 20 20 20 nt *anParam;
1590: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4c 65 6e /* Len
15a0: 67 74 68 73 20 6f 66 20 70 61 72 61 6d 65 74 65 gths of paramete
15b0: 72 20 6e 61 6d 65 73 20 2a 2f 0a 20 20 63 68 61 r names */. cha
15c0: 72 20 2a 2a 61 7a 44 65 66 61 75 6c 74 3b 20 20 r **azDefault;
15d0: 20 20 20 20 20 20 20 2f 2a 20 44 65 66 61 75 6c /* Defaul
15e0: 74 20 76 61 6c 75 65 73 20 2a 2f 0a 20 20 69 6e t values */. in
15f0: 74 20 2a 61 6e 44 65 66 61 75 6c 74 3b 20 20 20 t *anDefault;
1600: 20 20 20 20 20 20 20 20 20 2f 2a 20 4c 65 6e 67 /* Leng
1610: 74 68 73 20 6f 66 20 64 65 66 61 75 6c 74 20 76 ths of default v
1620: 61 6c 75 65 73 20 2a 2f 0a 20 20 69 6e 74 20 68 alues */. int h
1630: 61 73 41 72 67 73 3b 20 20 20 20 20 20 20 20 20 asArgs;
1640: 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 /* True if
1650: 20 74 68 65 72 65 20 69 73 20 61 6e 20 22 61 72 there is an "ar
1660: 67 73 22 20 70 61 72 61 6d 65 74 65 72 20 2a 2f gs" parameter */
1670: 0a 20 20 63 68 61 72 20 2a 7a 50 72 6f 67 72 61 . char *zProgra
1680: 6d 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 m; /*
1690: 42 6f 64 79 20 6f 66 20 70 72 6f 63 20 2a 2f 0a Body of proc */.
16a0: 20 20 69 6e 74 20 6e 50 72 6f 67 72 61 6d 3b 20 int nProgram;
16b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
16c0: 4e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 Number of bytes
16d0: 61 74 20 7a 50 72 6f 67 72 61 6d 20 2a 2f 0a 20 at zProgram */.
16e0: 20 63 68 61 72 20 2a 7a 55 73 61 67 65 3b 20 20 char *zUsage;
16f0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 55 73 /* Us
1700: 61 67 65 20 6d 65 73 73 61 67 65 20 2a 2f 0a 20 age message */.
1710: 20 69 6e 74 20 6e 55 73 61 67 65 3b 20 20 20 20 int nUsage;
1720: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
1730: 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 61 umber of bytes a
1740: 74 20 7a 55 73 61 67 65 20 2a 2f 0a 7d 3b 0a 0a t zUsage */.};..
1750: 2f 2a 20 54 68 69 73 20 73 74 72 75 63 74 75 72 /* This structur
1760: 65 20 69 73 20 75 73 65 64 20 74 6f 20 74 65 6d e is used to tem
1770: 70 6f 72 61 72 69 6c 79 20 73 74 6f 72 65 20 61 porarily store a
1780: 72 67 75 6d 65 6e 74 73 20 70 61 73 73 65 64 20 rguments passed
1790: 74 6f 20 61 6e 20 0a 2a 2a 20 69 6e 76 6f 63 61 to an .** invoca
17a0: 74 69 6f 6e 20 6f 66 20 61 20 63 6f 6d 6d 61 6e tion of a comman
17b0: 64 20 63 72 65 61 74 65 64 20 75 73 69 6e 67 20 d created using
17c0: 5b 70 72 6f 63 5d 2e 20 41 20 70 6f 69 6e 74 65 [proc]. A pointe
17d0: 72 20 74 6f 20 61 6e 20 0a 2a 2a 20 69 6e 73 74 r to an .** inst
17e0: 61 6e 63 65 20 69 73 20 70 61 73 73 65 64 20 61 ance is passed a
17f0: 73 20 74 68 65 20 73 65 63 6f 6e 64 20 61 72 67 s the second arg
1800: 75 6d 65 6e 74 20 74 6f 20 74 68 65 20 70 72 6f ument to the pro
1810: 63 5f 63 61 6c 6c 32 28 29 20 66 75 6e 63 74 69 c_call2() functi
1820: 6f 6e 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 73 on..*/.typedef s
1830: 74 72 75 63 74 20 50 72 6f 63 41 72 67 73 20 50 truct ProcArgs P
1840: 72 6f 63 41 72 67 73 3b 0a 73 74 72 75 63 74 20 rocArgs;.struct
1850: 50 72 6f 63 41 72 67 73 20 7b 0a 20 20 69 6e 74 ProcArgs {. int
1860: 20 61 72 67 63 3b 0a 20 20 63 6f 6e 73 74 20 63 argc;. const c
1870: 68 61 72 20 2a 2a 61 72 67 76 3b 0a 20 20 69 6e har **argv;. in
1880: 74 20 2a 61 72 67 6c 3b 0a 7d 3b 0a 0a 2f 2a 0a t *argl;.};../*.
1890: 2a 2a 20 45 61 63 68 20 74 69 6d 65 20 61 20 63 ** Each time a c
18a0: 6f 6d 6d 61 6e 64 20 63 72 65 61 74 65 64 20 75 ommand created u
18b0: 73 69 6e 67 20 5b 70 72 6f 63 5d 20 69 73 20 69 sing [proc] is i
18c0: 6e 76 6f 6b 65 64 2c 20 61 20 6e 65 77 0a 2a 2a nvoked, a new.**
18d0: 20 74 68 31 20 73 74 61 63 6b 20 66 72 61 6d 65 th1 stack frame
18e0: 20 69 73 20 61 6c 6c 6f 63 61 74 65 64 20 28 66 is allocated (f
18f0: 6f 72 20 74 68 65 20 70 72 6f 63 27 73 20 6c 6f or the proc's lo
1900: 63 61 6c 20 76 61 72 69 61 62 6c 65 73 29 20 61 cal variables) a
1910: 6e 64 0a 2a 2a 20 74 68 69 73 20 66 75 6e 63 74 nd.** this funct
1920: 69 6f 6e 20 69 6e 76 6f 6b 65 64 2e 0a 2a 2a 0a ion invoked..**.
1930: 2a 2a 20 41 72 67 75 6d 65 6e 74 20 70 43 6f 6e ** Argument pCon
1940: 74 65 78 74 31 20 70 6f 69 6e 74 73 20 74 6f 20 text1 points to
1950: 74 68 65 20 61 73 73 6f 63 69 61 74 65 64 20 50 the associated P
1960: 72 6f 63 44 65 66 6e 20 73 74 72 75 63 74 75 72 rocDefn structur
1970: 65 2e 0a 2a 2a 20 41 72 67 75 6d 65 6e 74 20 70 e..** Argument p
1980: 43 6f 6e 74 65 78 74 32 20 20 70 6f 69 6e 74 73 Context2 points
1990: 20 74 6f 20 61 20 50 72 6f 63 41 72 67 73 20 73 to a ProcArgs s
19a0: 74 72 75 63 74 75 72 65 20 74 68 61 74 20 63 6f tructure that co
19b0: 6e 74 61 69 6e 73 0a 2a 2a 20 74 68 65 20 61 72 ntains.** the ar
19c0: 67 75 6d 65 6e 74 73 20 70 61 73 73 65 64 20 74 guments passed t
19d0: 6f 20 74 68 69 73 20 73 70 65 63 69 66 69 63 20 o this specific
19e0: 69 6e 76 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 invocation of th
19f0: 65 20 70 72 6f 63 2e 0a 2a 2f 0a 73 74 61 74 69 e proc..*/.stati
1a00: 63 20 69 6e 74 20 70 72 6f 63 5f 63 61 6c 6c 32 c int proc_call2
1a10: 28 54 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 (Th_Interp *inte
1a20: 72 70 2c 20 76 6f 69 64 20 2a 70 43 6f 6e 74 65 rp, void *pConte
1a30: 78 74 31 2c 20 76 6f 69 64 20 2a 70 43 6f 6e 74 xt1, void *pCont
1a40: 65 78 74 32 29 7b 0a 20 20 69 6e 74 20 69 3b 0a ext2){. int i;.
1a50: 20 20 50 72 6f 63 44 65 66 6e 20 2a 70 20 3d 20 ProcDefn *p =
1a60: 28 50 72 6f 63 44 65 66 6e 20 2a 29 70 43 6f 6e (ProcDefn *)pCon
1a70: 74 65 78 74 31 3b 0a 20 20 50 72 6f 63 41 72 67 text1;. ProcArg
1a80: 73 20 2a 70 41 72 67 73 20 3d 20 28 50 72 6f 63 s *pArgs = (Proc
1a90: 41 72 67 73 20 2a 29 70 43 6f 6e 74 65 78 74 32 Args *)pContext2
1aa0: 3b 0a 0a 20 20 2f 2a 20 43 68 65 63 6b 20 69 66 ;.. /* Check if
1ab0: 20 74 68 65 72 65 20 61 72 65 20 74 68 65 20 72 there are the r
1ac0: 69 67 68 74 20 6e 75 6d 62 65 72 20 6f 66 20 61 ight number of a
1ad0: 72 67 75 6d 65 6e 74 73 2e 20 49 66 20 74 68 65 rguments. If the
1ae0: 72 65 20 61 72 65 0a 20 20 2a 2a 20 6e 6f 74 2c re are. ** not,
1af0: 20 67 65 6e 65 72 61 74 65 20 61 20 75 73 61 67 generate a usag
1b00: 65 20 6d 65 73 73 61 67 65 20 66 6f 72 20 74 68 e message for th
1b10: 65 20 63 6f 6d 6d 61 6e 64 2e 0a 20 20 2a 2f 0a e command.. */.
1b20: 20 20 69 66 28 20 28 70 41 72 67 73 2d 3e 61 72 if( (pArgs->ar
1b30: 67 63 3e 28 70 2d 3e 6e 50 61 72 61 6d 2b 31 29 gc>(p->nParam+1)
1b40: 20 26 26 20 21 70 2d 3e 68 61 73 41 72 67 73 29 && !p->hasArgs)
1b50: 20 0a 20 20 20 7c 7c 20 28 70 41 72 67 73 2d 3e . || (pArgs->
1b60: 61 72 67 63 3c 3d 28 70 2d 3e 6e 50 61 72 61 6d argc<=(p->nParam
1b70: 29 20 26 26 20 21 70 2d 3e 61 7a 44 65 66 61 75 ) && !p->azDefau
1b80: 6c 74 5b 70 41 72 67 73 2d 3e 61 72 67 63 2d 31 lt[pArgs->argc-1
1b90: 5d 29 0a 20 20 29 7b 0a 20 20 20 20 63 68 61 72 ]). ){. char
1ba0: 20 2a 7a 55 73 61 67 65 20 3d 20 30 3b 0a 20 20 *zUsage = 0;.
1bb0: 20 20 69 6e 74 20 6e 55 73 61 67 65 20 3d 20 30 int nUsage = 0
1bc0: 3b 0a 20 20 20 20 54 68 5f 53 74 72 69 6e 67 41 ;. Th_StringA
1bd0: 70 70 65 6e 64 28 69 6e 74 65 72 70 2c 20 26 7a ppend(interp, &z
1be0: 55 73 61 67 65 2c 20 26 6e 55 73 61 67 65 2c 20 Usage, &nUsage,
1bf0: 70 41 72 67 73 2d 3e 61 72 67 76 5b 30 5d 2c 20 pArgs->argv[0],
1c00: 70 41 72 67 73 2d 3e 61 72 67 6c 5b 30 5d 29 3b pArgs->argl[0]);
1c10: 0a 20 20 20 20 54 68 5f 53 74 72 69 6e 67 41 70 . Th_StringAp
1c20: 70 65 6e 64 28 69 6e 74 65 72 70 2c 20 26 7a 55 pend(interp, &zU
1c30: 73 61 67 65 2c 20 26 6e 55 73 61 67 65 2c 20 70 sage, &nUsage, p
1c40: 2d 3e 7a 55 73 61 67 65 2c 20 70 2d 3e 6e 55 73 ->zUsage, p->nUs
1c50: 61 67 65 29 3b 0a 20 20 20 20 54 68 5f 53 74 72 age);. Th_Str
1c60: 69 6e 67 41 70 70 65 6e 64 28 69 6e 74 65 72 70 ingAppend(interp
1c70: 2c 20 26 7a 55 73 61 67 65 2c 20 26 6e 55 73 61 , &zUsage, &nUsa
1c80: 67 65 2c 20 28 63 6f 6e 73 74 20 63 68 61 72 20 ge, (const char
1c90: 2a 29 22 22 2c 20 31 29 3b 0a 20 20 20 20 54 68 *)"", 1);. Th
1ca0: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
1cb0: 74 65 72 70 2c 20 7a 55 73 61 67 65 29 3b 0a 20 terp, zUsage);.
1cc0: 20 20 20 54 68 5f 46 72 65 65 28 69 6e 74 65 72 Th_Free(inter
1cd0: 70 2c 20 7a 55 73 61 67 65 29 3b 0a 20 20 20 20 p, zUsage);.
1ce0: 72 65 74 75 72 6e 20 54 48 5f 45 52 52 4f 52 3b return TH_ERROR;
1cf0: 0a 20 20 7d 0a 0a 20 20 2f 2a 20 50 6f 70 75 6c . }.. /* Popul
1d00: 61 74 65 20 74 68 65 20 66 6f 72 6d 61 6c 20 70 ate the formal p
1d10: 72 6f 63 20 70 61 72 61 6d 65 74 65 72 73 2e 20 roc parameters.
1d20: 2a 2f 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c */. for(i=0; i<
1d30: 70 2d 3e 6e 50 61 72 61 6d 3b 20 69 2b 2b 29 7b p->nParam; i++){
1d40: 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 . const char
1d50: 2a 7a 56 61 6c 3b 0a 20 20 20 20 69 6e 74 20 6e *zVal;. int n
1d60: 56 61 6c 3b 0a 20 20 20 20 69 66 28 20 70 41 72 Val;. if( pAr
1d70: 67 73 2d 3e 61 72 67 63 3e 28 69 2b 31 29 20 29 gs->argc>(i+1) )
1d80: 7b 0a 20 20 20 20 20 20 7a 56 61 6c 20 3d 20 70 {. zVal = p
1d90: 41 72 67 73 2d 3e 61 72 67 76 5b 69 2b 31 5d 3b Args->argv[i+1];
1da0: 0a 20 20 20 20 20 20 6e 56 61 6c 20 3d 20 70 41 . nVal = pA
1db0: 72 67 73 2d 3e 61 72 67 6c 5b 69 2b 31 5d 3b 0a rgs->argl[i+1];.
1dc0: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
1dd0: 20 7a 56 61 6c 20 3d 20 70 2d 3e 61 7a 44 65 66 zVal = p->azDef
1de0: 61 75 6c 74 5b 69 5d 3b 0a 20 20 20 20 20 20 6e ault[i];. n
1df0: 56 61 6c 20 3d 20 70 2d 3e 61 6e 44 65 66 61 75 Val = p->anDefau
1e00: 6c 74 5b 69 5d 3b 0a 20 20 20 20 7d 0a 20 20 20 lt[i];. }.
1e10: 20 54 68 5f 53 65 74 56 61 72 28 69 6e 74 65 72 Th_SetVar(inter
1e20: 70 2c 20 70 2d 3e 61 7a 50 61 72 61 6d 5b 69 5d p, p->azParam[i]
1e30: 2c 20 70 2d 3e 61 6e 50 61 72 61 6d 5b 69 5d 2c , p->anParam[i],
1e40: 20 7a 56 61 6c 2c 20 6e 56 61 6c 29 3b 0a 20 20 zVal, nVal);.
1e50: 7d 0a 0a 20 20 2f 2a 20 50 6f 70 75 6c 61 74 65 }.. /* Populate
1e60: 20 74 68 65 20 22 61 72 67 73 22 20 70 61 72 61 the "args" para
1e70: 6d 65 74 65 72 2c 20 69 66 20 69 74 20 65 78 69 meter, if it exi
1e80: 73 74 73 20 2a 2f 0a 20 20 69 66 28 20 70 2d 3e sts */. if( p->
1e90: 68 61 73 41 72 67 73 20 29 7b 0a 20 20 20 20 63 hasArgs ){. c
1ea0: 68 61 72 20 2a 7a 41 72 67 73 20 3d 20 30 3b 0a har *zArgs = 0;.
1eb0: 20 20 20 20 69 6e 74 20 6e 41 72 67 73 20 3d 20 int nArgs =
1ec0: 30 3b 0a 20 20 20 20 66 6f 72 28 69 3d 70 2d 3e 0;. for(i=p->
1ed0: 6e 50 61 72 61 6d 2b 31 3b 20 69 3c 70 41 72 67 nParam+1; i<pArg
1ee0: 73 2d 3e 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 s->argc; i++){.
1ef0: 20 20 20 20 20 54 68 5f 4c 69 73 74 41 70 70 65 Th_ListAppe
1f00: 6e 64 28 69 6e 74 65 72 70 2c 20 26 7a 41 72 67 nd(interp, &zArg
1f10: 73 2c 20 26 6e 41 72 67 73 2c 20 70 41 72 67 73 s, &nArgs, pArgs
1f20: 2d 3e 61 72 67 76 5b 69 5d 2c 20 70 41 72 67 73 ->argv[i], pArgs
1f30: 2d 3e 61 72 67 6c 5b 69 5d 29 3b 0a 20 20 20 20 ->argl[i]);.
1f40: 7d 0a 20 20 20 20 54 68 5f 53 65 74 56 61 72 28 }. Th_SetVar(
1f50: 69 6e 74 65 72 70 2c 20 28 63 6f 6e 73 74 20 63 interp, (const c
1f60: 68 61 72 20 2a 29 22 61 72 67 73 22 2c 20 2d 31 har *)"args", -1
1f70: 2c 20 7a 41 72 67 73 2c 20 6e 41 72 67 73 29 3b , zArgs, nArgs);
1f80: 0a 20 20 7d 0a 0a 20 20 54 68 5f 53 65 74 52 65 . }.. Th_SetRe
1f90: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 30 2c 20 sult(interp, 0,
1fa0: 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 68 5f 0);. return Th_
1fb0: 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 30 2c 20 Eval(interp, 0,
1fc0: 70 2d 3e 7a 50 72 6f 67 72 61 6d 2c 20 70 2d 3e p->zProgram, p->
1fd0: 6e 50 72 6f 67 72 61 6d 29 3b 0a 7d 0a 0a 2f 2a nProgram);.}../*
1fe0: 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69 6f .** This functio
1ff0: 6e 20 69 73 20 74 68 65 20 63 6f 6d 6d 61 6e 64 n is the command
2000: 20 63 61 6c 6c 62 61 63 6b 20 72 65 67 69 73 74 callback regist
2010: 65 72 65 64 20 66 6f 72 20 61 6c 6c 20 63 6f 6d ered for all com
2020: 6d 61 6e 64 73 0a 2a 2a 20 63 72 65 61 74 65 64 mands.** created
2030: 20 75 73 69 6e 67 20 74 68 65 20 5b 70 72 6f 63 using the [proc
2040: 5d 20 63 6f 6d 6d 61 6e 64 2e 20 54 68 65 20 73 ] command. The s
2050: 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 2c 20 econd argument,
2060: 70 43 6f 6e 74 65 78 74 2c 0a 2a 2a 20 69 73 20 pContext,.** is
2070: 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 a pointer to the
2080: 20 61 73 73 6f 63 69 61 74 65 64 20 50 72 6f 63 associated Proc
2090: 44 65 66 6e 20 73 74 72 75 63 74 75 72 65 2e 0a Defn structure..
20a0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 70 72 */.static int pr
20b0: 6f 63 5f 63 61 6c 6c 31 28 0a 20 20 54 68 5f 49 oc_call1(. Th_I
20c0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
20d0: 20 76 6f 69 64 20 2a 70 43 6f 6e 74 65 78 74 2c void *pContext,
20e0: 20 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 0a 20 . int argc, .
20f0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 const char **ar
2100: 67 76 2c 0a 20 20 69 6e 74 20 2a 61 72 67 6c 0a gv,. int *argl.
2110: 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 ){. int rc;..
2120: 50 72 6f 63 44 65 66 6e 20 2a 70 20 3d 20 28 50 ProcDefn *p = (P
2130: 72 6f 63 44 65 66 6e 20 2a 29 70 43 6f 6e 74 65 rocDefn *)pConte
2140: 78 74 3b 0a 20 20 50 72 6f 63 41 72 67 73 20 70 xt;. ProcArgs p
2150: 72 6f 63 61 72 67 73 3b 0a 0a 20 20 2f 2a 20 43 rocargs;.. /* C
2160: 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 70 72 6f all function pro
2170: 63 5f 63 61 6c 6c 32 28 29 2c 20 77 68 69 63 68 c_call2(), which
2180: 20 77 69 6c 6c 20 63 61 6c 6c 20 54 68 5f 45 76 will call Th_Ev
2190: 61 6c 28 29 20 74 6f 20 65 76 61 6c 75 61 74 65 al() to evaluate
21a0: 0a 20 20 2a 2a 20 74 68 65 20 62 6f 64 79 20 6f . ** the body o
21b0: 66 20 74 68 65 20 5b 70 72 6f 63 5d 2c 20 69 6e f the [proc], in
21c0: 20 61 20 6e 65 77 20 54 68 20 73 74 61 63 6b 20 a new Th stack
21d0: 66 72 61 6d 65 2e 20 54 68 69 73 20 69 73 20 73 frame. This is s
21e0: 6f 20 74 68 61 74 0a 20 20 2a 2a 20 74 68 65 20 o that. ** the
21f0: 70 72 6f 63 20 62 6f 64 79 20 68 61 73 20 69 74 proc body has it
2200: 73 20 6f 77 6e 20 6c 6f 63 61 6c 20 76 61 72 69 s own local vari
2210: 61 62 6c 65 20 63 6f 6e 74 65 78 74 2e 0a 20 20 able context..
2220: 2a 2f 0a 20 20 70 72 6f 63 61 72 67 73 2e 61 72 */. procargs.ar
2230: 67 63 20 3d 20 61 72 67 63 3b 0a 20 20 70 72 6f gc = argc;. pro
2240: 63 61 72 67 73 2e 61 72 67 76 20 3d 20 61 72 67 cargs.argv = arg
2250: 76 3b 0a 20 20 70 72 6f 63 61 72 67 73 2e 61 72 v;. procargs.ar
2260: 67 6c 20 3d 20 61 72 67 6c 3b 0a 20 20 72 63 20 gl = argl;. rc
2270: 3d 20 54 68 5f 49 6e 46 72 61 6d 65 28 69 6e 74 = Th_InFrame(int
2280: 65 72 70 2c 20 70 72 6f 63 5f 63 61 6c 6c 32 2c erp, proc_call2,
2290: 20 28 76 6f 69 64 20 2a 29 70 2c 20 28 76 6f 69 (void *)p, (voi
22a0: 64 20 2a 29 26 70 72 6f 63 61 72 67 73 29 3b 0a d *)&procargs);.
22b0: 0a 20 20 69 66 28 20 72 63 3d 3d 54 48 5f 52 45 . if( rc==TH_RE
22c0: 54 55 52 4e 20 29 7b 0a 20 20 20 20 72 63 20 3d TURN ){. rc =
22d0: 20 54 48 5f 4f 4b 3b 0a 20 20 7d 0a 20 20 72 65 TH_OK;. }. re
22e0: 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a turn rc;.}../*.*
22f0: 2a 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 * This function
2300: 69 73 20 72 65 67 69 73 74 65 72 65 64 20 61 73 is registered as
2310: 20 74 68 65 20 64 65 6c 65 74 65 20 63 61 6c 6c the delete call
2320: 62 61 63 6b 20 66 6f 72 20 61 6c 6c 20 63 6f 6d back for all com
2330: 6d 61 6e 64 73 20 0a 2a 2a 20 63 72 65 61 74 65 mands .** create
2340: 64 20 75 73 69 6e 67 20 74 68 65 20 62 75 69 6c d using the buil
2350: 74 2d 69 6e 20 5b 70 72 6f 63 5d 20 63 6f 6d 6d t-in [proc] comm
2360: 61 6e 64 2e 20 49 74 20 69 73 20 63 61 6c 6c 65 and. It is calle
2370: 64 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 d automatically
2380: 0a 2a 2a 20 77 68 65 6e 20 61 20 63 6f 6d 6d 61 .** when a comma
2390: 6e 64 20 63 72 65 61 74 65 64 20 75 73 69 6e 67 nd created using
23a0: 20 5b 70 72 6f 63 5d 20 69 73 20 64 65 6c 65 74 [proc] is delet
23b0: 65 64 2e 20 0a 2a 2a 0a 2a 2a 20 49 74 20 66 72 ed. .**.** It fr
23c0: 65 65 73 20 74 68 65 20 50 72 6f 63 44 65 66 6e ees the ProcDefn
23d0: 20 73 74 72 75 63 74 75 72 65 20 61 6c 6c 6f 63 structure alloc
23e0: 61 74 65 64 20 77 68 65 6e 20 74 68 65 20 63 6f ated when the co
23f0: 6d 6d 61 6e 64 20 77 61 73 20 63 72 65 61 74 65 mmand was create
2400: 64 2e 0a 2a 2f 20 0a 73 74 61 74 69 63 20 76 6f d..*/ .static vo
2410: 69 64 20 70 72 6f 63 5f 64 65 6c 28 54 68 5f 49 id proc_del(Th_I
2420: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 76 nterp *interp, v
2430: 6f 69 64 20 2a 70 43 6f 6e 74 65 78 74 29 7b 0a oid *pContext){.
2440: 20 20 50 72 6f 63 44 65 66 6e 20 2a 70 20 3d 20 ProcDefn *p =
2450: 28 50 72 6f 63 44 65 66 6e 20 2a 29 70 43 6f 6e (ProcDefn *)pCon
2460: 74 65 78 74 3b 0a 20 20 54 68 5f 46 72 65 65 28 text;. Th_Free(
2470: 69 6e 74 65 72 70 2c 20 28 76 6f 69 64 20 2a 29 interp, (void *)
2480: 70 2d 3e 7a 55 73 61 67 65 29 3b 0a 20 20 54 68 p->zUsage);. Th
2490: 5f 46 72 65 65 28 69 6e 74 65 72 70 2c 20 28 76 _Free(interp, (v
24a0: 6f 69 64 20 2a 29 70 29 3b 0a 7d 0a 0a 2f 2a 0a oid *)p);.}../*.
24b0: 2a 2a 20 54 48 20 53 79 6e 74 61 78 3a 20 0a 2a ** TH Syntax: .*
24c0: 2a 0a 2a 2a 20 20 20 70 72 6f 63 20 6e 61 6d 65 *.** proc name
24d0: 20 61 72 67 6c 69 73 74 20 63 6f 64 65 0a 2a 2f arglist code.*/
24e0: 0a 73 74 61 74 69 63 20 69 6e 74 20 70 72 6f 63 .static int proc
24f0: 5f 63 6f 6d 6d 61 6e 64 28 0a 20 20 54 68 5f 49 _command(. Th_I
2500: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 0a nterp *interp, .
2510: 20 20 76 6f 69 64 20 2a 63 74 78 2c 20 0a 20 20 void *ctx, .
2520: 69 6e 74 20 61 72 67 63 2c 0a 20 20 63 6f 6e 73 int argc,. cons
2530: 74 20 63 68 61 72 20 2a 2a 61 72 67 76 2c 20 0a t char **argv, .
2540: 20 20 69 6e 74 20 2a 61 72 67 6c 0a 29 7b 0a 20 int *argl.){.
2550: 20 69 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 20 int rc;. char
2560: 2a 7a 4e 61 6d 65 3b 0a 0a 20 20 50 72 6f 63 44 *zName;.. ProcD
2570: 65 66 6e 20 2a 70 3b 0a 20 20 69 6e 74 20 6e 42 efn *p;. int nB
2580: 79 74 65 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 yte;. int i;.
2590: 63 68 61 72 20 2a 7a 53 70 61 63 65 3b 0a 0a 20 char *zSpace;..
25a0: 20 63 68 61 72 20 2a 2a 61 7a 50 61 72 61 6d 3b char **azParam;
25b0: 0a 20 20 69 6e 74 20 2a 61 6e 50 61 72 61 6d 3b . int *anParam;
25c0: 0a 20 20 69 6e 74 20 6e 50 61 72 61 6d 3b 0a 0a . int nParam;..
25d0: 20 20 63 68 61 72 20 2a 7a 55 73 61 67 65 20 3d char *zUsage =
25e0: 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 0;
25f0: 20 20 2f 2a 20 42 75 69 6c 64 20 75 70 20 61 20 /* Build up a
2600: 75 73 61 67 65 20 6d 65 73 73 61 67 65 20 68 65 usage message he
2610: 72 65 20 2a 2f 0a 20 20 69 6e 74 20 6e 55 73 61 re */. int nUsa
2620: 67 65 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 ge = 0;
2630: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
2640: 65 72 20 6f 66 20 62 79 74 65 73 20 61 74 20 7a er of bytes at z
2650: 55 73 61 67 65 20 2a 2f 0a 0a 20 20 69 66 28 20 Usage */.. if(
2660: 61 72 67 63 21 3d 34 20 29 7b 0a 20 20 20 20 72 argc!=4 ){. r
2670: 65 74 75 72 6e 20 54 68 5f 57 72 6f 6e 67 4e 75 eturn Th_WrongNu
2680: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 22 70 mArgs(interp, "p
2690: 72 6f 63 20 6e 61 6d 65 20 61 72 67 6c 69 73 74 roc name arglist
26a0: 20 63 6f 64 65 22 29 3b 0a 20 20 7d 0a 20 20 69 code");. }. i
26b0: 66 28 20 54 68 5f 53 70 6c 69 74 4c 69 73 74 28 f( Th_SplitList(
26c0: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 32 5d 2c interp, argv[2],
26d0: 20 61 72 67 6c 5b 32 5d 2c 20 26 61 7a 50 61 72 argl[2], &azPar
26e0: 61 6d 2c 20 26 61 6e 50 61 72 61 6d 2c 20 26 6e am, &anParam, &n
26f0: 50 61 72 61 6d 29 20 29 7b 0a 20 20 20 20 72 65 Param) ){. re
2700: 74 75 72 6e 20 54 48 5f 45 52 52 4f 52 3b 0a 20 turn TH_ERROR;.
2710: 20 7d 0a 0a 20 20 2f 2a 20 41 6c 6c 6f 63 61 74 }.. /* Allocat
2720: 65 20 74 68 65 20 6e 65 77 20 50 72 6f 63 44 65 e the new ProcDe
2730: 66 6e 20 73 74 72 75 63 74 75 72 65 2e 20 2a 2f fn structure. */
2740: 0a 20 20 6e 42 79 74 65 20 3d 20 73 69 7a 65 6f . nByte = sizeo
2750: 66 28 50 72 6f 63 44 65 66 6e 29 20 2b 20 20 20 f(ProcDefn) +
2760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2770: 20 20 20 20 20 2f 2a 20 50 72 6f 63 44 65 66 6e /* ProcDefn
2780: 20 73 74 72 75 63 74 75 72 65 20 2a 2f 0a 20 20 structure */.
2790: 20 20 20 20 28 73 69 7a 65 6f 66 28 63 68 61 72 (sizeof(char
27a0: 20 2a 29 20 2b 20 73 69 7a 65 6f 66 28 69 6e 74 *) + sizeof(int
27b0: 29 29 20 2a 20 6e 50 61 72 61 6d 20 2b 20 20 20 )) * nParam +
27c0: 20 2f 2a 20 61 7a 50 61 72 61 6d 2c 20 61 6e 50 /* azParam, anP
27d0: 61 72 61 6d 20 2a 2f 0a 20 20 20 20 20 20 28 73 aram */. (s
27e0: 69 7a 65 6f 66 28 63 68 61 72 20 2a 29 20 2b 20 izeof(char *) +
27f0: 73 69 7a 65 6f 66 28 69 6e 74 29 29 20 2a 20 6e sizeof(int)) * n
2800: 50 61 72 61 6d 20 2b 20 20 20 20 2f 2a 20 61 7a Param + /* az
2810: 44 65 66 61 75 6c 74 2c 20 61 6e 44 65 66 61 75 Default, anDefau
2820: 6c 74 20 2a 2f 0a 20 20 20 20 20 20 61 72 67 6c lt */. argl
2830: 5b 33 5d 20 2b 20 20 20 20 20 20 20 20 20 20 20 [3] +
2840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2850: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 7a 50 72 /* zPr
2860: 6f 67 72 61 6d 20 2a 2f 0a 20 20 20 20 20 20 61 ogram */. a
2870: 72 67 6c 5b 32 5d 3b 20 20 20 20 20 2f 2a 20 53 rgl[2]; /* S
2880: 70 61 63 65 20 66 6f 72 20 63 6f 70 69 65 73 20 pace for copies
2890: 6f 66 20 70 61 72 61 6d 65 74 65 72 20 6e 61 6d of parameter nam
28a0: 65 73 20 61 6e 64 20 64 65 66 61 75 6c 74 20 76 es and default v
28b0: 61 6c 75 65 73 20 2a 2f 0a 20 20 70 20 3d 20 28 alues */. p = (
28c0: 50 72 6f 63 44 65 66 6e 20 2a 29 54 68 5f 4d 61 ProcDefn *)Th_Ma
28d0: 6c 6c 6f 63 28 69 6e 74 65 72 70 2c 20 6e 42 79 lloc(interp, nBy
28e0: 74 65 29 3b 0a 0a 20 20 2f 2a 20 49 66 20 74 68 te);.. /* If th
28f0: 65 20 6c 61 73 74 20 70 61 72 61 6d 65 74 65 72 e last parameter
2900: 20 69 6e 20 74 68 65 20 70 61 72 61 6d 65 74 65 in the paramete
2910: 72 20 6c 69 73 74 20 69 73 20 22 61 72 67 73 22 r list is "args"
2920: 2c 20 74 68 65 6e 20 73 65 74 20 74 68 65 0a 20 , then set the.
2930: 20 2a 2a 20 50 72 6f 63 44 65 66 6e 2e 68 61 73 ** ProcDefn.has
2940: 41 72 67 73 20 66 6c 61 67 2e 20 54 68 65 20 22 Args flag. The "
2950: 61 72 67 73 22 20 70 61 72 61 6d 65 74 65 72 20 args" parameter
2960: 64 6f 65 73 20 6e 6f 74 20 72 65 71 75 69 72 65 does not require
2970: 20 61 6e 0a 20 20 2a 2a 20 65 6e 74 72 79 20 69 an. ** entry i
2980: 6e 20 74 68 65 20 50 72 6f 63 44 65 66 6e 2e 61 n the ProcDefn.a
2990: 7a 50 61 72 61 6d 5b 5d 20 6f 72 20 50 72 6f 63 zParam[] or Proc
29a0: 44 65 66 6e 2e 61 7a 44 65 66 61 75 6c 74 5b 5d Defn.azDefault[]
29b0: 20 61 72 72 61 79 73 2e 0a 20 20 2a 2f 0a 20 20 arrays.. */.
29c0: 69 66 28 20 61 6e 50 61 72 61 6d 5b 6e 50 61 72 if( anParam[nPar
29d0: 61 6d 2d 31 5d 3d 3d 34 20 26 26 20 30 3d 3d 6d am-1]==4 && 0==m
29e0: 65 6d 63 6d 70 28 61 7a 50 61 72 61 6d 5b 6e 50 emcmp(azParam[nP
29f0: 61 72 61 6d 2d 31 5d 2c 20 22 61 72 67 73 22 2c aram-1], "args",
2a00: 20 34 29 20 29 7b 0a 20 20 20 20 70 2d 3e 68 61 4) ){. p->ha
2a10: 73 41 72 67 73 20 3d 20 31 3b 0a 20 20 20 20 6e sArgs = 1;. n
2a20: 50 61 72 61 6d 2d 2d 3b 0a 20 20 7d 0a 0a 20 20 Param--;. }..
2a30: 70 2d 3e 6e 50 61 72 61 6d 20 20 20 20 3d 20 6e p->nParam = n
2a40: 50 61 72 61 6d 3b 0a 20 20 70 2d 3e 61 7a 50 61 Param;. p->azPa
2a50: 72 61 6d 20 20 20 3d 20 28 63 68 61 72 20 2a 2a ram = (char **
2a60: 29 26 70 5b 31 5d 3b 0a 20 20 70 2d 3e 61 6e 50 )&p[1];. p->anP
2a70: 61 72 61 6d 20 20 20 3d 20 28 69 6e 74 20 2a 29 aram = (int *)
2a80: 26 70 2d 3e 61 7a 50 61 72 61 6d 5b 6e 50 61 72 &p->azParam[nPar
2a90: 61 6d 5d 3b 0a 20 20 70 2d 3e 61 7a 44 65 66 61 am];. p->azDefa
2aa0: 75 6c 74 20 3d 20 28 63 68 61 72 20 2a 2a 29 26 ult = (char **)&
2ab0: 70 2d 3e 61 6e 50 61 72 61 6d 5b 6e 50 61 72 61 p->anParam[nPara
2ac0: 6d 5d 3b 0a 20 20 70 2d 3e 61 6e 44 65 66 61 75 m];. p->anDefau
2ad0: 6c 74 20 3d 20 28 69 6e 74 20 2a 29 26 70 2d 3e lt = (int *)&p->
2ae0: 61 7a 44 65 66 61 75 6c 74 5b 6e 50 61 72 61 6d azDefault[nParam
2af0: 5d 3b 0a 20 20 70 2d 3e 7a 50 72 6f 67 72 61 6d ];. p->zProgram
2b00: 20 3d 20 28 63 68 61 72 20 2a 29 26 70 2d 3e 61 = (char *)&p->a
2b10: 6e 44 65 66 61 75 6c 74 5b 6e 50 61 72 61 6d 5d nDefault[nParam]
2b20: 3b 0a 20 20 6d 65 6d 63 70 79 28 70 2d 3e 7a 50 ;. memcpy(p->zP
2b30: 72 6f 67 72 61 6d 2c 20 61 72 67 76 5b 33 5d 2c rogram, argv[3],
2b40: 20 61 72 67 6c 5b 33 5d 29 3b 0a 20 20 70 2d 3e argl[3]);. p->
2b50: 6e 50 72 6f 67 72 61 6d 20 3d 20 61 72 67 6c 5b nProgram = argl[
2b60: 33 5d 3b 0a 20 20 7a 53 70 61 63 65 20 3d 20 26 3];. zSpace = &
2b70: 70 2d 3e 7a 50 72 6f 67 72 61 6d 5b 70 2d 3e 6e p->zProgram[p->n
2b80: 50 72 6f 67 72 61 6d 5d 3b 0a 20 20 0a 20 20 66 Program];. . f
2b90: 6f 72 28 69 3d 30 3b 20 69 3c 6e 50 61 72 61 6d or(i=0; i<nParam
2ba0: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 63 68 61 72 ; i++){. char
2bb0: 20 2a 2a 61 7a 3b 0a 20 20 20 20 69 6e 74 20 2a **az;. int *
2bc0: 61 6e 3b 0a 20 20 20 20 69 6e 74 20 6e 3b 0a 20 an;. int n;.
2bd0: 20 20 20 69 66 28 20 54 68 5f 53 70 6c 69 74 4c if( Th_SplitL
2be0: 69 73 74 28 69 6e 74 65 72 70 2c 20 61 7a 50 61 ist(interp, azPa
2bf0: 72 61 6d 5b 69 5d 2c 20 61 6e 50 61 72 61 6d 5b ram[i], anParam[
2c00: 69 5d 2c 20 26 61 7a 2c 20 26 61 6e 2c 20 26 6e i], &az, &an, &n
2c10: 29 20 29 7b 0a 20 20 20 20 20 20 67 6f 74 6f 20 ) ){. goto
2c20: 65 72 72 6f 72 5f 6f 75 74 3b 0a 20 20 20 20 7d error_out;. }
2c30: 0a 20 20 20 20 69 66 28 20 6e 3c 31 20 7c 7c 20 . if( n<1 ||
2c40: 6e 3e 32 20 29 7b 0a 20 20 20 20 20 20 63 6f 6e n>2 ){. con
2c50: 73 74 20 63 68 61 72 20 65 78 70 65 63 74 65 64 st char expected
2c60: 5b 5d 20 3d 20 22 65 78 70 65 63 74 65 64 20 70 [] = "expected p
2c70: 61 72 61 6d 65 74 65 72 2c 20 67 6f 74 20 5c 22 arameter, got \"
2c80: 22 3b 0a 20 20 20 20 20 20 54 68 5f 45 72 72 6f ";. Th_Erro
2c90: 72 4d 65 73 73 61 67 65 28 69 6e 74 65 72 70 2c rMessage(interp,
2ca0: 20 65 78 70 65 63 74 65 64 2c 20 61 7a 50 61 72 expected, azPar
2cb0: 61 6d 5b 69 5d 2c 20 61 6e 50 61 72 61 6d 5b 69 am[i], anParam[i
2cc0: 5d 29 3b 0a 20 20 20 20 20 20 54 68 5f 46 72 65 ]);. Th_Fre
2cd0: 65 28 69 6e 74 65 72 70 2c 20 61 7a 29 3b 0a 20 e(interp, az);.
2ce0: 20 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 5f goto error_
2cf0: 6f 75 74 3b 0a 20 20 20 20 7d 0a 20 20 20 20 70 out;. }. p
2d00: 2d 3e 61 6e 50 61 72 61 6d 5b 69 5d 20 3d 20 61 ->anParam[i] = a
2d10: 6e 5b 30 5d 3b 0a 20 20 20 20 70 2d 3e 61 7a 50 n[0];. p->azP
2d20: 61 72 61 6d 5b 69 5d 20 3d 20 7a 53 70 61 63 65 aram[i] = zSpace
2d30: 3b 0a 20 20 20 20 6d 65 6d 63 70 79 28 7a 53 70 ;. memcpy(zSp
2d40: 61 63 65 2c 20 61 7a 5b 30 5d 2c 20 61 6e 5b 30 ace, az[0], an[0
2d50: 5d 29 3b 0a 20 20 20 20 7a 53 70 61 63 65 20 2b ]);. zSpace +
2d60: 3d 20 61 6e 5b 30 5d 3b 0a 20 20 20 20 69 66 28 = an[0];. if(
2d70: 20 6e 3d 3d 32 20 29 7b 0a 20 20 20 20 20 20 70 n==2 ){. p
2d80: 2d 3e 61 6e 44 65 66 61 75 6c 74 5b 69 5d 20 3d ->anDefault[i] =
2d90: 20 61 6e 5b 31 5d 3b 0a 20 20 20 20 20 20 70 2d an[1];. p-
2da0: 3e 61 7a 44 65 66 61 75 6c 74 5b 69 5d 20 3d 20 >azDefault[i] =
2db0: 7a 53 70 61 63 65 3b 0a 20 20 20 20 20 20 6d 65 zSpace;. me
2dc0: 6d 63 70 79 28 7a 53 70 61 63 65 2c 20 61 7a 5b mcpy(zSpace, az[
2dd0: 31 5d 2c 20 61 6e 5b 31 5d 29 3b 0a 20 20 20 20 1], an[1]);.
2de0: 20 20 7a 53 70 61 63 65 20 2b 3d 20 61 6e 5b 31 zSpace += an[1
2df0: 5d 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 68 ];. }.. Th
2e00: 5f 53 74 72 69 6e 67 41 70 70 65 6e 64 28 69 6e _StringAppend(in
2e10: 74 65 72 70 2c 20 26 7a 55 73 61 67 65 2c 20 26 terp, &zUsage, &
2e20: 6e 55 73 61 67 65 2c 20 28 63 6f 6e 73 74 20 63 nUsage, (const c
2e30: 68 61 72 20 2a 29 22 20 22 2c 20 31 29 3b 0a 20 har *)" ", 1);.
2e40: 20 20 20 69 66 28 20 6e 3d 3d 32 20 29 7b 0a 20 if( n==2 ){.
2e50: 20 20 20 20 20 54 68 5f 53 74 72 69 6e 67 41 70 Th_StringAp
2e60: 70 65 6e 64 28 69 6e 74 65 72 70 2c 20 26 7a 55 pend(interp, &zU
2e70: 73 61 67 65 2c 20 26 6e 55 73 61 67 65 2c 20 28 sage, &nUsage, (
2e80: 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 22 3f 22 const char *)"?"
2e90: 2c 20 31 29 3b 0a 20 20 20 20 20 20 54 68 5f 53 , 1);. Th_S
2ea0: 74 72 69 6e 67 41 70 70 65 6e 64 28 69 6e 74 65 tringAppend(inte
2eb0: 72 70 2c 20 26 7a 55 73 61 67 65 2c 20 26 6e 55 rp, &zUsage, &nU
2ec0: 73 61 67 65 2c 20 61 7a 5b 30 5d 2c 20 61 6e 5b sage, az[0], an[
2ed0: 30 5d 29 3b 0a 20 20 20 20 20 20 54 68 5f 53 74 0]);. Th_St
2ee0: 72 69 6e 67 41 70 70 65 6e 64 28 69 6e 74 65 72 ringAppend(inter
2ef0: 70 2c 20 26 7a 55 73 61 67 65 2c 20 26 6e 55 73 p, &zUsage, &nUs
2f00: 61 67 65 2c 20 28 63 6f 6e 73 74 20 63 68 61 72 age, (const char
2f10: 20 2a 29 22 3f 22 2c 20 31 29 3b 0a 20 20 20 20 *)"?", 1);.
2f20: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 54 68 5f }else{. Th_
2f30: 53 74 72 69 6e 67 41 70 70 65 6e 64 28 69 6e 74 StringAppend(int
2f40: 65 72 70 2c 20 26 7a 55 73 61 67 65 2c 20 26 6e erp, &zUsage, &n
2f50: 55 73 61 67 65 2c 20 61 7a 5b 30 5d 2c 20 61 6e Usage, az[0], an
2f60: 5b 30 5d 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 [0]);. }..
2f70: 20 54 68 5f 46 72 65 65 28 69 6e 74 65 72 70 2c Th_Free(interp,
2f80: 20 61 7a 29 3b 0a 20 20 7d 0a 20 20 61 73 73 65 az);. }. asse
2f90: 72 74 28 20 7a 53 70 61 63 65 2d 28 63 68 61 72 rt( zSpace-(char
2fa0: 20 2a 29 70 3c 3d 6e 42 79 74 65 20 29 3b 0a 0a *)p<=nByte );..
2fb0: 20 20 2f 2a 20 49 66 20 74 68 65 72 65 20 69 73 /* If there is
2fc0: 20 61 6e 20 22 61 72 67 73 22 20 70 61 72 61 6d an "args" param
2fd0: 65 74 65 72 2c 20 61 70 70 65 6e 64 20 69 74 20 eter, append it
2fe0: 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 to the end of th
2ff0: 65 20 75 73 61 67 65 0a 20 20 2a 2a 20 6d 65 73 e usage. ** mes
3000: 73 61 67 65 2e 20 53 65 74 20 50 72 6f 63 44 65 sage. Set ProcDe
3010: 66 6e 2e 7a 55 73 61 67 65 20 74 6f 20 70 6f 69 fn.zUsage to poi
3020: 6e 74 20 61 74 20 74 68 65 20 75 73 61 67 65 20 nt at the usage
3030: 6d 65 73 73 61 67 65 2e 20 49 74 20 77 69 6c 6c message. It will
3040: 0a 20 20 2a 2a 20 62 65 20 66 72 65 65 64 20 61 . ** be freed a
3050: 6c 6f 6e 67 20 77 69 74 68 20 74 68 65 20 72 65 long with the re
3060: 73 74 20 6f 66 20 74 68 65 20 70 72 6f 63 2d 64 st of the proc-d
3070: 65 66 69 6e 69 74 69 6f 6e 20 62 79 20 70 72 6f efinition by pro
3080: 63 5f 64 65 6c 28 29 2e 0a 20 20 2a 2f 0a 20 20 c_del().. */.
3090: 69 66 28 20 70 2d 3e 68 61 73 41 72 67 73 20 29 if( p->hasArgs )
30a0: 7b 0a 20 20 20 20 54 68 5f 53 74 72 69 6e 67 41 {. Th_StringA
30b0: 70 70 65 6e 64 28 69 6e 74 65 72 70 2c 20 26 7a ppend(interp, &z
30c0: 55 73 61 67 65 2c 20 26 6e 55 73 61 67 65 2c 20 Usage, &nUsage,
30d0: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 22 20 (const char *)"
30e0: 3f 61 72 67 73 2e 2e 2e 3f 22 2c 20 2d 31 29 3b ?args...?", -1);
30f0: 0a 20 20 7d 0a 20 20 70 2d 3e 7a 55 73 61 67 65 . }. p->zUsage
3100: 20 3d 20 7a 55 73 61 67 65 3b 0a 20 20 70 2d 3e = zUsage;. p->
3110: 6e 55 73 61 67 65 20 3d 20 6e 55 73 61 67 65 3b nUsage = nUsage;
3120: 0a 0a 20 20 2f 2a 20 52 65 67 69 73 74 65 72 20 .. /* Register
3130: 74 68 65 20 6e 65 77 20 63 6f 6d 6d 61 6e 64 20 the new command
3140: 77 69 74 68 20 74 68 65 20 74 68 31 20 69 6e 74 with the th1 int
3150: 65 72 70 72 65 74 65 72 2e 20 2a 2f 0a 20 20 7a erpreter. */. z
3160: 4e 61 6d 65 20 3d 20 28 63 68 61 72 20 2a 29 61 Name = (char *)a
3170: 72 67 76 5b 31 5d 3b 0a 20 20 72 63 20 3d 20 54 rgv[1];. rc = T
3180: 68 5f 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 h_CreateCommand(
3190: 69 6e 74 65 72 70 2c 20 7a 4e 61 6d 65 2c 20 70 interp, zName, p
31a0: 72 6f 63 5f 63 61 6c 6c 31 2c 20 28 76 6f 69 64 roc_call1, (void
31b0: 20 2a 29 70 2c 20 70 72 6f 63 5f 64 65 6c 29 3b *)p, proc_del);
31c0: 0a 20 20 69 66 28 20 72 63 3d 3d 54 48 5f 4f 4b . if( rc==TH_OK
31d0: 20 29 7b 0a 20 20 20 20 54 68 5f 53 65 74 52 65 ){. Th_SetRe
31e0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 30 2c 20 sult(interp, 0,
31f0: 30 29 3b 0a 20 20 7d 0a 0a 20 20 54 68 5f 46 72 0);. }.. Th_Fr
3200: 65 65 28 69 6e 74 65 72 70 2c 20 61 7a 50 61 72 ee(interp, azPar
3210: 61 6d 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 48 am);. return TH
3220: 5f 4f 4b 3b 0a 0a 20 65 72 72 6f 72 5f 6f 75 74 _OK;.. error_out
3230: 3a 0a 20 20 54 68 5f 46 72 65 65 28 69 6e 74 65 :. Th_Free(inte
3240: 72 70 2c 20 61 7a 50 61 72 61 6d 29 3b 0a 20 20 rp, azParam);.
3250: 54 68 5f 46 72 65 65 28 69 6e 74 65 72 70 2c 20 Th_Free(interp,
3260: 7a 55 73 61 67 65 29 3b 0a 20 20 72 65 74 75 72 zUsage);. retur
3270: 6e 20 54 48 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 2f n TH_ERROR;.}../
3280: 2a 0a 2a 2a 20 54 48 20 53 79 6e 74 61 78 3a 20 *.** TH Syntax:
3290: 0a 2a 2a 0a 2a 2a 20 20 20 72 65 6e 61 6d 65 20 .**.** rename
32a0: 6f 6c 64 63 6d 64 20 6e 65 77 63 6d 64 0a 2a 2f oldcmd newcmd.*/
32b0: 0a 73 74 61 74 69 63 20 69 6e 74 20 72 65 6e 61 .static int rena
32c0: 6d 65 5f 63 6f 6d 6d 61 6e 64 28 0a 20 20 54 68 me_command(. Th
32d0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
32e0: 20 0a 20 20 76 6f 69 64 20 2a 63 74 78 2c 20 0a . void *ctx, .
32f0: 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 63 6f int argc,. co
3300: 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 67 76 2c nst char **argv,
3310: 20 0a 20 20 69 6e 74 20 2a 61 72 67 6c 0a 29 7b . int *argl.){
3320: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 20 29 . if( argc!=3 )
3330: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 68 5f {. return Th_
3340: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
3350: 65 72 70 2c 20 22 72 65 6e 61 6d 65 20 6f 6c 64 erp, "rename old
3360: 63 6d 64 20 6e 65 77 63 6d 64 22 29 3b 0a 20 20 cmd newcmd");.
3370: 7d 0a 20 20 72 65 74 75 72 6e 20 54 68 5f 52 65 }. return Th_Re
3380: 6e 61 6d 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 nameCommand(inte
3390: 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 61 72 67 rp, argv[1], arg
33a0: 6c 5b 31 5d 2c 20 61 72 67 76 5b 32 5d 2c 20 61 l[1], argv[2], a
33b0: 72 67 6c 5b 32 5d 29 3b 0a 7d 0a 0a 2f 2a 0a 2a rgl[2]);.}../*.*
33c0: 2a 20 54 48 20 53 79 6e 74 61 78 3a 20 0a 2a 2a * TH Syntax: .**
33d0: 0a 2a 2a 20 20 20 62 72 65 61 6b 20 20 20 20 3f .** break ?
33e0: 76 61 6c 75 65 2e 2e 2e 3f 0a 2a 2a 20 20 20 63 value...?.** c
33f0: 6f 6e 74 69 6e 75 65 20 3f 76 61 6c 75 65 2e 2e ontinue ?value..
3400: 2e 3f 0a 2a 2a 20 20 20 6f 6b 20 20 20 20 20 20 .?.** ok
3410: 20 3f 76 61 6c 75 65 2e 2e 2e 3f 0a 2a 2a 20 20 ?value...?.**
3420: 20 65 72 72 6f 72 20 20 20 20 3f 76 61 6c 75 65 error ?value
3430: 2e 2e 2e 3f 0a 2a 2f 0a 73 74 61 74 69 63 20 69 ...?.*/.static i
3440: 6e 74 20 73 69 6d 70 6c 65 5f 63 6f 6d 6d 61 6e nt simple_comman
3450: 64 28 0a 20 20 54 68 5f 49 6e 74 65 72 70 20 2a d(. Th_Interp *
3460: 69 6e 74 65 72 70 2c 20 0a 20 20 76 6f 69 64 20 interp, . void
3470: 2a 63 74 78 2c 20 0a 20 20 69 6e 74 20 61 72 67 *ctx, . int arg
3480: 63 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 c, . const char
3490: 20 2a 2a 61 72 67 76 2c 20 0a 20 20 69 6e 74 20 **argv, . int
34a0: 2a 61 72 67 6c 0a 29 7b 0a 20 20 69 66 28 20 61 *argl.){. if( a
34b0: 72 67 63 21 3d 31 20 26 26 20 61 72 67 63 21 3d rgc!=1 && argc!=
34c0: 32 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 2 ){. return
34d0: 54 68 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 Th_WrongNumArgs(
34e0: 69 6e 74 65 72 70 2c 20 22 72 65 74 75 72 6e 20 interp, "return
34f0: 3f 76 61 6c 75 65 3f 22 29 3b 0a 20 20 7d 0a 20 ?value?");. }.
3500: 20 69 66 28 20 61 72 67 63 3d 3d 32 20 29 7b 0a if( argc==2 ){.
3510: 20 20 20 20 54 68 5f 53 65 74 52 65 73 75 6c 74 Th_SetResult
3520: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d (interp, argv[1]
3530: 2c 20 61 72 67 6c 5b 31 5d 29 3b 0a 20 20 7d 0a , argl[1]);. }.
3540: 20 20 72 65 74 75 72 6e 20 28 69 6e 74 29 63 74 return (int)ct
3550: 78 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 48 20 53 x;.}../*.** TH S
3560: 79 6e 74 61 78 3a 20 0a 2a 2a 0a 2a 2a 20 20 20 yntax: .**.**
3570: 72 65 74 75 72 6e 20 3f 2d 63 6f 64 65 20 63 6f return ?-code co
3580: 64 65 3f 20 3f 76 61 6c 75 65 3f 0a 2a 2f 0a 73 de? ?value?.*/.s
3590: 74 61 74 69 63 20 69 6e 74 20 72 65 74 75 72 6e tatic int return
35a0: 5f 63 6f 6d 6d 61 6e 64 28 0a 20 20 54 68 5f 49 _command(. Th_I
35b0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 0a nterp *interp, .
35c0: 20 20 76 6f 69 64 20 2a 63 74 78 2c 20 0a 20 20 void *ctx, .
35d0: 69 6e 74 20 61 72 67 63 2c 20 0a 20 20 63 6f 6e int argc, . con
35e0: 73 74 20 63 68 61 72 20 2a 2a 61 72 67 76 2c 20 st char **argv,
35f0: 0a 20 20 69 6e 74 20 2a 61 72 67 6c 0a 29 7b 0a . int *argl.){.
3600: 20 20 69 6e 74 20 69 43 6f 64 65 20 3d 20 54 48 int iCode = TH
3610: 5f 52 45 54 55 52 4e 3b 0a 20 20 69 66 28 20 61 _RETURN;. if( a
3620: 72 67 63 3c 31 20 7c 7c 20 61 72 67 63 3e 34 20 rgc<1 || argc>4
3630: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 68 ){. return Th
3640: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
3650: 74 65 72 70 2c 20 22 72 65 74 75 72 6e 20 3f 2d terp, "return ?-
3660: 63 6f 64 65 20 63 6f 64 65 3f 20 3f 76 61 6c 75 code code? ?valu
3670: 65 3f 22 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 e?");. }. if(
3680: 61 72 67 63 3e 32 20 29 7b 0a 20 20 20 20 69 6e argc>2 ){. in
3690: 74 20 72 63 20 3d 20 54 68 5f 54 6f 49 6e 74 28 t rc = Th_ToInt(
36a0: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 32 5d 2c interp, argv[2],
36b0: 20 61 72 67 6c 5b 32 5d 2c 20 26 69 43 6f 64 65 argl[2], &iCode
36c0: 29 3b 0a 20 20 20 20 69 66 28 20 72 63 21 3d 54 );. if( rc!=T
36d0: 48 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 72 65 H_OK ){. re
36e0: 74 75 72 6e 20 72 63 3b 0a 20 20 20 20 7d 0a 20 turn rc;. }.
36f0: 20 7d 0a 20 20 69 66 28 20 61 72 67 63 3d 3d 32 }. if( argc==2
3700: 20 7c 7c 20 61 72 67 63 3d 3d 34 20 29 7b 0a 20 || argc==4 ){.
3710: 20 20 20 54 68 5f 53 65 74 52 65 73 75 6c 74 28 Th_SetResult(
3720: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 61 72 67 interp, argv[arg
3730: 63 2d 31 5d 2c 20 61 72 67 6c 5b 61 72 67 63 2d c-1], argl[argc-
3740: 31 5d 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 1]);. }. retur
3750: 6e 20 69 43 6f 64 65 3b 0a 7d 0a 0a 2f 2a 0a 2a n iCode;.}../*.*
3760: 2a 20 54 48 20 53 79 6e 74 61 78 3a 0a 2a 2a 0a * TH Syntax:.**.
3770: 2a 2a 20 20 20 73 74 72 69 6e 67 20 63 6f 6d 70 ** string comp
3780: 61 72 65 20 53 54 52 49 4e 47 31 20 53 54 52 49 are STRING1 STRI
3790: 4e 47 32 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e NG2.*/.static in
37a0: 74 20 73 74 72 69 6e 67 5f 63 6f 6d 70 61 72 65 t string_compare
37b0: 5f 63 6f 6d 6d 61 6e 64 28 0a 20 20 54 68 5f 49 _command(. Th_I
37c0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 76 nterp *interp, v
37d0: 6f 69 64 20 2a 63 74 78 2c 20 69 6e 74 20 61 72 oid *ctx, int ar
37e0: 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a gc, const char *
37f0: 2a 61 72 67 76 2c 20 69 6e 74 20 2a 61 72 67 6c *argv, int *argl
3800: 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 .){. const char
3810: 20 2a 7a 52 69 67 68 74 3b 20 69 6e 74 20 6e 52 *zRight; int nR
3820: 69 67 68 74 3b 0a 20 20 63 6f 6e 73 74 20 63 68 ight;. const ch
3830: 61 72 20 2a 7a 4c 65 66 74 3b 20 69 6e 74 20 6e ar *zLeft; int n
3840: 4c 65 66 74 3b 0a 0a 20 20 69 6e 74 20 69 3b 0a Left;.. int i;.
3850: 20 20 69 6e 74 20 69 52 65 73 20 3d 20 30 3b 0a int iRes = 0;.
3860: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 34 20 29 . if( argc!=4 )
3870: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 68 5f {. return Th_
3880: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
3890: 65 72 70 2c 20 22 73 74 72 69 6e 67 20 63 6f 6d erp, "string com
38a0: 70 61 72 65 20 73 74 72 31 20 73 74 72 32 22 29 pare str1 str2")
38b0: 3b 0a 20 20 7d 0a 0a 20 20 7a 4c 65 66 74 20 3d ;. }.. zLeft =
38c0: 20 61 72 67 76 5b 32 5d 3b 0a 20 20 6e 4c 65 66 argv[2];. nLef
38d0: 74 20 3d 20 61 72 67 6c 5b 32 5d 3b 0a 20 20 7a t = argl[2];. z
38e0: 52 69 67 68 74 20 3d 20 61 72 67 76 5b 33 5d 3b Right = argv[3];
38f0: 0a 20 20 6e 52 69 67 68 74 20 3d 20 61 72 67 6c . nRight = argl
3900: 5b 33 5d 3b 0a 0a 20 20 66 6f 72 28 69 3d 30 3b [3];.. for(i=0;
3910: 20 69 52 65 73 3d 3d 30 20 26 26 20 69 3c 6e 4c iRes==0 && i<nL
3920: 65 66 74 20 26 26 20 69 3c 6e 52 69 67 68 74 3b eft && i<nRight;
3930: 20 69 2b 2b 29 7b 0a 20 20 20 20 69 52 65 73 20 i++){. iRes
3940: 3d 20 7a 4c 65 66 74 5b 69 5d 2d 7a 52 69 67 68 = zLeft[i]-zRigh
3950: 74 5b 69 5d 3b 0a 20 20 7d 0a 20 20 69 66 28 20 t[i];. }. if(
3960: 69 52 65 73 3d 3d 30 20 29 7b 0a 20 20 20 20 69 iRes==0 ){. i
3970: 52 65 73 20 3d 20 6e 4c 65 66 74 2d 6e 52 69 67 Res = nLeft-nRig
3980: 68 74 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 69 ht;. }.. if( i
3990: 52 65 73 3c 30 20 29 20 69 52 65 73 20 3d 20 2d Res<0 ) iRes = -
39a0: 31 3b 0a 20 20 69 66 28 20 69 52 65 73 3e 30 20 1;. if( iRes>0
39b0: 29 20 69 52 65 73 20 3d 20 31 3b 0a 20 20 0a 20 ) iRes = 1;. .
39c0: 20 72 65 74 75 72 6e 20 54 68 5f 53 65 74 52 65 return Th_SetRe
39d0: 73 75 6c 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 sultInt(interp,
39e0: 69 52 65 73 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 iRes);.}../*.**
39f0: 54 48 20 53 79 6e 74 61 78 3a 0a 2a 2a 0a 2a 2a TH Syntax:.**.**
3a00: 20 20 20 73 74 72 69 6e 67 20 66 69 72 73 74 20 string first
3a10: 4e 45 45 44 4c 45 20 48 41 59 53 54 41 43 4b 0a NEEDLE HAYSTACK.
3a20: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 74 */.static int st
3a30: 72 69 6e 67 5f 66 69 72 73 74 5f 63 6f 6d 6d 61 ring_first_comma
3a40: 6e 64 28 0a 20 20 54 68 5f 49 6e 74 65 72 70 20 nd(. Th_Interp
3a50: 2a 69 6e 74 65 72 70 2c 20 76 6f 69 64 20 2a 63 *interp, void *c
3a60: 74 78 2c 20 69 6e 74 20 61 72 67 63 2c 20 63 6f tx, int argc, co
3a70: 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 67 76 2c nst char **argv,
3a80: 20 69 6e 74 20 2a 61 72 67 6c 0a 29 7b 0a 20 20 int *argl.){.
3a90: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 65 65 const char *zNee
3aa0: 64 6c 65 3b 0a 20 20 69 6e 74 20 6e 4e 65 65 64 dle;. int nNeed
3ab0: 6c 65 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 le;. const char
3ac0: 20 2a 7a 48 61 79 73 74 61 63 6b 3b 0a 20 20 69 *zHaystack;. i
3ad0: 6e 74 20 6e 48 61 79 73 74 61 63 6b 3b 0a 20 20 nt nHaystack;.
3ae0: 69 6e 74 20 69 3b 0a 20 20 69 6e 74 20 69 52 65 int i;. int iRe
3af0: 73 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 21 3d s;.. if( argc!=
3b00: 34 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 4 ){. return
3b10: 54 68 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 Th_WrongNumArgs(
3b20: 69 6e 74 65 72 70 2c 20 22 73 74 72 69 6e 67 20 interp, "string
3b30: 66 69 72 73 74 20 6e 65 65 64 6c 65 20 68 61 79 first needle hay
3b40: 73 74 61 63 6b 22 29 3b 0a 20 20 7d 0a 0a 20 20 stack");. }..
3b50: 7a 4e 65 65 64 6c 65 20 3d 20 61 72 67 76 5b 32 zNeedle = argv[2
3b60: 5d 3b 0a 20 20 6e 4e 65 65 64 6c 65 20 3d 20 61 ];. nNeedle = a
3b70: 72 67 6c 5b 32 5d 3b 0a 20 20 7a 48 61 79 73 74 rgl[2];. zHayst
3b80: 61 63 6b 20 3d 20 61 72 67 76 5b 33 5d 3b 0a 20 ack = argv[3];.
3b90: 20 6e 48 61 79 73 74 61 63 6b 20 3d 20 61 72 67 nHaystack = arg
3ba0: 6c 5b 33 5d 3b 0a 0a 20 20 66 6f 72 28 69 3d 30 l[3];.. for(i=0
3bb0: 3b 20 69 3c 28 6e 48 61 79 73 74 61 63 6b 2d 6e ; i<(nHaystack-n
3bc0: 4e 65 65 64 6c 65 29 3b 20 69 2b 2b 29 7b 0a 20 Needle); i++){.
3bd0: 20 20 20 69 66 28 20 30 3d 3d 6d 65 6d 63 6d 70 if( 0==memcmp
3be0: 28 7a 4e 65 65 64 6c 65 2c 20 26 7a 48 61 79 73 (zNeedle, &zHays
3bf0: 74 61 63 6b 5b 69 5d 2c 20 6e 4e 65 65 64 6c 65 tack[i], nNeedle
3c00: 29 20 29 7b 0a 20 20 20 20 20 20 69 52 65 73 20 ) ){. iRes
3c10: 3d 20 69 3b 0a 20 20 20 20 20 20 62 72 65 61 6b = i;. break
3c20: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 0a 20 ;. }. }. .
3c30: 20 72 65 74 75 72 6e 20 54 68 5f 53 65 74 52 65 return Th_SetRe
3c40: 73 75 6c 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 sultInt(interp,
3c50: 69 52 65 73 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 iRes);.}../*.**
3c60: 54 48 20 53 79 6e 74 61 78 3a 0a 2a 2a 0a 2a 2a TH Syntax:.**.**
3c70: 20 20 20 73 74 72 69 6e 67 20 69 73 20 43 4c 41 string is CLA
3c80: 53 53 20 53 54 52 49 4e 47 0a 2a 2f 0a 73 74 61 SS STRING.*/.sta
3c90: 74 69 63 20 69 6e 74 20 73 74 72 69 6e 67 5f 69 tic int string_i
3ca0: 73 5f 63 6f 6d 6d 61 6e 64 28 0a 20 20 54 68 5f s_command(. Th_
3cb0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
3cc0: 76 6f 69 64 20 2a 63 74 78 2c 20 69 6e 74 20 61 void *ctx, int a
3cd0: 72 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 rgc, const char
3ce0: 2a 2a 61 72 67 76 2c 20 69 6e 74 20 2a 61 72 67 **argv, int *arg
3cf0: 6c 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 l.){. int i;.
3d00: 69 6e 74 20 69 52 65 73 20 3d 20 31 3b 0a 20 20 int iRes = 1;.
3d10: 69 66 28 20 61 72 67 63 21 3d 34 20 29 7b 0a 20 if( argc!=4 ){.
3d20: 20 20 20 72 65 74 75 72 6e 20 54 68 5f 57 72 6f return Th_Wro
3d30: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
3d40: 2c 20 22 73 74 72 69 6e 67 20 69 73 20 63 6c 61 , "string is cla
3d50: 73 73 20 73 74 72 69 6e 67 22 29 3b 0a 20 20 7d ss string");. }
3d60: 0a 20 20 69 66 28 20 61 72 67 6c 5b 32 5d 21 3d . if( argl[2]!=
3d70: 35 20 7c 7c 20 30 21 3d 6d 65 6d 63 6d 70 28 61 5 || 0!=memcmp(a
3d80: 72 67 76 5b 32 5d 2c 20 22 61 6c 6e 75 6d 22 2c rgv[2], "alnum",
3d90: 20 35 29 20 29 7b 0a 20 20 20 20 54 68 5f 45 72 5) ){. Th_Er
3da0: 72 6f 72 4d 65 73 73 61 67 65 28 69 6e 74 65 72 rorMessage(inter
3db0: 70 2c 20 22 45 78 70 65 63 74 65 64 20 61 6c 6e p, "Expected aln
3dc0: 75 6d 2c 20 67 6f 74 3a 20 22 2c 20 61 72 67 76 um, got: ", argv
3dd0: 5b 32 5d 2c 20 61 72 67 6c 5b 32 5d 29 3b 0a 20 [2], argl[2]);.
3de0: 20 20 20 72 65 74 75 72 6e 20 54 48 5f 45 52 52 return TH_ERR
3df0: 4f 52 3b 0a 20 20 7d 0a 0a 20 20 66 6f 72 28 69 OR;. }.. for(i
3e00: 3d 30 3b 20 69 3c 61 72 67 6c 5b 33 5d 3b 20 69 =0; i<argl[3]; i
3e10: 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 21 74 68 ++){. if( !th
3e20: 5f 69 73 61 6c 6e 75 6d 28 61 72 67 76 5b 33 5d _isalnum(argv[3]
3e30: 5b 69 5d 29 20 29 7b 0a 20 20 20 20 20 20 69 52 [i]) ){. iR
3e40: 65 73 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20 es = 0;. }.
3e50: 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 68 5f 53 }.. return Th_S
3e60: 65 74 52 65 73 75 6c 74 49 6e 74 28 69 6e 74 65 etResultInt(inte
3e70: 72 70 2c 20 69 52 65 73 29 3b 0a 7d 0a 0a 2f 2a rp, iRes);.}../*
3e80: 0a 2a 2a 20 54 48 20 53 79 6e 74 61 78 3a 0a 2a .** TH Syntax:.*
3e90: 2a 0a 2a 2a 20 20 20 73 74 72 69 6e 67 20 6c 61 *.** string la
3ea0: 73 74 20 4e 45 45 44 4c 45 20 48 41 59 53 54 41 st NEEDLE HAYSTA
3eb0: 43 4b 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 CK.*/.static int
3ec0: 20 73 74 72 69 6e 67 5f 6c 61 73 74 5f 63 6f 6d string_last_com
3ed0: 6d 61 6e 64 28 0a 20 20 54 68 5f 49 6e 74 65 72 mand(. Th_Inter
3ee0: 70 20 2a 69 6e 74 65 72 70 2c 20 76 6f 69 64 20 p *interp, void
3ef0: 2a 63 74 78 2c 20 69 6e 74 20 61 72 67 63 2c 20 *ctx, int argc,
3f00: 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 67 const char **arg
3f10: 76 2c 20 69 6e 74 20 2a 61 72 67 6c 0a 29 7b 0a v, int *argl.){.
3f20: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e const char *zN
3f30: 65 65 64 6c 65 3b 0a 20 20 69 6e 74 20 6e 4e 65 eedle;. int nNe
3f40: 65 64 6c 65 3b 0a 20 20 63 6f 6e 73 74 20 63 68 edle;. const ch
3f50: 61 72 20 2a 7a 48 61 79 73 74 61 63 6b 3b 0a 20 ar *zHaystack;.
3f60: 20 69 6e 74 20 6e 48 61 79 73 74 61 63 6b 3b 0a int nHaystack;.
3f70: 20 20 69 6e 74 20 69 3b 0a 20 20 69 6e 74 20 69 int i;. int i
3f80: 52 65 73 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 Res;.. if( argc
3f90: 21 3d 34 20 29 7b 0a 20 20 20 20 72 65 74 75 72 !=4 ){. retur
3fa0: 6e 20 54 68 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 n Th_WrongNumArg
3fb0: 73 28 69 6e 74 65 72 70 2c 20 22 73 74 72 69 6e s(interp, "strin
3fc0: 67 20 66 69 72 73 74 20 6e 65 65 64 6c 65 20 68 g first needle h
3fd0: 61 79 73 74 61 63 6b 22 29 3b 0a 20 20 7d 0a 0a aystack");. }..
3fe0: 20 20 7a 4e 65 65 64 6c 65 20 3d 20 61 72 67 76 zNeedle = argv
3ff0: 5b 32 5d 3b 0a 20 20 6e 4e 65 65 64 6c 65 20 3d [2];. nNeedle =
4000: 20 61 72 67 6c 5b 32 5d 3b 0a 20 20 7a 48 61 79 argl[2];. zHay
4010: 73 74 61 63 6b 20 3d 20 61 72 67 76 5b 33 5d 3b stack = argv[3];
4020: 0a 20 20 6e 48 61 79 73 74 61 63 6b 20 3d 20 61 . nHaystack = a
4030: 72 67 6c 5b 33 5d 3b 0a 0a 20 20 66 6f 72 28 69 rgl[3];.. for(i
4040: 3d 6e 48 61 79 73 74 61 63 6b 2d 6e 4e 65 65 64 =nHaystack-nNeed
4050: 6c 65 2d 31 3b 20 69 3e 3d 30 3b 20 69 2d 2d 29 le-1; i>=0; i--)
4060: 7b 0a 20 20 20 20 69 66 28 20 30 3d 3d 6d 65 6d {. if( 0==mem
4070: 63 6d 70 28 7a 4e 65 65 64 6c 65 2c 20 26 7a 48 cmp(zNeedle, &zH
4080: 61 79 73 74 61 63 6b 5b 69 5d 2c 20 6e 4e 65 65 aystack[i], nNee
4090: 64 6c 65 29 20 29 7b 0a 20 20 20 20 20 20 69 52 dle) ){. iR
40a0: 65 73 20 3d 20 69 3b 0a 20 20 20 20 20 20 62 72 es = i;. br
40b0: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 eak;. }. }.
40c0: 20 0a 20 20 72 65 74 75 72 6e 20 54 68 5f 53 65 . return Th_Se
40d0: 74 52 65 73 75 6c 74 49 6e 74 28 69 6e 74 65 72 tResultInt(inter
40e0: 70 2c 20 69 52 65 73 29 3b 0a 7d 0a 0a 2f 2a 0a p, iRes);.}../*.
40f0: 2a 2a 20 54 48 20 53 79 6e 74 61 78 3a 0a 2a 2a ** TH Syntax:.**
4100: 0a 2a 2a 20 20 20 73 74 72 69 6e 67 20 6c 65 6e .** string len
4110: 67 74 68 20 53 54 52 49 4e 47 0a 2a 2f 0a 73 74 gth STRING.*/.st
4120: 61 74 69 63 20 69 6e 74 20 73 74 72 69 6e 67 5f atic int string_
4130: 6c 65 6e 67 74 68 5f 63 6f 6d 6d 61 6e 64 28 0a length_command(.
4140: 20 20 54 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Th_Interp *int
4150: 65 72 70 2c 20 76 6f 69 64 20 2a 63 74 78 2c 20 erp, void *ctx,
4160: 69 6e 74 20 61 72 67 63 2c 20 63 6f 6e 73 74 20 int argc, const
4170: 63 68 61 72 20 2a 2a 61 72 67 76 2c 20 69 6e 74 char **argv, int
4180: 20 2a 61 72 67 6c 0a 29 7b 0a 20 20 69 66 28 20 *argl.){. if(
4190: 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 72 argc!=3 ){. r
41a0: 65 74 75 72 6e 20 54 68 5f 57 72 6f 6e 67 4e 75 eturn Th_WrongNu
41b0: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 22 73 mArgs(interp, "s
41c0: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 73 74 72 tring length str
41d0: 69 6e 67 22 29 3b 0a 20 20 7d 0a 20 20 72 65 74 ing");. }. ret
41e0: 75 72 6e 20 54 68 5f 53 65 74 52 65 73 75 6c 74 urn Th_SetResult
41f0: 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 6c Int(interp, argl
4200: 5b 32 5d 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 [2]);.}../*.** T
4210: 48 20 53 79 6e 74 61 78 3a 0a 2a 2a 0a 2a 2a 20 H Syntax:.**.**
4220: 20 20 73 74 72 69 6e 67 20 72 61 6e 67 65 20 53 string range S
4230: 54 52 49 4e 47 20 46 49 52 53 54 20 4c 41 53 54 TRING FIRST LAST
4240: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 .*/.static int s
4250: 74 72 69 6e 67 5f 72 61 6e 67 65 5f 63 6f 6d 6d tring_range_comm
4260: 61 6e 64 28 0a 20 20 54 68 5f 49 6e 74 65 72 70 and(. Th_Interp
4270: 20 2a 69 6e 74 65 72 70 2c 20 76 6f 69 64 20 2a *interp, void *
4280: 63 74 78 2c 20 69 6e 74 20 61 72 67 63 2c 20 63 ctx, int argc, c
4290: 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 67 76 onst char **argv
42a0: 2c 20 69 6e 74 20 2a 61 72 67 6c 0a 29 7b 0a 20 , int *argl.){.
42b0: 20 69 6e 74 20 69 53 74 61 72 74 3b 0a 20 20 69 int iStart;. i
42c0: 6e 74 20 69 45 6e 64 3b 0a 0a 20 20 69 66 28 20 nt iEnd;.. if(
42d0: 61 72 67 63 21 3d 35 20 29 7b 0a 20 20 20 20 72 argc!=5 ){. r
42e0: 65 74 75 72 6e 20 54 68 5f 57 72 6f 6e 67 4e 75 eturn Th_WrongNu
42f0: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 22 73 mArgs(interp, "s
4300: 74 72 69 6e 67 20 72 61 6e 67 65 20 73 74 72 69 tring range stri
4310: 6e 67 20 66 69 72 73 74 20 6c 61 73 74 22 29 3b ng first last");
4320: 0a 20 20 7d 0a 0a 20 20 69 66 28 20 61 72 67 6c . }.. if( argl
4330: 5b 34 5d 3d 3d 33 20 26 26 20 30 3d 3d 6d 65 6d [4]==3 && 0==mem
4340: 63 6d 70 28 22 65 6e 64 22 2c 20 61 72 67 76 5b cmp("end", argv[
4350: 34 5d 2c 20 33 29 20 29 7b 0a 20 20 20 20 69 45 4], 3) ){. iE
4360: 6e 64 20 3d 20 61 72 67 6c 5b 32 5d 3b 0a 20 20 nd = argl[2];.
4370: 7d 65 6c 73 65 20 69 66 28 20 54 68 5f 54 6f 49 }else if( Th_ToI
4380: 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b nt(interp, argv[
4390: 34 5d 2c 20 61 72 67 6c 5b 34 5d 2c 20 26 69 45 4], argl[4], &iE
43a0: 6e 64 29 20 29 7b 0a 20 20 20 20 54 68 5f 45 72 nd) ){. Th_Er
43b0: 72 6f 72 4d 65 73 73 61 67 65 28 0a 20 20 20 20 rorMessage(.
43c0: 20 20 20 20 69 6e 74 65 72 70 2c 20 22 45 78 70 interp, "Exp
43d0: 65 63 74 65 64 20 5c 22 65 6e 64 5c 22 20 6f 72 ected \"end\" or
43e0: 20 69 6e 74 65 67 65 72 2c 20 67 6f 74 3a 22 2c integer, got:",
43f0: 20 61 72 67 76 5b 34 5d 2c 20 61 72 67 6c 5b 34 argv[4], argl[4
4400: 5d 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ]);. return T
4410: 48 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 H_ERROR;. }. i
4420: 66 28 20 54 68 5f 54 6f 49 6e 74 28 69 6e 74 65 f( Th_ToInt(inte
4430: 72 70 2c 20 61 72 67 76 5b 33 5d 2c 20 61 72 67 rp, argv[3], arg
4440: 6c 5b 33 5d 2c 20 26 69 53 74 61 72 74 29 20 29 l[3], &iStart) )
4450: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 48 5f {. return TH_
4460: 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 ERROR;. }.. if
4470: 28 20 69 53 74 61 72 74 3c 30 20 29 20 69 53 74 ( iStart<0 ) iSt
4480: 61 72 74 20 3d 20 30 3b 0a 20 20 69 66 28 20 69 art = 0;. if( i
4490: 45 6e 64 3e 3d 61 72 67 6c 5b 32 5d 20 29 20 69 End>=argl[2] ) i
44a0: 45 6e 64 20 3d 20 61 72 67 6c 5b 32 5d 2d 31 3b End = argl[2]-1;
44b0: 0a 20 20 69 66 28 20 69 53 74 61 72 74 3e 69 45 . if( iStart>iE
44c0: 6e 64 20 29 20 69 45 6e 64 20 3d 20 69 53 74 61 nd ) iEnd = iSta
44d0: 72 74 2d 31 3b 0a 0a 20 20 72 65 74 75 72 6e 20 rt-1;.. return
44e0: 54 68 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 Th_SetResult(int
44f0: 65 72 70 2c 20 26 61 72 67 76 5b 32 5d 5b 69 53 erp, &argv[2][iS
4500: 74 61 72 74 5d 2c 20 69 45 6e 64 2d 69 53 74 61 tart], iEnd-iSta
4510: 72 74 2b 31 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 rt+1);.}../*.**
4520: 54 48 20 53 79 6e 74 61 78 3a 0a 2a 2a 0a 2a 2a TH Syntax:.**.**
4530: 20 20 20 73 74 72 69 6e 67 20 72 65 70 65 61 74 string repeat
4540: 20 53 54 52 49 4e 47 20 43 4f 55 4e 54 0a 2a 2f STRING COUNT.*/
4550: 0a 73 74 61 74 69 63 20 69 6e 74 20 73 74 72 69 .static int stri
4560: 6e 67 5f 72 65 70 65 61 74 5f 63 6f 6d 6d 61 6e ng_repeat_comman
4570: 64 28 0a 20 20 54 68 5f 49 6e 74 65 72 70 20 2a d(. Th_Interp *
4580: 69 6e 74 65 72 70 2c 20 76 6f 69 64 20 2a 63 74 interp, void *ct
4590: 78 2c 20 69 6e 74 20 61 72 67 63 2c 20 63 6f 6e x, int argc, con
45a0: 73 74 20 63 68 61 72 20 2a 2a 61 72 67 76 2c 20 st char **argv,
45b0: 69 6e 74 20 2a 61 72 67 6c 0a 29 7b 0a 20 20 69 int *argl.){. i
45c0: 6e 74 20 6e 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 nt n;. int i;.
45d0: 20 69 6e 74 20 6e 42 79 74 65 3b 0a 20 20 63 68 int nByte;. ch
45e0: 61 72 20 2a 7a 42 79 74 65 3b 0a 0a 20 20 69 66 ar *zByte;.. if
45f0: 28 20 61 72 67 63 21 3d 34 20 29 7b 0a 20 20 20 ( argc!=4 ){.
4600: 20 72 65 74 75 72 6e 20 54 68 5f 57 72 6f 6e 67 return Th_Wrong
4610: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
4620: 22 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 73 "string repeat s
4630: 74 72 69 6e 67 20 6e 22 29 3b 0a 20 20 7d 0a 20 tring n");. }.
4640: 20 69 66 28 20 54 68 5f 54 6f 49 6e 74 28 69 6e if( Th_ToInt(in
4650: 74 65 72 70 2c 20 61 72 67 76 5b 33 5d 2c 20 61 terp, argv[3], a
4660: 72 67 6c 5b 33 5d 2c 20 26 6e 29 20 29 7b 0a 20 rgl[3], &n) ){.
4670: 20 20 20 72 65 74 75 72 6e 20 54 48 5f 45 52 52 return TH_ERR
4680: 4f 52 3b 0a 20 20 7d 0a 0a 20 20 6e 42 79 74 65 OR;. }.. nByte
4690: 20 3d 20 61 72 67 6c 5b 32 5d 20 2a 20 6e 3b 0a = argl[2] * n;.
46a0: 20 20 7a 42 79 74 65 20 3d 20 54 68 5f 4d 61 6c zByte = Th_Mal
46b0: 6c 6f 63 28 69 6e 74 65 72 70 2c 20 6e 42 79 74 loc(interp, nByt
46c0: 65 2b 31 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b e+1);. for(i=0;
46d0: 20 69 3c 6e 42 79 74 65 3b 20 69 2b 3d 61 72 67 i<nByte; i+=arg
46e0: 6c 5b 32 5d 29 7b 0a 20 20 20 20 6d 65 6d 63 70 l[2]){. memcp
46f0: 79 28 26 7a 42 79 74 65 5b 69 5d 2c 20 61 72 67 y(&zByte[i], arg
4700: 76 5b 32 5d 2c 20 61 72 67 6c 5b 32 5d 29 3b 0a v[2], argl[2]);.
4710: 20 20 7d 0a 0a 20 20 54 68 5f 53 65 74 52 65 73 }.. Th_SetRes
4720: 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 79 74 ult(interp, zByt
4730: 65 2c 20 6e 42 79 74 65 29 3b 0a 20 20 54 68 5f e, nByte);. Th_
4740: 46 72 65 65 28 69 6e 74 65 72 70 2c 20 7a 42 79 Free(interp, zBy
4750: 74 65 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 48 te);. return TH
4760: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 48 _OK;.}../*.** TH
4770: 20 53 79 6e 74 61 78 3a 0a 2a 2a 0a 2a 2a 20 20 Syntax:.**.**
4780: 20 69 6e 66 6f 20 65 78 69 73 74 73 20 56 41 52 info exists VAR
4790: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 69 .*/.static int i
47a0: 6e 66 6f 5f 65 78 69 73 74 73 5f 63 6f 6d 6d 61 nfo_exists_comma
47b0: 6e 64 28 0a 20 20 54 68 5f 49 6e 74 65 72 70 20 nd(. Th_Interp
47c0: 2a 69 6e 74 65 72 70 2c 20 76 6f 69 64 20 2a 63 *interp, void *c
47d0: 74 78 2c 20 69 6e 74 20 61 72 67 63 2c 20 63 6f tx, int argc, co
47e0: 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 67 76 2c nst char **argv,
47f0: 20 69 6e 74 20 2a 61 72 67 6c 0a 29 7b 0a 20 20 int *argl.){.
4800: 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 61 int rc;.. if( a
4810: 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 72 65 rgc!=3 ){. re
4820: 74 75 72 6e 20 54 68 5f 57 72 6f 6e 67 4e 75 6d turn Th_WrongNum
4830: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 22 69 6e Args(interp, "in
4840: 66 6f 20 65 78 69 73 74 73 20 76 61 72 22 29 3b fo exists var");
4850: 0a 20 20 7d 0a 20 20 72 63 20 3d 20 54 68 5f 47 . }. rc = Th_G
4860: 65 74 56 61 72 28 69 6e 74 65 72 70 2c 20 61 72 etVar(interp, ar
4870: 67 76 5b 32 5d 2c 20 61 72 67 6c 5b 32 5d 29 3b gv[2], argl[2]);
4880: 0a 20 20 54 68 5f 53 65 74 52 65 73 75 6c 74 49 . Th_SetResultI
4890: 6e 74 28 69 6e 74 65 72 70 2c 20 72 63 3f 30 3a nt(interp, rc?0:
48a0: 31 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 48 5f 1);. return TH_
48b0: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 48 20 OK;.}../*.** TH
48c0: 53 79 6e 74 61 78 3a 0a 2a 2a 0a 2a 2a 20 20 20 Syntax:.**.**
48d0: 75 6e 73 65 74 20 56 41 52 0a 2a 2f 0a 73 74 61 unset VAR.*/.sta
48e0: 74 69 63 20 69 6e 74 20 75 6e 73 65 74 5f 63 6f tic int unset_co
48f0: 6d 6d 61 6e 64 28 0a 20 20 54 68 5f 49 6e 74 65 mmand(. Th_Inte
4900: 72 70 20 2a 69 6e 74 65 72 70 2c 20 0a 20 20 76 rp *interp, . v
4910: 6f 69 64 20 2a 63 74 78 2c 0a 20 20 69 6e 74 20 oid *ctx,. int
4920: 61 72 67 63 2c 0a 20 20 63 6f 6e 73 74 20 63 68 argc,. const ch
4930: 61 72 20 2a 2a 61 72 67 76 2c 0a 20 20 69 6e 74 ar **argv,. int
4940: 20 2a 61 72 67 6c 0a 29 7b 0a 20 20 69 66 28 20 *argl.){. if(
4950: 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 72 argc!=2 ){. r
4960: 65 74 75 72 6e 20 54 68 5f 57 72 6f 6e 67 4e 75 eturn Th_WrongNu
4970: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 22 75 mArgs(interp, "u
4980: 6e 73 65 74 20 76 61 72 22 29 3b 0a 20 20 7d 0a nset var");. }.
4990: 20 20 72 65 74 75 72 6e 20 54 68 5f 55 6e 73 65 return Th_Unse
49a0: 74 56 61 72 28 69 6e 74 65 72 70 2c 20 61 72 67 tVar(interp, arg
49b0: 76 5b 31 5d 2c 20 61 72 67 6c 5b 31 5d 29 3b 0a v[1], argl[1]);.
49c0: 7d 0a 0a 69 6e 74 20 54 68 5f 43 61 6c 6c 53 75 }..int Th_CallSu
49d0: 62 43 6f 6d 6d 61 6e 64 28 0a 20 20 54 68 5f 49 bCommand(. Th_I
49e0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 0a nterp *interp, .
49f0: 20 20 76 6f 69 64 20 2a 63 74 78 2c 0a 20 20 69 void *ctx,. i
4a00: 6e 74 20 61 72 67 63 2c 0a 20 20 63 6f 6e 73 74 nt argc,. const
4a10: 20 63 68 61 72 20 2a 2a 61 72 67 76 2c 0a 20 20 char **argv,.
4a20: 69 6e 74 20 2a 61 72 67 6c 2c 0a 20 20 54 68 5f int *argl,. Th_
4a30: 53 75 62 43 6f 6d 6d 61 6e 64 20 2a 61 53 75 62 SubCommand *aSub
4a40: 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 .){. int i;. f
4a50: 6f 72 28 69 3d 30 3b 20 61 53 75 62 5b 69 5d 2e or(i=0; aSub[i].
4a60: 7a 4e 61 6d 65 3b 20 69 2b 2b 29 7b 0a 20 20 20 zName; i++){.
4a70: 20 63 68 61 72 20 2a 7a 4e 61 6d 65 20 3d 20 28 char *zName = (
4a80: 63 68 61 72 20 2a 29 61 53 75 62 5b 69 5d 2e 7a char *)aSub[i].z
4a90: 4e 61 6d 65 3b 0a 20 20 20 20 69 66 28 20 74 68 Name;. if( th
4aa0: 5f 73 74 72 6c 65 6e 28 7a 4e 61 6d 65 29 3d 3d _strlen(zName)==
4ab0: 61 72 67 6c 5b 31 5d 20 26 26 20 30 3d 3d 6d 65 argl[1] && 0==me
4ac0: 6d 63 6d 70 28 7a 4e 61 6d 65 2c 20 61 72 67 76 mcmp(zName, argv
4ad0: 5b 31 5d 2c 20 61 72 67 6c 5b 31 5d 29 20 29 7b [1], argl[1]) ){
4ae0: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 61 53 . return aS
4af0: 75 62 5b 69 5d 2e 78 50 72 6f 63 28 69 6e 74 65 ub[i].xProc(inte
4b00: 72 70 2c 20 63 74 78 2c 20 61 72 67 63 2c 20 61 rp, ctx, argc, a
4b10: 72 67 76 2c 20 61 72 67 6c 29 3b 0a 20 20 20 20 rgv, argl);.
4b20: 7d 0a 20 20 7d 0a 0a 20 20 54 68 5f 45 72 72 6f }. }.. Th_Erro
4b30: 72 4d 65 73 73 61 67 65 28 69 6e 74 65 72 70 2c rMessage(interp,
4b40: 20 22 45 78 70 65 63 74 65 64 20 73 75 62 2d 63 "Expected sub-c
4b50: 6f 6d 6d 61 6e 64 2c 20 67 6f 74 3a 22 2c 20 61 ommand, got:", a
4b60: 72 67 76 5b 31 5d 2c 20 61 72 67 6c 5b 31 5d 29 rgv[1], argl[1])
4b70: 3b 0a 20 20 72 65 74 75 72 6e 20 54 48 5f 45 52 ;. return TH_ER
4b80: 52 4f 52 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 48 ROR;.}../*.** TH
4b90: 20 53 79 6e 74 61 78 3a 0a 2a 2a 0a 2a 2a 20 20 Syntax:.**.**
4ba0: 20 73 74 72 69 6e 67 20 63 6f 6d 70 61 72 65 20 string compare
4bb0: 53 54 52 31 20 53 54 52 32 0a 2a 2a 20 20 20 73 STR1 STR2.** s
4bc0: 74 72 69 6e 67 20 66 69 72 73 74 20 20 20 4e 45 tring first NE
4bd0: 45 44 4c 45 20 48 41 59 53 54 41 43 4b 20 3f 53 EDLE HAYSTACK ?S
4be0: 54 41 52 54 49 4e 44 45 58 3f 0a 2a 2a 20 20 20 TARTINDEX?.**
4bf0: 73 74 72 69 6e 67 20 69 73 20 20 20 20 20 20 43 string is C
4c00: 4c 41 53 53 20 53 54 52 49 4e 47 0a 2a 2a 20 20 LASS STRING.**
4c10: 20 73 74 72 69 6e 67 20 6c 61 73 74 20 20 20 20 string last
4c20: 4e 45 45 44 4c 45 20 48 41 59 53 54 41 43 4b 20 NEEDLE HAYSTACK
4c30: 3f 53 54 41 52 54 49 4e 44 45 58 3f 0a 2a 2a 20 ?STARTINDEX?.**
4c40: 20 20 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 string length
4c50: 20 53 54 52 49 4e 47 0a 2a 2a 20 20 20 73 74 72 STRING.** str
4c60: 69 6e 67 20 72 61 6e 67 65 20 20 20 53 54 52 49 ing range STRI
4c70: 4e 47 20 46 49 52 53 54 20 4c 41 53 54 0a 2a 2a NG FIRST LAST.**
4c80: 20 20 20 73 74 72 69 6e 67 20 72 65 70 65 61 74 string repeat
4c90: 20 20 53 54 52 49 4e 47 20 43 4f 55 4e 54 0a 2a STRING COUNT.*
4ca0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 74 72 /.static int str
4cb0: 69 6e 67 5f 63 6f 6d 6d 61 6e 64 28 0a 20 20 54 ing_command(. T
4cc0: 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 h_Interp *interp
4cd0: 2c 20 0a 20 20 76 6f 69 64 20 2a 63 74 78 2c 0a , . void *ctx,.
4ce0: 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 63 6f int argc,. co
4cf0: 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 67 76 2c nst char **argv,
4d00: 0a 20 20 69 6e 74 20 2a 61 72 67 6c 0a 29 7b 0a . int *argl.){.
4d10: 20 20 54 68 5f 53 75 62 43 6f 6d 6d 61 6e 64 20 Th_SubCommand
4d20: 61 53 75 62 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b aSub[] = {. {
4d30: 20 22 63 6f 6d 70 61 72 65 22 2c 20 73 74 72 69 "compare", stri
4d40: 6e 67 5f 63 6f 6d 70 61 72 65 5f 63 6f 6d 6d 61 ng_compare_comma
4d50: 6e 64 20 7d 2c 0a 20 20 20 20 7b 20 22 66 69 72 nd },. { "fir
4d60: 73 74 22 2c 20 20 20 73 74 72 69 6e 67 5f 66 69 st", string_fi
4d70: 72 73 74 5f 63 6f 6d 6d 61 6e 64 20 7d 2c 0a 20 rst_command },.
4d80: 20 20 20 7b 20 22 69 73 22 2c 20 20 20 20 20 20 { "is",
4d90: 73 74 72 69 6e 67 5f 69 73 5f 63 6f 6d 6d 61 6e string_is_comman
4da0: 64 20 7d 2c 0a 20 20 20 20 7b 20 22 6c 61 73 74 d },. { "last
4db0: 22 2c 20 20 20 20 73 74 72 69 6e 67 5f 6c 61 73 ", string_las
4dc0: 74 5f 63 6f 6d 6d 61 6e 64 20 7d 2c 0a 20 20 20 t_command },.
4dd0: 20 7b 20 22 6c 65 6e 67 74 68 22 2c 20 20 73 74 { "length", st
4de0: 72 69 6e 67 5f 6c 65 6e 67 74 68 5f 63 6f 6d 6d ring_length_comm
4df0: 61 6e 64 20 7d 2c 0a 20 20 20 20 7b 20 22 72 61 and },. { "ra
4e00: 6e 67 65 22 2c 20 20 20 73 74 72 69 6e 67 5f 72 nge", string_r
4e10: 61 6e 67 65 5f 63 6f 6d 6d 61 6e 64 20 7d 2c 0a ange_command },.
4e20: 20 20 20 20 7b 20 22 72 65 70 65 61 74 22 2c 20 { "repeat",
4e30: 20 73 74 72 69 6e 67 5f 72 65 70 65 61 74 5f 63 string_repeat_c
4e40: 6f 6d 6d 61 6e 64 20 7d 2c 0a 20 20 20 20 7b 20 ommand },. {
4e50: 30 2c 20 30 20 7d 0a 20 20 7d 3b 0a 20 20 72 65 0, 0 }. };. re
4e60: 74 75 72 6e 20 54 68 5f 43 61 6c 6c 53 75 62 43 turn Th_CallSubC
4e70: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 63 ommand(interp, c
4e80: 74 78 2c 20 61 72 67 63 2c 20 61 72 67 76 2c 20 tx, argc, argv,
4e90: 61 72 67 6c 2c 20 61 53 75 62 29 3b 0a 7d 0a 0a argl, aSub);.}..
4ea0: 2f 2a 0a 2a 2a 20 54 48 20 53 79 6e 74 61 78 3a /*.** TH Syntax:
4eb0: 0a 2a 2a 0a 2a 2a 20 20 20 69 6e 66 6f 20 65 78 .**.** info ex
4ec0: 69 73 74 73 20 56 41 52 4e 41 4d 45 0a 2a 2f 0a ists VARNAME.*/.
4ed0: 73 74 61 74 69 63 20 69 6e 74 20 69 6e 66 6f 5f static int info_
4ee0: 63 6f 6d 6d 61 6e 64 28 0a 20 20 54 68 5f 49 6e command(. Th_In
4ef0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 0a 20 terp *interp, .
4f00: 20 76 6f 69 64 20 2a 63 74 78 2c 0a 20 20 69 6e void *ctx,. in
4f10: 74 20 61 72 67 63 2c 0a 20 20 63 6f 6e 73 74 20 t argc,. const
4f20: 63 68 61 72 20 2a 2a 61 72 67 76 2c 0a 20 20 69 char **argv,. i
4f30: 6e 74 20 2a 61 72 67 6c 0a 29 7b 0a 20 20 54 68 nt *argl.){. Th
4f40: 5f 53 75 62 43 6f 6d 6d 61 6e 64 20 61 53 75 62 _SubCommand aSub
4f50: 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 20 22 65 78 [] = {. { "ex
4f60: 69 73 74 73 22 2c 20 20 69 6e 66 6f 5f 65 78 69 ists", info_exi
4f70: 73 74 73 5f 63 6f 6d 6d 61 6e 64 20 7d 2c 0a 20 sts_command },.
4f80: 20 20 20 7b 20 30 2c 20 30 20 7d 0a 20 20 7d 3b { 0, 0 }. };
4f90: 0a 20 20 72 65 74 75 72 6e 20 54 68 5f 43 61 6c . return Th_Cal
4fa0: 6c 53 75 62 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 lSubCommand(inte
4fb0: 72 70 2c 20 63 74 78 2c 20 61 72 67 63 2c 20 61 rp, ctx, argc, a
4fc0: 72 67 76 2c 20 61 72 67 6c 2c 20 61 53 75 62 29 rgv, argl, aSub)
4fd0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 76 65 ;.}../*.** Conve
4fe0: 72 74 20 74 68 65 20 73 63 72 69 70 74 20 6c 65 rt the script le
4ff0: 76 65 6c 20 66 72 61 6d 65 20 73 70 65 63 69 66 vel frame specif
5000: 69 63 61 74 69 6f 6e 20 28 75 73 65 64 20 62 79 ication (used by
5010: 20 74 68 65 20 63 6f 6d 6d 61 6e 64 73 20 0a 2a the commands .*
5020: 2a 20 5b 75 70 6c 65 76 65 6c 5d 20 61 6e 64 20 * [uplevel] and
5030: 5b 75 70 76 61 72 5d 29 20 69 6e 20 28 7a 46 72 [upvar]) in (zFr
5040: 61 6d 65 2c 20 6e 46 72 61 6d 65 29 20 74 6f 20 ame, nFrame) to
5050: 61 6e 20 69 6e 74 65 67 65 72 20 66 72 61 6d 65 an integer frame
5060: 20 61 73 20 0a 2a 2a 20 75 73 65 64 20 62 79 20 as .** used by
5070: 54 68 5f 4c 69 6e 6b 56 61 72 28 29 20 61 6e 64 Th_LinkVar() and
5080: 20 54 68 5f 45 76 61 6c 28 29 2e 20 49 66 20 73 Th_Eval(). If s
5090: 75 63 63 65 73 73 66 75 6c 2c 20 77 72 69 74 65 uccessful, write
50a0: 20 74 68 65 20 69 6e 74 65 67 65 72 0a 2a 2a 20 the integer.**
50b0: 66 72 61 6d 65 20 6c 65 76 65 6c 20 74 6f 20 2a frame level to *
50c0: 70 69 46 72 61 6d 65 20 61 6e 64 20 72 65 74 75 piFrame and retu
50d0: 72 6e 20 54 48 5f 4f 4b 2e 20 4f 74 68 65 72 77 rn TH_OK. Otherw
50e0: 69 73 65 2c 20 72 65 74 75 72 6e 20 54 48 5f 45 ise, return TH_E
50f0: 52 52 4f 52 0a 2a 2a 20 61 6e 64 20 6c 65 61 76 RROR.** and leav
5100: 65 20 61 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 e an error messa
5110: 67 65 20 69 6e 20 74 68 65 20 69 6e 74 65 72 70 ge in the interp
5120: 72 65 74 65 72 20 72 65 73 75 6c 74 2e 0a 2a 2f reter result..*/
5130: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 68 54 6f .static int thTo
5140: 46 72 61 6d 65 28 0a 20 20 54 68 5f 49 6e 74 65 Frame(. Th_Inte
5150: 72 70 20 2a 69 6e 74 65 72 70 2c 20 0a 20 20 63 rp *interp, . c
5160: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 72 61 6d onst char *zFram
5170: 65 2c 20 0a 20 20 69 6e 74 20 6e 46 72 61 6d 65 e, . int nFrame
5180: 2c 20 0a 20 20 69 6e 74 20 2a 70 69 46 72 61 6d , . int *piFram
5190: 65 0a 29 7b 0a 20 20 69 6e 74 20 69 46 72 61 6d e.){. int iFram
51a0: 65 3b 0a 20 20 69 66 28 20 74 68 5f 69 73 64 69 e;. if( th_isdi
51b0: 67 69 74 28 7a 46 72 61 6d 65 5b 30 5d 29 20 29 git(zFrame[0]) )
51c0: 7b 0a 20 20 20 20 69 6e 74 20 72 63 20 3d 20 54 {. int rc = T
51d0: 68 5f 54 6f 49 6e 74 28 69 6e 74 65 72 70 2c 20 h_ToInt(interp,
51e0: 7a 46 72 61 6d 65 2c 20 6e 46 72 61 6d 65 2c 20 zFrame, nFrame,
51f0: 26 69 46 72 61 6d 65 29 3b 0a 20 20 20 20 69 66 &iFrame);. if
5200: 28 20 72 63 21 3d 54 48 5f 4f 4b 20 29 20 72 65 ( rc!=TH_OK ) re
5210: 74 75 72 6e 20 72 63 3b 0a 20 20 20 20 69 46 72 turn rc;. iFr
5220: 61 6d 65 20 3d 20 69 46 72 61 6d 65 20 2a 20 2d ame = iFrame * -
5230: 31 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 7a 1;. }else if( z
5240: 46 72 61 6d 65 5b 30 5d 3d 3d 27 23 27 20 29 7b Frame[0]=='#' ){
5250: 0a 20 20 20 20 69 6e 74 20 72 63 20 3d 20 54 68 . int rc = Th
5260: 5f 54 6f 49 6e 74 28 69 6e 74 65 72 70 2c 20 26 _ToInt(interp, &
5270: 7a 46 72 61 6d 65 5b 31 5d 2c 20 6e 46 72 61 6d zFrame[1], nFram
5280: 65 2d 31 2c 20 26 69 46 72 61 6d 65 29 3b 0a 20 e-1, &iFrame);.
5290: 20 20 20 69 66 28 20 72 63 21 3d 54 48 5f 4f 4b if( rc!=TH_OK
52a0: 20 29 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 ) return rc;.
52b0: 20 20 69 46 72 61 6d 65 20 3d 20 69 46 72 61 6d iFrame = iFram
52c0: 65 20 2b 20 31 3b 0a 20 20 7d 65 6c 73 65 7b 0a e + 1;. }else{.
52d0: 20 20 20 20 72 65 74 75 72 6e 20 54 48 5f 45 52 return TH_ER
52e0: 52 4f 52 3b 0a 20 20 7d 0a 20 20 2a 70 69 46 72 ROR;. }. *piFr
52f0: 61 6d 65 20 3d 20 69 46 72 61 6d 65 3b 0a 20 20 ame = iFrame;.
5300: 72 65 74 75 72 6e 20 54 48 5f 4f 4b 3b 0a 7d 0a return TH_OK;.}.
5310: 0a 2f 2a 0a 2a 2a 20 54 48 20 53 79 6e 74 61 78 ./*.** TH Syntax
5320: 3a 0a 2a 2a 0a 2a 2a 20 20 20 75 70 6c 65 76 65 :.**.** upleve
5330: 6c 20 3f 4c 45 56 45 4c 3f 20 53 43 52 49 50 54 l ?LEVEL? SCRIPT
5340: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 75 .*/.static int u
5350: 70 6c 65 76 65 6c 5f 63 6f 6d 6d 61 6e 64 28 0a plevel_command(.
5360: 20 20 54 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Th_Interp *int
5370: 65 72 70 2c 20 0a 20 20 76 6f 69 64 20 2a 63 74 erp, . void *ct
5380: 78 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 x,. int argc,.
5390: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 const char **ar
53a0: 67 76 2c 0a 20 20 69 6e 74 20 2a 61 72 67 6c 0a gv,. int *argl.
53b0: 29 7b 0a 20 20 69 6e 74 20 69 46 72 61 6d 65 20 ){. int iFrame
53c0: 3d 20 2d 31 3b 0a 0a 20 20 69 66 28 20 61 72 67 = -1;.. if( arg
53d0: 63 21 3d 32 20 26 26 20 61 72 67 63 21 3d 33 20 c!=2 && argc!=3
53e0: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 68 ){. return Th
53f0: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
5400: 74 65 72 70 2c 20 22 75 70 6c 65 76 65 6c 20 3f terp, "uplevel ?
5410: 6c 65 76 65 6c 3f 20 73 63 72 69 70 74 2e 2e 2e level? script...
5420: 22 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 61 72 ");. }. if( ar
5430: 67 63 3d 3d 33 20 26 26 20 54 48 5f 4f 4b 21 3d gc==3 && TH_OK!=
5440: 74 68 54 6f 46 72 61 6d 65 28 69 6e 74 65 72 70 thToFrame(interp
5450: 2c 20 61 72 67 76 5b 31 5d 2c 20 61 72 67 6c 5b , argv[1], argl[
5460: 31 5d 2c 20 26 69 46 72 61 6d 65 29 20 29 7b 0a 1], &iFrame) ){.
5470: 20 20 20 20 72 65 74 75 72 6e 20 54 48 5f 45 52 return TH_ER
5480: 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 ROR;. }. retur
5490: 6e 20 54 68 5f 45 76 61 6c 28 69 6e 74 65 72 70 n Th_Eval(interp
54a0: 2c 20 69 46 72 61 6d 65 2c 20 61 72 67 76 5b 61 , iFrame, argv[a
54b0: 72 67 63 2d 31 5d 2c 20 2d 31 29 3b 0a 7d 0a 0a rgc-1], -1);.}..
54c0: 2f 2a 0a 2a 2a 20 54 48 20 53 79 6e 74 61 78 3a /*.** TH Syntax:
54d0: 20 0a 2a 2a 0a 2a 2a 20 20 20 75 70 76 61 72 20 .**.** upvar
54e0: 3f 46 52 41 4d 45 3f 20 4f 54 48 45 52 56 41 52 ?FRAME? OTHERVAR
54f0: 20 4d 59 56 41 52 20 3f 4f 54 48 45 52 56 41 52 MYVAR ?OTHERVAR
5500: 20 4d 59 56 41 52 20 2e 2e 2e 3f 0a 2a 2f 0a 73 MYVAR ...?.*/.s
5510: 74 61 74 69 63 20 69 6e 74 20 75 70 76 61 72 5f tatic int upvar_
5520: 63 6f 6d 6d 61 6e 64 28 0a 20 20 54 68 5f 49 6e command(. Th_In
5530: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 0a 20 terp *interp, .
5540: 20 76 6f 69 64 20 2a 63 74 78 2c 20 0a 20 20 69 void *ctx, . i
5550: 6e 74 20 61 72 67 63 2c 20 0a 20 20 63 6f 6e 73 nt argc, . cons
5560: 74 20 63 68 61 72 20 2a 2a 61 72 67 76 2c 20 0a t char **argv, .
5570: 20 20 69 6e 74 20 2a 61 72 67 6c 0a 29 7b 0a 20 int *argl.){.
5580: 20 69 6e 74 20 69 56 61 72 20 3d 20 31 3b 0a 20 int iVar = 1;.
5590: 20 69 6e 74 20 69 46 72 61 6d 65 20 3d 20 2d 31 int iFrame = -1
55a0: 3b 0a 20 20 69 6e 74 20 72 63 20 3d 20 54 48 5f ;. int rc = TH_
55b0: 4f 4b 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 OK;. int i;..
55c0: 69 66 28 20 54 48 5f 4f 4b 3d 3d 74 68 54 6f 46 if( TH_OK==thToF
55d0: 72 61 6d 65 28 30 2c 20 61 72 67 76 5b 31 5d 2c rame(0, argv[1],
55e0: 20 61 72 67 6c 5b 31 5d 2c 20 26 69 46 72 61 6d argl[1], &iFram
55f0: 65 29 20 29 7b 0a 20 20 20 20 69 56 61 72 2b 2b e) ){. iVar++
5600: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 61 72 67 63 ;. }. if( argc
5610: 3d 3d 69 56 61 72 20 7c 7c 20 28 61 72 67 63 2d ==iVar || (argc-
5620: 69 56 61 72 29 25 32 20 29 7b 0a 20 20 20 20 72 iVar)%2 ){. r
5630: 65 74 75 72 6e 20 54 68 5f 57 72 6f 6e 67 4e 75 eturn Th_WrongNu
5640: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 0a 20 mArgs(interp, .
5650: 20 20 20 20 20 20 20 22 75 70 76 61 72 20 66 72 "upvar fr
5660: 61 6d 65 20 6f 74 68 65 72 76 61 72 20 6d 79 76 ame othervar myv
5670: 61 72 20 3f 6f 74 68 65 72 76 61 72 20 6d 79 76 ar ?othervar myv
5680: 61 72 2e 2e 2e 3f 22 29 3b 0a 20 20 7d 0a 20 20 ar...?");. }.
5690: 66 6f 72 28 69 3d 69 56 61 72 3b 20 72 63 3d 3d for(i=iVar; rc==
56a0: 54 48 5f 4f 4b 20 26 26 20 69 3c 61 72 67 63 3b TH_OK && i<argc;
56b0: 20 69 3d 69 2b 32 29 7b 0a 20 20 20 20 72 63 20 i=i+2){. rc
56c0: 3d 20 54 68 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 = Th_LinkVar(int
56d0: 65 72 70 2c 20 61 72 67 76 5b 69 2b 31 5d 2c 20 erp, argv[i+1],
56e0: 61 72 67 6c 5b 69 2b 31 5d 2c 20 69 46 72 61 6d argl[i+1], iFram
56f0: 65 2c 20 61 72 67 76 5b 69 5d 2c 20 61 72 67 6c e, argv[i], argl
5700: 5b 69 5d 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 [i]);. }. retu
5710: 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 rn rc;.}../*.**
5720: 54 48 20 53 79 6e 74 61 78 3a 20 0a 2a 2a 0a 2a TH Syntax: .**.*
5730: 2a 20 20 20 62 72 65 61 6b 70 6f 69 6e 74 20 41 * breakpoint A
5740: 52 47 53 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 63 RGS.**.** This c
5750: 6f 6d 6d 61 6e 64 20 64 6f 65 73 20 6e 6f 74 68 ommand does noth
5760: 69 6e 67 20 61 74 20 61 6c 6c 2e 20 49 74 73 20 ing at all. Its
5770: 70 75 72 70 6f 73 65 20 69 6e 20 6c 69 66 65 20 purpose in life
5780: 69 73 20 74 6f 20 73 65 72 76 65 0a 2a 2a 20 61 is to serve.** a
5790: 73 20 61 20 70 6f 69 6e 74 20 66 6f 72 20 73 65 s a point for se
57a0: 74 74 69 6e 67 20 62 72 65 61 6b 70 6f 69 6e 74 tting breakpoint
57b0: 73 20 69 6e 20 61 20 64 65 62 75 67 67 65 72 2e s in a debugger.
57c0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 62 .*/.static int b
57d0: 72 65 61 6b 70 6f 69 6e 74 5f 63 6f 6d 6d 61 6e reakpoint_comman
57e0: 64 28 0a 20 20 54 68 5f 49 6e 74 65 72 70 20 2a d(. Th_Interp *
57f0: 69 6e 74 65 72 70 2c 20 0a 20 20 76 6f 69 64 20 interp, . void
5800: 2a 63 74 78 2c 20 0a 20 20 69 6e 74 20 61 72 67 *ctx, . int arg
5810: 63 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 c, . const char
5820: 20 2a 2a 61 72 67 76 2c 20 0a 20 20 69 6e 74 20 **argv, . int
5830: 2a 61 72 67 6c 0a 29 7b 0a 20 20 69 6e 74 20 63 *argl.){. int c
5840: 6e 74 20 3d 20 30 3b 0a 20 20 63 6e 74 2b 2b 3b nt = 0;. cnt++;
5850: 0a 20 20 72 65 74 75 72 6e 20 54 48 5f 4f 4b 3b . return TH_OK;
5860: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 67 69 73 74 .}../*.** Regist
5870: 65 72 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 er the built-in
5880: 74 68 31 20 6c 61 6e 67 75 61 67 65 20 63 6f 6d th1 language com
5890: 6d 61 6e 64 73 20 77 69 74 68 20 69 6e 74 65 72 mands with inter
58a0: 70 72 65 74 65 72 20 69 6e 74 65 72 70 2e 0a 2a preter interp..*
58b0: 2a 20 55 73 75 61 6c 6c 79 20 74 68 69 73 20 69 * Usually this i
58c0: 73 20 63 61 6c 6c 65 64 20 73 6f 6f 6e 20 61 66 s called soon af
58d0: 74 65 72 20 69 6e 74 65 72 70 72 65 74 65 72 20 ter interpreter
58e0: 63 72 65 61 74 69 6f 6e 2e 0a 2a 2f 0a 69 6e 74 creation..*/.int
58f0: 20 74 68 5f 72 65 67 69 73 74 65 72 5f 6c 61 6e th_register_lan
5900: 67 75 61 67 65 28 54 68 5f 49 6e 74 65 72 70 20 guage(Th_Interp
5910: 2a 69 6e 74 65 72 70 29 7b 0a 20 20 2f 2a 20 41 *interp){. /* A
5920: 72 72 61 79 20 6f 66 20 62 75 69 6c 74 2d 69 6e rray of built-in
5930: 20 63 6f 6d 6d 61 6e 64 73 2e 20 2a 2f 0a 20 20 commands. */.
5940: 73 74 72 75 63 74 20 5f 43 6f 6d 6d 61 6e 64 20 struct _Command
5950: 7b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 {. const char
5960: 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 54 68 5f *zName;. Th_
5970: 43 6f 6d 6d 61 6e 64 50 72 6f 63 20 78 50 72 6f CommandProc xPro
5980: 63 3b 0a 20 20 20 20 76 6f 69 64 20 2a 70 43 6f c;. void *pCo
5990: 6e 74 65 78 74 3b 0a 20 20 7d 20 61 43 6f 6d 6d ntext;. } aComm
59a0: 61 6e 64 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 22 and[] = {. {"
59b0: 63 61 74 63 68 22 2c 20 20 20 20 63 61 74 63 68 catch", catch
59c0: 5f 63 6f 6d 6d 61 6e 64 2c 20 20 20 30 7d 2c 0a _command, 0},.
59d0: 20 20 20 20 7b 22 65 78 70 72 22 2c 20 20 20 20 {"expr",
59e0: 20 65 78 70 72 5f 63 6f 6d 6d 61 6e 64 2c 20 20 expr_command,
59f0: 20 20 30 7d 2c 0a 20 20 20 20 7b 22 66 6f 72 22 0},. {"for"
5a00: 2c 20 20 20 20 20 20 66 6f 72 5f 63 6f 6d 6d 61 , for_comma
5a10: 6e 64 2c 20 20 20 20 20 30 7d 2c 0a 20 20 20 20 nd, 0},.
5a20: 7b 22 69 66 22 2c 20 20 20 20 20 20 20 69 66 5f {"if", if_
5a30: 63 6f 6d 6d 61 6e 64 2c 20 20 20 20 20 20 30 7d command, 0}
5a40: 2c 0a 20 20 20 20 7b 22 69 6e 66 6f 22 2c 20 20 ,. {"info",
5a50: 20 20 20 69 6e 66 6f 5f 63 6f 6d 6d 61 6e 64 2c info_command,
5a60: 20 20 20 20 30 7d 2c 0a 20 20 20 20 7b 22 6c 69 0},. {"li
5a70: 6e 64 65 78 22 2c 20 20 20 6c 69 6e 64 65 78 5f ndex", lindex_
5a80: 63 6f 6d 6d 61 6e 64 2c 20 20 30 7d 2c 0a 20 20 command, 0},.
5a90: 20 20 7b 22 6c 69 73 74 22 2c 20 20 20 20 20 6c {"list", l
5aa0: 69 73 74 5f 63 6f 6d 6d 61 6e 64 2c 20 20 20 20 ist_command,
5ab0: 30 7d 2c 0a 20 20 20 20 7b 22 6c 6c 65 6e 67 74 0},. {"llengt
5ac0: 68 22 2c 20 20 6c 6c 65 6e 67 74 68 5f 63 6f 6d h", llength_com
5ad0: 6d 61 6e 64 2c 20 30 7d 2c 0a 20 20 20 20 7b 22 mand, 0},. {"
5ae0: 70 72 6f 63 22 2c 20 20 20 20 20 70 72 6f 63 5f proc", proc_
5af0: 63 6f 6d 6d 61 6e 64 2c 20 20 20 20 30 7d 2c 20 command, 0},
5b00: 0a 20 20 20 20 7b 22 72 65 6e 61 6d 65 22 2c 20 . {"rename",
5b10: 20 20 72 65 6e 61 6d 65 5f 63 6f 6d 6d 61 6e 64 rename_command
5b20: 2c 20 20 30 7d 2c 0a 20 20 20 20 7b 22 73 65 74 , 0},. {"set
5b30: 22 2c 20 20 20 20 20 20 73 65 74 5f 63 6f 6d 6d ", set_comm
5b40: 61 6e 64 2c 20 20 20 20 20 30 7d 2c 0a 20 20 20 and, 0},.
5b50: 20 7b 22 73 74 72 69 6e 67 22 2c 20 20 20 73 74 {"string", st
5b60: 72 69 6e 67 5f 63 6f 6d 6d 61 6e 64 2c 20 20 30 ring_command, 0
5b70: 7d 2c 0a 20 20 20 20 7b 22 75 6e 73 65 74 22 2c },. {"unset",
5b80: 20 20 20 20 75 6e 73 65 74 5f 63 6f 6d 6d 61 6e unset_comman
5b90: 64 2c 20 20 20 30 7d 2c 0a 20 20 20 20 7b 22 75 d, 0},. {"u
5ba0: 70 6c 65 76 65 6c 22 2c 20 20 75 70 6c 65 76 65 plevel", upleve
5bb0: 6c 5f 63 6f 6d 6d 61 6e 64 2c 20 30 7d 2c 0a 20 l_command, 0},.
5bc0: 20 20 20 7b 22 75 70 76 61 72 22 2c 20 20 20 20 {"upvar",
5bd0: 75 70 76 61 72 5f 63 6f 6d 6d 61 6e 64 2c 20 20 upvar_command,
5be0: 20 30 7d 2c 0a 0a 20 20 20 20 7b 22 62 72 65 61 0},.. {"brea
5bf0: 6b 70 6f 69 6e 74 22 2c 20 62 72 65 61 6b 70 6f kpoint", breakpo
5c00: 69 6e 74 5f 63 6f 6d 6d 61 6e 64 2c 20 30 7d 2c int_command, 0},
5c10: 0a 0a 20 20 20 20 7b 22 72 65 74 75 72 6e 22 2c .. {"return",
5c20: 20 20 20 72 65 74 75 72 6e 5f 63 6f 6d 6d 61 6e return_comman
5c30: 64 2c 20 30 7d 2c 0a 20 20 20 20 7b 22 62 72 65 d, 0},. {"bre
5c40: 61 6b 22 2c 20 20 20 20 73 69 6d 70 6c 65 5f 63 ak", simple_c
5c50: 6f 6d 6d 61 6e 64 2c 20 28 76 6f 69 64 20 2a 29 ommand, (void *)
5c60: 54 48 5f 42 52 45 41 4b 7d 2c 20 0a 20 20 20 20 TH_BREAK}, .
5c70: 7b 22 63 6f 6e 74 69 6e 75 65 22 2c 20 73 69 6d {"continue", sim
5c80: 70 6c 65 5f 63 6f 6d 6d 61 6e 64 2c 20 28 76 6f ple_command, (vo
5c90: 69 64 20 2a 29 54 48 5f 43 4f 4e 54 49 4e 55 45 id *)TH_CONTINUE
5ca0: 7d 2c 20 0a 20 20 20 20 7b 22 65 72 72 6f 72 22 }, . {"error"
5cb0: 2c 20 20 20 20 73 69 6d 70 6c 65 5f 63 6f 6d 6d , simple_comm
5cc0: 61 6e 64 2c 20 28 76 6f 69 64 20 2a 29 54 48 5f and, (void *)TH_
5cd0: 45 52 52 4f 52 7d 2c 20 0a 0a 20 20 20 20 7b 30 ERROR}, .. {0
5ce0: 2c 20 30 7d 0a 20 20 7d 3b 0a 20 20 69 6e 74 20 , 0}. };. int
5cf0: 69 3b 0a 0a 20 20 2f 2a 20 41 64 64 20 74 68 65 i;.. /* Add the
5d00: 20 6c 61 6e 67 75 61 67 65 20 63 6f 6d 6d 61 6e language comman
5d10: 64 73 2e 20 2a 2f 0a 20 20 66 6f 72 28 69 3d 30 ds. */. for(i=0
5d20: 3b 20 69 3c 28 73 69 7a 65 6f 66 28 61 43 6f 6d ; i<(sizeof(aCom
5d30: 6d 61 6e 64 29 2f 73 69 7a 65 6f 66 28 61 43 6f mand)/sizeof(aCo
5d40: 6d 6d 61 6e 64 5b 30 5d 29 29 3b 20 69 2b 2b 29 mmand[0])); i++)
5d50: 7b 0a 20 20 20 20 76 6f 69 64 20 2a 63 74 78 20 {. void *ctx
5d60: 3d 20 61 43 6f 6d 6d 61 6e 64 5b 69 5d 2e 70 43 = aCommand[i].pC
5d70: 6f 6e 74 65 78 74 3b 0a 20 20 20 20 54 68 5f 43 ontext;. Th_C
5d80: 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 reateCommand(int
5d90: 65 72 70 2c 20 61 43 6f 6d 6d 61 6e 64 5b 69 5d erp, aCommand[i]
5da0: 2e 7a 4e 61 6d 65 2c 20 61 43 6f 6d 6d 61 6e 64 .zName, aCommand
5db0: 5b 69 5d 2e 78 50 72 6f 63 2c 20 63 74 78 2c 20 [i].xProc, ctx,
5dc0: 30 29 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 0);. }.. retur
5dd0: 6e 20 54 48 5f 4f 4b 3b 0a 7d 0a n TH_OK;.}.