Overview
| Comment: | Updated to support colons in C procedure names |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
fa960983026b8f80786937cbb182f199 |
| User & Date: | rkeene on 2014-06-13 04:15:08.923 |
| Other Links: | manifest | tags |
Context
|
2014-06-15
| ||
| 19:56 | Cleanup check-in: a972717fe8 user: rkeene tags: trunk | |
|
2014-06-13
| ||
| 04:15 | Updated to support colons in C procedure names check-in: fa96098302 user: rkeene tags: trunk | |
| 02:52 | tcc4tcl 0.17 check-in: d50c5210a0 user: rkeene tags: trunk, 0.17 | |
Changes
Modified tcc4tcl.tcl
from [271b665fc7]
to [5cbfa0bb9e].
| ︙ | ︙ | |||
130 131 132 133 134 135 136 |
append ${name}::code \n \
[::tcc4tcl::wrapExport $(-name) [set ${name}::cmds] $(-code)]
set outfile $(-dir)/$(-name)[info sharedlibextension]
::tcc4tcl::to_dll [set ${name}::code] $outfile $(-libs)
}
#---------------------------------------------------------------------
proc ::tcc4tcl::wrap {name adefs rtype {body "#"}} {
| | | 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 |
append ${name}::code \n \
[::tcc4tcl::wrapExport $(-name) [set ${name}::cmds] $(-code)]
set outfile $(-dir)/$(-name)[info sharedlibextension]
::tcc4tcl::to_dll [set ${name}::code] $outfile $(-libs)
}
#---------------------------------------------------------------------
proc ::tcc4tcl::wrap {name adefs rtype {body "#"}} {
set cname c_[string map [list ":" "_"] $name]
set wname tcl_$name
array set types {}
set names {}
set cargs {}
set cnames {}
# if first arg is "Tcl_Interp*", pass it without counting it as a cmd arg
if {[lindex $adefs 0] eq "Tcl_Interp*"} {
|
| ︙ | ︙ |