Differences From Artifact [3a059dfee8]:
- File
kitsh/buildsrc/kitsh-0.0/installvfs.tcl
— 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: 2185) [annotate] [blame] [check-ins using]
To Artifact [01a4e2e7f2]:
- File kitsh/buildsrc/kitsh-0.0/installvfs.tcl — part of check-in [e5c8483726] at 2010-09-26 04:44:16 on branch trunk — Fixed sync logic issue with new support for specifying which storage system to use (installvfs.tcl and kitInit.c) (user: rkeene, size: 2375) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
16 17 18 19 20 21 22 | # Determine what storage mechanism is being used ## This logic must be duplicated from "kitInit.c" set fd [open Makefile r] set data [read $fd] close $fd | > > > > > > > > | | | | > | 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
# Determine what storage mechanism is being used
## This logic must be duplicated from "kitInit.c"
set fd [open Makefile r]
set data [read $fd]
close $fd
if {[string match "*KIT_STORAGE_ZIP*" $data]} {
set tclKitStorage zip
}
if {[string match "*KIT_STORAGE_MK4*" $data]} {
set tclKitStorage mk4
}
if {![info exists tclKitStorage]} {
if {[string match "*KIT_INCLUDES_MK4TCL*" $data]} {
set tclKitStorage mk4
} else {
set tclKitStorage zip
}
}
# Define procedures
proc copy_file {srcfile destfile} {
switch -glob -- $srcfile {
"*.tcl" - "*.txt" {
set ifd [open $srcfile r]
|
| ︙ | ︙ |