1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
class EXAMPLE
--
-- The Eiffel program is running first, then call the C program
-- which is in charge to call the Eiffel feature `show_values' of
-- this EXAMPLE class.
--
-- To compile this example, use command :
--
-- compile -cecil cecil.se example c_prog.c
--
-- Is is also possible to do :
--
-- gcc -c c_prog.c
-- compile -cecil cecil.se example c_prog.o
--
creation make
feature
make is
do
values := <<1,2,3>>;
call_c_prog(Current);
end;
show_values is
local
i: INTEGER;
do
from
i := values.lower;
until
i > values.upper
loop
io.put_integer(values.item(i));
io.put_new_line;
i := i + 1;
end;
end;
feature {NONE}
values: ARRAY[INTEGER];
call_c_prog(current_object: like Current) is
external "C"
alias "c_prog"
end;
end -- EXAMPLE
|
