get utf chars now returns addr u

parent cfb0e136
Pipeline #1259 passed with stage
in 11 minutes and 13 seconds
......@@ -206,7 +206,7 @@ Variable iscopy
over >r fieldenv JNIEnv-ReleaseStringUTFChars() r> ]xref ;
: jstring>sstring ( string -- addr u ) jfree
dup >r iscopy fieldenv JNIEnv-GetStringUTFChars()
r> third to-release 2! ;
r> over to-release 2! cstring>sstring ;
: .jstring ( string -- ) jstring>sstring type jfree ;
0 Value jniclass
......
......@@ -35,7 +35,7 @@ extern struct _IO_FILE *stderr;
#define JNINativeInterface_ JNINativeInterface
#define JNIInvokeInterface_ JNIInvokeInterface
// exec: sed -e s/JNINativeInterface-/JNIEnv-/g -e s/JNIInvokeInterface-/JavaVM-/g -e 's/\(c-function .*\)/\\ \1/g' -e 's/\(ReleaseStringUTFChars.*\) a a s/\1 a a a/g' -e 's/s" c" add-lib/s" ((struct JNI:*(Cell*)(x.spx\[arg0])" ptr-declare $+\[]!/g' | grep -v '\.\.\. --'
// exec: sed -e s/JNINativeInterface-/JNIEnv-/g -e s/JNIInvokeInterface-/JavaVM-/g -e 's/\(c-function .*\)/\\ \1/g' -e 's/\(ReleaseStringUTFChars.*\) a a s/\1 a a a/g' -e 's/s" c" add-lib/s" ((struct JNI:*(Cell*)(x.spx\[arg0])" ptr-declare $+\[]!/g' -e 's/-- s/-- a/g' | grep -v '\.\.\. --'
%apply char { jbyte, jboolean };
%apply short { jshort, jchar };
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment