11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
set kitfile [lindex $argv 0]
set vfsdir [lindex $argv 1]
if {[lindex $argv 2] != ""} {
set opt_compression [lindex $argv 2]
}
# Determine what storage mechanism is being used
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]} {
|
|
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
set kitfile [lindex $argv 0]
set vfsdir [lindex $argv 1]
if {[lindex $argv 2] != ""} {
set opt_compression [lindex $argv 2]
}
# Determine what storage mechanism is being used
set fd [open Makefile.common r]
set data [read $fd]
close $fd
if {[string match "*KIT_STORAGE_ZIP*" $data]} {
set tclKitStorage zip
}
if {[string match "*KIT_STORAGE_MK4*" $data]} {
|