167
168
169
170
171
172
173
174
175
|
}
$handle cwrap callToTcl1 {int x} float
$handle go
puts [callToTcl1 3]
set handle [tcc4tcl::new]
$handle proc callToTclBinary {char* blob int blob_Length} ok {
puts "Blob: $blob"
}
|
|
>
>
>
>
>
>
|
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
|
}
$handle cwrap callToTcl1 {int x} float
$handle go
puts [callToTcl1 3]
set handle [tcc4tcl::new]
$handle proc callToTclBinary {char* blob int blob_Length} ok {
puts "Blob: $blob ([string length $blob])"
}
$handle cproc callToTclBinaryWrapper {} void {
callToTclBinary("test\x00test", 9);
}
puts [$handle code]
$handle go
callToTclBinaryWrapper
|