Differences From Artifact [c0aa27fcc2]:
- Executable file test.tcl — part of check-in [a6c35050af] at 2014-06-23 20:31:37 on branch trunk — Updated to not do curl tests if cross-compiling (user: rkeene, size: 3197) [annotate] [blame] [check-ins using]
To Artifact [6f71a6b9f8]:
- Executable file test.tcl — part of check-in [e9115a162e] at 2014-07-16 03:37:56 on branch trunk — Added a "proc" sub-command to generate C stubs to call Tcl code (user: rkeene, size: 3418) [annotate] [blame] [check-ins using]
| ︙ | |||
141 142 143 144 145 146 147 | 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 | + + + + + + + + + + + + |
$handle add_library_path /usr/lib
$handle add_library_path /usr/lib32
$handle add_library curl
$handle go
curl_fetch http://rkeene.org/
}
set handle [tcc4tcl::new]
$handle proc callToTcl {int a int b} int {
set retval [expr {$a + $b}]
return $retval
}
$handle cwrap callToTcl {int a int b} int
$handle go
if {[callToTcl 3 5] != 8} {
error "3 + 5 is 8"
}
|