Differences From Artifact [3622379b6b]:
- File tcc4tcl.tcl — part of check-in [31cdd14393] at 2014-06-21 15:51:03 on branch trunk — Updated to produce an error if we are unable to load tcc4tcl shared object (user: rkeene, size: 9522) [annotate] [blame] [check-ins using]
To Artifact [e17b60411a]:
- File tcc4tcl.tcl — part of check-in [a520862b78] at 2014-06-21 19:04:04 on branch trunk — Added a "linktclcommand" subcommand to create a Tcl command that references a C symbol (user: rkeene, size: 9641) [annotate] [blame] [check-ins using]
| ︙ | |||
48 49 50 51 52 53 54 55 56 57 58 59 60 61 | 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | + + + + + + |
}
uplevel 1 [list ::tcc4tcl::_$cmd $handle {*}$args]
}]
return $handle
}
proc _linktclcommand {cSymbol tclCommand} {
upvar #0 $handle state
lappend state(procs) $cSymbol $tclCommand
}
proc _cproc {handle name adefs rtype {body "#"}} {
upvar #0 $handle state
set wrap [::tcc4tcl::wrap $name $adefs $rtype $body]
set wrapped [lindex $wrap 0]
|
| ︙ |