Artifact
c38e4bee4d230a7271117b2cb13273f26f6bb796:
Attachment "tclTest.diff" to
ticket [703709ffff]
added by
vincentdarley
2003-03-14 23:24:51.
0000: 49 6e 64 65 78 3a 20 74 63 6c 54 65 73 74 2e 63 Index: tclTest.c
0010: 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .===============
0020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0050: 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f ====.RCS file: /
0060: 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f cvsroot/tcl/tcl/
0070: 67 65 6e 65 72 69 63 2f 74 63 6c 54 65 73 74 2e generic/tclTest.
0080: 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 c,v.retrieving r
0090: 65 76 69 73 69 6f 6e 20 31 2e 36 34 0a 64 69 66 evision 1.64.dif
00a0: 66 20 2d 72 31 2e 36 34 20 74 63 6c 54 65 73 74 f -r1.64 tclTest
00b0: 2e 63 0a 33 33 34 32 63 33 33 34 32 0a 3c 20 09 .c.3342c3342.< .
00c0: 20 20 20 20 63 68 61 72 20 69 6e 66 6f 5b 54 43 char info[TC
00d0: 4c 5f 49 4e 54 45 47 45 52 5f 53 50 41 43 45 20 L_INTEGER_SPACE
00e0: 2a 20 32 5d 3b 0a 2d 2d 2d 0a 3e 20 09 20 20 20 * 2];.---.> .
00f0: 20 63 68 61 72 20 72 65 73 69 6e 66 6f 5b 54 43 char resinfo[TC
0100: 4c 5f 49 4e 54 45 47 45 52 5f 53 50 41 43 45 20 L_INTEGER_SPACE
0110: 2a 20 32 5d 3b 0a 33 33 34 36 2c 33 33 34 37 63 * 2];.3346,3347c
0120: 33 33 34 36 2c 33 33 36 31 0a 3c 20 09 20 20 20 3346,3361.< .
0130: 20 73 70 72 69 6e 74 66 28 69 6e 66 6f 2c 20 22 sprintf(info, "
0140: 25 64 20 25 64 22 2c 20 73 74 61 72 74 2c 20 65 %d %d", start, e
0150: 6e 64 2d 31 29 3b 0a 3c 20 09 20 20 20 20 76 61 nd-1);.< . va
0160: 6c 75 65 20 3d 20 54 63 6c 5f 53 65 74 56 61 72 lue = Tcl_SetVar
0170: 28 69 6e 74 65 72 70 2c 20 76 61 72 4e 61 6d 65 (interp, varName
0180: 2c 20 69 6e 66 6f 2c 20 30 29 3b 0a 2d 2d 2d 0a , info, 0);.---.
0190: 3e 20 09 20 20 20 20 73 70 72 69 6e 74 66 28 72 > . sprintf(r
01a0: 65 73 69 6e 66 6f 2c 20 22 25 64 20 25 64 22 2c esinfo, "%d %d",
01b0: 20 73 74 61 72 74 2c 20 65 6e 64 2d 31 29 3b 0a start, end-1);.
01c0: 3e 20 09 20 20 20 20 76 61 6c 75 65 20 3d 20 54 > . value = T
01d0: 63 6c 5f 53 65 74 56 61 72 28 69 6e 74 65 72 70 cl_SetVar(interp
01e0: 2c 20 76 61 72 4e 61 6d 65 2c 20 72 65 73 69 6e , varName, resin
01f0: 66 6f 2c 20 30 29 3b 0a 3e 20 09 20 20 20 20 69 fo, 0);.> . i
0200: 66 20 28 76 61 6c 75 65 20 3d 3d 20 4e 55 4c 4c f (value == NULL
0210: 29 20 7b 0a 3e 20 09 09 54 63 6c 5f 41 70 70 65 ) {.> ..Tcl_Appe
0220: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
0230: 20 22 63 6f 75 6c 64 6e 27 74 20 73 65 74 20 76 "couldn't set v
0240: 61 72 69 61 62 6c 65 20 5c 22 22 2c 0a 3e 20 09 ariable \"",.> .
0250: 09 09 76 61 72 4e 61 6d 65 2c 20 22 5c 22 22 2c ..varName, "\"",
0260: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
0270: 0a 3e 20 09 09 72 65 74 75 72 6e 20 54 43 4c 5f .> ..return TCL_
0280: 45 52 52 4f 52 3b 0a 3e 20 09 20 20 20 20 7d 0a ERROR;.> . }.
0290: 3e 20 09 7d 20 65 6c 73 65 20 69 66 20 28 63 66 > .} else if (cf
02a0: 6c 61 67 73 20 26 20 54 43 4c 5f 52 45 47 5f 43 lags & TCL_REG_C
02b0: 41 4e 4d 41 54 43 48 29 20 7b 0a 3e 20 09 20 20 ANMATCH) {.> .
02c0: 20 20 63 68 61 72 20 2a 76 61 72 4e 61 6d 65 3b char *varName;
02d0: 0a 3e 20 09 20 20 20 20 43 4f 4e 53 54 20 63 68 .> . CONST ch
02e0: 61 72 20 2a 76 61 6c 75 65 3b 0a 3e 20 09 20 20 ar *value;.> .
02f0: 20 20 63 68 61 72 20 72 65 73 69 6e 66 6f 5b 54 char resinfo[T
0300: 43 4c 5f 49 4e 54 45 47 45 52 5f 53 50 41 43 45 CL_INTEGER_SPACE
0310: 20 2a 20 32 5d 3b 0a 3e 20 0a 3e 20 09 20 20 20 * 2];.> .> .
0320: 20 54 63 6c 5f 52 65 67 45 78 70 47 65 74 49 6e Tcl_RegExpGetIn
0330: 66 6f 28 72 65 67 45 78 70 72 2c 20 26 69 6e 66 fo(regExpr, &inf
0340: 6f 29 3b 0a 3e 20 09 20 20 20 20 76 61 72 4e 61 o);.> . varNa
0350: 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 me = Tcl_GetStri
0360: 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a 3e 20 09 ng(objv[2]);.> .
0370: 20 20 20 20 73 70 72 69 6e 74 66 28 72 65 73 69 sprintf(resi
0380: 6e 66 6f 2c 20 22 25 64 22 2c 20 69 6e 66 6f 2e nfo, "%d", info.
0390: 65 78 74 65 6e 64 53 74 61 72 74 29 3b 0a 3e 20 extendStart);.>
03a0: 09 20 20 20 20 76 61 6c 75 65 20 3d 20 54 63 6c . value = Tcl
03b0: 5f 53 65 74 56 61 72 28 69 6e 74 65 72 70 2c 20 _SetVar(interp,
03c0: 76 61 72 4e 61 6d 65 2c 20 72 65 73 69 6e 66 6f varName, resinfo
03d0: 2c 20 30 29 3b 0a 33 34 36 35 61 33 34 38 30 2c , 0);.3465a3480,
03e0: 33 34 38 33 0a 3e 20 09 20 20 20 20 63 61 73 65 3483.> . case
03f0: 20 27 63 27 3a 20 7b 0a 3e 20 09 09 63 66 6c 61 'c': {.> ..cfla
0400: 67 73 20 7c 3d 20 54 43 4c 5f 52 45 47 5f 43 41 gs |= TCL_REG_CA
0410: 4e 4d 41 54 43 48 3b 0a 3e 20 09 09 62 72 65 61 NMATCH;.> ..brea
0420: 6b 3b 0a 3e 20 09 20 20 20 20 7d 0a k;.> . }.
