tcc4tcl
Check-in [6ef06b043d]
Login
HomeTimelineFilesBranchesTagsTicketsWiki
Overview
Comment:Updated to provide package version numbers
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 6ef06b043d6e44f23e43fc3fed48e4c4af6a0d22
User & Date: rkeene on 2014-06-18 17:31:09
Other Links: manifest | tags
Context
2014-06-18
17:32
Fixed issue when using package versions check-in: 68ce1fca09 user: rkeene tags: trunk
17:31
Updated to provide package version numbers check-in: 6ef06b043d user: rkeene tags: trunk
17:26
Updated to produce working shared objects and executables (might need more stuff for Windows) check-in: ff53d13ed7 user: rkeene tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified tcc4tcl.tcl from [9fb3ac5d6d] to [127f1d0e84].

︙
104
105
106
107
108
109
110






111

112
113
114
115
116
117
118

104
105
106
107
108
109
110
111
112
113
114
115
116

117
118
119
120
121
122
123
124








+
+
+
+
+
+
-
+









				if {[info exists state(procs)] && [llength $state(procs)] > 0} {
					foreach {procname cname} $state(procs) {
						append state(code) "  Tcl_CreateObjCommand(interp, \"$procname\", $cname, NULL, NULL);"
					}
				}

				set packageName [lindex $state(package) 0]
				set packageVersion [lindex $state(package) 1]
				if {$packageVersion == ""} {
					set packageVersion "0"
				}

				append state(code) "Tcl_PkgProvide(interp, \"$state(package)\", \"0.0\");\n"
				append state(code) "Tcl_PkgProvide(interp, \"$packageName\", \"$packageVersion\");\n"
				append state(code) "  return(TCL_OK);\n"
				append state(code) "\}"
			}
		}

		# Generate output code
		tcc4tcl $dir $state(type) tcc
︙

Powered by Fossil · RSS