[tcl] jimtcl Introduction

yjh777

Introduction

Jim is an opensource small-footprint implementation of the Tcl programming language. It implements a large subset of Tcl and adds new features like references with garbage collection, closures, built-in Object Oriented Programming system, Functional Programming commands, first-class arrays and UTF-8 support. All this with a binary size of about 100-200kB (depending upon selected options).

The Jim core is very stable. Jim passes over 3000 unit tests and many Tcl programs run unmodified. Jim is highly modular with the possiblity to configure many components as loadable modules, or omitted entirely. A number of extensions are included with Jim which may be built as loadable modules.

Jim cross compiles easily and is in use in many embedded environments. It runs under many operating systems, including Linux, FreeBSD, QNX, eCos, Windows (cygwin and mingw32).

Jim has built-in command line editing for the interactive shell, jimsh.

yjh777

谢谢大家 关注

跟官方的tcl版本不同(使用fossil做代码管理)
    jimtcl 使用github托管代码，直接 git clone 就可以，代码可读性还是挺好的;

    可以自己改改代码，添加一些自己的命令玩一玩，比如给list添加切片功能的命令
          (默认list只有lrange， 如果你只想把 第5个第7和第10个拿出来就比较麻烦)

yjh777

添加一个命令 lslice

1. diff --git a/jim.c b/jim.c
   
2. index 8c72777..4011bf4 100644
   
3. --- a/jim.c
   
4. +++ b/jim.c
   
5. @@ -14951,6 +14951,26 @@ static int Jim_LrangeCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const *a
   
6.      return JIM_OK;
   
7. }
   
8. 
   
9. +/* [lslice] */
   
10. +static int Jim_LsliceCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
    
11. +{
    
12. +    Jim_Obj *tmpobjPtr = NULL;
    
13. +    Jim_Obj *objPtr = Jim_NewListObj(interp, NULL, 0);
    
14. +    int i = 0;
    
15. +
    
16. +    if (argc < 3) {
    
17. +        Jim_WrongNumArgs(interp, 1, argv, "list ?index | first-last ...?");
    
18. +        return JIM_ERR;
    
19. +    }
    
20. +    for (i = 2; i < argc; i++) {
    
21. +        if ((tmpobjPtr = Jim_ListRange(interp, argv[1], argv[i], argv[i])) == NULL)
    
22. +            return JIM_ERR;
    
23. +        ListAppendElement(objPtr, tmpobjPtr);
    
24. +    }
    
25. +    Jim_SetResult(interp, objPtr);
    
26. +    return JIM_OK;
    
27. +}
    
28. +
    
29. /* [lrepeat] */
    
30. static int Jim_LrepeatCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
    
31. {
    
32. @@ -15240,6 +15260,7 @@ static const struct {
    
33.      {"scan", Jim_ScanCoreCommand},
    
34.      {"error", Jim_ErrorCoreCommand},
    
35.      {"lrange", Jim_LrangeCoreCommand},
    
36. +    {"lslice", Jim_LsliceCoreCommand},
    
37.      {"lrepeat", Jim_LrepeatCoreCommand},
    
38.      {"env", Jim_EnvCoreCommand},
    
39.      {"source", Jim_SourceCoreCommand},

复制代码