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

Contents of /branches/eth/eve/eweasel/tests/exec008/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: 670 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 -- To reproduce error:
8 -- Compile class as is. Finish_freezing. Execute `test'.
9 -- Calls infix "+" before prefix "##" (wrong precedence).
10
11 class
12 TEST
13 creation
14 make
15 feature
16
17 make is
18 local
19 k: TEST;
20 do
21 k := ## Current + Current;
22 end;
23
24 prefix "##": TEST is
25 do
26 io.putstring ("In prefix %"##%"%N");
27 Result := Current;
28 end;
29
30 infix "+" (arg: TEST): TEST is
31 do
32 io.putstring ("In infix %"+%"%N");
33 Result := Current;
34 end
35 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23