/[eiffelstudio]/branches/eth/eve/eweasel/tests/exec057/test.e
ViewVC logotype

Contents of /branches/eth/eve/eweasel/tests/exec057/test.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 84016 - (show annotations)
Mon Jul 26 09:16:52 2010 UTC (9 years, 6 months ago) by wests
File size: 597 byte(s)
<<Merged from trunk#84001.>>
1
2 --| Copyright (c) 1993-2006 University of Southern California and contributors.
3 --| All rights reserved.
4 --| Your use of this work is governed under the terms of the GNU General
5 --| Public License version 2.
6
7 class TEST
8 creation
9 make
10 feature
11
12 make (args: ARRAY [STRING]) is
13 local
14 k, count: INTEGER
15 do
16 count := args.item (1).to_integer;
17 !!weasel.make_filled (wimp, 1, count);
18 from
19 k := weasel.lower;
20 until
21 k > weasel.upper
22 loop
23 -- io.putint (k); io.new_line;
24 weasel.put (wimp, k);
25 k := k + 1;
26 end
27 end;
28
29 weasel: ARRAY [TEST1];
30
31 wimp: TEST1;
32
33 end

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

  ViewVC Help
Powered by ViewVC 1.1.23