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 49 50 51 52 53 54 55 56 57 58 59 60 61 |
}
uplevel 1 [list ::tcc4tcl::_$cmd $handle {*}$args]
}]
return $handle
}
proc _cproc {handle name adefs rtype {body "#"}} {
upvar #0 $handle state
set wrap [::tcc4tcl::wrap $name $adefs $rtype $body]
set wrapped [lindex $wrap 0]
| > > > > > > | 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]
|
| ︙ | ︙ |