Attachment "577093.patch" to
ticket [577093ffff]
added by
dgp
2005-04-28 01:41:12.
0000: 49 6e 64 65 78 3a 20 64 6f 63 2f 6f 70 65 6e 2e Index: doc/open.
0010: 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d n.==============
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 0a 52 43 53 20 66 69 6c 65 3a 20 =====.RCS file:
0060: 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c /cvsroot/tcl/tcl
0070: 2f 64 6f 63 2f 6f 70 65 6e 2e 6e 2c 76 0a 72 65 /doc/open.n,v.re
0080: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
0090: 6e 20 31 2e 32 33 0a 64 69 66 66 20 2d 75 20 2d n 1.23.diff -u -
00a0: 72 31 2e 32 33 20 6f 70 65 6e 2e 6e 0a 2d 2d 2d r1.23 open.n.---
00b0: 20 64 6f 63 2f 6f 70 65 6e 2e 6e 09 36 20 41 70 doc/open.n.6 Ap
00c0: 72 20 32 30 30 35 20 32 30 3a 35 35 3a 32 33 20 r 2005 20:55:23
00d0: 2d 30 30 30 30 09 31 2e 32 33 0a 2b 2b 2b 20 64 -0000.1.23.+++ d
00e0: 6f 63 2f 6f 70 65 6e 2e 6e 09 32 37 20 41 70 72 oc/open.n.27 Apr
00f0: 20 32 30 30 35 20 31 38 3a 30 37 3a 34 35 20 2d 2005 18:07:45 -
0100: 30 30 30 30 0a 40 40 20 2d 36 31 2c 36 20 2b 36 0000.@@ -61,6 +6
0110: 31 2c 31 34 20 40 40 0a 20 4f 70 65 6e 20 74 68 1,14 @@. Open th
0120: 65 20 66 69 6c 65 20 66 6f 72 20 72 65 61 64 69 e file for readi
0130: 6e 67 20 61 6e 64 20 77 72 69 74 69 6e 67 2e 20 ng and writing.
0140: 20 49 66 20 74 68 65 20 66 69 6c 65 20 64 6f 65 If the file doe
0150: 73 6e 27 74 20 65 78 69 73 74 2c 0a 20 63 72 65 sn't exist,. cre
0160: 61 74 65 20 61 20 6e 65 77 20 65 6d 70 74 79 20 ate a new empty
0170: 66 69 6c 65 2e 0a 20 53 65 74 20 74 68 65 20 69 file.. Set the i
0180: 6e 69 74 69 61 6c 20 61 63 63 65 73 73 20 70 6f nitial access po
0190: 73 69 74 69 6f 6e 20 20 74 6f 20 74 68 65 20 65 sition to the e
01a0: 6e 64 20 6f 66 20 74 68 65 20 66 69 6c 65 2e 0a nd of the file..
01b0: 2b 2e 56 53 20 38 2e 35 0a 2b 2e 50 50 0a 2b 41 +.VS 8.5.+.PP.+A
01c0: 6c 6c 20 6f 66 20 74 68 65 20 6c 65 67 61 6c 20 ll of the legal
01d0: 5c 66 49 61 63 63 65 73 73 5c 66 52 20 76 61 6c \fIaccess\fR val
01e0: 75 65 73 20 61 62 6f 76 65 20 6d 61 79 20 68 61 ues above may ha
01f0: 76 65 20 74 68 65 20 63 68 61 72 61 63 74 65 72 ve the character
0200: 0a 2b 5c 66 42 62 5c 66 52 20 61 64 64 65 64 20 .+\fBb\fR added
0210: 61 73 20 74 68 65 20 73 65 63 6f 6e 64 20 6f 72 as the second or
0220: 20 74 68 69 72 64 20 63 68 61 72 61 63 74 65 72 third character
0230: 20 69 6e 20 74 68 65 20 76 61 6c 75 65 20 74 6f in the value to
0240: 0a 2b 69 6e 64 69 63 61 74 65 20 74 68 61 74 20 .+indicate that
0250: 74 68 65 20 6f 70 65 6e 65 64 20 63 68 61 6e 6e the opened chann
0260: 65 6c 20 73 68 6f 75 6c 64 20 62 65 20 63 6f 6e el should be con
0270: 66 69 67 75 72 65 64 20 77 69 74 68 20 74 68 65 figured with the
0280: 0a 2b 5c 66 42 2d 74 72 61 6e 73 6c 61 74 69 6f .+\fB-translatio
0290: 6e 20 62 69 6e 61 72 79 5c 66 52 20 6f 70 74 69 n binary\fR opti
02a0: 6f 6e 2c 20 6d 61 6b 69 6e 67 20 74 68 65 20 63 on, making the c
02b0: 68 61 6e 6e 65 6c 20 73 75 69 74 61 62 6c 65 20 hannel suitable
02c0: 66 6f 72 20 0a 2b 72 65 61 64 69 6e 67 20 6f 72 for .+reading or
02d0: 20 77 72 69 74 69 6e 67 20 6f 66 20 62 69 6e 61 writing of bina
02e0: 72 79 20 64 61 74 61 2e 0a 2b 2e 56 45 20 38 2e ry data..+.VE 8.
02f0: 35 0a 20 2e 50 50 0a 20 49 6e 20 74 68 65 20 73 5. .PP. In the s
0300: 65 63 6f 6e 64 20 66 6f 72 6d 2c 20 5c 66 49 61 econd form, \fIa
0310: 63 63 65 73 73 5c 66 52 20 63 6f 6e 73 69 73 74 ccess\fR consist
0320: 73 20 6f 66 20 61 20 6c 69 73 74 20 6f 66 20 61 s of a list of a
0330: 6e 79 20 6f 66 20 74 68 65 0a 20 66 6f 6c 6c 6f ny of the. follo
0340: 77 69 6e 67 20 66 6c 61 67 73 2c 20 61 6c 6c 20 wing flags, all
0350: 6f 66 20 77 68 69 63 68 20 68 61 76 65 20 74 68 of which have th
0360: 65 20 73 74 61 6e 64 61 72 64 20 50 4f 53 49 58 e standard POSIX
0370: 20 6d 65 61 6e 69 6e 67 73 2e 0a 40 40 20 2d 37 meanings..@@ -7
0380: 38 2c 36 20 2b 38 36 2c 31 31 20 40 40 0a 20 5c 8,6 +86,11 @@. \
0390: 66 42 41 50 50 45 4e 44 5c 66 52 0a 20 53 65 74 fBAPPEND\fR. Set
03a0: 20 74 68 65 20 66 69 6c 65 20 70 6f 69 6e 74 65 the file pointe
03b0: 72 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 r to the end of
03c0: 74 68 65 20 66 69 6c 65 20 70 72 69 6f 72 20 74 the file prior t
03d0: 6f 20 65 61 63 68 20 77 72 69 74 65 2e 0a 20 2e o each write.. .
03e0: 54 50 20 31 35 0a 2b 2e 56 53 20 38 2e 35 0a 2b TP 15.+.VS 8.5.+
03f0: 5c 66 42 42 49 4e 41 52 59 5c 66 52 0a 2b 43 6f \fBBINARY\fR.+Co
0400: 6e 66 69 67 75 72 65 20 74 68 65 20 6f 70 65 6e nfigure the open
0410: 65 64 20 63 68 61 6e 6e 65 64 20 77 69 74 68 20 ed channed with
0420: 74 68 65 20 5c 66 42 2d 74 72 61 6e 73 6c 61 74 the \fB-translat
0430: 69 6f 6e 20 62 69 6e 61 72 79 5c 66 52 20 6f 70 ion binary\fR op
0440: 74 69 6f 6e 2e 0a 2b 2e 56 45 20 38 2e 35 0a 2b tion..+.VE 8.5.+
0450: 2e 54 50 20 31 35 0a 20 5c 66 42 43 52 45 41 54 .TP 15. \fBCREAT
0460: 5c 66 52 0a 20 43 72 65 61 74 65 20 74 68 65 20 \fR. Create the
0470: 66 69 6c 65 20 69 66 20 69 74 20 64 6f 65 73 6e file if it doesn
0480: 27 74 20 61 6c 72 65 61 64 79 20 65 78 69 73 74 't already exist
0490: 20 28 77 69 74 68 6f 75 74 20 74 68 69 73 20 66 (without this f
04a0: 6c 61 67 20 69 74 0a 20 69 73 20 61 6e 20 65 72 lag it. is an er
04b0: 72 6f 72 20 66 6f 72 20 74 68 65 20 66 69 6c 65 ror for the file
04c0: 20 6e 6f 74 20 74 6f 20 65 78 69 73 74 29 2e 0a not to exist)..
04d0: 40 40 20 2d 31 30 36 2c 31 34 20 2b 31 31 39 2c @@ -106,14 +119,
04e0: 36 20 40 40 0a 20 28 61 6e 20 69 6e 74 65 67 65 6 @@. (an intege
04f0: 72 29 20 69 73 20 75 73 65 64 20 74 6f 20 73 65 r) is used to se
0500: 74 20 74 68 65 20 70 65 72 6d 69 73 73 69 6f 6e t the permission
0510: 73 20 66 6f 72 20 74 68 65 20 6e 65 77 20 66 69 s for the new fi
0520: 6c 65 20 69 6e 0a 20 63 6f 6e 6a 75 6e 63 74 69 le in. conjuncti
0530: 6f 6e 20 77 69 74 68 20 74 68 65 20 70 72 6f 63 on with the proc
0540: 65 73 73 27 73 20 66 69 6c 65 20 6d 6f 64 65 20 ess's file mode
0550: 63 72 65 61 74 69 6f 6e 20 6d 61 73 6b 2e 0a 20 creation mask..
0560: 5c 66 49 50 65 72 6d 69 73 73 69 6f 6e 73 5c 66 \fIPermissions\f
0570: 52 20 64 65 66 61 75 6c 74 73 20 74 6f 20 30 36 R defaults to 06
0580: 36 36 2e 0a 2d 2e 50 50 0a 2d 4e 6f 74 65 20 74 66..-.PP.-Note t
0590: 68 61 74 20 69 66 20 79 6f 75 20 61 72 65 20 67 hat if you are g
05a0: 6f 69 6e 67 20 74 6f 20 62 65 20 72 65 61 64 69 oing to be readi
05b0: 6e 67 20 6f 72 20 77 72 69 74 69 6e 67 20 62 69 ng or writing bi
05c0: 6e 61 72 79 20 64 61 74 61 20 66 72 6f 6d 0a 2d nary data from.-
05d0: 74 68 65 20 63 68 61 6e 6e 65 6c 20 63 72 65 61 the channel crea
05e0: 74 65 64 20 62 79 20 74 68 69 73 20 63 6f 6d 6d ted by this comm
05f0: 61 6e 64 2c 20 79 6f 75 20 73 68 6f 75 6c 64 20 and, you should
0600: 75 73 65 20 74 68 65 0a 2d 5c 66 42 66 63 6f 6e use the.-\fBfcon
0610: 66 69 67 75 72 65 5c 66 52 20 63 6f 6d 6d 61 6e figure\fR comman
0620: 64 20 74 6f 20 63 68 61 6e 67 65 20 74 68 65 20 d to change the
0630: 5c 66 42 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 5c \fB-translation\
0640: 66 52 20 6f 70 74 69 6f 6e 20 6f 66 0a 2d 74 68 fR option of.-th
0650: 65 20 63 68 61 6e 6e 65 6c 20 74 6f 20 5c 66 42 e channel to \fB
0660: 62 69 6e 61 72 79 5c 66 52 20 62 65 66 6f 72 65 binary\fR before
0670: 20 74 72 61 6e 73 66 65 72 72 69 6e 67 20 61 6e transferring an
0680: 79 20 62 69 6e 61 72 79 20 64 61 74 61 2e 20 20 y binary data.
0690: 54 68 69 73 0a 2d 69 73 20 69 6e 20 63 6f 6e 74 This.-is in cont
06a0: 72 61 73 74 20 74 6f 20 74 68 65 20 60 60 62 27 rast to the ``b'
06b0: 27 20 63 68 61 72 61 63 74 65 72 20 70 61 73 73 ' character pass
06c0: 65 64 20 61 73 20 70 61 72 74 20 6f 66 20 74 68 ed as part of th
06d0: 65 20 65 71 75 69 76 61 6c 65 6e 74 0a 2d 6f 66 e equivalent.-of
06e0: 20 74 68 65 20 5c 66 49 61 63 63 65 73 73 5c 66 the \fIaccess\f
06f0: 52 20 70 61 72 61 6d 65 74 65 72 20 74 6f 20 73 R parameter to s
0700: 6f 6d 65 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 ome versions of
0710: 74 68 65 20 43 20 6c 69 62 72 61 72 79 0a 2d 5c the C library.-\
0720: 66 49 66 6f 70 65 6e 28 29 5c 66 52 20 66 75 6e fIfopen()\fR fun
0730: 63 74 69 6f 6e 2e 0a 20 0a 20 2e 53 48 20 22 43 ction.. . .SH "C
0740: 4f 4d 4d 41 4e 44 20 50 49 50 45 4c 49 4e 45 53 OMMAND PIPELINES
0750: 22 0a 20 2e 50 50 0a 49 6e 64 65 78 3a 20 67 65 ". .PP.Index: ge
0760: 6e 65 72 69 63 2f 74 63 6c 49 4f 43 6d 64 2e 63 neric/tclIOCmd.c
0770: 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .===============
0780: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0790: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
07a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
07b0: 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f ====.RCS file: /
07c0: 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f cvsroot/tcl/tcl/
07d0: 67 65 6e 65 72 69 63 2f 74 63 6c 49 4f 43 6d 64 generic/tclIOCmd
07e0: 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 .c,v.retrieving
07f0: 72 65 76 69 73 69 6f 6e 20 31 2e 32 32 0a 64 69 revision 1.22.di
0800: 66 66 20 2d 75 20 2d 72 31 2e 32 32 20 74 63 6c ff -u -r1.22 tcl
0810: 49 4f 43 6d 64 2e 63 0a 2d 2d 2d 20 67 65 6e 65 IOCmd.c.--- gene
0820: 72 69 63 2f 74 63 6c 49 4f 43 6d 64 2e 63 09 37 ric/tclIOCmd.c.7
0830: 20 4f 63 74 20 32 30 30 34 20 30 30 3a 32 34 3a Oct 2004 00:24:
0840: 34 39 20 2d 30 30 30 30 09 31 2e 32 32 0a 2b 2b 49 -0000.1.22.++
0850: 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 49 4f 43 + generic/tclIOC
0860: 6d 64 2e 63 09 32 37 20 41 70 72 20 32 30 30 35 md.c.27 Apr 2005
0870: 20 31 38 3a 30 37 3a 34 35 20 2d 30 30 30 30 0a 18:07:45 -0000.
0880: 40 40 20 2d 39 36 30 2c 31 34 20 2b 39 36 30 2c @@ -960,14 +960,
0890: 31 34 20 40 40 0a 20 20 20 20 20 69 66 20 28 21 14 @@. if (!
08a0: 70 69 70 65 6c 69 6e 65 29 20 7b 0a 20 20 20 20 pipeline) {.
08b0: 20 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f chan = Tcl_
08c0: 46 53 4f 70 65 6e 46 69 6c 65 43 68 61 6e 6e 65 FSOpenFileChanne
08d0: 6c 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 l(interp, objv[1
08e0: 5d 2c 20 6d 6f 64 65 53 74 72 69 6e 67 2c 20 70 ], modeString, p
08f0: 72 6f 74 29 3b 0a 20 20 20 20 20 7d 20 65 6c 73 rot);. } els
0900: 65 20 7b 0a 2d 09 69 6e 74 20 6d 6f 64 65 2c 20 e {.-.int mode,
0910: 73 65 65 6b 46 6c 61 67 2c 20 63 6d 64 4f 62 6a seekFlag, cmdObj
0920: 63 3b 0a 2b 09 69 6e 74 20 6d 6f 64 65 2c 20 73 c;.+.int mode, s
0930: 65 65 6b 46 6c 61 67 2c 20 63 6d 64 4f 62 6a 63 eekFlag, cmdObjc
0940: 2c 20 62 69 6e 61 72 79 3b 0a 20 09 43 4f 4e 53 , binary;. .CONS
0950: 54 20 63 68 61 72 20 2a 2a 63 6d 64 41 72 67 76 T char **cmdArgv
0960: 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 69 66 20 ;. . if
0970: 28 54 63 6c 5f 53 70 6c 69 74 4c 69 73 74 28 69 (Tcl_SplitList(i
0980: 6e 74 65 72 70 2c 20 77 68 61 74 2b 31 2c 20 26 nterp, what+1, &
0990: 63 6d 64 4f 62 6a 63 2c 20 26 63 6d 64 41 72 67 cmdObjc, &cmdArg
09a0: 76 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a v) != TCL_OK) {.
09b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 ret
09c0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
09d0: 20 20 20 20 20 20 20 20 7d 0a 20 0a 2d 20 20 20 }. .-
09e0: 20 20 20 20 20 6d 6f 64 65 20 3d 20 54 63 6c 47 mode = TclG
09f0: 65 74 4f 70 65 6e 4d 6f 64 65 28 69 6e 74 65 72 etOpenMode(inter
0a00: 70 2c 20 6d 6f 64 65 53 74 72 69 6e 67 2c 20 26 p, modeString, &
0a10: 73 65 65 6b 46 6c 61 67 29 3b 0a 2b 20 20 20 20 seekFlag);.+
0a20: 20 20 20 20 6d 6f 64 65 20 3d 20 54 63 6c 47 65 mode = TclGe
0a30: 74 4f 70 65 6e 4d 6f 64 65 45 78 28 69 6e 74 65 tOpenModeEx(inte
0a40: 72 70 2c 20 6d 6f 64 65 53 74 72 69 6e 67 2c 20 rp, modeString,
0a50: 26 73 65 65 6b 46 6c 61 67 2c 20 26 62 69 6e 61 &seekFlag, &bina
0a60: 72 79 29 3b 0a 20 20 20 20 20 20 20 20 20 69 66 ry);. if
0a70: 20 28 6d 6f 64 65 20 3d 3d 20 2d 31 29 20 7b 0a (mode == -1) {.
0a80: 20 09 20 20 20 20 63 68 61 6e 20 3d 20 4e 55 4c . chan = NUL
0a90: 4c 3b 0a 20 20 20 20 20 20 20 20 20 7d 20 65 6c L;. } el
0aa0: 73 65 20 7b 0a 40 40 20 2d 39 38 37 2c 36 20 2b se {.@@ -987,6 +
0ab0: 39 38 37 2c 39 20 40 40 0a 20 09 09 20 20 20 20 987,9 @@. ..
0ac0: 62 72 65 61 6b 3b 0a 20 09 20 20 20 20 7d 0a 20 break;. . }.
0ad0: 09 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f . chan = Tcl_
0ae0: 4f 70 65 6e 43 6f 6d 6d 61 6e 64 43 68 61 6e 6e OpenCommandChann
0af0: 65 6c 28 69 6e 74 65 72 70 2c 20 63 6d 64 4f 62 el(interp, cmdOb
0b00: 6a 63 2c 20 63 6d 64 41 72 67 76 2c 20 66 6c 61 jc, cmdArgv, fla
0b10: 67 73 29 3b 0a 2b 09 20 20 20 20 69 66 20 28 62 gs);.+. if (b
0b20: 69 6e 61 72 79 29 20 7b 0a 2b 09 09 54 63 6c 5f inary) {.+..Tcl_
0b30: 53 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e SetChannelOption
0b40: 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 (interp, chan, "
0b50: 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 22 2c 20 22 -translation", "
0b60: 62 69 6e 61 72 79 22 29 3b 0a 2b 09 20 20 20 20 binary");.+.
0b70: 7d 0a 20 09 7d 0a 20 20 20 20 20 20 20 20 20 63 }. .}. c
0b80: 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29 20 63 kfree((char *) c
0b90: 6d 64 41 72 67 76 29 3b 0a 20 20 20 20 20 7d 0a mdArgv);. }.
0ba0: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 Index: generic/t
0bb0: 63 6c 49 4f 55 74 69 6c 2e 63 0a 3d 3d 3d 3d 3d clIOUtil.c.=====
0bc0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0bd0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0be0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0bf0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 ==============.R
0c00: 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f CS file: /cvsroo
0c10: 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 t/tcl/tcl/generi
0c20: 63 2f 74 63 6c 49 4f 55 74 69 6c 2e 63 2c 76 0a c/tclIOUtil.c,v.
0c30: 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 retrieving revis
0c40: 69 6f 6e 20 31 2e 31 31 36 0a 64 69 66 66 20 2d ion 1.116.diff -
0c50: 75 20 2d 72 31 2e 31 31 36 20 74 63 6c 49 4f 55 u -r1.116 tclIOU
0c60: 74 69 6c 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69 til.c.--- generi
0c70: 63 2f 74 63 6c 49 4f 55 74 69 6c 2e 63 09 31 36 c/tclIOUtil.c.16
0c80: 20 41 70 72 20 32 30 30 35 20 30 38 3a 30 34 3a Apr 2005 08:04:
0c90: 35 36 20 2d 30 30 30 30 09 31 2e 31 31 36 0a 2b 56 -0000.1.116.+
0ca0: 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 49 4f ++ generic/tclIO
0cb0: 55 74 69 6c 2e 63 09 32 37 20 41 70 72 20 32 30 Util.c.27 Apr 20
0cc0: 30 35 20 31 38 3a 30 37 3a 34 36 20 2d 30 30 30 05 18:07:46 -000
0cd0: 30 0a 40 40 20 2d 31 34 31 32 2c 39 20 2b 31 34 0.@@ -1412,9 +14
0ce0: 31 32 2c 34 33 20 40 40 0a 20 20 2a 20 54 63 6c 12,43 @@. * Tcl
0cf0: 47 65 74 4f 70 65 6e 4d 6f 64 65 20 2d 2d 0a 20 GetOpenMode --.
0d00: 20 2a 0a 20 20 2a 20 44 65 73 63 72 69 70 74 69 *. * Descripti
0d10: 6f 6e 3a 0a 2b 20 2a 20 09 54 68 69 73 20 72 6f on:.+ * .This ro
0d20: 75 74 69 6e 65 20 69 73 20 61 6e 20 6f 62 73 6f utine is an obso
0d30: 6c 65 74 65 2c 20 6c 69 6d 69 74 65 64 20 76 65 lete, limited ve
0d40: 72 73 69 6f 6e 20 6f 66 0a 2b 20 2a 20 09 54 63 rsion of.+ * .Tc
0d50: 6c 47 65 74 4f 70 65 6e 4d 6f 64 65 45 78 28 29 lGetOpenModeEx()
0d60: 20 62 65 6c 6f 77 2e 20 20 49 74 20 65 78 69 73 below. It exis
0d70: 74 73 20 6f 6e 6c 79 20 74 6f 20 73 61 74 69 73 ts only to satis
0d80: 66 79 20 61 6e 79 0a 2b 20 2a 20 09 65 78 74 65 fy any.+ * .exte
0d90: 6e 73 69 6f 6e 73 20 69 6d 70 72 75 64 65 6e 74 nsions imprudent
0da0: 6c 79 20 75 73 69 6e 67 20 69 74 20 76 69 61 20 ly using it via
0db0: 54 63 6c 27 73 20 69 6e 74 65 72 6e 61 6c 20 73 Tcl's internal s
0dc0: 74 75 62 73 20 74 61 62 6c 65 2e 0a 2b 20 2a 0a tubs table..+ *.
0dd0: 2b 20 2a 20 52 65 73 75 6c 74 73 3a 0a 2b 20 2a + * Results:.+ *
0de0: 20 09 53 61 6d 65 20 61 73 20 54 63 6c 47 65 74 .Same as TclGet
0df0: 4f 70 65 6e 4d 6f 64 65 45 78 28 29 2e 0a 2b 20 OpenModeEx()..+
0e00: 2a 0a 2b 20 2a 20 53 69 64 65 20 65 66 66 65 63 *.+ * Side effec
0e10: 74 73 3a 0a 2b 20 2a 20 09 53 61 6d 65 20 61 73 ts:.+ * .Same as
0e20: 20 54 63 6c 47 65 74 4f 70 65 6e 4d 6f 64 65 45 TclGetOpenModeE
0e30: 78 28 29 2e 0a 2b 20 2a 0a 2b 20 2a 2d 2d 2d 2d x()..+ *.+ *----
0e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e80: 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 2f 0a 2b 0a 2b -------.+ */.+.+
0e90: 69 6e 74 0a 2b 54 63 6c 47 65 74 4f 70 65 6e 4d int.+TclGetOpenM
0ea0: 6f 64 65 28 69 6e 74 65 72 70 2c 20 6d 6f 64 65 ode(interp, mode
0eb0: 53 74 72 69 6e 67 2c 20 73 65 65 6b 46 6c 61 67 String, seekFlag
0ec0: 50 74 72 29 0a 2b 20 20 20 20 54 63 6c 5f 49 6e Ptr).+ Tcl_In
0ed0: 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 09 09 terp *interp;...
0ee0: 2f 2a 20 49 6e 74 65 72 70 72 65 74 65 72 20 74 /* Interpreter t
0ef0: 6f 20 75 73 65 20 66 6f 72 20 65 72 72 6f 72 0a o use for error.
0f00: 2b 09 09 09 09 09 20 2a 20 72 65 70 6f 72 74 69 +..... * reporti
0f10: 6e 67 20 2d 20 6d 61 79 20 62 65 20 4e 55 4c 4c ng - may be NULL
0f20: 2e 20 2a 2f 0a 2b 20 20 20 20 43 4f 4e 53 54 20 . */.+ CONST
0f30: 63 68 61 72 20 2a 6d 6f 64 65 53 74 72 69 6e 67 char *modeString
0f40: 3b 09 09 2f 2a 20 4d 6f 64 65 20 73 74 72 69 6e ;../* Mode strin
0f50: 67 2c 20 65 2e 67 2e 20 22 72 2b 22 20 6f 72 0a g, e.g. "r+" or.
0f60: 2b 09 09 09 09 09 20 2a 20 22 52 44 4f 4e 4c 59 +..... * "RDONLY
0f70: 20 43 52 45 41 54 22 2e 20 2a 2f 0a 2b 20 20 20 CREAT". */.+
0f80: 20 69 6e 74 20 2a 73 65 65 6b 46 6c 61 67 50 74 int *seekFlagPt
0f90: 72 3b 09 09 09 2f 2a 20 53 65 74 20 74 68 69 73 r;.../* Set this
0fa0: 20 74 6f 20 31 20 69 66 20 74 68 65 20 63 61 6c to 1 if the cal
0fb0: 6c 65 72 0a 2b 20 20 20 20 20 20 20 20 20 20 20 ler.+
0fc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 *
0fe0: 73 68 6f 75 6c 64 20 73 65 65 6b 20 74 6f 20 45 should seek to E
0ff0: 4f 46 20 64 75 72 69 6e 67 20 74 68 65 0a 2b 20 OF during the.+
1000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1020: 20 20 20 20 20 20 20 20 2a 20 6f 70 65 6e 69 6e * openin
1030: 67 20 6f 66 20 74 68 65 20 66 69 6c 65 2e 20 2a g of the file. *
1040: 2f 0a 2b 7b 0a 2b 20 20 20 20 69 6e 74 20 62 69 /.+{.+ int bi
1050: 6e 61 72 79 20 3d 20 30 3b 0a 2b 20 20 20 20 72 nary = 0;.+ r
1060: 65 74 75 72 6e 20 54 63 6c 47 65 74 4f 70 65 6e eturn TclGetOpen
1070: 4d 6f 64 65 45 78 28 69 6e 74 65 72 70 2c 20 6d ModeEx(interp, m
1080: 6f 64 65 53 74 72 69 6e 67 2c 20 73 65 65 6b 46 odeString, seekF
1090: 6c 61 67 50 74 72 2c 20 26 62 69 6e 61 72 79 29 lagPtr, &binary)
10a0: 3b 0a 2b 7d 0a 2b 0c 0a 2b 2f 2a 0a 2b 20 2a 2d ;.+}.+..+/*.+ *-
10b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 2a 0a 2b ----------.+ *.+
1100: 20 2a 20 54 63 6c 47 65 74 4f 70 65 6e 4d 6f 64 * TclGetOpenMod
1110: 65 45 78 20 2d 2d 0a 2b 20 2a 0a 2b 20 2a 20 44 eEx --.+ *.+ * D
1120: 65 73 63 72 69 70 74 69 6f 6e 3a 0a 20 20 2a 09 escription:. *.
1130: 43 6f 6d 70 75 74 65 73 20 61 20 50 4f 53 49 58 Computes a POSIX
1140: 20 6d 6f 64 65 20 6d 61 73 6b 20 66 6f 72 20 6f mode mask for o
1150: 70 65 6e 69 6e 67 20 61 20 66 69 6c 65 2c 20 66 pening a file, f
1160: 72 6f 6d 20 61 20 67 69 76 65 6e 20 73 74 72 69 rom a given stri
1170: 6e 67 2c 0a 2d 20 2a 09 61 6e 64 20 61 6c 73 6f ng,.- *.and also
1180: 20 73 65 74 73 20 61 20 66 6c 61 67 20 74 6f 20 sets a flag to
1190: 69 6e 64 69 63 61 74 65 20 77 68 65 74 68 65 72 indicate whether
11a0: 20 74 68 65 20 63 61 6c 6c 65 72 20 73 68 6f 75 the caller shou
11b0: 6c 64 20 73 65 65 6b 20 74 6f 0a 2d 20 2a 09 45 ld seek to.- *.E
11c0: 4f 46 20 61 66 74 65 72 20 6f 70 65 6e 69 6e 67 OF after opening
11d0: 20 74 68 65 20 66 69 6c 65 2e 0a 2b 20 2a 09 61 the file..+ *.a
11e0: 6e 64 20 61 6c 73 6f 20 73 65 74 73 20 66 6c 61 nd also sets fla
11f0: 67 73 20 74 6f 20 69 6e 64 69 63 61 74 65 20 77 gs to indicate w
1200: 68 65 74 68 65 72 20 74 68 65 20 63 61 6c 6c 65 hether the calle
1210: 72 20 73 68 6f 75 6c 64 20 73 65 65 6b 20 74 6f r should seek to
1220: 0a 2b 20 2a 09 45 4f 46 20 61 66 74 65 72 20 6f .+ *.EOF after o
1230: 70 65 6e 69 6e 67 20 74 68 65 20 66 69 6c 65 2c pening the file,
1240: 20 61 6e 64 20 77 68 65 74 68 65 72 20 74 68 65 and whether the
1250: 20 63 61 6c 6c 65 72 20 73 68 6f 75 6c 64 0a 2b caller should.+
1260: 20 2a 09 63 6f 6e 66 69 67 75 72 65 20 74 68 65 *.configure the
1270: 20 63 68 61 6e 6e 65 6c 20 66 6f 72 20 62 69 6e channel for bin
1280: 61 72 79 20 64 61 74 61 2e 0a 20 20 2a 0a 20 20 ary data.. *.
1290: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 20 2a 09 4f * Results:. *.O
12a0: 6e 20 73 75 63 63 65 73 73 2c 20 72 65 74 75 72 n success, retur
12b0: 6e 73 20 6d 6f 64 65 20 74 6f 20 70 61 73 73 20 ns mode to pass
12c0: 74 6f 20 22 6f 70 65 6e 22 2e 20 49 66 20 61 6e to "open". If an
12d0: 20 65 72 72 6f 72 20 6f 63 63 75 72 73 2c 20 74 error occurs, t
12e0: 68 65 0a 40 40 20 2d 31 34 32 33 2c 37 20 2b 31 he.@@ -1423,7 +1
12f0: 34 35 37 2c 39 20 40 40 0a 20 20 2a 0a 20 20 2a 457,9 @@. *. *
1300: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
1310: 20 2a 09 53 65 74 73 20 74 68 65 20 69 6e 74 65 *.Sets the inte
1320: 67 65 72 20 72 65 66 65 72 65 6e 63 65 64 20 62 ger referenced b
1330: 79 20 73 65 65 6b 46 6c 61 67 50 74 72 20 74 6f y seekFlagPtr to
1340: 20 31 20 74 6f 20 74 65 6c 6c 20 74 68 65 20 63 1 to tell the c
1350: 61 6c 6c 65 72 0a 2d 20 2a 09 74 6f 20 73 65 65 aller.- *.to see
1360: 6b 20 74 6f 20 45 4f 46 20 61 66 74 65 72 20 6f k to EOF after o
1370: 70 65 6e 69 6e 67 20 74 68 65 20 66 69 6c 65 2e pening the file.
1380: 0a 2b 20 2a 09 74 6f 20 73 65 65 6b 20 74 6f 20 .+ *.to seek to
1390: 45 4f 46 20 61 66 74 65 72 20 6f 70 65 6e 69 6e EOF after openin
13a0: 67 20 74 68 65 20 66 69 6c 65 2c 20 6f 72 20 74 g the file, or t
13b0: 6f 20 30 20 6f 74 68 65 72 77 69 73 65 2e 20 20 o 0 otherwise.
13c0: 53 65 74 73 20 74 68 65 0a 2b 20 2a 09 69 6e 74 Sets the.+ *.int
13d0: 65 67 65 72 20 72 65 66 65 72 65 6e 63 65 64 20 eger referenced
13e0: 62 79 20 62 69 6e 61 72 79 50 74 72 20 74 6f 20 by binaryPtr to
13f0: 31 20 74 6f 20 74 65 6c 6c 20 74 68 65 20 63 61 1 to tell the ca
1400: 6c 6c 65 72 09 74 6f 20 73 65 65 6b 20 74 6f 0a ller.to seek to.
1410: 2b 20 2a 09 63 6f 6e 66 69 67 75 72 65 20 74 68 + *.configure th
1420: 65 20 63 68 61 6e 6e 65 6c 20 66 6f 72 20 62 69 e channel for bi
1430: 6e 61 72 79 20 64 61 74 61 2c 20 6f 72 20 74 6f nary data, or to
1440: 20 30 20 6f 74 68 65 72 77 69 73 65 2e 0a 20 20 0 otherwise..
1450: 2a 0a 20 20 2a 20 53 70 65 63 69 61 6c 20 6e 6f *. * Special no
1460: 74 65 3a 0a 20 20 2a 09 54 68 69 73 20 63 6f 64 te:. *.This cod
1470: 65 20 69 73 20 62 61 73 65 64 20 6f 6e 20 61 20 e is based on a
1480: 70 72 6f 74 6f 74 79 70 65 20 69 6d 70 6c 65 6d prototype implem
1490: 65 6e 74 61 74 69 6f 6e 20 63 6f 6e 74 72 69 62 entation contrib
14a0: 75 74 65 64 0a 40 40 20 2d 31 34 33 31 2c 31 36 uted.@@ -1431,16
14b0: 20 2b 31 34 36 37 2c 31 38 20 40 40 0a 20 20 2a +1467,18 @@. *
14c0: 0a 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *------------
14d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
1510: 20 20 2a 2f 0a 2d 0a 20 69 6e 74 0a 2d 54 63 6c */.-. int.-Tcl
1520: 47 65 74 4f 70 65 6e 4d 6f 64 65 28 69 6e 74 65 GetOpenMode(inte
1530: 72 70 2c 20 73 74 72 69 6e 67 2c 20 73 65 65 6b rp, string, seek
1540: 46 6c 61 67 50 74 72 29 0a 2b 54 63 6c 47 65 74 FlagPtr).+TclGet
1550: 4f 70 65 6e 4d 6f 64 65 45 78 28 69 6e 74 65 72 OpenModeEx(inter
1560: 70 2c 20 6d 6f 64 65 53 74 72 69 6e 67 2c 20 73 p, modeString, s
1570: 65 65 6b 46 6c 61 67 50 74 72 2c 20 62 69 6e 61 eekFlagPtr, bina
1580: 72 79 50 74 72 29 0a 20 20 20 20 20 54 63 6c 5f ryPtr). Tcl_
1590: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 Interp *interp;.
15a0: 09 09 2f 2a 20 49 6e 74 65 72 70 72 65 74 65 72 ../* Interpreter
15b0: 20 74 6f 20 75 73 65 20 66 6f 72 20 65 72 72 6f to use for erro
15c0: 72 0a 20 09 09 09 09 09 20 2a 20 72 65 70 6f 72 r. ..... * repor
15d0: 74 69 6e 67 20 2d 20 6d 61 79 20 62 65 20 4e 55 ting - may be NU
15e0: 4c 4c 2e 20 2a 2f 0a 2d 20 20 20 20 43 4f 4e 53 LL. */.- CONS
15f0: 54 20 63 68 61 72 20 2a 73 74 72 69 6e 67 3b 09 T char *string;.
1600: 09 09 2f 2a 20 4d 6f 64 65 20 73 74 72 69 6e 67 ../* Mode string
1610: 2c 20 65 2e 67 2e 20 22 72 2b 22 20 6f 72 0a 2b , e.g. "r+" or.+
1620: 20 20 20 20 43 4f 4e 53 54 20 63 68 61 72 20 2a CONST char *
1630: 6d 6f 64 65 53 74 72 69 6e 67 3b 09 09 2f 2a 20 modeString;../*
1640: 4d 6f 64 65 20 73 74 72 69 6e 67 2c 20 65 2e 67 Mode string, e.g
1650: 2e 20 22 72 2b 22 20 6f 72 0a 20 09 09 09 09 09 . "r+" or. .....
1660: 20 2a 20 22 52 44 4f 4e 4c 59 20 43 52 45 41 54 * "RDONLY CREAT
1670: 22 2e 20 2a 2f 0a 20 20 20 20 20 69 6e 74 20 2a ". */. int *
1680: 73 65 65 6b 46 6c 61 67 50 74 72 3b 09 09 09 2f seekFlagPtr;.../
1690: 2a 20 53 65 74 20 74 68 69 73 20 74 6f 20 31 20 * Set this to 1
16a0: 69 66 20 74 68 65 20 63 61 6c 6c 65 72 0a 20 20 if the caller.
16b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
16c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
16d0: 20 20 20 20 20 20 20 20 2a 20 73 68 6f 75 6c 64 * should
16e0: 20 73 65 65 6b 20 74 6f 20 45 4f 46 20 64 75 72 seek to EOF dur
16f0: 69 6e 67 20 74 68 65 0a 20 20 20 20 20 20 20 20 ing the.
1700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1720: 20 20 2a 20 6f 70 65 6e 69 6e 67 20 6f 66 20 74 * opening of t
1730: 68 65 20 66 69 6c 65 2e 20 2a 2f 0a 2b 20 20 20 he file. */.+
1740: 20 69 6e 74 20 2a 62 69 6e 61 72 79 50 74 72 3b int *binaryPtr;
1750: 09 09 09 2f 2a 20 53 65 74 20 74 68 69 73 20 74 .../* Set this t
1760: 6f 20 31 20 69 66 20 74 68 65 20 63 61 6c 6c 65 o 1 if the calle
1770: 72 0a 2b 09 09 09 09 09 20 2a 20 73 68 6f 75 6c r.+..... * shoul
1780: 64 20 63 6f 6e 66 69 67 75 72 65 20 74 68 65 20 d configure the
1790: 6f 70 65 6e 65 64 0a 2b 09 09 09 09 09 20 2a 20 opened.+..... *
17a0: 63 68 61 6e 6e 65 6c 20 66 6f 72 20 62 69 6e 61 channel for bina
17b0: 72 79 20 6f 70 65 72 61 74 69 6f 6e 73 20 2a 2f ry operations */
17c0: 0a 20 7b 0a 20 20 20 20 20 69 6e 74 20 6d 6f 64 . {. int mod
17d0: 65 2c 20 6d 6f 64 65 41 72 67 63 2c 20 63 2c 20 e, modeArgc, c,
17e0: 69 2c 20 67 6f 74 52 57 3b 0a 20 20 20 20 20 43 i, gotRW;. C
17f0: 4f 4e 53 54 20 63 68 61 72 20 2a 2a 6d 6f 64 65 ONST char **mode
1800: 41 72 67 76 2c 20 2a 66 6c 61 67 3b 0a 40 40 20 Argv, *flag;.@@
1810: 2d 31 34 35 33 2c 36 20 2b 31 34 39 31 2c 37 20 -1453,6 +1491,7
1820: 40 40 0a 20 20 20 20 20 20 2a 2f 0a 20 0a 20 20 @@. */. .
1830: 20 20 20 2a 73 65 65 6b 46 6c 61 67 50 74 72 20 *seekFlagPtr
1840: 3d 20 30 3b 0a 2b 20 20 20 20 2a 62 69 6e 61 72 = 0;.+ *binar
1850: 79 50 74 72 20 3d 20 30 3b 0a 20 20 20 20 20 6d yPtr = 0;. m
1860: 6f 64 65 20 3d 20 30 3b 0a 20 0a 20 20 20 20 20 ode = 0;. .
1870: 2f 2a 0a 40 40 20 2d 31 34 36 30 2c 39 20 2b 31 /*.@@ -1460,9 +1
1880: 34 39 39 2c 39 20 40 40 0a 20 20 20 20 20 20 2a 499,9 @@. *
1890: 20 72 6f 75 74 69 6e 65 73 2e 0a 20 20 20 20 20 routines..
18a0: 20 2a 2f 0a 20 0a 2d 20 20 20 20 69 66 20 28 21 */. .- if (!
18b0: 28 73 74 72 69 6e 67 5b 30 5d 20 26 20 30 78 38 (string[0] & 0x8
18c0: 30 29 0a 2d 09 20 20 20 20 26 26 20 69 73 6c 6f 0).-. && islo
18d0: 77 65 72 28 55 43 48 41 52 28 73 74 72 69 6e 67 wer(UCHAR(string
18e0: 5b 30 5d 29 29 29 20 7b 20 2f 2a 20 49 4e 54 4c [0]))) { /* INTL
18f0: 3a 20 49 53 4f 20 6f 6e 6c 79 2e 20 2a 2f 0a 2d : ISO only. */.-
1900: 09 73 77 69 74 63 68 20 28 73 74 72 69 6e 67 5b .switch (string[
1910: 30 5d 29 20 7b 0a 2b 20 20 20 20 69 66 20 28 21 0]) {.+ if (!
1920: 28 6d 6f 64 65 53 74 72 69 6e 67 5b 30 5d 20 26 (modeString[0] &
1930: 20 30 78 38 30 29 0a 2b 09 20 20 20 20 26 26 20 0x80).+. &&
1940: 69 73 6c 6f 77 65 72 28 55 43 48 41 52 28 6d 6f islower(UCHAR(mo
1950: 64 65 53 74 72 69 6e 67 5b 30 5d 29 29 29 20 7b deString[0]))) {
1960: 20 2f 2a 20 49 4e 54 4c 3a 20 49 53 4f 20 6f 6e /* INTL: ISO on
1970: 6c 79 2e 20 2a 2f 0a 2b 09 73 77 69 74 63 68 20 ly. */.+.switch
1980: 28 6d 6f 64 65 53 74 72 69 6e 67 5b 30 5d 29 20 (modeString[0])
1990: 7b 0a 20 09 20 20 20 20 63 61 73 65 20 27 72 27 {. . case 'r'
19a0: 3a 0a 20 09 09 6d 6f 64 65 20 3d 20 4f 5f 52 44 :. ..mode = O_RD
19b0: 4f 4e 4c 59 3b 0a 20 09 09 62 72 65 61 6b 3b 0a ONLY;. ..break;.
19c0: 40 40 20 2d 31 34 37 35 2c 32 30 20 2b 31 35 31 @@ -1475,20 +151
19d0: 34 2c 33 33 20 40 40 0a 20 09 09 62 72 65 61 6b 4,33 @@. ..break
19e0: 3b 0a 20 09 20 20 20 20 64 65 66 61 75 6c 74 3a ;. . default:
19f0: 0a 20 09 09 65 72 72 6f 72 3a 0a 2b 20 20 20 20 . ..error:.+
1a00: 20 20 20 20 20 20 20 20 20 20 20 20 2a 73 65 65 *see
1a10: 6b 46 6c 61 67 50 74 72 20 3d 20 30 3b 0a 2b 09 kFlagPtr = 0;.+.
1a20: 09 2a 62 69 6e 61 72 79 50 74 72 20 3d 20 30 3b .*binaryPtr = 0;
1a30: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1a40: 20 20 69 66 20 28 69 6e 74 65 72 70 20 21 3d 20 if (interp !=
1a50: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 29 20 4e (Tcl_Interp *) N
1a60: 55 4c 4c 29 20 7b 0a 20 20 20 20 20 20 20 20 20 ULL) {.
1a70: 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f Tcl_
1a80: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
1a90: 65 72 70 2c 0a 2d 20 20 20 20 20 20 20 20 20 20 erp,.-
1aa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1ab0: 20 20 22 69 6c 6c 65 67 61 6c 20 61 63 63 65 73 "illegal acces
1ac0: 73 20 6d 6f 64 65 20 5c 22 22 2c 20 73 74 72 69 s mode \"", stri
1ad0: 6e 67 2c 20 22 5c 22 22 2c 0a 2b 20 20 20 20 20 ng, "\"",.+
1ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1af0: 20 20 20 20 20 20 20 22 69 6c 6c 65 67 61 6c 20 "illegal
1b00: 61 63 63 65 73 73 20 6d 6f 64 65 20 5c 22 22 2c access mode \"",
1b10: 20 6d 6f 64 65 53 74 72 69 6e 67 2c 20 22 5c 22 modeString, "\"
1b20: 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ",.
1b30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1b40: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
1b50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1b60: 20 7d 0a 20 09 09 72 65 74 75 72 6e 20 2d 31 3b }. ..return -1;
1b70: 0a 20 09 7d 0a 2d 09 69 66 20 28 73 74 72 69 6e . .}.-.if (strin
1b80: 67 5b 31 5d 20 3d 3d 20 27 2b 27 29 20 7b 0a 2d g[1] == '+') {.-
1b90: 09 20 20 20 20 6d 6f 64 65 20 26 3d 20 7e 28 4f . mode &= ~(O
1ba0: 5f 52 44 4f 4e 4c 59 7c 4f 5f 57 52 4f 4e 4c 59 _RDONLY|O_WRONLY
1bb0: 29 3b 0a 2d 09 20 20 20 20 6d 6f 64 65 20 7c 3d );.-. mode |=
1bc0: 20 4f 5f 52 44 57 52 3b 0a 2d 09 20 20 20 20 69 O_RDWR;.-. i
1bd0: 66 20 28 73 74 72 69 6e 67 5b 32 5d 20 21 3d 20 f (string[2] !=
1be0: 30 29 20 7b 0a 2b 09 69 3d 31 3b 0a 2b 09 77 68 0) {.+.i=1;.+.wh
1bf0: 69 6c 65 20 28 69 3c 33 20 26 26 20 6d 6f 64 65 ile (i<3 && mode
1c00: 53 74 72 69 6e 67 5b 69 5d 29 20 7b 0a 2b 09 20 String[i]) {.+.
1c10: 20 20 20 69 66 20 28 6d 6f 64 65 53 74 72 69 6e if (modeStrin
1c20: 67 5b 69 5d 20 3d 3d 20 6d 6f 64 65 53 74 72 69 g[i] == modeStri
1c30: 6e 67 5b 69 2d 31 5d 29 20 7b 0a 20 09 09 67 6f ng[i-1]) {. ..go
1c40: 74 6f 20 65 72 72 6f 72 3b 0a 20 09 20 20 20 20 to error;. .
1c50: 7d 0a 2d 09 7d 20 65 6c 73 65 20 69 66 20 28 73 }.-.} else if (s
1c60: 74 72 69 6e 67 5b 31 5d 20 21 3d 20 30 29 20 7b tring[1] != 0) {
1c70: 0a 2b 09 20 20 20 20 73 77 69 74 63 68 20 28 6d .+. switch (m
1c80: 6f 64 65 53 74 72 69 6e 67 5b 69 2b 2b 5d 29 20 odeString[i++])
1c90: 7b 0a 2b 09 09 63 61 73 65 20 27 2b 27 3a 0a 2b {.+..case '+':.+
1ca0: 09 09 20 20 20 20 6d 6f 64 65 20 26 3d 20 7e 28 .. mode &= ~(
1cb0: 4f 5f 52 44 4f 4e 4c 59 7c 4f 5f 57 52 4f 4e 4c O_RDONLY|O_WRONL
1cc0: 59 29 3b 0a 2b 09 09 20 20 20 20 6d 6f 64 65 20 Y);.+.. mode
1cd0: 7c 3d 20 4f 5f 52 44 57 52 3b 0a 2b 09 09 20 20 |= O_RDWR;.+..
1ce0: 20 20 62 72 65 61 6b 3b 0a 2b 09 09 63 61 73 65 break;.+..case
1cf0: 20 27 62 27 3a 0a 2b 09 09 20 20 20 20 2a 62 69 'b':.+.. *bi
1d00: 6e 61 72 79 50 74 72 20 3d 20 31 3b 0a 2b 09 09 naryPtr = 1;.+..
1d10: 20 20 20 20 62 72 65 61 6b 3b 0a 2b 09 09 64 65 break;.+..de
1d20: 66 61 75 6c 74 3a 0a 2b 09 09 20 20 20 20 67 6f fault:.+.. go
1d30: 74 6f 20 65 72 72 6f 72 3b 0a 2b 09 20 20 20 20 to error;.+.
1d40: 7d 0a 2b 09 7d 0a 2b 09 69 66 20 28 6d 6f 64 65 }.+.}.+.if (mode
1d50: 53 74 72 69 6e 67 5b 69 5d 20 21 3d 20 30 29 20 String[i] != 0)
1d60: 7b 0a 20 09 20 20 20 20 67 6f 74 6f 20 65 72 72 {. . goto err
1d70: 6f 72 3b 0a 20 09 7d 0a 20 20 20 20 20 20 20 20 or;. .}.
1d80: 20 72 65 74 75 72 6e 20 6d 6f 64 65 3b 0a 40 40 return mode;.@@
1d90: 20 2d 31 35 30 32 2c 31 31 20 2b 31 35 35 34 2c -1502,11 +1554,
1da0: 31 31 20 40 40 0a 20 20 20 20 20 20 2a 20 61 20 11 @@. * a
1db0: 4e 55 4c 4c 20 69 6e 74 65 72 70 72 65 74 65 72 NULL interpreter
1dc0: 20 69 73 20 70 61 73 73 65 64 20 69 6e 2e 0a 20 is passed in..
1dd0: 20 20 20 20 20 2a 2f 0a 20 0a 2d 20 20 20 20 69 */. .- i
1de0: 66 20 28 54 63 6c 5f 53 70 6c 69 74 4c 69 73 74 f (Tcl_SplitList
1df0: 28 69 6e 74 65 72 70 2c 20 73 74 72 69 6e 67 2c (interp, string,
1e00: 20 26 6d 6f 64 65 41 72 67 63 2c 20 26 6d 6f 64 &modeArgc, &mod
1e10: 65 41 72 67 76 29 20 21 3d 20 54 43 4c 5f 4f 4b eArgv) != TCL_OK
1e20: 29 20 7b 0a 2b 20 20 20 20 69 66 20 28 54 63 6c ) {.+ if (Tcl
1e30: 5f 53 70 6c 69 74 4c 69 73 74 28 69 6e 74 65 72 _SplitList(inter
1e40: 70 2c 20 6d 6f 64 65 53 74 72 69 6e 67 2c 20 26 p, modeString, &
1e50: 6d 6f 64 65 41 72 67 63 2c 20 26 6d 6f 64 65 41 modeArgc, &modeA
1e60: 72 67 76 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 rgv) != TCL_OK)
1e70: 7b 0a 20 20 20 20 20 20 20 20 20 69 66 20 28 69 {. if (i
1e80: 6e 74 65 72 70 20 21 3d 20 28 54 63 6c 5f 49 6e nterp != (Tcl_In
1e90: 74 65 72 70 20 2a 29 20 4e 55 4c 4c 29 20 7b 0a terp *) NULL) {.
1ea0: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c Tcl
1eb0: 5f 41 64 64 45 72 72 6f 72 49 6e 66 6f 28 69 6e _AddErrorInfo(in
1ec0: 74 65 72 70 2c 0a 20 20 20 20 20 20 20 20 20 20 terp,.
1ed0: 20 20 20 20 20 20 20 20 20 20 20 22 5c 6e 20 20 "\n
1ee0: 20 20 77 68 69 6c 65 20 70 72 6f 63 65 73 73 69 while processi
1ef0: 6e 67 20 6f 70 65 6e 20 61 63 63 65 73 73 20 6d ng open access m
1f00: 6f 64 65 73 20 5c 22 22 29 3b 0a 2d 20 20 20 20 odes \"");.-
1f10: 20 20 20 20 20 20 20 20 54 63 6c 5f 41 64 64 45 Tcl_AddE
1f20: 72 72 6f 72 49 6e 66 6f 28 69 6e 74 65 72 70 2c rrorInfo(interp,
1f30: 20 73 74 72 69 6e 67 29 3b 0a 2b 20 20 20 20 20 string);.+
1f40: 20 20 20 20 20 20 20 54 63 6c 5f 41 64 64 45 72 Tcl_AddEr
1f50: 72 6f 72 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 rorInfo(interp,
1f60: 6d 6f 64 65 53 74 72 69 6e 67 29 3b 0a 20 20 20 modeString);.
1f70: 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 41 64 Tcl_Ad
1f80: 64 45 72 72 6f 72 49 6e 66 6f 28 69 6e 74 65 72 dErrorInfo(inter
1f90: 70 2c 20 22 5c 22 22 29 3b 0a 20 20 20 20 20 20 p, "\"");.
1fa0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 72 65 }. re
1fb0: 74 75 72 6e 20 2d 31 3b 0a 40 40 20 2d 31 35 36 turn -1;.@@ -156
1fc0: 30 2c 31 31 20 2b 31 36 31 32 2c 31 34 20 40 40 0,11 +1612,14 @@
1fd0: 0a 20 23 65 6e 64 69 66 0a 20 09 7d 20 65 6c 73 . #endif. .} els
1fe0: 65 20 69 66 20 28 28 63 20 3d 3d 20 27 54 27 29 e if ((c == 'T')
1ff0: 20 26 26 20 28 73 74 72 63 6d 70 28 66 6c 61 67 && (strcmp(flag
2000: 2c 20 22 54 52 55 4e 43 22 29 20 3d 3d 20 30 29 , "TRUNC") == 0)
2010: 29 20 7b 0a 20 09 20 20 20 20 6d 6f 64 65 20 7c ) {. . mode |
2020: 3d 20 4f 5f 54 52 55 4e 43 3b 0a 2b 09 7d 20 65 = O_TRUNC;.+.} e
2030: 6c 73 65 20 69 66 20 28 28 63 20 3d 3d 20 27 42 lse if ((c == 'B
2040: 27 29 20 26 26 20 28 73 74 72 63 6d 70 28 66 6c ') && (strcmp(fl
2050: 61 67 2c 20 22 42 49 4e 41 52 59 22 29 20 3d 3d ag, "BINARY") ==
2060: 20 30 29 29 20 7b 0a 2b 09 20 20 20 20 2a 62 69 0)) {.+. *bi
2070: 6e 61 72 79 50 74 72 20 3d 20 31 3b 0a 20 09 7d naryPtr = 1;. .}
2080: 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 else {.
2090: 20 20 20 20 20 69 66 20 28 69 6e 74 65 72 70 20 if (interp
20a0: 21 3d 20 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a != (Tcl_Interp *
20b0: 29 20 4e 55 4c 4c 29 20 7b 0a 20 20 20 20 20 20 ) NULL) {.
20c0: 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 41 Tcl_A
20d0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
20e0: 72 70 2c 20 22 69 6e 76 61 6c 69 64 20 61 63 63 rp, "invalid acc
20f0: 65 73 73 20 6d 6f 64 65 20 5c 22 22 2c 20 66 6c ess mode \"", fl
2100: 61 67 2c 0a 2d 20 20 20 20 20 20 20 20 20 20 20 ag,.-
2110: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 "\"
2120: 3a 20 6d 75 73 74 20 62 65 20 52 44 4f 4e 4c 59 : must be RDONLY
2130: 2c 20 57 52 4f 4e 4c 59 2c 20 52 44 57 52 2c 20 , WRONLY, RDWR,
2140: 41 50 50 45 4e 44 2c 20 43 52 45 41 54 22 2c 0a APPEND, CREAT",.
2150: 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -
2160: 20 20 20 20 20 20 20 20 20 22 20 45 58 43 4c 2c " EXCL,
2170: 20 4e 4f 43 54 54 59 2c 20 4e 4f 4e 42 4c 4f 43 NOCTTY, NONBLOC
2180: 4b 2c 20 6f 72 20 54 52 55 4e 43 22 2c 20 28 63 K, or TRUNC", (c
2190: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 2b 09 har *) NULL);.+.
21a0: 09 09 22 5c 22 3a 20 6d 75 73 74 20 62 65 20 52 .."\": must be R
21b0: 44 4f 4e 4c 59 2c 20 57 52 4f 4e 4c 59 2c 20 52 DONLY, WRONLY, R
21c0: 44 57 52 2c 20 41 50 50 45 4e 44 2c 20 42 49 4e DWR, APPEND, BIN
21d0: 41 52 59 2c 20 22 0a 2b 09 09 09 22 43 52 45 41 ARY, ".+..."CREA
21e0: 54 2c 20 45 58 43 4c 2c 20 4e 4f 43 54 54 59 2c T, EXCL, NOCTTY,
21f0: 20 4e 4f 4e 42 4c 4f 43 4b 2c 20 6f 72 20 54 52 NONBLOCK, or TR
2200: 55 4e 43 22 2c 0a 2b 09 09 09 28 63 68 61 72 20 UNC",.+...(char
2210: 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 *) NULL);.
2220: 20 20 20 20 20 20 20 7d 0a 20 09 20 20 20 20 63 }. . c
2230: 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29 20 6d kfree((char *) m
2240: 6f 64 65 41 72 67 76 29 3b 0a 20 09 20 20 20 20 odeArgv);. .
2250: 72 65 74 75 72 6e 20 2d 31 3b 0a 40 40 20 2d 32 return -1;.@@ -2
2260: 30 38 36 2c 38 20 2b 32 31 34 31 2c 38 20 40 40 086,8 +2141,8 @@
2270: 0a 20 20 20 20 20 69 66 20 28 66 73 50 74 72 20 . if (fsPtr
2280: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 20 09 54 63 6c != NULL) {. .Tcl
2290: 5f 46 53 4f 70 65 6e 46 69 6c 65 43 68 61 6e 6e _FSOpenFileChann
22a0: 65 6c 50 72 6f 63 20 2a 70 72 6f 63 20 3d 20 66 elProc *proc = f
22b0: 73 50 74 72 2d 3e 6f 70 65 6e 46 69 6c 65 43 68 sPtr->openFileCh
22c0: 61 6e 6e 65 6c 50 72 6f 63 3b 0a 20 09 69 66 20 annelProc;. .if
22d0: 28 70 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 20 7b (proc != NULL) {
22e0: 0a 2d 09 20 20 20 20 69 6e 74 20 6d 6f 64 65 2c .-. int mode,
22f0: 20 73 65 65 6b 46 6c 61 67 3b 0a 2d 09 20 20 20 seekFlag;.-.
2300: 20 6d 6f 64 65 20 3d 20 54 63 6c 47 65 74 4f 70 mode = TclGetOp
2310: 65 6e 4d 6f 64 65 28 69 6e 74 65 72 70 2c 20 6d enMode(interp, m
2320: 6f 64 65 53 74 72 69 6e 67 2c 20 26 73 65 65 6b odeString, &seek
2330: 46 6c 61 67 29 3b 0a 2b 09 20 20 20 20 69 6e 74 Flag);.+. int
2340: 20 6d 6f 64 65 2c 20 73 65 65 6b 46 6c 61 67 2c mode, seekFlag,
2350: 20 62 69 6e 61 72 79 3b 0a 2b 09 20 20 20 20 6d binary;.+. m
2360: 6f 64 65 20 3d 20 54 63 6c 47 65 74 4f 70 65 6e ode = TclGetOpen
2370: 4d 6f 64 65 45 78 28 69 6e 74 65 72 70 2c 20 6d ModeEx(interp, m
2380: 6f 64 65 53 74 72 69 6e 67 2c 20 26 73 65 65 6b odeString, &seek
2390: 46 6c 61 67 2c 20 26 62 69 6e 61 72 79 29 3b 0a Flag, &binary);.
23a0: 20 09 20 20 20 20 69 66 20 28 6d 6f 64 65 20 3d . if (mode =
23b0: 3d 20 2d 31 29 20 7b 0a 20 09 20 20 20 20 20 20 = -1) {. .
23c0: 20 20 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 20 return NULL;.
23d0: 09 20 20 20 20 7d 0a 40 40 20 2d 32 31 30 36 2c . }.@@ -2106,
23e0: 36 20 2b 32 31 36 31 2c 31 30 20 40 40 0a 20 09 6 +2161,10 @@. .
23f0: 09 09 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 20 ..return NULL;.
2400: 09 09 20 20 20 20 7d 0a 20 09 09 7d 0a 2b 09 09 .. }. ..}.+..
2410: 69 66 20 28 62 69 6e 61 72 79 29 20 7b 0a 2b 09 if (binary) {.+.
2420: 09 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e . Tcl_SetChan
2430: 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 nelOption(interp
2440: 2c 20 72 65 74 56 61 6c 2c 0a 2b 09 09 09 20 20 , retVal,.+...
2450: 20 20 22 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 22 "-translation"
2460: 2c 20 22 62 69 6e 61 72 79 22 29 3b 0a 2b 09 09 , "binary");.+..
2470: 7d 0a 20 09 20 20 20 20 7d 0a 20 09 20 20 20 20 }. . }. .
2480: 72 65 74 75 72 6e 20 72 65 74 56 61 6c 3b 0a 20 return retVal;.
2490: 09 7d 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 .}.Index: generi
24a0: 63 2f 74 63 6c 49 6e 74 2e 68 0a 3d 3d 3d 3d 3d c/tclInt.h.=====
24b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
24c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
24d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
24e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 ==============.R
24f0: 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f CS file: /cvsroo
2500: 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 t/tcl/tcl/generi
2510: 63 2f 74 63 6c 49 6e 74 2e 68 2c 76 0a 72 65 74 c/tclInt.h,v.ret
2520: 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e rieving revision
2530: 20 31 2e 32 32 35 0a 64 69 66 66 20 2d 75 20 2d 1.225.diff -u -
2540: 72 31 2e 32 32 35 20 74 63 6c 49 6e 74 2e 68 0a r1.225 tclInt.h.
2550: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 49 --- generic/tclI
2560: 6e 74 2e 68 09 32 32 20 41 70 72 20 32 30 30 35 nt.h.22 Apr 2005
2570: 20 31 35 3a 34 36 3a 35 37 20 2d 30 30 30 30 09 15:46:57 -0000.
2580: 31 2e 32 32 35 0a 2b 2b 2b 20 67 65 6e 65 72 69 1.225.+++ generi
2590: 63 2f 74 63 6c 49 6e 74 2e 68 09 32 37 20 41 70 c/tclInt.h.27 Ap
25a0: 72 20 32 30 30 35 20 31 38 3a 30 37 3a 34 36 20 r 2005 18:07:46
25b0: 2d 30 30 30 30 0a 40 40 20 2d 31 38 38 39 2c 37 -0000.@@ -1889,7
25c0: 20 2b 31 38 38 39 2c 39 20 40 40 0a 20 4d 4f 44 +1889,9 @@. MOD
25d0: 55 4c 45 5f 53 43 4f 50 45 20 69 6e 74 20 20 20 ULE_SCOPE int
25e0: 20 20 20 20 20 54 63 6c 47 65 74 4e 61 6d 65 73 TclGetNames
25f0: 70 61 63 65 46 72 6f 6d 4f 62 6a 20 5f 41 4e 53 paceFromObj _ANS
2600: 49 5f 41 52 47 53 5f 28 28 0a 20 09 09 09 20 20 I_ARGS_((. ...
2610: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
2620: 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6f terp, Tcl_Obj *o
2630: 62 6a 50 74 72 2c 0a 20 09 09 09 20 20 20 20 54 bjPtr,. ... T
2640: 63 6c 5f 4e 61 6d 65 73 70 61 63 65 20 2a 2a 6e cl_Namespace **n
2650: 73 50 74 72 50 74 72 29 29 3b 0a 2d 0a 2b 4d 4f sPtrPtr));.-.+MO
2660: 44 55 4c 45 5f 53 43 4f 50 45 20 69 6e 74 09 54 DULE_SCOPE int.T
2670: 63 6c 47 65 74 4f 70 65 6e 4d 6f 64 65 45 78 20 clGetOpenModeEx
2680: 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 54 63 6c _ANSI_ARGS_((Tcl
2690: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
26a0: 0a 2b 09 09 09 20 20 20 20 43 4f 4e 53 54 20 63 .+... CONST c
26b0: 68 61 72 20 2a 6d 6f 64 65 53 74 72 69 6e 67 2c har *modeString,
26c0: 20 69 6e 74 20 2a 73 65 65 6b 46 6c 61 67 50 74 int *seekFlagPt
26d0: 72 2c 0a 2b 09 09 09 20 20 20 20 69 6e 74 20 2a r,.+... int *
26e0: 62 69 6e 61 72 79 50 74 72 29 29 3b 0a 20 4d 4f binaryPtr));. MO
26f0: 44 55 4c 45 5f 53 43 4f 50 45 20 54 63 6c 5f 4f DULE_SCOPE Tcl_O
2700: 62 6a 20 2a 09 54 63 6c 47 65 74 50 72 6f 63 65 bj *.TclGetProce
2710: 73 73 47 6c 6f 62 61 6c 56 61 6c 75 65 20 5f 41 ssGlobalValue _A
2720: 4e 53 49 5f 41 52 47 53 5f 20 28 28 0a 20 09 09 NSI_ARGS_ ((. ..
2730: 09 20 20 20 20 50 72 6f 63 65 73 73 47 6c 6f 62 . ProcessGlob
2740: 61 6c 56 61 6c 75 65 20 2a 70 67 76 50 74 72 29 alValue *pgvPtr)
2750: 29 3b 0a 20 4d 4f 44 55 4c 45 5f 53 43 4f 50 45 );. MODULE_SCOPE
2760: 20 69 6e 74 09 54 63 6c 47 6c 6f 62 20 5f 41 4e int.TclGlob _AN
2770: 53 49 5f 41 52 47 53 5f 28 28 54 63 6c 5f 49 6e SI_ARGS_((Tcl_In
2780: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 49 6e terp *interp,.In
2790: 64 65 78 3a 20 74 65 73 74 73 2f 69 6f 43 6d 64 dex: tests/ioCmd
27a0: 2e 74 65 73 74 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .test.==========
27b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
27c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
27d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
27e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 =========.RCS fi
27f0: 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c le: /cvsroot/tcl
2800: 2f 74 63 6c 2f 74 65 73 74 73 2f 69 6f 43 6d 64 /tcl/tests/ioCmd
2810: 2e 74 65 73 74 2c 76 0a 72 65 74 72 69 65 76 69 .test,v.retrievi
2820: 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 31 ng revision 1.21
2830: 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 32 31 20 .diff -u -r1.21
2840: 69 6f 43 6d 64 2e 74 65 73 74 0a 2d 2d 2d 20 74 ioCmd.test.--- t
2850: 65 73 74 73 2f 69 6f 43 6d 64 2e 74 65 73 74 09 ests/ioCmd.test.
2860: 32 33 20 4a 75 6e 20 32 30 30 34 20 31 35 3a 33 23 Jun 2004 15:3
2870: 36 3a 35 37 20 2d 30 30 30 30 09 31 2e 32 31 0a 6:57 -0000.1.21.
2880: 2b 2b 2b 20 74 65 73 74 73 2f 69 6f 43 6d 64 2e +++ tests/ioCmd.
2890: 74 65 73 74 09 32 37 20 41 70 72 20 32 30 30 35 test.27 Apr 2005
28a0: 20 31 38 3a 30 37 3a 34 38 20 2d 30 30 30 30 0a 18:07:48 -0000.
28b0: 40 40 20 2d 34 32 36 2c 31 31 20 2b 34 32 36 2c @@ -426,11 +426,
28c0: 33 36 20 40 40 0a 20 5c 22 6f 70 65 6e 20 5c 24 36 @@. \"open \$
28d0: 70 61 74 68 28 74 65 73 74 33 29 20 5c 22 46 4f path(test3) \"FO
28e0: 4f 20 5c 5c 7b 42 41 52 20 42 41 5a 5c 22 5c 22 O \\{BAR BAZ\"\"
28f0: 22 0a 20 74 65 73 74 20 69 6f 63 6d 64 2d 31 32 ". test iocmd-12
2900: 2e 37 20 7b 50 4f 53 49 58 20 6f 70 65 6e 20 61 .7 {POSIX open a
2910: 63 63 65 73 73 20 6d 6f 64 65 73 3a 20 65 72 72 ccess modes: err
2920: 6f 72 73 7d 20 7b 0a 20 20 20 6c 69 73 74 20 5b ors} {. list [
2930: 63 61 74 63 68 20 7b 6f 70 65 6e 20 24 70 61 74 catch {open $pat
2940: 68 28 74 65 73 74 33 29 20 7b 46 4f 4f 20 42 41 h(test3) {FOO BA
2950: 52 20 42 41 5a 7d 7d 20 6d 73 67 5d 20 24 6d 73 R BAZ}} msg] $ms
2960: 67 0a 2d 7d 20 7b 31 20 7b 69 6e 76 61 6c 69 64 g.-} {1 {invalid
2970: 20 61 63 63 65 73 73 20 6d 6f 64 65 20 22 46 4f access mode "FO
2980: 4f 22 3a 20 6d 75 73 74 20 62 65 20 52 44 4f 4e O": must be RDON
2990: 4c 59 2c 20 57 52 4f 4e 4c 59 2c 20 52 44 57 52 LY, WRONLY, RDWR
29a0: 2c 20 41 50 50 45 4e 44 2c 20 43 52 45 41 54 20 , APPEND, CREAT
29b0: 45 58 43 4c 2c 20 4e 4f 43 54 54 59 2c 20 4e 4f EXCL, NOCTTY, NO
29c0: 4e 42 4c 4f 43 4b 2c 20 6f 72 20 54 52 55 4e 43 NBLOCK, or TRUNC
29d0: 7d 7d 0a 2b 7d 20 7b 31 20 7b 69 6e 76 61 6c 69 }}.+} {1 {invali
29e0: 64 20 61 63 63 65 73 73 20 6d 6f 64 65 20 22 46 d access mode "F
29f0: 4f 4f 22 3a 20 6d 75 73 74 20 62 65 20 52 44 4f OO": must be RDO
2a00: 4e 4c 59 2c 20 57 52 4f 4e 4c 59 2c 20 52 44 57 NLY, WRONLY, RDW
2a10: 52 2c 20 41 50 50 45 4e 44 2c 20 42 49 4e 41 52 R, APPEND, BINAR
2a20: 59 2c 20 43 52 45 41 54 2c 20 45 58 43 4c 2c 20 Y, CREAT, EXCL,
2a30: 4e 4f 43 54 54 59 2c 20 4e 4f 4e 42 4c 4f 43 4b NOCTTY, NONBLOCK
2a40: 2c 20 6f 72 20 54 52 55 4e 43 7d 7d 0a 20 74 65 , or TRUNC}}. te
2a50: 73 74 20 69 6f 63 6d 64 2d 31 32 2e 38 20 7b 50 st iocmd-12.8 {P
2a60: 4f 53 49 58 20 6f 70 65 6e 20 61 63 63 65 73 73 OSIX open access
2a70: 20 6d 6f 64 65 73 3a 20 65 72 72 6f 72 73 7d 20 modes: errors}
2a80: 7b 0a 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 {. list [cat
2a90: 63 68 20 7b 6f 70 65 6e 20 24 70 61 74 68 28 74 ch {open $path(t
2aa0: 65 73 74 33 29 20 7b 54 52 55 4e 43 20 43 52 45 est3) {TRUNC CRE
2ab0: 41 54 7d 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 20 AT}} msg] $msg.
2ac0: 7d 20 7b 31 20 7b 61 63 63 65 73 73 20 6d 6f 64 } {1 {access mod
2ad0: 65 20 6d 75 73 74 20 69 6e 63 6c 75 64 65 20 65 e must include e
2ae0: 69 74 68 65 72 20 52 44 4f 4e 4c 59 2c 20 57 52 ither RDONLY, WR
2af0: 4f 4e 4c 59 2c 20 6f 72 20 52 44 57 52 7d 7d 0a ONLY, or RDWR}}.
2b00: 20 63 6c 6f 73 65 20 5b 6f 70 65 6e 20 24 70 61 close [open $pa
2b10: 74 68 28 74 65 73 74 33 29 20 77 5d 0a 2b 74 65 th(test3) w].+te
2b20: 73 74 20 69 6f 63 6d 64 2d 31 32 2e 39 20 7b 50 st iocmd-12.9 {P
2b30: 4f 53 49 58 20 6f 70 65 6e 20 61 63 63 65 73 73 OSIX open access
2b40: 20 6d 6f 64 65 73 3a 20 42 49 4e 41 52 59 7d 20 modes: BINARY}
2b50: 7b 0a 2b 20 20 20 20 6c 69 73 74 20 5b 63 61 74 {.+ list [cat
2b60: 63 68 20 7b 6f 70 65 6e 20 24 70 61 74 68 28 74 ch {open $path(t
2b70: 65 73 74 31 29 20 42 49 4e 41 52 59 7d 20 6d 73 est1) BINARY} ms
2b80: 67 5d 20 24 6d 73 67 0a 2b 7d 20 7b 31 20 7b 61 g] $msg.+} {1 {a
2b90: 63 63 65 73 73 20 6d 6f 64 65 20 6d 75 73 74 20 ccess mode must
2ba0: 69 6e 63 6c 75 64 65 20 65 69 74 68 65 72 20 52 include either R
2bb0: 44 4f 4e 4c 59 2c 20 57 52 4f 4e 4c 59 2c 20 6f DONLY, WRONLY, o
2bc0: 72 20 52 44 57 52 7d 7d 0a 2b 74 65 73 74 20 69 r RDWR}}.+test i
2bd0: 6f 63 6d 64 2d 31 32 2e 31 30 20 7b 50 4f 53 49 ocmd-12.10 {POSI
2be0: 58 20 6f 70 65 6e 20 61 63 63 65 73 73 20 6d 6f X open access mo
2bf0: 64 65 73 3a 20 42 49 4e 41 52 59 7d 20 7b 0a 2b des: BINARY} {.+
2c00: 20 20 20 20 73 65 74 20 66 20 5b 6f 70 65 6e 20 set f [open
2c10: 24 70 61 74 68 28 74 65 73 74 31 29 20 7b 57 52 $path(test1) {WR
2c20: 4f 4e 4c 59 20 42 49 4e 41 52 59 20 54 52 55 4e ONLY BINARY TRUN
2c30: 43 7d 5d 0a 2b 20 20 20 20 70 75 74 73 20 24 66 C}].+ puts $f
2c40: 20 61 0a 2b 20 20 20 20 70 75 74 73 20 24 66 20 a.+ puts $f
2c50: 62 0a 2b 20 20 20 20 70 75 74 73 20 2d 6e 6f 6e b.+ puts -non
2c60: 65 77 6c 69 6e 65 20 24 66 20 63 09 3b 23 20 63 ewline $f c.;# c
2c70: 6f 6e 74 65 6e 74 73 20 61 72 65 20 6e 6f 77 20 ontents are now
2c80: 35 20 62 79 74 65 73 3a 20 61 5c 6e 62 5c 6e 63 5 bytes: a\nb\nc
2c90: 0a 2b 20 20 20 20 63 6c 6f 73 65 20 24 66 0a 2b .+ close $f.+
2ca0: 20 20 20 20 73 65 74 20 66 20 5b 6f 70 65 6e 20 set f [open
2cb0: 24 70 61 74 68 28 74 65 73 74 31 29 20 72 5d 0a $path(test1) r].
2cc0: 2b 20 20 20 20 66 63 6f 6e 66 69 67 75 72 65 20 + fconfigure
2cd0: 24 66 20 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20 $f -translation
2ce0: 62 69 6e 61 72 79 0a 2b 20 20 20 20 73 65 74 20 binary.+ set
2cf0: 72 65 73 75 6c 74 20 5b 73 74 72 69 6e 67 20 6c result [string l
2d00: 65 6e 67 74 68 20 5b 72 65 61 64 20 24 66 5d 5d ength [read $f]]
2d10: 0a 2b 20 20 20 20 63 6c 6f 73 65 20 24 66 0a 2b .+ close $f.+
2d20: 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 0a 2b set result.+
2d30: 7d 20 35 0a 2b 74 65 73 74 20 69 6f 63 6d 64 2d } 5.+test iocmd-
2d40: 31 32 2e 31 31 20 7b 50 4f 53 49 58 20 6f 70 65 12.11 {POSIX ope
2d50: 6e 20 61 63 63 65 73 73 20 6d 6f 64 65 73 3a 20 n access modes:
2d60: 42 49 4e 41 52 59 7d 20 7b 0a 2b 20 20 20 20 73 BINARY} {.+ s
2d70: 65 74 20 66 20 5b 6f 70 65 6e 20 24 70 61 74 68 et f [open $path
2d80: 28 74 65 73 74 31 29 20 7b 57 52 4f 4e 4c 59 20 (test1) {WRONLY
2d90: 42 49 4e 41 52 59 20 54 52 55 4e 43 7d 5d 0a 2b BINARY TRUNC}].+
2da0: 20 20 20 20 70 75 74 73 20 24 66 20 5c 75 30 32 puts $f \u02
2db0: 34 38 09 3b 23 20 67 65 74 73 20 74 72 75 6e 63 48.;# gets trunc
2dc0: 61 74 65 64 20 74 6f 20 5c 75 30 30 34 38 0a 2b ated to \u0048.+
2dd0: 20 20 20 20 63 6c 6f 73 65 20 24 66 0a 2b 20 20 close $f.+
2de0: 20 20 73 65 74 20 66 20 5b 6f 70 65 6e 20 24 70 set f [open $p
2df0: 61 74 68 28 74 65 73 74 31 29 20 72 5d 0a 2b 20 ath(test1) r].+
2e00: 20 20 20 66 63 6f 6e 66 69 67 75 72 65 20 24 66 fconfigure $f
2e10: 20 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 -translation bi
2e20: 6e 61 72 79 0a 2b 20 20 20 20 73 65 74 20 72 65 nary.+ set re
2e30: 73 75 6c 74 20 5b 72 65 61 64 20 2d 6e 6f 6e 65 sult [read -none
2e40: 77 6c 69 6e 65 20 24 66 5d 0a 2b 20 20 20 20 63 wline $f].+ c
2e50: 6c 6f 73 65 20 24 66 0a 2b 20 20 20 20 73 65 74 lose $f.+ set
2e60: 20 72 65 73 75 6c 74 0a 2b 7d 20 5c 75 30 30 34 result.+} \u004
2e70: 38 0a 20 0a 20 74 65 73 74 20 69 6f 63 6d 64 2d 8. . test iocmd-
2e80: 31 33 2e 31 20 7b 65 72 72 6f 72 73 20 69 6e 20 13.1 {errors in
2e90: 6f 70 65 6e 20 63 6f 6d 6d 61 6e 64 7d 20 7b 0a open command} {.
2ea0: 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 list [catch
2eb0: 20 7b 6f 70 65 6e 7d 20 6d 73 67 5d 20 24 6d 73 {open} msg] $ms
2ec0: 67 0a 40 40 20 2d 34 35 32 2c 36 20 2b 34 37 37 g.@@ -452,6 +477
2ed0: 2c 31 35 20 40 40 0a 20 20 20 20 20 72 65 67 73 ,15 @@. regs
2ee0: 75 62 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 7b 7d ub [file join {}
2ef0: 20 5f 6e 6f 6e 5f 65 78 69 73 74 65 6e 74 5f 5d _non_existent_]
2f00: 20 24 6d 73 67 20 22 5f 6e 6f 6e 5f 65 78 69 73 $msg "_non_exis
2f10: 74 65 6e 74 5f 22 20 6d 73 67 0a 20 09 73 74 72 tent_" msg. .str
2f20: 69 6e 67 20 74 6f 6c 6f 77 65 72 20 24 6d 73 67 ing tolower $msg
2f30: 0a 20 7d 20 7b 31 20 7b 63 6f 75 6c 64 6e 27 74 . } {1 {couldn't
2f40: 20 6f 70 65 6e 20 22 5f 6e 6f 6e 5f 65 78 69 73 open "_non_exis
2f50: 74 65 6e 74 5f 22 3a 20 6e 6f 20 73 75 63 68 20 tent_": no such
2f60: 66 69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f 72 file or director
2f70: 79 7d 20 7b 70 6f 73 69 78 20 65 6e 6f 65 6e 74 y} {posix enoent
2f80: 20 7b 6e 6f 20 73 75 63 68 20 66 69 6c 65 20 6f {no such file o
2f90: 72 20 64 69 72 65 63 74 6f 72 79 7d 7d 7d 0a 2b r directory}}}.+
2fa0: 74 65 73 74 20 69 6f 63 6d 64 2d 31 33 2e 37 20 test iocmd-13.7
2fb0: 7b 65 72 72 6f 72 73 20 69 6e 20 6f 70 65 6e 20 {errors in open
2fc0: 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 2b 20 20 20 20 command} {.+
2fd0: 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 6f 70 65 list [catch {ope
2fe0: 6e 20 24 70 61 74 68 28 74 65 73 74 31 29 20 62 n $path(test1) b
2ff0: 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 2b 7d 20 7b } msg] $msg.+} {
3000: 31 20 7b 69 6c 6c 65 67 61 6c 20 61 63 63 65 73 1 {illegal acces
3010: 73 20 6d 6f 64 65 20 22 62 22 7d 7d 0a 2b 74 65 s mode "b"}}.+te
3020: 73 74 20 69 6f 63 6d 64 2d 31 33 2e 38 20 7b 65 st iocmd-13.8 {e
3030: 72 72 6f 72 73 20 69 6e 20 6f 70 65 6e 20 63 6f rrors in open co
3040: 6d 6d 61 6e 64 7d 20 7b 0a 2b 20 20 20 20 6c 69 mmand} {.+ li
3050: 73 74 20 5b 63 61 74 63 68 20 7b 6f 70 65 6e 20 st [catch {open
3060: 24 70 61 74 68 28 74 65 73 74 31 29 20 72 62 62 $path(test1) rbb
3070: 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 2b 7d 20 7b } msg] $msg.+} {
3080: 31 20 7b 69 6c 6c 65 67 61 6c 20 61 63 63 65 73 1 {illegal acces
3090: 73 20 6d 6f 64 65 20 22 72 62 62 22 7d 7d 0a 2b s mode "rbb"}}.+
30a0: 74 65 73 74 20 69 6f 63 6d 64 2d 31 33 2e 39 20 test iocmd-13.9
30b0: 7b 65 72 72 6f 72 73 20 69 6e 20 6f 70 65 6e 20 {errors in open
30c0: 63 6f 6d 6d 61 6e 64 7d 20 7b 0a 2b 20 20 20 20 command} {.+
30d0: 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 6f 70 65 list [catch {ope
30e0: 6e 20 24 70 61 74 68 28 74 65 73 74 31 29 20 72 n $path(test1) r
30f0: 2b 2b 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 2b 7d ++} msg] $msg.+}
3100: 20 7b 31 20 7b 69 6c 6c 65 67 61 6c 20 61 63 63 {1 {illegal acc
3110: 65 73 73 20 6d 6f 64 65 20 22 72 2b 2b 22 7d 7d ess mode "r++"}}
3120: 0a 20 0a 20 74 65 73 74 20 69 6f 63 6d 64 2d 31 . . test iocmd-1
3130: 34 2e 31 20 7b 66 69 6c 65 20 69 64 20 70 61 72 4.1 {file id par
3140: 73 69 6e 67 20 65 72 72 6f 72 73 7d 20 7b 0a 20 sing errors} {.
3150: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 list [catch
3160: 7b 65 6f 66 20 67 6f 72 70 7d 20 6d 73 67 5d 20 {eof gorp} msg]
3170: 24 6d 73 67 20 24 65 72 72 6f 72 43 6f 64 65 0a $msg $errorCode.
