Attachment "file-tempname.patch" to
ticket [999162ffff]
added by
techentin
2004-07-28 12:13:25.
0000: 49 6e 64 65 78 3a 20 64 6f 63 2f 66 69 6c 65 2e Index: doc/file.
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 66 69 6c 65 2e 6e 2c 76 0a 72 65 /doc/file.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 33 35 0a 64 69 66 66 20 2d 63 20 2d n 1.35.diff -c -
00a0: 72 31 2e 33 35 20 66 69 6c 65 2e 6e 0a 2a 2a 2a r1.35 file.n.***
00b0: 20 64 6f 63 2f 66 69 6c 65 2e 6e 09 32 20 4a 75 doc/file.n.2 Ju
00c0: 6e 20 32 30 30 34 20 31 34 3a 32 34 3a 30 35 20 n 2004 14:24:05
00d0: 2d 30 30 30 30 09 31 2e 33 35 0a 2d 2d 2d 20 64 -0000.1.35.--- d
00e0: 6f 63 2f 66 69 6c 65 2e 6e 09 32 38 20 4a 75 6c oc/file.n.28 Jul
00f0: 20 32 30 30 34 20 30 35 3a 30 33 3a 35 30 20 2d 2004 05:03:50 -
0100: 30 30 30 30 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0000.***********
0110: 2a 2a 2a 2a 0a 2a 2a 2a 20 34 30 35 2c 34 31 30 ****.*** 405,410
0120: 20 2a 2a 2a 2a 0a 2d 2d 2d 20 34 30 35 2c 34 31 ****.--- 405,41
0130: 37 20 2d 2d 2d 2d 0a 20 20 5c 66 42 66 69 6c 65 7 ----. \fBfile
0140: 20 74 61 69 6c 20 61 2f 62 5c 66 52 2c 20 5c 66 tail a/b\fR, \f
0150: 42 66 69 6c 65 20 74 61 69 6c 20 61 2f 62 2f 5c Bfile tail a/b/\
0160: 66 52 20 61 6e 64 20 5c 66 42 66 69 6c 65 20 74 fR and \fBfile t
0170: 61 69 6c 20 62 5c 66 52 20 61 6c 6c 0a 20 20 72 ail b\fR all. r
0180: 65 74 75 72 6e 20 5c 66 42 62 5c 66 52 2e 0a 20 eturn \fBb\fR..
0190: 20 2e 54 50 0a 2b 20 5c 66 42 66 69 6c 65 20 74 .TP.+ \fBfile t
01a0: 65 6d 70 6e 61 6d 65 0a 2b 20 2e 0a 2b 20 52 65 empname.+ ..+ Re
01b0: 74 75 72 6e 73 20 61 20 73 74 72 69 6e 67 20 74 turns a string t
01c0: 68 61 74 20 69 73 20 61 20 76 61 6c 69 64 20 66 hat is a valid f
01d0: 69 6c 65 6e 61 6d 65 2c 20 77 68 69 63 68 20 64 ilename, which d
01e0: 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 2e 20 20 oes not exist.
01f0: 0a 2b 20 4d 6f 72 65 20 73 70 65 63 69 66 69 63 .+ More specific
0200: 61 6c 6c 79 2c 20 69 74 20 64 69 64 20 6e 6f 74 ally, it did not
0210: 20 65 78 69 73 74 20 61 74 20 73 6f 6d 65 20 70 exist at some p
0220: 6f 69 6e 74 20 69 6e 20 74 68 65 20 70 61 73 74 oint in the past
0230: 2e 0a 2b 20 54 68 65 20 66 69 6c 65 6e 61 6d 65 ..+ The filename
0240: 20 69 73 20 73 75 69 74 61 62 6c 65 20 66 6f 72 is suitable for
0250: 20 61 20 74 65 6d 70 6f 72 61 72 79 20 66 69 6c a temporary fil
0260: 65 2e 20 20 45 61 63 68 20 63 61 6c 6c 20 77 69 e. Each call wi
0270: 6c 6c 0a 2b 20 72 65 74 75 72 6e 20 61 20 64 69 ll.+ return a di
0280: 66 66 65 72 65 6e 74 2c 20 75 6e 69 71 75 65 20 fferent, unique
0290: 66 69 6c 65 6e 61 6d 65 2e 0a 2b 20 2e 54 50 0a filename..+ .TP.
02a0: 20 20 5c 66 42 66 69 6c 65 20 74 79 70 65 20 5c \fBfile type \
02b0: 66 49 6e 61 6d 65 5c 66 52 0a 20 20 2e 0a 20 20 fIname\fR. ..
02c0: 52 65 74 75 72 6e 73 20 61 20 73 74 72 69 6e 67 Returns a string
02d0: 20 67 69 76 69 6e 67 20 74 68 65 20 74 79 70 65 giving the type
02e0: 20 6f 66 20 66 69 6c 65 20 5c 66 49 6e 61 6d 65 of file \fIname
02f0: 5c 66 52 2c 20 77 68 69 63 68 20 77 69 6c 6c 20 \fR, which will
0300: 62 65 20 6f 6e 65 20 6f 66 0a 49 6e 64 65 78 3a be one of.Index:
0310: 20 67 65 6e 65 72 69 63 2f 74 63 6c 43 6d 64 41 generic/tclCmdA
0320: 48 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d H.c.============
0330: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0340: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0350: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0360: 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 =======.RCS file
0370: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 : /cvsroot/tcl/t
0380: 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 43 6d cl/generic/tclCm
0390: 64 41 48 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 dAH.c,v.retrievi
03a0: 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 34 35 ng revision 1.45
03b0: 0a 64 69 66 66 20 2d 63 20 2d 72 31 2e 34 35 20 .diff -c -r1.45
03c0: 74 63 6c 43 6d 64 41 48 2e 63 0a 2a 2a 2a 20 67 tclCmdAH.c.*** g
03d0: 65 6e 65 72 69 63 2f 74 63 6c 43 6d 64 41 48 2e eneric/tclCmdAH.
03e0: 63 09 31 33 20 4d 61 79 20 32 30 30 34 20 31 32 c.13 May 2004 12
03f0: 3a 35 39 3a 32 31 20 2d 30 30 30 30 09 31 2e 34 :59:21 -0000.1.4
0400: 35 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 5.--- generic/tc
0410: 6c 43 6d 64 41 48 2e 63 09 32 38 20 4a 75 6c 20 lCmdAH.c.28 Jul
0420: 32 30 30 34 20 30 35 3a 30 33 3a 35 32 20 2d 30 2004 05:03:52 -0
0430: 30 30 30 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 000.************
0440: 2a 2a 2a 0a 2a 2a 2a 20 38 36 39 2c 38 37 35 20 ***.*** 869,875
0450: 2a 2a 2a 2a 0a 20 20 09 22 70 61 74 68 74 79 70 ****. ."pathtyp
0460: 65 22 2c 09 22 72 65 61 64 61 62 6c 65 22 2c 09 e",."readable",.
0470: 22 72 65 61 64 6c 69 6e 6b 22 2c 09 22 72 65 6e "readlink",."ren
0480: 61 6d 65 22 2c 0a 20 20 09 22 72 6f 6f 74 6e 61 ame",. ."rootna
0490: 6d 65 22 2c 09 22 73 65 70 61 72 61 74 6f 72 22 me",."separator"
04a0: 2c 20 20 20 20 22 73 69 7a 65 22 2c 09 09 22 73 , "size",.."s
04b0: 70 6c 69 74 22 2c 09 0a 20 20 09 22 73 74 61 74 plit",.. ."stat
04c0: 22 2c 20 20 20 20 20 20 20 20 20 22 73 79 73 74 ", "syst
04d0: 65 6d 22 2c 20 0a 21 20 09 22 74 61 69 6c 22 2c em", .! ."tail",
04e0: 09 09 22 74 79 70 65 22 2c 09 09 22 76 6f 6c 75 .."type",.."volu
04f0: 6d 65 73 22 2c 09 22 77 72 69 74 61 62 6c 65 22 mes",."writable"
0500: 2c 0a 20 20 09 28 63 68 61 72 20 2a 29 20 4e 55 ,. .(char *) NU
0510: 4c 4c 0a 20 20 20 20 20 20 7d 3b 0a 20 20 20 20 LL. };.
0520: 20 20 65 6e 75 6d 20 6f 70 74 69 6f 6e 73 20 7b enum options {
0530: 0a 2d 2d 2d 20 38 36 39 2c 38 37 36 20 2d 2d 2d .--- 869,876 ---
0540: 2d 0a 20 20 09 22 70 61 74 68 74 79 70 65 22 2c -. ."pathtype",
0550: 09 22 72 65 61 64 61 62 6c 65 22 2c 09 22 72 65 ."readable",."re
0560: 61 64 6c 69 6e 6b 22 2c 09 22 72 65 6e 61 6d 65 adlink",."rename
0570: 22 2c 0a 20 20 09 22 72 6f 6f 74 6e 61 6d 65 22 ",. ."rootname"
0580: 2c 09 22 73 65 70 61 72 61 74 6f 72 22 2c 20 20 ,."separator",
0590: 20 20 22 73 69 7a 65 22 2c 09 09 22 73 70 6c 69 "size",.."spli
05a0: 74 22 2c 09 0a 20 20 09 22 73 74 61 74 22 2c 20 t",.. ."stat",
05b0: 20 20 20 20 20 20 20 20 22 73 79 73 74 65 6d 22 "system"
05c0: 2c 20 0a 21 20 09 22 74 61 69 6c 22 2c 09 09 22 , .! ."tail",.."
05d0: 74 65 6d 70 6e 61 6d 65 22 2c 20 20 20 20 20 22 tempname", "
05e0: 74 79 70 65 22 2c 09 09 22 76 6f 6c 75 6d 65 73 type",.."volumes
05f0: 22 2c 0a 21 20 09 22 77 72 69 74 61 62 6c 65 22 ",.! ."writable"
0600: 2c 0a 20 20 09 28 63 68 61 72 20 2a 29 20 4e 55 ,. .(char *) NU
0610: 4c 4c 0a 20 20 20 20 20 20 7d 3b 0a 20 20 20 20 LL. };.
0620: 20 20 65 6e 75 6d 20 6f 70 74 69 6f 6e 73 20 7b enum options {
0630: 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .***************
0640: 0a 2a 2a 2a 20 38 38 32 2c 38 38 38 20 2a 2a 2a .*** 882,888 ***
0650: 2a 0a 20 20 09 46 43 4d 44 5f 50 41 54 48 54 59 *. .FCMD_PATHTY
0660: 50 45 2c 09 46 43 4d 44 5f 52 45 41 44 41 42 4c PE,.FCMD_READABL
0670: 45 2c 09 46 43 4d 44 5f 52 45 41 44 4c 49 4e 4b E,.FCMD_READLINK
0680: 2c 09 46 43 4d 44 5f 52 45 4e 41 4d 45 2c 0a 20 ,.FCMD_RENAME,.
0690: 20 09 46 43 4d 44 5f 52 4f 4f 54 4e 41 4d 45 2c .FCMD_ROOTNAME,
06a0: 09 46 43 4d 44 5f 53 45 50 41 52 41 54 4f 52 2c .FCMD_SEPARATOR,
06b0: 20 46 43 4d 44 5f 53 49 5a 45 2c 09 46 43 4d 44 FCMD_SIZE,.FCMD
06c0: 5f 53 50 4c 49 54 2c 09 0a 20 20 09 46 43 4d 44 _SPLIT,.. .FCMD
06d0: 5f 53 54 41 54 2c 20 20 20 20 20 20 46 43 4d 44 _STAT, FCMD
06e0: 5f 53 59 53 54 45 4d 2c 20 0a 21 20 09 46 43 4d _SYSTEM, .! .FCM
06f0: 44 5f 54 41 49 4c 2c 09 46 43 4d 44 5f 54 59 50 D_TAIL,.FCMD_TYP
0700: 45 2c 09 46 43 4d 44 5f 56 4f 4c 55 4d 45 53 2c E,.FCMD_VOLUMES,
0710: 09 46 43 4d 44 5f 57 52 49 54 41 42 4c 45 0a 20 .FCMD_WRITABLE.
0720: 20 20 20 20 20 7d 3b 0a 20 20 0a 20 20 20 20 20 };. .
0730: 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 29 20 7b if (objc < 2) {
0740: 0a 2d 2d 2d 20 38 38 33 2c 38 39 30 20 2d 2d 2d .--- 883,890 ---
0750: 2d 0a 20 20 09 46 43 4d 44 5f 50 41 54 48 54 59 -. .FCMD_PATHTY
0760: 50 45 2c 09 46 43 4d 44 5f 52 45 41 44 41 42 4c PE,.FCMD_READABL
0770: 45 2c 09 46 43 4d 44 5f 52 45 41 44 4c 49 4e 4b E,.FCMD_READLINK
0780: 2c 09 46 43 4d 44 5f 52 45 4e 41 4d 45 2c 0a 20 ,.FCMD_RENAME,.
0790: 20 09 46 43 4d 44 5f 52 4f 4f 54 4e 41 4d 45 2c .FCMD_ROOTNAME,
07a0: 09 46 43 4d 44 5f 53 45 50 41 52 41 54 4f 52 2c .FCMD_SEPARATOR,
07b0: 20 46 43 4d 44 5f 53 49 5a 45 2c 09 46 43 4d 44 FCMD_SIZE,.FCMD
07c0: 5f 53 50 4c 49 54 2c 09 0a 20 20 09 46 43 4d 44 _SPLIT,.. .FCMD
07d0: 5f 53 54 41 54 2c 20 20 20 20 20 20 46 43 4d 44 _STAT, FCMD
07e0: 5f 53 59 53 54 45 4d 2c 20 0a 21 20 09 46 43 4d _SYSTEM, .! .FCM
07f0: 44 5f 54 41 49 4c 2c 09 46 43 4d 44 5f 54 45 4d D_TAIL,.FCMD_TEM
0800: 50 4e 41 4d 45 2c 20 20 46 43 4d 44 5f 54 59 50 PNAME, FCMD_TYP
0810: 45 2c 09 46 43 4d 44 5f 56 4f 4c 55 4d 45 53 2c E,.FCMD_VOLUMES,
0820: 0a 21 20 09 46 43 4d 44 5f 57 52 49 54 41 42 4c .! .FCMD_WRITABL
0830: 45 0a 20 20 20 20 20 20 7d 3b 0a 20 20 0a 20 20 E. };. .
0840: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 if (objc < 2
0850: 29 20 7b 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ) {.************
0860: 2a 2a 2a 0a 2a 2a 2a 20 31 34 32 35 2c 31 34 33 ***.*** 1425,143
0870: 30 20 2a 2a 2a 2a 0a 2d 2d 2d 20 31 34 32 37 2c 0 ****.--- 1427,
0880: 31 34 33 34 20 2d 2d 2d 2d 0a 20 20 09 09 72 65 1434 ----. ..re
0890: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 09 turn TCL_OK;. .
08a0: 20 20 20 20 7d 0a 20 20 09 7d 0a 2b 20 09 63 61 }. .}.+ .ca
08b0: 73 65 20 46 43 4d 44 5f 54 45 4d 50 4e 41 4d 45 se FCMD_TEMPNAME
08c0: 3a 0a 2b 20 09 20 20 20 20 72 65 74 75 72 6e 20 :.+ . return
08d0: 54 63 6c 46 69 6c 65 54 65 6d 70 6e 61 6d 65 43 TclFileTempnameC
08e0: 6d 64 28 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c md(interp, objc,
08f0: 20 6f 62 6a 76 29 3b 0a 20 20 09 63 61 73 65 20 objv);. .case
0900: 46 43 4d 44 5f 54 59 50 45 3a 20 7b 0a 20 20 09 FCMD_TYPE: {. .
0910: 20 20 20 20 54 63 6c 5f 53 74 61 74 42 75 66 20 Tcl_StatBuf
0920: 62 75 66 3b 0a 20 20 0a 49 6e 64 65 78 3a 20 67 buf;. .Index: g
0930: 65 6e 65 72 69 63 2f 74 63 6c 46 43 6d 64 2e 63 eneric/tclFCmd.c
0940: 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .===============
0950: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0960: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0970: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0980: 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f ====.RCS file: /
0990: 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f cvsroot/tcl/tcl/
09a0: 67 65 6e 65 72 69 63 2f 74 63 6c 46 43 6d 64 2e generic/tclFCmd.
09b0: 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 c,v.retrieving r
09c0: 65 76 69 73 69 6f 6e 20 31 2e 32 36 0a 64 69 66 evision 1.26.dif
09d0: 66 20 2d 63 20 2d 72 31 2e 32 36 20 74 63 6c 46 f -c -r1.26 tclF
09e0: 43 6d 64 2e 63 0a 2a 2a 2a 20 67 65 6e 65 72 69 Cmd.c.*** generi
09f0: 63 2f 74 63 6c 46 43 6d 64 2e 63 09 36 20 41 70 c/tclFCmd.c.6 Ap
0a00: 72 20 32 30 30 34 20 32 32 3a 32 35 3a 35 31 20 r 2004 22:25:51
0a10: 2d 30 30 30 30 09 31 2e 32 36 0a 2d 2d 2d 20 67 -0000.1.26.--- g
0a20: 65 6e 65 72 69 63 2f 74 63 6c 46 43 6d 64 2e 63 eneric/tclFCmd.c
0a30: 09 32 38 20 4a 75 6c 20 32 30 30 34 20 30 35 3a .28 Jul 2004 05:
0a40: 30 33 3a 35 33 20 2d 30 30 30 30 0a 2a 2a 2a 2a 03:53 -0000.****
0a50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 2a 2a 2a 20 ***********.***
0a60: 34 31 37 2c 34 32 32 20 2a 2a 2a 2a 0a 2d 2d 2d 417,422 ****.---
0a70: 20 34 31 37 2c 34 35 34 20 2d 2d 2d 2d 0a 20 20 417,454 ----.
0a80: 2f 2a 0a 20 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *---------
0a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ad0: 2d 2d 0a 20 20 20 2a 0a 2b 20 20 2a 20 54 63 6c --. *.+ * Tcl
0ae0: 46 69 6c 65 54 65 6d 70 6e 61 6d 65 43 6d 64 0a FileTempnameCmd.
0af0: 2b 20 20 2a 0a 2b 20 20 2a 09 54 68 69 73 20 70 + *.+ *.This p
0b00: 72 6f 63 65 64 75 72 65 20 69 6d 70 6c 65 6d 65 rocedure impleme
0b10: 6e 74 73 20 74 68 65 20 22 74 65 6d 70 6e 61 6d nts the "tempnam
0b20: 65 22 20 73 75 62 63 6f 6d 6d 61 6e 64 20 6f 66 e" subcommand of
0b30: 20 74 68 65 20 22 66 69 6c 65 22 0a 2b 20 20 2a the "file".+ *
0b40: 09 63 6f 6d 6d 61 6e 64 2e 20 20 0a 2b 20 20 2a .command. .+ *
0b50: 0a 2b 20 20 2a 20 52 65 73 75 6c 74 73 3a 0a 2b .+ * Results:.+
0b60: 20 20 2a 09 52 65 74 75 72 6e 73 20 61 20 74 65 *.Returns a te
0b70: 6d 70 6f 72 61 72 79 20 66 69 6c 65 20 6e 61 6d mporary file nam
0b80: 65 2e 0a 2b 20 20 2a 0a 2b 20 20 2a 20 53 69 64 e..+ *.+ * Sid
0b90: 65 20 65 66 66 65 63 74 73 3a 0a 2b 20 20 2a 09 e effects:.+ *.
0ba0: 4e 6f 6e 65 2e 0a 2b 20 20 2a 0a 2b 20 20 2a 2d None..+ *.+ *-
0bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2b 20 20 2a 2f ----------.+ */
0c00: 0a 2b 20 0a 2b 20 69 6e 74 0a 2b 20 54 63 6c 46 .+ .+ int.+ TclF
0c10: 69 6c 65 54 65 6d 70 6e 61 6d 65 43 6d 64 28 69 ileTempnameCmd(i
0c20: 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a nterp, objc, obj
0c30: 76 29 0a 2b 20 20 20 20 20 54 63 6c 5f 49 6e 74 v).+ Tcl_Int
0c40: 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 09 2f 2a erp *interp;../*
0c50: 20 55 73 65 64 20 66 6f 72 20 65 72 72 6f 72 20 Used for error
0c60: 72 65 70 6f 72 74 69 6e 67 20 2a 2f 0a 2b 20 20 reporting */.+
0c70: 20 20 20 69 6e 74 20 6f 62 6a 63 3b 09 09 09 2f int objc;.../
0c80: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 * Number of argu
0c90: 6d 65 6e 74 73 2e 20 2a 2f 0a 2b 20 20 20 20 20 ments. */.+
0ca0: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
0cb0: 62 6a 76 5b 5d 3b 09 2f 2a 20 41 72 67 75 6d 65 bjv[];./* Argume
0cc0: 6e 74 20 73 74 72 69 6e 67 73 20 70 61 73 73 65 nt strings passe
0cd0: 64 20 74 6f 20 54 63 6c 5f 46 69 6c 65 43 6d 64 d to Tcl_FileCmd
0ce0: 2e 20 2a 2f 0a 2b 20 7b 0a 2b 20 20 20 63 68 61 . */.+ {.+ cha
0cf0: 72 20 66 69 6c 65 6e 61 6d 65 5b 46 49 4c 45 4e r filename[FILEN
0d00: 41 4d 45 5f 4d 41 58 5d 3b 0a 2b 20 20 20 69 66 AME_MAX];.+ if
0d10: 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b 0a 2b (objc != 2) {.+
0d20: 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 Tcl_WrongNu
0d30: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c mArgs(interp, 2,
0d40: 20 6f 62 6a 76 2c 20 4e 55 4c 4c 29 3b 0a 2b 20 objv, NULL);.+
0d50: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
0d60: 52 52 4f 52 3b 0a 2b 20 20 20 7d 0a 2b 20 20 20 RROR;.+ }.+
0d70: 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e Tcl_SetResult(in
0d80: 74 65 72 70 2c 20 74 6d 70 6e 61 6d 28 66 69 6c terp, tmpnam(fil
0d90: 65 6e 61 6d 65 29 2c 20 4e 55 4c 4c 29 3b 0a 2b ename), NULL);.+
0da0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
0db0: 3b 0a 2b 20 7d 0a 2b 20 0c 0a 2b 20 2f 2a 0a 2b ;.+ }.+ ..+ /*.+
0dc0: 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *-------------
0dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 2b --------------.+
0e10: 20 20 2a 0a 20 20 20 2a 20 43 6f 70 79 52 65 6e *. * CopyRen
0e20: 61 6d 65 4f 6e 65 46 69 6c 65 0a 20 20 20 2a 0a ameOneFile. *.
0e30: 20 20 20 2a 09 43 6f 70 69 65 73 20 6f 72 20 72 *.Copies or r
0e40: 65 6e 61 6d 65 73 20 73 70 65 63 69 66 69 65 64 enames specified
0e50: 20 73 6f 75 72 63 65 20 66 69 6c 65 20 6f 72 20 source file or
0e60: 64 69 72 65 63 74 6f 72 79 20 68 69 65 72 61 72 directory hierar
0e70: 63 68 79 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 chy.Index: gener
0e80: 69 63 2f 74 63 6c 49 6e 74 2e 68 0a 3d 3d 3d 3d ic/tclInt.h.====
0e90: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0ea0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0eb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0ec0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
0ed0: 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f RCS file: /cvsro
0ee0: 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 ot/tcl/tcl/gener
0ef0: 69 63 2f 74 63 6c 49 6e 74 2e 68 2c 76 0a 72 65 ic/tclInt.h,v.re
0f00: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
0f10: 6e 20 31 2e 31 37 30 0a 64 69 66 66 20 2d 63 20 n 1.170.diff -c
0f20: 2d 72 31 2e 31 37 30 20 74 63 6c 49 6e 74 2e 68 -r1.170 tclInt.h
0f30: 0a 2a 2a 2a 20 67 65 6e 65 72 69 63 2f 74 63 6c .*** generic/tcl
0f40: 49 6e 74 2e 68 09 32 31 20 4a 75 6c 20 32 30 30 Int.h.21 Jul 200
0f50: 34 20 30 31 3a 34 35 3a 34 34 20 2d 30 30 30 30 4 01:45:44 -0000
0f60: 09 31 2e 31 37 30 0a 2d 2d 2d 20 67 65 6e 65 72 .1.170.--- gener
0f70: 69 63 2f 74 63 6c 49 6e 74 2e 68 09 32 38 20 4a ic/tclInt.h.28 J
0f80: 75 6c 20 32 30 30 34 20 30 35 3a 30 33 3a 35 37 ul 2004 05:03:57
0f90: 20 2d 30 30 30 30 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a -0000.*********
0fa0: 2a 2a 2a 2a 2a 2a 0a 2a 2a 2a 20 31 37 33 31 2c ******.*** 1731,
0fb0: 31 37 33 36 20 2a 2a 2a 2a 0a 2d 2d 2d 20 31 37 1736 ****.--- 17
0fc0: 33 31 2c 31 37 33 38 20 2d 2d 2d 2d 0a 20 20 09 31,1738 ----. .
0fd0: 09 09 20 20 20 20 69 6e 74 20 6f 62 6a 63 2c 20 .. int objc,
0fe0: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
0ff0: 62 6a 76 5b 5d 29 29 20 3b 0a 20 20 45 58 54 45 bjv[])) ;. EXTE
1000: 52 4e 20 69 6e 74 09 09 54 63 6c 46 69 6c 65 52 RN int..TclFileR
1010: 65 6e 61 6d 65 43 6d 64 20 5f 41 4e 53 49 5f 41 enameCmd _ANSI_A
1020: 52 47 53 5f 28 28 54 63 6c 5f 49 6e 74 65 72 70 RGS_((Tcl_Interp
1030: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 09 09 09 20 *interp,. ...
1040: 20 20 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c int objc, Tcl
1050: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
1060: 5b 5d 29 29 20 3b 0a 2b 20 45 58 54 45 52 4e 20 [])) ;.+ EXTERN
1070: 69 6e 74 09 09 54 63 6c 46 69 6c 65 54 65 6d 70 int..TclFileTemp
1080: 6e 61 6d 65 43 6d 64 20 5f 41 4e 53 49 5f 41 52 nameCmd _ANSI_AR
1090: 47 53 5f 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 GS_((Tcl_Interp
10a0: 2a 69 6e 74 65 72 70 2c 0a 2b 20 09 09 09 20 20 *interp,.+ ...
10b0: 20 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f int objc, Tcl_
10c0: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
10d0: 5d 29 29 3b 0a 20 20 45 58 54 45 52 4e 20 76 6f ]));. EXTERN vo
10e0: 69 64 09 09 54 63 6c 46 69 6e 61 6c 69 7a 65 41 id..TclFinalizeA
10f0: 6c 6c 6f 63 53 75 62 73 79 73 74 65 6d 20 5f 41 llocSubsystem _A
1100: 4e 53 49 5f 41 52 47 53 5f 28 28 76 6f 69 64 29 NSI_ARGS_((void)
1110: 29 3b 0a 20 20 45 58 54 45 52 4e 20 76 6f 69 64 );. EXTERN void
1120: 09 09 54 63 6c 46 69 6e 61 6c 69 7a 65 43 6f 6d ..TclFinalizeCom
1130: 70 45 78 65 63 45 6e 76 20 5f 41 4e 53 49 5f 41 pExecEnv _ANSI_A
1140: 52 47 53 5f 28 28 76 6f 69 64 29 29 3b 0a 20 20 RGS_((void));.
1150: 45 58 54 45 52 4e 20 76 6f 69 64 09 09 54 63 6c EXTERN void..Tcl
1160: 46 69 6e 61 6c 69 7a 65 43 6f 6d 70 69 6c 61 74 FinalizeCompilat
1170: 69 6f 6e 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 ion _ANSI_ARGS_(
1180: 28 76 6f 69 64 29 29 3b 0a 49 6e 64 65 78 3a 20 (void));.Index:
1190: 74 65 73 74 73 2f 63 6d 64 41 48 2e 74 65 73 74 tests/cmdAH.test
11a0: 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .===============
11b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
11c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
11d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
11e0: 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f ====.RCS file: /
11f0: 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f cvsroot/tcl/tcl/
1200: 74 65 73 74 73 2f 63 6d 64 41 48 2e 74 65 73 74 tests/cmdAH.test
1210: 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 ,v.retrieving re
1220: 76 69 73 69 6f 6e 20 31 2e 34 33 0a 64 69 66 66 vision 1.43.diff
1230: 20 2d 63 20 2d 72 31 2e 34 33 20 63 6d 64 41 48 -c -r1.43 cmdAH
1240: 2e 74 65 73 74 0a 2a 2a 2a 20 74 65 73 74 73 2f .test.*** tests/
1250: 63 6d 64 41 48 2e 74 65 73 74 09 32 33 20 4a 75 cmdAH.test.23 Ju
1260: 6e 20 32 30 30 34 20 31 35 3a 34 36 3a 34 35 20 n 2004 15:46:45
1270: 2d 30 30 30 30 09 31 2e 34 33 0a 2d 2d 2d 20 74 -0000.1.43.--- t
1280: 65 73 74 73 2f 63 6d 64 41 48 2e 74 65 73 74 09 ests/cmdAH.test.
1290: 32 38 20 4a 75 6c 20 32 30 30 34 20 30 35 3a 30 28 Jul 2004 05:0
12a0: 33 3a 35 38 20 2d 30 30 30 30 0a 2a 2a 2a 2a 2a 3:58 -0000.*****
12b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 2a 2a 2a 20 31 **********.*** 1
12c0: 38 34 2c 31 39 30 20 2a 2a 2a 2a 0a 20 20 7d 20 84,190 ****. }
12d0: 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 73 {1 {wrong # args
12e0: 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 66 69 6c : should be "fil
12f0: 65 20 6f 70 74 69 6f 6e 20 3f 61 72 67 20 2e 2e e option ?arg ..
1300: 2e 3f 22 7d 7d 0a 20 20 74 65 73 74 20 63 6d 64 .?"}}. test cmd
1310: 41 48 2d 35 2e 32 20 7b 54 63 6c 5f 46 69 6c 65 AH-5.2 {Tcl_File
1320: 4f 62 6a 43 6d 64 7d 20 7b 0a 20 20 20 20 20 20 ObjCmd} {.
1330: 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 66 69 6c list [catch {fil
1340: 65 20 78 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 21 e x} msg] $msg.!
1350: 20 7d 20 7b 31 20 7b 62 61 64 20 6f 70 74 69 6f } {1 {bad optio
1360: 6e 20 22 78 22 3a 20 6d 75 73 74 20 62 65 20 61 n "x": must be a
1370: 74 69 6d 65 2c 20 61 74 74 72 69 62 75 74 65 73 time, attributes
1380: 2c 20 63 68 61 6e 6e 65 6c 73 2c 20 63 6f 70 79 , channels, copy
1390: 2c 20 64 65 6c 65 74 65 2c 20 64 69 72 6e 61 6d , delete, dirnam
13a0: 65 2c 20 65 78 65 63 75 74 61 62 6c 65 2c 20 65 e, executable, e
13b0: 78 69 73 74 73 2c 20 65 78 74 65 6e 73 69 6f 6e xists, extension
13c0: 2c 20 69 73 64 69 72 65 63 74 6f 72 79 2c 20 69 , isdirectory, i
13d0: 73 66 69 6c 65 2c 20 6a 6f 69 6e 2c 20 6c 69 6e sfile, join, lin
13e0: 6b 2c 20 6c 73 74 61 74 2c 20 6d 74 69 6d 65 2c k, lstat, mtime,
13f0: 20 6d 6b 64 69 72 2c 20 6e 61 74 69 76 65 6e 61 mkdir, nativena
1400: 6d 65 2c 20 6e 6f 72 6d 61 6c 69 7a 65 2c 20 6f me, normalize, o
1410: 77 6e 65 64 2c 20 70 61 74 68 74 79 70 65 2c 20 wned, pathtype,
1420: 72 65 61 64 61 62 6c 65 2c 20 72 65 61 64 6c 69 readable, readli
1430: 6e 6b 2c 20 72 65 6e 61 6d 65 2c 20 72 6f 6f 74 nk, rename, root
1440: 6e 61 6d 65 2c 20 73 65 70 61 72 61 74 6f 72 2c name, separator,
1450: 20 73 69 7a 65 2c 20 73 70 6c 69 74 2c 20 73 74 size, split, st
1460: 61 74 2c 20 73 79 73 74 65 6d 2c 20 74 61 69 6c at, system, tail
1470: 2c 20 74 79 70 65 2c 20 76 6f 6c 75 6d 65 73 2c , type, volumes,
1480: 20 6f 72 20 77 72 69 74 61 62 6c 65 7d 7d 0a 20 or writable}}.
1490: 20 74 65 73 74 20 63 6d 64 41 48 2d 35 2e 33 20 test cmdAH-5.3
14a0: 7b 54 63 6c 5f 46 69 6c 65 4f 62 6a 43 6d 64 7d {Tcl_FileObjCmd}
14b0: 20 7b 0a 20 20 20 20 20 20 6c 69 73 74 20 5b 63 {. list [c
14c0: 61 74 63 68 20 7b 66 69 6c 65 20 65 78 69 73 74 atch {file exist
14d0: 73 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 20 20 7d s} msg] $msg. }
14e0: 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 {1 {wrong # arg
14f0: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 66 69 s: should be "fi
1500: 6c 65 20 65 78 69 73 74 73 20 6e 61 6d 65 22 7d le exists name"}
1510: 7d 0a 2d 2d 2d 20 31 38 34 2c 31 39 30 20 2d 2d }.--- 184,190 --
1520: 2d 2d 0a 20 20 7d 20 7b 31 20 7b 77 72 6f 6e 67 --. } {1 {wrong
1530: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
1540: 62 65 20 22 66 69 6c 65 20 6f 70 74 69 6f 6e 20 be "file option
1550: 3f 61 72 67 20 2e 2e 2e 3f 22 7d 7d 0a 20 20 74 ?arg ...?"}}. t
1560: 65 73 74 20 63 6d 64 41 48 2d 35 2e 32 20 7b 54 est cmdAH-5.2 {T
1570: 63 6c 5f 46 69 6c 65 4f 62 6a 43 6d 64 7d 20 7b cl_FileObjCmd} {
1580: 0a 20 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 . list [cat
1590: 63 68 20 7b 66 69 6c 65 20 78 7d 20 6d 73 67 5d ch {file x} msg]
15a0: 20 24 6d 73 67 0a 21 20 7d 20 7b 31 20 7b 62 61 $msg.! } {1 {ba
15b0: 64 20 6f 70 74 69 6f 6e 20 22 78 22 3a 20 6d 75 d option "x": mu
15c0: 73 74 20 62 65 20 61 74 69 6d 65 2c 20 61 74 74 st be atime, att
15d0: 72 69 62 75 74 65 73 2c 20 63 68 61 6e 6e 65 6c ributes, channel
15e0: 73 2c 20 63 6f 70 79 2c 20 64 65 6c 65 74 65 2c s, copy, delete,
15f0: 20 64 69 72 6e 61 6d 65 2c 20 65 78 65 63 75 74 dirname, execut
1600: 61 62 6c 65 2c 20 65 78 69 73 74 73 2c 20 65 78 able, exists, ex
1610: 74 65 6e 73 69 6f 6e 2c 20 69 73 64 69 72 65 63 tension, isdirec
1620: 74 6f 72 79 2c 20 69 73 66 69 6c 65 2c 20 6a 6f tory, isfile, jo
1630: 69 6e 2c 20 6c 69 6e 6b 2c 20 6c 73 74 61 74 2c in, link, lstat,
1640: 20 6d 74 69 6d 65 2c 20 6d 6b 64 69 72 2c 20 6e mtime, mkdir, n
1650: 61 74 69 76 65 6e 61 6d 65 2c 20 6e 6f 72 6d 61 ativename, norma
1660: 6c 69 7a 65 2c 20 6f 77 6e 65 64 2c 20 70 61 74 lize, owned, pat
1670: 68 74 79 70 65 2c 20 72 65 61 64 61 62 6c 65 2c htype, readable,
1680: 20 72 65 61 64 6c 69 6e 6b 2c 20 72 65 6e 61 6d readlink, renam
1690: 65 2c 20 72 6f 6f 74 6e 61 6d 65 2c 20 73 65 70 e, rootname, sep
16a0: 61 72 61 74 6f 72 2c 20 73 69 7a 65 2c 20 73 70 arator, size, sp
16b0: 6c 69 74 2c 20 73 74 61 74 2c 20 73 79 73 74 65 lit, stat, syste
16c0: 6d 2c 20 74 61 69 6c 2c 20 74 65 6d 70 6e 61 6d m, tail, tempnam
16d0: 65 2c 20 74 79 70 65 2c 20 76 6f 6c 75 6d 65 73 e, type, volumes
16e0: 2c 20 6f 72 20 77 72 69 74 61 62 6c 65 7d 7d 0a , or writable}}.
16f0: 20 20 74 65 73 74 20 63 6d 64 41 48 2d 35 2e 33 test cmdAH-5.3
1700: 20 7b 54 63 6c 5f 46 69 6c 65 4f 62 6a 43 6d 64 {Tcl_FileObjCmd
1710: 7d 20 7b 0a 20 20 20 20 20 20 6c 69 73 74 20 5b } {. list [
1720: 63 61 74 63 68 20 7b 66 69 6c 65 20 65 78 69 73 catch {file exis
1730: 74 73 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 20 20 ts} msg] $msg.
1740: 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 } {1 {wrong # ar
1750: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 66 gs: should be "f
1760: 69 6c 65 20 65 78 69 73 74 73 20 6e 61 6d 65 22 ile exists name"
1770: 7d 7d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a }}.*************
1780: 2a 2a 0a 2a 2a 2a 20 31 34 31 32 2c 31 34 33 36 **.*** 1412,1436
1790: 20 2a 2a 2a 2a 0a 20 20 0a 20 20 74 65 73 74 20 ****. . test
17a0: 63 6d 64 41 48 2d 33 30 2e 31 20 7b 54 63 6c 5f cmdAH-30.1 {Tcl_
17b0: 46 69 6c 65 4f 62 6a 43 6d 64 3a 20 65 72 72 6f FileObjCmd: erro
17c0: 72 20 63 6f 6e 64 69 74 69 6f 6e 73 7d 20 7b 0a r conditions} {.
17d0: 20 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 list [catc
17e0: 68 20 7b 66 69 6c 65 20 67 6f 72 70 20 78 7d 20 h {file gorp x}
17f0: 6d 73 67 5d 20 24 6d 73 67 0a 21 20 7d 20 7b 31 msg] $msg.! } {1
1800: 20 7b 62 61 64 20 6f 70 74 69 6f 6e 20 22 67 6f {bad option "go
1810: 72 70 22 3a 20 6d 75 73 74 20 62 65 20 61 74 69 rp": must be ati
1820: 6d 65 2c 20 61 74 74 72 69 62 75 74 65 73 2c 20 me, attributes,
1830: 63 68 61 6e 6e 65 6c 73 2c 20 63 6f 70 79 2c 20 channels, copy,
1840: 64 65 6c 65 74 65 2c 20 64 69 72 6e 61 6d 65 2c delete, dirname,
1850: 20 65 78 65 63 75 74 61 62 6c 65 2c 20 65 78 69 executable, exi
1860: 73 74 73 2c 20 65 78 74 65 6e 73 69 6f 6e 2c 20 sts, extension,
1870: 69 73 64 69 72 65 63 74 6f 72 79 2c 20 69 73 66 isdirectory, isf
1880: 69 6c 65 2c 20 6a 6f 69 6e 2c 20 6c 69 6e 6b 2c ile, join, link,
1890: 20 6c 73 74 61 74 2c 20 6d 74 69 6d 65 2c 20 6d lstat, mtime, m
18a0: 6b 64 69 72 2c 20 6e 61 74 69 76 65 6e 61 6d 65 kdir, nativename
18b0: 2c 20 6e 6f 72 6d 61 6c 69 7a 65 2c 20 6f 77 6e , normalize, own
18c0: 65 64 2c 20 70 61 74 68 74 79 70 65 2c 20 72 65 ed, pathtype, re
18d0: 61 64 61 62 6c 65 2c 20 72 65 61 64 6c 69 6e 6b adable, readlink
18e0: 2c 20 72 65 6e 61 6d 65 2c 20 72 6f 6f 74 6e 61 , rename, rootna
18f0: 6d 65 2c 20 73 65 70 61 72 61 74 6f 72 2c 20 73 me, separator, s
1900: 69 7a 65 2c 20 73 70 6c 69 74 2c 20 73 74 61 74 ize, split, stat
1910: 2c 20 73 79 73 74 65 6d 2c 20 74 61 69 6c 2c 20 , system, tail,
1920: 74 79 70 65 2c 20 76 6f 6c 75 6d 65 73 2c 20 6f type, volumes, o
1930: 72 20 77 72 69 74 61 62 6c 65 7d 7d 0a 20 20 74 r writable}}. t
1940: 65 73 74 20 63 6d 64 41 48 2d 33 30 2e 32 20 7b est cmdAH-30.2 {
1950: 54 63 6c 5f 46 69 6c 65 4f 62 6a 43 6d 64 3a 20 Tcl_FileObjCmd:
1960: 65 72 72 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 73 error conditions
1970: 7d 20 7b 0a 20 20 20 20 20 20 6c 69 73 74 20 5b } {. list [
1980: 63 61 74 63 68 20 7b 66 69 6c 65 20 65 78 20 78 catch {file ex x
1990: 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 21 20 7d 20 } msg] $msg.! }
19a0: 7b 31 20 7b 61 6d 62 69 67 75 6f 75 73 20 6f 70 {1 {ambiguous op
19b0: 74 69 6f 6e 20 22 65 78 22 3a 20 6d 75 73 74 20 tion "ex": must
19c0: 62 65 20 61 74 69 6d 65 2c 20 61 74 74 72 69 62 be atime, attrib
19d0: 75 74 65 73 2c 20 63 68 61 6e 6e 65 6c 73 2c 20 utes, channels,
19e0: 63 6f 70 79 2c 20 64 65 6c 65 74 65 2c 20 64 69 copy, delete, di
19f0: 72 6e 61 6d 65 2c 20 65 78 65 63 75 74 61 62 6c rname, executabl
1a00: 65 2c 20 65 78 69 73 74 73 2c 20 65 78 74 65 6e e, exists, exten
1a10: 73 69 6f 6e 2c 20 69 73 64 69 72 65 63 74 6f 72 sion, isdirector
1a20: 79 2c 20 69 73 66 69 6c 65 2c 20 6a 6f 69 6e 2c y, isfile, join,
1a30: 20 6c 69 6e 6b 2c 20 6c 73 74 61 74 2c 20 6d 74 link, lstat, mt
1a40: 69 6d 65 2c 20 6d 6b 64 69 72 2c 20 6e 61 74 69 ime, mkdir, nati
1a50: 76 65 6e 61 6d 65 2c 20 6e 6f 72 6d 61 6c 69 7a vename, normaliz
1a60: 65 2c 20 6f 77 6e 65 64 2c 20 70 61 74 68 74 79 e, owned, pathty
1a70: 70 65 2c 20 72 65 61 64 61 62 6c 65 2c 20 72 65 pe, readable, re
1a80: 61 64 6c 69 6e 6b 2c 20 72 65 6e 61 6d 65 2c 20 adlink, rename,
1a90: 72 6f 6f 74 6e 61 6d 65 2c 20 73 65 70 61 72 61 rootname, separa
1aa0: 74 6f 72 2c 20 73 69 7a 65 2c 20 73 70 6c 69 74 tor, size, split
1ab0: 2c 20 73 74 61 74 2c 20 73 79 73 74 65 6d 2c 20 , stat, system,
1ac0: 74 61 69 6c 2c 20 74 79 70 65 2c 20 76 6f 6c 75 tail, type, volu
1ad0: 6d 65 73 2c 20 6f 72 20 77 72 69 74 61 62 6c 65 mes, or writable
1ae0: 7d 7d 0a 20 20 74 65 73 74 20 63 6d 64 41 48 2d }}. test cmdAH-
1af0: 33 30 2e 33 20 7b 54 63 6c 5f 46 69 6c 65 4f 62 30.3 {Tcl_FileOb
1b00: 6a 43 6d 64 3a 20 65 72 72 6f 72 20 63 6f 6e 64 jCmd: error cond
1b10: 69 74 69 6f 6e 73 7d 20 7b 0a 20 20 20 20 20 20 itions} {.
1b20: 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 66 69 6c list [catch {fil
1b30: 65 20 69 73 20 78 7d 20 6d 73 67 5d 20 24 6d 73 e is x} msg] $ms
1b40: 67 0a 21 20 7d 20 7b 31 20 7b 61 6d 62 69 67 75 g.! } {1 {ambigu
1b50: 6f 75 73 20 6f 70 74 69 6f 6e 20 22 69 73 22 3a ous option "is":
1b60: 20 6d 75 73 74 20 62 65 20 61 74 69 6d 65 2c 20 must be atime,
1b70: 61 74 74 72 69 62 75 74 65 73 2c 20 63 68 61 6e attributes, chan
1b80: 6e 65 6c 73 2c 20 63 6f 70 79 2c 20 64 65 6c 65 nels, copy, dele
1b90: 74 65 2c 20 64 69 72 6e 61 6d 65 2c 20 65 78 65 te, dirname, exe
1ba0: 63 75 74 61 62 6c 65 2c 20 65 78 69 73 74 73 2c cutable, exists,
1bb0: 20 65 78 74 65 6e 73 69 6f 6e 2c 20 69 73 64 69 extension, isdi
1bc0: 72 65 63 74 6f 72 79 2c 20 69 73 66 69 6c 65 2c rectory, isfile,
1bd0: 20 6a 6f 69 6e 2c 20 6c 69 6e 6b 2c 20 6c 73 74 join, link, lst
1be0: 61 74 2c 20 6d 74 69 6d 65 2c 20 6d 6b 64 69 72 at, mtime, mkdir
1bf0: 2c 20 6e 61 74 69 76 65 6e 61 6d 65 2c 20 6e 6f , nativename, no
1c00: 72 6d 61 6c 69 7a 65 2c 20 6f 77 6e 65 64 2c 20 rmalize, owned,
1c10: 70 61 74 68 74 79 70 65 2c 20 72 65 61 64 61 62 pathtype, readab
1c20: 6c 65 2c 20 72 65 61 64 6c 69 6e 6b 2c 20 72 65 le, readlink, re
1c30: 6e 61 6d 65 2c 20 72 6f 6f 74 6e 61 6d 65 2c 20 name, rootname,
1c40: 73 65 70 61 72 61 74 6f 72 2c 20 73 69 7a 65 2c separator, size,
1c50: 20 73 70 6c 69 74 2c 20 73 74 61 74 2c 20 73 79 split, stat, sy
1c60: 73 74 65 6d 2c 20 74 61 69 6c 2c 20 74 79 70 65 stem, tail, type
1c70: 2c 20 76 6f 6c 75 6d 65 73 2c 20 6f 72 20 77 72 , volumes, or wr
1c80: 69 74 61 62 6c 65 7d 7d 0a 20 20 74 65 73 74 20 itable}}. test
1c90: 63 6d 64 41 48 2d 33 30 2e 34 20 7b 54 63 6c 5f cmdAH-30.4 {Tcl_
1ca0: 46 69 6c 65 4f 62 6a 43 6d 64 3a 20 65 72 72 6f FileObjCmd: erro
1cb0: 72 20 63 6f 6e 64 69 74 69 6f 6e 73 7d 20 7b 0a r conditions} {.
1cc0: 20 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 list [catc
1cd0: 68 20 7b 66 69 6c 65 20 7a 20 78 7d 20 6d 73 67 h {file z x} msg
1ce0: 5d 20 24 6d 73 67 0a 21 20 7d 20 7b 31 20 7b 62 ] $msg.! } {1 {b
1cf0: 61 64 20 6f 70 74 69 6f 6e 20 22 7a 22 3a 20 6d ad option "z": m
1d00: 75 73 74 20 62 65 20 61 74 69 6d 65 2c 20 61 74 ust be atime, at
1d10: 74 72 69 62 75 74 65 73 2c 20 63 68 61 6e 6e 65 tributes, channe
1d20: 6c 73 2c 20 63 6f 70 79 2c 20 64 65 6c 65 74 65 ls, copy, delete
1d30: 2c 20 64 69 72 6e 61 6d 65 2c 20 65 78 65 63 75 , dirname, execu
1d40: 74 61 62 6c 65 2c 20 65 78 69 73 74 73 2c 20 65 table, exists, e
1d50: 78 74 65 6e 73 69 6f 6e 2c 20 69 73 64 69 72 65 xtension, isdire
1d60: 63 74 6f 72 79 2c 20 69 73 66 69 6c 65 2c 20 6a ctory, isfile, j
1d70: 6f 69 6e 2c 20 6c 69 6e 6b 2c 20 6c 73 74 61 74 oin, link, lstat
1d80: 2c 20 6d 74 69 6d 65 2c 20 6d 6b 64 69 72 2c 20 , mtime, mkdir,
1d90: 6e 61 74 69 76 65 6e 61 6d 65 2c 20 6e 6f 72 6d nativename, norm
1da0: 61 6c 69 7a 65 2c 20 6f 77 6e 65 64 2c 20 70 61 alize, owned, pa
1db0: 74 68 74 79 70 65 2c 20 72 65 61 64 61 62 6c 65 thtype, readable
1dc0: 2c 20 72 65 61 64 6c 69 6e 6b 2c 20 72 65 6e 61 , readlink, rena
1dd0: 6d 65 2c 20 72 6f 6f 74 6e 61 6d 65 2c 20 73 65 me, rootname, se
1de0: 70 61 72 61 74 6f 72 2c 20 73 69 7a 65 2c 20 73 parator, size, s
1df0: 70 6c 69 74 2c 20 73 74 61 74 2c 20 73 79 73 74 plit, stat, syst
1e00: 65 6d 2c 20 74 61 69 6c 2c 20 74 79 70 65 2c 20 em, tail, type,
1e10: 76 6f 6c 75 6d 65 73 2c 20 6f 72 20 77 72 69 74 volumes, or writ
1e20: 61 62 6c 65 7d 7d 0a 20 20 74 65 73 74 20 63 6d able}}. test cm
1e30: 64 41 48 2d 33 30 2e 35 20 7b 54 63 6c 5f 46 69 dAH-30.5 {Tcl_Fi
1e40: 6c 65 4f 62 6a 43 6d 64 3a 20 65 72 72 6f 72 20 leObjCmd: error
1e50: 63 6f 6e 64 69 74 69 6f 6e 73 7d 20 7b 0a 20 20 conditions} {.
1e60: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 list [catch
1e70: 7b 66 69 6c 65 20 72 65 61 64 20 78 7d 20 6d 73 {file read x} ms
1e80: 67 5d 20 24 6d 73 67 0a 21 20 7d 20 7b 31 20 7b g] $msg.! } {1 {
1e90: 61 6d 62 69 67 75 6f 75 73 20 6f 70 74 69 6f 6e ambiguous option
1ea0: 20 22 72 65 61 64 22 3a 20 6d 75 73 74 20 62 65 "read": must be
1eb0: 20 61 74 69 6d 65 2c 20 61 74 74 72 69 62 75 74 atime, attribut
1ec0: 65 73 2c 20 63 68 61 6e 6e 65 6c 73 2c 20 63 6f es, channels, co
1ed0: 70 79 2c 20 64 65 6c 65 74 65 2c 20 64 69 72 6e py, delete, dirn
1ee0: 61 6d 65 2c 20 65 78 65 63 75 74 61 62 6c 65 2c ame, executable,
1ef0: 20 65 78 69 73 74 73 2c 20 65 78 74 65 6e 73 69 exists, extensi
1f00: 6f 6e 2c 20 69 73 64 69 72 65 63 74 6f 72 79 2c on, isdirectory,
1f10: 20 69 73 66 69 6c 65 2c 20 6a 6f 69 6e 2c 20 6c isfile, join, l
1f20: 69 6e 6b 2c 20 6c 73 74 61 74 2c 20 6d 74 69 6d ink, lstat, mtim
1f30: 65 2c 20 6d 6b 64 69 72 2c 20 6e 61 74 69 76 65 e, mkdir, native
1f40: 6e 61 6d 65 2c 20 6e 6f 72 6d 61 6c 69 7a 65 2c name, normalize,
1f50: 20 6f 77 6e 65 64 2c 20 70 61 74 68 74 79 70 65 owned, pathtype
1f60: 2c 20 72 65 61 64 61 62 6c 65 2c 20 72 65 61 64 , readable, read
1f70: 6c 69 6e 6b 2c 20 72 65 6e 61 6d 65 2c 20 72 6f link, rename, ro
1f80: 6f 74 6e 61 6d 65 2c 20 73 65 70 61 72 61 74 6f otname, separato
1f90: 72 2c 20 73 69 7a 65 2c 20 73 70 6c 69 74 2c 20 r, size, split,
1fa0: 73 74 61 74 2c 20 73 79 73 74 65 6d 2c 20 74 61 stat, system, ta
1fb0: 69 6c 2c 20 74 79 70 65 2c 20 76 6f 6c 75 6d 65 il, type, volume
1fc0: 73 2c 20 6f 72 20 77 72 69 74 61 62 6c 65 7d 7d s, or writable}}
1fd0: 0a 20 20 74 65 73 74 20 63 6d 64 41 48 2d 33 30 . test cmdAH-30
1fe0: 2e 36 20 7b 54 63 6c 5f 46 69 6c 65 4f 62 6a 43 .6 {Tcl_FileObjC
1ff0: 6d 64 3a 20 65 72 72 6f 72 20 63 6f 6e 64 69 74 md: error condit
2000: 69 6f 6e 73 7d 20 7b 0a 20 20 20 20 20 20 6c 69 ions} {. li
2010: 73 74 20 5b 63 61 74 63 68 20 7b 66 69 6c 65 20 st [catch {file
2020: 73 20 78 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 21 s x} msg] $msg.!
2030: 20 7d 20 7b 31 20 7b 61 6d 62 69 67 75 6f 75 73 } {1 {ambiguous
2040: 20 6f 70 74 69 6f 6e 20 22 73 22 3a 20 6d 75 73 option "s": mus
2050: 74 20 62 65 20 61 74 69 6d 65 2c 20 61 74 74 72 t be atime, attr
2060: 69 62 75 74 65 73 2c 20 63 68 61 6e 6e 65 6c 73 ibutes, channels
2070: 2c 20 63 6f 70 79 2c 20 64 65 6c 65 74 65 2c 20 , copy, delete,
2080: 64 69 72 6e 61 6d 65 2c 20 65 78 65 63 75 74 61 dirname, executa
2090: 62 6c 65 2c 20 65 78 69 73 74 73 2c 20 65 78 74 ble, exists, ext
20a0: 65 6e 73 69 6f 6e 2c 20 69 73 64 69 72 65 63 74 ension, isdirect
20b0: 6f 72 79 2c 20 69 73 66 69 6c 65 2c 20 6a 6f 69 ory, isfile, joi
20c0: 6e 2c 20 6c 69 6e 6b 2c 20 6c 73 74 61 74 2c 20 n, link, lstat,
20d0: 6d 74 69 6d 65 2c 20 6d 6b 64 69 72 2c 20 6e 61 mtime, mkdir, na
20e0: 74 69 76 65 6e 61 6d 65 2c 20 6e 6f 72 6d 61 6c tivename, normal
20f0: 69 7a 65 2c 20 6f 77 6e 65 64 2c 20 70 61 74 68 ize, owned, path
2100: 74 79 70 65 2c 20 72 65 61 64 61 62 6c 65 2c 20 type, readable,
2110: 72 65 61 64 6c 69 6e 6b 2c 20 72 65 6e 61 6d 65 readlink, rename
2120: 2c 20 72 6f 6f 74 6e 61 6d 65 2c 20 73 65 70 61 , rootname, sepa
2130: 72 61 74 6f 72 2c 20 73 69 7a 65 2c 20 73 70 6c rator, size, spl
2140: 69 74 2c 20 73 74 61 74 2c 20 73 79 73 74 65 6d it, stat, system
2150: 2c 20 74 61 69 6c 2c 20 74 79 70 65 2c 20 76 6f , tail, type, vo
2160: 6c 75 6d 65 73 2c 20 6f 72 20 77 72 69 74 61 62 lumes, or writab
2170: 6c 65 7d 7d 0a 20 20 74 65 73 74 20 63 6d 64 41 le}}. test cmdA
2180: 48 2d 33 30 2e 37 20 7b 54 63 6c 5f 46 69 6c 65 H-30.7 {Tcl_File
2190: 4f 62 6a 43 6d 64 3a 20 65 72 72 6f 72 20 63 6f ObjCmd: error co
21a0: 6e 64 69 74 69 6f 6e 73 7d 20 7b 0a 20 20 20 20 nditions} {.
21b0: 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 66 list [catch {f
21c0: 69 6c 65 20 74 20 78 7d 20 6d 73 67 5d 20 24 6d ile t x} msg] $m
21d0: 73 67 0a 21 20 7d 20 7b 31 20 7b 61 6d 62 69 67 sg.! } {1 {ambig
21e0: 75 6f 75 73 20 6f 70 74 69 6f 6e 20 22 74 22 3a uous option "t":
21f0: 20 6d 75 73 74 20 62 65 20 61 74 69 6d 65 2c 20 must be atime,
2200: 61 74 74 72 69 62 75 74 65 73 2c 20 63 68 61 6e attributes, chan
2210: 6e 65 6c 73 2c 20 63 6f 70 79 2c 20 64 65 6c 65 nels, copy, dele
2220: 74 65 2c 20 64 69 72 6e 61 6d 65 2c 20 65 78 65 te, dirname, exe
2230: 63 75 74 61 62 6c 65 2c 20 65 78 69 73 74 73 2c cutable, exists,
2240: 20 65 78 74 65 6e 73 69 6f 6e 2c 20 69 73 64 69 extension, isdi
2250: 72 65 63 74 6f 72 79 2c 20 69 73 66 69 6c 65 2c rectory, isfile,
2260: 20 6a 6f 69 6e 2c 20 6c 69 6e 6b 2c 20 6c 73 74 join, link, lst
2270: 61 74 2c 20 6d 74 69 6d 65 2c 20 6d 6b 64 69 72 at, mtime, mkdir
2280: 2c 20 6e 61 74 69 76 65 6e 61 6d 65 2c 20 6e 6f , nativename, no
2290: 72 6d 61 6c 69 7a 65 2c 20 6f 77 6e 65 64 2c 20 rmalize, owned,
22a0: 70 61 74 68 74 79 70 65 2c 20 72 65 61 64 61 62 pathtype, readab
22b0: 6c 65 2c 20 72 65 61 64 6c 69 6e 6b 2c 20 72 65 le, readlink, re
22c0: 6e 61 6d 65 2c 20 72 6f 6f 74 6e 61 6d 65 2c 20 name, rootname,
22d0: 73 65 70 61 72 61 74 6f 72 2c 20 73 69 7a 65 2c separator, size,
22e0: 20 73 70 6c 69 74 2c 20 73 74 61 74 2c 20 73 79 split, stat, sy
22f0: 73 74 65 6d 2c 20 74 61 69 6c 2c 20 74 79 70 65 stem, tail, type
2300: 2c 20 76 6f 6c 75 6d 65 73 2c 20 6f 72 20 77 72 , volumes, or wr
2310: 69 74 61 62 6c 65 7d 7d 0a 20 20 74 65 73 74 20 itable}}. test
2320: 63 6d 64 41 48 2d 33 30 2e 38 20 7b 54 63 6c 5f cmdAH-30.8 {Tcl_
2330: 46 69 6c 65 4f 62 6a 43 6d 64 3a 20 65 72 72 6f FileObjCmd: erro
2340: 72 20 63 6f 6e 64 69 74 69 6f 6e 73 7d 20 7b 0a r conditions} {.
2350: 20 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 list [catc
2360: 68 20 7b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 h {file dirname
2370: 7e 77 6f 6f 68 67 79 7d 20 6d 73 67 5d 20 24 6d ~woohgy} msg] $m
2380: 73 67 0a 20 20 7d 20 7b 31 20 7b 75 73 65 72 20 sg. } {1 {user
2390: 22 77 6f 6f 68 67 79 22 20 64 6f 65 73 6e 27 74 "woohgy" doesn't
23a0: 20 65 78 69 73 74 7d 7d 0a 2d 2d 2d 20 31 34 31 exist}}.--- 141
23b0: 32 2c 31 34 33 36 20 2d 2d 2d 2d 0a 20 20 0a 20 2,1436 ----. .
23c0: 20 74 65 73 74 20 63 6d 64 41 48 2d 33 30 2e 31 test cmdAH-30.1
23d0: 20 7b 54 63 6c 5f 46 69 6c 65 4f 62 6a 43 6d 64 {Tcl_FileObjCmd
23e0: 3a 20 65 72 72 6f 72 20 63 6f 6e 64 69 74 69 6f : error conditio
23f0: 6e 73 7d 20 7b 0a 20 20 20 20 20 20 6c 69 73 74 ns} {. list
2400: 20 5b 63 61 74 63 68 20 7b 66 69 6c 65 20 67 6f [catch {file go
2410: 72 70 20 78 7d 20 6d 73 67 5d 20 24 6d 73 67 0a rp x} msg] $msg.
2420: 21 20 7d 20 7b 31 20 7b 62 61 64 20 6f 70 74 69 ! } {1 {bad opti
2430: 6f 6e 20 22 67 6f 72 70 22 3a 20 6d 75 73 74 20 on "gorp": must
2440: 62 65 20 61 74 69 6d 65 2c 20 61 74 74 72 69 62 be atime, attrib
2450: 75 74 65 73 2c 20 63 68 61 6e 6e 65 6c 73 2c 20 utes, channels,
2460: 63 6f 70 79 2c 20 64 65 6c 65 74 65 2c 20 64 69 copy, delete, di
2470: 72 6e 61 6d 65 2c 20 65 78 65 63 75 74 61 62 6c rname, executabl
2480: 65 2c 20 65 78 69 73 74 73 2c 20 65 78 74 65 6e e, exists, exten
2490: 73 69 6f 6e 2c 20 69 73 64 69 72 65 63 74 6f 72 sion, isdirector
24a0: 79 2c 20 69 73 66 69 6c 65 2c 20 6a 6f 69 6e 2c y, isfile, join,
24b0: 20 6c 69 6e 6b 2c 20 6c 73 74 61 74 2c 20 6d 74 link, lstat, mt
24c0: 69 6d 65 2c 20 6d 6b 64 69 72 2c 20 6e 61 74 69 ime, mkdir, nati
24d0: 76 65 6e 61 6d 65 2c 20 6e 6f 72 6d 61 6c 69 7a vename, normaliz
24e0: 65 2c 20 6f 77 6e 65 64 2c 20 70 61 74 68 74 79 e, owned, pathty
24f0: 70 65 2c 20 72 65 61 64 61 62 6c 65 2c 20 72 65 pe, readable, re
2500: 61 64 6c 69 6e 6b 2c 20 72 65 6e 61 6d 65 2c 20 adlink, rename,
2510: 72 6f 6f 74 6e 61 6d 65 2c 20 73 65 70 61 72 61 rootname, separa
2520: 74 6f 72 2c 20 73 69 7a 65 2c 20 73 70 6c 69 74 tor, size, split
2530: 2c 20 73 74 61 74 2c 20 73 79 73 74 65 6d 2c 20 , stat, system,
2540: 74 61 69 6c 2c 20 74 65 6d 70 6e 61 6d 65 2c 20 tail, tempname,
2550: 74 79 70 65 2c 20 76 6f 6c 75 6d 65 73 2c 20 6f type, volumes, o
2560: 72 20 77 72 69 74 61 62 6c 65 7d 7d 0a 20 20 74 r writable}}. t
2570: 65 73 74 20 63 6d 64 41 48 2d 33 30 2e 32 20 7b est cmdAH-30.2 {
2580: 54 63 6c 5f 46 69 6c 65 4f 62 6a 43 6d 64 3a 20 Tcl_FileObjCmd:
2590: 65 72 72 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 73 error conditions
25a0: 7d 20 7b 0a 20 20 20 20 20 20 6c 69 73 74 20 5b } {. list [
25b0: 63 61 74 63 68 20 7b 66 69 6c 65 20 65 78 20 78 catch {file ex x
25c0: 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 21 20 7d 20 } msg] $msg.! }
25d0: 7b 31 20 7b 61 6d 62 69 67 75 6f 75 73 20 6f 70 {1 {ambiguous op
25e0: 74 69 6f 6e 20 22 65 78 22 3a 20 6d 75 73 74 20 tion "ex": must
25f0: 62 65 20 61 74 69 6d 65 2c 20 61 74 74 72 69 62 be atime, attrib
2600: 75 74 65 73 2c 20 63 68 61 6e 6e 65 6c 73 2c 20 utes, channels,
2610: 63 6f 70 79 2c 20 64 65 6c 65 74 65 2c 20 64 69 copy, delete, di
2620: 72 6e 61 6d 65 2c 20 65 78 65 63 75 74 61 62 6c rname, executabl
2630: 65 2c 20 65 78 69 73 74 73 2c 20 65 78 74 65 6e e, exists, exten
2640: 73 69 6f 6e 2c 20 69 73 64 69 72 65 63 74 6f 72 sion, isdirector
2650: 79 2c 20 69 73 66 69 6c 65 2c 20 6a 6f 69 6e 2c y, isfile, join,
2660: 20 6c 69 6e 6b 2c 20 6c 73 74 61 74 2c 20 6d 74 link, lstat, mt
2670: 69 6d 65 2c 20 6d 6b 64 69 72 2c 20 6e 61 74 69 ime, mkdir, nati
2680: 76 65 6e 61 6d 65 2c 20 6e 6f 72 6d 61 6c 69 7a vename, normaliz
2690: 65 2c 20 6f 77 6e 65 64 2c 20 70 61 74 68 74 79 e, owned, pathty
26a0: 70 65 2c 20 72 65 61 64 61 62 6c 65 2c 20 72 65 pe, readable, re
26b0: 61 64 6c 69 6e 6b 2c 20 72 65 6e 61 6d 65 2c 20 adlink, rename,
26c0: 72 6f 6f 74 6e 61 6d 65 2c 20 73 65 70 61 72 61 rootname, separa
26d0: 74 6f 72 2c 20 73 69 7a 65 2c 20 73 70 6c 69 74 tor, size, split
26e0: 2c 20 73 74 61 74 2c 20 73 79 73 74 65 6d 2c 20 , stat, system,
26f0: 74 61 69 6c 2c 20 74 65 6d 70 6e 61 6d 65 2c 20 tail, tempname,
2700: 74 79 70 65 2c 20 76 6f 6c 75 6d 65 73 2c 20 6f type, volumes, o
2710: 72 20 77 72 69 74 61 62 6c 65 7d 7d 0a 20 20 74 r writable}}. t
2720: 65 73 74 20 63 6d 64 41 48 2d 33 30 2e 33 20 7b est cmdAH-30.3 {
2730: 54 63 6c 5f 46 69 6c 65 4f 62 6a 43 6d 64 3a 20 Tcl_FileObjCmd:
2740: 65 72 72 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 73 error conditions
2750: 7d 20 7b 0a 20 20 20 20 20 20 6c 69 73 74 20 5b } {. list [
2760: 63 61 74 63 68 20 7b 66 69 6c 65 20 69 73 20 78 catch {file is x
2770: 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 21 20 7d 20 } msg] $msg.! }
2780: 7b 31 20 7b 61 6d 62 69 67 75 6f 75 73 20 6f 70 {1 {ambiguous op
2790: 74 69 6f 6e 20 22 69 73 22 3a 20 6d 75 73 74 20 tion "is": must
27a0: 62 65 20 61 74 69 6d 65 2c 20 61 74 74 72 69 62 be atime, attrib
27b0: 75 74 65 73 2c 20 63 68 61 6e 6e 65 6c 73 2c 20 utes, channels,
27c0: 63 6f 70 79 2c 20 64 65 6c 65 74 65 2c 20 64 69 copy, delete, di
27d0: 72 6e 61 6d 65 2c 20 65 78 65 63 75 74 61 62 6c rname, executabl
27e0: 65 2c 20 65 78 69 73 74 73 2c 20 65 78 74 65 6e e, exists, exten
27f0: 73 69 6f 6e 2c 20 69 73 64 69 72 65 63 74 6f 72 sion, isdirector
2800: 79 2c 20 69 73 66 69 6c 65 2c 20 6a 6f 69 6e 2c y, isfile, join,
2810: 20 6c 69 6e 6b 2c 20 6c 73 74 61 74 2c 20 6d 74 link, lstat, mt
2820: 69 6d 65 2c 20 6d 6b 64 69 72 2c 20 6e 61 74 69 ime, mkdir, nati
2830: 76 65 6e 61 6d 65 2c 20 6e 6f 72 6d 61 6c 69 7a vename, normaliz
2840: 65 2c 20 6f 77 6e 65 64 2c 20 70 61 74 68 74 79 e, owned, pathty
2850: 70 65 2c 20 72 65 61 64 61 62 6c 65 2c 20 72 65 pe, readable, re
2860: 61 64 6c 69 6e 6b 2c 20 72 65 6e 61 6d 65 2c 20 adlink, rename,
2870: 72 6f 6f 74 6e 61 6d 65 2c 20 73 65 70 61 72 61 rootname, separa
2880: 74 6f 72 2c 20 73 69 7a 65 2c 20 73 70 6c 69 74 tor, size, split
2890: 2c 20 73 74 61 74 2c 20 73 79 73 74 65 6d 2c 20 , stat, system,
28a0: 74 61 69 6c 2c 20 74 65 6d 70 6e 61 6d 65 2c 20 tail, tempname,
28b0: 74 79 70 65 2c 20 76 6f 6c 75 6d 65 73 2c 20 6f type, volumes, o
28c0: 72 20 77 72 69 74 61 62 6c 65 7d 7d 0a 20 20 74 r writable}}. t
28d0: 65 73 74 20 63 6d 64 41 48 2d 33 30 2e 34 20 7b est cmdAH-30.4 {
28e0: 54 63 6c 5f 46 69 6c 65 4f 62 6a 43 6d 64 3a 20 Tcl_FileObjCmd:
28f0: 65 72 72 6f 72 20 63 6f 6e 64 69 74 69 6f 6e 73 error conditions
2900: 7d 20 7b 0a 20 20 20 20 20 20 6c 69 73 74 20 5b } {. list [
2910: 63 61 74 63 68 20 7b 66 69 6c 65 20 7a 20 78 7d catch {file z x}
2920: 20 6d 73 67 5d 20 24 6d 73 67 0a 21 20 7d 20 7b msg] $msg.! } {
2930: 31 20 7b 62 61 64 20 6f 70 74 69 6f 6e 20 22 7a 1 {bad option "z
2940: 22 3a 20 6d 75 73 74 20 62 65 20 61 74 69 6d 65 ": must be atime
2950: 2c 20 61 74 74 72 69 62 75 74 65 73 2c 20 63 68 , attributes, ch
2960: 61 6e 6e 65 6c 73 2c 20 63 6f 70 79 2c 20 64 65 annels, copy, de
2970: 6c 65 74 65 2c 20 64 69 72 6e 61 6d 65 2c 20 65 lete, dirname, e
2980: 78 65 63 75 74 61 62 6c 65 2c 20 65 78 69 73 74 xecutable, exist
2990: 73 2c 20 65 78 74 65 6e 73 69 6f 6e 2c 20 69 73 s, extension, is
29a0: 64 69 72 65 63 74 6f 72 79 2c 20 69 73 66 69 6c directory, isfil
29b0: 65 2c 20 6a 6f 69 6e 2c 20 6c 69 6e 6b 2c 20 6c e, join, link, l
29c0: 73 74 61 74 2c 20 6d 74 69 6d 65 2c 20 6d 6b 64 stat, mtime, mkd
29d0: 69 72 2c 20 6e 61 74 69 76 65 6e 61 6d 65 2c 20 ir, nativename,
29e0: 6e 6f 72 6d 61 6c 69 7a 65 2c 20 6f 77 6e 65 64 normalize, owned
29f0: 2c 20 70 61 74 68 74 79 70 65 2c 20 72 65 61 64 , pathtype, read
2a00: 61 62 6c 65 2c 20 72 65 61 64 6c 69 6e 6b 2c 20 able, readlink,
2a10: 72 65 6e 61 6d 65 2c 20 72 6f 6f 74 6e 61 6d 65 rename, rootname
2a20: 2c 20 73 65 70 61 72 61 74 6f 72 2c 20 73 69 7a , separator, siz
2a30: 65 2c 20 73 70 6c 69 74 2c 20 73 74 61 74 2c 20 e, split, stat,
2a40: 73 79 73 74 65 6d 2c 20 74 61 69 6c 2c 20 74 65 system, tail, te
2a50: 6d 70 6e 61 6d 65 2c 20 74 79 70 65 2c 20 76 6f mpname, type, vo
2a60: 6c 75 6d 65 73 2c 20 6f 72 20 77 72 69 74 61 62 lumes, or writab
2a70: 6c 65 7d 7d 0a 20 20 74 65 73 74 20 63 6d 64 41 le}}. test cmdA
2a80: 48 2d 33 30 2e 35 20 7b 54 63 6c 5f 46 69 6c 65 H-30.5 {Tcl_File
2a90: 4f 62 6a 43 6d 64 3a 20 65 72 72 6f 72 20 63 6f ObjCmd: error co
2aa0: 6e 64 69 74 69 6f 6e 73 7d 20 7b 0a 20 20 20 20 nditions} {.
2ab0: 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 66 list [catch {f
2ac0: 69 6c 65 20 72 65 61 64 20 78 7d 20 6d 73 67 5d ile read x} msg]
2ad0: 20 24 6d 73 67 0a 21 20 7d 20 7b 31 20 7b 61 6d $msg.! } {1 {am
2ae0: 62 69 67 75 6f 75 73 20 6f 70 74 69 6f 6e 20 22 biguous option "
2af0: 72 65 61 64 22 3a 20 6d 75 73 74 20 62 65 20 61 read": must be a
2b00: 74 69 6d 65 2c 20 61 74 74 72 69 62 75 74 65 73 time, attributes
2b10: 2c 20 63 68 61 6e 6e 65 6c 73 2c 20 63 6f 70 79 , channels, copy
2b20: 2c 20 64 65 6c 65 74 65 2c 20 64 69 72 6e 61 6d , delete, dirnam
2b30: 65 2c 20 65 78 65 63 75 74 61 62 6c 65 2c 20 65 e, executable, e
2b40: 78 69 73 74 73 2c 20 65 78 74 65 6e 73 69 6f 6e xists, extension
2b50: 2c 20 69 73 64 69 72 65 63 74 6f 72 79 2c 20 69 , isdirectory, i
2b60: 73 66 69 6c 65 2c 20 6a 6f 69 6e 2c 20 6c 69 6e sfile, join, lin
2b70: 6b 2c 20 6c 73 74 61 74 2c 20 6d 74 69 6d 65 2c k, lstat, mtime,
2b80: 20 6d 6b 64 69 72 2c 20 6e 61 74 69 76 65 6e 61 mkdir, nativena
2b90: 6d 65 2c 20 6e 6f 72 6d 61 6c 69 7a 65 2c 20 6f me, normalize, o
2ba0: 77 6e 65 64 2c 20 70 61 74 68 74 79 70 65 2c 20 wned, pathtype,
2bb0: 72 65 61 64 61 62 6c 65 2c 20 72 65 61 64 6c 69 readable, readli
2bc0: 6e 6b 2c 20 72 65 6e 61 6d 65 2c 20 72 6f 6f 74 nk, rename, root
2bd0: 6e 61 6d 65 2c 20 73 65 70 61 72 61 74 6f 72 2c name, separator,
2be0: 20 73 69 7a 65 2c 20 73 70 6c 69 74 2c 20 73 74 size, split, st
2bf0: 61 74 2c 20 73 79 73 74 65 6d 2c 20 74 61 69 6c at, system, tail
2c00: 2c 20 74 65 6d 70 6e 61 6d 65 2c 20 74 79 70 65 , tempname, type
2c10: 2c 20 76 6f 6c 75 6d 65 73 2c 20 6f 72 20 77 72 , volumes, or wr
2c20: 69 74 61 62 6c 65 7d 7d 0a 20 20 74 65 73 74 20 itable}}. test
2c30: 63 6d 64 41 48 2d 33 30 2e 36 20 7b 54 63 6c 5f cmdAH-30.6 {Tcl_
2c40: 46 69 6c 65 4f 62 6a 43 6d 64 3a 20 65 72 72 6f FileObjCmd: erro
2c50: 72 20 63 6f 6e 64 69 74 69 6f 6e 73 7d 20 7b 0a r conditions} {.
2c60: 20 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 list [catc
2c70: 68 20 7b 66 69 6c 65 20 73 20 78 7d 20 6d 73 67 h {file s x} msg
2c80: 5d 20 24 6d 73 67 0a 21 20 7d 20 7b 31 20 7b 61 ] $msg.! } {1 {a
2c90: 6d 62 69 67 75 6f 75 73 20 6f 70 74 69 6f 6e 20 mbiguous option
2ca0: 22 73 22 3a 20 6d 75 73 74 20 62 65 20 61 74 69 "s": must be ati
2cb0: 6d 65 2c 20 61 74 74 72 69 62 75 74 65 73 2c 20 me, attributes,
2cc0: 63 68 61 6e 6e 65 6c 73 2c 20 63 6f 70 79 2c 20 channels, copy,
2cd0: 64 65 6c 65 74 65 2c 20 64 69 72 6e 61 6d 65 2c delete, dirname,
2ce0: 20 65 78 65 63 75 74 61 62 6c 65 2c 20 65 78 69 executable, exi
2cf0: 73 74 73 2c 20 65 78 74 65 6e 73 69 6f 6e 2c 20 sts, extension,
2d00: 69 73 64 69 72 65 63 74 6f 72 79 2c 20 69 73 66 isdirectory, isf
2d10: 69 6c 65 2c 20 6a 6f 69 6e 2c 20 6c 69 6e 6b 2c ile, join, link,
2d20: 20 6c 73 74 61 74 2c 20 6d 74 69 6d 65 2c 20 6d lstat, mtime, m
2d30: 6b 64 69 72 2c 20 6e 61 74 69 76 65 6e 61 6d 65 kdir, nativename
2d40: 2c 20 6e 6f 72 6d 61 6c 69 7a 65 2c 20 6f 77 6e , normalize, own
2d50: 65 64 2c 20 70 61 74 68 74 79 70 65 2c 20 72 65 ed, pathtype, re
2d60: 61 64 61 62 6c 65 2c 20 72 65 61 64 6c 69 6e 6b adable, readlink
2d70: 2c 20 72 65 6e 61 6d 65 2c 20 72 6f 6f 74 6e 61 , rename, rootna
2d80: 6d 65 2c 20 73 65 70 61 72 61 74 6f 72 2c 20 73 me, separator, s
2d90: 69 7a 65 2c 20 73 70 6c 69 74 2c 20 73 74 61 74 ize, split, stat
2da0: 2c 20 73 79 73 74 65 6d 2c 20 74 61 69 6c 2c 20 , system, tail,
2db0: 74 65 6d 70 6e 61 6d 65 2c 20 74 79 70 65 2c 20 tempname, type,
2dc0: 76 6f 6c 75 6d 65 73 2c 20 6f 72 20 77 72 69 74 volumes, or writ
2dd0: 61 62 6c 65 7d 7d 0a 20 20 74 65 73 74 20 63 6d able}}. test cm
2de0: 64 41 48 2d 33 30 2e 37 20 7b 54 63 6c 5f 46 69 dAH-30.7 {Tcl_Fi
2df0: 6c 65 4f 62 6a 43 6d 64 3a 20 65 72 72 6f 72 20 leObjCmd: error
2e00: 63 6f 6e 64 69 74 69 6f 6e 73 7d 20 7b 0a 20 20 conditions} {.
2e10: 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 list [catch
2e20: 7b 66 69 6c 65 20 74 20 78 7d 20 6d 73 67 5d 20 {file t x} msg]
2e30: 24 6d 73 67 0a 21 20 7d 20 7b 31 20 7b 61 6d 62 $msg.! } {1 {amb
2e40: 69 67 75 6f 75 73 20 6f 70 74 69 6f 6e 20 22 74 iguous option "t
2e50: 22 3a 20 6d 75 73 74 20 62 65 20 61 74 69 6d 65 ": must be atime
2e60: 2c 20 61 74 74 72 69 62 75 74 65 73 2c 20 63 68 , attributes, ch
2e70: 61 6e 6e 65 6c 73 2c 20 63 6f 70 79 2c 20 64 65 annels, copy, de
2e80: 6c 65 74 65 2c 20 64 69 72 6e 61 6d 65 2c 20 65 lete, dirname, e
2e90: 78 65 63 75 74 61 62 6c 65 2c 20 65 78 69 73 74 xecutable, exist
2ea0: 73 2c 20 65 78 74 65 6e 73 69 6f 6e 2c 20 69 73 s, extension, is
2eb0: 64 69 72 65 63 74 6f 72 79 2c 20 69 73 66 69 6c directory, isfil
2ec0: 65 2c 20 6a 6f 69 6e 2c 20 6c 69 6e 6b 2c 20 6c e, join, link, l
2ed0: 73 74 61 74 2c 20 6d 74 69 6d 65 2c 20 6d 6b 64 stat, mtime, mkd
2ee0: 69 72 2c 20 6e 61 74 69 76 65 6e 61 6d 65 2c 20 ir, nativename,
2ef0: 6e 6f 72 6d 61 6c 69 7a 65 2c 20 6f 77 6e 65 64 normalize, owned
2f00: 2c 20 70 61 74 68 74 79 70 65 2c 20 72 65 61 64 , pathtype, read
2f10: 61 62 6c 65 2c 20 72 65 61 64 6c 69 6e 6b 2c 20 able, readlink,
2f20: 72 65 6e 61 6d 65 2c 20 72 6f 6f 74 6e 61 6d 65 rename, rootname
2f30: 2c 20 73 65 70 61 72 61 74 6f 72 2c 20 73 69 7a , separator, siz
2f40: 65 2c 20 73 70 6c 69 74 2c 20 73 74 61 74 2c 20 e, split, stat,
2f50: 73 79 73 74 65 6d 2c 20 74 61 69 6c 2c 20 74 65 system, tail, te
2f60: 6d 70 6e 61 6d 65 2c 20 74 79 70 65 2c 20 76 6f mpname, type, vo
2f70: 6c 75 6d 65 73 2c 20 6f 72 20 77 72 69 74 61 62 lumes, or writab
2f80: 6c 65 7d 7d 0a 20 20 74 65 73 74 20 63 6d 64 41 le}}. test cmdA
2f90: 48 2d 33 30 2e 38 20 7b 54 63 6c 5f 46 69 6c 65 H-30.8 {Tcl_File
2fa0: 4f 62 6a 43 6d 64 3a 20 65 72 72 6f 72 20 63 6f ObjCmd: error co
2fb0: 6e 64 69 74 69 6f 6e 73 7d 20 7b 0a 20 20 20 20 nditions} {.
2fc0: 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 66 list [catch {f
2fd0: 69 6c 65 20 64 69 72 6e 61 6d 65 20 7e 77 6f 6f ile dirname ~woo
2fe0: 68 67 79 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 20 hgy} msg] $msg.
2ff0: 20 7d 20 7b 31 20 7b 75 73 65 72 20 22 77 6f 6f } {1 {user "woo
3000: 68 67 79 22 20 64 6f 65 73 6e 27 74 20 65 78 69 hgy" doesn't exi
3010: 73 74 7d 7d 0a 49 6e 64 65 78 3a 20 74 65 73 74 st}}.Index: test
3020: 73 2f 66 43 6d 64 2e 74 65 73 74 0a 3d 3d 3d 3d s/fCmd.test.====
3030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3050: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3060: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
3070: 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f RCS file: /cvsro
3080: 6f 74 2f 74 63 6c 2f 74 63 6c 2f 74 65 73 74 73 ot/tcl/tcl/tests
3090: 2f 66 43 6d 64 2e 74 65 73 74 2c 76 0a 72 65 74 /fCmd.test,v.ret
30a0: 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e rieving revision
30b0: 20 31 2e 34 31 0a 64 69 66 66 20 2d 63 20 2d 72 1.41.diff -c -r
30c0: 31 2e 34 31 20 66 43 6d 64 2e 74 65 73 74 0a 2a 1.41 fCmd.test.*
30d0: 2a 2a 20 74 65 73 74 73 2f 66 43 6d 64 2e 74 65 ** tests/fCmd.te
30e0: 73 74 09 32 33 20 4a 75 6e 20 32 30 30 34 20 31 st.23 Jun 2004 1
30f0: 35 3a 33 36 3a 35 36 20 2d 30 30 30 30 09 31 2e 5:36:56 -0000.1.
3100: 34 31 0a 2d 2d 2d 20 74 65 73 74 73 2f 66 43 6d 41.--- tests/fCm
3110: 64 2e 74 65 73 74 09 32 38 20 4a 75 6c 20 32 30 d.test.28 Jul 20
3120: 30 34 20 30 35 3a 30 34 3a 30 31 20 2d 30 30 30 04 05:04:01 -000
3130: 30 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0.**************
3140: 2a 0a 2a 2a 2a 20 32 34 32 39 2c 32 34 33 34 20 *.*** 2429,2434
3150: 2a 2a 2a 2a 0a 2d 2d 2d 20 32 34 32 39 2c 32 34 ****.--- 2429,24
3160: 35 31 20 2d 2d 2d 2d 0a 20 20 20 20 20 20 63 61 51 ----. ca
3170: 74 63 68 20 7b 73 65 74 20 72 65 73 20 5b 6f 70 tch {set res [op
3180: 65 6e 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 7e 61 en [file join ~a
3190: 5f 74 6f 74 61 6c 6c 79 5f 62 6f 67 75 73 5f 75 _totally_bogus_u
31a0: 73 65 72 5f 69 64 2f 66 6f 6f 20 62 61 72 5d 5d ser_id/foo bar]]
31b0: 7d 0a 20 20 7d 20 31 0a 20 20 0a 2b 20 74 65 73 }. } 1. .+ tes
31c0: 74 20 66 43 6d 64 2d 33 30 2e 31 20 7b 54 63 6c t fCmd-30.1 {Tcl
31d0: 46 69 6c 65 54 65 6d 70 66 69 6c 65 43 6d 64 3a FileTempfileCmd:
31e0: 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 65 78 69 returns non-exi
31f0: 73 74 69 6e 67 20 66 69 6c 65 6e 61 6d 65 7d 20 sting filename}
3200: 7b 7d 20 7b 0a 2b 20 20 20 20 20 73 65 74 20 66 {} {.+ set f
3210: 6e 61 6d 65 20 5b 66 69 6c 65 20 74 65 6d 70 6e name [file tempn
3220: 61 6d 65 5d 0a 2b 20 20 20 20 20 73 65 74 20 6c ame].+ set l
3230: 65 6e 67 74 68 20 5b 65 78 70 72 20 7b 5b 73 74 ength [expr {[st
3240: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 66 6e 61 ring length $fna
3250: 6d 65 5d 20 3e 20 30 7d 5d 0a 2b 20 20 20 20 20 me] > 0}].+
3260: 73 65 74 20 65 78 69 73 74 73 20 5b 66 69 6c 65 set exists [file
3270: 20 65 78 69 73 74 73 20 24 66 6e 61 6d 65 5d 0a exists $fname].
3280: 2b 20 20 20 20 20 6c 69 73 74 20 24 6c 65 6e 67 + list $leng
3290: 74 68 20 24 65 78 69 73 74 73 0a 2b 20 7d 20 7b th $exists.+ } {
32a0: 31 20 30 7d 0a 2b 20 74 65 73 74 20 66 43 6d 64 1 0}.+ test fCmd
32b0: 2d 33 30 2e 32 20 7b 54 63 6c 46 69 6c 65 54 65 -30.2 {TclFileTe
32c0: 6d 70 66 69 6c 65 43 6d 64 3a 20 74 6f 6f 20 6d mpfileCmd: too m
32d0: 61 6e 79 20 61 72 67 73 7d 20 7b 7d 20 7b 0a 2b any args} {} {.+
32e0: 20 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 list [catch
32f0: 20 7b 66 69 6c 65 20 74 65 6d 70 6e 61 6d 65 20 {file tempname
3300: 74 66 31 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 2b tf1} msg] $msg.+
3310: 20 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 } {1 {wrong # a
3320: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 rgs: should be "
3330: 66 69 6c 65 20 74 65 6d 70 6e 61 6d 65 22 7d 7d file tempname"}}
3340: 0a 2b 20 74 65 73 74 20 66 43 6d 64 2d 33 30 2e .+ test fCmd-30.
3350: 33 20 7b 54 63 6c 46 69 6c 65 54 65 6d 70 66 69 3 {TclFileTempfi
3360: 6c 65 43 6d 64 3a 20 75 6e 69 71 75 65 20 6e 61 leCmd: unique na
3370: 6d 65 20 6f 6e 20 65 61 63 68 20 63 61 6c 6c 7d me on each call}
3380: 20 7b 7d 20 7b 0a 2b 20 20 20 20 20 73 65 74 20 {} {.+ set
3390: 74 66 31 20 5b 66 69 6c 65 20 74 65 6d 70 6e 61 tf1 [file tempna
33a0: 6d 65 5d 0a 2b 20 20 20 20 20 73 65 74 20 74 66 me].+ set tf
33b0: 32 20 5b 66 69 6c 65 20 74 65 6d 70 6e 61 6d 65 2 [file tempname
33c0: 5d 0a 2b 20 20 20 20 20 65 78 70 72 20 7b 24 74 ].+ expr {$t
33d0: 66 31 20 65 71 20 24 74 66 32 7d 0a 2b 20 7d 20 f1 eq $tf2}.+ }
33e0: 7b 30 7d 0a 2b 20 0a 2b 20 0a 2b 20 0a 20 20 63 {0}.+ .+ .+ . c
33f0: 64 20 5b 74 65 6d 70 6f 72 61 72 79 44 69 72 65 d [temporaryDire
3400: 63 74 6f 72 79 5d 0a 20 20 66 69 6c 65 20 64 65 ctory]. file de
3410: 6c 65 74 65 20 2d 66 6f 72 63 65 20 61 62 63 2e lete -force abc.
3420: 6c 69 6e 6b 0a 20 20 66 69 6c 65 20 64 65 6c 65 link. file dele
3430: 74 65 20 2d 66 6f 72 63 65 20 64 31 2f 64 32 0a te -force d1/d2.
