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

Contents of /trunk/eweasel/tests/ccomp017/test.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: 910 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 make is
12 local
13 t: ANY;
14 do
15 g := 'a';
16
17 t ?= a;
18 show (t);
19 t ?= b;
20 show (t);
21 t ?= c;
22 show (t);
23 t ?= d;
24 show (t);
25 t ?= e;
26 show (t);
27 t ?= f;
28 show (t);
29 t ?= g;
30 show (t);
31 t ?= h;
32 show (t);
33 t ?= i;
34 show (t);
35 t ?= j;
36 show (t);
37 t ?= k;
38 show (t);
39 t ?= p;
40 show (t);
41 end
42
43 show (v: ANY) is
44 do
45 print (v = Void); io.new_line;
46 print (v); io.new_line;
47 end
48
49 a: DOUBLE;
50 b: DOUBLE is 3.14159;
51 c: REAL;
52 d: REAL is 2.718;
53 e: INTEGER;
54 f: INTEGER is 47;
55 g: CHARACTER;
56 h: CHARACTER is 'Z';
57 i: BOOLEAN;
58 j: BOOLEAN is False;
59 k: POINTER;
60
61 p: DOUBLE is
62 do
63 Result := 1.414;
64 end
65
66 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23