Jim

statics list

 . proc foo {increment} {{value 0}} {incr value $increment}
 . foo 1
 1
 . foo 1
 2
  . foo 10
 12
 . set x 10  
 10
 . proc bar {} x {puts $x}    
 . bar
 10
 # Write a function foo that takes a number n and returns a function that
 # takes a number i, and returns n incremented by i. Note: (a) that's number,
 # not integer, (b) that's incremented by, not plus.

 proc accumulator n {
    lambda increment n {
        set n [expr {$n+$increment}]
    }
 }

 set f [accumulator 100]
 puts [$f 10]
 puts [$f 20]
 puts [$f 1.25]
 110
 130
 131.25
 proc accumulator n {
    lambda increment n {set n [+ $n $increment]}
 } 
 . lsort [info commands]
 * + - / after alarm alias append array bio break case catch cd clock
 close collect concat continue curry debug dict env eof error errorInfo eval
 exec exit expr file {file copy} fileevent finalize flush for foreach format
 function getref gets glob global if incr info {info nameofexecutable} join
 kill lambda lambda.finalizer lappend lassign lindex linsert list llength
 lmap load local lrange lrepeat lreplace lreverse lsearch lset lsort open
 os.fork os.gethostname os.getids os.uptime os.wait package parray pid popen
 proc puts pwd rand range read readdir ref regexp regsub rename return scan
 seek set setref signal sleep socket source split stackdump stacktrace stderr
 stdin stdout string subst switch syslog tailcall tell throw time try unset
 update uplevel upvar vwait while
 Jim benchmarks - time in milliseconds
                     Jim-O2 Jim-O3 Jim-Os 8.4.19  8.5.8  7.6p2  6.8.1 
           PI digits    544    444    618    282    326      F      F 
     [for] busy loop    216    230    234    164    144   2725   2347 
   [while] busy loop    406    373    489    165    147   2709   2304 
                 ary    303    280    311    139    175    459    402 
          ary [dict]    294    264    313      F    171      F      F 
        dynamic code    194    180    225    227    422    262    251 
 dynamic code (list)     80     69     91    102    136    336    312 
              expand     74     65     98      F    103      F      F 
       fibonacci(25)    286    265    338    153    188   1023    944 
            heapsort    214    199    244     98     72      F      F 
              mandel    339    281    341    199    215   2007      F 
          mini loops    204    190    235    165    134   2413   2086 
        nested loops    246    231    292     99     89   1842   1665 
              repeat    201    184    228   1641    893   2289   2054 
              rotate     29     29     35      F      F      F      F 
               sieve    401    358    433    115    180    800    712 
        sieve [dict]    357    300    397      F    202      F      F 
               upvar    226    209    304    196    171    460    407 
    wiki.tcl.tk/8566    416    380    487    165    158      F 
 load jim-win32com
 set ie [ole32 create InternetExplorer.Application]
 ole32.invoke $ie Navigate2 https://wiki.tcl-lang.org/jim
 ole32.invoke -put $ie Visible True
  load jim-win32.dll
  info commands win32.*
  ...
 load jim-aio.so
 set f [aio.open /etc/passwd]
 set f2 [aio.open /tmp/FOOBAR w]
 while {[$f gets line] != -1} {
     $f2 puts "~~ $line ~~"
 }
 $f close
 $f2 close
  ./configure && make && make install
    jSQLsh is an SQLite shell based on the PostgreSQL command line shell.
    Implemented using the Jim Tcl interpreter. It is intended to be a simple
    light weight SQLite shell.
% glob -directory d:/ -- *
d:/bootsqm.dat d:/home d:/htdocs d:/ipconfig-all.txt d:/mount d:/proxy.pac d:/temp d:/var
%
. glob -directory d:/ -- *
bad option "-directory": must be -directory, -nocomplain, -tails, or --
[error] .

What	Jim Tcl
Where	http://jim.tcl.tk/ http://jim.tcl-lang.org (alternative URL) https://github.com/msteveb/jimtcl (repository mirror)
Description	Small footprint re-implementation of Tcl. Particularly suited for embedding. Currently at version 0.82.
Updated	2020-10-31
Contact	See website