Tcl Source Code

Artifact bfa8a7ccc58d448430b0235cf8bfbcd91504f1c0:

Attachment "latest.diff" to ticket [602566ffff] added by davidw 2002-10-04 01:25:50.

---

Index: tests/fCmd.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/fCmd.test,v
retrieving revision 1.24
diff -u -r1.24 fCmd.test
--- tests/fCmd.test	16 Aug 2002 13:58:39 -0000	1.24
+++ tests/fCmd.test	3 Oct 2002 18:23:34 -0000
@@ -274,9 +274,9 @@
 test fCmd-4.8 {TclFileMakeDirsCmd: already exist: lstat(target) == 0} {notRoot} {
     cleanup
     file mkdir td1
-    set x [file exist td1]
+    set x [file exists td1]
     file mkdir td1
-    list $x [file exist td1]
+    list $x [file exists td1]
 } {1 1}
 test fCmd-4.9 {TclFileMakeDirsCmd: exists, not dir} {notRoot} {
     cleanup
@@ -286,9 +286,9 @@
 test fCmd-4.10 {TclFileMakeDirsCmd: exists, is dir} {notRoot} {
     cleanup
     file mkdir td1
-    set x [file exist td1]
+    set x [file exists td1]
     file mkdir td1
-    list $x [file exist td1]
+    list $x [file exists td1]
 } {1 1}
 test fCmd-4.11 {TclFileMakeDirsCmd: doesn't exist: errno != ENOENT} \
 	{unixOnly notRoot testchmod} {
@@ -305,9 +305,9 @@
 } {1 {can't create directory "nonexistentvolume:": invalid argument}}
 test fCmd-4.13 {TclFileMakeDirsCmd: doesn't exist: errno == ENOENT} {notRoot} {
     cleanup
-    set x [file exist td1]
+    set x [file exists td1]
     file mkdir td1
-    list $x [file exist td1]
+    list $x [file exists td1]
 } {0 1}
 test fCmd-4.14 {TclFileMakeDirsCmd: TclpCreateDirectory fails} \
 	{unixOnly notRoot} {
@@ -347,9 +347,9 @@
     createfile tf1
     createfile tf2
     file mkdir td1
-    set x [list [file exist tf1] [file exist tf2] [file exist td1]]
+    set x [list [file exists tf1] [file exists tf2] [file exists td1]]
     file delete tf1 td1 tf2
-    lappend x [file exist tf1] [file exist tf2] [file exist tf3]
+    lappend x [file exists tf1] [file exists tf2] [file exists tf3]
 } {1 1 1 0 0 0}
 test fCmd-5.5 {TclFileDeleteCmd: stop at first error} {notRoot unixOrPc} {
     cleanup
@@ -357,7 +357,7 @@
     createfile tf2
     file mkdir td1
     catch {file delete tf1 td1 $root tf2}
-    list [file exist tf1] [file exist tf2] [file exist td1]
+    list [file exists tf1] [file exists tf2] [file exists td1]
 } {0 1 0}
 test fCmd-5.6 {TclFileDeleteCmd: Tcl_TranslateFileName fails} {notRoot} {
     list [catch {file delete ~_totally_bogus_user} msg] $msg
@@ -369,15 +369,15 @@
 } {}
 test fCmd-5.8 {TclFileDeleteCmd: file doesn't exist: lstat(name) != 0} {notRoot} {
     cleanup
-    set x [file exist tf1]
+    set x [file exists tf1]
     file delete tf1
-    list $x [file exist tf1]
+    list $x [file exists tf1]
 } {0 0}    
 test fCmd-5.9 {TclFileDeleteCmd: is directory} {notRoot} {
     cleanup
     file mkdir td1
     file delete td1
-    file exist td1
+    file exists td1
 } {0}
 test fCmd-5.10 {TclFileDeleteCmd: TclpRemoveDirectory fails} {notRoot} {
     cleanup
Index: tests/winFCmd.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/winFCmd.test,v
retrieving revision 1.19
diff -u -r1.19 winFCmd.test
--- tests/winFCmd.test	18 Jul 2002 16:35:12 -0000	1.19
+++ tests/winFCmd.test	3 Oct 2002 18:23:34 -0000
@@ -288,7 +288,7 @@
     createfile tf1
     createfile tf2
     testfile mv tf1 tf2
-    list [file exist tf1] [file exist tf2]
+    list [file exists tf1] [file exists tf2]
 } {0 1}
 test winFCmd-1.29 {TclpRenameFile: src is dir} {pcOnly} {
     cleanup
@@ -313,7 +313,7 @@
     file mkdir td1/td2
     file mkdir td2
     testfile mv td1 td2
-    list [file exist td1] [file exist td2] [file exist td2/td2]
+    list [file exists td1] [file exists td2] [file exists td2/td2]
 } {0 1 1}
 test winFCmd-1.33 {TclpRenameFile: After removing dst dir, MoveFile fails} \
 	{pcOnly exdev} {
@@ -487,7 +487,7 @@
     cleanup
     createfile tf1
     testfile rm tf1
-    file exist tf1
+    file exists tf1
 } {0}
 test winFCmd-3.8 {TclpDeleteFile: DeleteFile fails} {pcOnly} {
     cleanup
@@ -550,7 +550,7 @@
     file mkdir td1
     testchmod 000 td1
     testfile rmdir td1
-    file exist td1
+    file exists td1
 } {0}
 test winFCmd-6.2 {TclpRemoveDirectory: errno: EEXIST} {pcOnly} {
     cleanup
Index: tools/eolFix.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/tools/eolFix.tcl,v
retrieving revision 1.1
diff -u -r1.1 eolFix.tcl
--- tools/eolFix.tcl	20 Nov 2001 10:15:06 -0000	1.1
+++ tools/eolFix.tcl	3 Oct 2002 18:23:34 -0000
@@ -16,7 +16,7 @@
 proc EOL::fix {filename {newfilename ""}} {
     variable outMode
 
-    if {![file exist $filename]} { return }
+    if {![file exists $filename]} { return }
     puts "EOL Fixing: $filename"
 
     file rename ${filename} ${filename}.o
Index: tools/genStubs.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/tools/genStubs.tcl,v
retrieving revision 1.12
diff -u -r1.12 genStubs.tcl
--- tools/genStubs.tcl	31 Aug 2002 06:09:46 -0000	1.12
+++ tools/genStubs.tcl	3 Oct 2002 18:23:34 -0000
@@ -175,7 +175,7 @@
 #	None.
 
 proc genStubs::rewriteFile {file text} {
-    if {![file exist $file]} {
+    if {![file exists $file]} {
 	puts stderr "Cannot find file: $file"
 	return
     }