Overview
Comment: | Added a "linktclcommand" subcommand to create a Tcl command that references a C symbol |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
a520862b7844836426a2fee49352dafe |
User & Date: | rkeene on 2014-06-21 19:04:04 |
Other Links: | manifest | tags |
Context
2014-06-21
| ||
21:17 | Updated to give a useful error if an invalid subcommand is given check-in: d7b387c82f user: rkeene tags: trunk | |
19:04 | Added a "linktclcommand" subcommand to create a Tcl command that references a C symbol check-in: a520862b78 user: rkeene tags: trunk | |
18:50 | Started versioning aclocal files and updated to find an appropriate Tclsh check-in: dd35aeb62b user: rkeene tags: trunk | |
Changes
Modified tcc4tcl.tcl from [3622379b6b] to [e17b60411a].
48 48 } 49 49 50 50 uplevel 1 [list ::tcc4tcl::_$cmd $handle {*}$args] 51 51 }] 52 52 53 53 return $handle 54 54 } 55 + 56 + proc _linktclcommand {cSymbol tclCommand} { 57 + upvar #0 $handle state 58 + 59 + lappend state(procs) $cSymbol $tclCommand 60 + } 55 61 56 62 proc _cproc {handle name adefs rtype {body "#"}} { 57 63 upvar #0 $handle state 58 64 59 65 set wrap [::tcc4tcl::wrap $name $adefs $rtype $body] 60 66 61 67 set wrapped [lindex $wrap 0]