Changeset 387 for trunk/readexp.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:05:19 PM (11 years ago)
Author:
toby
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    • Property rcs:date changed from 2001/04/17 22:44:59 to 2001/05/11 16:09:08
    • Property rcs:lines changed from +19 -33 to +14 -5
    • Property rcs:rev changed from 1.25 to 1.26
    r381 r387  
    1010# returns 2 if the file is sequential but not fixed-record length
    1111proc expload {expfile} {
    12     global exparray
    13     # $expfile is the path to the data file.
    14     if [catch {set fil [open "$expfile" r]}] {
     12    global exparray tcl_platform
     13    # $expfile is the path to the data file.
     14
     15    # is this a compressed file?
     16    if {[string match {*.EXP.[0-9][0-9][0-9].gz} $expfile] && \
     17            $tcl_platform(platform) == "unix"} {
     18        if [catch {set fil [open "| gunzip < $expfile" r]} err] {
     19            tk_dialog .expFileErrorMsg "File Open Error" \
     20                    "Unable to uncompress file $expfile\nerror: $err" error 0 "Exit"
     21            return -1
     22        }
     23    } elseif [catch {set fil [open "$expfile" r]}] {
    1524        tk_dialog .expFileErrorMsg "File Open Error" \
    1625                "Unable to open file $expfile" error 0 "Exit" ; return -1
Note: See TracChangeset for help on using the changeset viewer.