KitCreator
Check-in [e5c8483726]
Login
HomeDownloadsSource CodeTicketsWiki
Overview
Comment:Fixed sync logic issue with new support for specifying which storage system to use (installvfs.tcl and kitInit.c)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: e5c848372660d62fd9d13f6961d80b0e297b014f
User & Date: rkeene on 2010-09-26 04:44:16
Other Links: manifest | tags
Context
2010-09-26
04:44
KitCreator 0.3.2.x check-in: 9f84562200 user: rkeene tags: trunk, 0.3.2
04:44
Fixed sync logic issue with new support for specifying which storage system to use (installvfs.tcl and kitInit.c) check-in: e5c8483726 user: rkeene tags: trunk
04:44
Minor documentation update (sync with Wiki) check-in: 38ada8ff4d user: rkeene tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified kitsh/buildsrc/kitsh-0.0/installvfs.tcl from [3a059dfee8] to [01a4e2e7f2].

︙
16
17
18
19
20
21
22








23
24
25
26





27
28
29
30
31
32
33

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
	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]
︙

Powered by Fossil · RSS