Initial import

This commit is contained in:
Andreas Rumpf 2008-06-22 16:14:11 +02:00
commit 405b86068e
324 changed files with 163599 additions and 0 deletions

20
tests/tcasestm.nim Executable file
View file

@ -0,0 +1,20 @@
# Test the case statment
type
tenum = enum eA, eB, eC
var
x: string
y: Tenum = eA
case y
of eA: write(stdout, "a\n")
of eB, eC: write(stdout, "b oder c\n")
x = readLine(stdin)
case x
of "Andreas", "Rumpf": write(stdout, "Hallo Meister!\n")
of "aa", "bb": write(stdout, "Du bist nicht mein Meister\n")
of "cc", "hash", "when": nil
of "will", "it", "finally", "be", "generated": nil
else: write(stdout, "das sollte nicht passieren!\N")