source: mainline/uspace/dist/sysel/varargs.sy@ d0febca

lfn serial ticket/834-toolchain-update topic/msim-upgrade topic/simplify-dev-export
Last change on this file since d0febca was 94d484a, checked in by Jiri Svoboda <jiri@…>, 15 years ago

Update SBI to rev. 90.

  • Property mode set to 100644
File size: 1.9 KB
Line 
1--
2-- Copyright (c) 2010 Jiri Svoboda
3-- All rights reserved.
4--
5-- Redistribution and use in source and binary forms, with or without
6-- modification, are permitted provided that the following conditions
7-- are met:
8--
9-- o Redistributions of source code must retain the above copyright
10-- notice, this list of conditions and the following disclaimer.
11-- o Redistributions in binary form must reproduce the above copyright
12-- notice, this list of conditions and the following disclaimer in the
13-- documentation and/or other materials provided with the distribution.
14-- o The name of the author may not be used to endorse or promote products
15-- derived from this software without specific prior written permission.
16--
17-- THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18-- IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19-- OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20-- IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21-- INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22-- NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23-- DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24-- THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25-- (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26-- THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27--
28
29class VariadicArgumentsDemo is
30 --- Variadic function example.
31 --
32 -- A variadic function is declared by marking its last argument
33 -- with the attribute 'packed'.
34 --
35 -- Note that we need to pass 'n' just because the array type
36 -- does not implement the Length property yet.
37 --
38 fun Print(n : int; args : string[], packed) is
39 var i : int;
40
41 i = 0;
42 while i < n do
43 Builtin.WriteLine(args[i]);
44 i = i + 1;
45 end
46 end
47
48 fun Main() is
49 Print(5, "One", "Two", "Three", "Four", "Five");
50 end
51end
Note: See TracBrowser for help on using the repository browser.