141
142
143
144
145
146
147
|
$handle add_library_path /usr/lib
$handle add_library_path /usr/lib32
$handle add_library curl
$handle go
curl_fetch http://rkeene.org/
}
|
>
>
>
>
>
>
>
>
>
>
>
>
|
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"
}
|