Changeset 89 for trunk/expgui


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

# on 1999/07/21 15:12:53, toby did:
fix windows archive error

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/expgui

    • Property rcs:date changed from 1999/04/08 20:43:10 to 1999/07/21 15:12:53
    • Property rcs:lines changed from +2 -1 to +4 -4
    • Property rcs:rev changed from 1.14 to 1.15
    r82 r89  
    474474            if ![file executable [file join $expgui(scriptdir) pkzip.exe]] {
    475475                # archive w/o pkzip
    476                 set files [glob -nocomplain ${expnam}!*.exp]
     476                set files [glob -nocomplain ${expnam}!*.EXP]
    477477                if {$files == ""} {
    478478                    set num -1
    479479                } else {
    480480                    set file [lindex [lsort -decreasing $files] 0]
    481                     regexp {!([0-9]+)\.EXP} [string toupper $file] a num
     481                    regexp {!0*([0-9]+)\.EXP} [string toupper $file] a num
    482482                }
    483483                set file $expnam![format "%3.3d" [incr num]].EXP
Note: See TracChangeset for help on using the changeset viewer.