/[eiffelstudio]/trunk/eweasel/tests/exec235/a.e
ViewVC logotype

Contents of /trunk/eweasel/tests/exec235/a.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: 1058 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 indexing
2 description: ""
3 date: "$Date$"
4 revision: "$Revision$"
5
6 class
7 A [G]
8
9 feature
10 neutral (i: INTEGER) is do end
11
12 f1 (a_g: G) is
13 do
14 neutral ($MELT1)
15 io.new_line;
16 (agent p).call ([a_g])
17 end
18
19 f2 (a_g: G) is
20 do
21 neutral ($MELT2)
22 io.new_line;
23 (agent (a_g2: G)
24 do
25 print (a_g2.out)
26 io.new_line
27 end).call ([a_g])
28 end
29
30 p (a_g: G) is
31 do
32 neutral ($MELT3)
33 io.new_line
34 print (a_g.out)
35 io.new_line
36 end
37
38 receive_f (a_f: FUNCTION [ANY, TUPLE [INTEGER, G], G]; a1: INTEGER; a2: G) is
39 local
40 t: TUPLE [INTEGER, G]
41 do
42 neutral ($MELT4)
43 t := [a1, a2]
44 print (a_f.item ([a1, a2]).out)
45 io.new_line
46 print (a_f.item (t).out)
47 io.new_line
48 a_f.call ([a1, a2])
49 print (a_f.last_result)
50 a_f.call (t)
51 print (a_f.last_result)
52 io.new_line
53 end
54
55 receive_p (a_p: PROCEDURE [ANY, TUPLE [INTEGER, G]]; a1: INTEGER; a2: G) is
56 local
57 t: TUPLE [INTEGER, G]
58 do
59 neutral ($MELT5)
60 t := [a1, a2]
61 a_p.call ([a1, a2])
62 io.new_line
63 a_p.call (t)
64 io.new_line
65 end
66
67
68 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23