Index: test.tcl ================================================================== --- test.tcl +++ test.tcl @@ -82,10 +82,11 @@ if {[info exists ::env(TCC4TCL_TEST_RUN_NATIVE)]} { set handle [tcc4tcl::new] $handle cwrap curl_version {} vstring $handle add_library_path /usr/lib64 $handle add_library_path /usr/lib + $handle add_library_path /usr/lib32 $handle add_library curl $handle go puts [curl_version] } @@ -104,11 +105,38 @@ file delete $tmpfile set handle [tcc4tcl::new $tmpfile "myPkg 0.1"] $handle cproc ext_add {int a int b} long { return(a+b); } $handle add_library_path /usr/lib64 $handle add_library_path /usr/lib + $handle add_library_path /usr/lib32 $handle add_library tclstub8.5 $handle go load $tmpfile myPkg puts [ext_add 1 42] file delete $tmpfile } + +# More involved test +set handle [tcc4tcl::new] +$handle ccode {#include } +$handle cwrap curl_version {} vstring +$handle cproc curl_fetch {char* url} ok { + void *handle; + + handle = curl_easy_init(); + if (!handle) { + return(TCL_ERROR); + } + + curl_easy_setopt(handle, CURLOPT_URL, url); + curl_easy_perform(handle); + + return(TCL_OK); +} +$handle add_include_path /usr/include +$handle add_library_path /usr/lib64 +$handle add_library_path /usr/lib +$handle add_library_path /usr/lib32 +$handle add_library curl +$handle go + +curl_fetch http://rkeene.org/