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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 83441 - (show annotations)
Sat Jun 5 13:52:53 2010 UTC (9 years, 7 months ago) by jasonw
File size: 2001 byte(s)
Renamed branch eve3 to eve. The eve branch serves as the new branch for the EVE project.
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 i: INTEGER;
15 r: REAL;
16 d: DOUBLE;
17 do
18 i := 47;
19 r := {REAL_32} 47.25;
20 d := 47.5;
21
22 ia := 47;
23 ra := {REAL_32} 47.25;
24 da := 47.5;
25
26 weasel1 (47);
27 weasel1 (Constant1);
28 weasel1 (i);
29 weasel1 (ia);
30
31 weasel2 (47);
32 weasel2 (Constant1);
33 weasel2 (i);
34 weasel2 (ia);
35
36 wimp1 (47);
37 wimp1 (Constant1);
38 wimp1 (Constant2);
39 wimp1 ({REAL_32} 47.5);
40 wimp1 (i);
41 wimp1 (r);
42 wimp1 (ia);
43 wimp1 (ra);
44
45 hamster (47);
46 hamster (Constant1);
47 hamster (Constant2);
48 hamster (Constant3);
49 hamster (i);
50 hamster (r);
51 hamster (d);
52 hamster (ia);
53 hamster (ra);
54 hamster (da);
55
56 weasel3 (47);
57 weasel3 (Constant1);
58 weasel3 (i);
59 weasel3 (ia);
60
61 wimp2 (47);
62 wimp2 (Constant1);
63 wimp2 (Constant2);
64 wimp2 ({REAL_32} 47.5);
65 wimp2 (i);
66 wimp2 (r);
67 wimp2 (ia);
68 wimp2 (ra);
69
70 turkey (47);
71 turkey (Constant1);
72 turkey (Constant2);
73 turkey (Constant3);
74 turkey (47.5);
75 turkey (i);
76 turkey (r);
77 turkey (d);
78 turkey (ia);
79 turkey (ra);
80 turkey (da);
81 end
82
83 ia: INTEGER;
84 ra: REAL;
85 da: DOUBLE;
86
87 weasel1 (arg: $ARG_TYPE1 ) is
88 do
89 print (arg); io.new_line;
90 end
91
92 weasel2 (arg: $ARG_TYPE2 ) is
93 do
94 print (arg); io.new_line;
95 end
96
97 weasel3 (arg: $ARG_TYPE3 ) is
98 do
99 print (arg); io.new_line;
100 end
101
102 wimp1 (arg: $ARG_TYPE4 ) is
103 do
104 print (arg); io.new_line;
105 end
106
107 wimp2 (arg: $ARG_TYPE5 ) is
108 do
109 print (arg); io.new_line;
110 end
111
112 turkey (arg: $ARG_TYPE6 ) is
113 do
114 print (arg); io.new_line;
115 end
116
117 hamster (arg: $ARG_TYPE7 ) is
118 do
119 print (arg); io.new_line;
120 end
121
122 Constant1: INTEGER is 47;
123 Constant2: REAL is 47.25;
124 Constant3: DOUBLE is 47.5;
125 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23