77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
## Delete without performing
set handle [tcc4tcl::new]
$handle delete
# External functions (requires .a files)
set handle [tcc4tcl::new]
$handle ccode {const char *curl_version(void);}
$handle cproc curl_version {} char*
$handle add_library_path /usr/lib64
$handle add_library_path /usr/lib
$handle add_library curl
$handle go
puts [curl_version]
# wide values
|
|
|
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
## Delete without performing
set handle [tcc4tcl::new]
$handle delete
# External functions (requires .a files)
set handle [tcc4tcl::new]
$handle ccode {const char *curl_version(void);}
$handle cproc curl_version {} vstring
$handle add_library_path /usr/lib64
$handle add_library_path /usr/lib
$handle add_library curl
$handle go
puts [curl_version]
# wide values
|