|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
tcc4tcl Examples
================
Simple Example
--------------
#! /usr/bin/env tclsh
package require tcc4tcl
set handle [tcc4tcl::new]
$handle cproc add {int a int b} long { return(a+b); }
puts [add 1 2]
More Complete Example
---------------------
#! /usr/bin/env tclsh
package require tcc4tcl
set handle [tcc4tcl::new]
...in progress...
|