Add stdlib functions from anselme v1

test/results/error.ans

@@ -0,0 +1,7 @@
+--# run #--
+--- error ---
+nope
+	↳ from test/tests/error.ans:1:6 in call: error("nope")
+	↳ from ? in block: error("nope")
+--# saved #--
+{}

test/results/floor ceil round.ans

@@ -0,0 +1,13 @@
+--# run #--
+--- text ---
+| {}"" {}"3" {}"" |
+--- text ---
+| {}"" {}"4" {}"" |
+--- text ---
+| {}"" {}"3" {}"" |
+--- text ---
+| {}"" {}"3.142" {}"" |
+--- return ---
+()
+--# saved #--
+{}

test/results/list find.ans

@@ -0,0 +1,9 @@
+--# run #--
+--- text ---
+| {}"" {}"3" {}"" |
+--- text ---
+| {}"" {}"3" {}"" |
+--- return ---
+()
+--# saved #--
+{}

test/results/list insert.ans

@@ -0,0 +1,11 @@
+--# run #--
+--- text ---
+| {}"" {}"*[1, 2, 3]" {}"" |
+--- text ---
+| {}"" {}"*[1, 2, 3, 4]" {}"" |
+--- text ---
+| {}"" {}"*[1, 5, 2, 3, 4]" {}"" |
+--- return ---
+()
+--# saved #--
+{}

test/results/list len.ans

@@ -0,0 +1,9 @@
+--# run #--
+--- text ---
+| {}"" {}"4" {}"" |
+--- text ---
+| {}"" {}"4" {}"" |
+--- return ---
+()
+--# saved #--
+{}

test/results/list remove.ans

@@ -0,0 +1,11 @@
+--# run #--
+--- text ---
+| {}"" {}"*[1, 2, 3, 4, 5]" {}"" |
+--- text ---
+| {}"" {}"*[1, 2, 3, 4]" {}"" |
+--- text ---
+| {}"" {}"*[1, 3, 4]" {}"" |
+--- return ---
+()
+--# saved #--
+{}

test/results/pair name value.ans

@@ -0,0 +1,9 @@
+--# run #--
+--- text ---
+| {}"" {}"foo" {}"" |
+--- text ---
+| {}"" {}"barr" {}"" |
+--- return ---
+()
+--# saved #--
+{}

test/results/string len.ans

@@ -0,0 +1,7 @@
+--# run #--
+--- text ---
+| {}"" {}"5" {}"" |
+--- return ---
+()
+--# saved #--
+{}

test/results/text concat.ans

@@ -0,0 +1,7 @@
+--# run #--
+--- text ---
+| {"a":"b"}"hello" {"b":"c"}"world and " {"b":"c", "x":"y"}"friends" {"b":"c"}"" |
+--- return ---
+()
+--# saved #--
+{}

test/run.lua

@@ -77,7 +77,6 @@ local function run(path, interactive)
 	local state = anselme:new()
 	state:load_stdlib()
 
-	state:define("error", "(message=\"error\")", function(message) error(message, 0) end)
 	state:define("interrupt", "(code::string)", function(state, code) state:interrupt(code:to_lua(state), "interrupt") return ast.Nil:new() end, true)
 	state:define("interrupt", "()", function(state) state:interrupt() return ast.Nil:new() end, true)
 	state:define("wait", "(duration::number)", function(duration) coroutine.yield("wait", duration) end)

test/tests/error.ans

@@ -0,0 +1 @@
+error("nope")

test/tests/floor ceil round.ans

@@ -0,0 +1,9 @@
+:x = pi
+
+|{floor(x)}
+
+|{ceil(x)}
+
+|{round(x)}
+
+|{round(x, 0.001)}

test/tests/list find.ans

@@ -0,0 +1,5 @@
+:l = [5,4,2,1]
+
+|{l!find(2)}
+
+|{(*l)!find(2)}

test/tests/list insert.ans

@@ -0,0 +1,11 @@
+:l = *[1,2,3]
+
+|{l}
+
+l!insert(4)
+
+|{l}
+
+l!insert(2, 5)
+
+|{l}

test/tests/list len.ans

@@ -0,0 +1,5 @@
+:l = [5,4,2,1]
+
+|{l!len}
+
+|{(*l)!len}

test/tests/list remove.ans

@@ -0,0 +1,11 @@
+:l = *[1,2,3,4,5]
+
+|{l}
+
+l!remove()
+
+|{l}
+
+l!remove(2)
+
+|{l}

test/tests/pair name value.ans

@@ -0,0 +1,5 @@
+:a = "foo":"barr"
+
+|{a!name}
+
+|{a!value}

test/tests/string len.ans

@@ -0,0 +1,3 @@
+:x = "hÉllo"
+
+|{x!len}

test/tests/text concat.ans

@@ -0,0 +1,5 @@
+:a = ("a":"b" # | hello)
+
+:b = ("b":"c" # | world and { "x":"y" # |friends })
+
+a+b