home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Programming / sofa / archive / SmallEiffel.lha / SmallEiffel / lib_show / cecil / example8 / example.e < prev    next >
Encoding:
Text File  |  1999-06-05  |  578 b   |  31 lines
  1. class EXAMPLE
  2.    --
  3.    -- This example shows how to create Eiffel objects from C.
  4.    --
  5.    -- To compile this example, use command :
  6.    --
  7.    --         compile -cecil cecil.se example c_prog.c
  8.    --
  9.  
  10. creation make
  11.  
  12. feature
  13.  
  14.    make is
  15.       local
  16.          c_factory: C_FACTORY;
  17.          string: STRING;
  18.       do
  19.          !!c_factory;
  20.          string := call_c_prog(c_factory);
  21.          io.put_string(string);
  22.          io.put_new_line;
  23.       end;
  24.  
  25.    call_c_prog(c_factory: C_FACTORY): STRING is
  26.       external "C_WithoutCurrent"
  27.       alias "c_prog"
  28.       end;
  29.  
  30. end -- EXAMPLE
  31.