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] |
︙ |