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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65296 - (hide annotations)
Thu Nov 30 19:56:25 2006 UTC (13 years, 2 months ago) by manus
Original Path: trunk/Src/eweasel/tests/melt040/test_rev1.e
File size: 1251 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 manus 65296
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