/*

 * Copyright (c) 1997, 2010, Oracle and/or its affiliates. All rights reserved.

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

 * This code is free software; you can redistribute it and/or modify it

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.  Oracle designates this

 * particular file as subject to the "Classpath" exception as provided

 * by Oracle in the LICENSE file that accompanied this code.

 *

 * This code is distributed in the hope that it will be useful, but WITHOUT

 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

 * You should have received a copy of the GNU General Public License version

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

 * or visit www.oracle.com if you need additional information or have any

 * questions.

 */

#include <stdlib.h>

#include <string.h>

#include "jvm.h"

#include "jni.h"

#include "jni_util.h"

/* Due to a bug in the win32 C runtime library strings

 * such as "z:" need to be appended with a "." so we

 * must allocate at least 4 bytes to allow room for

 * this expansion. See 4235353 for details.

 */

#define MALLOC_MIN4(len) ((char *)malloc((len) + 1 < 4 ? 4 : (len) + 1))

/**

 * Throw a Java exception by name. Similar to SignalError.

 */

JNIEXPORT void JNICALL

JNU_ThrowByName(JNIEnv *env, const char *name, const char *msg)

{

    jclass cls = (*env)->FindClass(env, name);

    if (cls != 0) /* Otherwise an exception has already been thrown */

        (*env)->ThrowNew(env, cls, msg);

}

/* JNU_Throw common exceptions */

JNIEXPORT void JNICALL

JNU_ThrowNullPointerException(JNIEnv *env, const char *msg)

{

    JNU_ThrowByName(env, "java/lang/NullPointerException", msg);

}

JNIEXPORT void JNICALL

JNU_ThrowArrayIndexOutOfBoundsException(JNIEnv *env, const char *msg)

{

    JNU_ThrowByName(env, "java/lang/ArrayIndexOutOfBoundsException", msg);

}

JNIEXPORT void JNICALL

JNU_ThrowOutOfMemoryError(JNIEnv *env, const char *msg)

{

    JNU_ThrowByName(env, "java/lang/OutOfMemoryError", msg);

}

JNIEXPORT void JNICALL

JNU_ThrowIllegalArgumentException(JNIEnv *env, const char *msg)

{

    JNU_ThrowByName(env, "java/lang/IllegalArgumentException", msg);

}

JNIEXPORT void JNICALL

JNU_ThrowIllegalAccessError(JNIEnv *env, const char *msg)

{

    JNU_ThrowByName(env, "java/lang/IllegalAccessError", msg);

}

JNIEXPORT void JNICALL

JNU_ThrowIllegalAccessException(JNIEnv *env, const char *msg)

{

    JNU_ThrowByName(env, "java/lang/IllegalAccessException", msg);

}

JNIEXPORT void JNICALL

JNU_ThrowInternalError(JNIEnv *env, const char *msg)

{

    JNU_ThrowByName(env, "java/lang/InternalError", msg);

}

JNIEXPORT void JNICALL

JNU_ThrowNoSuchFieldException(JNIEnv *env, const char *msg)

{

    JNU_ThrowByName(env, "java/lang/NoSuchFieldException", msg);

}

JNIEXPORT void JNICALL

JNU_ThrowNoSuchMethodException(JNIEnv *env, const char *msg)

{

    JNU_ThrowByName(env, "java/lang/NoSuchMethodException", msg);

}

JNIEXPORT void JNICALL

JNU_ThrowClassNotFoundException(JNIEnv *env, const char *msg)

{

    JNU_ThrowByName(env, "java/lang/ClassNotFoundException", msg);

}

JNIEXPORT void JNICALL

JNU_ThrowNumberFormatException(JNIEnv *env, const char *msg)

{

    JNU_ThrowByName(env, "java/lang/NumberFormatException", msg);

}

JNIEXPORT void JNICALL

JNU_ThrowIOException(JNIEnv *env, const char *msg)

{

    JNU_ThrowByName(env, "java/io/IOException", msg);

}

JNIEXPORT void JNICALL

JNU_ThrowNoSuchFieldError(JNIEnv *env, const char *msg)

{

    JNU_ThrowByName(env, "java/lang/NoSuchFieldError", msg);

}

JNIEXPORT void JNICALL

JNU_ThrowNoSuchMethodError(JNIEnv *env, const char *msg)

{

    JNU_ThrowByName(env, "java/lang/NoSuchMethodError", msg);

}

JNIEXPORT void JNICALL

JNU_ThrowStringIndexOutOfBoundsException(JNIEnv *env, const char *msg)

{

    JNU_ThrowByName(env, "java/lang/StringIndexOutOfBoundsException", msg);

}

JNIEXPORT void JNICALL

JNU_ThrowInstantiationException(JNIEnv *env, const char *msg)

{

    JNU_ThrowByName(env, "java/lang/InstantiationException", msg);

}

/* Throw an exception by name, using the string returned by

 * JVM_LastErrorString for the detail string.  If the last-error

 * string is NULL, use the given default detail string.

 */

JNIEXPORT void JNICALL

JNU_ThrowByNameWithLastError(JNIEnv *env, const char *name,

                             const char *defaultDetail)

{

    char buf[256];

    int n = JVM_GetLastErrorString(buf, sizeof(buf));

    if (n > 0) {

        jstring s = JNU_NewStringPlatform(env, buf);

        if (s != NULL) {

            jobject x = JNU_NewObjectByName(env, name,

                                            "(Ljava/lang/String;)V", s);

            if (x != NULL) {

                (*env)->Throw(env, x);

            }

        }

    }

    if (!(*env)->ExceptionOccurred(env)) {

        JNU_ThrowByName(env, name, defaultDetail);

    }

}

/* Throw an IOException, using the last-error string for the detail

 * string.  If the last-error string is NULL, use the given default

 * detail string.

 */

JNIEXPORT void JNICALL

JNU_ThrowIOExceptionWithLastError(JNIEnv *env, const char *defaultDetail)

{

    JNU_ThrowByNameWithLastError(env, "java/io/IOException", defaultDetail);

}

JNIEXPORT jvalue JNICALL

JNU_CallStaticMethodByName(JNIEnv *env,

                           jboolean *hasException,

                           const char *class_name,

                           const char *name,

                           const char *signature,

                           ...)

{

    jclass clazz;

    jmethodID mid;

    va_list args;

    jvalue result;

    const char *p = signature;

    /* find out the return type */

    while (*p && *p != ')')

        p++;

    p++;

    result.i = 0;

    if ((*env)->EnsureLocalCapacity(env, 3) < 0)

        goto done2;

    clazz = (*env)->FindClass(env, class_name);

    if (clazz == 0)

        goto done2;

    mid = (*env)->GetStaticMethodID(env, clazz, name, signature);

    if (mid == 0)

        goto done1;

    va_start(args, signature);

    switch (*p) {

    case 'V':

        (*env)->CallStaticVoidMethodV(env, clazz, mid, args);

        break;

    case '[':

    case 'L':

        result.l = (*env)->CallStaticObjectMethodV(env, clazz, mid, args);

        break;

    case 'Z':

        result.z = (*env)->CallStaticBooleanMethodV(env, clazz, mid, args);

        break;

    case 'B':

        result.b = (*env)->CallStaticByteMethodV(env, clazz, mid, args);

        break;

    case 'C':

        result.c = (*env)->CallStaticCharMethodV(env, clazz, mid, args);

        break;

    case 'S':

        result.s = (*env)->CallStaticShortMethodV(env, clazz, mid, args);

        break;

    case 'I':

        result.i = (*env)->CallStaticIntMethodV(env, clazz, mid, args);

        break;

    case 'J':

        result.j = (*env)->CallStaticLongMethodV(env, clazz, mid, args);

        break;

    case 'F':

        result.f = (*env)->CallStaticFloatMethodV(env, clazz, mid, args);

        break;

    case 'D':

        result.d = (*env)->CallStaticDoubleMethodV(env, clazz, mid, args);

        break;

    default:

        (*env)->FatalError(env, "JNU_CallStaticMethodByName: illegal signature");

    }

    va_end(args);

 done1:

    (*env)->DeleteLocalRef(env, clazz);

 done2:

    if (hasException) {

        *hasException = (*env)->ExceptionCheck(env);

    }

    return result;

}

JNIEXPORT jvalue JNICALL

JNU_CallMethodByName(JNIEnv *env,

                     jboolean *hasException,

                     jobject obj,

                     const char *name,

                     const char *signature,

                     ...)

{

    jvalue result;

    va_list args;

    va_start(args, signature);

    result = JNU_CallMethodByNameV(env, hasException, obj, name, signature,

                                   args);

    va_end(args);

    return result;

}

JNIEXPORT jvalue JNICALL

JNU_CallMethodByNameV(JNIEnv *env,

                      jboolean *hasException,

                      jobject obj,

                      const char *name,

                      const char *signature,

                      va_list args)

{

    jclass clazz;

    jmethodID mid;

    jvalue result;

    const char *p = signature;

    /* find out the return type */

    while (*p && *p != ')')

        p++;

    p++;

    result.i = 0;

    if ((*env)->EnsureLocalCapacity(env, 3) < 0)

        goto done2;

    clazz = (*env)->GetObjectClass(env, obj);

    mid = (*env)->GetMethodID(env, clazz, name, signature);

    if (mid == 0)

        goto done1;

    switch (*p) {

    case 'V':

        (*env)->CallVoidMethodV(env, obj, mid, args);

        break;

    case '[':

    case 'L':

        result.l = (*env)->CallObjectMethodV(env, obj, mid, args);

        break;

    case 'Z':

        result.z = (*env)->CallBooleanMethodV(env, obj, mid, args);

        break;

    case 'B':

        result.b = (*env)->CallByteMethodV(env, obj, mid, args);

        break;

    case 'C':

        result.c = (*env)->CallCharMethodV(env, obj, mid, args);

        break;

    case 'S':

        result.s = (*env)->CallShortMethodV(env, obj, mid, args);

        break;

    case 'I':

        result.i = (*env)->CallIntMethodV(env, obj, mid, args);

        break;

    case 'J':

        result.j = (*env)->CallLongMethodV(env, obj, mid, args);

        break;

    case 'F':

        result.f = (*env)->CallFloatMethodV(env, obj, mid, args);

        break;

    case 'D':

        result.d = (*env)->CallDoubleMethodV(env, obj, mid, args);

        break;

    default:

        (*env)->FatalError(env, "JNU_CallMethodByNameV: illegal signature");

    }

 done1:

    (*env)->DeleteLocalRef(env, clazz);

 done2:

    if (hasException) {

        *hasException = (*env)->ExceptionCheck(env);

    }

    return result;

}

JNIEXPORT jobject JNICALL

JNU_NewObjectByName(JNIEnv *env, const char *class_name,

                    const char *constructor_sig, ...)

{

    jobject obj = NULL;

    jclass cls = 0;

    jmethodID cls_initMID;

    va_list args;

    if ((*env)->EnsureLocalCapacity(env, 2) < 0)

        goto done;

    cls = (*env)->FindClass(env, class_name);

    if (cls == 0) {

        goto done;

    }

    cls_initMID  = (*env)->GetMethodID(env, cls,

                                       "<init>", constructor_sig);

    if (cls_initMID == NULL) {

        goto done;

    }

    va_start(args, constructor_sig);

    obj = (*env)->NewObjectV(env, cls, cls_initMID, args);

    va_end(args);

 done:

    (*env)->DeleteLocalRef(env, cls);

    return obj;

}

/* Optimized for char set ISO_8559_1 */

static jstring

newString8859_1(JNIEnv *env, const char *str)

{

    int len = (int)strlen(str);

    jchar buf[512];

    jchar *str1;

    jstring result;

    int i;

    if (len > 512) {

        str1 = (jchar *)malloc(len * sizeof(jchar));

        if (str1 == 0) {

            JNU_ThrowOutOfMemoryError(env, 0);

            return 0;

        }

    } else

        str1 = buf;

    for (i=0;i<len;i++)

        str1[i] = (unsigned char)str[i];

    result = (*env)->NewString(env, str1, len);

    if (str1 != buf)

        free(str1);

    return result;

}

static const char*

getString8859_1Chars(JNIEnv *env, jstring jstr)

{

    int i;

    char *result;

    jint len = (*env)->GetStringLength(env, jstr);

    const jchar *str = (*env)->GetStringCritical(env, jstr, 0);

    if (str == 0) {

        return 0;

    }

    result = MALLOC_MIN4(len);

    if (result == 0) {

        (*env)->ReleaseStringCritical(env, jstr, str);

        JNU_ThrowOutOfMemoryError(env, 0);

        return 0;

    }

    for (i=0; i<len; i++) {

        jchar unicode = str[i];

        if (unicode <= 0x00ff)

            result[i] = (char)unicode;

        else

            result[i] = '?';

    }

    result[len] = 0;

    (*env)->ReleaseStringCritical(env, jstr, str);

    return result;

}

/* Optimized for char set ISO646-US (us-ascii) */

static jstring

newString646_US(JNIEnv *env, const char *str)

{

    int len = strlen(str);

    jchar buf[512];

    jchar *str1;

    jstring result;

    int i;

    if (len > 512) {

        str1 = (jchar *)malloc(len * sizeof(jchar));

        if (str1 == 0) {

            JNU_ThrowOutOfMemoryError(env, 0);

            return 0;

        }

    } else

        str1 = buf;

    for (i=0; i<len; i++) {

        unsigned char c = (unsigned char)str[i];

        if (c <= 0x7f)

            str1[i] = c;

        else

            str1[i] = '?';

    }

    result = (*env)->NewString(env, str1, len);

    if (str1 != buf)

        free(str1);

    return result;

}

static const char*

getString646_USChars(JNIEnv *env, jstring jstr)

{

    int i;

    char *result;

    jint len = (*env)->GetStringLength(env, jstr);

    const jchar *str = (*env)->GetStringCritical(env, jstr, 0);

    if (str == 0) {

        return 0;

    }

    result = MALLOC_MIN4(len);

    if (result == 0) {

        (*env)->ReleaseStringCritical(env, jstr, str);

        JNU_ThrowOutOfMemoryError(env, 0);

        return 0;

    }

    for (i=0; i<len; i++) {

        jchar unicode = str[i];

        if (unicode <= 0x007f )

            result[i] = (char)unicode;

        else

            result[i] = '?';

    }

    result[len] = 0;

    (*env)->ReleaseStringCritical(env, jstr, str);

    return result;

}

/* enumeration of c1 row from Cp1252 */

static int cp1252c1chars[32] = {

    0x20AC,0xFFFD,0x201A,0x0192,0x201E,0x2026,0x2020,0x2021,

    0x02C6,0x2030,0x0160,0x2039,0x0152,0xFFFD,0x017D,0xFFFD,

    0xFFFD,0x2018,0x2019,0x201C,0x201D,0x2022,0x2013,0x2014,

    0x02Dc,0x2122,0x0161,0x203A,0x0153,0xFFFD,0x017E,0x0178

};

/* Optimized for char set Cp1252 */

static jstring

newStringCp1252(JNIEnv *env, const char *str)

{

    int len = (int) strlen(str);

    jchar buf[512];

    jchar *str1;

    jstring result;

    int i;