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.674 |
| 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 |
set handle [tcc4tcl::new]
$handle cproc wideTest {Tcl_WideInt x} Tcl_WideInt {
return(x);
}
$handle go
puts [wideTest 30]
| > > > > > > > > > > > > | 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
|