unmaintained/jni/jni.factor

   1 ! Copyright (C) 2006 Chris Double.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 IN: jni
   4 USING: kernel jni-internals namespaces ;
   5
   6 ! High level interface for JNI to be added here...
   7
   8 : test0 ( -- )
   9   jni2 drop nip "env" set ;
  10
  11 : test1 ( -- system )
  12   "java/lang/System" "env" get find-class ;
  13
  14 : test2 ( system -- system.out )
  15   dup "out" "Ljava/io/PrintStream;" "env" get get-static-field-id
  16   "env" get get-static-object-field ;
  17
  18 : test3 ( int system.out -- )
  19   "java/io/PrintStream" "env" get find-class ! jstr out class
  20   "println" "(I)V" "env" get get-method-id ! jstr out id
  21   rot "env" get call1 ;
  22