/[eiffelstudio]/trunk/eweasel/tests/melt040/test_rev1.e
ViewVC logotype

Contents of /trunk/eweasel/tests/melt040/test_rev1.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65297 - (show annotations)
Thu Nov 30 20:22:33 2006 UTC (13 years ago) by manus
File size: 1251 byte(s)
Moved from trunk/Src/eweasel to trunk/eweasel so that a simple checkout of the source code is not penalized by the lenghty process of checking out all the tests of eweasel.
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 is
13 local
14 a: TEST1 [DOUBLE];
15 b: TEST1 [INTEGER];
16 c: TEST1 [REAL];
17 d: TEST1 [BOOLEAN];
18 e: TEST1 [CHARACTER];
19 f: TEST1 [POINTER];
20 g: TEST1 [STRING];
21 p: POINTER;
22 do
23 !!a;
24 io.putdouble (a # 13.47); io.new_line;
25 io.putdouble (a # 13); io.new_line;
26 io.putdouble (a # Double_const); io.new_line;
27 io.putdouble (a # Real_const); io.new_line;
28 io.putdouble (a # Integer_const); io.new_line;
29 !!b;
30 io.putint (b # 13); io.new_line;
31 io.putint (b # Integer_const); io.new_line;
32 !!c;
33 io.putreal (c # 13.47); io.new_line;
34 io.putreal (c # 13); io.new_line;
35 io.putreal (c # Real_const); io.new_line;
36 io.putreal (c # Integer_const); io.new_line;
37 !!d;
38 io.putbool (d # True); io.new_line;
39 !!e;
40 io.putchar (e # 'Z'); io.new_line;
41 !!f;
42 print (f # p); io.new_line;
43 !!g;
44 io.putstring (g # "weasel"); io.new_line;
45 $INSTRUCTION;
46 end
47
48 Double_const: DOUBLE is 29.47;
49 Real_const: REAL is 29.47;
50 Integer_const: INTEGER is 13;
51
52 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23