Artifact
3caa747fcb5da4f37772aab09f570c9078e60fde:
Attachment "1775878.patch" to
ticket [1775878fff]
added by
dgp
2007-08-22 03:25:24.
0000: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 Index: generic/t
0010: 63 6c 4d 61 69 6e 2e 63 0a 3d 3d 3d 3d 3d 3d 3d clMain.c.=======
0020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0050: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 ============.RCS
0060: 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f file: /cvsroot/
0070: 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f tcl/tcl/generic/
0080: 74 63 6c 4d 61 69 6e 2e 63 2c 76 0a 72 65 74 72 tclMain.c,v.retr
0090: 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 ieving revision
00a0: 31 2e 34 32 0a 64 69 66 66 20 2d 75 20 2d 72 31 1.42.diff -u -r1
00b0: 2e 34 32 20 74 63 6c 4d 61 69 6e 2e 63 0a 2d 2d .42 tclMain.c.--
00c0: 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 4d 61 69 - generic/tclMai
00d0: 6e 2e 63 09 32 34 20 41 70 72 20 32 30 30 37 20 n.c.24 Apr 2007
00e0: 31 36 3a 30 33 3a 35 31 20 2d 30 30 30 30 09 31 16:03:51 -0000.1
00f0: 2e 34 32 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f .42.+++ generic/
0100: 74 63 6c 4d 61 69 6e 2e 63 09 32 31 20 41 75 67 tclMain.c.21 Aug
0110: 20 32 30 30 37 20 32 30 3a 32 33 3a 30 31 20 2d 2007 20:23:01 -
0120: 30 30 30 30 0a 40 40 20 2d 35 32 37 2c 32 32 20 0000.@@ -527,22
0130: 2b 35 32 37 2c 33 30 20 40 40 0a 20 09 09 62 72 +527,30 @@. ..br
0140: 65 61 6b 3b 0a 20 09 20 20 20 20 7d 0a 20 0a 2b eak;. . }. .+
0150: 09 20 20 20 20 2f 2a 0a 2b 09 20 20 20 20 20 2a . /*.+. *
0160: 20 41 64 64 20 74 68 65 20 6e 65 77 6c 69 6e 65 Add the newline
0170: 20 72 65 6d 6f 76 65 64 20 62 79 20 54 63 6c 5f removed by Tcl_
0180: 47 65 74 73 4f 62 6a 20 62 61 63 6b 20 74 6f 20 GetsObj back to
0190: 74 68 65 20 73 74 72 69 6e 67 2e 0a 2b 09 20 20 the string..+.
01a0: 20 20 20 2a 20 48 61 76 65 20 74 6f 20 61 64 64 * Have to add
01b0: 20 69 74 20 62 61 63 6b 20 62 65 66 6f 72 65 20 it back before
01c0: 74 65 73 74 69 6e 67 20 63 6f 6d 70 6c 65 74 65 testing complete
01d0: 6e 65 73 73 2c 20 62 65 63 61 75 73 65 0a 2b 09 ness, because.+.
01e0: 20 20 20 20 20 2a 20 69 74 20 63 61 6e 20 6d 61 * it can ma
01f0: 6b 65 20 61 20 64 69 66 66 65 72 65 6e 63 65 2e ke a difference.
0200: 20 20 5b 42 75 67 20 31 37 37 35 38 37 38 5d 2e [Bug 1775878].
0210: 0a 2b 09 20 20 20 20 20 2a 2f 0a 2b 0a 2b 09 20 .+. */.+.+.
0220: 20 20 20 69 66 20 28 54 63 6c 5f 49 73 53 68 61 if (Tcl_IsSha
0230: 72 65 64 28 63 6f 6d 6d 61 6e 64 50 74 72 29 29 red(commandPtr))
0240: 20 7b 0a 2b 09 09 54 63 6c 5f 44 65 63 72 52 65 {.+..Tcl_DecrRe
0250: 66 43 6f 75 6e 74 28 63 6f 6d 6d 61 6e 64 50 74 fCount(commandPt
0260: 72 29 3b 0a 2b 09 09 63 6f 6d 6d 61 6e 64 50 74 r);.+..commandPt
0270: 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 r = Tcl_Duplicat
0280: 65 4f 62 6a 28 63 6f 6d 6d 61 6e 64 50 74 72 29 eObj(commandPtr)
0290: 3b 0a 2b 09 09 54 63 6c 5f 49 6e 63 72 52 65 66 ;.+..Tcl_IncrRef
02a0: 43 6f 75 6e 74 28 63 6f 6d 6d 61 6e 64 50 74 72 Count(commandPtr
02b0: 29 3b 0a 2b 09 20 20 20 20 7d 0a 2b 09 20 20 20 );.+. }.+.
02c0: 20 54 63 6c 5f 41 70 70 65 6e 64 54 6f 4f 62 6a Tcl_AppendToObj
02d0: 28 63 6f 6d 6d 61 6e 64 50 74 72 2c 20 22 5c 6e (commandPtr, "\n
02e0: 22 2c 20 31 29 3b 0a 20 09 20 20 20 20 69 66 20 ", 1);. . if
02f0: 28 21 54 63 6c 4f 62 6a 43 6f 6d 6d 61 6e 64 43 (!TclObjCommandC
0300: 6f 6d 70 6c 65 74 65 28 63 6f 6d 6d 61 6e 64 50 omplete(commandP
0310: 74 72 29 29 20 7b 0a 2d 09 09 2f 2a 0a 2d 09 09 tr)) {.-../*.-..
0320: 20 2a 20 41 64 64 20 74 68 65 20 6e 65 77 6c 69 * Add the newli
0330: 6e 65 20 72 65 6d 6f 76 65 64 20 62 79 20 54 63 ne removed by Tc
0340: 6c 5f 47 65 74 73 4f 62 6a 20 62 61 63 6b 20 74 l_GetsObj back t
0350: 6f 20 74 68 65 20 73 74 72 69 6e 67 2e 0a 2d 09 o the string..-.
0360: 09 20 2a 2f 0a 2d 0a 2d 09 09 69 66 20 28 54 63 . */.-.-..if (Tc
0370: 6c 5f 49 73 53 68 61 72 65 64 28 63 6f 6d 6d 61 l_IsShared(comma
0380: 6e 64 50 74 72 29 29 20 7b 0a 2d 09 09 20 20 20 ndPtr)) {.-..
0390: 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e Tcl_DecrRefCoun
03a0: 74 28 63 6f 6d 6d 61 6e 64 50 74 72 29 3b 0a 2d t(commandPtr);.-
03b0: 09 09 20 20 20 20 63 6f 6d 6d 61 6e 64 50 74 72 .. commandPtr
03c0: 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 = Tcl_Duplicate
03d0: 4f 62 6a 28 63 6f 6d 6d 61 6e 64 50 74 72 29 3b Obj(commandPtr);
03e0: 0a 2d 09 09 20 20 20 20 54 63 6c 5f 49 6e 63 72 .-.. Tcl_Incr
03f0: 52 65 66 43 6f 75 6e 74 28 63 6f 6d 6d 61 6e 64 RefCount(command
0400: 50 74 72 29 3b 0a 2d 09 09 7d 0a 2d 09 09 54 63 Ptr);.-..}.-..Tc
0410: 6c 5f 41 70 70 65 6e 64 54 6f 4f 62 6a 28 63 6f l_AppendToObj(co
0420: 6d 6d 61 6e 64 50 74 72 2c 20 22 5c 6e 22 2c 20 mmandPtr, "\n",
0430: 31 29 3b 0a 20 09 09 70 72 6f 6d 70 74 20 3d 20 1);. ..prompt =
0440: 50 52 4f 4d 50 54 5f 43 4f 4e 54 49 4e 55 45 3b PROMPT_CONTINUE;
0450: 0a 20 09 09 63 6f 6e 74 69 6e 75 65 3b 0a 20 09 . ..continue;. .
0460: 20 20 20 20 7d 0a 20 0a 20 09 20 20 20 20 70 72 }. . . pr
0470: 6f 6d 70 74 20 3d 20 50 52 4f 4d 50 54 5f 53 54 ompt = PROMPT_ST
0480: 41 52 54 3b 0a 2b 09 20 20 20 20 2f 2a 0a 2b 09 ART;.+. /*.+.
0490: 20 20 20 20 20 2a 20 54 68 65 20 66 69 6e 61 6c * The final
04a0: 20 6e 65 77 6c 69 6e 65 20 69 73 20 73 79 6e 74 newline is synt
04b0: 61 63 74 69 63 61 6c 6c 79 20 72 65 64 75 6e 64 actically redund
04c0: 61 6e 74 2c 20 61 6e 64 20 63 61 75 73 65 73 0a ant, and causes.
04d0: 2b 09 20 20 20 20 20 2a 20 73 6f 6d 65 20 65 72 +. * some er
04e0: 72 6f 72 20 6d 65 73 73 61 67 65 73 20 74 72 6f ror messages tro
04f0: 75 62 6c 65 73 20 64 65 65 70 65 72 20 69 6e 2c ubles deeper in,
0500: 20 73 6f 20 6c 6f 70 20 69 74 20 62 61 63 6b 20 so lop it back
0510: 6f 66 66 2e 0a 2b 09 20 20 20 20 20 2a 2f 0a 2b off..+. */.+
0520: 09 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 . Tcl_GetStri
0530: 6e 67 46 72 6f 6d 4f 62 6a 28 63 6f 6d 6d 61 6e ngFromObj(comman
0540: 64 50 74 72 2c 20 26 6c 65 6e 67 74 68 29 3b 0a dPtr, &length);.
0550: 2b 09 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a +. Tcl_SetObj
0560: 4c 65 6e 67 74 68 28 63 6f 6d 6d 61 6e 64 50 74 Length(commandPt
0570: 72 2c 20 2d 2d 6c 65 6e 67 74 68 29 3b 0a 20 09 r, --length);. .
0580: 20 20 20 20 63 6f 64 65 20 3d 20 54 63 6c 5f 52 code = Tcl_R
0590: 65 63 6f 72 64 41 6e 64 45 76 61 6c 4f 62 6a 28 ecordAndEvalObj(
05a0: 69 6e 74 65 72 70 2c 20 63 6f 6d 6d 61 6e 64 50 interp, commandP
05b0: 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f tr, TCL_EVAL_GLO
05c0: 42 41 4c 29 3b 0a 20 09 20 20 20 20 69 6e 43 68 BAL);. . inCh
05d0: 61 6e 6e 65 6c 20 3d 20 54 63 6c 5f 47 65 74 53 annel = Tcl_GetS
05e0: 74 64 43 68 61 6e 6e 65 6c 28 54 43 4c 5f 53 54 tdChannel(TCL_ST
05f0: 44 49 4e 29 3b 0a 20 09 20 20 20 20 6f 75 74 43 DIN);. . outC
0600: 68 61 6e 6e 65 6c 20 3d 20 54 63 6c 5f 47 65 74 hannel = Tcl_Get
0610: 53 74 64 43 68 61 6e 6e 65 6c 28 54 43 4c 5f 53 StdChannel(TCL_S
0620: 54 44 4f 55 54 29 3b 0a 40 40 20 2d 37 35 38 2c TDOUT);.@@ -758,
0630: 31 37 20 2b 37 36 36 2c 31 39 20 40 40 0a 20 09 17 +766,19 @@. .
0640: 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 7d 0a 20 return;. }.
0650: 0a 2b 20 20 20 20 69 66 20 28 54 63 6c 5f 49 73 .+ if (Tcl_Is
0660: 53 68 61 72 65 64 28 63 6f 6d 6d 61 6e 64 50 74 Shared(commandPt
0670: 72 29 29 20 7b 0a 2b 09 54 63 6c 5f 44 65 63 72 r)) {.+.Tcl_Decr
0680: 52 65 66 43 6f 75 6e 74 28 63 6f 6d 6d 61 6e 64 RefCount(command
0690: 50 74 72 29 3b 0a 2b 09 63 6f 6d 6d 61 6e 64 50 Ptr);.+.commandP
06a0: 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 tr = Tcl_Duplica
06b0: 74 65 4f 62 6a 28 63 6f 6d 6d 61 6e 64 50 74 72 teObj(commandPtr
06c0: 29 3b 0a 2b 09 54 63 6c 5f 49 6e 63 72 52 65 66 );.+.Tcl_IncrRef
06d0: 43 6f 75 6e 74 28 63 6f 6d 6d 61 6e 64 50 74 72 Count(commandPtr
06e0: 29 3b 0a 2b 20 20 20 20 7d 0a 2b 20 20 20 20 54 );.+ }.+ T
06f0: 63 6c 5f 41 70 70 65 6e 64 54 6f 4f 62 6a 28 63 cl_AppendToObj(c
0700: 6f 6d 6d 61 6e 64 50 74 72 2c 20 22 5c 6e 22 2c ommandPtr, "\n",
0710: 20 31 29 3b 0a 20 20 20 20 20 69 66 20 28 21 54 1);. if (!T
0720: 63 6c 4f 62 6a 43 6f 6d 6d 61 6e 64 43 6f 6d 70 clObjCommandComp
0730: 6c 65 74 65 28 63 6f 6d 6d 61 6e 64 50 74 72 29 lete(commandPtr)
0740: 29 20 7b 0a 2d 09 69 66 20 28 54 63 6c 5f 49 73 ) {.-.if (Tcl_Is
0750: 53 68 61 72 65 64 28 63 6f 6d 6d 61 6e 64 50 74 Shared(commandPt
0760: 72 29 29 20 7b 0a 2d 09 20 20 20 20 54 63 6c 5f r)) {.-. Tcl_
0770: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 63 6f 6d DecrRefCount(com
0780: 6d 61 6e 64 50 74 72 29 3b 0a 2d 09 20 20 20 20 mandPtr);.-.
0790: 63 6f 6d 6d 61 6e 64 50 74 72 20 3d 20 54 63 6c commandPtr = Tcl
07a0: 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 63 6f _DuplicateObj(co
07b0: 6d 6d 61 6e 64 50 74 72 29 3b 0a 2d 09 20 20 20 mmandPtr);.-.
07c0: 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e Tcl_IncrRefCoun
07d0: 74 28 63 6f 6d 6d 61 6e 64 50 74 72 29 3b 0a 2d t(commandPtr);.-
07e0: 09 7d 0a 2d 09 54 63 6c 5f 41 70 70 65 6e 64 54 .}.-.Tcl_AppendT
07f0: 6f 4f 62 6a 28 63 6f 6d 6d 61 6e 64 50 74 72 2c oObj(commandPtr,
0800: 20 22 5c 6e 22 2c 20 31 29 3b 0a 20 09 69 73 50 "\n", 1);. .isP
0810: 74 72 2d 3e 70 72 6f 6d 70 74 20 3d 20 50 52 4f tr->prompt = PRO
0820: 4d 50 54 5f 43 4f 4e 54 49 4e 55 45 3b 0a 20 09 MPT_CONTINUE;. .
0830: 67 6f 74 6f 20 70 72 6f 6d 70 74 3b 0a 20 20 20 goto prompt;.
0840: 20 20 7d 0a 20 20 20 20 20 69 73 50 74 72 2d 3e }. isPtr->
0850: 70 72 6f 6d 70 74 20 3d 20 50 52 4f 4d 50 54 5f prompt = PROMPT_
0860: 53 54 41 52 54 3b 0a 2b 20 20 20 20 54 63 6c 5f START;.+ Tcl_
0870: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
0880: 28 63 6f 6d 6d 61 6e 64 50 74 72 2c 20 26 6c 65 (commandPtr, &le
0890: 6e 67 74 68 29 3b 0a 2b 20 20 20 20 54 63 6c 5f ngth);.+ Tcl_
08a0: 53 65 74 4f 62 6a 4c 65 6e 67 74 68 28 63 6f 6d SetObjLength(com
08b0: 6d 61 6e 64 50 74 72 2c 20 2d 2d 6c 65 6e 67 74 mandPtr, --lengt
08c0: 68 29 3b 0a 20 0a 20 20 20 20 20 2f 2a 0a 20 20 h);. . /*.
08d0: 20 20 20 20 2a 20 44 69 73 61 62 6c 65 20 74 68 * Disable th
08e0: 65 20 73 74 64 69 6e 20 63 68 61 6e 6e 65 6c 20 e stdin channel
08f0: 68 61 6e 64 6c 65 72 20 77 68 69 6c 65 20 65 76 handler while ev
0900: 61 6c 75 61 74 69 6e 67 20 74 68 65 20 63 6f 6d aluating the com
0910: 6d 61 6e 64 3b 0a 49 6e 64 65 78 3a 20 74 65 73 mand;.Index: tes
0920: 74 73 2f 6d 61 69 6e 2e 74 65 73 74 0a 3d 3d 3d ts/main.test.===
0930: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0940: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0950: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0960: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0970: 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 .RCS file: /cvsr
0980: 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 74 65 73 74 oot/tcl/tcl/test
0990: 73 2f 6d 61 69 6e 2e 74 65 73 74 2c 76 0a 72 65 s/main.test,v.re
09a0: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
09b0: 6e 20 31 2e 32 30 0a 64 69 66 66 20 2d 75 20 2d n 1.20.diff -u -
09c0: 72 31 2e 32 30 20 6d 61 69 6e 2e 74 65 73 74 0a r1.20 main.test.
09d0: 2d 2d 2d 20 74 65 73 74 73 2f 6d 61 69 6e 2e 74 --- tests/main.t
09e0: 65 73 74 09 34 20 53 65 70 20 32 30 30 36 20 32 est.4 Sep 2006 2
09f0: 31 3a 33 34 3a 35 38 20 2d 30 30 30 30 09 31 2e 1:34:58 -0000.1.
0a00: 32 30 0a 2b 2b 2b 20 74 65 73 74 73 2f 6d 61 69 20.+++ tests/mai
0a10: 6e 2e 74 65 73 74 09 32 31 20 41 75 67 20 32 30 n.test.21 Aug 20
0a20: 30 37 20 32 30 3a 32 33 3a 30 33 20 2d 30 30 30 07 20:23:03 -000
0a30: 30 0a 40 40 20 2d 38 31 39 2c 36 20 2b 38 31 39 0.@@ -819,6 +819
0a40: 2c 32 30 20 40 40 0a 20 09 66 69 6c 65 20 64 65 ,20 @@. .file de
0a50: 6c 65 74 65 20 72 65 73 75 6c 74 0a 20 20 20 20 lete result.
0a60: 20 7d 20 2d 72 65 73 75 6c 74 20 22 45 78 69 74 } -result "Exit
0a70: 20 4d 61 69 6e 4c 6f 6f 70 5c 6e 49 6e 20 65 78 MainLoop\nIn ex
0a80: 69 74 5c 6e 65 76 65 6e 20 30 5c 6e 22 0a 20 0a it\neven 0\n". .
0a90: 2b 20 20 20 20 74 65 73 74 20 54 63 6c 5f 4d 61 + test Tcl_Ma
0aa0: 69 6e 2d 35 2e 31 33 20 7b 0a 2b 09 42 75 67 20 in-5.13 {.+.Bug
0ab0: 31 37 37 35 38 37 38 0a 2b 20 20 20 20 7d 20 2d 1775878.+ } -
0ac0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 0a 2b 09 constraints {.+.
0ad0: 65 78 65 63 0a 2b 20 20 20 20 7d 20 2d 73 65 74 exec.+ } -set
0ae0: 75 70 20 7b 0a 2b 09 63 61 74 63 68 20 7b 73 65 up {.+.catch {se
0af0: 74 20 66 20 5b 6f 70 65 6e 20 22 7c 5b 6c 69 73 t f [open "|[lis
0b00: 74 20 5b 69 6e 74 65 72 70 72 65 74 65 72 5d 5d t [interpreter]]
0b10: 22 20 77 2b 5d 7d 0a 2b 20 20 20 20 7d 20 2d 62 " w+]}.+ } -b
0b20: 6f 64 79 20 7b 0a 2b 09 74 79 70 65 20 24 66 20 ody {.+.type $f
0b30: 22 70 75 74 73 20 5c 5c 22 0a 2b 09 74 79 70 65 "puts \\".+.type
0b40: 20 24 66 20 72 65 74 75 72 6e 0a 2b 09 6c 69 73 $f return.+.lis
0b50: 74 20 5b 63 61 74 63 68 20 7b 67 65 74 73 20 24 t [catch {gets $
0b60: 66 7d 20 6c 69 6e 65 5d 20 24 6c 69 6e 65 0a 2b f} line] $line.+
0b70: 20 20 20 20 7d 20 2d 63 6c 65 61 6e 75 70 20 7b } -cleanup {
0b80: 0a 2b 09 63 6c 6f 73 65 20 24 66 0a 2b 20 20 20 .+.close $f.+
0b90: 20 7d 20 2d 72 65 73 75 6c 74 20 5b 6c 69 73 74 } -result [list
0ba0: 20 30 20 72 65 74 75 72 6e 5d 0a 2b 0a 20 20 20 0 return].+.
0bb0: 20 20 23 20 54 65 73 74 73 20 54 63 6c 5f 4d 61 # Tests Tcl_Ma
0bc0: 69 6e 2d 36 2e 2a 3a 20 69 6e 74 65 72 61 63 74 in-6.*: interact
0bd0: 69 76 65 20 6f 70 65 72 61 74 69 6f 6e 73 20 77 ive operations w
0be0: 69 74 68 20 70 72 6f 6d 70 74 73 0a 20 0a 20 20 ith prompts. .
0bf0: 20 20 20 74 65 73 74 20 54 63 6c 5f 4d 61 69 6e test Tcl_Main
0c00: 2d 36 2e 31 20 7b 0a 40 40 20 2d 31 32 30 32 2c -6.1 {.@@ -1202,
0c10: 36 20 2b 31 32 31 36 2c 32 31 20 40 40 0a 20 09 6 +1216,21 @@. .
0c20: 66 69 6c 65 20 64 65 6c 65 74 65 20 72 65 73 75 file delete resu
0c30: 6c 74 0a 20 20 20 20 20 7d 20 2d 72 65 73 75 6c lt. } -resul
0c40: 74 20 22 31 5c 6e 45 78 69 74 20 4d 61 69 6e 4c t "1\nExit MainL
0c50: 6f 6f 70 5c 6e 22 0a 20 0a 2b 20 20 20 20 74 65 oop\n". .+ te
0c60: 73 74 20 54 63 6c 5f 4d 61 69 6e 2d 38 2e 31 33 st Tcl_Main-8.13
0c70: 20 7b 0a 2b 09 42 75 67 20 31 37 37 35 38 37 38 {.+.Bug 1775878
0c80: 0a 2b 20 20 20 20 7d 20 2d 63 6f 6e 73 74 72 61 .+ } -constra
0c90: 69 6e 74 73 20 7b 0a 2b 09 65 78 65 63 20 54 63 ints {.+.exec Tc
0ca0: 6c 74 65 73 74 0a 2b 20 20 20 20 7d 20 2d 73 65 ltest.+ } -se
0cb0: 74 75 70 20 7b 0a 2b 09 63 61 74 63 68 20 7b 73 tup {.+.catch {s
0cc0: 65 74 20 66 20 5b 6f 70 65 6e 20 22 7c 5b 6c 69 et f [open "|[li
0cd0: 73 74 20 5b 69 6e 74 65 72 70 72 65 74 65 72 5d st [interpreter]
0ce0: 5d 22 20 77 2b 5d 7d 0a 2b 20 20 20 20 7d 20 2d ]" w+]}.+ } -
0cf0: 62 6f 64 79 20 7b 0a 2b 09 65 78 65 63 20 5b 69 body {.+.exec [i
0d00: 6e 74 65 72 70 72 65 74 65 72 5d 20 3c 3c 20 22 nterpreter] << "
0d10: 74 65 73 74 73 65 74 6d 61 69 6e 6c 6f 6f 70 5c testsetmainloop\
0d20: 6e 70 75 74 73 20 5c 5c 5c 6e 70 77 64 5c 6e 74 nputs \\\npwd\nt
0d30: 65 73 74 65 78 69 74 6d 61 69 6e 6c 6f 6f 70 22 estexitmainloop"
0d40: 20 3e 26 20 72 65 73 75 6c 74 0a 2b 09 73 65 74 >& result.+.set
0d50: 20 66 20 5b 6f 70 65 6e 20 72 65 73 75 6c 74 5d f [open result]
0d60: 0a 2b 09 72 65 61 64 20 24 66 0a 2b 20 20 20 20 .+.read $f.+
0d70: 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0a 2b 09 63 } -cleanup {.+.c
0d80: 6c 6f 73 65 20 24 66 0a 2b 09 66 69 6c 65 20 64 lose $f.+.file d
0d90: 65 6c 65 74 65 20 72 65 73 75 6c 74 0a 2b 20 20 elete result.+
0da0: 20 20 7d 20 2d 72 65 73 75 6c 74 20 22 70 77 64 } -result "pwd
0db0: 5c 6e 45 78 69 74 20 4d 61 69 6e 4c 6f 6f 70 5c \nExit MainLoop\
0dc0: 6e 22 0a 2b 0a 20 20 20 20 20 23 20 54 65 73 74 n".+. # Test
0dd0: 73 20 54 63 6c 5f 4d 61 69 6e 2d 39 2e 2a 3a 20 s Tcl_Main-9.*:
0de0: 50 72 6f 6d 70 74 20 6f 70 65 72 61 74 69 6f 6e Prompt operation
0df0: 73 0a 20 0a 20 20 20 20 20 74 65 73 74 20 54 63 s. . test Tc
0e00: 6c 5f 4d 61 69 6e 2d 39 2e 31 20 7b 0a l_Main-9.1 {.
