Check-in [fa96098302]
Overview
Comment:Updated to support colons in C procedure names
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: fa960983026b8f80786937cbb182f199af43560b
User & Date: rkeene on 2014-06-13 04:15:08
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
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_$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*"} {







|







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*"} {