Changeset 468

Timestamp:

Dec 4, 2009 5:06:40 PM (14 years ago)

Author:

toby

Message:

# on 2001/10/18 23:27:12, toby did:
remove unix support for compressed files

File:

• trunk/readexp.tcl (modified) (1 diff, 3 props)

trunk/readexp.tcl

@@ -13 +13 @@
     # $expfile is the path to the data file. 
 
-    # is this a compressed file?
-    if {[string match {*.EXP.[0-9][0-9][0-9].gz} $expfile] && \
-            $tcl_platform(platform) == "unix"} {
-        if [catch {set fil [open "| gunzip < $expfile" r]} err] {
-            tk_dialog .expFileErrorMsg "File Open Error" \
-                    "Unable to uncompress file $expfile\nerror: $err" error 0 "Exit"
-            return -1
-        }
-    } elseif [catch {set fil [open "$expfile" r]}] {
+    if [catch {set fil [open "$expfile" r]}] {
         tk_dialog .expFileErrorMsg "File Open Error" \
-                "Unable to open file $expfile" error 0 "Exit" ; return -1
+                "Unable to open file $expfile" error 0 "Exit" 
+        return -1
     }
     fconfigure $fil -translation lf