Changeset 387 for trunk

Timestamp:

Dec 4, 2009 5:05:19 PM (14 years ago)

Author:

toby

Message:

# on 2001/05/11 16:09:08, toby did:
accomodate gzip'ed input files on Unix

File:

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

trunk/readexp.tcl

@@ -10 +10 @@
 # returns 2 if the file is sequential but not fixed-record length
 proc expload {expfile} {
-    global exparray
-    # $expfile is the path to the data file.
-    if [catch {set fil [open "$expfile" r]}] {
+    global exparray tcl_platform
+    # $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]}] {
         tk_dialog .expFileErrorMsg "File Open Error" \
                 "Unable to open file $expfile" error 0 "Exit" ; return -1