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

Contents of /branches/eth/eve/eweasel/tests/exec166/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: 715 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 inherit
9 ANY
10 creation
11 default_create,
12 make
13
14 convert
15 to_expanded: {expanded TEST}
16
17 feature
18 make is
19 local
20 n: INTEGER
21 do
22 n := weasel (Current);
23 print (n > 0); io.new_line
24 end;
25
26 weasel (x: expanded TEST): INTEGER is
27 external
28 "C macro signature (EIF_INTEGER): EIF_INTEGER use %"eif_eiffel.h%""
29 alias
30 "abs"
31 end
32
33 to_expanded: expanded TEST is
34 do
35 end
36 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23