all repos — min @ e35a5846ecb0c7d5ea129b961f4be57981725d9d

A small but practical concatenative programming language.

Added ls-r operator
h3rald h3rald@h3rald.com
Sun, 26 Jun 2016 19:33:36 +0200
commit

e35a5846ecb0c7d5ea129b961f4be57981725d9d

parent

9e87366caf578b96835fbdaf96a5d034606da6ee

3 files changed, 11 insertions(+), 3 deletions(-)

jump to
M lib/min_sys.nimlib/min_sys.nim

@@ -21,10 +21,18 @@ .symbol("ls") do (i: In):

var a: MinValue i.reqString a var list = newSeq[MinValue](0) - for i in walkdir(a.strVal): + for i in walkDir(a.strVal): list.add newVal(i.path) i.push list.newVal + .symbol("ls-r") do (i: In): + var a: MinValue + i.reqString a + var list = newSeq[MinValue](0) + for i in walkDirRec(a.strVal): + list.add newVal(i) + i.push list.newVal + .symbol("system") do (i: In): var a: MinValue i.reqString a
M tests/lang.mintests/lang.min

@@ -7,7 +7,7 @@

"Total Symbols: " print! symbols size put! " Total Sigils: " print! sigils size put! - (symbols size 181 ==) assert + (symbols size 182 ==) assert (sigils size 12 ==) assert
M tests/logic.mintests/logic.min

@@ -68,7 +68,7 @@ (false false != false ==) assert

(1 1 != false ==) assert ("aaa" "aaa" != false ==) assert (1.0 1 != false ==) assert - ((1 2 3.0) (1 2 3) != false ==) assert + ((1 2 3.0) (1.0 2.0 3) != false ==) assert (("a" "b") ("a" "b") != false ==) assert (("a" "b" 3) ("a" "b" 4) !=) assert ((1 "b" 3 myrandomsymbol) (1 "b" 3.0 myrandomsymbol) != false ==) assert