Overview
| Comment: | Updated to provide package version numbers |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
6ef06b043d6e44f23e43fc3fed48e4c4 |
| User & Date: | rkeene on 2014-06-18 17:31:09.508 |
| 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 |
if {[info exists state(procs)] && [llength $state(procs)] > 0} {
foreach {procname cname} $state(procs) {
append state(code) " Tcl_CreateObjCommand(interp, \"$procname\", $cname, NULL, NULL);"
}
}
| > > > > > > | | 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
|
| ︙ | ︙ |