/[eiffelstudio]/trunk/Src/eweasel/tests/list002/test.e
ViewVC logotype

Contents of /trunk/Src/eweasel/tests/list002/test.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65296 - (show annotations)
Thu Nov 30 19:56:25 2006 UTC (13 years, 1 month ago) by manus
File size: 555 byte(s)
Initial revision for the eweasel delivery provided by David Hollenberg
  from the University of Southern California under the GPL v2.0 license.

1 class
2 TEST
3
4 create
5
6 make
7
8 feature {NONE} -- Initialization
9
10 make is
11 -- Execute test.
12 local
13 l: LIST [INTEGER]
14 i: INTEGER
15 do
16 from i := 1 until i > 2 loop
17 inspect
18 i
19 when 1 then
20 create {LINKED_LIST [INTEGER]} l.make
21 when 2 then
22 create {ARRAYED_LIST [INTEGER]} l.make (5)
23 end
24 l.extend (1)
25 l.extend (2)
26 l.extend (3)
27 from l.start until l.after loop
28 l.replace (l.item + 1)
29 Io.put_integer (l.item)
30 Io.put_new_line
31 l.forth
32 end
33 i := i + 1
34 end
35 end
36
37 end -- class TEST

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23