ikvm-native/jni.c

   1 /*
   2   Copyright (C) 2004 Jeroen Frijters
   3
   4   This software is provided 'as-is', without any express or implied
   5   warranty.  In no event will the authors be held liable for any damages
   6   arising from the use of this software.
   7
   8   Permission is granted to anyone to use this software for any purpose,
   9   including commercial applications, and to alter it and redistribute it
  10   freely, subject to the following restrictions:
  11
  12   1. The origin of this software must not be misrepresented; you must not
  13      claim that you wrote the original software. If you use this software
  14      in a product, an acknowledgment in the product documentation would be
  15      appreciated but is not required.
  16   2. Altered source versions must be plainly marked as such, and must not be
  17      misrepresented as being the original software.
  18   3. This notice may not be removed or altered from any source distribution.
  19
  20   Jeroen Frijters
  21   jeroen@frijters.net
  22
  23 */
  24 #include <stdarg.h>
  25 #include "jni.h"
  26
  27 #ifdef _WIN32
  28 #include <malloc.h>
  29 #define ALLOCA _alloca
  30 #else
  31 #include <alloca.h>
  32 #define ALLOCA alloca
  33 #endif
  34
  35 static jobject JNICALL NewObject(JNIEnv* pEnv, jclass clazz, jmethodID methodID, ...)
  36 {
  37         jobject o;
  38         va_list args;
  39         va_start(args, methodID);
  40         o = (*pEnv)->NewObjectV(pEnv, clazz, methodID, args);
  41         va_end(args);
  42         return o;
  43 }
  44
  45 #define MAKE_ARG_ARRAY(pEnv, args, argarray) \
  46 do { \
  47         jbyte sig[257];\
  48         int argc = (*pEnv)->GetMethodArgs(pEnv, methodID, sig);\
  49         int i;\
  50         argarray = (jvalue*)ALLOCA(argc * sizeof(jvalue));\
  51         for(i = 0; i < argc; i++)\
  52         {\
  53                 switch(sig[i])\
  54                 {\
  55                 case 'Z':\
  56                 case 'B':\
  57                 case 'S':\
  58                 case 'C':\
  59                 case 'I':\
  60                         argarray[i].i = va_arg(args, jint);\
  61                         break;\
  62                 case 'J':\
  63                         argarray[i].j = va_arg(args, jlong);\
  64                         break;\
  65                 case 'L':\
  66                         argarray[i].l = va_arg(args, jobject);\
  67                         break;\
  68                 case 'D':\
  69                         argarray[i].d = va_arg(args, double);\
  70                         break;\
  71                 case 'F':\
  72                         argarray[i].f = (float)va_arg(args, double);\
  73                         break;\
  74                 }\
  75         }\
  76 } while(0);
  77
  78 static jobject JNICALL NewObjectV(JNIEnv* pEnv, jclass clazz, jmethodID methodID, va_list args)
  79 {
  80         jvalue* argarray;
  81         MAKE_ARG_ARRAY(pEnv, args, argarray);
  82         return (*pEnv)->NewObjectA(pEnv, clazz, methodID, argarray);
  83 }
  84
  85 #define MAKE_METHOD(Type, type) \
  86 static type JNICALL Call##Type##Method(JNIEnv* pEnv, jobject obj, jmethodID methodID, ...)\
  87 {\
  88         type ret;\
  89         va_list args;\
  90         va_start(args, methodID);\
  91         ret = (*pEnv)->Call##Type##MethodV(pEnv, obj, methodID, args);\
  92         va_end(args);\
  93         return ret;\
  94 }\
  95 static type JNICALL Call##Type##MethodV(JNIEnv* pEnv, jobject obj, jmethodID methodID, va_list args)\
  96 {\
  97         jvalue* argarray;\
  98         MAKE_ARG_ARRAY(pEnv, args, argarray);\
  99         return (*pEnv)->Call##Type##MethodA(pEnv, obj, methodID, argarray);\
 100 }\
 101 static type JNICALL CallNonvirtual##Type##Method(JNIEnv* pEnv, jobject obj, jclass clazz, jmethodID methodID, ...)\
 102 {\
 103         type ret;\
 104         va_list args;\
 105         va_start(args, methodID);\
 106         ret = (*pEnv)->CallNonvirtual##Type##MethodV(pEnv, obj, clazz, methodID, args);\
 107         va_end(args);\
 108         return ret;\
 109 }\
 110 static type JNICALL CallNonvirtual##Type##MethodV(JNIEnv* pEnv, jobject obj, jclass clazz, jmethodID methodID, va_list args)\
 111 {\
 112         jvalue* argarray;\
 113         MAKE_ARG_ARRAY(pEnv, args, argarray);\
 114         return (*pEnv)->CallNonvirtual##Type##MethodA(pEnv, obj, clazz, methodID, argarray);\
 115 }\
 116 static type JNICALL CallStatic##Type##Method(JNIEnv* pEnv, jclass clazz, jmethodID methodID, ...)\
 117 {\
 118         type ret;\
 119         va_list args;\
 120         va_start(args, methodID);\
 121         ret = (*pEnv)->CallStatic##Type##MethodV(pEnv, clazz, methodID, args);\
 122         va_end(args);\
 123         return ret;\
 124 }\
 125 static type JNICALL CallStatic##Type##MethodV(JNIEnv* pEnv, jclass clazz, jmethodID methodID, va_list args)\
 126 {\
 127         jvalue* argarray;\
 128         MAKE_ARG_ARRAY(pEnv, args, argarray);\
 129         return (*pEnv)->CallStatic##Type##MethodA(pEnv, clazz, methodID, argarray);\
 130 }
 131
 132 MAKE_METHOD(Object, jobject)
 133 MAKE_METHOD(Boolean, jboolean)
 134 MAKE_METHOD(Byte, jbyte)
 135 MAKE_METHOD(Char, jchar)
 136 MAKE_METHOD(Short, jshort)
 137 MAKE_METHOD(Int, jint)
 138 MAKE_METHOD(Long, jlong)
 139 MAKE_METHOD(Float, jfloat)
 140 MAKE_METHOD(Double, jdouble)
 141
 142 static void JNICALL CallVoidMethod(JNIEnv* pEnv, jobject obj, jmethodID methodID, ...)
 143 {
 144         va_list args;
 145         va_start(args, methodID);
 146         (*pEnv)->CallVoidMethodV(pEnv, obj, methodID, args);
 147         va_end(args);
 148 }
 149 static void JNICALL CallVoidMethodV(JNIEnv* pEnv, jobject obj, jmethodID methodID, va_list args)
 150 {
 151         jvalue* argarray;
 152         MAKE_ARG_ARRAY(pEnv, args, argarray);
 153         (*pEnv)->CallVoidMethodA(pEnv, obj, methodID, argarray);
 154 }
 155 static void JNICALL CallNonvirtualVoidMethod(JNIEnv* pEnv, jobject obj, jclass clazz, jmethodID methodID, ...)
 156 {
 157         va_list args;
 158         va_start(args, methodID);
 159         (*pEnv)->CallNonvirtualVoidMethodV(pEnv, obj, clazz, methodID, args);
 160         va_end(args);
 161 }
 162 static void JNICALL CallNonvirtualVoidMethodV(JNIEnv* pEnv, jobject obj, jclass clazz, jmethodID methodID, va_list args)
 163 {
 164         jvalue* argarray;
 165         MAKE_ARG_ARRAY(pEnv, args, argarray);
 166         (*pEnv)->CallNonvirtualVoidMethodA(pEnv, obj, clazz, methodID, argarray);
 167 }
 168 static void JNICALL CallStaticVoidMethod(JNIEnv* pEnv, jclass clazz, jmethodID methodID, ...)
 169 {
 170         va_list args;
 171         va_start(args, methodID);
 172         (*pEnv)->CallStaticVoidMethodV(pEnv, clazz, methodID, args);
 173         va_end(args);
 174 }
 175 static void JNICALL CallStaticVoidMethodV(JNIEnv* pEnv, jclass clazz, jmethodID methodID, va_list args)
 176 {
 177         jvalue* argarray;
 178         MAKE_ARG_ARRAY(pEnv, args, argarray);
 179         (*pEnv)->CallStaticVoidMethodA(pEnv, clazz, methodID, argarray);
 180 }
 181
 182 static void* JNIEnv_vtable[] =
 183 {
 184         0, // void JNICALL reserved0();
 185         0, // void JNICALL reserved1();
 186         0, // void JNICALL reserved2();
 187         0, // void JNICALL reserved3();
 188
 189         0, // jint JNICALL GetVersion();
 190
 191         0, // jclass JNICALL DefineClass(const char *name, jobject loader, const jbyte *buf, jsize len);
 192         0, // jclass JNICALL FindClass(const char *name);
 193
 194         0, // jmethodID JNICALL FromReflectedMethod(jobject method);
 195         0, // jfieldID JNICALL FromReflectedField(jobject field);
 196         0, // jobject JNICALL ToReflectedMethod(jclass clazz, jmethodID methodID);
 197
 198         0, // jclass JNICALL GetSuperclass(jclass sub);
 199         0, // jboolean JNICALL IsAssignableFrom(jclass sub, jclass sup);
 200
 201         0, // jobject JNICALL ToReflectedField(jclass clazz, jfieldID fieldID);
 202
 203         0, // jint JNICALL Throw(jthrowable obj);
 204         0, // jint JNICALL ThrowNew(jclass clazz, const char *msg);
 205         0, // jthrowable JNICALL ExceptionOccurred();
 206         0, // void JNICALL ExceptionDescribe();
 207         0, // void JNICALL ExceptionClear();
 208         0, // void JNICALL FatalError(const char *msg);
 209
 210         0, // jint JNICALL PushLocalFrame(jint capacity);
 211         0, // jobject JNICALL PopLocalFrame(jobject result);
 212
 213         0, // jobject JNICALL NewGlobalRef(jobject lobj);
 214         0, // void JNICALL DeleteGlobalRef(jobject gref);
 215         0, // void JNICALL DeleteLocalRef(jobject obj);
 216         0, // jboolean JNICALL IsSameObject(jobject obj1, jobject obj2);
 217
 218         0, // jobject JNICALL NewLocalRef(jobject ref);
 219         0, // jint JNICALL EnsureLocalCapacity(jint capacity);
 220
 221         0, // jobject JNICALL AllocObject(jclass clazz);
 222         NewObject, // jobject JNICALL NewObject(jclass clazz, jmethodID methodID, ...);
 223         NewObjectV, // jobject JNICALL NewObjectV(jclass clazz, jmethodID methodID, va_list args);
 224         0, // jobject JNICALL NewObjectA(jclass clazz, jmethodID methodID, jvalue *args);
 225
 226         0, // jclass JNICALL GetObjectClass(jobject obj);
 227         0, // jboolean JNICALL IsInstanceOf(jobject obj, jclass clazz);
 228
 229         0, // jmethodID JNICALL GetMethodID(jclass clazz, const char *name, const char *sig);
 230
 231         CallObjectMethod, // jobject JNICALL CallObjectMethod(jobject obj, jmethodID methodID, ...);
 232         CallObjectMethodV, // jobject JNICALL CallObjectMethodV(jobject obj, jmethodID methodID, va_list args);
 233         0, // jobject JNICALL CallObjectMethodA(jobject obj, jmethodID methodID, jvalue * args);
 234
 235         CallBooleanMethod, // jboolean JNICALL CallBooleanMethod(jobject obj, jmethodID methodID, ...);
 236         CallBooleanMethodV, // jboolean JNICALL CallBooleanMethodV(jobject obj, jmethodID methodID, va_list args);
 237         0, // jboolean JNICALL CallBooleanMethodA(jobject obj, jmethodID methodID, jvalue * args);
 238
 239         CallByteMethod, // jbyte JNICALL CallByteMethod(jobject obj, jmethodID methodID, ...);
 240         CallByteMethodV, // jbyte JNICALL CallByteMethodV(jobject obj, jmethodID methodID, va_list args);
 241         0, // jbyte JNICALL CallByteMethodA(jobject obj, jmethodID methodID, jvalue *args);
 242
 243         CallCharMethod, // jchar JNICALL CallCharMethod(jobject obj, jmethodID methodID, ...);
 244         CallCharMethodV, // jchar JNICALL CallCharMethodV(jobject obj, jmethodID methodID, va_list args);
 245         0, // jchar JNICALL CallCharMethodA(jobject obj, jmethodID methodID, jvalue *args);
 246
 247         CallShortMethod, // jshort JNICALL CallShortMethod(jobject obj, jmethodID methodID, ...);
 248         CallShortMethodV, // jshort JNICALL CallShortMethodV(jobject obj, jmethodID methodID, va_list args);
 249         0, // jshort JNICALL CallShortMethodA(jobject obj, jmethodID methodID, jvalue *args);
 250
 251         CallIntMethod, // jint JNICALL CallIntMethod(jobject obj, jmethodID methodID, ...);
 252         CallIntMethodV, // jint JNICALL CallIntMethodV(jobject obj, jmethodID methodID, va_list args);
 253         0, // jint JNICALL CallIntMethodA(jobject obj, jmethodID methodID, jvalue *args);
 254
 255         CallLongMethod, // jlong JNICALL CallLongMethod(jobject obj, jmethodID methodID, ...);
 256         CallLongMethodV, // jlong JNICALL CallLongMethodV(jobject obj, jmethodID methodID, va_list args);
 257         0, // jlong JNICALL CallLongMethodA(jobject obj, jmethodID methodID, jvalue *args);
 258
 259         CallFloatMethod, // jfloat JNICALL CallFloatMethod(jobject obj, jmethodID methodID, ...);
 260         CallFloatMethodV, // jfloat JNICALL CallFloatMethodV(jobject obj, jmethodID methodID, va_list args);
 261         0, // jfloat JNICALL CallFloatMethodA(jobject obj, jmethodID methodID, jvalue *args);
 262
 263         CallDoubleMethod, // jdouble JNICALL CallDoubleMethod(jobject obj, jmethodID methodID, ...);
 264         CallDoubleMethodV, // jdouble JNICALL CallDoubleMethodV(jobject obj, jmethodID methodID, va_list args);
 265         0, // jdouble JNICALL CallDoubleMethodA(jobject obj, jmethodID methodID, jvalue *args);
 266
 267         CallVoidMethod, // void JNICALL CallVoidMethod(jobject obj, jmethodID methodID, ...);
 268         CallVoidMethodV, // void JNICALL CallVoidMethodV(jobject obj, jmethodID methodID, va_list args);
 269         0, // void JNICALL CallVoidMethodA(jobject obj, jmethodID methodID, jvalue * args);
 270
 271         CallNonvirtualObjectMethod, // jobject JNICALL CallNonvirtualObjectMethod(jobject obj, jclass clazz, jmethodID methodID, ...);
 272         CallNonvirtualObjectMethodV, // jobject JNICALL CallNonvirtualObjectMethodV(jobject obj, jclass clazz, jmethodID methodID, va_list args);
 273         0, // jobject JNICALL CallNonvirtualObjectMethodA(jobject obj, jclass clazz, jmethodID methodID, jvalue * args);
 274
 275         CallNonvirtualBooleanMethod, // jboolean JNICALL CallNonvirtualBooleanMethod(jobject obj, jclass clazz, jmethodID methodID, ...);
 276         CallNonvirtualBooleanMethodV, // jboolean JNICALL CallNonvirtualBooleanMethodV(jobject obj, jclass clazz, jmethodID methodID, va_list args);
 277         0, // jboolean JNICALL CallNonvirtualBooleanMethodA(jobject obj, jclass clazz, jmethodID methodID, jvalue * args);
 278
 279         CallNonvirtualByteMethod, // jbyte JNICALL CallNonvirtualByteMethod(jobject obj, jclass clazz, jmethodID methodID, ...);
 280         CallNonvirtualByteMethodV, // jbyte JNICALL CallNonvirtualByteMethodV(jobject obj, jclass clazz, jmethodID methodID, va_list args);
 281         0, // jbyte JNICALL CallNonvirtualByteMethodA(jobject obj, jclass clazz, jmethodID methodID, jvalue *args);
 282
 283         CallNonvirtualCharMethod, // jchar JNICALL CallNonvirtualCharMethod(jobject obj, jclass clazz, jmethodID methodID, ...);
 284         CallNonvirtualCharMethodV, // jchar JNICALL CallNonvirtualCharMethodV(jobject obj, jclass clazz, jmethodID methodID, va_list args);
 285         0, // jchar JNICALL CallNonvirtualCharMethodA(jobject obj, jclass clazz, jmethodID methodID, jvalue *args);
 286
 287         CallNonvirtualShortMethod, // jshort JNICALL CallNonvirtualShortMethod(jobject obj, jclass clazz, jmethodID methodID, ...);
 288         CallNonvirtualShortMethodV, // jshort JNICALL CallNonvirtualShortMethodV(jobject obj, jclass clazz, jmethodID methodID, va_list args);
 289         0, // jshort JNICALL CallNonvirtualShortMethodA(jobject obj, jclass clazz, jmethodID methodID, jvalue *args);
 290
 291         CallNonvirtualIntMethod, // jint JNICALL CallNonvirtualIntMethod(jobject obj, jclass clazz, jmethodID methodID, ...);
 292         CallNonvirtualIntMethodV, // jint JNICALL CallNonvirtualIntMethodV(jobject obj, jclass clazz, jmethodID methodID, va_list args);
 293         0, // jint JNICALL CallNonvirtualIntMethodA(jobject obj, jclass clazz, jmethodID methodID, jvalue *args);
 294
 295         CallNonvirtualLongMethod, // jlong JNICALL CallNonvirtualLongMethod(jobject obj, jclass clazz, jmethodID methodID, ...);
 296         CallNonvirtualLongMethodV, // jlong JNICALL CallNonvirtualLongMethodV(jobject obj, jclass clazz, jmethodID methodID, va_list args);
 297         0, // jlong JNICALL CallNonvirtualLongMethodA(jobject obj, jclass clazz, jmethodID methodID, jvalue *args);
 298
 299         CallNonvirtualFloatMethod, // jfloat JNICALL CallNonvirtualFloatMethod(jobject obj, jclass clazz, jmethodID methodID, ...);
 300         CallNonvirtualFloatMethodV, // jfloat JNICALL CallNonvirtualFloatMethodV(jobject obj, jclass clazz, jmethodID methodID, va_list args);
 301         0, // jfloat JNICALL CallNonvirtualFloatMethodA(jobject obj, jclass clazz, jmethodID methodID, jvalue *args);
 302
 303         CallNonvirtualDoubleMethod, // jdouble JNICALL CallNonvirtualDoubleMethod(jobject obj, jclass clazz, jmethodID methodID, ...);
 304         CallNonvirtualDoubleMethodV, // jdouble JNICALL CallNonvirtualDoubleMethodV(jobject obj, jclass clazz, jmethodID methodID, va_list args);
 305         0, // jdouble JNICALL CallNonvirtualDoubleMethodA(jobject obj, jclass clazz, jmethodID methodID, jvalue *args);
 306
 307         CallNonvirtualVoidMethod, // void JNICALL CallNonvirtualVoidMethod(jobject obj, jclass clazz, jmethodID methodID, ...);
 308         CallNonvirtualVoidMethodV, // void JNICALL CallNonvirtualVoidMethodV(jobject obj, jclass clazz, jmethodID methodID, va_list args);
 309         0, // void JNICALL CallNonvirtualVoidMethodA(jobject obj, jclass clazz, jmethodID methodID, jvalue * args);
 310
 311         0, // jfieldID JNICALL GetFieldID(jclass clazz, const char *name, const char *sig);
 312
 313         0, // jobject JNICALL GetObjectField(jobject obj, jfieldID fieldID);
 314         0, // jboolean JNICALL GetBooleanField(jobject obj, jfieldID fieldID);
 315         0, // jbyte JNICALL GetByteField(jobject obj, jfieldID fieldID);
 316         0, // jchar JNICALL GetCharField(jobject obj, jfieldID fieldID);
 317         0, // jshort JNICALL GetShortField(jobject obj, jfieldID fieldID);
 318         0, // jint JNICALL GetIntField(jobject obj, jfieldID fieldID);
 319         0, // jlong JNICALL GetLongField(jobject obj, jfieldID fieldID);
 320         0, // jfloat JNICALL GetFloatField(jobject obj, jfieldID fieldID);
 321         0, // jdouble JNICALL GetDoubleField(jobject obj, jfieldID fieldID);
 322
 323         0, // void JNICALL SetObjectField(jobject obj, jfieldID fieldID, jobject val);
 324         0, // void JNICALL SetBooleanField(jobject obj, jfieldID fieldID, jboolean val);
 325         0, // void JNICALL SetByteField(jobject obj, jfieldID fieldID, jbyte val);
 326         0, // void JNICALL SetCharField(jobject obj, jfieldID fieldID, jchar val);
 327         0, // void JNICALL SetShortField(jobject obj, jfieldID fieldID, jshort val);
 328         0, // void JNICALL SetIntField(jobject obj, jfieldID fieldID, jint val);
 329         0, // void JNICALL SetLongField(jobject obj, jfieldID fieldID, jlong val);
 330         0, // void JNICALL SetFloatField(jobject obj, jfieldID fieldID, jfloat val);
 331         0, // void JNICALL SetDoubleField(jobject obj, jfieldID fieldID, jdouble val);
 332
 333         0, // jmethodID JNICALL GetStaticMethodID(jclass clazz, const char *name, const char *sig);
 334
 335         CallStaticObjectMethod, // jobject JNICALL CallStaticObjectMethod(jclass clazz, jmethodID methodID, ...);
 336         CallStaticObjectMethodV, // jobject JNICALL CallStaticObjectMethodV(jclass clazz, jmethodID methodID, va_list args);
 337         0, // jobject JNICALL CallStaticObjectMethodA(jclass clazz, jmethodID methodID, jvalue *args);
 338
 339         CallStaticBooleanMethod, // jboolean JNICALL CallStaticBooleanMethod(jclass clazz, jmethodID methodID, ...);
 340         CallStaticBooleanMethodV, // jboolean JNICALL CallStaticBooleanMethodV(jclass clazz, jmethodID methodID, va_list args);
 341         0, // jboolean JNICALL CallStaticBooleanMethodA(jclass clazz, jmethodID methodID, jvalue *args);
 342
 343         CallStaticByteMethod, // jbyte JNICALL CallStaticByteMethod(jclass clazz, jmethodID methodID, ...);
 344         CallStaticByteMethodV, // jbyte JNICALL CallStaticByteMethodV(jclass clazz, jmethodID methodID, va_list args);
 345         0, // jbyte JNICALL CallStaticByteMethodA(jclass clazz, jmethodID methodID, jvalue *args);
 346
 347         CallStaticCharMethod, // jchar JNICALL CallStaticCharMethod(jclass clazz, jmethodID methodID, ...);
 348         CallStaticCharMethodV, // jchar JNICALL CallStaticCharMethodV(jclass clazz, jmethodID methodID, va_list args);
 349         0, // jchar JNICALL CallStaticCharMethodA(jclass clazz, jmethodID methodID, jvalue *args);
 350
 351         CallStaticShortMethod, // jshort JNICALL CallStaticShortMethod(jclass clazz, jmethodID methodID, ...);
 352         CallStaticShortMethodV, // jshort JNICALL CallStaticShortMethodV(jclass clazz, jmethodID methodID, va_list args);
 353         0, // jshort JNICALL CallStaticShortMethodA(jclass clazz, jmethodID methodID, jvalue *args);
 354
 355         CallStaticIntMethod, // jint JNICALL CallStaticIntMethod(jclass clazz, jmethodID methodID, ...);
 356         CallStaticIntMethodV, // jint JNICALL CallStaticIntMethodV(jclass clazz, jmethodID methodID, va_list args);
 357         0, // jint JNICALL CallStaticIntMethodA(jclass clazz, jmethodID methodID, jvalue *args);
 358
 359         CallStaticLongMethod, // jlong JNICALL CallStaticLongMethod(jclass clazz, jmethodID methodID, ...);
 360         CallStaticLongMethodV, // jlong JNICALL CallStaticLongMethodV(jclass clazz, jmethodID methodID, va_list args);
 361         0, // jlong JNICALL CallStaticLongMethodA(jclass clazz, jmethodID methodID, jvalue *args);
 362
 363         CallStaticFloatMethod, // jfloat JNICALL CallStaticFloatMethod(jclass clazz, jmethodID methodID, ...);
 364         CallStaticFloatMethodV, // jfloat JNICALL CallStaticFloatMethodV(jclass clazz, jmethodID methodID, va_list args);
 365         0, // jfloat JNICALL CallStaticFloatMethodA(jclass clazz, jmethodID methodID, jvalue *args);
 366
 367         CallStaticDoubleMethod, // jdouble JNICALL CallStaticDoubleMethod(jclass clazz, jmethodID methodID, ...);
 368         CallStaticDoubleMethodV, // jdouble JNICALL CallStaticDoubleMethodV(jclass clazz, jmethodID methodID, va_list args);
 369         0, // jdouble JNICALL CallStaticDoubleMethodA(jclass clazz, jmethodID methodID, jvalue *args);
 370
 371         CallStaticVoidMethod, // void JNICALL CallStaticVoidMethod(jclass cls, jmethodID methodID, ...);
 372         CallStaticVoidMethodV, // void JNICALL CallStaticVoidMethodV(jclass cls, jmethodID methodID, va_list args);
 373         0, // void JNICALL CallStaticVoidMethodA(jclass cls, jmethodID methodID, jvalue * args);
 374
 375         0, // jfieldID JNICALL GetStaticFieldID(jclass clazz, const char *name, const char *sig);
 376
 377         0, // jobject JNICALL GetObjectField(jobject obj, jfieldID fieldID);
 378         0, // jboolean JNICALL GetBooleanField(jobject obj, jfieldID fieldID);
 379         0, // jbyte JNICALL GetByteField(jobject obj, jfieldID fieldID);
 380         0, // jchar JNICALL GetCharField(jobject obj, jfieldID fieldID);
 381         0, // jshort JNICALL GetShortField(jobject obj, jfieldID fieldID);
 382         0, // jint JNICALL GetIntField(jobject obj, jfieldID fieldID);
 383         0, // jlong JNICALL GetLongField(jobject obj, jfieldID fieldID);
 384         0, // jfloat JNICALL GetFloatField(jobject obj, jfieldID fieldID);
 385         0, // jdouble JNICALL GetDoubleField(jobject obj, jfieldID fieldID);
 386
 387         0, // void JNICALL SetObjectField(jobject obj, jfieldID fieldID, jobject val);
 388         0, // void JNICALL SetBooleanField(jobject obj, jfieldID fieldID, jboolean val);
 389         0, // void JNICALL SetByteField(jobject obj, jfieldID fieldID, jbyte val);
 390         0, // void JNICALL SetCharField(jobject obj, jfieldID fieldID, jchar val);
 391         0, // void JNICALL SetShortField(jobject obj, jfieldID fieldID, jshort val);
 392         0, // void JNICALL SetIntField(jobject obj, jfieldID fieldID, jint val);
 393         0, // void JNICALL SetLongField(jobject obj, jfieldID fieldID, jlong val);
 394         0, // void JNICALL SetFloatField(jobject obj, jfieldID fieldID, jfloat val);
 395         0, // void JNICALL SetDoubleField(jobject obj, jfieldID fieldID, jdouble val);
 396
 397         0, // jstring JNICALL NewString(const jchar *unicode, jsize len);
 398         0, // jsize JNICALL GetStringLength(jstring str);
 399         0, // const jchar *JNICALL GetStringChars(jstring str, jboolean *isCopy);
 400         0, // void JNICALL ReleaseStringChars(jstring str, const jchar *chars);
 401
 402         0, // jstring JNICALL NewStringUTF(const char *utf);
 403         0, // jsize JNICALL GetStringUTFLength(jstring str);
 404         0, // const char* JNICALL GetStringUTFChars(jstring str, jboolean *isCopy);
 405         0, // void JNICALL ReleaseStringUTFChars(jstring str, const char* chars);
 406
 407         0, // jsize JNICALL GetArrayLength(jarray array);
 408
 409         0, // jobjectArray JNICALL NewObjectArray(jsize len, jclass clazz, jobject init);
 410         0, // jobject JNICALL GetObjectArrayElement(jobjectArray array, jsize index);
 411         0, // void JNICALL SetObjectArrayElement(jobjectArray array, jsize index, jobject val);
 412
 413         0, // jbooleanArray JNICALL NewBooleanArray(jsize len);
 414         0, // jbyteArray JNICALL NewByteArray(jsize len);
 415         0, // jcharArray JNICALL NewCharArray(jsize len);
 416         0, // jshortArray JNICALL NewShortArray(jsize len);
 417         0, // jintArray JNICALL NewIntArray(jsize len);
 418         0, // jlongArray JNICALL NewLongArray(jsize len);
 419         0, // jfloatArray JNICALL NewFloatArray(jsize len);
 420         0, // jdoubleArray JNICALL NewDoubleArray(jsize len);
 421
 422         0, // jboolean * JNICALL GetBooleanArrayElements(jbooleanArray array, jboolean *isCopy);
 423         0, // jbyte * JNICALL GetByteArrayElements(jbyteArray array, jboolean *isCopy);
 424         0, // jchar * JNICALL GetCharArrayElements(jcharArray array, jboolean *isCopy);
 425         0, // jshort * JNICALL GetShortArrayElements(jshortArray array, jboolean *isCopy);
 426         0, // jint * JNICALL GetIntArrayElements(jintArray array, jboolean *isCopy);
 427         0, // jlong * JNICALL GetLongArrayElements(jlongArray array, jboolean *isCopy);
 428         0, // jfloat * JNICALL GetFloatArrayElements(jfloatArray array, jboolean *isCopy);
 429         0, // jdouble * JNICALL GetDoubleArrayElements(jdoubleArray array, jboolean *isCopy);
 430
 431         0, // void JNICALL ReleaseBooleanArrayElements(jbooleanArray array, jboolean *elems, jint mode);
 432         0, // void JNICALL ReleaseByteArrayElements(jbyteArray array, jbyte *elems, jint mode);
 433         0, // void JNICALL ReleaseCharArrayElements(jcharArray array, jchar *elems, jint mode);
 434         0, // void JNICALL ReleaseShortArrayElements(jshortArray array, jshort *elems, jint mode);
 435         0, // void JNICALL ReleaseIntArrayElements(jintArray array, jint *elems, jint mode);
 436         0, // void JNICALL ReleaseLongArrayElements(jlongArray array, jlong *elems, jint mode);
 437         0, // void JNICALL ReleaseFloatArrayElements(jfloatArray array, jfloat *elems, jint mode);
 438         0, // void JNICALL ReleaseDoubleArrayElements(jdoubleArray array, jdouble *elems, jint mode);
 439
 440         0, // void JNICALL GetBooleanArrayRegion(jbooleanArray array, jsize start, jsize l, jboolean *buf);
 441         0, // void JNICALL GetByteArrayRegion(jbyteArray array, jsize start, jsize len, jbyte *buf);
 442         0, // void JNICALL GetCharArrayRegion(jcharArray array, jsize start, jsize len, jchar *buf);
 443         0, // void JNICALL GetShortArrayRegion(jshortArray array, jsize start, jsize len, jshort *buf);
 444         0, // void JNICALL GetIntArrayRegion(jintArray array, jsize start, jsize len, jint *buf);
 445         0, // void JNICALL GetLongArrayRegion(jlongArray array, jsize start, jsize len, jlong *buf);
 446         0, // void JNICALL GetFloatArrayRegion(jfloatArray array, jsize start, jsize len, jfloat *buf);
 447         0, // void JNICALL GetDoubleArrayRegion(jdoubleArray array, jsize start, jsize len, jdouble *buf);
 448
 449         0, // void JNICALL SetBooleanArrayRegion(jbooleanArray array, jsize start, jsize l, jboolean *buf);
 450         0, // void JNICALL SetByteArrayRegion(jbyteArray array, jsize start, jsize len, jbyte *buf);
 451         0, // void JNICALL SetCharArrayRegion(jcharArray array, jsize start, jsize len, jchar *buf);
 452         0, // void JNICALL SetShortArrayRegion(jshortArray array, jsize start, jsize len, jshort *buf);
 453         0, // void JNICALL SetIntArrayRegion(jintArray array, jsize start, jsize len, jint *buf);
 454         0, // void JNICALL SetLongArrayRegion(jlongArray array, jsize start, jsize len, jlong *buf);
 455         0, // void JNICALL SetFloatArrayRegion(jfloatArray array, jsize start, jsize len, jfloat *buf);
 456         0, // void JNICALL SetDoubleArrayRegion(jdoubleArray array, jsize start, jsize len, jdouble *buf);
 457
 458         0, // jint JNICALL RegisterNatives(jclass clazz, const JNINativeMethod *methods, jint nMethods);
 459         0, // jint JNICALL UnregisterNatives(jclass clazz);
 460
 461         0, // jint JNICALL MonitorEnter(jobject obj);
 462         0, // jint JNICALL MonitorExit(jobject obj);
 463
 464         0, // jint JNICALL GetJavaVM(JavaVM **vm);
 465
 466         0, // void JNICALL GetStringRegion(jstring str, jsize start, jsize len, jchar *buf);
 467         0, // void JNICALL GetStringUTFRegion(jstring str, jsize start, jsize len, char *buf);
 468
 469         0, // void* JNICALL GetPrimitiveArrayCritical(jarray array, jboolean *isCopy);
 470         0, // void JNICALL ReleasePrimitiveArrayCritical(jarray array, void *carray, jint mode);
 471
 472         0, // const jchar* JNICALL GetStringCritical(jstring string, jboolean *isCopy);
 473         0, // void JNICALL ReleaseStringCritical(jstring string, const jchar *cstring);
 474
 475         0, // jweak JNICALL NewWeakGlobalRef(jobject obj);
 476         0, // void JNICALL DeleteWeakGlobalRef(jweak ref);
 477
 478         0, // jboolean JNICALL ExceptionCheck();
 479
 480         0, // jobject JNICALL NewDirectByteBuffer(void* address, jlong capacity);
 481         0, // void* JNICALL GetDirectBufferAddress(jobject buf);
 482         0  // jlong JNICALL GetDirectBufferCapacity(jobject buf);
 483 };
 484
 485 JNIEXPORT void** JNICALL ikvm_GetJNIEnvVTable()
 486 {
 487         return JNIEnv_vtable;
 488 }
 489
 490 JNIEXPORT void* JNICALL ikvm_MarshalDelegate(void* p)
 491 {
 492         return p;
 493 }
 494
 495 typedef jint (JNICALL *PJNI_ONLOAD)(JavaVM* vm, void* reserved);
 496
 497 JNIEXPORT jint JNICALL ikvm_CallOnLoad(PJNI_ONLOAD method, JavaVM* vm, void* reserved)
 498 {
 499         return method(vm, reserved);
 500 }