Changeset ecb6ac32 in mainline for uspace/dist/src/sysel/demos/varargs.sy

Timestamp:

2010-04-04T22:32:39Z (14 years ago)

Author:

Jiri Svoboda <jiri@…>

Branches:

lfn, master, serial, ticket/834-toolchain-update, topic/msim-upgrade, topic/simplify-dev-export

Children:

0a72efc

Parents:

73060801 (diff), 23de644 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge from lp:~jsvoboda/helenos/sysel.

File:

• uspace/dist/src/sysel/demos/varargs.sy (modified) (2 diffs)

uspace/dist/src/sysel/demos/varargs.sy

@@ -33 +33 @@
         -- with the attribute 'packed'.
         --
-        -- Note that we need to pass 'n' just because the array type
-        -- does not implement the Length property yet.
-        --
-        fun Print(n : int; args : string[], packed) is
+        fun Print(args : string[], packed) is
                 var i : int;
+                var error : int;
 
+                error = 0;
                 i = 0;
-                while i < n do
-                        Builtin.WriteLine(args[i]);
+                while error == 0 do
+                        -- This is definitely the wrong way to determine
+                        -- array bounds, but until a better one is
+                        -- implemented...
+                        do
+                                Builtin.WriteLine(args[i]);
+                        except e : Error.OutOfBounds do
+                                error = 1;
+                        end
+
                         i = i + 1;
                 end
@@ -47 +54 @@
 
         fun Main() is
-                Print(5, "One", "Two", "Three", "Four", "Five");
+                Print("One", "Two", "Three", "Four", "Five");
         end
 end