Check-in [a520862b78]
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: a520862b7844836426a2fee49352dafe180e8f32
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]