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 20 3d 20 2d 31 3b 0a 0a 20 20 69 66 28 20 61 s = -1;.. if( a
3b00: 72 67 63 21 3d 34 20 29 7b 0a 20 20 20 20 72 65 rgc!=4 ){. re
3b10: 74 75 72 6e 20 54 68 5f 57 72 6f 6e 67 4e 75 6d turn Th_WrongNum
3b20: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 22 73 74 Args(interp, "st
3b30: 72 69 6e 67 20 66 69 72 73 74 20 6e 65 65 64 6c ring first needl
3b40: 65 20 68 61 79 73 74 61 63 6b 22 29 3b 0a 20 20 e haystack");.
3b50: 7d 0a 0a 20 20 7a 4e 65 65 64 6c 65 20 3d 20 61 }.. zNeedle = a
3b60: 72 67 76 5b 32 5d 3b 0a 20 20 6e 4e 65 65 64 6c rgv[2];. nNeedl
3b70: 65 20 3d 20 61 72 67 6c 5b 32 5d 3b 0a 20 20 7a e = argl[2];. z
3b80: 48 61 79 73 74 61 63 6b 20 3d 20 61 72 67 76 5b Haystack = argv[
3b90: 33 5d 3b 0a 20 20 6e 48 61 79 73 74 61 63 6b 20 3];. nHaystack
3ba0: 3d 20 61 72 67 6c 5b 33 5d 3b 0a 0a 20 20 66 6f = argl[3];.. fo
3bb0: 72 28 69 3d 30 3b 20 69 3c 28 6e 48 61 79 73 74 r(i=0; i<(nHayst
3bc0: 61 63 6b 2d 6e 4e 65 65 64 6c 65 29 3b 20 69 2b ack-nNeedle); i+
3bd0: 2b 29 7b 0a 20 20 20 20 69 66 28 20 30 3d 3d 6d +){. if( 0==m
3be0: 65 6d 63 6d 70 28 7a 4e 65 65 64 6c 65 2c 20 26 emcmp(zNeedle, &
3bf0: 7a 48 61 79 73 74 61 63 6b 5b 69 5d 2c 20 6e 4e zHaystack[i], nN
3c00: 65 65 64 6c 65 29 20 29 7b 0a 20 20 20 20 20 20 eedle) ){.
3c10: 69 52 65 73 20 3d 20 69 3b 0a 20 20 20 20 20 20 iRes = i;.
3c20: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d break;. }. }
3c30: 0a 20 20 0a 20 20 72 65 74 75 72 6e 20 54 68 5f . . return Th_
3c40: 53 65 74 52 65 73 75 6c 74 49 6e 74 28 69 6e 74 SetResultInt(int
3c50: 65 72 70 2c 20 69 52 65 73 29 3b 0a 7d 0a 0a 2f erp, iRes);.}../
3c60: 2a 0a 2a 2a 20 54 48 20 53 79 6e 74 61 78 3a 0a *.** TH Syntax:.
3c70: 2a 2a 0a 2a 2a 20 20 20 73 74 72 69 6e 67 20 69 **.** string i
3c80: 73 20 43 4c 41 53 53 20 53 54 52 49 4e 47 0a 2a s CLASS STRING.*
3c90: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 74 72 /.static int str
3ca0: 69 6e 67 5f 69 73 5f 63 6f 6d 6d 61 6e 64 28 0a ing_is_command(.
3cb0: 20 20 54 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Th_Interp *int
3cc0: 65 72 70 2c 20 76 6f 69 64 20 2a 63 74 78 2c 20 erp, void *ctx,
3cd0: 69 6e 74 20 61 72 67 63 2c 20 63 6f 6e 73 74 20 int argc, const
3ce0: 63 68 61 72 20 2a 2a 61 72 67 76 2c 20 69 6e 74 char **argv, int
3cf0: 20 2a 61 72 67 6c 0a 29 7b 0a 20 20 69 6e 74 20 *argl.){. int
3d00: 69 3b 0a 20 20 69 6e 74 20 69 52 65 73 20 3d 20 i;. int iRes =
3d10: 31 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d 34 1;. if( argc!=4
3d20: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){. return T
3d30: 68 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 h_WrongNumArgs(i
3d40: 6e 74 65 72 70 2c 20 22 73 74 72 69 6e 67 20 69 nterp, "string i
3d50: 73 20 63 6c 61 73 73 20 73 74 72 69 6e 67 22 29 s class string")
3d60: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 61 72 67 6c ;. }. if( argl
3d70: 5b 32 5d 21 3d 35 20 7c 7c 20 30 21 3d 6d 65 6d [2]!=5 || 0!=mem
3d80: 63 6d 70 28 61 72 67 76 5b 32 5d 2c 20 22 61 6c cmp(argv[2], "al
3d90: 6e 75 6d 22 2c 20 35 29 20 29 7b 0a 20 20 20 20 num", 5) ){.
3da0: 54 68 5f 45 72 72 6f 72 4d 65 73 73 61 67 65 28 Th_ErrorMessage(
3db0: 69 6e 74 65 72 70 2c 20 22 45 78 70 65 63 74 65 interp, "Expecte
3dc0: 64 20 61 6c 6e 75 6d 2c 20 67 6f 74 3a 20 22 2c d alnum, got: ",
3dd0: 20 61 72 67 76 5b 32 5d 2c 20 61 72 67 6c 5b 32 argv[2], argl[2
3de0: 5d 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ]);. return T
3df0: 48 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 H_ERROR;. }..
3e00: 66 6f 72 28 69 3d 30 3b 20 69 3c 61 72 67 6c 5b for(i=0; i<argl[
3e10: 33 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 3]; i++){. if
3e20: 28 20 21 74 68 5f 69 73 61 6c 6e 75 6d 28 61 72 ( !th_isalnum(ar
3e30: 67 76 5b 33 5d 5b 69 5d 29 20 29 7b 0a 20 20 20 gv[3][i]) ){.
3e40: 20 20 20 69 52 65 73 20 3d 20 30 3b 0a 20 20 20 iRes = 0;.
3e50: 20 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e }. }.. return
3e60: 20 54 68 5f 53 65 74 52 65 73 75 6c 74 49 6e 74 Th_SetResultInt
3e70: 28 69 6e 74 65 72 70 2c 20 69 52 65 73 29 3b 0a (interp, iRes);.
3e80: 7d 0a 0a 2f 2a 0a 2a 2a 20 54 48 20 53 79 6e 74 }../*.** TH Synt
3e90: 61 78 3a 0a 2a 2a 0a 2a 2a 20 20 20 73 74 72 69 ax:.**.** stri
3ea0: 6e 67 20 6c 61 73 74 20 4e 45 45 44 4c 45 20 48 ng last NEEDLE H
3eb0: 41 59 53 54 41 43 4b 0a 2a 2f 0a 73 74 61 74 69 AYSTACK.*/.stati
3ec0: 63 20 69 6e 74 20 73 74 72 69 6e 67 5f 6c 61 73 c int string_las
3ed0: 74 5f 63 6f 6d 6d 61 6e 64 28 0a 20 20 54 68 5f t_command(. Th_
3ee0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
3ef0: 76 6f 69 64 20 2a 63 74 78 2c 20 69 6e 74 20 61 void *ctx, int a
3f00: 72 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 rgc, const char
3f10: 2a 2a 61 72 67 76 2c 20 69 6e 74 20 2a 61 72 67 **argv, int *arg
3f20: 6c 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 l.){. const cha
3f30: 72 20 2a 7a 4e 65 65 64 6c 65 3b 0a 20 20 69 6e r *zNeedle;. in
3f40: 74 20 6e 4e 65 65 64 6c 65 3b 0a 20 20 63 6f 6e t nNeedle;. con
3f50: 73 74 20 63 68 61 72 20 2a 7a 48 61 79 73 74 61 st char *zHaysta
3f60: 63 6b 3b 0a 20 20 69 6e 74 20 6e 48 61 79 73 74 ck;. int nHayst
3f70: 61 63 6b 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 ack;. int i;.
3f80: 69 6e 74 20 69 52 65 73 20 3d 20 2d 31 3b 0a 0a int iRes = -1;..
3f90: 20 20 69 66 28 20 61 72 67 63 21 3d 34 20 29 7b if( argc!=4 ){
3fa0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 68 5f 57 . return Th_W
3fb0: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
3fc0: 72 70 2c 20 22 73 74 72 69 6e 67 20 66 69 72 73 rp, "string firs
3fd0: 74 20 6e 65 65 64 6c 65 20 68 61 79 73 74 61 63 t needle haystac
3fe0: 6b 22 29 3b 0a 20 20 7d 0a 0a 20 20 7a 4e 65 65 k");. }.. zNee
3ff0: 64 6c 65 20 3d 20 61 72 67 76 5b 32 5d 3b 0a 20 dle = argv[2];.
4000: 20 6e 4e 65 65 64 6c 65 20 3d 20 61 72 67 6c 5b nNeedle = argl[
4010: 32 5d 3b 0a 20 20 7a 48 61 79 73 74 61 63 6b 20 2];. zHaystack
4020: 3d 20 61 72 67 76 5b 33 5d 3b 0a 20 20 6e 48 61 = argv[3];. nHa
4030: 79 73 74 61 63 6b 20 3d 20 61 72 67 6c 5b 33 5d ystack = argl[3]
4040: 3b 0a 0a 20 20 66 6f 72 28 69 3d 6e 48 61 79 73 ;.. for(i=nHays
4050: 74 61 63 6b 2d 6e 4e 65 65 64 6c 65 2d 31 3b 20 tack-nNeedle-1;
4060: 69 3e 3d 30 3b 20 69 2d 2d 29 7b 0a 20 20 20 20 i>=0; i--){.
4070: 69 66 28 20 30 3d 3d 6d 65 6d 63 6d 70 28 7a 4e if( 0==memcmp(zN
4080: 65 65 64 6c 65 2c 20 26 7a 48 61 79 73 74 61 63 eedle, &zHaystac
4090: 6b 5b 69 5d 2c 20 6e 4e 65 65 64 6c 65 29 20 29 k[i], nNeedle) )
40a0: 7b 0a 20 20 20 20 20 20 69 52 65 73 20 3d 20 69 {. iRes = i
40b0: 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 ;. break;.
40c0: 20 20 20 7d 0a 20 20 7d 0a 20 20 0a 20 20 72 65 }. }. . re
40d0: 74 75 72 6e 20 54 68 5f 53 65 74 52 65 73 75 6c turn Th_SetResul
40e0: 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 69 52 65 tInt(interp, iRe
40f0: 73 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 48 20 s);.}../*.** TH
4100: 53 79 6e 74 61 78 3a 0a 2a 2a 0a 2a 2a 20 20 20 Syntax:.**.**
4110: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 53 54 string length ST
4120: 52 49 4e 47 0a 2a 2f 0a 73 74 61 74 69 63 20 69 RING.*/.static i
4130: 6e 74 20 73 74 72 69 6e 67 5f 6c 65 6e 67 74 68 nt string_length
4140: 5f 63 6f 6d 6d 61 6e 64 28 0a 20 20 54 68 5f 49 _command(. Th_I
4150: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 76 nterp *interp, v
4160: 6f 69 64 20 2a 63 74 78 2c 20 69 6e 74 20 61 72 oid *ctx, int ar
4170: 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a gc, const char *
4180: 2a 61 72 67 76 2c 20 69 6e 74 20 2a 61 72 67 6c *argv, int *argl
4190: 0a 29 7b 0a 20 20 69 66 28 20 61 72 67 63 21 3d .){. if( argc!=
41a0: 33 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 3 ){. return
41b0: 54 68 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 Th_WrongNumArgs(
41c0: 69 6e 74 65 72 70 2c 20 22 73 74 72 69 6e 67 20 interp, "string
41d0: 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 22 29 3b length string");
41e0: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 68 . }. return Th
41f0: 5f 53 65 74 52 65 73 75 6c 74 49 6e 74 28 69 6e _SetResultInt(in
4200: 74 65 72 70 2c 20 61 72 67 6c 5b 32 5d 29 3b 0a terp, argl[2]);.
4210: 7d 0a 0a 2f 2a 0a 2a 2a 20 54 48 20 53 79 6e 74 }../*.** TH Synt
4220: 61 78 3a 0a 2a 2a 0a 2a 2a 20 20 20 73 74 72 69 ax:.**.** stri
4230: 6e 67 20 72 61 6e 67 65 20 53 54 52 49 4e 47 20 ng range STRING
4240: 46 49 52 53 54 20 4c 41 53 54 0a 2a 2f 0a 73 74 FIRST LAST.*/.st
4250: 61 74 69 63 20 69 6e 74 20 73 74 72 69 6e 67 5f atic int string_
4260: 72 61 6e 67 65 5f 63 6f 6d 6d 61 6e 64 28 0a 20 range_command(.
4270: 20 54 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Th_Interp *inte
4280: 72 70 2c 20 76 6f 69 64 20 2a 63 74 78 2c 20 69 rp, void *ctx, i
4290: 6e 74 20 61 72 67 63 2c 20 63 6f 6e 73 74 20 63 nt argc, const c
42a0: 68 61 72 20 2a 2a 61 72 67 76 2c 20 69 6e 74 20 har **argv, int
42b0: 2a 61 72 67 6c 0a 29 7b 0a 20 20 69 6e 74 20 69 *argl.){. int i
42c0: 53 74 61 72 74 3b 0a 20 20 69 6e 74 20 69 45 6e Start;. int iEn
42d0: 64 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 21 3d d;.. if( argc!=
42e0: 35 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 5 ){. return
42f0: 54 68 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 Th_WrongNumArgs(
4300: 69 6e 74 65 72 70 2c 20 22 73 74 72 69 6e 67 20 interp, "string
4310: 72 61 6e 67 65 20 73 74 72 69 6e 67 20 66 69 72 range string fir
4320: 73 74 20 6c 61 73 74 22 29 3b 0a 20 20 7d 0a 0a st last");. }..
4330: 20 20 69 66 28 20 61 72 67 6c 5b 34 5d 3d 3d 33 if( argl[4]==3
4340: 20 26 26 20 30 3d 3d 6d 65 6d 63 6d 70 28 22 65 && 0==memcmp("e
4350: 6e 64 22 2c 20 61 72 67 76 5b 34 5d 2c 20 33 29 nd", argv[4], 3)
4360: 20 29 7b 0a 20 20 20 20 69 45 6e 64 20 3d 20 61 ){. iEnd = a
4370: 72 67 6c 5b 32 5d 3b 0a 20 20 7d 65 6c 73 65 20 rgl[2];. }else
4380: 69 66 28 20 54 68 5f 54 6f 49 6e 74 28 69 6e 74 if( Th_ToInt(int
4390: 65 72 70 2c 20 61 72 67 76 5b 34 5d 2c 20 61 72 erp, argv[4], ar
43a0: 67 6c 5b 34 5d 2c 20 26 69 45 6e 64 29 20 29 7b gl[4], &iEnd) ){
43b0: 0a 20 20 20 20 54 68 5f 45 72 72 6f 72 4d 65 73 . Th_ErrorMes
43c0: 73 61 67 65 28 0a 20 20 20 20 20 20 20 20 69 6e sage(. in
43d0: 74 65 72 70 2c 20 22 45 78 70 65 63 74 65 64 20 terp, "Expected
43e0: 5c 22 65 6e 64 5c 22 20 6f 72 20 69 6e 74 65 67 \"end\" or integ
43f0: 65 72 2c 20 67 6f 74 3a 22 2c 20 61 72 67 76 5b er, got:", argv[
4400: 34 5d 2c 20 61 72 67 6c 5b 34 5d 29 3b 0a 20 20 4], argl[4]);.
4410: 20 20 72 65 74 75 72 6e 20 54 48 5f 45 52 52 4f return TH_ERRO
4420: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 68 5f R;. }. if( Th_
4430: 54 6f 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 ToInt(interp, ar
4440: 67 76 5b 33 5d 2c 20 61 72 67 6c 5b 33 5d 2c 20 gv[3], argl[3],
4450: 26 69 53 74 61 72 74 29 20 29 7b 0a 20 20 20 20 &iStart) ){.
4460: 72 65 74 75 72 6e 20 54 48 5f 45 52 52 4f 52 3b return TH_ERROR;
4470: 0a 20 20 7d 0a 0a 20 20 69 66 28 20 69 53 74 61 . }.. if( iSta
4480: 72 74 3c 30 20 29 20 69 53 74 61 72 74 20 3d 20 rt<0 ) iStart =
4490: 30 3b 0a 20 20 69 66 28 20 69 45 6e 64 3e 3d 61 0;. if( iEnd>=a
44a0: 72 67 6c 5b 32 5d 20 29 20 69 45 6e 64 20 3d 20 rgl[2] ) iEnd =
44b0: 61 72 67 6c 5b 32 5d 2d 31 3b 0a 20 20 69 66 28 argl[2]-1;. if(
44c0: 20 69 53 74 61 72 74 3e 69 45 6e 64 20 29 20 69 iStart>iEnd ) i
44d0: 45 6e 64 20 3d 20 69 53 74 61 72 74 2d 31 3b 0a End = iStart-1;.
44e0: 0a 20 20 72 65 74 75 72 6e 20 54 68 5f 53 65 74 . return Th_Set
44f0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 26 Result(interp, &
4500: 61 72 67 76 5b 32 5d 5b 69 53 74 61 72 74 5d 2c argv[2][iStart],
4510: 20 69 45 6e 64 2d 69 53 74 61 72 74 2b 31 29 3b iEnd-iStart+1);
4520: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 48 20 53 79 6e .}../*.** TH Syn
4530: 74 61 78 3a 0a 2a 2a 0a 2a 2a 20 20 20 73 74 72 tax:.**.** str
4540: 69 6e 67 20 72 65 70 65 61 74 20 53 54 52 49 4e ing repeat STRIN
4550: 47 20 43 4f 55 4e 54 0a 2a 2f 0a 73 74 61 74 69 G COUNT.*/.stati
4560: 63 20 69 6e 74 20 73 74 72 69 6e 67 5f 72 65 70 c int string_rep
4570: 65 61 74 5f 63 6f 6d 6d 61 6e 64 28 0a 20 20 54 eat_command(. T
4580: 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 h_Interp *interp
4590: 2c 20 76 6f 69 64 20 2a 63 74 78 2c 20 69 6e 74 , void *ctx, int
45a0: 20 61 72 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 argc, const cha
45b0: 72 20 2a 2a 61 72 67 76 2c 20 69 6e 74 20 2a 61 r **argv, int *a
45c0: 72 67 6c 0a 29 7b 0a 20 20 69 6e 74 20 6e 3b 0a rgl.){. int n;.
45d0: 20 20 69 6e 74 20 69 3b 0a 20 20 69 6e 74 20 6e int i;. int n
45e0: 42 79 74 65 3b 0a 20 20 63 68 61 72 20 2a 7a 42 Byte;. char *zB
45f0: 79 74 65 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 yte;.. if( argc
4600: 21 3d 34 20 29 7b 0a 20 20 20 20 72 65 74 75 72 !=4 ){. retur
4610: 6e 20 54 68 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 n Th_WrongNumArg
4620: 73 28 69 6e 74 65 72 70 2c 20 22 73 74 72 69 6e s(interp, "strin
4630: 67 20 72 65 70 65 61 74 20 73 74 72 69 6e 67 20 g repeat string
4640: 6e 22 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 n");. }. if( T
4650: 68 5f 54 6f 49 6e 74 28 69 6e 74 65 72 70 2c 20 h_ToInt(interp,
4660: 61 72 67 76 5b 33 5d 2c 20 61 72 67 6c 5b 33 5d argv[3], argl[3]
4670: 2c 20 26 6e 29 20 29 7b 0a 20 20 20 20 72 65 74 , &n) ){. ret
4680: 75 72 6e 20 54 48 5f 45 52 52 4f 52 3b 0a 20 20 urn TH_ERROR;.
4690: 7d 0a 0a 20 20 6e 42 79 74 65 20 3d 20 61 72 67 }.. nByte = arg
46a0: 6c 5b 32 5d 20 2a 20 6e 3b 0a 20 20 7a 42 79 74 l[2] * n;. zByt
46b0: 65 20 3d 20 54 68 5f 4d 61 6c 6c 6f 63 28 69 6e e = Th_Malloc(in
46c0: 74 65 72 70 2c 20 6e 42 79 74 65 2b 31 29 3b 0a terp, nByte+1);.
46d0: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 42 79 for(i=0; i<nBy
46e0: 74 65 3b 20 69 2b 3d 61 72 67 6c 5b 32 5d 29 7b te; i+=argl[2]){
46f0: 0a 20 20 20 20 6d 65 6d 63 70 79 28 26 7a 42 79 . memcpy(&zBy
4700: 74 65 5b 69 5d 2c 20 61 72 67 76 5b 32 5d 2c 20 te[i], argv[2],
4710: 61 72 67 6c 5b 32 5d 29 3b 0a 20 20 7d 0a 0a 20 argl[2]);. }..
4720: 20 54 68 5f 53 65 74 52 65 73 75 6c 74 28 69 6e Th_SetResult(in
4730: 74 65 72 70 2c 20 7a 42 79 74 65 2c 20 6e 42 79 terp, zByte, nBy
4740: 74 65 29 3b 0a 20 20 54 68 5f 46 72 65 65 28 69 te);. Th_Free(i
4750: 6e 74 65 72 70 2c 20 7a 42 79 74 65 29 3b 0a 20 nterp, zByte);.
4760: 20 72 65 74 75 72 6e 20 54 48 5f 4f 4b 3b 0a 7d return TH_OK;.}
4770: 0a 0a 2f 2a 0a 2a 2a 20 54 48 20 53 79 6e 74 61 ../*.** TH Synta
4780: 78 3a 0a 2a 2a 0a 2a 2a 20 20 20 69 6e 66 6f 20 x:.**.** info
4790: 65 78 69 73 74 73 20 56 41 52 0a 2a 2f 0a 73 74 exists VAR.*/.st
47a0: 61 74 69 63 20 69 6e 74 20 69 6e 66 6f 5f 65 78 atic int info_ex
47b0: 69 73 74 73 5f 63 6f 6d 6d 61 6e 64 28 0a 20 20 ists_command(.
47c0: 54 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 Th_Interp *inter
47d0: 70 2c 20 76 6f 69 64 20 2a 63 74 78 2c 20 69 6e p, void *ctx, in
47e0: 74 20 61 72 67 63 2c 20 63 6f 6e 73 74 20 63 68 t argc, const ch
47f0: 61 72 20 2a 2a 61 72 67 76 2c 20 69 6e 74 20 2a ar **argv, int *
4800: 61 72 67 6c 0a 29 7b 0a 20 20 69 6e 74 20 72 63 argl.){. int rc
4810: 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 21 3d 33 ;.. if( argc!=3
4820: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ){. return T
4830: 68 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 h_WrongNumArgs(i
4840: 6e 74 65 72 70 2c 20 22 69 6e 66 6f 20 65 78 69 nterp, "info exi
4850: 73 74 73 20 76 61 72 22 29 3b 0a 20 20 7d 0a 20 sts var");. }.
4860: 20 72 63 20 3d 20 54 68 5f 47 65 74 56 61 72 28 rc = Th_GetVar(
4870: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 32 5d 2c interp, argv[2],
4880: 20 61 72 67 6c 5b 32 5d 29 3b 0a 20 20 54 68 5f argl[2]);. Th_
4890: 53 65 74 52 65 73 75 6c 74 49 6e 74 28 69 6e 74 SetResultInt(int
48a0: 65 72 70 2c 20 72 63 3f 30 3a 31 29 3b 0a 20 20 erp, rc?0:1);.
48b0: 72 65 74 75 72 6e 20 54 48 5f 4f 4b 3b 0a 7d 0a return TH_OK;.}.
48c0: 0a 2f 2a 0a 2a 2a 20 54 48 20 53 79 6e 74 61 78 ./*.** TH Syntax
48d0: 3a 0a 2a 2a 0a 2a 2a 20 20 20 75 6e 73 65 74 20 :.**.** unset
48e0: 56 41 52 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e VAR.*/.static in
48f0: 74 20 75 6e 73 65 74 5f 63 6f 6d 6d 61 6e 64 28 t unset_command(
4900: 0a 20 20 54 68 5f 49 6e 74 65 72 70 20 2a 69 6e . Th_Interp *in
4910: 74 65 72 70 2c 20 0a 20 20 76 6f 69 64 20 2a 63 terp, . void *c
4920: 74 78 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a tx,. int argc,.
4930: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 const char **a
4940: 72 67 76 2c 0a 20 20 69 6e 74 20 2a 61 72 67 6c rgv,. int *argl
4950: 0a 29 7b 0a 20 20 69 66 28 20 61 72 67 63 21 3d .){. if( argc!=
4960: 32 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 2 ){. return
4970: 54 68 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 Th_WrongNumArgs(
4980: 69 6e 74 65 72 70 2c 20 22 75 6e 73 65 74 20 76 interp, "unset v
4990: 61 72 22 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 ar");. }. retu
49a0: 72 6e 20 54 68 5f 55 6e 73 65 74 56 61 72 28 69 rn Th_UnsetVar(i
49b0: 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 nterp, argv[1],
49c0: 61 72 67 6c 5b 31 5d 29 3b 0a 7d 0a 0a 69 6e 74 argl[1]);.}..int
49d0: 20 54 68 5f 43 61 6c 6c 53 75 62 43 6f 6d 6d 61 Th_CallSubComma
49e0: 6e 64 28 0a 20 20 54 68 5f 49 6e 74 65 72 70 20 nd(. Th_Interp
49f0: 2a 69 6e 74 65 72 70 2c 20 0a 20 20 76 6f 69 64 *interp, . void
4a00: 20 2a 63 74 78 2c 0a 20 20 69 6e 74 20 61 72 67 *ctx,. int arg
4a10: 63 2c 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 c,. const char
4a20: 2a 2a 61 72 67 76 2c 0a 20 20 69 6e 74 20 2a 61 **argv,. int *a
4a30: 72 67 6c 2c 0a 20 20 54 68 5f 53 75 62 43 6f 6d rgl,. Th_SubCom
4a40: 6d 61 6e 64 20 2a 61 53 75 62 0a 29 7b 0a 20 20 mand *aSub.){.
4a50: 69 6e 74 20 69 3b 0a 20 20 66 6f 72 28 69 3d 30 int i;. for(i=0
4a60: 3b 20 61 53 75 62 5b 69 5d 2e 7a 4e 61 6d 65 3b ; aSub[i].zName;
4a70: 20 69 2b 2b 29 7b 0a 20 20 20 20 63 68 61 72 20 i++){. char
4a80: 2a 7a 4e 61 6d 65 20 3d 20 28 63 68 61 72 20 2a *zName = (char *
4a90: 29 61 53 75 62 5b 69 5d 2e 7a 4e 61 6d 65 3b 0a )aSub[i].zName;.
4aa0: 20 20 20 20 69 66 28 20 74 68 5f 73 74 72 6c 65 if( th_strle
4ab0: 6e 28 7a 4e 61 6d 65 29 3d 3d 61 72 67 6c 5b 31 n(zName)==argl[1
4ac0: 5d 20 26 26 20 30 3d 3d 6d 65 6d 63 6d 70 28 7a ] && 0==memcmp(z
4ad0: 4e 61 6d 65 2c 20 61 72 67 76 5b 31 5d 2c 20 61 Name, argv[1], a
4ae0: 72 67 6c 5b 31 5d 29 20 29 7b 0a 20 20 20 20 20 rgl[1]) ){.
4af0: 20 72 65 74 75 72 6e 20 61 53 75 62 5b 69 5d 2e return aSub[i].
4b00: 78 50 72 6f 63 28 69 6e 74 65 72 70 2c 20 63 74 xProc(interp, ct
4b10: 78 2c 20 61 72 67 63 2c 20 61 72 67 76 2c 20 61 x, argc, argv, a
4b20: 72 67 6c 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a rgl);. }. }.
4b30: 0a 20 20 54 68 5f 45 72 72 6f 72 4d 65 73 73 61 . Th_ErrorMessa
4b40: 67 65 28 69 6e 74 65 72 70 2c 20 22 45 78 70 65 ge(interp, "Expe
4b50: 63 74 65 64 20 73 75 62 2d 63 6f 6d 6d 61 6e 64 cted sub-command
4b60: 2c 20 67 6f 74 3a 22 2c 20 61 72 67 76 5b 31 5d , got:", argv[1]
4b70: 2c 20 61 72 67 6c 5b 31 5d 29 3b 0a 20 20 72 65 , argl[1]);. re
4b80: 74 75 72 6e 20 54 48 5f 45 52 52 4f 52 3b 0a 7d turn TH_ERROR;.}
4b90: 0a 0a 2f 2a 0a 2a 2a 20 54 48 20 53 79 6e 74 61 ../*.** TH Synta
4ba0: 78 3a 0a 2a 2a 0a 2a 2a 20 20 20 73 74 72 69 6e x:.**.** strin
4bb0: 67 20 63 6f 6d 70 61 72 65 20 53 54 52 31 20 53 g compare STR1 S
4bc0: 54 52 32 0a 2a 2a 20 20 20 73 74 72 69 6e 67 20 TR2.** string
4bd0: 66 69 72 73 74 20 20 20 4e 45 45 44 4c 45 20 48 first NEEDLE H
4be0: 41 59 53 54 41 43 4b 20 3f 53 54 41 52 54 49 4e AYSTACK ?STARTIN
4bf0: 44 45 58 3f 0a 2a 2a 20 20 20 73 74 72 69 6e 67 DEX?.** string
4c00: 20 69 73 20 20 20 20 20 20 43 4c 41 53 53 20 53 is CLASS S
4c10: 54 52 49 4e 47 0a 2a 2a 20 20 20 73 74 72 69 6e TRING.** strin
4c20: 67 20 6c 61 73 74 20 20 20 20 4e 45 45 44 4c 45 g last NEEDLE
4c30: 20 48 41 59 53 54 41 43 4b 20 3f 53 54 41 52 54 HAYSTACK ?START
4c40: 49 4e 44 45 58 3f 0a 2a 2a 20 20 20 73 74 72 69 INDEX?.** stri
4c50: 6e 67 20 6c 65 6e 67 74 68 20 20 53 54 52 49 4e ng length STRIN
4c60: 47 0a 2a 2a 20 20 20 73 74 72 69 6e 67 20 72 61 G.** string ra
4c70: 6e 67 65 20 20 20 53 54 52 49 4e 47 20 46 49 52 nge STRING FIR
4c80: 53 54 20 4c 41 53 54 0a 2a 2a 20 20 20 73 74 72 ST LAST.** str
4c90: 69 6e 67 20 72 65 70 65 61 74 20 20 53 54 52 49 ing repeat STRI
4ca0: 4e 47 20 43 4f 55 4e 54 0a 2a 2f 0a 73 74 61 74 NG COUNT.*/.stat
4cb0: 69 63 20 69 6e 74 20 73 74 72 69 6e 67 5f 63 6f ic int string_co
4cc0: 6d 6d 61 6e 64 28 0a 20 20 54 68 5f 49 6e 74 65 mmand(. Th_Inte
4cd0: 72 70 20 2a 69 6e 74 65 72 70 2c 20 0a 20 20 76 rp *interp, . v
4ce0: 6f 69 64 20 2a 63 74 78 2c 0a 20 20 69 6e 74 20 oid *ctx,. int
4cf0: 61 72 67 63 2c 0a 20 20 63 6f 6e 73 74 20 63 68 argc,. const ch
4d00: 61 72 20 2a 2a 61 72 67 76 2c 0a 20 20 69 6e 74 ar **argv,. int
4d10: 20 2a 61 72 67 6c 0a 29 7b 0a 20 20 54 68 5f 53 *argl.){. Th_S
4d20: 75 62 43 6f 6d 6d 61 6e 64 20 61 53 75 62 5b 5d ubCommand aSub[]
4d30: 20 3d 20 7b 0a 20 20 20 20 7b 20 22 63 6f 6d 70 = {. { "comp
4d40: 61 72 65 22 2c 20 73 74 72 69 6e 67 5f 63 6f 6d are", string_com
4d50: 70 61 72 65 5f 63 6f 6d 6d 61 6e 64 20 7d 2c 0a pare_command },.
4d60: 20 20 20 20 7b 20 22 66 69 72 73 74 22 2c 20 20 { "first",
4d70: 20 73 74 72 69 6e 67 5f 66 69 72 73 74 5f 63 6f string_first_co
4d80: 6d 6d 61 6e 64 20 7d 2c 0a 20 20 20 20 7b 20 22 mmand },. { "
4d90: 69 73 22 2c 20 20 20 20 20 20 73 74 72 69 6e 67 is", string
4da0: 5f 69 73 5f 63 6f 6d 6d 61 6e 64 20 7d 2c 0a 20 _is_command },.
4db0: 20 20 20 7b 20 22 6c 61 73 74 22 2c 20 20 20 20 { "last",
4dc0: 73 74 72 69 6e 67 5f 6c 61 73 74 5f 63 6f 6d 6d string_last_comm
4dd0: 61 6e 64 20 7d 2c 0a 20 20 20 20 7b 20 22 6c 65 and },. { "le
4de0: 6e 67 74 68 22 2c 20 20 73 74 72 69 6e 67 5f 6c ngth", string_l
4df0: 65 6e 67 74 68 5f 63 6f 6d 6d 61 6e 64 20 7d 2c ength_command },
4e00: 0a 20 20 20 20 7b 20 22 72 61 6e 67 65 22 2c 20 . { "range",
4e10: 20 20 73 74 72 69 6e 67 5f 72 61 6e 67 65 5f 63 string_range_c
4e20: 6f 6d 6d 61 6e 64 20 7d 2c 0a 20 20 20 20 7b 20 ommand },. {
4e30: 22 72 65 70 65 61 74 22 2c 20 20 73 74 72 69 6e "repeat", strin
4e40: 67 5f 72 65 70 65 61 74 5f 63 6f 6d 6d 61 6e 64 g_repeat_command
4e50: 20 7d 2c 0a 20 20 20 20 7b 20 30 2c 20 30 20 7d },. { 0, 0 }
4e60: 0a 20 20 7d 3b 0a 20 20 72 65 74 75 72 6e 20 54 . };. return T
4e70: 68 5f 43 61 6c 6c 53 75 62 43 6f 6d 6d 61 6e 64 h_CallSubCommand
4e80: 28 69 6e 74 65 72 70 2c 20 63 74 78 2c 20 61 72 (interp, ctx, ar
4e90: 67 63 2c 20 61 72 67 76 2c 20 61 72 67 6c 2c 20 gc, argv, argl,
4ea0: 61 53 75 62 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 aSub);.}../*.**
4eb0: 54 48 20 53 79 6e 74 61 78 3a 0a 2a 2a 0a 2a 2a TH Syntax:.**.**
4ec0: 20 20 20 69 6e 66 6f 20 65 78 69 73 74 73 20 56 info exists V
4ed0: 41 52 4e 41 4d 45 0a 2a 2f 0a 73 74 61 74 69 63 ARNAME.*/.static
4ee0: 20 69 6e 74 20 69 6e 66 6f 5f 63 6f 6d 6d 61 6e int info_comman
4ef0: 64 28 0a 20 20 54 68 5f 49 6e 74 65 72 70 20 2a d(. Th_Interp *
4f00: 69 6e 74 65 72 70 2c 20 0a 20 20 76 6f 69 64 20 interp, . void
4f10: 2a 63 74 78 2c 0a 20 20 69 6e 74 20 61 72 67 63 *ctx,. int argc
4f20: 2c 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a ,. const char *
4f30: 2a 61 72 67 76 2c 0a 20 20 69 6e 74 20 2a 61 72 *argv,. int *ar
4f40: 67 6c 0a 29 7b 0a 20 20 54 68 5f 53 75 62 43 6f gl.){. Th_SubCo
4f50: 6d 6d 61 6e 64 20 61 53 75 62 5b 5d 20 3d 20 7b mmand aSub[] = {
4f60: 0a 20 20 20 20 7b 20 22 65 78 69 73 74 73 22 2c . { "exists",
4f70: 20 20 69 6e 66 6f 5f 65 78 69 73 74 73 5f 63 6f info_exists_co
4f80: 6d 6d 61 6e 64 20 7d 2c 0a 20 20 20 20 7b 20 30 mmand },. { 0
4f90: 2c 20 30 20 7d 0a 20 20 7d 3b 0a 20 20 72 65 74 , 0 }. };. ret
4fa0: 75 72 6e 20 54 68 5f 43 61 6c 6c 53 75 62 43 6f urn Th_CallSubCo
4fb0: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 63 74 mmand(interp, ct
4fc0: 78 2c 20 61 72 67 63 2c 20 61 72 67 76 2c 20 61 x, argc, argv, a
4fd0: 72 67 6c 2c 20 61 53 75 62 29 3b 0a 7d 0a 0a 2f rgl, aSub);.}../
4fe0: 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74 20 74 68 65 *.** Convert the
4ff0: 20 73 63 72 69 70 74 20 6c 65 76 65 6c 20 66 72 script level fr
5000: 61 6d 65 20 73 70 65 63 69 66 69 63 61 74 69 6f ame specificatio
5010: 6e 20 28 75 73 65 64 20 62 79 20 74 68 65 20 63 n (used by the c
5020: 6f 6d 6d 61 6e 64 73 20 0a 2a 2a 20 5b 75 70 6c ommands .** [upl
5030: 65 76 65 6c 5d 20 61 6e 64 20 5b 75 70 76 61 72 evel] and [upvar
5040: 5d 29 20 69 6e 20 28 7a 46 72 61 6d 65 2c 20 6e ]) in (zFrame, n
5050: 46 72 61 6d 65 29 20 74 6f 20 61 6e 20 69 6e 74 Frame) to an int
5060: 65 67 65 72 20 66 72 61 6d 65 20 61 73 20 0a 2a eger frame as .*
5070: 2a 20 75 73 65 64 20 62 79 20 54 68 5f 4c 69 6e * used by Th_Lin
5080: 6b 56 61 72 28 29 20 61 6e 64 20 54 68 5f 45 76 kVar() and Th_Ev
5090: 61 6c 28 29 2e 20 49 66 20 73 75 63 63 65 73 73 al(). If success
50a0: 66 75 6c 2c 20 77 72 69 74 65 20 74 68 65 20 69 ful, write the i
50b0: 6e 74 65 67 65 72 0a 2a 2a 20 66 72 61 6d 65 20 nteger.** frame
50c0: 6c 65 76 65 6c 20 74 6f 20 2a 70 69 46 72 61 6d level to *piFram
50d0: 65 20 61 6e 64 20 72 65 74 75 72 6e 20 54 48 5f e and return TH_
50e0: 4f 4b 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 72 OK. Otherwise, r
50f0: 65 74 75 72 6e 20 54 48 5f 45 52 52 4f 52 0a 2a eturn TH_ERROR.*
5100: 2a 20 61 6e 64 20 6c 65 61 76 65 20 61 6e 20 65 * and leave an e
5110: 72 72 6f 72 20 6d 65 73 73 61 67 65 20 69 6e 20 rror message in
5120: 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 20 the interpreter
5130: 72 65 73 75 6c 74 2e 0a 2a 2f 0a 73 74 61 74 69 result..*/.stati
5140: 63 20 69 6e 74 20 74 68 54 6f 46 72 61 6d 65 28 c int thToFrame(
5150: 0a 20 20 54 68 5f 49 6e 74 65 72 70 20 2a 69 6e . Th_Interp *in
5160: 74 65 72 70 2c 20 0a 20 20 63 6f 6e 73 74 20 63 terp, . const c
5170: 68 61 72 20 2a 7a 46 72 61 6d 65 2c 20 0a 20 20 har *zFrame, .
5180: 69 6e 74 20 6e 46 72 61 6d 65 2c 20 0a 20 20 69 int nFrame, . i
5190: 6e 74 20 2a 70 69 46 72 61 6d 65 0a 29 7b 0a 20 nt *piFrame.){.
51a0: 20 69 6e 74 20 69 46 72 61 6d 65 3b 0a 20 20 69 int iFrame;. i
51b0: 66 28 20 74 68 5f 69 73 64 69 67 69 74 28 7a 46 f( th_isdigit(zF
51c0: 72 61 6d 65 5b 30 5d 29 20 29 7b 0a 20 20 20 20 rame[0]) ){.
51d0: 69 6e 74 20 72 63 20 3d 20 54 68 5f 54 6f 49 6e int rc = Th_ToIn
51e0: 74 28 69 6e 74 65 72 70 2c 20 7a 46 72 61 6d 65 t(interp, zFrame
51f0: 2c 20 6e 46 72 61 6d 65 2c 20 26 69 46 72 61 6d , nFrame, &iFram
5200: 65 29 3b 0a 20 20 20 20 69 66 28 20 72 63 21 3d e);. if( rc!=
5210: 54 48 5f 4f 4b 20 29 20 72 65 74 75 72 6e 20 72 TH_OK ) return r
5220: 63 3b 0a 20 20 20 20 69 46 72 61 6d 65 20 3d 20 c;. iFrame =
5230: 69 46 72 61 6d 65 20 2a 20 2d 31 3b 0a 20 20 7d iFrame * -1;. }
5240: 65 6c 73 65 20 69 66 28 20 7a 46 72 61 6d 65 5b else if( zFrame[
5250: 30 5d 3d 3d 27 23 27 20 29 7b 0a 20 20 20 20 69 0]=='#' ){. i
5260: 6e 74 20 72 63 20 3d 20 54 68 5f 54 6f 49 6e 74 nt rc = Th_ToInt
5270: 28 69 6e 74 65 72 70 2c 20 26 7a 46 72 61 6d 65 (interp, &zFrame
5280: 5b 31 5d 2c 20 6e 46 72 61 6d 65 2d 31 2c 20 26 [1], nFrame-1, &
5290: 69 46 72 61 6d 65 29 3b 0a 20 20 20 20 69 66 28 iFrame);. if(
52a0: 20 72 63 21 3d 54 48 5f 4f 4b 20 29 20 72 65 74 rc!=TH_OK ) ret
52b0: 75 72 6e 20 72 63 3b 0a 20 20 20 20 69 46 72 61 urn rc;. iFra
52c0: 6d 65 20 3d 20 69 46 72 61 6d 65 20 2b 20 31 3b me = iFrame + 1;
52d0: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 72 65 . }else{. re
52e0: 74 75 72 6e 20 54 48 5f 45 52 52 4f 52 3b 0a 20 turn TH_ERROR;.
52f0: 20 7d 0a 20 20 2a 70 69 46 72 61 6d 65 20 3d 20 }. *piFrame =
5300: 69 46 72 61 6d 65 3b 0a 20 20 72 65 74 75 72 6e iFrame;. return
5310: 20 54 48 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a TH_OK;.}../*.**
5320: 20 54 48 20 53 79 6e 74 61 78 3a 0a 2a 2a 0a 2a TH Syntax:.**.*
5330: 2a 20 20 20 75 70 6c 65 76 65 6c 20 3f 4c 45 56 * uplevel ?LEV
5340: 45 4c 3f 20 53 43 52 49 50 54 0a 2a 2f 0a 73 74 EL? SCRIPT.*/.st
5350: 61 74 69 63 20 69 6e 74 20 75 70 6c 65 76 65 6c atic int uplevel
5360: 5f 63 6f 6d 6d 61 6e 64 28 0a 20 20 54 68 5f 49 _command(. Th_I
5370: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 0a nterp *interp, .
5380: 20 20 76 6f 69 64 20 2a 63 74 78 2c 0a 20 20 69 void *ctx,. i
5390: 6e 74 20 61 72 67 63 2c 0a 20 20 63 6f 6e 73 74 nt argc,. const
53a0: 20 63 68 61 72 20 2a 2a 61 72 67 76 2c 0a 20 20 char **argv,.
53b0: 69 6e 74 20 2a 61 72 67 6c 0a 29 7b 0a 20 20 69 int *argl.){. i
53c0: 6e 74 20 69 46 72 61 6d 65 20 3d 20 2d 31 3b 0a nt iFrame = -1;.
53d0: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 20 26 . if( argc!=2 &
53e0: 26 20 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 & argc!=3 ){.
53f0: 20 72 65 74 75 72 6e 20 54 68 5f 57 72 6f 6e 67 return Th_Wrong
5400: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
5410: 22 75 70 6c 65 76 65 6c 20 3f 6c 65 76 65 6c 3f "uplevel ?level?
5420: 20 73 63 72 69 70 74 2e 2e 2e 22 29 3b 0a 20 20 script...");.
5430: 7d 0a 20 20 69 66 28 20 61 72 67 63 3d 3d 33 20 }. if( argc==3
5440: 26 26 20 54 48 5f 4f 4b 21 3d 74 68 54 6f 46 72 && TH_OK!=thToFr
5450: 61 6d 65 28 69 6e 74 65 72 70 2c 20 61 72 67 76 ame(interp, argv
5460: 5b 31 5d 2c 20 61 72 67 6c 5b 31 5d 2c 20 26 69 [1], argl[1], &i
5470: 46 72 61 6d 65 29 20 29 7b 0a 20 20 20 20 72 65 Frame) ){. re
5480: 74 75 72 6e 20 54 48 5f 45 52 52 4f 52 3b 0a 20 turn TH_ERROR;.
5490: 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 68 5f 45 }. return Th_E
54a0: 76 61 6c 28 69 6e 74 65 72 70 2c 20 69 46 72 61 val(interp, iFra
54b0: 6d 65 2c 20 61 72 67 76 5b 61 72 67 63 2d 31 5d me, argv[argc-1]
54c0: 2c 20 2d 31 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 , -1);.}../*.**
54d0: 54 48 20 53 79 6e 74 61 78 3a 20 0a 2a 2a 0a 2a TH Syntax: .**.*
54e0: 2a 20 20 20 75 70 76 61 72 20 3f 46 52 41 4d 45 * upvar ?FRAME
54f0: 3f 20 4f 54 48 45 52 56 41 52 20 4d 59 56 41 52 ? OTHERVAR MYVAR
5500: 20 3f 4f 54 48 45 52 56 41 52 20 4d 59 56 41 52 ?OTHERVAR MYVAR
5510: 20 2e 2e 2e 3f 0a 2a 2f 0a 73 74 61 74 69 63 20 ...?.*/.static
5520: 69 6e 74 20 75 70 76 61 72 5f 63 6f 6d 6d 61 6e int upvar_comman
5530: 64 28 0a 20 20 54 68 5f 49 6e 74 65 72 70 20 2a d(. Th_Interp *
5540: 69 6e 74 65 72 70 2c 20 0a 20 20 76 6f 69 64 20 interp, . void
5550: 2a 63 74 78 2c 20 0a 20 20 69 6e 74 20 61 72 67 *ctx, . int arg
5560: 63 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 c, . const char
5570: 20 2a 2a 61 72 67 76 2c 20 0a 20 20 69 6e 74 20 **argv, . int
5580: 2a 61 72 67 6c 0a 29 7b 0a 20 20 69 6e 74 20 69 *argl.){. int i
5590: 56 61 72 20 3d 20 31 3b 0a 20 20 69 6e 74 20 69 Var = 1;. int i
55a0: 46 72 61 6d 65 20 3d 20 2d 31 3b 0a 20 20 69 6e Frame = -1;. in
55b0: 74 20 72 63 20 3d 20 54 48 5f 4f 4b 3b 0a 20 20 t rc = TH_OK;.
55c0: 69 6e 74 20 69 3b 0a 0a 20 20 69 66 28 20 54 48 int i;.. if( TH
55d0: 5f 4f 4b 3d 3d 74 68 54 6f 46 72 61 6d 65 28 30 _OK==thToFrame(0
55e0: 2c 20 61 72 67 76 5b 31 5d 2c 20 61 72 67 6c 5b , argv[1], argl[
55f0: 31 5d 2c 20 26 69 46 72 61 6d 65 29 20 29 7b 0a 1], &iFrame) ){.
5600: 20 20 20 20 69 56 61 72 2b 2b 3b 0a 20 20 7d 0a iVar++;. }.
5610: 20 20 69 66 28 20 61 72 67 63 3d 3d 69 56 61 72 if( argc==iVar
5620: 20 7c 7c 20 28 61 72 67 63 2d 69 56 61 72 29 25 || (argc-iVar)%
5630: 32 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 2 ){. return
5640: 54 68 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 Th_WrongNumArgs(
5650: 69 6e 74 65 72 70 2c 20 0a 20 20 20 20 20 20 20 interp, .
5660: 20 22 75 70 76 61 72 20 66 72 61 6d 65 20 6f 74 "upvar frame ot
5670: 68 65 72 76 61 72 20 6d 79 76 61 72 20 3f 6f 74 hervar myvar ?ot
5680: 68 65 72 76 61 72 20 6d 79 76 61 72 2e 2e 2e 3f hervar myvar...?
5690: 22 29 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d ");. }. for(i=
56a0: 69 56 61 72 3b 20 72 63 3d 3d 54 48 5f 4f 4b 20 iVar; rc==TH_OK
56b0: 26 26 20 69 3c 61 72 67 63 3b 20 69 3d 69 2b 32 && i<argc; i=i+2
56c0: 29 7b 0a 20 20 20 20 72 63 20 3d 20 54 68 5f 4c ){. rc = Th_L
56d0: 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 61 inkVar(interp, a
56e0: 72 67 76 5b 69 2b 31 5d 2c 20 61 72 67 6c 5b 69 rgv[i+1], argl[i
56f0: 2b 31 5d 2c 20 69 46 72 61 6d 65 2c 20 61 72 67 +1], iFrame, arg
5700: 76 5b 69 5d 2c 20 61 72 67 6c 5b 69 5d 29 3b 0a v[i], argl[i]);.
5710: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72 63 3b }. return rc;
5720: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 48 20 53 79 6e .}../*.** TH Syn
5730: 74 61 78 3a 20 0a 2a 2a 0a 2a 2a 20 20 20 62 72 tax: .**.** br
5740: 65 61 6b 70 6f 69 6e 74 20 41 52 47 53 0a 2a 2a eakpoint ARGS.**
5750: 0a 2a 2a 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 .** This command
5760: 20 64 6f 65 73 20 6e 6f 74 68 69 6e 67 20 61 74 does nothing at
5770: 20 61 6c 6c 2e 20 49 74 73 20 70 75 72 70 6f 73 all. Its purpos
5780: 65 20 69 6e 20 6c 69 66 65 20 69 73 20 74 6f 20 e in life is to
5790: 73 65 72 76 65 0a 2a 2a 20 61 73 20 61 20 70 6f serve.** as a po
57a0: 69 6e 74 20 66 6f 72 20 73 65 74 74 69 6e 67 20 int for setting
57b0: 62 72 65 61 6b 70 6f 69 6e 74 73 20 69 6e 20 61 breakpoints in a
57c0: 20 64 65 62 75 67 67 65 72 2e 0a 2a 2f 0a 73 74 debugger..*/.st
57d0: 61 74 69 63 20 69 6e 74 20 62 72 65 61 6b 70 6f atic int breakpo
57e0: 69 6e 74 5f 63 6f 6d 6d 61 6e 64 28 0a 20 20 54 int_command(. T
57f0: 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 h_Interp *interp
5800: 2c 20 0a 20 20 76 6f 69 64 20 2a 63 74 78 2c 20 , . void *ctx,
5810: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 0a 20 20 . int argc, .
5820: 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 61 72 67 const char **arg
5830: 76 2c 20 0a 20 20 69 6e 74 20 2a 61 72 67 6c 0a v, . int *argl.
5840: 29 7b 0a 20 20 69 6e 74 20 63 6e 74 20 3d 20 30 ){. int cnt = 0
5850: 3b 0a 20 20 63 6e 74 2b 2b 3b 0a 20 20 72 65 74 ;. cnt++;. ret
5860: 75 72 6e 20 54 48 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a urn TH_OK;.}../*
5870: 0a 2a 2a 20 52 65 67 69 73 74 65 72 20 74 68 65 .** Register the
5880: 20 62 75 69 6c 74 2d 69 6e 20 74 68 31 20 6c 61 built-in th1 la
5890: 6e 67 75 61 67 65 20 63 6f 6d 6d 61 6e 64 73 20 nguage commands
58a0: 77 69 74 68 20 69 6e 74 65 72 70 72 65 74 65 72 with interpreter
58b0: 20 69 6e 74 65 72 70 2e 0a 2a 2a 20 55 73 75 61 interp..** Usua
58c0: 6c 6c 79 20 74 68 69 73 20 69 73 20 63 61 6c 6c lly this is call
58d0: 65 64 20 73 6f 6f 6e 20 61 66 74 65 72 20 69 6e ed soon after in
58e0: 74 65 72 70 72 65 74 65 72 20 63 72 65 61 74 69 terpreter creati
58f0: 6f 6e 2e 0a 2a 2f 0a 69 6e 74 20 74 68 5f 72 65 on..*/.int th_re
5900: 67 69 73 74 65 72 5f 6c 61 6e 67 75 61 67 65 28 gister_language(
5910: 54 68 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 Th_Interp *inter
5920: 70 29 7b 0a 20 20 2f 2a 20 41 72 72 61 79 20 6f p){. /* Array o
5930: 66 20 62 75 69 6c 74 2d 69 6e 20 63 6f 6d 6d 61 f built-in comma
5940: 6e 64 73 2e 20 2a 2f 0a 20 20 73 74 72 75 63 74 nds. */. struct
5950: 20 5f 43 6f 6d 6d 61 6e 64 20 7b 0a 20 20 20 20 _Command {.
5960: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d const char *zNam
5970: 65 3b 0a 20 20 20 20 54 68 5f 43 6f 6d 6d 61 6e e;. Th_Comman
5980: 64 50 72 6f 63 20 78 50 72 6f 63 3b 0a 20 20 20 dProc xProc;.
5990: 20 76 6f 69 64 20 2a 70 43 6f 6e 74 65 78 74 3b void *pContext;
59a0: 0a 20 20 7d 20 61 43 6f 6d 6d 61 6e 64 5b 5d 20 . } aCommand[]
59b0: 3d 20 7b 0a 20 20 20 20 7b 22 63 61 74 63 68 22 = {. {"catch"
59c0: 2c 20 20 20 20 63 61 74 63 68 5f 63 6f 6d 6d 61 , catch_comma
59d0: 6e 64 2c 20 20 20 30 7d 2c 0a 20 20 20 20 7b 22 nd, 0},. {"
59e0: 65 78 70 72 22 2c 20 20 20 20 20 65 78 70 72 5f expr", expr_
59f0: 63 6f 6d 6d 61 6e 64 2c 20 20 20 20 30 7d 2c 0a command, 0},.
5a00: 20 20 20 20 7b 22 66 6f 72 22 2c 20 20 20 20 20 {"for",
5a10: 20 66 6f 72 5f 63 6f 6d 6d 61 6e 64 2c 20 20 20 for_command,
5a20: 20 20 30 7d 2c 0a 20 20 20 20 7b 22 69 66 22 2c 0},. {"if",
5a30: 20 20 20 20 20 20 20 69 66 5f 63 6f 6d 6d 61 6e if_comman
5a40: 64 2c 20 20 20 20 20 20 30 7d 2c 0a 20 20 20 20 d, 0},.
5a50: 7b 22 69 6e 66 6f 22 2c 20 20 20 20 20 69 6e 66 {"info", inf
5a60: 6f 5f 63 6f 6d 6d 61 6e 64 2c 20 20 20 20 30 7d o_command, 0}
5a70: 2c 0a 20 20 20 20 7b 22 6c 69 6e 64 65 78 22 2c ,. {"lindex",
5a80: 20 20 20 6c 69 6e 64 65 78 5f 63 6f 6d 6d 61 6e lindex_comman
5a90: 64 2c 20 20 30 7d 2c 0a 20 20 20 20 7b 22 6c 69 d, 0},. {"li
5aa0: 73 74 22 2c 20 20 20 20 20 6c 69 73 74 5f 63 6f st", list_co
5ab0: 6d 6d 61 6e 64 2c 20 20 20 20 30 7d 2c 0a 20 20 mmand, 0},.
5ac0: 20 20 7b 22 6c 6c 65 6e 67 74 68 22 2c 20 20 6c {"llength", l
5ad0: 6c 65 6e 67 74 68 5f 63 6f 6d 6d 61 6e 64 2c 20 length_command,
5ae0: 30 7d 2c 0a 20 20 20 20 7b 22 70 72 6f 63 22 2c 0},. {"proc",
5af0: 20 20 20 20 20 70 72 6f 63 5f 63 6f 6d 6d 61 6e proc_comman
5b00: 64 2c 20 20 20 20 30 7d 2c 20 0a 20 20 20 20 7b d, 0}, . {
5b10: 22 72 65 6e 61 6d 65 22 2c 20 20 20 72 65 6e 61 "rename", rena
5b20: 6d 65 5f 63 6f 6d 6d 61 6e 64 2c 20 20 30 7d 2c me_command, 0},
5b30: 0a 20 20 20 20 7b 22 73 65 74 22 2c 20 20 20 20 . {"set",
5b40: 20 20 73 65 74 5f 63 6f 6d 6d 61 6e 64 2c 20 20 set_command,
5b50: 20 20 20 30 7d 2c 0a 20 20 20 20 7b 22 73 74 72 0},. {"str
5b60: 69 6e 67 22 2c 20 20 20 73 74 72 69 6e 67 5f 63 ing", string_c
5b70: 6f 6d 6d 61 6e 64 2c 20 20 30 7d 2c 0a 20 20 20 ommand, 0},.
5b80: 20 7b 22 75 6e 73 65 74 22 2c 20 20 20 20 75 6e {"unset", un
5b90: 73 65 74 5f 63 6f 6d 6d 61 6e 64 2c 20 20 20 30 set_command, 0
5ba0: 7d 2c 0a 20 20 20 20 7b 22 75 70 6c 65 76 65 6c },. {"uplevel
5bb0: 22 2c 20 20 75 70 6c 65 76 65 6c 5f 63 6f 6d 6d ", uplevel_comm
5bc0: 61 6e 64 2c 20 30 7d 2c 0a 20 20 20 20 7b 22 75 and, 0},. {"u
5bd0: 70 76 61 72 22 2c 20 20 20 20 75 70 76 61 72 5f pvar", upvar_
5be0: 63 6f 6d 6d 61 6e 64 2c 20 20 20 30 7d 2c 0a 0a command, 0},..
5bf0: 20 20 20 20 7b 22 62 72 65 61 6b 70 6f 69 6e 74 {"breakpoint
5c00: 22 2c 20 62 72 65 61 6b 70 6f 69 6e 74 5f 63 6f ", breakpoint_co
5c10: 6d 6d 61 6e 64 2c 20 30 7d 2c 0a 0a 20 20 20 20 mmand, 0},..
5c20: 7b 22 72 65 74 75 72 6e 22 2c 20 20 20 72 65 74 {"return", ret
5c30: 75 72 6e 5f 63 6f 6d 6d 61 6e 64 2c 20 30 7d 2c urn_command, 0},
5c40: 0a 20 20 20 20 7b 22 62 72 65 61 6b 22 2c 20 20 . {"break",
5c50: 20 20 73 69 6d 70 6c 65 5f 63 6f 6d 6d 61 6e 64 simple_command
5c60: 2c 20 28 76 6f 69 64 20 2a 29 54 48 5f 42 52 45 , (void *)TH_BRE
5c70: 41 4b 7d 2c 20 0a 20 20 20 20 7b 22 63 6f 6e 74 AK}, . {"cont
5c80: 69 6e 75 65 22 2c 20 73 69 6d 70 6c 65 5f 63 6f inue", simple_co
5c90: 6d 6d 61 6e 64 2c 20 28 76 6f 69 64 20 2a 29 54 mmand, (void *)T
5ca0: 48 5f 43 4f 4e 54 49 4e 55 45 7d 2c 20 0a 20 20 H_CONTINUE}, .
5cb0: 20 20 7b 22 65 72 72 6f 72 22 2c 20 20 20 20 73 {"error", s
5cc0: 69 6d 70 6c 65 5f 63 6f 6d 6d 61 6e 64 2c 20 28 imple_command, (
5cd0: 76 6f 69 64 20 2a 29 54 48 5f 45 52 52 4f 52 7d void *)TH_ERROR}
5ce0: 2c 20 0a 0a 20 20 20 20 7b 30 2c 20 30 7d 0a 20 , .. {0, 0}.
5cf0: 20 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 };. int i;..
5d00: 2f 2a 20 41 64 64 20 74 68 65 20 6c 61 6e 67 75 /* Add the langu
5d10: 61 67 65 20 63 6f 6d 6d 61 6e 64 73 2e 20 2a 2f age commands. */
5d20: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 28 73 . for(i=0; i<(s
5d30: 69 7a 65 6f 66 28 61 43 6f 6d 6d 61 6e 64 29 2f izeof(aCommand)/
5d40: 73 69 7a 65 6f 66 28 61 43 6f 6d 6d 61 6e 64 5b sizeof(aCommand[
5d50: 30 5d 29 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 0])); i++){.
5d60: 76 6f 69 64 20 2a 63 74 78 20 3d 20 61 43 6f 6d void *ctx = aCom
5d70: 6d 61 6e 64 5b 69 5d 2e 70 43 6f 6e 74 65 78 74 mand[i].pContext
5d80: 3b 0a 20 20 20 20 54 68 5f 43 72 65 61 74 65 43 ;. Th_CreateC
5d90: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 61 ommand(interp, a
5da0: 43 6f 6d 6d 61 6e 64 5b 69 5d 2e 7a 4e 61 6d 65 Command[i].zName
5db0: 2c 20 61 43 6f 6d 6d 61 6e 64 5b 69 5d 2e 78 50 , aCommand[i].xP
5dc0: 72 6f 63 2c 20 63 74 78 2c 20 30 29 3b 0a 20 20 roc, ctx, 0);.
5dd0: 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 48 5f 4f }.. return TH_O
5de0: 4b 3b 0a 7d 0a K;.}.