Added more debug vsl

main
Øyvind Skaaden 2022-04-22 18:40:36 +02:00
parent 57cc3f62fc
commit 77376dc1ef
4 changed files with 129 additions and 1 deletions

View File

@ -28,4 +28,6 @@ func main() begin
if my_func(1, 2, 3, 5, 8, 13, 21, 34) > 3 then begin
print "True!"
end
return 0
end

View File

@ -0,0 +1,57 @@
// This program is a simple test of while loops, counting down from 19 to 0
// and skipping 10 (if continue is implemented)
func while_test ()
begin
var a, b
a := 20
b := test_while()
print a
if a > 0 then print "foobar"
while a > 0 do
begin
if a = 10 then
begin
a -= 1
print "Skip..."
continue
end
else
a -= 1
print a
end
return 0
end
func test_while()
begin
var n, m
n := 4
m := 21
while n > 0 do
begin
n -= 1
if n = 2 then
continue
while m > 0 do
begin
m -= 1
if m = 10 then
continue
print n, m
end
end
return 0
end

View File

@ -0,0 +1,35 @@
func my_func(a, b, c, d, e, f, g, h) begin
var i, j, k, l, m
i := a + b + d
print i, f
if i = f then begin
print "hmmm"
end
if 1 < 2 then begin
print "Whaa"
end
else begin
print "Whooo"
end
return i
end
func main() begin
var n, o, p, q, r, s, t, u, v, w
n := 5
n += my_func(1, 2, 3, 5, 8, 13, 21, 34)
if my_func(1, 2, 3, 5, 8, 13, 21, 34) > 3 then begin
print "True!"
end
return 0
end

View File

@ -3,9 +3,14 @@
func while_test ()
begin
var a
var a, b
a := 20
b := test_while()
print a
if a > 0 then print "foobar"
while a > 0 do
begin
@ -19,5 +24,34 @@ begin
a -= 1
print a
end
return 0
end
func test_while()
begin
var n, m
n := 4
m := 21
while n > 0 do
begin
n -= 1
if n = 2 then
continue
while m > 0 do
begin
m -= 1
if m = 10 then
continue
print n, m
end
end
return 0
end