Attachment "TIP120-2.patch" to
ticket [649859ffff]
added by
patthoyts
2003-05-21 04:43:02.
0000: 49 6e 64 65 78 3a 20 64 6f 63 2f 64 64 65 2e 6e Index: doc/dde.n
0010: 0d 0a 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 3d 0d 0a 52 43 53 20 66 69 6c 65 3a =====..RCS file:
0060: 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 /cvsroot/tcl/tc
0070: 6c 2f 64 6f 63 2f 64 64 65 2e 6e 2c 76 0d 0a 72 l/doc/dde.n,v..r
0080: 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 etrieving revisi
0090: 6f 6e 20 31 2e 39 0d 0a 64 69 66 66 20 2d 63 20 on 1.9..diff -c
00a0: 2d 72 31 2e 39 20 64 64 65 2e 6e 0d 0a 2a 2a 2a -r1.9 dde.n..***
00b0: 20 64 6f 63 2f 64 64 65 2e 6e 09 31 36 20 4d 61 doc/dde.n.16 Ma
00c0: 79 20 32 30 30 33 20 32 32 3a 30 30 3a 34 37 20 y 2003 22:00:47
00d0: 2d 30 30 30 30 09 31 2e 39 0d 0a 2d 2d 2d 20 64 -0000.1.9..--- d
00e0: 6f 63 2f 64 64 65 2e 6e 09 32 30 20 4d 61 79 20 oc/dde.n.20 May
00f0: 32 30 30 33 20 32 31 3a 32 34 3a 35 31 20 2d 30 2003 21:24:51 -0
0100: 30 30 30 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 000..***********
0110: 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 31 37 2c 32 33 20 ****..*** 17,23
0120: 2a 2a 2a 2a 0d 0a 20 20 2e 73 70 0d 0a 20 20 5c ****.. .sp.. \
0130: 66 42 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 fBpackage requir
0140: 65 20 64 64 65 20 31 2e 32 5c 66 52 0d 0a 20 20 e dde 1.2\fR..
0150: 2e 73 70 0d 0a 21 20 5c 66 42 64 64 65 20 5c 66 .sp..! \fBdde \f
0160: 49 73 65 72 76 65 72 6e 61 6d 65 5c 66 52 20 3f Iservername\fR ?
0170: 5c 66 49 2d 65 78 61 63 74 5c 66 52 3f 20 3f 5c \fI-exact\fR? ?\
0180: 66 49 2d 2d 5c 66 52 3f 20 3f 5c 66 49 74 6f 70 fI--\fR? ?\fItop
0190: 69 63 5c 66 52 3f 0d 0a 20 20 2e 73 70 0d 0a 20 ic\fR?.. .sp..
01a0: 20 5c 66 42 64 64 65 20 5c 66 49 65 78 65 63 75 \fBdde \fIexecu
01b0: 74 65 5c 66 52 20 3f 5c 66 49 5c 2d 61 73 79 6e te\fR ?\fI\-asyn
01c0: 63 5c 66 52 3f 20 5c 66 49 73 65 72 76 69 63 65 c\fR? \fIservice
01d0: 20 74 6f 70 69 63 20 5c 66 52 3f 5c 66 49 64 61 topic \fR?\fIda
01e0: 74 61 5c 66 52 3f 0d 0a 20 20 2e 73 70 0d 0a 2d ta\fR?.. .sp..-
01f0: 2d 2d 20 31 37 2c 32 33 20 2d 2d 2d 2d 0d 0a 20 -- 17,23 ----..
0200: 20 2e 73 70 0d 0a 20 20 5c 66 42 70 61 63 6b 61 .sp.. \fBpacka
0210: 67 65 20 72 65 71 75 69 72 65 20 64 64 65 20 31 ge require dde 1
0220: 2e 32 5c 66 52 0d 0a 20 20 2e 73 70 0d 0a 21 20 .2\fR.. .sp..!
0230: 5c 66 42 64 64 65 20 5c 66 49 73 65 72 76 65 72 \fBdde \fIserver
0240: 6e 61 6d 65 5c 66 52 20 3f 5c 66 49 2d 65 78 61 name\fR ?\fI-exa
0250: 63 74 5c 66 52 3f 20 3f 5c 66 49 2d 68 61 6e 64 ct\fR? ?\fI-hand
0260: 6c 65 72 20 70 72 6f 63 5c 66 52 3f 20 3f 5c 66 ler proc\fR? ?\f
0270: 49 2d 2d 5c 66 52 3f 20 3f 5c 66 49 74 6f 70 69 I--\fR? ?\fItopi
0280: 63 5c 66 52 3f 0d 0a 20 20 2e 73 70 0d 0a 20 20 c\fR?.. .sp..
0290: 5c 66 42 64 64 65 20 5c 66 49 65 78 65 63 75 74 \fBdde \fIexecut
02a0: 65 5c 66 52 20 3f 5c 66 49 5c 2d 61 73 79 6e 63 e\fR ?\fI\-async
02b0: 5c 66 52 3f 20 5c 66 49 73 65 72 76 69 63 65 20 \fR? \fIservice
02c0: 74 6f 70 69 63 20 5c 66 52 3f 5c 66 49 64 61 74 topic \fR?\fIdat
02d0: 61 5c 66 52 3f 0d 0a 20 20 2e 73 70 0d 0a 2a 2a a\fR?.. .sp..**
02e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a *************..*
02f0: 2a 2a 20 35 30 2c 35 36 20 2a 2a 2a 2a 0d 0a 20 ** 50,56 ****..
0300: 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 The following c
0310: 6f 6d 6d 61 6e 64 73 20 61 72 65 20 61 20 73 75 ommands are a su
0320: 62 73 65 74 20 6f 66 20 74 68 65 20 66 75 6c 6c bset of the full
0330: 20 44 79 6e 61 6d 69 63 20 44 61 74 61 20 45 78 Dynamic Data Ex
0340: 63 68 61 6e 67 65 0d 0a 20 20 73 65 74 20 6f 66 change.. set of
0350: 20 63 6f 6d 6d 61 6e 64 73 2e 0d 0a 20 20 2e 54 commands... .T
0360: 50 0d 0a 21 20 5c 66 42 64 64 65 20 73 65 72 76 P..! \fBdde serv
0370: 65 72 6e 61 6d 65 20 5c 66 52 3f 5c 66 49 2d 65 ername \fR?\fI-e
0380: 78 61 63 74 5c 66 52 3f 20 3f 5c 66 49 2d 2d 5c xact\fR? ?\fI--\
0390: 66 52 3f 20 3f 5c 66 49 74 6f 70 69 63 5c 66 52 fR? ?\fItopic\fR
03a0: 3f 0d 0a 20 20 5c 66 42 64 64 65 20 73 65 72 76 ?.. \fBdde serv
03b0: 65 72 6e 61 6d 65 5c 66 52 20 72 65 67 69 73 74 ername\fR regist
03c0: 65 72 73 20 74 68 65 20 69 6e 74 65 72 70 72 65 ers the interpre
03d0: 74 65 72 20 61 73 20 61 20 44 44 45 20 73 65 72 ter as a DDE ser
03e0: 76 65 72 20 77 69 74 68 0d 0a 20 20 74 68 65 20 ver with.. the
03f0: 73 65 72 76 69 63 65 20 6e 61 6d 65 20 5c 66 42 service name \fB
0400: 54 63 6c 45 76 61 6c 5c 66 52 20 61 6e 64 20 74 TclEval\fR and t
0410: 68 65 20 74 6f 70 69 63 20 6e 61 6d 65 20 73 70 he topic name sp
0420: 65 63 69 66 69 65 64 20 62 79 20 5c 66 49 74 6f ecified by \fIto
0430: 70 69 63 5c 66 52 2e 0d 0a 20 20 49 66 20 6e 6f pic\fR... If no
0440: 20 5c 66 49 74 6f 70 69 63 5c 66 52 20 69 73 20 \fItopic\fR is
0450: 67 69 76 65 6e 2c 20 5c 66 42 64 64 65 20 73 65 given, \fBdde se
0460: 72 76 65 72 6e 61 6d 65 5c 66 52 20 72 65 74 75 rvername\fR retu
0470: 72 6e 73 20 74 68 65 20 6e 61 6d 65 0d 0a 2d 2d rns the name..--
0480: 2d 20 35 30 2c 35 36 20 2d 2d 2d 2d 0d 0a 20 20 - 50,56 ----..
0490: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f The following co
04a0: 6d 6d 61 6e 64 73 20 61 72 65 20 61 20 73 75 62 mmands are a sub
04b0: 73 65 74 20 6f 66 20 74 68 65 20 66 75 6c 6c 20 set of the full
04c0: 44 79 6e 61 6d 69 63 20 44 61 74 61 20 45 78 63 Dynamic Data Exc
04d0: 68 61 6e 67 65 0d 0a 20 20 73 65 74 20 6f 66 20 hange.. set of
04e0: 63 6f 6d 6d 61 6e 64 73 2e 0d 0a 20 20 2e 54 50 commands... .TP
04f0: 0d 0a 21 20 5c 66 42 64 64 65 20 73 65 72 76 65 ..! \fBdde serve
0500: 72 6e 61 6d 65 20 5c 66 52 3f 5c 66 49 2d 65 78 rname \fR?\fI-ex
0510: 61 63 74 5c 66 52 3f 20 3f 5c 66 49 2d 68 61 6e act\fR? ?\fI-han
0520: 64 6c 65 72 20 70 72 6f 63 5c 66 52 3f 20 3f 5c dler proc\fR? ?\
0530: 66 49 2d 2d 5c 66 52 3f 20 3f 5c 66 49 74 6f 70 fI--\fR? ?\fItop
0540: 69 63 5c 66 52 3f 0d 0a 20 20 5c 66 42 64 64 65 ic\fR?.. \fBdde
0550: 20 73 65 72 76 65 72 6e 61 6d 65 5c 66 52 20 72 servername\fR r
0560: 65 67 69 73 74 65 72 73 20 74 68 65 20 69 6e 74 egisters the int
0570: 65 72 70 72 65 74 65 72 20 61 73 20 61 20 44 44 erpreter as a DD
0580: 45 20 73 65 72 76 65 72 20 77 69 74 68 0d 0a 20 E server with..
0590: 20 74 68 65 20 73 65 72 76 69 63 65 20 6e 61 6d the service nam
05a0: 65 20 5c 66 42 54 63 6c 45 76 61 6c 5c 66 52 20 e \fBTclEval\fR
05b0: 61 6e 64 20 74 68 65 20 74 6f 70 69 63 20 6e 61 and the topic na
05c0: 6d 65 20 73 70 65 63 69 66 69 65 64 20 62 79 20 me specified by
05d0: 5c 66 49 74 6f 70 69 63 5c 66 52 2e 0d 0a 20 20 \fItopic\fR...
05e0: 49 66 20 6e 6f 20 5c 66 49 74 6f 70 69 63 5c 66 If no \fItopic\f
05f0: 52 20 69 73 20 67 69 76 65 6e 2c 20 5c 66 42 64 R is given, \fBd
0600: 64 65 20 73 65 72 76 65 72 6e 61 6d 65 5c 66 52 de servername\fR
0610: 20 72 65 74 75 72 6e 73 20 74 68 65 20 6e 61 6d returns the nam
0620: 65 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a e..*************
0630: 2a 2a 0d 0a 2a 2a 2a 20 36 30 2c 36 35 20 2a 2a **..*** 60,65 **
0640: 2a 2a 0d 0a 2d 2d 2d 20 36 30 2c 37 31 20 2d 2d **..--- 60,71 --
0650: 2d 2d 0d 0a 20 20 75 6e 69 71 75 65 2e 20 54 68 --.. unique. Th
0660: 65 20 63 6f 6d 6d 61 6e 64 27 73 20 72 65 73 75 e command's resu
0670: 6c 74 20 77 69 6c 6c 20 62 65 20 74 68 65 20 6e lt will be the n
0680: 61 6d 65 20 61 63 74 75 61 6c 6c 79 20 75 73 65 ame actually use
0690: 64 2e 20 54 68 65 0d 0a 20 20 5c 66 49 2d 65 78 d. The.. \fI-ex
06a0: 61 63 74 5c 66 52 20 6f 70 74 69 6f 6e 20 69 73 act\fR option is
06b0: 20 75 73 65 64 20 74 6f 20 66 6f 72 63 65 20 72 used to force r
06c0: 65 67 69 73 74 72 61 74 69 6f 6e 20 6f 66 20 70 egistration of p
06d0: 72 65 63 69 73 65 6c 79 20 74 68 65 0d 0a 20 20 recisely the..
06e0: 67 69 76 65 6e 20 5c 66 49 74 6f 70 69 63 5c 66 given \fItopic\f
06f0: 52 20 6e 61 6d 65 2e 0d 0a 2b 20 2e 49 50 0d 0a R name...+ .IP..
0700: 2b 20 54 68 65 20 5c 66 49 2d 68 61 6e 64 6c 65 + The \fI-handle
0710: 72 5c 66 52 20 6f 70 74 69 6f 6e 20 73 70 65 63 r\fR option spec
0720: 69 66 69 65 73 20 61 20 74 63 6c 20 70 72 6f 63 ifies a tcl proc
0730: 65 64 75 72 65 20 74 68 61 74 20 77 69 6c 6c 20 edure that will
0740: 62 65 20 63 61 6c 6c 65 64 20 74 6f 0d 0a 2b 20 be called to..+
0750: 70 72 6f 63 65 73 73 20 63 61 6c 6c 73 20 74 6f process calls to
0760: 20 74 68 65 20 64 64 65 20 73 65 72 76 65 72 2e the dde server.
0770: 20 49 66 20 74 68 65 20 70 61 63 6b 61 67 65 20 If the package
0780: 68 61 73 20 62 65 65 6e 20 6c 6f 61 64 65 64 20 has been loaded
0790: 69 6e 74 6f 20 61 0d 0a 2b 20 73 61 66 65 20 69 into a..+ safe i
07a0: 6e 74 65 72 70 72 65 74 65 72 20 74 68 65 6e 20 nterpreter then
07b0: 61 20 5c 66 49 2d 68 61 6e 64 6c 65 72 5c 66 52 a \fI-handler\fR
07c0: 20 70 72 6f 63 65 64 75 72 65 20 6d 75 73 74 20 procedure must
07d0: 62 65 20 64 65 66 69 6e 65 64 2e 20 54 68 65 0d be defined. The.
07e0: 0a 2b 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 .+ procedure is
07f0: 63 61 6c 6c 65 64 20 77 69 74 68 20 61 6c 6c 20 called with all
0800: 74 68 65 20 61 72 67 75 6d 65 6e 74 73 20 70 72 the arguments pr
0810: 6f 76 69 64 65 64 20 62 79 20 74 68 65 20 72 65 ovided by the re
0820: 6d 6f 74 65 0d 0a 2b 20 63 61 6c 6c 2e 0d 0a 20 mote..+ call...
0830: 20 2e 54 50 0d 0a 20 20 5c 66 42 64 64 65 20 65 .TP.. \fBdde e
0840: 78 65 63 75 74 65 5c 66 52 20 3f 5c 66 49 5c 2d xecute\fR ?\fI\-
0850: 61 73 79 6e 63 5c 66 52 3f 20 5c 66 49 73 65 72 async\fR? \fIser
0860: 76 69 63 65 20 74 6f 70 69 63 20 64 61 74 61 5c vice topic data\
0870: 66 52 0d 0a 20 20 5c 66 42 64 64 65 20 65 78 65 fR.. \fBdde exe
0880: 63 75 74 65 5c 66 52 20 74 61 6b 65 73 20 74 68 cute\fR takes th
0890: 65 20 5c 66 49 64 61 74 61 5c 66 52 20 61 6e 64 e \fIdata\fR and
08a0: 20 73 65 6e 64 73 20 69 74 20 74 6f 20 74 68 65 sends it to the
08b0: 20 73 65 72 76 65 72 20 69 6e 64 69 63 61 74 65 server indicate
08c0: 64 0d 0a 49 6e 64 65 78 3a 20 6c 69 62 72 61 72 d..Index: librar
08d0: 79 2f 64 64 65 2f 70 6b 67 49 6e 64 65 78 2e 74 y/dde/pkgIndex.t
08e0: 63 6c 0d 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d cl..============
08f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0900: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0910: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0920: 3d 3d 3d 3d 3d 3d 3d 0d 0a 52 43 53 20 66 69 6c =======..RCS fil
0930: 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f e: /cvsroot/tcl/
0940: 74 63 6c 2f 6c 69 62 72 61 72 79 2f 64 64 65 2f tcl/library/dde/
0950: 70 6b 67 49 6e 64 65 78 2e 74 63 6c 2c 76 0d 0a pkgIndex.tcl,v..
0960: 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 retrieving revis
0970: 69 6f 6e 20 31 2e 31 32 0d 0a 64 69 66 66 20 2d ion 1.12..diff -
0980: 63 20 2d 72 31 2e 31 32 20 70 6b 67 49 6e 64 65 c -r1.12 pkgInde
0990: 78 2e 74 63 6c 0d 0a 2a 2a 2a 20 6c 69 62 72 61 x.tcl..*** libra
09a0: 72 79 2f 64 64 65 2f 70 6b 67 49 6e 64 65 78 2e ry/dde/pkgIndex.
09b0: 74 63 6c 09 31 36 20 4d 61 79 20 32 30 30 33 20 tcl.16 May 2003
09c0: 31 37 3a 32 39 3a 34 39 20 2d 30 30 30 30 09 31 17:29:49 -0000.1
09d0: 2e 31 32 0d 0a 2d 2d 2d 20 6c 69 62 72 61 72 79 .12..--- library
09e0: 2f 64 64 65 2f 70 6b 67 49 6e 64 65 78 2e 74 63 /dde/pkgIndex.tc
09f0: 6c 09 32 30 20 4d 61 79 20 32 30 30 33 20 32 31 l.20 May 2003 21
0a00: 3a 32 34 3a 35 31 20 2d 30 30 30 30 0d 0a 2a 2a :24:51 -0000..**
0a10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a *************..*
0a20: 2a 2a 20 31 2c 36 20 2a 2a 2a 2a 0d 0a 20 20 69 ** 1,6 ****.. i
0a30: 66 20 7b 21 5b 70 61 63 6b 61 67 65 20 76 73 61 f {![package vsa
0a40: 74 69 73 66 69 65 73 20 5b 70 61 63 6b 61 67 65 tisfies [package
0a50: 20 70 72 6f 76 69 64 65 20 54 63 6c 5d 20 38 5d provide Tcl] 8]
0a60: 7d 20 7b 72 65 74 75 72 6e 7d 0d 0a 20 20 69 66 } {return}.. if
0a70: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a {[info exists :
0a80: 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 64 65 :tcl_platform(de
0a90: 62 75 67 29 5d 7d 20 7b 0d 0a 21 20 20 20 20 20 bug)]} {..!
0aa0: 70 61 63 6b 61 67 65 20 69 66 6e 65 65 64 65 64 package ifneeded
0ab0: 20 64 64 65 20 31 2e 32 2e 33 20 5b 6c 69 73 74 dde 1.2.3 [list
0ac0: 20 6c 6f 61 64 20 5b 66 69 6c 65 20 6a 6f 69 6e load [file join
0ad0: 20 24 64 69 72 20 74 63 6c 64 64 65 31 32 67 2e $dir tcldde12g.
0ae0: 64 6c 6c 5d 20 64 64 65 5d 0d 0a 20 20 7d 20 65 dll] dde].. } e
0af0: 6c 73 65 20 7b 0d 0a 21 20 20 20 20 20 70 61 63 lse {..! pac
0b00: 6b 61 67 65 20 69 66 6e 65 65 64 65 64 20 64 64 kage ifneeded dd
0b10: 65 20 31 2e 32 2e 33 20 5b 6c 69 73 74 20 6c 6f e 1.2.3 [list lo
0b20: 61 64 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 ad [file join $d
0b30: 69 72 20 74 63 6c 64 64 65 31 32 2e 64 6c 6c 5d ir tcldde12.dll]
0b40: 20 64 64 65 5d 0d 0a 20 20 7d 0d 0a 2d 2d 2d 20 dde].. }..---
0b50: 31 2c 36 20 2d 2d 2d 2d 0d 0a 20 20 69 66 20 7b 1,6 ----.. if {
0b60: 21 5b 70 61 63 6b 61 67 65 20 76 73 61 74 69 73 ![package vsatis
0b70: 66 69 65 73 20 5b 70 61 63 6b 61 67 65 20 70 72 fies [package pr
0b80: 6f 76 69 64 65 20 54 63 6c 5d 20 38 5d 7d 20 7b ovide Tcl] 8]} {
0b90: 72 65 74 75 72 6e 7d 0d 0a 20 20 69 66 20 7b 5b return}.. if {[
0ba0: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 63 info exists ::tc
0bb0: 6c 5f 70 6c 61 74 66 6f 72 6d 28 64 65 62 75 67 l_platform(debug
0bc0: 29 5d 7d 20 7b 0d 0a 21 20 20 20 20 20 70 61 63 )]} {..! pac
0bd0: 6b 61 67 65 20 69 66 6e 65 65 64 65 64 20 64 64 kage ifneeded dd
0be0: 65 20 31 2e 32 2e 34 20 5b 6c 69 73 74 20 6c 6f e 1.2.4 [list lo
0bf0: 61 64 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 ad [file join $d
0c00: 69 72 20 74 63 6c 64 64 65 31 32 67 2e 64 6c 6c ir tcldde12g.dll
0c10: 5d 20 64 64 65 5d 0d 0a 20 20 7d 20 65 6c 73 65 ] dde].. } else
0c20: 20 7b 0d 0a 21 20 20 20 20 20 70 61 63 6b 61 67 {..! packag
0c30: 65 20 69 66 6e 65 65 64 65 64 20 64 64 65 20 31 e ifneeded dde 1
0c40: 2e 32 2e 34 20 5b 6c 69 73 74 20 6c 6f 61 64 20 .2.4 [list load
0c50: 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 [file join $dir
0c60: 74 63 6c 64 64 65 31 32 2e 64 6c 6c 5d 20 64 64 tcldde12.dll] dd
0c70: 65 5d 0d 0a 20 20 7d 0d 0a 49 6e 64 65 78 3a 20 e].. }..Index:
0c80: 74 65 73 74 73 2f 77 69 6e 44 64 65 2e 74 65 73 tests/winDde.tes
0c90: 74 0d 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d t..=============
0ca0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0cb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0cc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0cd0: 3d 3d 3d 3d 3d 3d 0d 0a 52 43 53 20 66 69 6c 65 ======..RCS file
0ce0: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 : /cvsroot/tcl/t
0cf0: 63 6c 2f 74 65 73 74 73 2f 77 69 6e 44 64 65 2e cl/tests/winDde.
0d00: 74 65 73 74 2c 76 0d 0a 72 65 74 72 69 65 76 69 test,v..retrievi
0d10: 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 36 ng revision 1.16
0d20: 0d 0a 64 69 66 66 20 2d 63 20 2d 72 31 2e 31 36 ..diff -c -r1.16
0d30: 20 77 69 6e 44 64 65 2e 74 65 73 74 0d 0a 2a 2a winDde.test..**
0d40: 2a 20 74 65 73 74 73 2f 77 69 6e 44 64 65 2e 74 * tests/winDde.t
0d50: 65 73 74 09 31 36 20 4d 61 79 20 32 30 30 33 20 est.16 May 2003
0d60: 32 32 3a 30 30 3a 34 37 20 2d 30 30 30 30 09 31 22:00:47 -0000.1
0d70: 2e 31 36 0d 0a 2d 2d 2d 20 74 65 73 74 73 2f 77 .16..--- tests/w
0d80: 69 6e 44 64 65 2e 74 65 73 74 09 32 30 20 4d 61 inDde.test.20 Ma
0d90: 79 20 32 30 30 33 20 32 31 3a 32 34 3a 35 31 20 y 2003 21:24:51
0da0: 2d 30 30 30 30 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a -0000..*********
0db0: 2a 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 32 2c 38 20 ******..*** 2,8
0dc0: 2a 2a 2a 2a 0d 0a 20 20 23 0d 0a 20 20 23 20 54 ****.. #.. # T
0dd0: 68 69 73 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e his file contain
0de0: 73 20 61 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 6f s a collection o
0df0: 66 20 74 65 73 74 73 20 66 6f 72 20 6f 6e 65 20 f tests for one
0e00: 6f 72 20 6d 6f 72 65 20 6f 66 20 74 68 65 20 54 or more of the T
0e10: 63 6c 0d 0a 20 20 23 20 62 75 69 6c 74 2d 69 6e cl.. # built-in
0e20: 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 53 6f 75 72 commands. Sour
0e30: 63 69 6e 67 20 74 68 69 73 20 66 69 6c 65 20 69 cing this file i
0e40: 6e 74 6f 20 54 63 6c 20 72 75 6e 73 20 74 68 65 nto Tcl runs the
0e50: 20 74 65 73 74 73 20 61 6e 64 0d 0a 21 20 23 20 tests and..! #
0e60: 67 65 6e 65 72 61 74 65 73 20 6f 75 74 70 75 74 generates output
0e70: 20 66 6f 72 20 65 72 72 6f 72 73 2e 20 20 4e 6f for errors. No
0e80: 20 6f 75 74 70 75 74 20 6d 65 61 6e 73 20 6e 6f output means no
0e90: 20 65 72 72 6f 72 73 20 77 65 72 65 20 66 6f 75 errors were fou
0ea0: 6e 64 2e 0d 0a 20 20 23 0d 0a 20 20 23 20 43 6f nd... #.. # Co
0eb0: 70 79 72 69 67 68 74 20 28 63 29 20 31 39 39 39 pyright (c) 1999
0ec0: 20 62 79 20 53 63 72 69 70 74 69 63 73 20 43 6f by Scriptics Co
0ed0: 72 70 6f 72 61 74 69 6f 6e 2e 0d 0a 20 20 23 0d rporation... #.
0ee0: 0a 2d 2d 2d 20 32 2c 38 20 2d 2d 2d 2d 0d 0a 20 .--- 2,8 ----..
0ef0: 20 23 0d 0a 20 20 23 20 54 68 69 73 20 66 69 6c #.. # This fil
0f00: 65 20 63 6f 6e 74 61 69 6e 73 20 61 20 63 6f 6c e contains a col
0f10: 6c 65 63 74 69 6f 6e 20 6f 66 20 74 65 73 74 73 lection of tests
0f20: 20 66 6f 72 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 for one or more
0f30: 20 6f 66 20 74 68 65 20 54 63 6c 0d 0a 20 20 23 of the Tcl.. #
0f40: 20 62 75 69 6c 74 2d 69 6e 20 63 6f 6d 6d 61 6e built-in comman
0f50: 64 73 2e 20 20 53 6f 75 72 63 69 6e 67 20 74 68 ds. Sourcing th
0f60: 69 73 20 66 69 6c 65 20 69 6e 74 6f 20 54 63 6c is file into Tcl
0f70: 20 72 75 6e 73 20 74 68 65 20 74 65 73 74 73 20 runs the tests
0f80: 61 6e 64 0d 0a 21 20 23 20 67 65 6e 65 72 61 74 and..! # generat
0f90: 65 73 20 6f 75 74 70 75 74 20 66 6f 72 20 65 72 es output for er
0fa0: 72 6f 72 73 2e 20 4e 6f 20 6f 75 74 70 75 74 20 rors. No output
0fb0: 6d 65 61 6e 73 20 6e 6f 20 65 72 72 6f 72 73 20 means no errors
0fc0: 77 65 72 65 20 66 6f 75 6e 64 2e 0d 0a 20 20 23 were found... #
0fd0: 0d 0a 20 20 23 20 43 6f 70 79 72 69 67 68 74 20 .. # Copyright
0fe0: 28 63 29 20 31 39 39 39 20 62 79 20 53 63 72 69 (c) 1999 by Scri
0ff0: 70 74 69 63 73 20 43 6f 72 70 6f 72 61 74 69 6f ptics Corporatio
1000: 6e 2e 0d 0a 20 20 23 0d 0a 2a 2a 2a 2a 2a 2a 2a n... #..*******
1010: 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 31 33 ********..*** 13
1020: 2c 31 38 20 2a 2a 2a 2a 0d 0a 2d 2d 2d 20 31 33 ,18 ****..--- 13
1030: 2c 31 39 20 2d 2d 2d 2d 0d 0a 20 20 0d 0a 20 20 ,19 ----.. ..
1040: 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 5b 6e 61 if {[lsearch [na
1050: 6d 65 73 70 61 63 65 20 63 68 69 6c 64 72 65 6e mespace children
1060: 5d 20 3a 3a 74 63 6c 74 65 73 74 5d 20 3d 3d 20 ] ::tcltest] ==
1070: 2d 31 7d 20 7b 0d 0a 20 20 20 20 20 20 70 61 63 -1} {.. pac
1080: 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 63 6c kage require tcl
1090: 74 65 73 74 0d 0a 2b 20 20 20 20 20 23 74 63 6c test..+ #tcl
10a0: 74 65 73 74 3a 3a 63 6f 6e 66 69 67 75 72 65 20 test::configure
10b0: 2d 76 65 72 62 6f 73 65 20 7b 70 61 73 73 20 73 -verbose {pass s
10c0: 74 61 72 74 7d 0d 0a 20 20 20 20 20 20 6e 61 6d tart}.. nam
10d0: 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 2d 66 espace import -f
10e0: 6f 72 63 65 20 3a 3a 74 63 6c 74 65 73 74 3a 3a orce ::tcltest::
10f0: 2a 0d 0a 20 20 7d 0d 0a 20 20 0d 0a 2a 2a 2a 2a *.. }.. ..****
1100: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a ***********..***
1110: 20 33 34 2c 34 33 20 2a 2a 2a 2a 0d 0a 20 20 0d 34,43 ****.. .
1120: 0a 20 20 73 65 74 20 73 63 72 69 70 74 4e 61 6d . set scriptNam
1130: 65 20 5b 6d 61 6b 65 46 69 6c 65 20 7b 7d 20 73 e [makeFile {} s
1140: 63 72 69 70 74 31 2e 74 63 6c 5d 0d 0a 20 20 0d cript1.tcl].. .
1150: 0a 21 20 70 72 6f 63 20 63 72 65 61 74 65 43 68 .! proc createCh
1160: 69 6c 64 50 72 6f 63 65 73 73 20 7b 20 64 64 65 ildProcess { dde
1170: 53 65 72 76 65 72 4e 61 6d 65 20 7d 20 7b 0d 0a ServerName } {..
1180: 20 20 20 20 20 20 66 69 6c 65 20 64 65 6c 65 74 file delet
1190: 65 20 2d 66 6f 72 63 65 20 24 3a 3a 73 63 72 69 e -force $::scri
11a0: 70 74 4e 61 6d 65 0d 0a 20 20 0d 0a 20 20 20 20 ptName.. ..
11b0: 20 20 73 65 74 20 66 20 5b 6f 70 65 6e 20 24 3a set f [open $:
11c0: 3a 73 63 72 69 70 74 4e 61 6d 65 20 77 2b 5d 0d :scriptName w+].
11d0: 0a 20 20 20 20 20 20 70 75 74 73 20 24 66 20 7b . puts $f {
11e0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 44 44 .. # DD
11f0: 45 20 63 68 69 6c 64 20 73 65 72 76 65 72 20 2d E child server -
1200: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 2d .. #..-
1210: 2d 2d 20 33 35 2c 34 35 20 2d 2d 2d 2d 0d 0a 20 -- 35,45 ----..
1220: 20 0d 0a 20 20 73 65 74 20 73 63 72 69 70 74 4e .. set scriptN
1230: 61 6d 65 20 5b 6d 61 6b 65 46 69 6c 65 20 7b 7d ame [makeFile {}
1240: 20 73 63 72 69 70 74 31 2e 74 63 6c 5d 0d 0a 20 script1.tcl]..
1250: 20 0d 0a 21 20 70 72 6f 63 20 63 72 65 61 74 65 ..! proc create
1260: 43 68 69 6c 64 50 72 6f 63 65 73 73 20 7b 20 64 ChildProcess { d
1270: 64 65 53 65 72 76 65 72 4e 61 6d 65 20 7b 68 61 deServerName {ha
1280: 6e 64 6c 65 72 20 7b 7d 7d 7d 20 7b 0d 0a 20 20 ndler {}}} {..
1290: 20 20 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20 file delete
12a0: 2d 66 6f 72 63 65 20 24 3a 3a 73 63 72 69 70 74 -force $::script
12b0: 4e 61 6d 65 0d 0a 20 20 0d 0a 20 20 20 20 20 20 Name.. ..
12c0: 73 65 74 20 66 20 5b 6f 70 65 6e 20 24 3a 3a 73 set f [open $::s
12d0: 63 72 69 70 74 4e 61 6d 65 20 77 2b 5d 0d 0a 2b criptName w+]..+
12e0: 20 20 20 20 20 70 75 74 73 20 24 66 20 5b 6c 69 puts $f [li
12f0: 73 74 20 73 65 74 20 64 64 65 53 65 72 76 65 72 st set ddeServer
1300: 4e 61 6d 65 20 24 64 64 65 53 65 72 76 65 72 4e Name $ddeServerN
1310: 61 6d 65 5d 0d 0a 20 20 20 20 20 20 70 75 74 73 ame].. puts
1320: 20 24 66 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 $f {..
1330: 20 23 20 44 44 45 20 63 68 69 6c 64 20 73 65 72 # DDE child ser
1340: 76 65 72 20 2d 0d 0a 20 20 20 20 20 20 20 20 20 ver -..
1350: 20 23 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a #..************
1360: 2a 2a 2a 0d 0a 2a 2a 2a 20 35 39 2c 37 33 20 2a ***..*** 59,73 *
1370: 2a 2a 2a 0d 0a 20 20 20 20 20 20 20 20 20 20 0d ***.. .
1380: 0a 20 20 20 20 20 20 20 20 20 20 23 20 49 66 20 . # If
1390: 61 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 73 20 an error occurs
13a0: 64 75 72 69 6e 67 20 74 68 65 20 74 65 73 74 73 during the tests
13b0: 2c 20 74 68 69 73 20 70 72 6f 63 65 73 73 20 6d , this process m
13c0: 61 79 20 65 6e 64 20 75 70 20 6e 6f 74 0d 0a 20 ay end up not..
13d0: 20 20 20 20 20 20 20 20 20 23 20 62 65 69 6e 67 # being
13e0: 20 63 6c 6f 73 65 64 20 64 6f 77 6e 2e 20 54 6f closed down. To
13f0: 20 64 65 61 6c 20 77 69 74 68 20 74 68 69 73 20 deal with this
1400: 77 65 20 63 72 65 61 74 65 20 61 20 33 30 73 20 we create a 30s
1410: 74 69 6d 65 6f 75 74 2e 0d 0a 21 20 20 20 20 20 timeout...!
1420: 20 20 20 20 70 72 6f 63 20 44 6f 54 69 6d 65 6f proc DoTimeo
1430: 75 74 20 7b 7d 20 7b 0d 0a 21 20 20 20 20 20 20 ut {} {..!
1440: 20 20 20 20 20 20 20 67 6c 6f 62 61 6c 20 64 6f global do
1450: 6e 65 0d 0a 21 20 20 20 20 20 20 20 20 20 20 20 ne..!
1460: 20 20 70 75 74 73 20 73 74 64 65 72 72 20 22 77 puts stderr "w
1470: 69 6e 44 64 65 2e 74 65 73 74 20 63 68 69 6c 64 inDde.test child
1480: 20 70 72 6f 63 65 73 73 20 24 64 64 65 53 65 72 process $ddeSer
1490: 76 65 72 4e 61 6d 65 20 74 69 6d 65 64 20 6f 75 verName timed ou
14a0: 74 2e 22 0d 0a 20 20 20 20 20 20 20 20 20 20 20 t."..
14b0: 20 20 20 73 65 74 20 64 6f 6e 65 20 31 0d 0a 20 set done 1..
14c0: 20 20 20 20 20 20 20 20 20 7d 0d 0a 2d 20 20 20 }..-
14d0: 20 20 20 20 20 20 73 65 74 20 74 69 6d 65 6f 75 set timeou
14e0: 74 20 5b 61 66 74 65 72 20 33 30 30 30 30 20 44 t [after 30000 D
14f0: 6f 54 69 6d 65 6f 75 74 5d 0d 0a 20 20 20 20 20 oTimeout]..
1500: 20 7d 0d 0a 20 20 20 20 20 20 23 20 73 65 74 20 }.. # set
1510: 74 68 65 20 64 64 65 20 73 65 72 76 65 72 20 6e the dde server n
1520: 61 6d 65 20 74 6f 20 74 68 65 20 73 75 70 70 6c ame to the suppl
1530: 69 65 64 20 61 72 67 75 6d 65 6e 74 2e 0d 0a 21 ied argument...!
1540: 20 20 20 20 20 70 75 74 73 20 24 66 20 5b 6c 69 puts $f [li
1550: 73 74 20 64 64 65 20 73 65 72 76 65 72 6e 61 6d st dde servernam
1560: 65 20 24 64 64 65 53 65 72 76 65 72 4e 61 6d 65 e $ddeServerName
1570: 5d 0d 0a 20 20 20 20 20 20 70 75 74 73 20 24 66 ].. puts $f
1580: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 {.. #
1590: 72 75 6e 20 74 68 65 20 73 65 72 76 65 72 20 61 run the server a
15a0: 6e 64 20 68 61 6e 64 6c 65 20 66 69 6e 61 6c 20 nd handle final
15b0: 63 6c 65 61 6e 75 70 2e 0d 0a 20 20 20 20 20 20 cleanup...
15c0: 20 20 20 20 61 66 74 65 72 20 32 30 30 3b 23 20 after 200;#
15d0: 67 69 76 65 20 64 64 65 20 61 20 63 68 61 6e 63 give dde a chanc
15e0: 65 20 74 6f 20 67 65 74 20 67 6f 69 6e 67 2e 0d e to get going..
15f0: 0a 2d 2d 2d 20 36 31 2c 39 37 20 2d 2d 2d 2d 0d .--- 61,97 ----.
1600: 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 . ..
1610: 20 20 20 20 20 20 20 23 20 49 66 20 61 6e 20 65 # If an e
1620: 72 72 6f 72 20 6f 63 63 75 72 73 20 64 75 72 69 rror occurs duri
1630: 6e 67 20 74 68 65 20 74 65 73 74 73 2c 20 74 68 ng the tests, th
1640: 69 73 20 70 72 6f 63 65 73 73 20 6d 61 79 20 65 is process may e
1650: 6e 64 20 75 70 20 6e 6f 74 0d 0a 20 20 20 20 20 nd up not..
1660: 20 20 20 20 20 23 20 62 65 69 6e 67 20 63 6c 6f # being clo
1670: 73 65 64 20 64 6f 77 6e 2e 20 54 6f 20 64 65 61 sed down. To dea
1680: 6c 20 77 69 74 68 20 74 68 69 73 20 77 65 20 63 l with this we c
1690: 72 65 61 74 65 20 61 20 33 30 73 20 74 69 6d 65 reate a 30s time
16a0: 6f 75 74 2e 0d 0a 21 20 20 20 20 20 20 20 20 20 out...!
16b0: 70 72 6f 63 20 3a 3a 44 6f 54 69 6d 65 6f 75 74 proc ::DoTimeout
16c0: 20 7b 7d 20 7b 0d 0a 21 20 20 20 20 20 20 20 20 {} {..!
16d0: 20 20 20 20 20 67 6c 6f 62 61 6c 20 64 6f 6e 65 global done
16e0: 20 64 64 65 53 65 72 76 65 72 4e 61 6d 65 0d 0a ddeServerName..
16f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 se
1700: 74 20 64 6f 6e 65 20 31 0d 0a 2b 20 20 20 20 20 t done 1..+
1710: 20 20 20 20 20 20 20 20 70 75 74 73 20 22 77 69 puts "wi
1720: 6e 44 64 65 2e 74 65 73 74 20 63 68 69 6c 64 20 nDde.test child
1730: 70 72 6f 63 65 73 73 20 24 64 64 65 53 65 72 76 process $ddeServ
1740: 65 72 4e 61 6d 65 20 74 69 6d 65 64 20 6f 75 74 erName timed out
1750: 2e 22 0d 0a 2b 20 20 20 20 20 20 20 20 20 20 20 ."..+
1760: 20 20 66 6c 75 73 68 20 73 74 64 6f 75 74 0d 0a flush stdout..
1770: 2b 20 20 20 20 20 20 20 20 20 7d 0d 0a 2b 20 20 + }..+
1780: 20 20 20 20 20 20 20 73 65 74 20 74 69 6d 65 6f set timeo
1790: 75 74 20 5b 61 66 74 65 72 20 33 30 30 30 30 20 ut [after 30000
17a0: 3a 3a 44 6f 54 69 6d 65 6f 75 74 5d 0d 0a 2b 20 ::DoTimeout]..+
17b0: 20 20 20 20 20 20 20 20 0d 0a 2b 20 20 20 20 20 ..+
17c0: 20 20 20 20 23 20 44 65 66 69 6e 65 20 61 20 72 # Define a r
17d0: 65 73 74 72 69 63 74 65 64 20 68 61 6e 64 6c 65 estricted handle
17e0: 72 2e 0d 0a 2b 20 20 20 20 20 20 20 20 20 70 72 r...+ pr
17f0: 6f 63 20 48 61 6e 64 6c 65 72 31 20 7b 63 6d 64 oc Handler1 {cmd
1800: 7d 20 7b 0d 0a 2b 20 20 20 20 20 20 20 20 20 20 } {..+
1810: 20 20 20 69 66 20 7b 24 63 6d 64 20 65 71 20 22 if {$cmd eq "
1820: 73 74 6f 70 22 7d 20 7b 73 65 74 20 3a 3a 64 6f stop"} {set ::do
1830: 6e 65 20 31 7d 0d 0a 2b 20 20 20 20 20 20 20 20 ne 1}..+
1840: 20 20 20 20 20 70 75 74 73 20 24 63 6d 64 20 3b puts $cmd ;
1850: 20 66 6c 75 73 68 20 73 74 64 6f 75 74 20 0d 0a flush stdout ..
1860: 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 + re
1870: 74 75 72 6e 0d 0a 2b 20 20 20 20 20 20 20 20 20 turn..+
1880: 7d 0d 0a 2b 20 20 20 20 20 20 20 20 20 70 72 6f }..+ pro
1890: 63 20 48 61 6e 64 6c 65 72 32 20 7b 63 6d 64 7d c Handler2 {cmd}
18a0: 20 7b 0d 0a 2b 20 20 20 20 20 20 20 20 20 20 20 {..+
18b0: 20 20 69 66 20 7b 24 63 6d 64 20 65 71 20 22 73 if {$cmd eq "s
18c0: 74 6f 70 22 7d 20 7b 73 65 74 20 3a 3a 64 6f 6e top"} {set ::don
18d0: 65 20 31 7d 0d 0a 2b 20 20 20 20 20 20 20 20 20 e 1}..+
18e0: 20 20 20 20 70 75 74 73 20 5b 75 70 6c 65 76 65 puts [upleve
18f0: 6c 20 5c 23 30 20 24 63 6d 64 5d 20 3b 20 66 6c l \#0 $cmd] ; fl
1900: 75 73 68 20 73 74 64 6f 75 74 20 0d 0a 2b 20 20 ush stdout ..+
1910: 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 retur
1920: 6e 0d 0a 2b 20 20 20 20 20 20 20 20 20 7d 0d 0a n..+ }..
1930: 2b 20 20 20 20 20 20 20 20 20 70 72 6f 63 20 48 + proc H
1940: 61 6e 64 6c 65 72 33 20 7b 70 72 65 66 69 78 20 andler3 {prefix
1950: 63 6d 64 7d 20 7b 0d 0a 2b 20 20 20 20 20 20 20 cmd} {..+
1960: 20 20 20 20 20 20 69 66 20 7b 24 63 6d 64 20 65 if {$cmd e
1970: 71 20 22 73 74 6f 70 22 7d 20 7b 73 65 74 20 3a q "stop"} {set :
1980: 3a 64 6f 6e 65 20 31 7d 0d 0a 2b 20 20 20 20 20 :done 1}..+
1990: 20 20 20 20 20 20 20 20 70 75 74 73 20 5b 6c 69 puts [li
19a0: 73 74 20 24 70 72 65 66 69 78 20 24 63 6d 64 5d st $prefix $cmd]
19b0: 20 3b 20 66 6c 75 73 68 20 73 74 64 6f 75 74 0d ; flush stdout.
19c0: 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 72 .+ r
19d0: 65 74 75 72 6e 0d 0a 20 20 20 20 20 20 20 20 20 eturn..
19e0: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 }.. }..
19f0: 20 20 20 23 20 73 65 74 20 74 68 65 20 64 64 65 # set the dde
1a00: 20 73 65 72 76 65 72 20 6e 61 6d 65 20 74 6f 20 server name to
1a10: 74 68 65 20 73 75 70 70 6c 69 65 64 20 61 72 67 the supplied arg
1a20: 75 6d 65 6e 74 2e 0d 0a 21 20 20 20 20 20 69 66 ument...! if
1a30: 20 7b 24 68 61 6e 64 6c 65 72 20 3d 3d 20 7b 7d {$handler == {}
1a40: 7d 20 7b 0d 0a 21 20 20 20 20 20 20 20 20 20 70 } {..! p
1a50: 75 74 73 20 24 66 20 5b 6c 69 73 74 20 64 64 65 uts $f [list dde
1a60: 20 73 65 72 76 65 72 6e 61 6d 65 20 24 64 64 65 servername $dde
1a70: 53 65 72 76 65 72 4e 61 6d 65 5d 0d 0a 21 20 20 ServerName]..!
1a80: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 21 20 20 } else {..!
1a90: 20 20 20 20 20 20 20 70 75 74 73 20 24 66 20 5b puts $f [
1aa0: 6c 69 73 74 20 64 64 65 20 73 65 72 76 65 72 6e list dde servern
1ab0: 61 6d 65 20 2d 68 61 6e 64 6c 65 72 20 24 68 61 ame -handler $ha
1ac0: 6e 64 6c 65 72 20 2d 2d 20 24 64 64 65 53 65 72 ndler -- $ddeSer
1ad0: 76 65 72 4e 61 6d 65 5d 0d 0a 21 20 20 20 20 20 verName]..!
1ae0: 7d 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 } ..
1af0: 20 70 75 74 73 20 24 66 20 7b 0d 0a 20 20 20 20 puts $f {..
1b00: 20 20 20 20 20 20 23 20 72 75 6e 20 74 68 65 20 # run the
1b10: 73 65 72 76 65 72 20 61 6e 64 20 68 61 6e 64 6c server and handl
1b20: 65 20 66 69 6e 61 6c 20 63 6c 65 61 6e 75 70 2e e final cleanup.
1b30: 0d 0a 20 20 20 20 20 20 20 20 20 20 61 66 74 65 .. afte
1b40: 72 20 32 30 30 3b 23 20 67 69 76 65 20 64 64 65 r 200;# give dde
1b50: 20 61 20 63 68 61 6e 63 65 20 74 6f 20 67 65 74 a chance to get
1b60: 20 67 6f 69 6e 67 2e 0d 0a 2a 2a 2a 2a 2a 2a 2a going...*******
1b70: 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 32 31 ********..*** 21
1b80: 32 2c 32 31 38 20 2a 2a 2a 2a 0d 0a 20 20 74 65 2,218 ****.. te
1b90: 73 74 20 77 69 6e 44 64 65 2d 36 2e 31 20 7b 44 st winDde-6.1 {D
1ba0: 44 45 20 73 65 72 76 65 72 6e 61 6d 65 20 62 61 DE servername ba
1bb0: 64 20 61 72 67 75 6d 65 6e 74 73 7d 20 5c 0d 0a d arguments} \..
1bc0: 20 20 20 20 20 20 2d 63 6f 6e 73 74 72 61 69 6e -constrain
1bd0: 74 73 20 70 63 4f 6e 6c 79 20 5c 0d 0a 20 20 20 ts pcOnly \..
1be0: 20 20 20 2d 62 6f 64 79 20 7b 6c 69 73 74 20 5b -body {list [
1bf0: 63 61 74 63 68 20 7b 64 64 65 20 73 65 72 76 65 catch {dde serve
1c00: 72 6e 61 6d 65 20 2d 7a 20 2d 7a 20 2d 7a 7d 20 rname -z -z -z}
1c10: 6d 73 67 5d 20 24 6d 73 67 7d 20 5c 0d 0a 21 20 msg] $msg} \..!
1c20: 20 20 20 20 2d 72 65 73 75 6c 74 20 7b 31 20 7b -result {1 {
1c30: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 wrong # args: sh
1c40: 6f 75 6c 64 20 62 65 20 22 64 64 65 20 73 65 72 ould be "dde ser
1c50: 76 65 72 6e 61 6d 65 20 3f 2d 65 78 61 63 74 3f vername ?-exact?
1c60: 20 3f 2d 2d 3f 20 3f 73 65 72 76 65 72 4e 61 6d ?--? ?serverNam
1c70: 65 3f 22 7d 7d 0d 0a 20 20 0d 0a 20 20 74 65 73 e?"}}.. .. tes
1c80: 74 20 77 69 6e 44 64 65 2d 36 2e 32 20 7b 44 44 t winDde-6.2 {DD
1c90: 45 20 73 65 72 76 65 72 6e 61 6d 65 20 73 65 74 E servername set
1ca0: 20 6e 61 6d 65 7d 20 5c 0d 0a 20 20 20 20 20 20 name} \..
1cb0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 70 63 4f -constraints pcO
1cc0: 6e 6c 79 20 5c 0d 0a 2d 2d 2d 20 32 33 36 2c 32 nly \..--- 236,2
1cd0: 34 32 20 2d 2d 2d 2d 0d 0a 20 20 74 65 73 74 20 42 ----.. test
1ce0: 77 69 6e 44 64 65 2d 36 2e 31 20 7b 44 44 45 20 winDde-6.1 {DDE
1cf0: 73 65 72 76 65 72 6e 61 6d 65 20 62 61 64 20 61 servername bad a
1d00: 72 67 75 6d 65 6e 74 73 7d 20 5c 0d 0a 20 20 20 rguments} \..
1d10: 20 20 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 -constraints
1d20: 70 63 4f 6e 6c 79 20 5c 0d 0a 20 20 20 20 20 20 pcOnly \..
1d30: 2d 62 6f 64 79 20 7b 6c 69 73 74 20 5b 63 61 74 -body {list [cat
1d40: 63 68 20 7b 64 64 65 20 73 65 72 76 65 72 6e 61 ch {dde serverna
1d50: 6d 65 20 2d 7a 20 2d 7a 20 2d 7a 7d 20 6d 73 67 me -z -z -z} msg
1d60: 5d 20 24 6d 73 67 7d 20 5c 0d 0a 21 20 20 20 20 ] $msg} \..!
1d70: 20 2d 72 65 73 75 6c 74 20 7b 31 20 7b 77 72 6f -result {1 {wro
1d80: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c ng # args: shoul
1d90: 64 20 62 65 20 22 64 64 65 20 73 65 72 76 65 72 d be "dde server
1da0: 6e 61 6d 65 20 3f 2d 65 78 61 63 74 3f 20 3f 2d name ?-exact? ?-
1db0: 68 61 6e 64 6c 65 72 20 70 72 6f 63 3f 20 3f 2d handler proc? ?-
1dc0: 2d 3f 20 3f 73 65 72 76 65 72 4e 61 6d 65 3f 22 -? ?serverName?"
1dd0: 7d 7d 0d 0a 20 20 0d 0a 20 20 74 65 73 74 20 77 }}.. .. test w
1de0: 69 6e 44 64 65 2d 36 2e 32 20 7b 44 44 45 20 73 inDde-6.2 {DDE s
1df0: 65 72 76 65 72 6e 61 6d 65 20 73 65 74 20 6e 61 ervername set na
1e00: 6d 65 7d 20 5c 0d 0a 20 20 20 20 20 20 2d 63 6f me} \.. -co
1e10: 6e 73 74 72 61 69 6e 74 73 20 70 63 4f 6e 6c 79 nstraints pcOnly
1e20: 20 5c 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a \..************
1e30: 2a 2a 2a 0d 0a 2a 2a 2a 20 33 33 38 2c 33 34 38 ***..*** 338,348
1e40: 20 2a 2a 2a 2a 0d 0a 20 20 20 20 20 20 7d 20 5c ****.. } \
1e50: 0d 0a 20 20 20 20 20 20 2d 72 65 73 75 6c 74 20 .. -result
1e60: 22 64 64 65 2d 69 6e 74 65 72 70 2d 37 2e 35 20 "dde-interp-7.5
1e70: 23 32 22 0d 0a 20 20 0d 0a 20 20 0d 0a 20 20 23 #2".. .. .. #
1e80: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ---------------
1e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 20 0d 0a ----------.. ..
1ed0: 20 20 23 63 6c 65 61 6e 75 70 0d 0a 21 20 63 61 #cleanup..! ca
1ee0: 74 63 68 20 7b 69 6e 74 65 72 70 20 64 65 6c 65 tch {interp dele
1ef0: 74 65 20 24 73 6c 61 76 65 7d 3b 20 20 20 20 20 te $slave};
1f00: 20 20 20 20 20 20 23 20 65 6e 73 75 72 65 20 77 # ensure w
1f10: 65 20 63 6c 65 61 6e 20 75 70 20 74 68 65 20 73 e clean up the s
1f20: 6c 61 76 65 2e 0d 0a 20 20 66 69 6c 65 20 64 65 lave... file de
1f30: 6c 65 74 65 20 2d 66 6f 72 63 65 20 24 3a 3a 73 lete -force $::s
1f40: 63 72 69 70 74 4e 61 6d 65 0d 0a 20 20 3a 3a 74 criptName.. ::t
1f50: 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70 54 cltest::cleanupT
1f60: 65 73 74 73 0d 0a 20 20 72 65 74 75 72 6e 0d 0a ests.. return..
1f70: 2d 2d 2d 20 33 36 32 2c 35 39 32 20 2d 2d 2d 2d --- 362,592 ----
1f80: 0d 0a 20 20 20 20 20 20 7d 20 5c 0d 0a 20 20 20 .. } \..
1f90: 20 20 20 2d 72 65 73 75 6c 74 20 22 64 64 65 2d -result "dde-
1fa0: 69 6e 74 65 72 70 2d 37 2e 35 20 23 32 22 0d 0a interp-7.5 #2"..
1fb0: 20 20 0d 0a 2b 20 23 20 2d 2d 2d 2d 2d 2d 2d 2d ..+ # --------
1fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2000: 2d 0d 0a 2b 20 0d 0a 2b 20 74 65 73 74 20 77 69 -..+ ..+ test wi
2010: 6e 44 64 65 2d 38 2e 31 20 7b 53 61 66 65 20 44 nDde-8.1 {Safe D
2020: 44 45 20 6c 6f 61 64 7d 20 5c 0d 0a 2b 20 20 20 DE load} \..+
2030: 20 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 70 -constraints p
2040: 63 4f 6e 6c 79 20 5c 0d 0a 2b 20 20 20 20 20 2d cOnly \..+ -
2050: 73 65 74 75 70 20 7b 0d 0a 2b 20 20 20 20 20 20 setup {..+
2060: 20 20 20 69 6e 74 65 72 70 20 63 72 65 61 74 65 interp create
2070: 20 2d 73 61 66 65 20 73 6c 61 76 65 0d 0a 2b 20 -safe slave..+
2080: 20 20 20 20 20 20 20 20 73 6c 61 76 65 20 69 6e slave in
2090: 76 6f 6b 65 68 69 64 64 65 6e 20 6c 6f 61 64 20 vokehidden load
20a0: 24 6c 69 62 20 64 64 65 0d 0a 2b 20 20 20 20 20 $lib dde..+
20b0: 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d 62 6f 64 79 } \..+ -body
20c0: 20 7b 0d 0a 2b 20 20 20 20 20 20 20 20 20 6c 69 {..+ li
20d0: 73 74 20 5b 63 61 74 63 68 20 7b 73 6c 61 76 65 st [catch {slave
20e0: 20 65 76 61 6c 20 64 64 65 20 73 65 72 76 65 72 eval dde server
20f0: 6e 61 6d 65 20 73 6c 61 76 65 7d 20 6d 73 67 5d name slave} msg]
2100: 20 24 6d 73 67 0d 0a 2b 20 20 20 20 20 7d 20 5c $msg..+ } \
2110: 0d 0a 2b 20 20 20 20 20 2d 63 6c 65 61 6e 75 70 ..+ -cleanup
2120: 20 7b 69 6e 74 65 72 70 20 64 65 6c 65 74 65 20 {interp delete
2130: 73 6c 61 76 65 7d 20 5c 0d 0a 2b 20 20 20 20 20 slave} \..+
2140: 2d 72 65 73 75 6c 74 20 7b 31 20 7b 69 6e 76 61 -result {1 {inva
2150: 6c 69 64 20 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 lid command name
2160: 20 22 64 64 65 22 7d 7d 0d 0a 2b 20 0d 0a 2b 20 "dde"}}..+ ..+
2170: 74 65 73 74 20 77 69 6e 44 64 65 2d 38 2e 32 20 test winDde-8.2
2180: 7b 53 61 66 65 20 44 44 45 20 73 65 74 20 73 65 {Safe DDE set se
2190: 72 76 65 72 6e 61 6d 65 7d 20 5c 0d 0a 2b 20 20 rvername} \..+
21a0: 20 20 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 -constraints
21b0: 70 63 4f 6e 6c 79 20 5c 0d 0a 2b 20 20 20 20 20 pcOnly \..+
21c0: 2d 73 65 74 75 70 20 7b 0d 0a 2b 20 20 20 20 20 -setup {..+
21d0: 20 20 20 20 69 6e 74 65 72 70 20 63 72 65 61 74 interp creat
21e0: 65 20 2d 73 61 66 65 20 73 6c 61 76 65 0d 0a 2b e -safe slave..+
21f0: 20 20 20 20 20 20 20 20 20 73 6c 61 76 65 20 69 slave i
2200: 6e 76 6f 6b 65 68 69 64 64 65 6e 20 6c 6f 61 64 nvokehidden load
2210: 20 24 6c 69 62 20 64 64 65 0d 0a 2b 20 20 20 20 $lib dde..+
2220: 20 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d 62 6f 64 } \..+ -bod
2230: 79 20 7b 0d 0a 2b 20 20 20 20 20 20 20 20 20 73 y {..+ s
2240: 6c 61 76 65 20 69 6e 76 6f 6b 65 68 69 64 64 65 lave invokehidde
2250: 6e 20 64 64 65 20 73 65 72 76 65 72 6e 61 6d 65 n dde servername
2260: 20 73 6c 61 76 65 0d 0a 2b 20 20 20 20 20 7d 20 slave..+ }
2270: 5c 0d 0a 2b 20 20 20 20 20 2d 63 6c 65 61 6e 75 \..+ -cleanu
2280: 70 20 7b 69 6e 74 65 72 70 20 64 65 6c 65 74 65 p {interp delete
2290: 20 73 6c 61 76 65 7d 20 5c 0d 0a 2b 20 20 20 20 slave} \..+
22a0: 20 2d 72 65 73 75 6c 74 20 7b 73 6c 61 76 65 7d -result {slave}
22b0: 0d 0a 2b 20 0d 0a 2b 20 74 65 73 74 20 77 69 6e ..+ ..+ test win
22c0: 44 64 65 2d 38 2e 33 20 7b 53 61 66 65 20 44 44 Dde-8.3 {Safe DD
22d0: 45 20 63 68 65 63 6b 20 68 61 6e 64 6c 65 72 20 E check handler
22e0: 72 65 71 75 69 72 65 64 20 66 6f 72 20 65 76 61 required for eva
22f0: 6c 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d 63 6f 6e l} \..+ -con
2300: 73 74 72 61 69 6e 74 73 20 70 63 4f 6e 6c 79 20 straints pcOnly
2310: 5c 0d 0a 2b 20 20 20 20 20 2d 73 65 74 75 70 20 \..+ -setup
2320: 7b 0d 0a 2b 20 20 20 20 20 20 20 20 20 69 6e 74 {..+ int
2330: 65 72 70 20 63 72 65 61 74 65 20 2d 73 61 66 65 erp create -safe
2340: 20 73 6c 61 76 65 0d 0a 2b 20 20 20 20 20 20 20 slave..+
2350: 20 20 73 6c 61 76 65 20 69 6e 76 6f 6b 65 68 69 slave invokehi
2360: 64 64 65 6e 20 6c 6f 61 64 20 24 6c 69 62 20 64 dden load $lib d
2370: 64 65 0d 0a 2b 20 20 20 20 20 20 20 20 20 73 6c de..+ sl
2380: 61 76 65 20 69 6e 76 6f 6b 65 68 69 64 64 65 6e ave invokehidden
2390: 20 64 64 65 20 73 65 72 76 65 72 6e 61 6d 65 20 dde servername
23a0: 73 6c 61 76 65 0d 0a 2b 20 20 20 20 20 7d 20 5c slave..+ } \
23b0: 0d 0a 2b 20 20 20 20 20 2d 62 6f 64 79 20 7b 0d ..+ -body {.
23c0: 0a 2b 20 20 20 20 20 20 20 20 20 63 61 74 63 68 .+ catch
23d0: 20 7b 64 64 65 20 65 76 61 6c 20 73 6c 61 76 65 {dde eval slave
23e0: 20 73 65 74 20 61 20 31 7d 20 6d 73 67 0d 0a 2b set a 1} msg..+
23f0: 20 20 20 20 20 7d 20 5c 0d 0a 2b 20 20 20 20 20 } \..+
2400: 2d 63 6c 65 61 6e 75 70 20 7b 69 6e 74 65 72 70 -cleanup {interp
2410: 20 64 65 6c 65 74 65 20 73 6c 61 76 65 7d 20 5c delete slave} \
2420: 0d 0a 2b 20 20 20 20 20 2d 72 65 73 75 6c 74 20 ..+ -result
2430: 7b 31 7d 0d 0a 2b 20 0d 0a 2b 20 74 65 73 74 20 {1}..+ ..+ test
2440: 77 69 6e 44 64 65 2d 38 2e 34 20 7b 53 61 66 65 winDde-8.4 {Safe
2450: 20 44 44 45 20 63 68 65 63 6b 20 74 68 61 74 20 DDE check that
2460: 65 78 65 63 75 74 65 20 69 73 20 64 65 6e 69 65 execute is denie
2470: 64 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d 63 6f 6e d} \..+ -con
2480: 73 74 72 61 69 6e 74 73 20 70 63 4f 6e 6c 79 20 straints pcOnly
2490: 5c 0d 0a 2b 20 20 20 20 20 2d 73 65 74 75 70 20 \..+ -setup
24a0: 7b 0d 0a 2b 20 20 20 20 20 20 20 20 20 69 6e 74 {..+ int
24b0: 65 72 70 20 63 72 65 61 74 65 20 2d 73 61 66 65 erp create -safe
24c0: 20 73 6c 61 76 65 0d 0a 2b 20 20 20 20 20 20 20 slave..+
24d0: 20 20 73 6c 61 76 65 20 69 6e 76 6f 6b 65 68 69 slave invokehi
24e0: 64 64 65 6e 20 6c 6f 61 64 20 24 6c 69 62 20 64 dden load $lib d
24f0: 64 65 0d 0a 2b 20 20 20 20 20 20 20 20 20 73 6c de..+ sl
2500: 61 76 65 20 69 6e 76 6f 6b 65 68 69 64 64 65 6e ave invokehidden
2510: 20 64 64 65 20 73 65 72 76 65 72 6e 61 6d 65 20 dde servername
2520: 73 6c 61 76 65 0d 0a 2b 20 20 20 20 20 7d 20 5c slave..+ } \
2530: 0d 0a 2b 20 20 20 20 20 2d 62 6f 64 79 20 7b 0d ..+ -body {.
2540: 0a 2b 20 20 20 20 20 20 20 20 20 73 6c 61 76 65 .+ slave
2550: 20 65 76 61 6c 20 73 65 74 20 61 20 31 0d 0a 2b eval set a 1..+
2560: 20 20 20 20 20 20 20 20 20 6c 69 73 74 20 5b 63 list [c
2570: 61 74 63 68 20 7b 0d 0a 2b 20 20 20 20 20 20 20 atch {..+
2580: 20 20 20 20 20 20 64 64 65 20 65 78 65 63 75 74 dde execut
2590: 65 20 54 63 6c 45 76 61 6c 20 73 6c 61 76 65 20 e TclEval slave
25a0: 7b 73 65 74 20 61 20 32 7d 0d 0a 2b 20 20 20 20 {set a 2}..+
25b0: 20 20 20 20 20 20 20 20 20 73 6c 61 76 65 20 65 slave e
25c0: 76 61 6c 20 73 65 74 20 61 0d 0a 2b 20 20 20 20 val set a..+
25d0: 20 20 20 20 20 7d 20 6d 73 67 5d 20 24 6d 73 67 } msg] $msg
25e0: 0d 0a 2b 20 20 20 20 20 7d 20 5c 0d 0a 2b 20 20 ..+ } \..+
25f0: 20 20 20 2d 63 6c 65 61 6e 75 70 20 7b 69 6e 74 -cleanup {int
2600: 65 72 70 20 64 65 6c 65 74 65 20 73 6c 61 76 65 erp delete slave
2610: 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d 72 65 73 75 } \..+ -resu
2620: 6c 74 20 7b 30 20 31 7d 0d 0a 2b 20 0d 0a 2b 20 lt {0 1}..+ ..+
2630: 74 65 73 74 20 77 69 6e 44 64 65 2d 38 2e 35 20 test winDde-8.5
2640: 7b 53 61 66 65 20 44 44 45 20 63 68 65 63 6b 20 {Safe DDE check
2650: 74 68 61 74 20 72 65 71 75 65 73 74 20 69 73 20 that request is
2660: 64 65 6e 69 65 64 7d 20 5c 0d 0a 2b 20 20 20 20 denied} \..+
2670: 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 70 63 -constraints pc
2680: 4f 6e 6c 79 20 5c 0d 0a 2b 20 20 20 20 20 2d 73 Only \..+ -s
2690: 65 74 75 70 20 7b 0d 0a 2b 20 20 20 20 20 20 20 etup {..+
26a0: 20 20 69 6e 74 65 72 70 20 63 72 65 61 74 65 20 interp create
26b0: 2d 73 61 66 65 20 73 6c 61 76 65 0d 0a 2b 20 20 -safe slave..+
26c0: 20 20 20 20 20 20 20 73 6c 61 76 65 20 69 6e 76 slave inv
26d0: 6f 6b 65 68 69 64 64 65 6e 20 6c 6f 61 64 20 24 okehidden load $
26e0: 6c 69 62 20 64 64 65 0d 0a 2b 20 20 20 20 20 20 lib dde..+
26f0: 20 20 20 73 6c 61 76 65 20 69 6e 76 6f 6b 65 68 slave invokeh
2700: 69 64 64 65 6e 20 64 64 65 20 73 65 72 76 65 72 idden dde server
2710: 6e 61 6d 65 20 73 6c 61 76 65 0d 0a 2b 20 20 20 name slave..+
2720: 20 20 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d 62 6f } \..+ -bo
2730: 64 79 20 7b 0d 0a 2b 20 20 20 20 20 20 20 20 20 dy {..+
2740: 73 6c 61 76 65 20 65 76 61 6c 20 73 65 74 20 61 slave eval set a
2750: 20 31 0d 0a 2b 20 20 20 20 20 20 20 20 20 6c 69 1..+ li
2760: 73 74 20 5b 63 61 74 63 68 20 7b 64 64 65 20 72 st [catch {dde r
2770: 65 71 75 65 73 74 20 54 63 6c 45 76 61 6c 20 73 equest TclEval s
2780: 6c 61 76 65 20 61 7d 20 6d 73 67 5d 20 24 6d 73 lave a} msg] $ms
2790: 67 0d 0a 2b 20 20 20 20 20 7d 20 5c 0d 0a 2b 20 g..+ } \..+
27a0: 20 20 20 20 2d 63 6c 65 61 6e 75 70 20 7b 69 6e -cleanup {in
27b0: 74 65 72 70 20 64 65 6c 65 74 65 20 73 6c 61 76 terp delete slav
27c0: 65 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d 72 65 73 e} \..+ -res
27d0: 75 6c 74 20 7b 31 20 7b 72 65 6d 6f 74 65 20 73 ult {1 {remote s
27e0: 65 72 76 65 72 20 63 61 6e 6e 6f 74 20 68 61 6e erver cannot han
27f0: 64 6c 65 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 dle this command
2800: 7d 7d 0d 0a 2b 20 0d 0a 2b 20 74 65 73 74 20 77 }}..+ ..+ test w
2810: 69 6e 44 64 65 2d 38 2e 36 20 7b 53 61 66 65 20 inDde-8.6 {Safe
2820: 44 44 45 20 61 73 73 69 67 6e 20 68 61 6e 64 6c DDE assign handl
2830: 65 72 20 70 72 6f 63 65 64 75 72 65 7d 20 5c 0d er procedure} \.
2840: 0a 2b 20 20 20 20 20 2d 63 6f 6e 73 74 72 61 69 .+ -constrai
2850: 6e 74 73 20 70 63 4f 6e 6c 79 20 5c 0d 0a 2b 20 nts pcOnly \..+
2860: 20 20 20 20 2d 73 65 74 75 70 20 7b 0d 0a 2b 20 -setup {..+
2870: 20 20 20 20 20 20 20 20 69 6e 74 65 72 70 20 63 interp c
2880: 72 65 61 74 65 20 2d 73 61 66 65 20 73 6c 61 76 reate -safe slav
2890: 65 0d 0a 2b 20 20 20 20 20 20 20 20 20 73 6c 61 e..+ sla
28a0: 76 65 20 69 6e 76 6f 6b 65 68 69 64 64 65 6e 20 ve invokehidden
28b0: 6c 6f 61 64 20 24 6c 69 62 20 64 64 65 0d 0a 2b load $lib dde..+
28c0: 20 20 20 20 20 20 20 20 20 73 6c 61 76 65 20 65 slave e
28d0: 76 61 6c 20 7b 70 72 6f 63 20 44 44 45 41 43 43 val {proc DDEACC
28e0: 45 50 54 20 7b 63 6d 64 7d 20 7b 73 65 74 20 3a EPT {cmd} {set :
28f0: 3a 44 44 45 43 4d 44 20 24 63 6d 64 7d 7d 0d 0a :DDECMD $cmd}}..
2900: 2b 20 20 20 20 20 7d 20 5c 0d 0a 2b 20 20 20 20 + } \..+
2910: 20 2d 62 6f 64 79 20 7b 0d 0a 2b 20 20 20 20 20 -body {..+
2920: 20 20 20 20 73 6c 61 76 65 20 69 6e 76 6f 6b 65 slave invoke
2930: 68 69 64 64 65 6e 20 64 64 65 20 73 65 72 76 65 hidden dde serve
2940: 72 6e 61 6d 65 20 2d 68 61 6e 64 6c 65 72 20 44 rname -handler D
2950: 44 45 41 43 43 45 50 54 20 73 6c 61 76 65 0d 0a DEACCEPT slave..
2960: 2b 20 20 20 20 20 7d 20 5c 0d 0a 2b 20 20 20 20 + } \..+
2970: 20 2d 63 6c 65 61 6e 75 70 20 7b 69 6e 74 65 72 -cleanup {inter
2980: 70 20 64 65 6c 65 74 65 20 73 6c 61 76 65 7d 20 p delete slave}
2990: 5c 0d 0a 2b 20 20 20 20 20 2d 72 65 73 75 6c 74 \..+ -result
29a0: 20 73 6c 61 76 65 0d 0a 2b 20 0d 0a 2b 20 74 65 slave..+ ..+ te
29b0: 73 74 20 77 69 6e 44 64 65 2d 38 2e 37 20 7b 53 st winDde-8.7 {S
29c0: 61 66 65 20 44 44 45 20 63 68 65 63 6b 20 73 69 afe DDE check si
29d0: 6d 70 6c 65 20 63 6f 6d 6d 61 6e 64 7d 20 5c 0d mple command} \.
29e0: 0a 2b 20 20 20 20 20 2d 63 6f 6e 73 74 72 61 69 .+ -constrai
29f0: 6e 74 73 20 70 63 4f 6e 6c 79 20 5c 0d 0a 2b 20 nts pcOnly \..+
2a00: 20 20 20 20 2d 73 65 74 75 70 20 7b 0d 0a 2b 20 -setup {..+
2a10: 20 20 20 20 20 20 20 20 69 6e 74 65 72 70 20 63 interp c
2a20: 72 65 61 74 65 20 2d 73 61 66 65 20 73 6c 61 76 reate -safe slav
2a30: 65 0d 0a 2b 20 20 20 20 20 20 20 20 20 73 6c 61 e..+ sla
2a40: 76 65 20 69 6e 76 6f 6b 65 68 69 64 64 65 6e 20 ve invokehidden
2a50: 6c 6f 61 64 20 24 6c 69 62 20 64 64 65 0d 0a 2b load $lib dde..+
2a60: 20 20 20 20 20 20 20 20 20 73 6c 61 76 65 20 65 slave e
2a70: 76 61 6c 20 7b 70 72 6f 63 20 44 44 45 41 43 43 val {proc DDEACC
2a80: 45 50 54 20 7b 63 6d 64 7d 20 7b 73 65 74 20 3a EPT {cmd} {set :
2a90: 3a 44 44 45 43 4d 44 20 24 63 6d 64 7d 7d 0d 0a :DDECMD $cmd}}..
2aa0: 2b 20 20 20 20 20 20 20 20 20 73 6c 61 76 65 20 + slave
2ab0: 69 6e 76 6f 6b 65 68 69 64 64 65 6e 20 64 64 65 invokehidden dde
2ac0: 20 73 65 72 76 65 72 6e 61 6d 65 20 2d 68 61 6e servername -han
2ad0: 64 6c 65 72 20 44 44 45 41 43 43 45 50 54 20 73 dler DDEACCEPT s
2ae0: 6c 61 76 65 0d 0a 2b 20 20 20 20 20 7d 20 5c 0d lave..+ } \.
2af0: 0a 2b 20 20 20 20 20 2d 62 6f 64 79 20 7b 0d 0a .+ -body {..
2b00: 2b 20 20 20 20 20 20 20 20 20 6c 69 73 74 20 5b + list [
2b10: 63 61 74 63 68 20 7b 0d 0a 2b 20 20 20 20 20 20 catch {..+
2b20: 20 20 20 20 20 20 20 64 64 65 20 65 76 61 6c 20 dde eval
2b30: 73 6c 61 76 65 20 73 65 74 20 78 20 31 0d 0a 2b slave set x 1..+
2b40: 20 20 20 20 20 20 20 20 20 7d 20 6d 73 67 5d 20 } msg]
2b50: 24 6d 73 67 20 20 20 20 20 20 20 20 0d 0a 2b 20 $msg ..+
2b60: 20 20 20 20 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d } \..+ -
2b70: 63 6c 65 61 6e 75 70 20 7b 69 6e 74 65 72 70 20 cleanup {interp
2b80: 64 65 6c 65 74 65 20 73 6c 61 76 65 7d 20 5c 0d delete slave} \.
2b90: 0a 2b 20 20 20 20 20 2d 72 65 73 75 6c 74 20 7b .+ -result {
2ba0: 30 20 7b 73 65 74 20 78 20 31 7d 7d 0d 0a 2b 20 0 {set x 1}}..+
2bb0: 0d 0a 2b 20 74 65 73 74 20 77 69 6e 44 64 65 2d ..+ test winDde-
2bc0: 38 2e 38 20 7b 53 61 66 65 20 44 44 45 20 63 68 8.8 {Safe DDE ch
2bd0: 65 63 6b 20 6e 6f 6e 2d 6c 69 73 74 20 63 6f 6d eck non-list com
2be0: 6d 61 6e 64 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d mand} \..+ -
2bf0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 70 63 4f 6e constraints pcOn
2c00: 6c 79 20 5c 0d 0a 2b 20 20 20 20 20 2d 73 65 74 ly \..+ -set
2c10: 75 70 20 7b 0d 0a 2b 20 20 20 20 20 20 20 20 20 up {..+
2c20: 69 6e 74 65 72 70 20 63 72 65 61 74 65 20 2d 73 interp create -s
2c30: 61 66 65 20 73 6c 61 76 65 0d 0a 2b 20 20 20 20 afe slave..+
2c40: 20 20 20 20 20 73 6c 61 76 65 20 69 6e 76 6f 6b slave invok
2c50: 65 68 69 64 64 65 6e 20 6c 6f 61 64 20 24 6c 69 ehidden load $li
2c60: 62 20 64 64 65 0d 0a 2b 20 20 20 20 20 20 20 20 b dde..+
2c70: 20 73 6c 61 76 65 20 65 76 61 6c 20 7b 70 72 6f slave eval {pro
2c80: 63 20 44 44 45 41 43 43 45 50 54 20 7b 63 6d 64 c DDEACCEPT {cmd
2c90: 7d 20 7b 73 65 74 20 3a 3a 44 44 45 43 4d 44 20 } {set ::DDECMD
2ca0: 24 63 6d 64 7d 7d 0d 0a 2b 20 20 20 20 20 20 20 $cmd}}..+
2cb0: 20 20 73 6c 61 76 65 20 69 6e 76 6f 6b 65 68 69 slave invokehi
2cc0: 64 64 65 6e 20 64 64 65 20 73 65 72 76 65 72 6e dden dde servern
2cd0: 61 6d 65 20 2d 68 61 6e 64 6c 65 72 20 44 44 45 ame -handler DDE
2ce0: 41 43 43 45 50 54 20 73 6c 61 76 65 0d 0a 2b 20 ACCEPT slave..+
2cf0: 20 20 20 20 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d } \..+ -
2d00: 62 6f 64 79 20 7b 0d 0a 2b 20 20 20 20 20 20 20 body {..+
2d10: 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 0d list [catch {.
2d20: 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 73 .+ s
2d30: 65 74 20 73 20 22 63 3a 5c 5c 50 72 6f 67 72 61 et s "c:\\Progra
2d40: 6d 20 46 69 6c 65 73 5c 5c 4d 69 63 72 6f 73 6f m Files\\Microso
2d50: 66 74 20 56 69 73 75 61 6c 20 53 74 75 64 69 6f ft Visual Studio
2d60: 5c 5c 22 0d 0a 2b 20 20 20 20 20 20 20 20 20 20 \\"..+
2d70: 20 20 20 64 64 65 20 65 76 61 6c 20 73 6c 61 76 dde eval slav
2d80: 65 20 24 73 0d 0a 2b 20 20 20 20 20 20 20 20 20 e $s..+
2d90: 20 20 20 20 73 74 72 69 6e 67 20 63 6f 6d 70 61 string compa
2da0: 72 65 20 5b 73 6c 61 76 65 20 65 76 61 6c 20 73 re [slave eval s
2db0: 65 74 20 44 44 45 43 4d 44 5d 20 24 73 0d 0a 2b et DDECMD] $s..+
2dc0: 20 20 20 20 20 20 20 20 20 7d 20 6d 73 67 5d 20 } msg]
2dd0: 24 6d 73 67 20 20 20 20 20 20 20 20 0d 0a 2b 20 $msg ..+
2de0: 20 20 20 20 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d } \..+ -
2df0: 63 6c 65 61 6e 75 70 20 7b 69 6e 74 65 72 70 20 cleanup {interp
2e00: 64 65 6c 65 74 65 20 73 6c 61 76 65 7d 20 5c 0d delete slave} \.
2e10: 0a 2b 20 20 20 20 20 2d 72 65 73 75 6c 74 20 7b .+ -result {
2e20: 30 20 30 7d 0d 0a 2b 20 0d 0a 2b 20 74 65 73 74 0 0}..+ ..+ test
2e30: 20 77 69 6e 44 64 65 2d 38 2e 39 20 7b 53 61 66 winDde-8.9 {Saf
2e40: 65 20 44 44 45 20 63 68 65 63 6b 20 63 6f 6d 6d e DDE check comm
2e50: 61 6e 64 20 65 76 61 6c 75 61 74 69 6f 6e 7d 20 and evaluation}
2e60: 5c 0d 0a 2b 20 20 20 20 20 2d 63 6f 6e 73 74 72 \..+ -constr
2e70: 61 69 6e 74 73 20 70 63 4f 6e 6c 79 20 5c 0d 0a aints pcOnly \..
2e80: 2b 20 20 20 20 20 2d 73 65 74 75 70 20 7b 0d 0a + -setup {..
2e90: 2b 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 70 + interp
2ea0: 20 63 72 65 61 74 65 20 2d 73 61 66 65 20 73 6c create -safe sl
2eb0: 61 76 65 0d 0a 2b 20 20 20 20 20 20 20 20 20 73 ave..+ s
2ec0: 6c 61 76 65 20 69 6e 76 6f 6b 65 68 69 64 64 65 lave invokehidde
2ed0: 6e 20 6c 6f 61 64 20 24 6c 69 62 20 64 64 65 0d n load $lib dde.
2ee0: 0a 2b 20 20 20 20 20 20 20 20 20 73 6c 61 76 65 .+ slave
2ef0: 20 65 76 61 6c 20 7b 70 72 6f 63 20 44 44 45 41 eval {proc DDEA
2f00: 43 43 45 50 54 20 7b 63 6d 64 7d 20 7b 73 65 74 CCEPT {cmd} {set
2f10: 20 3a 3a 44 44 45 43 4d 44 20 5b 75 70 6c 65 76 ::DDECMD [uplev
2f20: 65 6c 20 23 30 20 24 63 6d 64 5d 7d 7d 0d 0a 2b el #0 $cmd]}}..+
2f30: 20 20 20 20 20 20 20 20 20 73 6c 61 76 65 20 69 slave i
2f40: 6e 76 6f 6b 65 68 69 64 64 65 6e 20 64 64 65 20 nvokehidden dde
2f50: 73 65 72 76 65 72 6e 61 6d 65 20 2d 68 61 6e 64 servername -hand
2f60: 6c 65 72 20 44 44 45 41 43 43 45 50 54 20 73 6c ler DDEACCEPT sl
2f70: 61 76 65 0d 0a 2b 20 20 20 20 20 7d 20 5c 0d 0a ave..+ } \..
2f80: 2b 20 20 20 20 20 2d 62 6f 64 79 20 7b 0d 0a 2b + -body {..+
2f90: 20 20 20 20 20 20 20 20 20 6c 69 73 74 20 5b 63 list [c
2fa0: 61 74 63 68 20 7b 0d 0a 2b 20 20 20 20 20 20 20 atch {..+
2fb0: 20 20 20 20 20 20 64 64 65 20 65 76 61 6c 20 73 dde eval s
2fc0: 6c 61 76 65 20 73 65 74 20 78 20 31 0d 0a 2b 20 lave set x 1..+
2fd0: 20 20 20 20 20 20 20 20 20 20 20 20 73 6c 61 76 slav
2fe0: 65 20 65 76 61 6c 20 73 65 74 20 78 0d 0a 2b 20 e eval set x..+
2ff0: 20 20 20 20 20 20 20 20 7d 20 6d 73 67 5d 20 24 } msg] $
3000: 6d 73 67 20 20 20 20 20 20 20 20 0d 0a 2b 20 20 msg ..+
3010: 20 20 20 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d 63 } \..+ -c
3020: 6c 65 61 6e 75 70 20 7b 69 6e 74 65 72 70 20 64 leanup {interp d
3030: 65 6c 65 74 65 20 73 6c 61 76 65 7d 20 5c 0d 0a elete slave} \..
3040: 2b 20 20 20 20 20 2d 72 65 73 75 6c 74 20 7b 30 + -result {0
3050: 20 31 7d 0d 0a 2b 20 0d 0a 2b 20 74 65 73 74 20 1}..+ ..+ test
3060: 77 69 6e 44 64 65 2d 38 2e 31 30 20 7b 53 61 66 winDde-8.10 {Saf
3070: 65 20 44 44 45 20 63 68 65 63 6b 20 63 6f 6d 6d e DDE check comm
3080: 61 6e 64 20 65 76 61 6c 75 61 74 69 6f 6e 20 28 and evaluation (
3090: 32 29 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d 63 6f 2)} \..+ -co
30a0: 6e 73 74 72 61 69 6e 74 73 20 70 63 4f 6e 6c 79 nstraints pcOnly
30b0: 20 5c 0d 0a 2b 20 20 20 20 20 2d 73 65 74 75 70 \..+ -setup
30c0: 20 7b 0d 0a 2b 20 20 20 20 20 20 20 20 20 69 6e {..+ in
30d0: 74 65 72 70 20 63 72 65 61 74 65 20 2d 73 61 66 terp create -saf
30e0: 65 20 73 6c 61 76 65 0d 0a 2b 20 20 20 20 20 20 e slave..+
30f0: 20 20 20 73 6c 61 76 65 20 69 6e 76 6f 6b 65 68 slave invokeh
3100: 69 64 64 65 6e 20 6c 6f 61 64 20 24 6c 69 62 20 idden load $lib
3110: 64 64 65 0d 0a 2b 20 20 20 20 20 20 20 20 20 73 dde..+ s
3120: 6c 61 76 65 20 65 76 61 6c 20 7b 70 72 6f 63 20 lave eval {proc
3130: 44 44 45 41 43 43 45 50 54 20 7b 63 6d 64 7d 20 DDEACCEPT {cmd}
3140: 7b 73 65 74 20 3a 3a 44 44 45 43 4d 44 20 5b 75 {set ::DDECMD [u
3150: 70 6c 65 76 65 6c 20 23 30 20 24 63 6d 64 5d 7d plevel #0 $cmd]}
3160: 7d 0d 0a 2b 20 20 20 20 20 20 20 20 20 73 6c 61 }..+ sla
3170: 76 65 20 69 6e 76 6f 6b 65 68 69 64 64 65 6e 20 ve invokehidden
3180: 64 64 65 20 73 65 72 76 65 72 6e 61 6d 65 20 2d dde servername -
3190: 68 61 6e 64 6c 65 72 20 44 44 45 41 43 43 45 50 handler DDEACCEP
31a0: 54 20 73 6c 61 76 65 0d 0a 2b 20 20 20 20 20 7d T slave..+ }
31b0: 20 5c 0d 0a 2b 20 20 20 20 20 2d 62 6f 64 79 20 \..+ -body
31c0: 7b 0d 0a 2b 20 20 20 20 20 20 20 20 20 6c 69 73 {..+ lis
31d0: 74 20 5b 63 61 74 63 68 20 7b 0d 0a 2b 20 20 20 t [catch {..+
31e0: 20 20 20 20 20 20 20 20 20 20 64 64 65 20 65 76 dde ev
31f0: 61 6c 20 73 6c 61 76 65 20 5b 6c 69 73 74 20 73 al slave [list s
3200: 65 74 20 78 20 31 5d 0d 0a 2b 20 20 20 20 20 20 et x 1]..+
3210: 20 20 20 20 20 20 20 73 6c 61 76 65 20 65 76 61 slave eva
3220: 6c 20 73 65 74 20 78 0d 0a 2b 20 20 20 20 20 20 l set x..+
3230: 20 20 20 7d 20 6d 73 67 5d 20 24 6d 73 67 20 20 } msg] $msg
3240: 20 20 20 20 20 20 0d 0a 2b 20 20 20 20 20 7d 20 ..+ }
3250: 5c 0d 0a 2b 20 20 20 20 20 2d 63 6c 65 61 6e 75 \..+ -cleanu
3260: 70 20 7b 69 6e 74 65 72 70 20 64 65 6c 65 74 65 p {interp delete
3270: 20 73 6c 61 76 65 7d 20 5c 0d 0a 2b 20 20 20 20 slave} \..+
3280: 20 2d 72 65 73 75 6c 74 20 7b 30 20 31 7d 0d 0a -result {0 1}..
3290: 2b 20 0d 0a 2b 20 74 65 73 74 20 77 69 6e 44 64 + ..+ test winDd
32a0: 65 2d 38 2e 31 31 20 7b 53 61 66 65 20 44 44 45 e-8.11 {Safe DDE
32b0: 20 63 68 65 63 6b 20 63 6f 6d 6d 61 6e 64 20 65 check command e
32c0: 76 61 6c 75 61 74 69 6f 6e 20 28 33 29 7d 20 5c valuation (3)} \
32d0: 0d 0a 2b 20 20 20 20 20 2d 63 6f 6e 73 74 72 61 ..+ -constra
32e0: 69 6e 74 73 20 70 63 4f 6e 6c 79 20 5c 0d 0a 2b ints pcOnly \..+
32f0: 20 20 20 20 20 2d 73 65 74 75 70 20 7b 0d 0a 2b -setup {..+
3300: 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 70 20 interp
3310: 63 72 65 61 74 65 20 2d 73 61 66 65 20 73 6c 61 create -safe sla
3320: 76 65 0d 0a 2b 20 20 20 20 20 20 20 20 20 73 6c ve..+ sl
3330: 61 76 65 20 69 6e 76 6f 6b 65 68 69 64 64 65 6e ave invokehidden
3340: 20 6c 6f 61 64 20 24 6c 69 62 20 64 64 65 0d 0a load $lib dde..
3350: 2b 20 20 20 20 20 20 20 20 20 73 6c 61 76 65 20 + slave
3360: 65 76 61 6c 20 7b 70 72 6f 63 20 44 44 45 41 43 eval {proc DDEAC
3370: 43 45 50 54 20 7b 63 6d 64 7d 20 7b 73 65 74 20 CEPT {cmd} {set
3380: 3a 3a 44 44 45 43 4d 44 20 5b 75 70 6c 65 76 65 ::DDECMD [upleve
3390: 6c 20 23 30 20 24 63 6d 64 5d 7d 7d 0d 0a 2b 20 l #0 $cmd]}}..+
33a0: 20 20 20 20 20 20 20 20 73 6c 61 76 65 20 69 6e slave in
33b0: 76 6f 6b 65 68 69 64 64 65 6e 20 64 64 65 20 73 vokehidden dde s
33c0: 65 72 76 65 72 6e 61 6d 65 20 2d 68 61 6e 64 6c ervername -handl
33d0: 65 72 20 44 44 45 41 43 43 45 50 54 20 73 6c 61 er DDEACCEPT sla
33e0: 76 65 0d 0a 2b 20 20 20 20 20 7d 20 5c 0d 0a 2b ve..+ } \..+
33f0: 20 20 20 20 20 2d 62 6f 64 79 20 7b 0d 0a 2b 20 -body {..+
3400: 20 20 20 20 20 20 20 20 6c 69 73 74 20 5b 63 61 list [ca
3410: 74 63 68 20 7b 0d 0a 2b 20 20 20 20 20 20 20 20 tch {..+
3420: 20 20 20 20 20 64 64 65 20 65 76 61 6c 20 73 6c dde eval sl
3430: 61 76 65 20 5b 6c 69 73 74 20 5b 6c 69 73 74 20 ave [list [list
3440: 73 65 74 20 78 20 31 5d 5d 0d 0a 2b 20 20 20 20 set x 1]]..+
3450: 20 20 20 20 20 20 20 20 20 73 6c 61 76 65 20 65 slave e
3460: 76 61 6c 20 73 65 74 20 78 0d 0a 2b 20 20 20 20 val set x..+
3470: 20 20 20 20 20 7d 20 6d 73 67 5d 20 24 6d 73 67 } msg] $msg
3480: 0d 0a 2b 20 20 20 20 20 7d 20 5c 0d 0a 2b 20 20 ..+ } \..+
3490: 20 20 20 2d 63 6c 65 61 6e 75 70 20 7b 69 6e 74 -cleanup {int
34a0: 65 72 70 20 64 65 6c 65 74 65 20 73 6c 61 76 65 erp delete slave
34b0: 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d 72 65 73 75 } \..+ -resu
34c0: 6c 74 20 7b 31 20 7b 69 6e 76 61 6c 69 64 20 63 lt {1 {invalid c
34d0: 6f 6d 6d 61 6e 64 20 6e 61 6d 65 20 22 73 65 74 ommand name "set
34e0: 20 78 20 31 22 7d 7d 0d 0a 2b 20 0d 0a 2b 20 23 x 1"}}..+ ..+ #
34f0: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ---------------
3500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 2b 20 0d 0a ----------..+ ..
3540: 2b 20 74 65 73 74 20 77 69 6e 44 64 65 2d 39 2e + test winDde-9.
3550: 31 20 7b 45 78 74 65 72 6e 61 6c 20 73 61 66 65 1 {External safe
3560: 20 44 44 45 20 63 68 65 63 6b 20 73 74 72 69 6e DDE check strin
3570: 67 20 70 61 73 73 69 6e 67 7d 20 5c 0d 0a 2b 20 g passing} \..+
3580: 20 20 20 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 -constraints
3590: 20 7b 70 63 4f 6e 6c 79 20 73 74 64 69 6f 7d 20 {pcOnly stdio}
35a0: 5c 0d 0a 2b 20 20 20 20 20 2d 73 65 74 75 70 20 \..+ -setup
35b0: 7b 0d 0a 2b 20 20 20 20 20 20 20 20 20 73 65 74 {..+ set
35c0: 20 6e 61 6d 65 20 63 68 69 6c 64 2d 39 2e 31 0d name child-9.1.
35d0: 0a 2b 20 20 20 20 20 20 20 20 20 73 65 74 20 63 .+ set c
35e0: 68 69 6c 64 20 5b 63 72 65 61 74 65 43 68 69 6c hild [createChil
35f0: 64 50 72 6f 63 65 73 73 20 24 6e 61 6d 65 20 48 dProcess $name H
3600: 61 6e 64 6c 65 72 31 5d 0d 0a 2b 20 20 20 20 20 andler1]..+
3610: 20 20 20 20 66 69 6c 65 20 63 6f 70 79 20 2d 66 file copy -f
3620: 6f 72 63 65 20 73 63 72 69 70 74 31 2e 74 63 6c orce script1.tcl
3630: 20 64 64 65 2d 73 63 72 69 70 74 2e 74 63 6c 0d dde-script.tcl.
3640: 0a 2b 20 20 20 20 20 7d 20 5c 0d 0a 2b 20 20 20 .+ } \..+
3650: 20 20 2d 62 6f 64 79 20 7b 0d 0a 2b 20 20 20 20 -body {..+
3660: 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 list [catch
3670: 20 7b 0d 0a 2b 20 20 20 20 20 20 20 20 20 20 20 {..+
3680: 20 20 64 64 65 20 65 76 61 6c 20 24 6e 61 6d 65 dde eval $name
3690: 20 73 65 74 20 78 20 31 0d 0a 2b 20 20 20 20 20 set x 1..+
36a0: 20 20 20 20 20 20 20 20 67 65 74 73 20 24 63 68 gets $ch
36b0: 69 6c 64 20 6c 69 6e 65 0d 0a 2b 20 20 20 20 20 ild line..+
36c0: 20 20 20 20 20 20 20 20 73 65 74 20 6c 69 6e 65 set line
36d0: 0d 0a 2b 20 20 20 20 20 20 20 20 20 7d 20 6d 73 ..+ } ms
36e0: 67 5d 20 24 6d 73 67 0d 0a 2b 20 20 20 20 20 7d g] $msg..+ }
36f0: 20 5c 0d 0a 2b 20 20 20 20 20 2d 63 6c 65 61 6e \..+ -clean
3700: 75 70 20 7b 64 64 65 20 65 78 65 63 75 74 65 20 up {dde execute
3710: 54 63 6c 45 76 61 6c 20 24 6e 61 6d 65 20 73 74 TclEval $name st
3720: 6f 70 20 3b 20 75 70 64 61 74 65 7d 20 5c 0d 0a op ; update} \..
3730: 2b 20 20 20 20 20 2d 72 65 73 75 6c 74 20 7b 30 + -result {0
3740: 20 7b 73 65 74 20 78 20 31 7d 7d 0d 0a 2b 20 0d {set x 1}}..+ .
3750: 0a 2b 20 74 65 73 74 20 77 69 6e 44 64 65 2d 39 .+ test winDde-9
3760: 2e 32 20 7b 45 78 74 65 72 6e 61 6c 20 73 61 66 .2 {External saf
3770: 65 20 44 44 45 20 63 68 65 63 6b 20 63 6f 6d 6d e DDE check comm
3780: 61 6e 64 20 65 76 61 6c 75 61 74 69 6f 6e 7d 20 and evaluation}
3790: 5c 0d 0a 2b 20 20 20 20 20 2d 63 6f 6e 73 74 72 \..+ -constr
37a0: 61 69 6e 74 73 20 7b 70 63 4f 6e 6c 79 20 73 74 aints {pcOnly st
37b0: 64 69 6f 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d 73 dio} \..+ -s
37c0: 65 74 75 70 20 7b 0d 0a 2b 20 20 20 20 20 20 20 etup {..+
37d0: 20 20 73 65 74 20 6e 61 6d 65 20 63 68 69 6c 64 set name child
37e0: 2d 39 2e 32 0d 0a 2b 20 20 20 20 20 20 20 20 20 -9.2..+
37f0: 73 65 74 20 63 68 69 6c 64 20 5b 63 72 65 61 74 set child [creat
3800: 65 43 68 69 6c 64 50 72 6f 63 65 73 73 20 24 6e eChildProcess $n
3810: 61 6d 65 20 48 61 6e 64 6c 65 72 32 5d 0d 0a 2b ame Handler2]..+
3820: 20 20 20 20 20 20 20 20 20 66 69 6c 65 20 63 6f file co
3830: 70 79 20 2d 66 6f 72 63 65 20 73 63 72 69 70 74 py -force script
3840: 31 2e 74 63 6c 20 64 64 65 2d 73 63 72 69 70 74 1.tcl dde-script
3850: 2e 74 63 6c 0d 0a 2b 20 20 20 20 20 7d 20 5c 0d .tcl..+ } \.
3860: 0a 2b 20 20 20 20 20 2d 62 6f 64 79 20 7b 0d 0a .+ -body {..
3870: 2b 20 20 20 20 20 20 20 20 20 6c 69 73 74 20 5b + list [
3880: 63 61 74 63 68 20 7b 0d 0a 2b 20 20 20 20 20 20 catch {..+
3890: 20 20 20 20 20 20 20 64 64 65 20 65 76 61 6c 20 dde eval
38a0: 24 6e 61 6d 65 20 73 65 74 20 78 20 31 0d 0a 2b $name set x 1..+
38b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 74 get
38c0: 73 20 24 63 68 69 6c 64 20 6c 69 6e 65 0d 0a 2b s $child line..+
38d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 set
38e0: 20 6c 69 6e 65 0d 0a 2b 20 20 20 20 20 20 20 20 line..+
38f0: 20 7d 20 6d 73 67 5d 20 24 6d 73 67 0d 0a 2b 20 } msg] $msg..+
3900: 20 20 20 20 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d } \..+ -
3910: 63 6c 65 61 6e 75 70 20 7b 64 64 65 20 65 78 65 cleanup {dde exe
3920: 63 75 74 65 20 54 63 6c 45 76 61 6c 20 24 6e 61 cute TclEval $na
3930: 6d 65 20 73 74 6f 70 20 3b 20 75 70 64 61 74 65 me stop ; update
3940: 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d 72 65 73 75 } \..+ -resu
3950: 6c 74 20 7b 30 20 31 7d 0d 0a 2b 20 0d 0a 2b 20 lt {0 1}..+ ..+
3960: 74 65 73 74 20 77 69 6e 44 64 65 2d 39 2e 33 20 test winDde-9.3
3970: 7b 45 78 74 65 72 6e 61 6c 20 73 61 66 65 20 44 {External safe D
3980: 44 45 20 63 68 65 63 6b 20 70 72 65 66 69 78 65 DE check prefixe
3990: 64 20 61 72 67 75 6d 65 6e 74 73 7d 20 5c 0d 0a d arguments} \..
39a0: 2b 20 20 20 20 20 2d 63 6f 6e 73 74 72 61 69 6e + -constrain
39b0: 74 73 20 7b 70 63 4f 6e 6c 79 20 73 74 64 69 6f ts {pcOnly stdio
39c0: 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d 73 65 74 75 } \..+ -setu
39d0: 70 20 7b 0d 0a 2b 20 20 20 20 20 20 20 20 20 73 p {..+ s
39e0: 65 74 20 6e 61 6d 65 20 63 68 69 6c 64 2d 39 2e et name child-9.
39f0: 33 0d 0a 2b 20 20 20 20 20 20 20 20 20 73 65 74 3..+ set
3a00: 20 63 68 69 6c 64 20 5b 63 72 65 61 74 65 43 68 child [createCh
3a10: 69 6c 64 50 72 6f 63 65 73 73 20 24 6e 61 6d 65 ildProcess $name
3a20: 20 5b 6c 69 73 74 20 48 61 6e 64 6c 65 72 33 20 [list Handler3
3a30: 41 52 47 5d 5d 0d 0a 2b 20 20 20 20 20 20 20 20 ARG]]..+
3a40: 20 66 69 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63 file copy -forc
3a50: 65 20 73 63 72 69 70 74 31 2e 74 63 6c 20 64 64 e script1.tcl dd
3a60: 65 2d 73 63 72 69 70 74 2e 74 63 6c 0d 0a 2b 20 e-script.tcl..+
3a70: 20 20 20 20 7d 20 5c 0d 0a 2b 20 20 20 20 20 2d } \..+ -
3a80: 62 6f 64 79 20 7b 0d 0a 2b 20 20 20 20 20 20 20 body {..+
3a90: 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 0d list [catch {.
3aa0: 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 64 .+ d
3ab0: 64 65 20 65 76 61 6c 20 24 6e 61 6d 65 20 73 65 de eval $name se
3ac0: 74 20 78 20 31 0d 0a 2b 20 20 20 20 20 20 20 20 t x 1..+
3ad0: 20 20 20 20 20 67 65 74 73 20 24 63 68 69 6c 64 gets $child
3ae0: 20 6c 69 6e 65 0d 0a 2b 20 20 20 20 20 20 20 20 line..+
3af0: 20 20 20 20 20 73 65 74 20 6c 69 6e 65 0d 0a 2b set line..+
3b00: 20 20 20 20 20 20 20 20 20 7d 20 6d 73 67 5d 20 } msg]
3b10: 24 6d 73 67 0d 0a 2b 20 20 20 20 20 7d 20 5c 0d $msg..+ } \.
3b20: 0a 2b 20 20 20 20 20 2d 63 6c 65 61 6e 75 70 20 .+ -cleanup
3b30: 7b 64 64 65 20 65 78 65 63 75 74 65 20 54 63 6c {dde execute Tcl
3b40: 45 76 61 6c 20 24 6e 61 6d 65 20 73 74 6f 70 20 Eval $name stop
3b50: 3b 20 75 70 64 61 74 65 7d 20 5c 0d 0a 2b 20 20 ; update} \..+
3b60: 20 20 20 2d 72 65 73 75 6c 74 20 7b 30 20 7b 41 -result {0 {A
3b70: 52 47 20 7b 73 65 74 20 78 20 31 7d 7d 7d 0d 0a RG {set x 1}}}..
3b80: 20 20 0d 0a 20 20 23 20 2d 2d 2d 2d 2d 2d 2d 2d .. # --------
3b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3bd0: 2d 0d 0a 20 20 0d 0a 20 20 23 63 6c 65 61 6e 75 -.. .. #cleanu
3be0: 70 0d 0a 21 20 23 63 61 74 63 68 20 7b 69 6e 74 p..! #catch {int
3bf0: 65 72 70 20 64 65 6c 65 74 65 20 24 73 6c 61 76 erp delete $slav
3c00: 65 7d 3b 20 20 20 20 20 20 20 20 20 20 20 23 20 e}; #
3c10: 65 6e 73 75 72 65 20 77 65 20 63 6c 65 61 6e 20 ensure we clean
3c20: 75 70 20 74 68 65 20 73 6c 61 76 65 2e 0d 0a 20 up the slave...
3c30: 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f file delete -fo
3c40: 72 63 65 20 24 3a 3a 73 63 72 69 70 74 4e 61 6d rce $::scriptNam
3c50: 65 0d 0a 20 20 3a 3a 74 63 6c 74 65 73 74 3a 3a e.. ::tcltest::
3c60: 63 6c 65 61 6e 75 70 54 65 73 74 73 0d 0a 20 20 cleanupTests..
3c70: 72 65 74 75 72 6e 0d 0a 49 6e 64 65 78 3a 20 77 return..Index: w
3c80: 69 6e 2f 74 63 6c 57 69 6e 44 64 65 2e 63 0d 0a in/tclWinDde.c..
3c90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3ca0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3cb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3cc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3cd0: 3d 3d 3d 0d 0a 52 43 53 20 66 69 6c 65 3a 20 2f ===..RCS file: /
3ce0: 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f cvsroot/tcl/tcl/
3cf0: 77 69 6e 2f 74 63 6c 57 69 6e 44 64 65 2e 63 2c win/tclWinDde.c,
3d00: 76 0d 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 v..retrieving re
3d10: 76 69 73 69 6f 6e 20 31 2e 31 35 0d 0a 64 69 66 vision 1.15..dif
3d20: 66 20 2d 63 20 2d 72 31 2e 31 35 20 74 63 6c 57 f -c -r1.15 tclW
3d30: 69 6e 44 64 65 2e 63 0d 0a 2a 2a 2a 20 77 69 6e inDde.c..*** win
3d40: 2f 74 63 6c 57 69 6e 44 64 65 2e 63 09 31 36 20 /tclWinDde.c.16
3d50: 4d 61 79 20 32 30 30 33 20 31 37 3a 32 39 3a 34 May 2003 17:29:4
3d60: 39 20 2d 30 30 30 30 09 31 2e 31 35 0d 0a 2d 2d 9 -0000.1.15..--
3d70: 2d 20 77 69 6e 2f 74 63 6c 57 69 6e 44 64 65 2e - win/tclWinDde.
3d80: 63 09 32 30 20 4d 61 79 20 32 30 30 33 20 32 31 c.20 May 2003 21
3d90: 3a 32 34 3a 35 32 20 2d 30 30 30 30 0d 0a 2a 2a :24:52 -0000..**
3da0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a *************..*
3db0: 2a 2a 20 33 36 2c 34 31 20 2a 2a 2a 2a 0d 0a 2d ** 36,41 ****..-
3dc0: 2d 2d 20 33 36 2c 34 32 20 2d 2d 2d 2d 0d 0a 20 -- 36,42 ----..
3dd0: 20 09 09 09 09 2f 2a 20 54 68 65 20 6e 65 78 74 ..../* The next
3de0: 20 69 6e 74 65 72 70 20 74 68 69 73 20 61 70 70 interp this app
3df0: 6c 69 63 61 74 69 6f 6e 20 6b 6e 6f 77 73 0d 0a lication knows..
3e00: 20 20 09 09 09 09 20 2a 20 61 62 6f 75 74 2e 20 .... * about.
3e10: 2a 2f 0d 0a 20 20 20 20 20 20 63 68 61 72 20 2a */.. char *
3e20: 6e 61 6d 65 3b 09 09 09 2f 2a 20 49 6e 74 65 72 name;.../* Inter
3e30: 70 72 65 74 65 72 27 73 20 6e 61 6d 65 20 28 6d preter's name (m
3e40: 61 6c 6c 6f 63 2d 65 64 29 2e 20 2a 2f 0d 0a 2b alloc-ed). */..+
3e50: 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 68 61 Tcl_Obj *ha
3e60: 6e 64 6c 65 72 50 74 72 3b 09 2f 2a 20 54 68 65 ndlerPtr;./* The
3e70: 20 73 65 72 76 65 72 20 68 61 6e 64 6c 65 72 20 server handler
3e80: 63 6f 6d 6d 61 6e 64 20 2a 2f 0d 0a 20 20 20 20 command */..
3e90: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
3ea0: 74 65 72 70 3b 09 09 2f 2a 20 54 68 65 20 69 6e terp;../* The in
3eb0: 74 65 72 70 72 65 74 65 72 20 61 74 74 61 63 68 terpreter attach
3ec0: 65 64 20 74 6f 20 74 68 69 73 20 6e 61 6d 65 2e ed to this name.
3ed0: 20 2a 2f 0d 0a 20 20 7d 20 52 65 67 69 73 74 65 */.. } Registe
3ee0: 72 65 64 49 6e 74 65 72 70 3b 0d 0a 20 20 0d 0a redInterp;.. ..
3ef0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d ***************.
3f00: 0a 2a 2a 2a 20 37 30 2c 37 36 20 2a 2a 2a 2a 0d .*** 70,76 ****.
3f10: 0a 20 20 09 09 09 09 20 2a 20 74 6f 20 75 73 20 . .... * to us
3f20: 62 79 20 44 64 65 49 6e 69 74 69 61 6c 69 7a 65 by DdeInitialize
3f30: 2e 20 2a 2f 0d 0a 20 20 73 74 61 74 69 63 20 69 . */.. static i
3f40: 6e 74 20 64 64 65 49 73 53 65 72 76 65 72 20 3d nt ddeIsServer =
3f50: 20 30 3b 0d 0a 20 20 0d 0a 21 20 23 64 65 66 69 0;.. ..! #defi
3f60: 6e 65 20 54 43 4c 5f 44 44 45 5f 56 45 52 53 49 ne TCL_DDE_VERSI
3f70: 4f 4e 20 22 31 2e 32 2e 33 22 0d 0a 20 20 23 64 ON "1.2.3".. #d
3f80: 65 66 69 6e 65 20 54 43 4c 5f 44 44 45 5f 50 41 efine TCL_DDE_PA
3f90: 43 4b 41 47 45 5f 4e 41 4d 45 20 22 64 64 65 22 CKAGE_NAME "dde"
3fa0: 0d 0a 20 20 23 64 65 66 69 6e 65 20 54 43 4c 5f .. #define TCL_
3fb0: 44 44 45 5f 53 45 52 56 49 43 45 5f 4e 41 4d 45 DDE_SERVICE_NAME
3fc0: 20 22 54 63 6c 45 76 61 6c 22 0d 0a 20 20 0d 0a "TclEval".. ..
3fd0: 2d 2d 2d 20 37 31 2c 37 37 20 2d 2d 2d 2d 0d 0a --- 71,77 ----..
3fe0: 20 20 09 09 09 09 20 2a 20 74 6f 20 75 73 20 62 .... * to us b
3ff0: 79 20 44 64 65 49 6e 69 74 69 61 6c 69 7a 65 2e y DdeInitialize.
4000: 20 2a 2f 0d 0a 20 20 73 74 61 74 69 63 20 69 6e */.. static in
4010: 74 20 64 64 65 49 73 53 65 72 76 65 72 20 3d 20 t ddeIsServer =
4020: 30 3b 0d 0a 20 20 0d 0a 21 20 23 64 65 66 69 6e 0;.. ..! #defin
4030: 65 20 54 43 4c 5f 44 44 45 5f 56 45 52 53 49 4f e TCL_DDE_VERSIO
4040: 4e 20 22 31 2e 32 2e 34 22 0d 0a 20 20 23 64 65 N "1.2.4".. #de
4050: 66 69 6e 65 20 54 43 4c 5f 44 44 45 5f 50 41 43 fine TCL_DDE_PAC
4060: 4b 41 47 45 5f 4e 41 4d 45 20 22 64 64 65 22 0d KAGE_NAME "dde".
4070: 0a 20 20 23 64 65 66 69 6e 65 20 54 43 4c 5f 44 . #define TCL_D
4080: 44 45 5f 53 45 52 56 49 43 45 5f 4e 41 4d 45 20 DE_SERVICE_NAME
4090: 22 54 63 6c 45 76 61 6c 22 0d 0a 20 20 0d 0a 2a "TclEval".. ..*
40a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a **************..
40b0: 2a 2a 2a 20 31 30 32 2c 31 30 37 20 2a 2a 2a 2a *** 102,107 ****
40c0: 0d 0a 2d 2d 2d 20 31 30 33 2c 31 30 39 20 2d 2d ..--- 103,109 --
40d0: 2d 2d 0d 0a 20 20 09 54 63 6c 5f 4f 62 6a 20 2a --.. .Tcl_Obj *
40e0: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 3b 09 2f CONST objv[]);./
40f0: 2a 20 54 68 65 20 61 72 67 75 6d 65 6e 74 73 20 * The arguments
4100: 2a 2f 0d 0a 20 20 0d 0a 20 20 45 58 54 45 52 4e */.. .. EXTERN
4110: 20 69 6e 74 20 44 64 65 5f 49 6e 69 74 28 54 63 int Dde_Init(Tc
4120: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
4130: 29 3b 0d 0a 2b 20 45 58 54 45 52 4e 20 69 6e 74 );..+ EXTERN int
4140: 20 44 64 65 5f 53 61 66 65 49 6e 69 74 28 54 63 Dde_SafeInit(Tc
4150: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
4160: 29 3b 0d 0a 20 20 0c 0d 0a 20 20 2f 2a 0d 0a 20 );.. ... /*..
4170: 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *-------------
4180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 2a 2a 2a 2a 2a ---------..*****
41c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 **********..***
41d0: 31 34 31 2c 31 34 36 20 2a 2a 2a 2a 0d 0a 2d 2d 141,146 ****..--
41e0: 2d 20 31 34 33 2c 31 37 35 20 2d 2d 2d 2d 0d 0a - 143,175 ----..
41f0: 20 20 2f 2a 0d 0a 20 20 20 2a 2d 2d 2d 2d 2d 2d /*.. *------
4200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4240: 0d 0a 20 20 20 2a 0d 0a 2b 20 20 2a 20 44 64 65 .. *..+ * Dde
4250: 5f 53 61 66 65 49 6e 69 74 20 2d 2d 0d 0a 2b 20 _SafeInit --..+
4260: 20 2a 0d 0a 2b 20 20 2a 09 54 68 69 73 20 70 72 *..+ *.This pr
4270: 6f 63 65 64 75 72 65 20 69 6e 69 74 69 61 6c 69 ocedure initiali
4280: 7a 65 73 20 74 68 65 20 64 64 65 20 63 6f 6d 6d zes the dde comm
4290: 61 6e 64 20 77 69 74 68 69 6e 20 61 20 73 61 66 and within a saf
42a0: 65 20 69 6e 74 65 72 70 0d 0a 2b 20 20 2a 0d 0a e interp..+ *..
42b0: 2b 20 20 2a 20 52 65 73 75 6c 74 73 3a 0d 0a 2b + * Results:..+
42c0: 20 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 *.A standard T
42d0: 63 6c 20 72 65 73 75 6c 74 2e 0d 0a 2b 20 20 2a cl result...+ *
42e0: 0d 0a 2b 20 20 2a 20 53 69 64 65 20 65 66 66 65 ..+ * Side effe
42f0: 63 74 73 3a 0d 0a 2b 20 20 2a 09 4e 6f 6e 65 2e cts:..+ *.None.
4300: 0d 0a 2b 20 20 2a 0d 0a 2b 20 20 2a 2d 2d 2d 2d ..+ *..+ *----
4310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4350: 2d 2d 0d 0a 2b 20 20 2a 2f 0d 0a 2b 20 0d 0a 2b --..+ */..+ ..+
4360: 20 69 6e 74 0d 0a 2b 20 44 64 65 5f 53 61 66 65 int..+ Dde_Safe
4370: 49 6e 69 74 28 0d 0a 2b 20 20 20 20 20 54 63 6c Init(..+ Tcl
4380: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 _Interp *interp)
4390: 0d 0a 2b 20 7b 0d 0a 2b 20 20 20 20 20 69 6e 74 ..+ {..+ int
43a0: 20 72 65 73 75 6c 74 20 3d 20 44 64 65 5f 49 6e result = Dde_In
43b0: 69 74 28 69 6e 74 65 72 70 29 3b 0d 0a 2b 20 20 it(interp);..+
43c0: 20 20 20 69 66 20 28 72 65 73 75 6c 74 20 3d 3d if (result ==
43d0: 20 54 43 4c 5f 4f 4b 29 20 7b 0d 0a 2b 20 09 54 TCL_OK) {..+ .T
43e0: 63 6c 5f 48 69 64 65 43 6f 6d 6d 61 6e 64 28 69 cl_HideCommand(i
43f0: 6e 74 65 72 70 2c 20 22 64 64 65 22 2c 20 22 64 nterp, "dde", "d
4400: 64 65 22 29 3b 0d 0a 2b 20 20 20 20 20 7d 0d 0a de");..+ }..
4410: 2b 20 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 + return res
4420: 75 6c 74 3b 0d 0a 2b 20 7d 0d 0a 2b 20 0c 0d 0a ult;..+ }..+ ...
4430: 2b 20 2f 2a 0d 0a 2b 20 20 2a 2d 2d 2d 2d 2d 2d + /*..+ *------
4440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4480: 0d 0a 2b 20 20 2a 0d 0a 20 20 20 2a 20 49 6e 69 ..+ *.. * Ini
4490: 74 69 61 6c 69 7a 65 20 2d 2d 0d 0a 20 20 20 2a tialize --.. *
44a0: 0d 0a 20 20 20 2a 09 49 6e 69 74 69 61 6c 69 7a .. *.Initializ
44b0: 65 20 74 68 65 20 67 6c 6f 62 61 6c 20 44 44 45 e the global DDE
44c0: 20 69 6e 73 74 61 6e 63 65 2e 0d 0a 2a 2a 2a 2a instance...****
44d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a ***********..***
44e0: 20 32 33 35 2c 32 34 31 20 2a 2a 2a 2a 0d 0a 20 235,241 ****..
44f0: 20 09 09 09 09 20 2a 20 72 65 66 65 72 20 74 6f .... * refer to
4500: 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 the interpreter
4510: 20 69 6e 20 6c 61 74 65 72 0d 0a 20 20 09 09 09 in later.. ...
4520: 09 20 2a 20 22 73 65 6e 64 22 20 63 6f 6d 6d 61 . * "send" comma
4530: 6e 64 73 2e 20 20 4d 75 73 74 20 62 65 20 67 6c nds. Must be gl
4540: 6f 62 61 6c 6c 79 0d 0a 20 20 09 09 09 09 20 2a obally.. .... *
4550: 20 75 6e 69 71 75 65 2e 20 2a 2f 0d 0a 21 20 20 unique. */..!
4560: 20 20 20 69 6e 74 20 65 78 61 63 74 4e 61 6d 65 int exactName
4570: 09 09 2f 2a 20 53 68 6f 75 6c 64 20 77 65 20 6d ../* Should we m
4580: 61 6b 65 20 61 20 75 6e 69 71 75 65 20 6e 61 6d ake a unique nam
4590: 65 3f 20 30 20 3d 20 75 6e 69 71 75 65 20 2a 2f e? 0 = unique */
45a0: 0d 0a 20 20 20 20 20 20 29 0d 0a 20 20 7b 0d 0a .. ).. {..
45b0: 20 20 20 20 20 20 69 6e 74 20 73 75 66 66 69 78 int suffix
45c0: 2c 20 6f 66 66 73 65 74 3b 0d 0a 2d 2d 2d 20 32 , offset;..--- 2
45d0: 36 34 2c 32 37 32 20 2d 2d 2d 2d 0d 0a 20 20 09 64,272 ----.. .
45e0: 09 09 09 20 2a 20 72 65 66 65 72 20 74 6f 20 74 ... * refer to t
45f0: 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 20 69 he interpreter i
4600: 6e 20 6c 61 74 65 72 0d 0a 20 20 09 09 09 09 20 n later.. ....
4610: 2a 20 22 73 65 6e 64 22 20 63 6f 6d 6d 61 6e 64 * "send" command
4620: 73 2e 20 20 4d 75 73 74 20 62 65 20 67 6c 6f 62 s. Must be glob
4630: 61 6c 6c 79 0d 0a 20 20 09 09 09 09 20 2a 20 75 ally.. .... * u
4640: 6e 69 71 75 65 2e 20 2a 2f 0d 0a 21 20 20 20 20 nique. */..!
4650: 20 69 6e 74 20 65 78 61 63 74 4e 61 6d 65 2c 09 int exactName,.
4660: 09 2f 2a 20 53 68 6f 75 6c 64 20 77 65 20 6d 61 ./* Should we ma
4670: 6b 65 20 61 20 75 6e 69 71 75 65 20 6e 61 6d 65 ke a unique name
4680: 3f 20 30 20 3d 20 75 6e 69 71 75 65 20 2a 2f 0d ? 0 = unique */.
4690: 0a 21 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a .! Tcl_Obj *
46a0: 68 61 6e 64 6c 65 72 50 74 72 09 09 2f 2a 20 4e handlerPtr../* N
46b0: 61 6d 65 20 6f 66 20 74 68 65 20 6f 70 74 69 6f ame of the optio
46c0: 6e 61 6c 20 70 72 6f 63 2f 63 6f 6d 6d 61 6e 64 nal proc/command
46d0: 20 74 6f 20 68 61 6e 64 6c 65 0d 0a 21 20 09 09 to handle..! ..
46e0: 09 09 20 2a 20 69 6e 63 6f 6d 69 6e 67 20 44 64 .. * incoming Dd
46f0: 65 20 65 76 61 6c 27 73 20 2a 2f 0d 0a 20 20 20 e eval's */..
4700: 20 20 20 29 0d 0a 20 20 7b 0d 0a 20 20 20 20 20 ).. {..
4710: 20 69 6e 74 20 73 75 66 66 69 78 2c 20 6f 66 66 int suffix, off
4720: 73 65 74 3b 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a set;..**********
4730: 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 33 34 38 2c 33 *****..*** 348,3
4740: 35 36 20 2a 2a 2a 2a 0d 0a 2d 2d 2d 20 33 37 39 56 ****..--- 379
4750: 2c 33 39 34 20 2d 2d 2d 2d 0d 0a 20 20 20 20 20 ,394 ----..
4760: 20 72 69 50 74 72 2d 3e 69 6e 74 65 72 70 20 3d riPtr->interp =
4770: 20 69 6e 74 65 72 70 3b 0d 0a 20 20 20 20 20 20 interp;..
4780: 72 69 50 74 72 2d 3e 6e 61 6d 65 20 3d 20 63 6b riPtr->name = ck
4790: 61 6c 6c 6f 63 28 73 74 72 6c 65 6e 28 61 63 74 alloc(strlen(act
47a0: 75 61 6c 4e 61 6d 65 29 20 2b 20 31 29 3b 0d 0a ualName) + 1);..
47b0: 20 20 20 20 20 20 72 69 50 74 72 2d 3e 6e 65 78 riPtr->nex
47c0: 74 50 74 72 20 3d 20 74 73 64 50 74 72 2d 3e 69 tPtr = tsdPtr->i
47d0: 6e 74 65 72 70 4c 69 73 74 50 74 72 3b 0d 0a 2b nterpListPtr;..+
47e0: 20 20 20 20 20 72 69 50 74 72 2d 3e 68 61 6e 64 riPtr->hand
47f0: 6c 65 72 50 74 72 20 3d 20 68 61 6e 64 6c 65 72 lerPtr = handler
4800: 50 74 72 3b 0d 0a 2b 20 20 20 20 20 69 66 20 28 Ptr;..+ if (
4810: 72 69 50 74 72 2d 3e 68 61 6e 64 6c 65 72 50 74 riPtr->handlerPt
4820: 72 20 21 3d 20 4e 55 4c 4c 29 0d 0a 2b 20 09 54 r != NULL)..+ .T
4830: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
4840: 72 69 50 74 72 2d 3e 68 61 6e 64 6c 65 72 50 74 riPtr->handlerPt
4850: 72 29 3b 0d 0a 20 20 20 20 20 20 74 73 64 50 74 r);.. tsdPt
4860: 72 2d 3e 69 6e 74 65 72 70 4c 69 73 74 50 74 72 r->interpListPtr
4870: 20 3d 20 72 69 50 74 72 3b 0d 0a 20 20 20 20 20 = riPtr;..
4880: 20 73 74 72 63 70 79 28 72 69 50 74 72 2d 3e 6e strcpy(riPtr->n
4890: 61 6d 65 2c 20 61 63 74 75 61 6c 4e 61 6d 65 29 ame, actualName)
48a0: 3b 0d 0a 20 20 0d 0a 2b 20 20 20 20 20 69 66 20 ;.. ..+ if
48b0: 28 54 63 6c 5f 49 73 53 61 66 65 28 69 6e 74 65 (Tcl_IsSafe(inte
48c0: 72 70 29 29 20 7b 0d 0a 2b 20 09 54 63 6c 5f 45 rp)) {..+ .Tcl_E
48d0: 78 70 6f 73 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 xposeCommand(int
48e0: 65 72 70 2c 20 22 64 64 65 22 2c 20 22 64 64 65 erp, "dde", "dde
48f0: 22 29 3b 0d 0a 2b 20 20 20 20 20 7d 0d 0a 2b 20 ");..+ }..+
4900: 0d 0a 20 20 20 20 20 20 54 63 6c 5f 43 72 65 61 .. Tcl_Crea
4910: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 teObjCommand(int
4920: 65 72 70 2c 20 22 64 64 65 22 2c 20 54 63 6c 5f erp, "dde", Tcl_
4930: 44 64 65 4f 62 6a 43 6d 64 2c 0d 0a 20 20 09 20 DdeObjCmd,.. .
4940: 20 20 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 (ClientData)
4950: 72 69 50 74 72 2c 20 44 65 6c 65 74 65 50 72 6f riPtr, DeletePro
4960: 63 29 3b 0d 0a 20 20 20 20 20 20 69 66 20 28 54 c);.. if (T
4970: 63 6c 5f 49 73 53 61 66 65 28 69 6e 74 65 72 70 cl_IsSafe(interp
4980: 29 29 20 7b 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a )) {..**********
4990: 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 33 36 39 2c 33 *****..*** 369,3
49a0: 37 34 20 2a 2a 2a 2a 0d 0a 2d 2d 2d 20 34 30 37 74 ****..--- 407
49b0: 2c 34 34 35 20 2d 2d 2d 2d 0d 0a 20 20 2f 2a 0d ,445 ----.. /*.
49c0: 0a 20 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-----------
49d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
49e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
49f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a00: 2d 2d 2d 0d 0a 20 20 20 2a 0d 0a 2b 20 20 2a 20 ---.. *..+ *
4a10: 44 64 65 47 65 74 52 65 67 69 73 74 72 61 74 69 DdeGetRegistrati
4a20: 6f 6e 50 74 72 0d 0a 2b 20 20 2a 0d 0a 2b 20 20 onPtr..+ *..+
4a30: 2a 09 52 65 74 72 69 65 76 65 20 74 68 65 20 72 *.Retrieve the r
4a40: 65 67 69 73 74 72 61 74 69 6f 6e 20 69 6e 66 6f egistration info
4a50: 20 66 6f 72 20 61 6e 20 69 6e 74 65 72 70 72 65 for an interpre
4a60: 74 65 72 2e 0d 0a 2b 20 20 2a 0d 0a 2b 20 20 2a ter...+ *..+ *
4a70: 20 52 65 73 75 6c 74 73 3a 0d 0a 2b 20 20 2a 09 Results:..+ *.
4a80: 52 65 74 75 72 6e 73 20 61 20 70 6f 69 6e 74 65 Returns a pointe
4a90: 72 20 74 6f 20 74 68 65 20 72 65 67 69 73 74 72 r to the registr
4aa0: 61 74 69 6f 6e 20 73 74 72 75 63 74 75 72 65 20 ation structure
4ab0: 6f 72 20 4e 55 4c 4c 0d 0a 2b 20 20 2a 0d 0a 2b or NULL..+ *..+
4ac0: 20 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 * Side effects
4ad0: 3a 0d 0a 2b 20 20 2a 09 4e 6f 6e 65 0d 0a 2b 20 :..+ *.None..+
4ae0: 20 2a 0d 0a 2b 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d *..+ *--------
4af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b20: 2d 2d 2d 2d 2d 2d 0d 0a 2b 20 20 2a 2f 0d 0a 2b ------..+ */..+
4b30: 20 0d 0a 2b 20 73 74 61 74 69 63 20 52 65 67 69 ..+ static Regi
4b40: 73 74 65 72 65 64 49 6e 74 65 72 70 20 2a 0d 0a steredInterp *..
4b50: 2b 20 44 64 65 47 65 74 52 65 67 69 73 74 72 61 + DdeGetRegistra
4b60: 74 69 6f 6e 50 74 72 28 0d 0a 2b 20 20 20 20 20 tionPtr(..+
4b70: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
4b80: 72 70 0d 0a 2b 20 20 20 20 20 29 0d 0a 2b 20 7b rp..+ )..+ {
4b90: 0d 0a 2b 20 20 20 20 20 52 65 67 69 73 74 65 72 ..+ Register
4ba0: 65 64 49 6e 74 65 72 70 20 2a 72 69 50 74 72 3b edInterp *riPtr;
4bb0: 0d 0a 2b 20 20 20 20 20 54 68 72 65 61 64 53 70 ..+ ThreadSp
4bc0: 65 63 69 66 69 63 44 61 74 61 20 2a 74 73 64 50 ecificData *tsdP
4bd0: 74 72 20 3d 20 54 43 4c 5f 54 53 44 5f 49 4e 49 tr = TCL_TSD_INI
4be0: 54 28 26 64 61 74 61 4b 65 79 29 3b 0d 0a 2b 20 T(&dataKey);..+
4bf0: 0d 0a 2b 20 20 20 20 20 66 6f 72 20 28 72 69 50 ..+ for (riP
4c00: 74 72 20 3d 20 74 73 64 50 74 72 2d 3e 69 6e 74 tr = tsdPtr->int
4c10: 65 72 70 4c 69 73 74 50 74 72 3b 20 72 69 50 74 erpListPtr; riPt
4c20: 72 20 21 3d 20 4e 55 4c 4c 3b 20 0d 0a 2b 20 09 r != NULL; ..+ .
4c30: 20 20 20 20 72 69 50 74 72 20 3d 20 72 69 50 74 riPtr = riPt
4c40: 72 2d 3e 6e 65 78 74 50 74 72 29 20 7b 0d 0a 2b r->nextPtr) {..+
4c50: 20 09 69 66 20 28 72 69 50 74 72 2d 3e 69 6e 74 .if (riPtr->int
4c60: 65 72 70 20 3d 3d 20 69 6e 74 65 72 70 29 20 7b erp == interp) {
4c70: 0d 0a 2b 20 09 20 20 20 20 62 72 65 61 6b 3b 0d ..+ . break;.
4c80: 0a 2b 20 09 7d 0d 0a 2b 20 20 20 20 20 7d 0d 0a .+ .}..+ }..
4c90: 2b 20 20 20 20 20 72 65 74 75 72 6e 20 72 69 50 + return riP
4ca0: 74 72 3b 0d 0a 2b 20 7d 0d 0a 2b 20 0c 0d 0a 2b tr;..+ }..+ ...+
4cb0: 20 2f 2a 0d 0a 2b 20 20 2a 2d 2d 2d 2d 2d 2d 2d /*..+ *-------
4cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4cf0: 2d 2d 2d 2d 2d 2d 2d 0d 0a 2b 20 20 2a 0d 0a 20 -------..+ *..
4d00: 20 20 2a 20 44 65 6c 65 74 65 50 72 6f 63 0d 0a * DeleteProc..
4d10: 20 20 20 2a 0d 0a 20 20 20 2a 09 54 68 69 73 20 *.. *.This
4d20: 70 72 6f 63 65 64 75 72 65 20 69 73 20 63 61 6c procedure is cal
4d30: 6c 65 64 20 77 68 65 6e 20 74 68 65 20 63 6f 6d led when the com
4d40: 6d 61 6e 64 20 22 64 64 65 22 20 69 73 20 64 65 mand "dde" is de
4d50: 73 74 72 6f 79 65 64 2e 0d 0a 2a 2a 2a 2a 2a 2a stroyed...******
4d60: 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 34 *********..*** 4
4d70: 30 37 2c 34 31 32 20 2a 2a 2a 2a 0d 0a 2d 2d 2d 07,412 ****..---
4d80: 20 34 37 38 2c 34 38 35 20 2d 2d 2d 2d 0d 0a 20 478,485 ----..
4d90: 20 09 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 .}.. }..
4da0: 20 20 20 20 63 6b 66 72 65 65 28 72 69 50 74 72 ckfree(riPtr
4db0: 2d 3e 6e 61 6d 65 29 3b 0d 0a 2b 20 20 20 20 20 ->name);..+
4dc0: 69 66 20 28 72 69 50 74 72 2d 3e 68 61 6e 64 6c if (riPtr->handl
4dd0: 65 72 50 74 72 29 0d 0a 2b 20 09 54 63 6c 5f 44 erPtr)..+ .Tcl_D
4de0: 65 63 72 52 65 66 43 6f 75 6e 74 28 72 69 50 74 ecrRefCount(riPt
4df0: 72 2d 3e 68 61 6e 64 6c 65 72 50 74 72 29 3b 0d r->handlerPtr);.
4e00: 0a 20 20 20 20 20 20 54 63 6c 5f 45 76 65 6e 74 . Tcl_Event
4e10: 75 61 6c 6c 79 46 72 65 65 28 63 6c 69 65 6e 74 uallyFree(client
4e20: 44 61 74 61 2c 20 54 43 4c 5f 44 59 4e 41 4d 49 Data, TCL_DYNAMI
4e30: 43 29 3b 0d 0a 20 20 7d 0d 0a 20 20 0c 0d 0a 2a C);.. }.. ...*
4e40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a **************..
4e50: 2a 2a 2a 20 34 34 31 2c 34 34 39 20 2a 2a 2a 2a *** 441,449 ****
4e60: 0d 0a 20 20 7b 0d 0a 20 20 20 20 20 20 54 63 6c .. {.. Tcl
4e70: 5f 4f 62 6a 20 2a 65 72 72 6f 72 4f 62 6a 50 74 _Obj *errorObjPt
4e80: 72 3b 0d 0a 20 20 20 20 20 20 54 63 6c 5f 4f 62 r;.. Tcl_Ob
4e90: 6a 20 2a 72 65 74 75 72 6e 50 61 63 6b 61 67 65 j *returnPackage
4ea0: 50 74 72 3b 0d 0a 21 20 20 20 20 20 69 6e 74 20 Ptr;..! int
4eb0: 72 65 73 75 6c 74 3b 0d 0a 20 20 0d 0a 2d 20 20 result;.. ..-
4ec0: 20 20 20 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f result = Tcl_
4ed0: 45 76 61 6c 4f 62 6a 45 78 28 72 69 50 74 72 2d EvalObjEx(riPtr-
4ee0: 3e 69 6e 74 65 72 70 2c 20 64 64 65 4f 62 6a 65 >interp, ddeObje
4ef0: 63 74 50 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f ctPtr, TCL_EVAL_
4f00: 47 4c 4f 42 41 4c 29 3b 0d 0a 20 20 20 20 20 20 GLOBAL);..
4f10: 72 65 74 75 72 6e 50 61 63 6b 61 67 65 50 74 72 returnPackagePtr
4f20: 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 = Tcl_NewListOb
4f30: 6a 28 30 2c 20 28 54 63 6c 5f 4f 62 6a 20 2a 2a j(0, (Tcl_Obj **
4f40: 29 20 4e 55 4c 4c 29 3b 0d 0a 20 20 20 20 20 20 ) NULL);..
4f50: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
4f60: 64 45 6c 65 6d 65 6e 74 28 4e 55 4c 4c 2c 20 72 dElement(NULL, r
4f70: 65 74 75 72 6e 50 61 63 6b 61 67 65 50 74 72 2c eturnPackagePtr,
4f80: 0d 0a 20 20 09 20 20 20 20 54 63 6c 5f 4e 65 77 .. . Tcl_New
4f90: 49 6e 74 4f 62 6a 28 72 65 73 75 6c 74 29 29 3b IntObj(result));
4fa0: 0d 0a 2d 2d 2d 20 35 31 34 2c 35 34 30 20 2d 2d ..--- 514,540 --
4fb0: 2d 2d 0d 0a 20 20 7b 0d 0a 20 20 20 20 20 20 54 --.. {.. T
4fc0: 63 6c 5f 4f 62 6a 20 2a 65 72 72 6f 72 4f 62 6a cl_Obj *errorObj
4fd0: 50 74 72 3b 0d 0a 20 20 20 20 20 20 54 63 6c 5f Ptr;.. Tcl_
4fe0: 4f 62 6a 20 2a 72 65 74 75 72 6e 50 61 63 6b 61 Obj *returnPacka
4ff0: 67 65 50 74 72 3b 0d 0a 21 20 20 20 20 20 69 6e gePtr;..! in
5000: 74 20 72 65 73 75 6c 74 20 3d 20 54 43 4c 5f 4f t result = TCL_O
5010: 4b 3b 0d 0a 21 20 0d 0a 21 20 20 20 20 20 69 66 K;..! ..! if
5020: 20 28 72 69 50 74 72 2d 3e 68 61 6e 64 6c 65 72 (riPtr->handler
5030: 50 74 72 20 3d 3d 20 4e 55 4c 4c 20 26 26 20 54 Ptr == NULL && T
5040: 63 6c 5f 49 73 53 61 66 65 28 72 69 50 74 72 2d cl_IsSafe(riPtr-
5050: 3e 69 6e 74 65 72 70 29 29 20 7b 0d 0a 21 20 09 >interp)) {..! .
5060: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
5070: 28 72 69 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 (riPtr->interp,
5080: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
5090: 28 22 70 65 72 6d 69 73 73 69 6f 6e 20 64 65 6e ("permission den
50a0: 69 65 64 3a 22 0d 0a 21 20 09 09 22 20 61 20 68 ied:"..! .." a h
50b0: 61 6e 64 6c 65 72 20 70 72 6f 63 65 64 75 72 65 andler procedure
50c0: 20 6d 75 73 74 20 62 65 20 64 65 66 69 6e 65 64 must be defined
50d0: 20 66 6f 72 20 75 73 65 20 69 6e 20 61 20 73 61 for use in a sa
50e0: 66 65 20 69 6e 74 65 72 70 22 2c 20 2d 31 29 29 fe interp", -1))
50f0: 3b 0d 0a 21 20 09 72 65 73 75 6c 74 20 3d 20 54 ;..! .result = T
5100: 43 4c 5f 45 52 52 4f 52 3b 0d 0a 21 20 20 20 20 CL_ERROR;..!
5110: 20 7d 0d 0a 21 20 0d 0a 21 20 20 20 20 20 69 66 }..! ..! if
5120: 20 28 72 69 50 74 72 2d 3e 68 61 6e 64 6c 65 72 (riPtr->handler
5130: 50 74 72 20 21 3d 20 4e 55 4c 4c 29 20 7b 0d 0a Ptr != NULL) {..
5140: 21 20 09 2f 2a 20 61 64 64 20 74 68 65 20 64 64 ! ./* add the dd
5150: 65 20 72 65 71 75 65 73 74 20 64 61 74 61 20 74 e request data t
5160: 6f 20 74 68 65 20 68 61 6e 64 6c 65 72 20 70 72 o the handler pr
5170: 6f 63 20 6c 69 73 74 20 2a 2f 0d 0a 21 20 09 54 oc list */..! .T
5180: 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 20 3d cl_Obj *cmdPtr =
5190: 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 Tcl_DuplicateOb
51a0: 6a 28 72 69 50 74 72 2d 3e 68 61 6e 64 6c 65 72 j(riPtr->handler
51b0: 50 74 72 29 3b 0d 0a 21 20 09 72 65 73 75 6c 74 Ptr);..! .result
51c0: 20 3d 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 = Tcl_ListObjAp
51d0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 72 69 50 74 pendElement(riPt
51e0: 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 r->interp, cmdPt
51f0: 72 2c 20 64 64 65 4f 62 6a 65 63 74 50 74 72 29 r, ddeObjectPtr)
5200: 3b 0d 0a 21 20 09 69 66 20 28 72 65 73 75 6c 74 ;..! .if (result
5210: 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0d 0a 21 == TCL_OK) {..!
5220: 20 09 20 20 20 20 64 64 65 4f 62 6a 65 63 74 50 . ddeObjectP
5230: 74 72 20 3d 20 63 6d 64 50 74 72 3b 0d 0a 21 20 tr = cmdPtr;..!
5240: 09 7d 0d 0a 21 20 20 20 20 20 7d 0d 0a 21 20 0d .}..! }..! .
5250: 0a 21 20 20 20 20 20 69 66 20 28 72 65 73 75 6c .! if (resul
5260: 74 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0d 0a t == TCL_OK) {..
5270: 21 20 09 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f ! .result = Tcl_
5280: 45 76 61 6c 4f 62 6a 45 78 28 72 69 50 74 72 2d EvalObjEx(riPtr-
5290: 3e 69 6e 74 65 72 70 2c 20 64 64 65 4f 62 6a 65 >interp, ddeObje
52a0: 63 74 50 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f ctPtr, TCL_EVAL_
52b0: 47 4c 4f 42 41 4c 29 3b 0d 0a 21 20 20 20 20 20 GLOBAL);..!
52c0: 7d 0d 0a 20 20 0d 0a 20 20 20 20 20 20 72 65 74 }.. .. ret
52d0: 75 72 6e 50 61 63 6b 61 67 65 50 74 72 20 3d 20 urnPackagePtr =
52e0: 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 Tcl_NewListObj(0
52f0: 2c 20 28 54 63 6c 5f 4f 62 6a 20 2a 2a 29 20 4e , (Tcl_Obj **) N
5300: 55 4c 4c 29 3b 0d 0a 20 20 20 20 20 20 54 63 6c ULL);.. Tcl
5310: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
5320: 65 6d 65 6e 74 28 4e 55 4c 4c 2c 20 72 65 74 75 ement(NULL, retu
5330: 72 6e 50 61 63 6b 61 67 65 50 74 72 2c 0d 0a 20 rnPackagePtr,..
5340: 20 09 20 20 20 20 54 63 6c 5f 4e 65 77 49 6e 74 . Tcl_NewInt
5350: 4f 62 6a 28 72 65 73 75 6c 74 29 29 3b 0d 0a 2a Obj(result));..*
5360: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a **************..
5370: 2a 2a 2a 20 34 35 32 2c 34 36 31 20 2a 2a 2a 2a *** 452,461 ****
5380: 0d 0a 20 20 20 20 20 20 69 66 20 28 72 65 73 75 .. if (resu
5390: 6c 74 20 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 lt == TCL_ERROR)
53a0: 20 7b 0d 0a 20 20 09 65 72 72 6f 72 4f 62 6a 50 {.. .errorObjP
53b0: 74 72 20 3d 20 54 63 6c 5f 47 65 74 56 61 72 32 tr = Tcl_GetVar2
53c0: 45 78 28 72 69 50 74 72 2d 3e 69 6e 74 65 72 70 Ex(riPtr->interp
53d0: 2c 20 22 65 72 72 6f 72 43 6f 64 65 22 2c 20 4e , "errorCode", N
53e0: 55 4c 4c 2c 0d 0a 20 20 09 09 54 43 4c 5f 47 4c ULL,.. ..TCL_GL
53f0: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0d 0a 21 20 09 OBAL_ONLY);..! .
5400: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
5410: 64 45 6c 65 6d 65 6e 74 28 4e 55 4c 4c 2c 20 72 dElement(NULL, r
5420: 65 74 75 72 6e 50 61 63 6b 61 67 65 50 74 72 2c eturnPackagePtr,
5430: 20 65 72 72 6f 72 4f 62 6a 50 74 72 29 3b 0d 0a errorObjPtr);..
5440: 20 20 09 65 72 72 6f 72 4f 62 6a 50 74 72 20 3d .errorObjPtr =
5450: 20 54 63 6c 5f 47 65 74 56 61 72 32 45 78 28 72 Tcl_GetVar2Ex(r
5460: 69 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 22 65 iPtr->interp, "e
5470: 72 72 6f 72 49 6e 66 6f 22 2c 20 4e 55 4c 4c 2c rrorInfo", NULL,
5480: 0d 0a 20 20 09 09 54 43 4c 5f 47 4c 4f 42 41 4c .. ..TCL_GLOBAL
5490: 5f 4f 4e 4c 59 29 3b 0d 0a 21 20 20 20 20 20 20 _ONLY);..!
54a0: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
54b0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 4e 55 4c 4c pendElement(NULL
54c0: 2c 20 72 65 74 75 72 6e 50 61 63 6b 61 67 65 50 , returnPackageP
54d0: 74 72 2c 20 65 72 72 6f 72 4f 62 6a 50 74 72 29 tr, errorObjPtr)
54e0: 3b 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 0d 0a ;.. }.. ..
54f0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 72 65 74 return ret
5500: 75 72 6e 50 61 63 6b 61 67 65 50 74 72 3b 0d 0a urnPackagePtr;..
5510: 2d 2d 2d 20 35 34 33 2c 35 35 34 20 2d 2d 2d 2d --- 543,554 ----
5520: 0d 0a 20 20 20 20 20 20 69 66 20 28 72 65 73 75 .. if (resu
5530: 6c 74 20 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 lt == TCL_ERROR)
5540: 20 7b 0d 0a 20 20 09 65 72 72 6f 72 4f 62 6a 50 {.. .errorObjP
5550: 74 72 20 3d 20 54 63 6c 5f 47 65 74 56 61 72 32 tr = Tcl_GetVar2
5560: 45 78 28 72 69 50 74 72 2d 3e 69 6e 74 65 72 70 Ex(riPtr->interp
5570: 2c 20 22 65 72 72 6f 72 43 6f 64 65 22 2c 20 4e , "errorCode", N
5580: 55 4c 4c 2c 0d 0a 20 20 09 09 54 43 4c 5f 47 4c ULL,.. ..TCL_GL
5590: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0d 0a 21 20 09 OBAL_ONLY);..! .
55a0: 69 66 20 28 65 72 72 6f 72 4f 62 6a 50 74 72 29 if (errorObjPtr)
55b0: 0d 0a 21 20 09 20 20 20 20 54 63 6c 5f 4c 69 73 ..! . Tcl_Lis
55c0: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
55d0: 74 28 4e 55 4c 4c 2c 20 72 65 74 75 72 6e 50 61 t(NULL, returnPa
55e0: 63 6b 61 67 65 50 74 72 2c 20 65 72 72 6f 72 4f ckagePtr, errorO
55f0: 62 6a 50 74 72 29 3b 0d 0a 20 20 09 65 72 72 6f bjPtr);.. .erro
5600: 72 4f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 47 65 rObjPtr = Tcl_Ge
5610: 74 56 61 72 32 45 78 28 72 69 50 74 72 2d 3e 69 tVar2Ex(riPtr->i
5620: 6e 74 65 72 70 2c 20 22 65 72 72 6f 72 49 6e 66 nterp, "errorInf
5630: 6f 22 2c 20 4e 55 4c 4c 2c 0d 0a 20 20 09 09 54 o", NULL,.. ..T
5640: 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b CL_GLOBAL_ONLY);
5650: 0d 0a 21 20 09 69 66 20 28 65 72 72 6f 72 4f 62 ..! .if (errorOb
5660: 6a 50 74 72 29 0d 0a 21 20 09 20 20 20 20 54 63 jPtr)..! . Tc
5670: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
5680: 6c 65 6d 65 6e 74 28 4e 55 4c 4c 2c 20 72 65 74 lement(NULL, ret
5690: 75 72 6e 50 61 63 6b 61 67 65 50 74 72 2c 20 65 urnPackagePtr, e
56a0: 72 72 6f 72 4f 62 6a 50 74 72 29 3b 0d 0a 20 20 rrorObjPtr);..
56b0: 20 20 20 20 7d 0d 0a 20 20 0d 0a 20 20 20 20 20 }.. ..
56c0: 20 72 65 74 75 72 6e 20 72 65 74 75 72 6e 50 61 return returnPa
56d0: 63 6b 61 67 65 50 74 72 3b 0d 0a 2a 2a 2a 2a 2a ckagePtr;..*****
56e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 **********..***
56f0: 36 32 35 2c 36 34 31 20 2a 2a 2a 2a 0d 0a 20 20 625,641 ****..
5700: 09 09 09 20 20 20 20 72 65 74 75 72 6e 53 74 72 ... returnStr
5710: 69 6e 67 2c 20 28 44 57 4f 52 44 29 20 6c 65 6e ing, (DWORD) len
5720: 2b 31 2c 20 30 2c 20 64 64 65 49 74 65 6d 2c 20 +1, 0, ddeItem,
5730: 43 46 5f 54 45 58 54 2c 0d 0a 20 20 09 09 09 20 CF_TEXT,.. ...
5740: 20 20 20 30 29 3b 0d 0a 20 20 09 09 7d 20 65 6c 0);.. ..} el
5750: 73 65 20 7b 0d 0a 21 20 09 09 20 20 20 20 54 63 se {..! .. Tc
5760: 6c 5f 4f 62 6a 20 2a 76 61 72 69 61 62 6c 65 4f l_Obj *variableO
5770: 62 6a 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 56 bjPtr = Tcl_GetV
5780: 61 72 32 45 78 28 0d 0a 21 20 09 09 09 20 20 20 ar2Ex(..! ...
5790: 20 63 6f 6e 76 50 74 72 2d 3e 72 69 50 74 72 2d convPtr->riPtr-
57a0: 3e 69 6e 74 65 72 70 2c 20 75 74 69 6c 53 74 72 >interp, utilStr
57b0: 69 6e 67 2c 20 4e 55 4c 4c 2c 20 0d 0a 21 20 09 ing, NULL, ..! .
57c0: 09 09 20 20 20 20 54 43 4c 5f 47 4c 4f 42 41 4c .. TCL_GLOBAL
57d0: 5f 4f 4e 4c 59 29 3b 0d 0a 21 20 09 09 20 20 20 _ONLY);..! ..
57e0: 20 69 66 20 28 76 61 72 69 61 62 6c 65 4f 62 6a if (variableObj
57f0: 50 74 72 20 21 3d 20 4e 55 4c 4c 29 20 7b 0d 0a Ptr != NULL) {..
5800: 21 20 09 09 09 72 65 74 75 72 6e 53 74 72 69 6e ! ...returnStrin
5810: 67 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e g = Tcl_GetStrin
5820: 67 46 72 6f 6d 4f 62 6a 28 76 61 72 69 61 62 6c gFromObj(variabl
5830: 65 4f 62 6a 50 74 72 2c 0d 0a 21 20 09 09 09 09 eObjPtr,..! ....
5840: 26 6c 65 6e 29 3b 0d 0a 21 20 09 09 09 64 64 65 &len);..! ...dde
5850: 52 65 74 75 72 6e 20 3d 20 44 64 65 43 72 65 61 Return = DdeCrea
5860: 74 65 44 61 74 61 48 61 6e 64 6c 65 28 64 64 65 teDataHandle(dde
5870: 49 6e 73 74 61 6e 63 65 2c 0d 0a 21 20 09 09 09 Instance,..! ...
5880: 09 72 65 74 75 72 6e 53 74 72 69 6e 67 2c 20 28 .returnString, (
5890: 44 57 4f 52 44 29 20 6c 65 6e 2b 31 2c 20 30 2c DWORD) len+1, 0,
58a0: 20 64 64 65 49 74 65 6d 2c 0d 0a 21 20 09 09 09 ddeItem,..! ...
58b0: 09 43 46 5f 54 45 58 54 2c 20 30 29 3b 0d 0a 21 .CF_TEXT, 0);..!
58c0: 20 09 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d .. } else {.
58d0: 0a 20 20 09 09 09 64 64 65 52 65 74 75 72 6e 20 . ...ddeReturn
58e0: 3d 20 4e 55 4c 4c 3b 0d 0a 20 20 09 09 20 20 20 = NULL;.. ..
58f0: 20 7d 0d 0a 20 20 09 09 7d 0d 0a 20 20 09 09 54 }.. ..}.. ..T
5900: 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 cl_DStringFree(&
5910: 64 53 74 72 69 6e 67 29 3b 0d 0a 2d 2d 2d 20 37 dString);..--- 7
5920: 31 38 2c 37 33 38 20 2d 2d 2d 2d 0d 0a 20 20 09 18,738 ----.. .
5930: 09 09 20 20 20 20 72 65 74 75 72 6e 53 74 72 69 .. returnStri
5940: 6e 67 2c 20 28 44 57 4f 52 44 29 20 6c 65 6e 2b ng, (DWORD) len+
5950: 31 2c 20 30 2c 20 64 64 65 49 74 65 6d 2c 20 43 1, 0, ddeItem, C
5960: 46 5f 54 45 58 54 2c 0d 0a 20 20 09 09 09 20 20 F_TEXT,.. ...
5970: 20 20 30 29 3b 0d 0a 20 20 09 09 7d 20 65 6c 73 0);.. ..} els
5980: 65 20 7b 0d 0a 21 20 09 09 20 20 20 20 69 66 20 e {..! .. if
5990: 28 54 63 6c 5f 49 73 53 61 66 65 28 63 6f 6e 76 (Tcl_IsSafe(conv
59a0: 50 74 72 2d 3e 72 69 50 74 72 2d 3e 69 6e 74 65 Ptr->riPtr->inte
59b0: 72 70 29 29 20 7b 0d 0a 20 20 09 09 09 64 64 65 rp)) {.. ...dde
59c0: 52 65 74 75 72 6e 20 3d 20 4e 55 4c 4c 3b 0d 0a Return = NULL;..
59d0: 2b 20 09 09 20 20 20 20 7d 20 65 6c 73 65 20 7b + .. } else {
59e0: 0d 0a 2b 20 09 09 09 54 63 6c 5f 4f 62 6a 20 2a ..+ ...Tcl_Obj *
59f0: 76 61 72 69 61 62 6c 65 4f 62 6a 50 74 72 20 3d variableObjPtr =
5a00: 20 54 63 6c 5f 47 65 74 56 61 72 32 45 78 28 0d Tcl_GetVar2Ex(.
5a10: 0a 2b 20 09 09 09 09 63 6f 6e 76 50 74 72 2d 3e .+ ....convPtr->
5a20: 72 69 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 75 riPtr->interp, u
5a30: 74 69 6c 53 74 72 69 6e 67 2c 20 4e 55 4c 4c 2c tilString, NULL,
5a40: 20 0d 0a 2b 20 09 09 09 09 54 43 4c 5f 47 4c 4f ..+ ....TCL_GLO
5a50: 42 41 4c 5f 4f 4e 4c 59 29 3b 0d 0a 2b 20 09 09 BAL_ONLY);..+ ..
5a60: 09 69 66 20 28 76 61 72 69 61 62 6c 65 4f 62 6a .if (variableObj
5a70: 50 74 72 20 21 3d 20 4e 55 4c 4c 29 20 7b 0d 0a Ptr != NULL) {..
5a80: 2b 20 09 09 09 20 20 20 20 72 65 74 75 72 6e 53 + ... returnS
5a90: 74 72 69 6e 67 20 3d 20 54 63 6c 5f 47 65 74 53 tring = Tcl_GetS
5aa0: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 76 61 72 tringFromObj(var
5ab0: 69 61 62 6c 65 4f 62 6a 50 74 72 2c 0d 0a 2b 20 iableObjPtr,..+
5ac0: 09 09 09 09 20 20 20 20 26 6c 65 6e 29 3b 0d 0a .... &len);..
5ad0: 2b 20 09 09 09 20 20 20 20 64 64 65 52 65 74 75 + ... ddeRetu
5ae0: 72 6e 20 3d 20 44 64 65 43 72 65 61 74 65 44 61 rn = DdeCreateDa
5af0: 74 61 48 61 6e 64 6c 65 28 64 64 65 49 6e 73 74 taHandle(ddeInst
5b00: 61 6e 63 65 2c 0d 0a 2b 20 09 09 09 09 20 20 20 ance,..+ ....
5b10: 20 72 65 74 75 72 6e 53 74 72 69 6e 67 2c 20 28 returnString, (
5b20: 44 57 4f 52 44 29 20 6c 65 6e 2b 31 2c 20 30 2c DWORD) len+1, 0,
5b30: 20 64 64 65 49 74 65 6d 2c 20 0d 0a 2b 20 09 09 ddeItem, ..+ ..
5b40: 09 09 20 20 20 20 43 46 5f 54 45 58 54 2c 20 30 .. CF_TEXT, 0
5b50: 29 3b 0d 0a 2b 20 09 09 09 7d 20 65 6c 73 65 20 );..+ ...} else
5b60: 7b 0d 0a 2b 20 09 09 09 20 20 20 20 64 64 65 52 {..+ ... ddeR
5b70: 65 74 75 72 6e 20 3d 20 4e 55 4c 4c 3b 0d 0a 2b eturn = NULL;..+
5b80: 20 09 09 09 7d 0d 0a 20 20 09 09 20 20 20 20 7d ...}.. .. }
5b90: 0d 0a 20 20 09 09 7d 0d 0a 20 20 09 09 54 63 6c .. ..}.. ..Tcl
5ba0: 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 53 _DStringFree(&dS
5bb0: 74 72 69 6e 67 29 3b 0d 0a 2a 2a 2a 2a 2a 2a 2a tring);..*******
5bc0: 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 31 30 ********..*** 10
5bd0: 34 31 2c 31 30 34 36 20 2a 2a 2a 2a 0d 0a 2d 2d 41,1046 ****..--
5be0: 2d 20 31 31 33 38 2c 31 31 34 34 20 2d 2d 2d 2d - 1138,1144 ----
5bf0: 0d 0a 20 20 0d 0a 20 20 20 20 20 20 65 6e 75 6d .. .. enum
5c00: 20 7b 0d 0a 20 20 09 44 44 45 5f 53 45 52 56 45 {.. .DDE_SERVE
5c10: 52 4e 41 4d 45 5f 45 58 41 43 54 2c 0d 0a 2b 20 RNAME_EXACT,..+
5c20: 09 44 44 45 5f 53 45 52 56 45 52 4e 41 4d 45 5f .DDE_SERVERNAME_
5c30: 48 41 4e 44 4c 45 52 2c 0d 0a 20 20 09 44 44 45 HANDLER,.. .DDE
5c40: 5f 53 45 52 56 45 52 4e 41 4d 45 5f 4c 41 53 54 _SERVERNAME_LAST
5c50: 2c 0d 0a 20 20 20 20 20 20 7d 3b 0d 0a 20 20 0d ,.. };.. .
5c60: 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .***************
5c70: 0d 0a 2a 2a 2a 20 31 30 34 39 2c 31 30 35 35 20 ..*** 1049,1055
5c80: 2a 2a 2a 2a 0d 0a 20 20 09 20 20 28 63 68 61 72 ****.. . (char
5c90: 20 2a 29 20 4e 55 4c 4c 7d 3b 0d 0a 20 20 20 20 *) NULL};..
5ca0: 20 20 73 74 61 74 69 63 20 43 4f 4e 53 54 20 63 static CONST c
5cb0: 68 61 72 20 2a 64 64 65 4f 70 74 69 6f 6e 73 5b har *ddeOptions[
5cc0: 5d 20 3d 20 7b 22 2d 61 73 79 6e 63 22 2c 20 28 ] = {"-async", (
5cd0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 7d 3b 0d 0a char *) NULL};..
5ce0: 20 20 20 20 20 20 73 74 61 74 69 63 20 43 4f 4e static CON
5cf0: 53 54 20 63 68 61 72 20 2a 64 64 65 52 65 71 4f ST char *ddeReqO
5d00: 70 74 69 6f 6e 73 5b 5d 20 3d 20 7b 22 2d 62 69 ptions[] = {"-bi
5d10: 6e 61 72 79 22 2c 20 28 63 68 61 72 20 2a 29 20 nary", (char *)
5d20: 4e 55 4c 4c 7d 3b 0d 0a 21 20 20 20 20 20 73 74 NULL};..! st
5d30: 61 74 69 63 20 43 4f 4e 53 54 20 63 68 61 72 20 atic CONST char
5d40: 2a 64 64 65 53 72 76 4f 70 74 69 6f 6e 73 5b 5d *ddeSrvOptions[]
5d50: 20 3d 20 7b 22 2d 65 78 61 63 74 22 2c 20 22 2d = {"-exact", "-
5d60: 2d 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c -", (char *) NUL
5d70: 4c 7d 3b 0d 0a 20 20 20 20 20 20 69 6e 74 20 69 L};.. int i
5d80: 6e 64 65 78 2c 20 61 72 67 49 6e 64 65 78 2c 20 ndex, argIndex,
5d90: 69 3b 0d 0a 20 20 20 20 20 20 69 6e 74 20 61 73 i;.. int as
5da0: 79 6e 63 20 3d 20 30 2c 20 62 69 6e 61 72 79 20 ync = 0, binary
5db0: 3d 20 30 2c 20 65 78 61 63 74 20 3d 20 30 3b 0d = 0, exact = 0;.
5dc0: 0a 20 20 20 20 20 20 69 6e 74 20 72 65 73 75 6c . int resul
5dd0: 74 20 3d 20 54 43 4c 5f 4f 4b 3b 0d 0a 2d 2d 2d t = TCL_OK;..---
5de0: 20 31 31 34 37 2c 31 31 35 33 20 2d 2d 2d 2d 0d 1147,1153 ----.
5df0: 0a 20 20 09 20 20 28 63 68 61 72 20 2a 29 20 4e . . (char *) N
5e00: 55 4c 4c 7d 3b 0d 0a 20 20 20 20 20 20 73 74 61 ULL};.. sta
5e10: 74 69 63 20 43 4f 4e 53 54 20 63 68 61 72 20 2a tic CONST char *
5e20: 64 64 65 4f 70 74 69 6f 6e 73 5b 5d 20 3d 20 7b ddeOptions[] = {
5e30: 22 2d 61 73 79 6e 63 22 2c 20 28 63 68 61 72 20 "-async", (char
5e40: 2a 29 20 4e 55 4c 4c 7d 3b 0d 0a 20 20 20 20 20 *) NULL};..
5e50: 20 73 74 61 74 69 63 20 43 4f 4e 53 54 20 63 68 static CONST ch
5e60: 61 72 20 2a 64 64 65 52 65 71 4f 70 74 69 6f 6e ar *ddeReqOption
5e70: 73 5b 5d 20 3d 20 7b 22 2d 62 69 6e 61 72 79 22 s[] = {"-binary"
5e80: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 7d , (char *) NULL}
5e90: 3b 0d 0a 21 20 20 20 20 20 73 74 61 74 69 63 20 ;..! static
5ea0: 43 4f 4e 53 54 20 63 68 61 72 20 2a 64 64 65 53 CONST char *ddeS
5eb0: 72 76 4f 70 74 69 6f 6e 73 5b 5d 20 3d 20 7b 22 rvOptions[] = {"
5ec0: 2d 65 78 61 63 74 22 2c 20 22 2d 68 61 6e 64 6c -exact", "-handl
5ed0: 65 72 22 2c 20 22 2d 2d 22 2c 20 28 63 68 61 72 er", "--", (char
5ee0: 20 2a 29 20 4e 55 4c 4c 7d 3b 0d 0a 20 20 20 20 *) NULL};..
5ef0: 20 20 69 6e 74 20 69 6e 64 65 78 2c 20 61 72 67 int index, arg
5f00: 49 6e 64 65 78 2c 20 69 3b 0d 0a 20 20 20 20 20 Index, i;..
5f10: 20 69 6e 74 20 61 73 79 6e 63 20 3d 20 30 2c 20 int async = 0,
5f20: 62 69 6e 61 72 79 20 3d 20 30 2c 20 65 78 61 63 binary = 0, exac
5f30: 74 20 3d 20 30 3b 0d 0a 20 20 20 20 20 20 69 6e t = 0;.. in
5f40: 74 20 72 65 73 75 6c 74 20 3d 20 54 43 4c 5f 4f t result = TCL_O
5f50: 4b 3b 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a K;..************
5f60: 2a 2a 2a 0d 0a 2a 2a 2a 20 31 30 36 37 2c 31 30 ***..*** 1067,10
5f70: 37 33 20 2a 2a 2a 2a 0d 0a 20 20 20 20 20 20 48 73 ****.. H
5f80: 44 44 45 44 41 54 41 20 64 64 65 52 65 74 75 72 DDEDATA ddeRetur
5f90: 6e 3b 0d 0a 20 20 20 20 20 20 52 65 67 69 73 74 n;.. Regist
5fa0: 65 72 65 64 49 6e 74 65 72 70 20 2a 72 69 50 74 eredInterp *riPt
5fb0: 72 3b 0d 0a 20 20 20 20 20 20 54 63 6c 5f 49 6e r;.. Tcl_In
5fc0: 74 65 72 70 20 2a 73 65 6e 64 49 6e 74 65 72 70 terp *sendInterp
5fd0: 3b 0d 0a 21 20 20 20 20 20 54 63 6c 5f 4f 62 6a ;..! Tcl_Obj
5fe0: 20 2a 6f 62 6a 50 74 72 3b 0d 0a 20 20 20 20 20 *objPtr;..
5ff0: 20 54 68 72 65 61 64 53 70 65 63 69 66 69 63 44 ThreadSpecificD
6000: 61 74 61 20 2a 74 73 64 50 74 72 20 3d 20 54 43 ata *tsdPtr = TC
6010: 4c 5f 54 53 44 5f 49 4e 49 54 28 26 64 61 74 61 L_TSD_INIT(&data
6020: 4b 65 79 29 3b 0d 0a 20 20 0d 0a 20 20 20 20 20 Key);.. ..
6030: 20 2f 2a 0d 0a 2d 2d 2d 20 31 31 36 35 2c 31 31 /*..--- 1165,11
6040: 37 31 20 2d 2d 2d 2d 0d 0a 20 20 20 20 20 20 48 71 ----.. H
6050: 44 44 45 44 41 54 41 20 64 64 65 52 65 74 75 72 DDEDATA ddeRetur
6060: 6e 3b 0d 0a 20 20 20 20 20 20 52 65 67 69 73 74 n;.. Regist
6070: 65 72 65 64 49 6e 74 65 72 70 20 2a 72 69 50 74 eredInterp *riPt
6080: 72 3b 0d 0a 20 20 20 20 20 20 54 63 6c 5f 49 6e r;.. Tcl_In
6090: 74 65 72 70 20 2a 73 65 6e 64 49 6e 74 65 72 70 terp *sendInterp
60a0: 3b 0d 0a 21 20 20 20 20 20 54 63 6c 5f 4f 62 6a ;..! Tcl_Obj
60b0: 20 2a 6f 62 6a 50 74 72 2c 20 2a 68 61 6e 64 6c *objPtr, *handl
60c0: 65 72 50 74 72 20 3d 20 4e 55 4c 4c 3b 0d 0a 20 erPtr = NULL;..
60d0: 20 20 20 20 20 54 68 72 65 61 64 53 70 65 63 69 ThreadSpeci
60e0: 66 69 63 44 61 74 61 20 2a 74 73 64 50 74 72 20 ficData *tsdPtr
60f0: 3d 20 54 43 4c 5f 54 53 44 5f 49 4e 49 54 28 26 = TCL_TSD_INIT(&
6100: 64 61 74 61 4b 65 79 29 3b 0d 0a 20 20 0d 0a 20 dataKey);.. ..
6110: 20 20 20 20 20 2f 2a 0d 0a 2a 2a 2a 2a 2a 2a 2a /*..*******
6120: 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 31 30 ********..*** 10
6130: 39 33 2c 31 30 39 38 20 2a 2a 2a 2a 0d 0a 2d 2d 93,1098 ****..--
6140: 2d 20 31 31 39 31 2c 31 32 30 37 20 2d 2d 2d 2d - 1191,1207 ----
6150: 0d 0a 20 20 09 09 20 20 20 20 62 72 65 61 6b 3b .. .. break;
6160: 0d 0a 20 20 09 09 7d 20 65 6c 73 65 20 69 66 20 .. ..} else if
6170: 28 61 72 67 49 6e 64 65 78 20 3d 3d 20 44 44 45 (argIndex == DDE
6180: 5f 53 45 52 56 45 52 4e 41 4d 45 5f 45 58 41 43 _SERVERNAME_EXAC
6190: 54 29 20 7b 0d 0a 20 20 09 09 20 20 20 20 65 78 T) {.. .. ex
61a0: 61 63 74 20 3d 20 31 3b 0d 0a 2b 20 09 09 7d 20 act = 1;..+ ..}
61b0: 65 6c 73 65 20 69 66 20 28 61 72 67 49 6e 64 65 else if (argInde
61c0: 78 20 3d 3d 20 44 44 45 5f 53 45 52 56 45 52 4e x == DDE_SERVERN
61d0: 41 4d 45 5f 48 41 4e 44 4c 45 52 29 20 7b 0d 0a AME_HANDLER) {..
61e0: 2b 20 09 09 20 20 20 20 69 66 20 28 28 6f 62 6a + .. if ((obj
61f0: 63 20 2d 20 69 29 20 3d 3d 20 31 29 20 7b 20 2f c - i) == 1) { /
6200: 2a 20 72 65 74 75 72 6e 20 63 75 72 72 65 6e 74 * return current
6210: 20 68 61 6e 64 6c 65 72 20 2a 2f 0d 0a 2b 20 09 handler */..+ .
6220: 09 09 52 65 67 69 73 74 65 72 65 64 49 6e 74 65 ..RegisteredInte
6230: 72 70 20 2a 72 69 50 74 72 20 3d 20 44 64 65 47 rp *riPtr = DdeG
6240: 65 74 52 65 67 69 73 74 72 61 74 69 6f 6e 50 74 etRegistrationPt
6250: 72 28 69 6e 74 65 72 70 29 3b 0d 0a 2b 20 09 09 r(interp);..+ ..
6260: 09 69 66 20 28 72 69 50 74 72 20 26 26 20 72 69 .if (riPtr && ri
6270: 50 74 72 2d 3e 68 61 6e 64 6c 65 72 50 74 72 29 Ptr->handlerPtr)
6280: 20 7b 0d 0a 2b 20 09 09 09 20 20 20 20 54 63 6c {..+ ... Tcl
6290: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
62a0: 74 65 72 70 2c 20 72 69 50 74 72 2d 3e 68 61 6e terp, riPtr->han
62b0: 64 6c 65 72 50 74 72 29 3b 0d 0a 2b 20 09 09 09 dlerPtr);..+ ...
62c0: 7d 20 65 6c 73 65 20 7b 0d 0a 2b 20 09 09 09 20 } else {..+ ...
62d0: 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 Tcl_ResetResu
62e0: 6c 74 28 69 6e 74 65 72 70 29 3b 0d 0a 2b 20 09 lt(interp);..+ .
62f0: 09 09 7d 0d 0a 2b 20 09 09 09 72 65 74 75 72 6e ..}..+ ...return
6300: 20 54 43 4c 5f 4f 4b 3b 0d 0a 2b 20 09 09 20 20 TCL_OK;..+ ..
6310: 20 20 7d 0d 0a 2b 20 09 09 20 20 20 20 68 61 6e }..+ .. han
6320: 64 6c 65 72 50 74 72 20 3d 20 6f 62 6a 76 5b 2b dlerPtr = objv[+
6330: 2b 69 5d 3b 0d 0a 20 20 09 09 7d 20 65 6c 73 65 +i];.. ..} else
6340: 20 69 66 20 28 61 72 67 49 6e 64 65 78 20 3d 3d if (argIndex ==
6350: 20 44 44 45 5f 53 45 52 56 45 52 4e 41 4d 45 5f DDE_SERVERNAME_
6360: 4c 41 53 54 29 20 7b 0d 0a 20 20 09 09 20 20 20 LAST) {.. ..
6370: 20 69 2b 2b 3b 0d 0a 20 20 09 09 20 20 20 20 62 i++;.. .. b
6380: 72 65 61 6b 3b 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a reak;..*********
6390: 2a 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 31 31 30 30 ******..*** 1100
63a0: 2c 31 31 30 36 20 2a 2a 2a 2a 0d 0a 20 20 09 09 ,1106 ****.. ..
63b0: 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 Tcl_ResetRes
63c0: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0d 0a 20 20 ult(interp);..
63d0: 09 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 .. Tcl_Append
63e0: 53 74 72 69 6e 67 73 54 6f 4f 62 6a 28 54 63 6c StringsToObj(Tcl
63f0: 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _GetObjResult(in
6400: 74 65 72 70 29 2c 0d 0a 20 20 09 09 09 20 20 20 terp),.. ...
6410: 20 22 62 61 64 20 6f 70 74 69 6f 6e 20 5c 22 22 "bad option \""
6420: 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 , Tcl_GetString(
6430: 6f 62 6a 76 5b 69 5d 29 2c 0d 0a 21 20 09 09 09 objv[i]),..! ...
6440: 20 20 20 20 22 5c 22 3a 20 6d 75 73 74 20 62 65 "\": must be
6450: 20 2d 65 78 61 63 74 2c 20 6f 72 20 2d 2d 22 2c -exact, or --",
6460: 0d 0a 20 20 09 09 09 20 20 20 20 28 63 68 61 72 .. ... (char
6470: 2a 29 4e 55 4c 4c 29 3b 0d 0a 20 20 09 09 20 20 *)NULL);.. ..
6480: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
6490: 4f 52 3b 0d 0a 20 20 09 09 7d 0d 0a 2d 2d 2d 20 OR;.. ..}..---
64a0: 31 32 30 39 2c 31 32 31 35 20 2d 2d 2d 2d 0d 0a 1209,1215 ----..
64b0: 20 20 09 09 20 20 20 20 54 63 6c 5f 52 65 73 65 .. Tcl_Rese
64c0: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b tResult(interp);
64d0: 0d 0a 20 20 09 09 20 20 20 20 54 63 6c 5f 41 70 .. .. Tcl_Ap
64e0: 70 65 6e 64 53 74 72 69 6e 67 73 54 6f 4f 62 6a pendStringsToObj
64f0: 28 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c (Tcl_GetObjResul
6500: 74 28 69 6e 74 65 72 70 29 2c 0d 0a 20 20 09 09 t(interp),.. ..
6510: 09 20 20 20 20 22 62 61 64 20 6f 70 74 69 6f 6e . "bad option
6520: 20 5c 22 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 \"", Tcl_GetStr
6530: 69 6e 67 28 6f 62 6a 76 5b 69 5d 29 2c 0d 0a 21 ing(objv[i]),..!
6540: 20 09 09 09 20 20 20 20 22 5c 22 3a 20 6d 75 73 ... "\": mus
6550: 74 20 62 65 20 2d 65 78 61 63 74 2c 20 2d 68 61 t be -exact, -ha
6560: 6e 64 6c 65 72 20 6f 72 20 2d 2d 22 2c 0d 0a 20 ndler or --",..
6570: 20 09 09 09 20 20 20 20 28 63 68 61 72 2a 29 4e ... (char*)N
6580: 55 4c 4c 29 3b 0d 0a 20 20 09 09 20 20 20 20 72 ULL);.. .. r
6590: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
65a0: 0d 0a 20 20 09 09 7d 0d 0a 2a 2a 2a 2a 2a 2a 2a .. ..}..*******
65b0: 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 31 31 ********..*** 11
65c0: 30 39 2c 31 31 31 35 20 2a 2a 2a 2a 0d 0a 20 20 09,1115 ****..
65d0: 09 20 20 20 20 69 66 20 28 28 6f 62 6a 63 20 2d . if ((objc -
65e0: 20 69 29 20 3e 20 31 29 20 7b 0d 0a 20 20 09 09 i) > 1) {.. ..
65f0: 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 Tcl_ResetResult(
6600: 69 6e 74 65 72 70 29 3b 0d 0a 20 20 09 09 54 63 interp);.. ..Tc
6610: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
6620: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 0d nterp, 1, objv,.
6630: 0a 21 20 09 09 09 22 73 65 72 76 65 72 6e 61 6d .! ..."servernam
6640: 65 20 3f 2d 65 78 61 63 74 3f 20 3f 2d 2d 3f 22 e ?-exact? ?--?"
6650: 0d 0a 20 20 09 09 09 22 20 3f 73 65 72 76 65 72 .. ..." ?server
6660: 4e 61 6d 65 3f 22 29 3b 0d 0a 20 20 09 09 72 65 Name?");.. ..re
6670: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0d turn TCL_ERROR;.
6680: 0a 20 20 09 20 20 20 20 7d 0d 0a 2d 2d 2d 20 31 . . }..--- 1
6690: 32 31 38 2c 31 32 32 34 20 2d 2d 2d 2d 0d 0a 20 218,1224 ----..
66a0: 20 09 20 20 20 20 69 66 20 28 28 6f 62 6a 63 20 . if ((objc
66b0: 2d 20 69 29 20 3e 20 31 29 20 7b 0d 0a 20 20 09 - i) > 1) {.. .
66c0: 09 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 .Tcl_ResetResult
66d0: 28 69 6e 74 65 72 70 29 3b 0d 0a 20 20 09 09 54 (interp);.. ..T
66e0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
66f0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
6700: 0d 0a 21 20 09 09 09 22 73 65 72 76 65 72 6e 61 ..! ..."serverna
6710: 6d 65 20 3f 2d 65 78 61 63 74 3f 20 3f 2d 68 61 me ?-exact? ?-ha
6720: 6e 64 6c 65 72 20 70 72 6f 63 3f 20 3f 2d 2d 3f ndler proc? ?--?
6730: 22 0d 0a 20 20 09 09 09 22 20 3f 73 65 72 76 65 ".. ..." ?serve
6740: 72 4e 61 6d 65 3f 22 29 3b 0d 0a 20 20 09 09 72 rName?");.. ..r
6750: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6760: 0d 0a 20 20 09 20 20 20 20 7d 0d 0a 2a 2a 2a 2a .. . }..****
6770: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a 2a 2a ***********..***
6780: 20 31 32 33 36 2c 31 32 34 32 20 2a 2a 2a 2a 0d 1236,1242 ****.
6790: 0a 20 20 0d 0a 20 20 20 20 20 20 73 77 69 74 63 . .. switc
67a0: 68 20 28 69 6e 64 65 78 29 20 7b 0d 0a 20 20 09 h (index) {.. .
67b0: 63 61 73 65 20 44 44 45 5f 53 45 52 56 45 52 4e case DDE_SERVERN
67c0: 41 4d 45 3a 20 7b 0d 0a 21 20 09 20 20 20 20 73 AME: {..! . s
67d0: 65 72 76 69 63 65 4e 61 6d 65 20 3d 20 44 64 65 erviceName = Dde
67e0: 53 65 74 53 65 72 76 65 72 4e 61 6d 65 28 69 6e SetServerName(in
67f0: 74 65 72 70 2c 20 73 65 72 76 69 63 65 4e 61 6d terp, serviceNam
6800: 65 2c 20 65 78 61 63 74 29 3b 0d 0a 20 20 09 20 e, exact);.. .
6810: 20 20 20 69 66 20 28 73 65 72 76 69 63 65 4e 61 if (serviceNa
6820: 6d 65 20 21 3d 20 4e 55 4c 4c 29 20 7b 0d 0a 20 me != NULL) {..
6830: 20 09 09 54 63 6c 5f 53 65 74 53 74 72 69 6e 67 ..Tcl_SetString
6840: 4f 62 6a 28 54 63 6c 5f 47 65 74 4f 62 6a 52 65 Obj(Tcl_GetObjRe
6850: 73 75 6c 74 28 69 6e 74 65 72 70 29 2c 0d 0a 20 sult(interp),..
6860: 20 09 09 09 73 65 72 76 69 63 65 4e 61 6d 65 2c ...serviceName,
6870: 20 2d 31 29 3b 0d 0a 2d 2d 2d 20 31 33 34 35 2c -1);..--- 1345,
6880: 31 33 35 32 20 2d 2d 2d 2d 0d 0a 20 20 0d 0a 20 1352 ----.. ..
6890: 20 20 20 20 20 73 77 69 74 63 68 20 28 69 6e 64 switch (ind
68a0: 65 78 29 20 7b 0d 0a 20 20 09 63 61 73 65 20 44 ex) {.. .case D
68b0: 44 45 5f 53 45 52 56 45 52 4e 41 4d 45 3a 20 7b DE_SERVERNAME: {
68c0: 0d 0a 21 20 09 20 20 20 20 73 65 72 76 69 63 65 ..! . service
68d0: 4e 61 6d 65 20 3d 20 44 64 65 53 65 74 53 65 72 Name = DdeSetSer
68e0: 76 65 72 4e 61 6d 65 28 69 6e 74 65 72 70 2c 20 verName(interp,
68f0: 73 65 72 76 69 63 65 4e 61 6d 65 2c 0d 0a 21 20 serviceName,..!
6900: 09 09 20 20 20 65 78 61 63 74 2c 20 68 61 6e 64 .. exact, hand
6910: 6c 65 72 50 74 72 29 3b 0d 0a 20 20 09 20 20 20 lerPtr);.. .
6920: 20 69 66 20 28 73 65 72 76 69 63 65 4e 61 6d 65 if (serviceName
6930: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0d 0a 20 20 09 != NULL) {.. .
6940: 09 54 63 6c 5f 53 65 74 53 74 72 69 6e 67 4f 62 .Tcl_SetStringOb
6950: 6a 28 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 j(Tcl_GetObjResu
6960: 6c 74 28 69 6e 74 65 72 70 29 2c 0d 0a 20 20 09 lt(interp),.. .
6970: 09 09 73 65 72 76 69 63 65 4e 61 6d 65 2c 20 2d ..serviceName, -
6980: 31 29 3b 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 1);..***********
6990: 2a 2a 2a 2a 0d 0a 2a 2a 2a 20 31 34 31 35 2c 31 ****..*** 1415,1
69a0: 34 32 38 20 2a 2a 2a 2a 0d 0a 20 20 09 09 20 2a 428 ****.. .. *
69b0: 20 62 65 20 72 65 66 65 72 72 69 6e 67 20 74 6f be referring to
69c0: 20 64 65 61 6c 6c 6f 63 61 74 65 64 20 6f 62 6a deallocated obj
69d0: 65 63 74 73 2e 0d 0a 20 20 09 09 20 2a 2f 0d 0a ects... .. */..
69e0: 20 20 0d 0a 21 20 09 09 69 66 20 28 6f 62 6a 63 ..! ..if (objc
69f0: 20 3d 3d 20 31 29 20 7b 0d 0a 21 20 09 09 20 20 == 1) {..! ..
6a00: 20 20 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f 45 result = Tcl_E
6a10: 76 61 6c 4f 62 6a 45 78 28 73 65 6e 64 49 6e 74 valObjEx(sendInt
6a20: 65 72 70 2c 20 6f 62 6a 76 5b 30 5d 2c 0d 0a 21 erp, objv[0],..!
6a30: 20 09 09 09 20 20 20 20 54 43 4c 5f 45 56 41 4c ... TCL_EVAL
6a40: 5f 47 4c 4f 42 41 4c 29 3b 0d 0a 21 20 09 09 7d _GLOBAL);..! ..}
6a50: 20 65 6c 73 65 20 7b 0d 0a 21 20 09 09 20 20 20 else {..! ..
6a60: 20 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 43 6f objPtr = Tcl_Co
6a70: 6e 63 61 74 4f 62 6a 28 6f 62 6a 63 2c 20 6f 62 ncatObj(objc, ob
6a80: 6a 76 29 3b 0d 0a 20 20 09 09 20 20 20 20 54 63 jv);.. .. Tc
6a90: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 6f l_IncrRefCount(o
6aa0: 62 6a 50 74 72 29 3b 0d 0a 21 20 09 09 20 20 20 bjPtr);..! ..
6ab0: 20 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f 45 76 result = Tcl_Ev
6ac0: 61 6c 4f 62 6a 45 78 28 73 65 6e 64 49 6e 74 65 alObjEx(sendInte
6ad0: 72 70 2c 20 6f 62 6a 50 74 72 2c 0d 0a 21 20 09 rp, objPtr,..! .
6ae0: 09 09 20 20 20 20 54 43 4c 5f 45 56 41 4c 5f 47 .. TCL_EVAL_G
6af0: 4c 4f 42 41 4c 29 3b 0d 0a 20 20 09 09 20 20 20 LOBAL);.. ..
6b00: 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e Tcl_DecrRefCoun
6b10: 74 28 6f 62 6a 50 74 72 29 3b 0d 0a 20 20 09 09 t(objPtr);.. ..
6b20: 7d 0d 0a 20 20 09 09 69 66 20 28 69 6e 74 65 72 }.. ..if (inter
6b30: 70 20 21 3d 20 73 65 6e 64 49 6e 74 65 72 70 29 p != sendInterp)
6b40: 20 7b 0d 0a 2d 2d 2d 20 31 35 32 35 2c 31 35 35 {..--- 1525,155
6b50: 35 20 2d 2d 2d 2d 0d 0a 20 20 09 09 20 2a 20 62 5 ----.. .. * b
6b60: 65 20 72 65 66 65 72 72 69 6e 67 20 74 6f 20 64 e referring to d
6b70: 65 61 6c 6c 6f 63 61 74 65 64 20 6f 62 6a 65 63 eallocated objec
6b80: 74 73 2e 0d 0a 20 20 09 09 20 2a 2f 0d 0a 20 20 ts... .. */..
6b90: 0d 0a 21 20 09 09 69 66 20 28 54 63 6c 5f 49 73 ..! ..if (Tcl_Is
6ba0: 53 61 66 65 28 72 69 50 74 72 2d 3e 69 6e 74 65 Safe(riPtr->inte
6bb0: 72 70 29 20 26 26 20 72 69 50 74 72 2d 3e 68 61 rp) && riPtr->ha
6bc0: 6e 64 6c 65 72 50 74 72 20 3d 3d 20 4e 55 4c 4c ndlerPtr == NULL
6bd0: 29 20 7b 0d 0a 21 20 09 09 20 20 20 20 54 63 6c ) {..! .. Tcl
6be0: 5f 53 65 74 52 65 73 75 6c 74 28 72 69 50 74 72 _SetResult(riPtr
6bf0: 2d 3e 69 6e 74 65 72 70 2c 20 22 70 65 72 6d 69 ->interp, "permi
6c00: 73 73 69 6f 6e 20 64 65 6e 69 65 64 3a 20 22 0d ssion denied: ".
6c10: 0a 21 20 09 09 09 20 20 20 20 22 61 20 68 61 6e .! ... "a han
6c20: 64 6c 65 72 20 70 72 6f 63 65 64 75 72 65 20 6d dler procedure m
6c30: 75 73 74 20 62 65 20 64 65 66 69 6e 65 64 20 66 ust be defined f
6c40: 6f 72 20 75 73 65 20 69 6e 20 61 20 73 61 66 65 or use in a safe
6c50: 20 69 6e 74 65 72 70 22 2c 20 54 43 4c 5f 53 54 interp", TCL_ST
6c60: 41 54 49 43 29 3b 0d 0a 21 20 09 09 20 20 20 20 ATIC);..! ..
6c70: 72 65 73 75 6c 74 20 3d 20 54 43 4c 5f 45 52 52 result = TCL_ERR
6c80: 4f 52 3b 0d 0a 21 20 09 09 7d 0d 0a 21 20 0d 0a OR;..! ..}..! ..
6c90: 21 20 09 09 69 66 20 28 72 65 73 75 6c 74 20 3d ! ..if (result =
6ca0: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0d 0a 21 20 09 = TCL_OK) {..! .
6cb0: 09 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d . if (objc ==
6cc0: 20 31 29 0d 0a 21 20 09 09 09 6f 62 6a 50 74 72 1)..! ...objPtr
6cd0: 20 3d 20 6f 62 6a 76 5b 30 5d 3b 0d 0a 21 20 09 = objv[0];..! .
6ce0: 09 20 20 20 20 65 6c 73 65 20 7b 0d 0a 21 20 09 . else {..! .
6cf0: 09 09 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 43 ..objPtr = Tcl_C
6d00: 6f 6e 63 61 74 4f 62 6a 28 6f 62 6a 63 2c 20 6f oncatObj(objc, o
6d10: 62 6a 76 29 3b 0d 0a 21 20 09 09 20 20 20 20 7d bjv);..! .. }
6d20: 0d 0a 21 20 09 09 20 20 20 20 69 66 20 28 72 69 ..! .. if (ri
6d30: 50 74 72 2d 3e 68 61 6e 64 6c 65 72 50 74 72 20 Ptr->handlerPtr
6d40: 21 3d 20 4e 55 4c 4c 29 20 7b 0d 0a 21 20 09 09 != NULL) {..! ..
6d50: 09 2f 2a 20 61 64 64 20 74 68 65 20 64 64 65 20 ./* add the dde
6d60: 72 65 71 75 65 73 74 20 64 61 74 61 20 74 6f 20 request data to
6d70: 74 68 65 20 68 61 6e 64 6c 65 72 20 70 72 6f 63 the handler proc
6d80: 20 6c 69 73 74 20 2a 2f 09 09 09 0d 0a 21 20 09 list */.....! .
6d90: 09 09 2f 2a 72 65 73 75 6c 74 20 3d 20 54 63 6c ../*result = Tcl
6da0: 5f 4c 69 73 74 4f 62 6a 52 65 70 6c 61 63 65 28 _ListObjReplace(
6db0: 73 65 6e 64 49 6e 74 65 72 70 2c 20 6f 62 6a 50 sendInterp, objP
6dc0: 74 72 2c 20 30 2c 20 30 2c 20 31 2c 20 26 28 72 tr, 0, 0, 1, &(r
6dd0: 69 50 74 72 2d 3e 68 61 6e 64 6c 65 72 50 74 72 iPtr->handlerPtr
6de0: 29 29 3b 2a 2f 0d 0a 21 20 09 09 09 54 63 6c 5f ));*/..! ...Tcl_
6df0: 4f 62 6a 20 2a 63 6d 64 50 74 72 20 3d 20 54 63 Obj *cmdPtr = Tc
6e00: 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 72 l_DuplicateObj(r
6e10: 69 50 74 72 2d 3e 68 61 6e 64 6c 65 72 50 74 72 iPtr->handlerPtr
6e20: 29 3b 0d 0a 21 20 09 09 09 72 65 73 75 6c 74 20 );..! ...result
6e30: 3d 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 = Tcl_ListObjApp
6e40: 65 6e 64 45 6c 65 6d 65 6e 74 28 73 65 6e 64 49 endElement(sendI
6e50: 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 6f nterp, cmdPtr, o
6e60: 62 6a 50 74 72 29 3b 0d 0a 21 20 09 09 09 69 66 bjPtr);..! ...if
6e70: 20 28 72 65 73 75 6c 74 20 3d 3d 20 54 43 4c 5f (result == TCL_
6e80: 4f 4b 29 20 7b 0d 0a 21 20 09 09 09 20 20 20 20 OK) {..! ...
6e90: 6f 62 6a 50 74 72 20 3d 20 63 6d 64 50 74 72 3b objPtr = cmdPtr;
6ea0: 0d 0a 21 20 09 09 09 7d 0d 0a 21 20 09 09 20 20 ..! ...}..! ..
6eb0: 20 20 7d 0d 0a 21 20 09 09 7d 0d 0a 21 20 09 09 }..! ..}..! ..
6ec0: 69 66 20 28 72 65 73 75 6c 74 20 3d 3d 20 54 43 if (result == TC
6ed0: 4c 5f 4f 4b 29 20 7b 0d 0a 20 20 09 09 20 20 20 L_OK) {.. ..
6ee0: 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e Tcl_IncrRefCoun
6ef0: 74 28 6f 62 6a 50 74 72 29 3b 0d 0a 21 20 09 09 t(objPtr);..! ..
6f00: 20 20 20 20 72 65 73 75 6c 74 20 3d 20 54 63 6c result = Tcl
6f10: 5f 45 76 61 6c 4f 62 6a 45 78 28 73 65 6e 64 49 _EvalObjEx(sendI
6f20: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 54 nterp, objPtr, T
6f30: 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 3b CL_EVAL_GLOBAL);
6f40: 0d 0a 20 20 09 09 20 20 20 20 54 63 6c 5f 44 65 .. .. Tcl_De
6f50: 63 72 52 65 66 43 6f 75 6e 74 28 6f 62 6a 50 74 crRefCount(objPt
6f60: 72 29 3b 0d 0a 20 20 09 09 7d 0d 0a 20 20 09 09 r);.. ..}.. ..
6f70: 69 66 20 28 69 6e 74 65 72 70 20 21 3d 20 73 65 if (interp != se
6f80: 6e 64 49 6e 74 65 72 70 29 20 7b 0d 0a 2a 2a 2a ndInterp) {..***
6f90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a 2a ************..**
6fa0: 2a 20 31 34 33 36 2c 31 34 34 37 20 2a 2a 2a 2a * 1436,1447 ****
6fb0: 0d 0a 20 20 09 09 09 54 63 6c 5f 52 65 73 65 74 .. ...Tcl_Reset
6fc0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0d Result(interp);.
6fd0: 0a 20 20 09 09 09 6f 62 6a 50 74 72 20 3d 20 54 . ...objPtr = T
6fe0: 63 6c 5f 47 65 74 56 61 72 32 45 78 28 73 65 6e cl_GetVar2Ex(sen
6ff0: 64 49 6e 74 65 72 70 2c 20 22 65 72 72 6f 72 49 dInterp, "errorI
7000: 6e 66 6f 22 2c 20 4e 55 4c 4c 2c 20 0d 0a 20 20 nfo", NULL, ..
7010: 09 09 09 09 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f ....TCL_GLOBAL_O
7020: 4e 4c 59 29 3b 0d 0a 21 20 09 09 09 73 74 72 69 NLY);..! ...stri
7030: 6e 67 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 ng = Tcl_GetStri
7040: 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 50 74 72 ngFromObj(objPtr
7050: 2c 20 26 6c 65 6e 67 74 68 29 3b 0d 0a 21 20 09 , &length);..! .
7060: 09 09 54 63 6c 5f 41 64 64 4f 62 6a 45 72 72 6f ..Tcl_AddObjErro
7070: 72 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 73 74 rInfo(interp, st
7080: 72 69 6e 67 2c 20 6c 65 6e 67 74 68 29 3b 0d 0a ring, length);..
7090: 20 20 09 09 09 0d 0a 20 20 09 09 09 6f 62 6a 50 ..... ...objP
70a0: 74 72 20 3d 20 54 63 6c 5f 47 65 74 56 61 72 32 tr = Tcl_GetVar2
70b0: 45 78 28 73 65 6e 64 49 6e 74 65 72 70 2c 20 22 Ex(sendInterp, "
70c0: 65 72 72 6f 72 43 6f 64 65 22 2c 20 4e 55 4c 4c errorCode", NULL
70d0: 2c 0d 0a 20 20 09 09 09 09 54 43 4c 5f 47 4c 4f ,.. ....TCL_GLO
70e0: 42 41 4c 5f 4f 4e 4c 59 29 3b 0d 0a 21 20 09 09 BAL_ONLY);..! ..
70f0: 09 54 63 6c 5f 53 65 74 4f 62 6a 45 72 72 6f 72 .Tcl_SetObjError
7100: 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 6f 62 6a Code(interp, obj
7110: 50 74 72 29 3b 0d 0a 20 20 09 09 20 20 20 20 7d Ptr);.. .. }
7120: 0d 0a 20 20 09 09 20 20 20 20 54 63 6c 5f 53 65 .. .. Tcl_Se
7130: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
7140: 70 2c 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 p, Tcl_GetObjRes
7150: 75 6c 74 28 73 65 6e 64 49 6e 74 65 72 70 29 29 ult(sendInterp))
7160: 3b 0d 0a 20 20 09 09 7d 0d 0a 2d 2d 2d 20 31 35 ;.. ..}..--- 15
7170: 36 33 2c 31 35 37 37 20 2d 2d 2d 2d 0d 0a 20 20 63,1577 ----..
7180: 09 09 09 54 63 6c 5f 52 65 73 65 74 52 65 73 75 ...Tcl_ResetResu
7190: 6c 74 28 69 6e 74 65 72 70 29 3b 0d 0a 20 20 09 lt(interp);.. .
71a0: 09 09 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 47 ..objPtr = Tcl_G
71b0: 65 74 56 61 72 32 45 78 28 73 65 6e 64 49 6e 74 etVar2Ex(sendInt
71c0: 65 72 70 2c 20 22 65 72 72 6f 72 49 6e 66 6f 22 erp, "errorInfo"
71d0: 2c 20 4e 55 4c 4c 2c 20 0d 0a 20 20 09 09 09 09 , NULL, .. ....
71e0: 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 TCL_GLOBAL_ONLY)
71f0: 3b 0d 0a 21 20 09 09 09 69 66 20 28 6f 62 6a 50 ;..! ...if (objP
7200: 74 72 29 20 7b 0d 0a 21 20 09 09 09 20 20 20 20 tr) {..! ...
7210: 73 74 72 69 6e 67 20 3d 20 54 63 6c 5f 47 65 74 string = Tcl_Get
7220: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 StringFromObj(ob
7230: 6a 50 74 72 2c 20 26 6c 65 6e 67 74 68 29 3b 0d jPtr, &length);.
7240: 0a 21 20 09 09 09 20 20 20 20 54 63 6c 5f 41 64 .! ... Tcl_Ad
7250: 64 4f 62 6a 45 72 72 6f 72 49 6e 66 6f 28 69 6e dObjErrorInfo(in
7260: 74 65 72 70 2c 20 73 74 72 69 6e 67 2c 20 6c 65 terp, string, le
7270: 6e 67 74 68 29 3b 0d 0a 21 20 09 09 09 7d 0d 0a ngth);..! ...}..
7280: 20 20 09 09 09 0d 0a 20 20 09 09 09 6f 62 6a 50 ..... ...objP
7290: 74 72 20 3d 20 54 63 6c 5f 47 65 74 56 61 72 32 tr = Tcl_GetVar2
72a0: 45 78 28 73 65 6e 64 49 6e 74 65 72 70 2c 20 22 Ex(sendInterp, "
72b0: 65 72 72 6f 72 43 6f 64 65 22 2c 20 4e 55 4c 4c errorCode", NULL
72c0: 2c 0d 0a 20 20 09 09 09 09 54 43 4c 5f 47 4c 4f ,.. ....TCL_GLO
72d0: 42 41 4c 5f 4f 4e 4c 59 29 3b 0d 0a 21 20 09 09 BAL_ONLY);..! ..
72e0: 09 69 66 20 28 6f 62 6a 50 74 72 29 0d 0a 21 20 .if (objPtr)..!
72f0: 09 09 09 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 ... Tcl_SetOb
7300: 6a 45 72 72 6f 72 43 6f 64 65 28 69 6e 74 65 72 jErrorCode(inter
7310: 70 2c 20 6f 62 6a 50 74 72 29 3b 0d 0a 20 20 09 p, objPtr);.. .
7320: 09 20 20 20 20 7d 0d 0a 20 20 09 09 20 20 20 20 . }.. ..
7330: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
7340: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
7350: 4f 62 6a 52 65 73 75 6c 74 28 73 65 6e 64 49 6e ObjResult(sendIn
7360: 74 65 72 70 29 29 3b 0d 0a 20 20 09 09 7d 0d 0a terp));.. ..}..
7370: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d ***************.
7380: 0a 2a 2a 2a 20 31 35 38 30 2c 31 35 38 32 20 2a .*** 1580,1582 *
7390: 2a 2a 2a 0d 0a 2d 2d 2d 20 31 37 31 30 2c 31 37 ***..--- 1710,17
73a0: 32 30 20 2d 2d 2d 2d 0d 0a 20 20 20 20 20 20 7d 20 ----.. }
73b0: 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 .. return T
73c0: 43 4c 5f 45 52 52 4f 52 3b 0d 0a 20 20 7d 0d 0a CL_ERROR;.. }..
73d0: 2b 20 0d 0a 2b 20 2f 2a 0d 0a 2b 20 20 2a 20 4c + ..+ /*..+ * L
73e0: 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 3a 0d ocal variables:.
73f0: 0a 2b 20 20 2a 20 20 6d 6f 64 65 3a 20 63 0d 0a .+ * mode: c..
7400: 2b 20 20 2a 20 20 69 6e 64 65 6e 74 2d 74 61 62 + * indent-tab
7410: 73 2d 6d 6f 64 65 3a 20 74 0d 0a 2b 20 20 2a 20 s-mode: t..+ *
7420: 20 74 61 62 2d 77 69 64 74 68 3a 20 38 0d 0a 2b tab-width: 8..+
7430: 20 20 2a 20 45 6e 64 3a 0d 0a 2b 20 20 2a 2f 0d * End:..+ */.
7440: 0a .
