[tcl] How to Use Tcl and C Together

yjh777

0. Bare-Fisted Coding

1. 
   
2. $ cc -c example.c -o example.o
   
3. ld -shared -expect_unresolved \
   
4.     -o mycommand.so example.o
   
5. $ cat example.c
   
6. #include <tcl.h>
   
7. 
   
8. int MyCommand(ClientData clientData,
   
9.               Tcl_Interp *interp,
   
10.               int argc, char *argv[])
    
11. {
    
12.     char *datum, temp;
    
13. 
    
14.     datum = "";
    
15.     if (argc >= 2) {
    
16.         datum = argv[1];
    
17.         if (strlen(datum) > 3) {
    
18.         temp = datum[0];
    
19.         datum[0] = datum[1];
    
20.         datum[1] = temp;
    
21.         }
    
22.     }
    
23.     Tcl_SetResult(interp, datum, NULL);
    
24.     return TCL_OK;
    
25. }
    
26. 
    
27. int Mycommand_Init(Tcl_Interp *interp)
    
28. {
    
29.     if (Tcl_InitStubs(interp, "8.1", 0) == NULL) {
    
30.     return TCL_ERROR;
    
31.     }
    
32.     Tcl_CreateCommand(interp, "mycommand", MyCommand,
    
33.     (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
    
34.     return TCL_OK;
    
35. }

复制代码

1. SWIG tcl
    http://www.swig.org/translations/chinese/index.html
2.
    http://wiki.tcl.tk/ffidl
3.
    https://www.tcl.tk/community/tcl ... r-critcl/critcl.pdf

1. package require critcl
   
2. namespace import critcl::*
   
3. 
   
4. cproc cube {int x} int {
   
5.     return x * x * x;
   
6. }
   
7. 
   
8. proc report number {
   
9.     puts "The cube of $number is [cube $number]."
   
10. }
    

复制代码

ref:
    http://collaboration.cmc.ec.gc.c ... 212/laird/laird.htm
    https://www.tcl.tk/community/tcl ... r-critcl/critcl.pdf

tc1989tc

Simplified Wrapper and Interface Generator
神器啊

seesea2517

膜拜一下神器！