113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
load $tmpfile myPkg
puts [ext_add 1 42]
file delete $tmpfile
}
# More involved test
set handle [tcc4tcl::new]
$handle ccode {#include <curl/curl.h>}
$handle cwrap curl_version {} vstring
$handle cproc curl_fetch {char* url} ok {
void *handle;
handle = curl_easy_init();
if (!handle) {
return(TCL_ERROR);
|
|
>
>
>
|
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
load $tmpfile myPkg
puts [ext_add 1 42]
file delete $tmpfile
}
# More involved test
set handle [tcc4tcl::new]
$handle ccode {
#include <stdint.h>
#include <curl/curl.h>
}
$handle cwrap curl_version {} vstring
$handle cproc curl_fetch {char* url} ok {
void *handle;
handle = curl_easy_init();
if (!handle) {
return(TCL_ERROR);
|