p-lang 0.1.1 → 0.2.0

data/test/test_parser_build.txt

@@ -1,72 +0,0 @@
-[[:+, [:literal, :integer, 1], [:literal, :integer, 2]]]
-[[:+,[:literal, :integer, 1],[:+, [:literal, :integer, 2], [:literal, :integer, 3]]]]
-[[:*, [:literal, :integer, 4], [:literal, :integer, 5]]]
-[[:/, [:literal, :integer, 4], [:literal, :integer, 2]]]
-[[:%, [:literal, :integer, 5], [:literal, :integer, 3]]]
-[[:+,[:literal, :integer, 1],[:*,[:literal, :integer, 2],[:/, [:literal, :integer, 3], [:literal, :integer, 5]]]]]
-[[:*,[:+,[:literal, :integer, 1],[:literal, :integer, 6]],[:literal, :integer, 5]]]
-[[:+,[:literal, :integer, 1],[:/,[:*, [:literal, :integer, 2], [:literal, :integer, 3]],[:-, [:literal, :integer, 5], [:literal, :integer, 1]]]]]
-[[:+,  [:literal, :decimal, 1.3],[:*,[:literal, :integer, 5],[:+, [:literal, :integer, 1], [:literal, :decimal, 1.568]]]]]
-[[:id, :xyz]]
-[[:>, [:literal, :integer, 1], [:literal, :integer, 2]]]
-[[:>=, [:id, :x], [:literal, :integer, 1]]]
-[[:<=, [:literal, :integer, 2], [:id, :b]]]
-[[:==, [:literal, :integer, 4], [:literal, :integer, 1]]]
-[[:<, [:literal, :integer, 2], [:id, :x]]]
-[[:object, :obj, []]]
-[[:object, :obj, [[:literal, :integer, 1], [:literal, :integer, 2], [:literal, :integer, 3]]]]
-[[:object,:obj,[[:+, [:literal, :integer, 1], [:literal, :integer, 2]], [:id, :x]]]]
-[[:object, :obj, [[:literal, :integer, 1], [:literal, :integer, 2]]]]
-[[:object, :obj, [[:id, :x], [:literal, :integer, 2], [:object, :other, []]]]]
-[[:object, :obj, [[:literal, :integer, 1]]]]
-[[:literal, :string, "teste"]]
-[[:literal, :char, "a"]]
-[[:if,[:>, [:id, :x], [:literal, :integer, 1]],[:literal, :string, "verdadeiro"],[:literal, :string, "falso"]]]
-[[:begin,[[:+,[:literal, :integer, 1],[:+, [:literal, :integer, 2], [:literal, :integer, 3]]],[:literal, :string, "oi"],[:<, [:literal, :integer, 2], [:literal, :integer, 3]],[:literal, :char, "a"]]]]
-[[:-,[:call, [:id, :sin], [[:*, [:literal, :integer, 2], [:id, :pi]]]],[:call, [:id, :cos], [[:*, [:literal, :integer, 2], [:id, :pi]]]]]]
-[[:call, [:id, :f], []]]
-[[:let, [:id, :x], [:literal, :integer, 1]]]
-[[:let,[:id, :x],[:+,[:literal, :integer, 1],[:+,[:literal, :integer, 2],[:+, [:literal, :integer, 3], [:literal, :integer, 4]]]]]]
-[[:let,[:id, :y],[:+,[:literal, :integer, 1],[:*, [:literal, :integer, 2], [:/, [:id, :x], [:literal, :integer, 2]]]]]]
-[[:let, [:id, :str], [:literal, :string, "string"]]]
-[[:let,[:id, :p1],[:call, [:id, :point], [[:literal, :integer, 1], [:literal, :integer, 2]]]]]
-[[:let,[:object, :obj, [[:id, :x]]],[:object, :obj, [[:literal, :integer, 1]]]]]
-[[:let, [:object, :obj, [[:id, :x], [:id, :t]]], [:id, :obj]]]
-[[:lambda, [[:id, :x]], [:id, :x], [],nil]]
-[[:lambda, [[:id, :x],[:id, :y]], [:+, [:id, :x], [:id, :y]], [],nil]]
-[[:lambda,[[:literal, :integer, 1],[:literal, :integer, 2],[:id, :x],[:object, :obj, [[:id, :x], [:id, :y]]]],[:literal, :integer, 1],[],nil]]
-[[:lambda,[[:id, :x]],[:id, :y],[[:let,[:id, :y],[:lambda, [[:id, :x]], [:+, [:id, :x], [:literal, :integer, 6]], [],nil]]],nil]]
-[[:lambda,[[:id, :x]],[:id, :y],[[:let,[:id, :y],[:lambda, [[:id, :x]], [:+, [:id, :x], [:literal, :integer, 6]], [], nil]],[:let,[:id, :z],[:lambda,[[:id, :x]],[:-, [:id, :x], [:literal, :integer, 6]],[],nil]],[:let, [:id, :k], [:literal, :integer, 1]]],nil]]
-[[:let, [:id, :x], [:lambda, [], [:literal, :integer, 1], [],nil]]]
-[[:let,[:id, :fibonacci],[:lambda,[[:literal, :integer, 1]],[:literal, :integer, 1],[],[:lambda,[[:literal, :integer, 2]],[:literal, :integer, 1],[],[:lambda,[[:id, :n]],[:+,[:call, [:id, :fibonacci], [[:-, [:id, :n], [:literal, :integer, 1]]]],[:call, [:id, :fibonacci], [[:-, [:id, :n], [:literal, :integer, 2]]]]],[],nil]]]]]
-[[:let,[:id, :str_list],[:object,:list,[[:literal, :char, "s"],[:object,:list,[[:literal, :char, "t"],[:object,:list,[[:literal, :char, "r"],[:object,:list,[[:literal, :char, "i"],[:object,:list,[[:literal, :char, "n"],[:object,:list,[[:literal, :char, "g"], [:object, :list, []]]]]]]]]]]]]]]]
-[[:let,[:id, :point],[:lambda,[[:id, :x], [:id, :y]],[:object, :point, [[:id, :x], [:id, :y]]],[],nil]]]
-[[:let,[:id, :point_x],[:lambda, [[:object, :point, [[:id, :x], [:id, :y]]]], [:id, :x], [],nil]]]
-[[:let,[:id, :point_y],[:lambda, [[:object, :point, [[:id, :x], [:id, :y]]]], [:id, :y], [],nil]]]
-[[:let,[:id, :point_sum],[:lambda,[[:object, :point, [[:id, :x1], [:id, :y1]]],[:object, :point, [[:id, :x2], [:id, :y2]]]],[:object,:point,[[:+, [:id, :x1], [:id, :x2]], [:+, [:id, :y1], [:id, :y2]]]],[],nil]]]
-[[:let,[:id, :sum],[:lambda, [[:id, :a], [:id, :b]], [:+, [:id, :a], [:id, :b]], [], nil]]]
-[[:let,[:id, :f],[:lambda,[[:id, :x]],[:begin,[[:let, [:id, :algo], [:id, :x]],[:*, [:id, :algo], [:id, :algo]],[:id, :algo]]],[], nil]]]
-[[:let,[:id, :f],[:lambda,[[:id, :x]],[:+, [:call, [:id, :f], [[:id, :x]]], [:call, [:id, :g], [[:id, :x]]]],[[:let,[:id, :f],[:lambda, [[:id, :x]], [:*, [:id, :x], [:id, :x]], [], nil]],[:let,[:id, :g],[:lambda,[[:id, :x]],[:/, [:id, :x], [:literal, :integer, 2]],[],nil]]],nil]]]
-[[:let,[:id, :f],[:lambda,[[:id, :x]],[:id, :y],[[:let, [:id, :y], [:*, [:literal, :integer, 2], [:id, :x]]]], nil]]]
-[[:object_call, [:id, :p], [:id, :x]]]
-[[:call,[:object_call, [:id, :p], [:id, :x]],[[:id, :p], [:literal, :integer, 1]]]]
-[[:call, [:object_call, [:id, :p], [:id, :x]], [[:id, :p]]]]
-[[:call,[:object_call, [:call, [:id, :f], [[:literal, :integer, 1]]], [:id, :algo]],[[:call, [:id, :f], [[:literal, :integer, 1]]], [:literal, :integer, 1]]]]
-[[:call, [:object_call, [:id, :x], [:id, :algo]], [[:id, :x]]]]
-[[:call,[:object_call, [:literal, :integer, 10], [:id, :algo]],[[:literal, :integer, 10],[:literal, :integer, 1],[:literal, :integer, 2],[:literal, :integer, 3]]]]
-[[:call,[:object_call,[:object, :algo, [[:literal, :integer, 1], [:literal, :integer, 2]]],[:id, :algo]],[[:object, :algo, [[:literal, :integer, 1], [:literal, :integer, 2]]]]]]
-[[:call,[:object_call, [:object, :algo, [[:id, :x], [:id, :y]]], [:id, :x]],[[:object, :algo, [[:id, :x], [:id, :y]]]]]]
-[[:object_let,[:object, :point, [[:id, :x], [:id, :y]]],[:id, :x],[:lambda, [[:id, :x]], [:id, :x], [], nil]]]
-[[:object_let,[:object, :aaaa, [[:id, :x], [:id, :y]]],[:id, :a],[:lambda, [], [:id, :x], [[:let, [:id, :x], [:literal, :integer, 1]]], nil]]]
-[[:object_let,[:object, :aaaa, [[:id, :x], [:id, :y]]],[:id, :algo],[:lambda,[[:id, :x]],[:id, :y],[[:let,[:id, :y],[:lambda, [[:id, :x]], [:+, [:id, :x], [:literal, :integer, 6]], [], nil]]], nil]]]
-[[:object_let,[:object, :algo, [[:id, :x], [:id, :y]]],[:id, :algo],[:lambda, [[:id, :x]], [:id, :x], [], nil]]]
-[[:object_let, [:object, :algo, []], [:id, :algo], [:literal, :integer, 1]]]
-[[:literal, :boolean, :true]]
-[[:literal, :boolean, :false]]
-[[:let, [:id, :x], [:literal, :boolean, :true]]]
-[[:if,[:literal, :boolean, :true],[:literal, :string, "sim"],[:literal, :string, "nao"]]]
-[[:and, [:id, :x], [:id, :y]]]
-[[:if,[:and, [:literal, :boolean, :true], [:literal, :boolean, :false]],[:literal, :integer, 1],[:literal, :integer, 2]]]
-[[:if,[:or, [:and, [:id, :x], [:id, :y]], [:id, :z]],[:literal, :integer, 1],[:literal, :integer, 2]]]
-[[:not, [:literal, :boolean, :true]]]
-[[:let, [:id, :x], [:or, [:and, [:id, :x], [:id, :y]], [:not, [:id, :k]]]]]

data/test/test_vm_programs.txt

@@ -1,64 +0,0 @@
-1
-1+2
-4-7
-3*2
-6/2
-6.0-0.5
-5%2
-1>2
-1>=1
-3<1
-7<=0
-(2>0) and (3<1)
-true or false
-x=1 x+2
-x=1 y=2 x+y
-soma = [a,b| a+b] soma(3,4)
-soma = [a,b| a+b] soma(3,4)+10
-soma = [a,b| sum] : (sum = a+b) soma(10,5)
-fib = [1|1], [2|1], [n| fib(n-1)+fib(n-2)] fib(8)
-x=1 y=2 f=[x| x+y] f(10)
-if (true, 1, 2)
-if (false, 1, 2)
-begin(1,2,3,4)
-{obj: x, y} = {obj: 1, 2} x+y
-{obj: 5, 10, z} = {obj: 5, 10, 15} z
-[{obj: 10, x}| x]({obj: 10, -5})
-[{obj: {algo}, x}| x]({obj: {algo}, 13})
-[{obj: {algo: 10}, x}| x]({obj: {algo: 10}, 1})
-[{obj: {algo: x}, y}| x+y]({obj: {algo: 1}, 2})
-[{obj: {algo: x}, y}, 1, z, {ok}| x+y+z]({obj: {algo: 1}, 2}, 1, 10, {ok})
-[{ok}| 10]({ok})
-{obj: 1, x} -> f = [x] {obj: 2, x} -> f = [x+1] a = {obj: 2, 20} a -> f()
-{obj: 1, x} -> f = [x] {obj: 2, x} -> f = [x+1] a = {obj: 1, 20} a -> f()
-{obj: x} -> f = [x-1] {obj: 1} -> f()
-{obj: 1, 2, 3, x} -> f = [1+2+3+x] {obj: 1, 2, 3, 10}->f()
-f = [_,x,_| x*2] f(1,2,3)
-f = [{obj: {xxx: _}, x}, y| x+y] f({obj: {xxx: 1}, 2}, 3)
-list_sum = [{list: head, tail}| head + list_sum(tail)], [{list}| 0] list_sum({list: 1, {list: 2, {list}}})
-f = [x| x(10)] g = [x| x+1] f(g)
-"aaaaa"->append("bbbbb")
-"aaaaa"->equal("bbbbb")
-"aaaaa"->equal("aaaaa")
-"abcde"->at(2)
-"abcde"->capitalize()
-"abcde"->center(10)
-"aBcDe"->downcase()
-"aBcDe"->is_empty()
-"0xB"->hex()
-"abcde"->index("c")
-"abcde"->insert(3, "X")
-"abcde"->length()
-"10"->oct()
-"abcde"->reverse()
-"10"->to_integer()
-"10.11"->to_decimal()
-"aBcDe"->upcase()
-(-1)->abs()
-(-1)->next()
-(-1)->to_decimal()
-(-1)->to_string()
-(-1.1)->abs()
-(-1.1)->ceil()
-(-1.1)->floor()
-(-1.1)->to_string()

data/test/test_vm_results.txt

@@ -1,64 +0,0 @@
-1
-3
--3
-6
-3
-5.5
-1
-false
-true
-false
-false
-false
-true
-3
-3
-7
-17
-15
-21
-12
-1
-2
-4
-3
-15
--5
-13
-1
-3
-13
-10
-21
-20
-0
-16
-4
-5
-3
-11
-"aaaaabbbbb"
-false
-true
-"c"
-"Abcde"
-"  abcde   "
-"abcde"
-false
-11
-2
-"abcXde"
-5
-8
-"edcba"
-10
-10.11
-"ABCDE"
-1
-0
--1.0
-"-1"
-1.1
--1
--2
-"-1.1"