home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / dev / ppcsmalleiffel / lib_show / external / jvm / example2.e < prev    next >
Encoding:
Text File  |  1998-01-16  |  975 b   |  43 lines
  1. -- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C) 
  2. -- Dominique COLNET and Suzanne COLLIN -- colnet@loria.fr
  3. --
  4. class EXAMPLE2
  5.    --   
  6.    -- Some examples to call a virtual Java function using
  7.    -- external "JVM_invokevirtual"
  8.    --
  9.  
  10. creation make
  11.    
  12. feature 
  13.    
  14.    make is
  15.       local
  16.      p: POINTER;
  17.      i: INTEGER;
  18.       do
  19.      io.put_string("Calling java.lang.Double.toString(1.0);%N");
  20.      p := java_lang_double_to_string(1.0);
  21.      -- Local `p' is a Java String.
  22.  
  23.      io.put_string("Calling java/lang/String.length();%N");
  24.      i := java_lang_string_length(p);
  25.      io.put_string("Result = ");
  26.      io.put_integer(i);
  27.      io.put_new_line;
  28.       end;
  29.  
  30. feature {NONE}
  31.    
  32.    java_lang_double_to_string(d: DOUBLE): POINTER is
  33.       external "JVM_invokestatic"
  34.       alias "java/lang/Double.toString (D)Ljava/lang/String;"
  35.       end;
  36.  
  37.    java_lang_string_length(p: POINTER): INTEGER is
  38.       external "JVM_invokevirtual"
  39.       alias "java/lang/String.length ()I"
  40.       end;
  41.  
  42. end
  43.