mirror of
https://github.com/kanaka/mal.git
synced 2024-09-11 21:57:38 +03:00
8a19f60386
- Reorder README to have implementation list after "learning tool" bullet. - This also moves tests/ and libs/ into impls. It would be preferrable to have these directories at the top level. However, this causes difficulties with the wasm implementations which need pre-open directories and have trouble with paths starting with "../../". So in lieu of that, symlink those directories to the top-level. - Move the run_argv_test.sh script into the tests directory for general hygiene.
29 lines
520 B
Plaintext
29 lines
520 B
Plaintext
;; Testing basic Tcl interop
|
|
;;
|
|
;; Note that in Tcl "everything is a string", so we don't have enough
|
|
;; information to convert the results to other Mal types.
|
|
|
|
(tcl* "expr {3 ** 4}")
|
|
;=>"81"
|
|
|
|
(tcl* "llength {a b c d}")
|
|
;=>"4"
|
|
|
|
(tcl* "concat {a b} c {d e} f g")
|
|
;=>"a b c d e f g"
|
|
|
|
(tcl* "puts \"hello [expr {5 + 6}] world\"")
|
|
;/hello 11 world
|
|
;=>""
|
|
|
|
(tcl* "set ::foo 8")
|
|
(tcl* "expr {$::foo}")
|
|
;=>"8"
|
|
|
|
(tcl* "proc mult3 {x} { expr {$x * 3} }")
|
|
(tcl* "mult3 6")
|
|
;=>"18"
|
|
|
|
(tcl* "string range $::tcl_version 0 1")
|
|
;=>"8."
|