class EXAMPLE
   --
   -- The Eiffel program is running first, then calls the C program, which is in charge of adding
   -- two INTEGERs using the infix "+" feature of class INTEGER.
   --
   -- To compile this example, use command:
   --
   --  se c -cecil cecil.se example c_prog.c
   --

create {ANY}
   make

feature {ANY}
   make
      local
         i1, i2, sum: INTEGER
      do
         i1 := 2
         i2 := 3
         io.put_integer(i1)
         io.put_string(" + ")
         io.put_integer(i2)
         io.put_string(" = ")
         sum := call_c_prog(i1, i2)
         io.put_integer(sum)
         io.put_string("%N")
      end

feature {}
   call_c_prog (i1, i2: INTEGER): INTEGER
      external "C"
      alias "c_prog"
      end

end -- class EXAMPLE