Differences From Artifact [b74bd5027c]:
- File
tclvfs/patches/all/tclvfs-20080503-zipvfs-clock_and_append_to_exe.diff
— part of check-in
[66535d6924]
at
2010-09-26 04:43:48
on branch trunk
— KitCreator 0.3.0.x
Added support for using ZIP archives if MK4 fails to build
Removed support for pure-Tcl MK4 (it didn't work) (user: rkeene, size: 1788) [annotate] [blame] [check-ins using]
To Artifact [776417ea28]:
- File tclvfs/patches/all/tclvfs-20080503-zipvfs-clock_and_append_to_exe.diff — part of check-in [6e6c5fd01a] at 2010-09-26 04:45:20 on branch trunk — Corrected typo in ZipVFS (user: rkeene, size: 1788) [annotate] [blame] [check-ins using]
9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
- while {$sec > 59} {incr sec -60}
- while {$min > 59} {incr sec -60}
- while {$hour > 23} {incr hour -24}
- if {$mday < 1} {incr mday}
- if {$mon < 1} {incr mon}
- while {$mon > 12} {incr hour -12}
+ if {$sec > 59} {set sec 59}
+ if {$min > 59} {set sec 59}
+ if {$hour > 23} {set hour 23}
+ if {$mday < 1} {set mday 1}
+ if {$mday > 31} {set mday 31}
+ if {$mon < 1} {set mon 1}
+ if {$mon > 12} {set mon 12}
- while {[catch {
|
| |
9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
- while {$sec > 59} {incr sec -60}
- while {$min > 59} {incr sec -60}
- while {$hour > 23} {incr hour -24}
- if {$mday < 1} {incr mday}
- if {$mon < 1} {incr mon}
- while {$mon > 12} {incr hour -12}
+ if {$sec > 59} {set sec 59}
+ if {$min > 59} {set min 59}
+ if {$hour > 23} {set hour 23}
+ if {$mday < 1} {set mday 1}
+ if {$mday > 31} {set mday 31}
+ if {$mon < 1} {set mon 1}
+ if {$mon > 12} {set mon 12}
- while {[catch {
|