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

Contents of /trunk/eweasel/tests/fixed016/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: 827 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
12 -- To reproduce error:
13 -- Compile this class as is.
14 -- Then uncomment out the two lines at end of `make'
15 -- and the declaration of `prefix "or"' below and rerun es3.
16 -- When it stops with syntax error, change both the declaration
17 -- of prefix "or" to prefix "+" and the call to `+ Current'.
18
19 make is
20 local
21 s: STRING;
22 do
23 s := Current @index 3;
24 print (s);
25 s := Current @Index 3;
26 print (s);
27 s := Current @INDEX 3;
28 print (s);
29 end;
30
31 infix "@index" (a: INTEGER): STRING is
32 do
33 io.putstring ("In lowercase index%N");
34 Result := "1";
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