Check-in [6ef06b043d]
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

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

104
105
106
107
108
109
110






111
112
113
114
115
116
117
118

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







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

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







>
>
>
>
>
>
|







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, \"$packageName\", \"$packageVersion\");\n"
				append state(code) "  return(TCL_OK);\n"
				append state(code) "\}"
			}
		}

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