Overview
Comment: | Added test for external files |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
628ec5502b70f9ba0ffb276c6086b617 |
User & Date: | rkeene on 2014-06-23 02:31:31 |
Other Links: | manifest | tags |
Context
2014-06-23
| ||
02:44 | Updated to perform some tests only if we are not cross-compiling check-in: 0e86072bec user: rkeene tags: trunk | |
02:31 | Added test for external files check-in: 628ec5502b user: rkeene tags: trunk | |
02:27 | Updated to include prototype for function that initializes Tcl procedures if they are used check-in: f67ebac03e user: rkeene tags: trunk | |
Changes
Modified test.tcl from [a8f8d47ec7] to [589ff7a7d3].
︙ | |||
92 93 94 95 96 97 98 | 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 | + + + + + + + + + + + + | set handle [tcc4tcl::new] $handle cproc wideTest {Tcl_WideInt x} Tcl_WideInt { return(x); } $handle go puts [wideTest 30] # Produce a loadable object set tmpfile "/tmp/DELETEME_tcc4tcl_test_exec[expr rand()].so" 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 tclstub8.5 $handle go load $tmpfile myPkg puts [ext_add 1 42] file delete $tmpfile |