version 0.7.0

tests/tobjects.nim

@@ -2,13 +2,14 @@ type
   TBase = object
     x, y: int
 
+  TSubclassKind = enum ka, kb, kc, kd, ke, kf
   TSubclass = object of TBase
-    c: int
-    case c
-    of 0, 1, 2, 3:
+    case c: TSubclassKind
+    of ka, kb, kc, kd:
       a, b: int
-    of 4:
+    of ke:
       d, e, f: char
+    else: nil
     n: bool
 
 var
@@ -21,25 +22,21 @@ var
 
 case i
 of 500..999: write(stdout, "ha!\n")
-of 1000..3000, 12: write(stdout, "ganz schön groß\n")
+of 1000..3000, 12: write(stdout, "ganz schön groß\n")
 of 1, 2, 3: write(stdout, "1 2 oder 3\n")
 else: write(stdout, "sollte nicht passieren\n")
 
-case r
-of 0.0, 0.125..0.4444: write(stdout, "kleiner als 0.5\n")
-else: write(stdout, "weiß nicht\n")
-
 case readLine(stdin)
 of "Rumpf": write(stdout, "Hallo Meister!\n")
 of "Andreas": write(stdout, "Hallo Meister!\n")
 else: write(stdout, "Nicht mein Meister!\n")
 
 global = global + 1
-write(stdout, "Hallo wie heißt du? \n")
+write(stdout, "Hallo wie heißt du? \n")
 s = readLine(stdin)
 i = 0
-while i < length(s):
+while i < len(s):
   if s[i] == 'c': write(stdout, "'c' in deinem Namen gefunden\n")
   i = i + 1
 
-write(stdout, "Du heißt " & s)
+write(stdout, "Du heißt " & s)