home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Programming / sofa / archive / SmallEiffel.lha / SmallEiffel / lib_show / cecil / JVM / root3.e < prev    next >
Text File  |  1999-06-05  |  322b  |  24 lines
  1. class ROOT3
  2.  
  3. creation make
  4.  
  5. feature
  6.  
  7.    make is
  8.          -- Dummy root procedure to make some live code.
  9.       do
  10.          put_string(get_string);
  11.       end;
  12.  
  13.    get_string: STRING is
  14.       do
  15.          Result := "Hi from ROOT3%N"
  16.       end;
  17.  
  18.    put_string(s: STRING) is
  19.       do
  20.          io.put_string(s);
  21.       end;
  22.  
  23. end
  24.