Changeset 468


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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    • Property rcs:date changed from 2001/09/25 23:35:54 to 2001/10/18 23:27:12
    • Property rcs:lines changed from +61 -7 to +5 -12
    • Property rcs:rev changed from 1.30 to 1.31
    r453 r468  
    1313    # $expfile is the path to the data file.
    1414
    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]}] {
     15    if [catch {set fil [open "$expfile" r]}] {
    2416        tk_dialog .expFileErrorMsg "File Open Error" \
    25                 "Unable to open file $expfile" error 0 "Exit" ; return -1
     17                "Unable to open file $expfile" error 0 "Exit"
     18        return -1
    2619    }
    2720    fconfigure $fil -translation lf
Note: See TracChangeset for help on using the changeset viewer.