Add tasks for all the new languages

This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions

View file

@ -0,0 +1,7 @@
type int42(object i)
return i=42
end type
int42 i
i = 41 -- type-check failure

View file

@ -0,0 +1,13 @@
global constant DEBUG = 0 -- (or any other identifier name can be used)
global procedure assert(integer flag, string msg)
if DEBUG then
if not flag then
{} = message_box(msg,"failed assertion",MB_OK) -- or
puts(1,msg) -- , and/or
crash(msg) -- crash/ex.err report -- or
trace(1) -- start debugging
end if
end if
end function
assert(i=42,"i is not 42!!")

View file

@ -0,0 +1,2 @@
if i!=42 then ?9/0 end if
if i!=42 then crash("i is not 42!!") end if