Changeset 701

Timestamp:

Dec 4, 2009 5:10:34 PM (14 years ago)

Author:

toby

Message:

# on 2003/05/22 21:43:32, toby did:
Workaround for win-XP bug where archive fails because rename does not work

File:

• trunk/gsascmds.tcl (modified) (4 diffs, 3 props)

trunk/gsascmds.tcl

@@ -1219 +1219 @@
     catch {
         set file $expnam.O$num
-        file rename -force $expgui(expfile) $file
+        file copy -force $expgui(expfile) $file
         set fp [open $expnam.LST a+]
         puts $fp "\n----------------------------------------------"
@@ -1348 +1348 @@
     set newfile [tk_getSaveFile -initialfile $suggested -parent $parent]
     if {$newfile == ""} return
-    file rename -force $current $newfile
+    if {[catch {
+        file rename -force $current $newfile
+    }]} {
+        file copy -force $current $newfile
+        file delete -force $current
+    }
     if {$window != ""} {destroy $window}
 }
@@ -1358 +1363 @@
         set root [file root $expgui(expfile)] 
         catch {file delete -force $root.tmp}
-        catch {file rename -force $root.LST $root.OLS}
+        if {[catch {file rename -force $root.LST $root.OLS}]} {
+            file copy -force $root.LST $root.OLS
+            file delete -force $root.OLS
+        }
         # PSW reports this does not happen right away on windows
         set i 0
@@ -1383 +1391 @@
         catch {exec [file join $expgui(gsasexe) disagl] \
                 [file tail $root] < disagl.inp > disagl.out}
-        catch {file rename -force $root.LST $root.tmp}
+        if {[catch {file rename -force $root.LST $root.tmp}]} {
+            file copy -force $root.LST $root.tmp
+            file delete -force $root.LST
+        }
         catch {file delete -force disagl.inp disagl.out}
-        catch {file rename -force $root.OLS $root.LST}
+        if {[catch {file rename -force $root.OLS $root.LST}]} {
+            file copy -force $root.OLS $root.LST
+            file delete -force $root.OLS
+        }
         donewait
         # open a new window