Overview
| Comment: | Used more appropriate return value |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 08ca5c90847264415c913df0e8d371d7d01f550a |
| User & Date: | rkeene on 2014-06-23 01:47:52 |
| Other Links: | manifest | tags |
Context
|
2014-06-23
| ||
| 01:51 | Updated to not error out about not being able to load the library until we actually need to use it check-in: 0e71626442 user: rkeene tags: trunk | |
| 01:47 | Used more appropriate return value check-in: 08ca5c9084 user: rkeene tags: trunk | |
| 01:45 | Updated to omit the #define for functions we are just wrapping check-in: 491d3ace1e user: rkeene tags: trunk | |
Changes
Modified test.tcl from [533a781ff7] to [a8f8d47ec7].
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
|