verbena 0.2.0

Scripting language
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87




# Also test leading blank lines



fn succ(a)
	a+1
end

print(succ(2))

a=1
b=2

fn foo()
	outer a
	a*=10
	b*=10
end

foo()
assert a==10
assert b==2

x=1

fn loop1()
	for x: [20,21,22]
		print x
	end
end

loop1()
assert x==1

fn loop2()
	outer x
	for x: [20,21,22]
		print x
	end
end

loop2()
assert x==22

fn many(a)
	len(arguments)
end

assert many()==0
assert many(1)==1
assert many(1,2)==2

a=1
b=1
c=1

fn interspersed_blank_lines()

	outer a

	outer b

	a+=1
	b+=1
	c+=1
end

interspersed_blank_lines()
assert a==2
assert b==2
assert c==1

fn two(a,b)
	if a==null
		a='o'
	end
	if b==null
		b='o'
	end
	a+b
end

assert two('a','b')=='ab'
assert two('a')=='ao'