#include <internal.h>
#include <ustring.h>
#include <value.h>
#include <jni_utility.h>
#include <jni_runtime.h>
#include <runtime_array.h>
#include <runtime_object.h>
#include <runtime_root.h>
#ifdef NDEBUG
#define JS_LOG(formatAndArgs...) ((void)0)
#else
#define JS_LOG(formatAndArgs...) { \
fprintf (stderr, "%s:%d -- %s: ", __FILE__, __LINE__, __FUNCTION__); \
fprintf(stderr, formatAndArgs); \
}
#endif
using namespace KJS;
using namespace KJS::Bindings;
JavaParameter::JavaParameter (JNIEnv *env, jstring type)
{
_type = JavaString (env, type);
_JNIType = JNITypeFromClassName (_type.UTF8String());
};
JavaField::JavaField (JNIEnv *env, jobject aField)
{
jobject fieldType = callJNIObjectMethod (aField, "getType", "()Ljava/lang/Class;");
jstring fieldTypeName = (jstring)callJNIObjectMethod (fieldType, "getName", "()Ljava/lang/String;");
_type = JavaString(env, fieldTypeName);
_JNIType = JNITypeFromClassName (_type.UTF8String());
jstring fieldName = (jstring)callJNIObjectMethod (aField, "getName", "()Ljava/lang/String;");
_name = JavaString(env, fieldName);
_field = new JavaInstance(aField, 0);
}
KJS::Value JavaArray::convertJObjectToArray (KJS::ExecState *exec, jobject anObject, const char *type, const RootObject *r)
{
if (type[0] != '[')
return Undefined();
return KJS::Object(new RuntimeArrayImp(exec, new JavaArray ((jobject)anObject, type, r)));
}
jvalue JavaField::dispatchValueFromInstance(KJS::ExecState *exec, const JavaInstance *instance, const char *name, const char *sig, JNIType returnType) const
{
jobject jinstance = instance->javaInstance();
jobject fieldJInstance = _field->javaInstance();
JNIEnv *env = getJNIEnv();
jvalue result;
bzero (&result, sizeof(jvalue));
jclass cls = env->GetObjectClass(fieldJInstance);
if ( cls != NULL ) {
jmethodID mid = env->GetMethodID(cls, name, sig);
if ( mid != NULL )
{
const RootObject *execContext = instance->executionContext();
if (execContext && execContext->nativeHandle()) {
Value exceptionDescription;
jvalue args[1];
args[0].l = jinstance;
dispatchJNICall (execContext->nativeHandle(), fieldJInstance, false, returnType, mid, args, result, 0, exceptionDescription);
if (!exceptionDescription.isNull()) {
Object error = Error::create(exec, GeneralError, exceptionDescription.toString(exec).UTF8String().c_str());
exec->setException(error);
}
}
}
}
return result;
}
KJS::Value JavaField::valueFromInstance(KJS::ExecState *exec, const Instance *i) const
{
const JavaInstance *instance = static_cast<const JavaInstance *>(i);
Value jsresult = Undefined();
switch (_JNIType) {
case object_type: {
jvalue result = dispatchValueFromInstance (exec, instance, "get", "(Ljava/lang/Object;)Ljava/lang/Object;", object_type);
jobject anObject = result.l;
const char *arrayType = type();
if (arrayType[0] == '[') {
jsresult = JavaArray::convertJObjectToArray (exec, anObject, arrayType, instance->executionContext());
}
else if (anObject != 0){
jsresult = Instance::createRuntimeObject(Instance::JavaLanguage, anObject, instance->executionContext());
}
}
break;
case boolean_type: {
jvalue result = dispatchValueFromInstance (exec, instance, "getBoolean", "(Ljava/lang/Object;)Z", boolean_type);
jboolean value = result.z;
jsresult = KJS::Boolean((bool)value);
}
break;
case byte_type:
case char_type:
case short_type:
case int_type: {
jint value;
jvalue result = dispatchValueFromInstance (exec, instance, "getInt", "(Ljava/lang/Object;)I", int_type);
value = result.i;
jsresult = Number((int)value);
}
break;
case long_type:
case float_type:
case double_type: {
jdouble value;
jvalue result = dispatchValueFromInstance (exec, instance, "getDouble", "(Ljava/lang/Object;)D", double_type);
value = result.i;
jsresult = Number((double)value);
}
break;
default:
break;
}
JS_LOG ("getting %s = %s\n", name(), jsresult.toString(exec).ascii());
return jsresult;
}
void JavaField::dispatchSetValueToInstance(KJS::ExecState *exec, const JavaInstance *instance, jvalue javaValue, const char *name, const char *sig) const
{
jobject jinstance = instance->javaInstance();
jobject fieldJInstance = _field->javaInstance();
JNIEnv *env = getJNIEnv();
jclass cls = env->GetObjectClass(fieldJInstance);
if ( cls != NULL ) {
jmethodID mid = env->GetMethodID(cls, name, sig);
if ( mid != NULL )
{
const RootObject *execContext = instance->executionContext();
if (execContext && execContext->nativeHandle()) {
Value exceptionDescription;
jvalue args[2];
jvalue result;
args[0].l = jinstance;
args[1] = javaValue;
dispatchJNICall (execContext->nativeHandle(), fieldJInstance, false, void_type, mid, args, result, 0, exceptionDescription);
if (!exceptionDescription.isNull()) {
Object error = Error::create(exec, GeneralError, exceptionDescription.toString(exec).UTF8String().c_str());
exec->setException(error);
}
}
}
}
}
void JavaField::setValueToInstance(KJS::ExecState *exec, const Instance *i, const KJS::Value &aValue) const
{
const JavaInstance *instance = static_cast<const JavaInstance *>(i);
jvalue javaValue = convertValueToJValue (exec, aValue, _JNIType, type());
JS_LOG ("setting value %s to %s\n", name(), aValue.toString(exec).ascii());
switch (_JNIType) {
case object_type: {
dispatchSetValueToInstance (exec, instance, javaValue, "set", "(Ljava/lang/Object;Ljava/lang/Object;)V");
}
break;
case boolean_type: {
dispatchSetValueToInstance (exec, instance, javaValue, "setBoolean", "(Ljava/lang/Object;Z)V");
}
break;
case byte_type: {
dispatchSetValueToInstance (exec, instance, javaValue, "setByte", "(Ljava/lang/Object;B)V");
}
break;
case char_type: {
dispatchSetValueToInstance (exec, instance, javaValue, "setChar", "(Ljava/lang/Object;C)V");
}
break;
case short_type: {
dispatchSetValueToInstance (exec, instance, javaValue, "setShort", "(Ljava/lang/Object;S)V");
}
break;
case int_type: {
dispatchSetValueToInstance (exec, instance, javaValue, "setInt", "(Ljava/lang/Object;I)V");
}
break;
case long_type: {
dispatchSetValueToInstance (exec, instance, javaValue, "setLong", "(Ljava/lang/Object;J)V");
}
break;
case float_type: {
dispatchSetValueToInstance (exec, instance, javaValue, "setFloat", "(Ljava/lang/Object;F)V");
}
break;
case double_type: {
dispatchSetValueToInstance (exec, instance, javaValue, "setDouble", "(Ljava/lang/Object;D)V");
}
break;
default:
break;
}
}
JavaConstructor::JavaConstructor (JNIEnv *env, jobject aConstructor)
{
jarray jparameters = (jarray)callJNIObjectMethod (aConstructor, "getParameterTypes", "()[Ljava/lang/Class;");
_numParameters = env->GetArrayLength (jparameters);
_parameters = new JavaParameter[_numParameters];
int i;
for (i = 0; i < _numParameters; i++) {
jobject aParameter = env->GetObjectArrayElement ((jobjectArray)jparameters, i);
jstring parameterName = (jstring)callJNIObjectMethod (aParameter, "getName", "()Ljava/lang/String;");
_parameters[i] = JavaParameter(env, parameterName);
env->DeleteLocalRef (aParameter);
env->DeleteLocalRef (parameterName);
}
}
JavaMethod::JavaMethod (JNIEnv *env, jobject aMethod)
{
jobject returnType = callJNIObjectMethod (aMethod, "getReturnType", "()Ljava/lang/Class;");
jstring returnTypeName = (jstring)callJNIObjectMethod (returnType, "getName", "()Ljava/lang/String;");
_returnType =JavaString (env, returnTypeName);
_JNIReturnType = JNITypeFromClassName (_returnType.UTF8String());
env->DeleteLocalRef (returnType);
env->DeleteLocalRef (returnTypeName);
jstring methodName = (jstring)callJNIObjectMethod (aMethod, "getName", "()Ljava/lang/String;");
_name = JavaString (env, methodName);
env->DeleteLocalRef (methodName);
jarray jparameters = (jarray)callJNIObjectMethod (aMethod, "getParameterTypes", "()[Ljava/lang/Class;");
_numParameters = env->GetArrayLength (jparameters);
_parameters = new JavaParameter[_numParameters];
int i;
for (i = 0; i < _numParameters; i++) {
jobject aParameter = env->GetObjectArrayElement ((jobjectArray)jparameters, i);
jstring parameterName = (jstring)callJNIObjectMethod (aParameter, "getName", "()Ljava/lang/String;");
_parameters[i] = JavaParameter(env, parameterName);
env->DeleteLocalRef (aParameter);
env->DeleteLocalRef (parameterName);
}
env->DeleteLocalRef (jparameters);
_signature = 0;
_methodID = 0;
jclass modifierClass = env->FindClass("java/lang/reflect/Modifier");
long modifiers = callJNIIntMethod (aMethod, "getModifiers", "()I");
_isStatic = (bool)callJNIStaticBooleanMethod (modifierClass, "isStatic", "(I)Z", modifiers);
}
static void appendClassName (UString *aString, const char *className)
{
char *result, *cp = strdup(className);
result = cp;
while (*cp) {
if (*cp == '.')
*cp = '/';
cp++;
}
aString->append(result);
free (result);
}
const char *JavaMethod::signature() const
{
if (_signature == 0){
int i;
_signature = new UString("(");
for (i = 0; i < _numParameters; i++) {
JavaParameter *aParameter = static_cast<JavaParameter *>(parameterAt(i));
JNIType _JNIType = aParameter->getJNIType();
_signature->append(signatureFromPrimitiveType (_JNIType));
if (_JNIType == object_type) {
appendClassName (_signature, aParameter->type());
_signature->append(";");
}
}
_signature->append(")");
const char *returnType = _returnType.UTF8String();
if (returnType[0] == '[') {
appendClassName (_signature, returnType);
}
else {
_signature->append(signatureFromPrimitiveType (_JNIReturnType));
if (_JNIReturnType == object_type) {
appendClassName (_signature, returnType);
_signature->append(";");
}
}
}
return _signature->ascii();
}
JNIType JavaMethod::JNIReturnType() const
{
return _JNIReturnType;
}
jmethodID JavaMethod::methodID (jobject obj) const
{
if (_methodID == 0) {
_methodID = getMethodID (obj, name(), signature());
}
return _methodID;
}
JavaArray::JavaArray (jobject a, const char *t, const RootObject *r)
{
_array = new JObjectWrapper (a);
JNIEnv *env = getJNIEnv();
_length = env->GetArrayLength((jarray)_array->_instance);
_type = strdup(t);
_root = r;
};
JavaArray::~JavaArray ()
{
_array->deref();
free ((void *)_type);
}
JavaArray::JavaArray (const JavaArray &other) : Array()
{
_array = other._array;
_array->ref();
_type = strdup(other._type);
};
void JavaArray::setValueAt(KJS::ExecState *exec, unsigned int index, const KJS::Value &aValue) const
{
JNIEnv *env = getJNIEnv();
char *javaClassName = 0;
JNIType arrayType = JNITypeFromPrimitiveType(_type[1]);
if (_type[1] == 'L'){
javaClassName = strdup(&_type[2]);
javaClassName[strchr(javaClassName, ';')-javaClassName] = 0;
}
jvalue aJValue = convertValueToJValue (exec, aValue, arrayType, javaClassName);
switch (arrayType) {
case object_type: {
env->SetObjectArrayElement((jobjectArray)javaArray(), index, aJValue.l);
break;
}
case boolean_type: {
env->SetBooleanArrayRegion((jbooleanArray)javaArray(), index, 1, &aJValue.z);
break;
}
case byte_type: {
env->SetByteArrayRegion((jbyteArray)javaArray(), index, 1, &aJValue.b);
break;
}
case char_type: {
env->SetCharArrayRegion((jcharArray)javaArray(), index, 1, &aJValue.c);
break;
}
case short_type: {
env->SetShortArrayRegion((jshortArray)javaArray(), index, 1, &aJValue.s);
break;
}
case int_type: {
env->SetIntArrayRegion((jintArray)javaArray(), index, 1, &aJValue.i);
break;
}
case long_type: {
env->SetLongArrayRegion((jlongArray)javaArray(), index, 1, &aJValue.j);
}
case float_type: {
env->SetFloatArrayRegion((jfloatArray)javaArray(), index, 1, &aJValue.f);
break;
}
case double_type: {
env->SetDoubleArrayRegion((jdoubleArray)javaArray(), index, 1, &aJValue.d);
break;
}
default:
break;
}
if (javaClassName)
free ((void *)javaClassName);
}
KJS::Value JavaArray::valueAt(KJS::ExecState *exec, unsigned int index) const
{
JNIEnv *env = getJNIEnv();
JNIType arrayType = JNITypeFromPrimitiveType(_type[1]);
switch (arrayType) {
case object_type: {
jobjectArray objectArray = (jobjectArray)javaArray();
jobject anObject;
anObject = env->GetObjectArrayElement(objectArray, index);
if (_type[1] == '[') {
return JavaArray::convertJObjectToArray (exec, anObject, _type+1, executionContext());
}
return Instance::createRuntimeObject(Instance::JavaLanguage, anObject, executionContext());
}
case boolean_type: {
jbooleanArray booleanArray = (jbooleanArray)javaArray();
jboolean aBoolean;
env->GetBooleanArrayRegion(booleanArray, index, 1, &aBoolean);
return KJS::Boolean (aBoolean);
}
case byte_type: {
jbyteArray byteArray = (jbyteArray)javaArray();
jbyte aByte;
env->GetByteArrayRegion(byteArray, index, 1, &aByte);
return Number (aByte);
}
case char_type: {
jcharArray charArray = (jcharArray)javaArray();
jchar aChar;
env->GetCharArrayRegion(charArray, index, 1, &aChar);
return Number (aChar);
break;
}
case short_type: {
jshortArray shortArray = (jshortArray)javaArray();
jshort aShort;
env->GetShortArrayRegion(shortArray, index, 1, &aShort);
return Number (aShort);
}
case int_type: {
jintArray intArray = (jintArray)javaArray();
jint anInt;
env->GetIntArrayRegion(intArray, index, 1, &anInt);
return Number (anInt);
}
case long_type: {
jlongArray longArray = (jlongArray)javaArray();
jlong aLong;
env->GetLongArrayRegion(longArray, index, 1, &aLong);
return Number ((long int)aLong);
}
case float_type: {
jfloatArray floatArray = (jfloatArray)javaArray();
jfloat aFloat;
env->GetFloatArrayRegion(floatArray, index, 1, &aFloat);
return Number (aFloat);
}
case double_type: {
jdoubleArray doubleArray = (jdoubleArray)javaArray();
jdouble aDouble;
env->GetDoubleArrayRegion(doubleArray, index, 1, &aDouble);
return Number (aDouble);
}
default:
break;
}
return Undefined();
}
unsigned int JavaArray::getLength() const
{
return _length;
}