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

Contents of /trunk/eweasel/tests/exec168/test.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65297 - (show annotations)
Thu Nov 30 20:22:33 2006 UTC (13 years, 2 months ago) by manus
File size: 800 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 inherit
9 TEST1
10 rename
11 weasel as infix "@",
12 stoat as infix "@@",
13 ermine as infix "@@@",
14 infix "@@@1" as hamster1,
15 infix "@@@2" as hamster2,
16 infix "@@@3" as hamster3
17 end
18 creation
19 make
20 feature
21 make is
22 do
23 local_try;
24 try;
25 end
26
27 local_try is
28 do
29 io.put_double (Current @ 13.9); io.new_line;
30 io.put_double (Current @@ 14.9); io.new_line;
31 io.put_double (Current @@@ 15.9); io.new_line;
32 io.put_double (hamster1 (5.9)); io.new_line;
33 io.put_double (hamster2 (6.9)); io.new_line;
34 io.put_double (hamster3 (7.9)); io.new_line;
35 end
36
37 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23