int CAstWrapper::getIntConstantValue(jobject castNode) { jobject jval = env->CallObjectMethod(castNode, getValue); THROW_ANY_EXCEPTION(java_ex); int cval = env->CallIntMethod(jval, intValue); THROW_ANY_EXCEPTION(java_ex); return cval; }
jobject CAstWrapper::makeGlobalEntity(char *name, jobject type, list<jobject> *modifiers) { jobject val = env->NewStringUTF( name ); THROW_ANY_EXCEPTION(java_ex); jobject entity = env->NewObject(NativeGlobalEntity, globalEntityInit, val, type, makeSet(modifiers)); THROW_ANY_EXCEPTION(java_ex); return entity; }
const char *CAstWrapper::getStringConstantValue(jobject castNode) { jstring jstr = (jstring)env->CallObjectMethod(castNode, getValue); THROW_ANY_EXCEPTION(java_ex); const char *cstr1 = env->GetStringUTFChars(jstr, NULL); const char *cstr2 = strdup( cstr1 ); env->ReleaseStringUTFChars(jstr, cstr1); THROW_ANY_EXCEPTION(java_ex); return cstr2; }
jobjectArray CAstWrapper::makeArray(jclass type, int count, jobject elts[]) { jobjectArray result = env->NewObjectArray(count, type, NULL); THROW_ANY_EXCEPTION(java_ex); for(int i = 0; i < count; i++) { env->SetObjectArrayElement(result, i, elts[i]); THROW_ANY_EXCEPTION(java_ex); } return result; }
const char *CAstWrapper::getEntityName(jobject entity) { jstring jstr = (jstring) env->CallObjectMethod(entity, _getEntityName); THROW_ANY_EXCEPTION(java_ex); const char *cstr1 = env->GetStringUTFChars(jstr, NULL); const char *cstr2 = strdup( cstr1 ); env->ReleaseStringUTFChars(jstr, cstr1); THROW_ANY_EXCEPTION(java_ex); return cstr2; }
jobject CAstWrapper::makeFieldEntity(jobject declaringClass, jobject name, bool isStatic, list<jobject> *modifiers) { jobject entity = env->NewObject(NativeFieldEntity, fieldEntityInit, getConstantValue(name), makeSet(modifiers), isStatic, declaringClass); THROW_ANY_EXCEPTION(java_ex); return entity; }
jobject CAstWrapper::makeNode(int kind, jobject c1) { assertIsCAstNode(c1, 1); jobject r = env->CallObjectMethod(Ast, makeNode1, (jint) kind, c1); THROW_ANY_EXCEPTION(java_ex); LOG(r); return r; }
void CAstWrapper::log(jobject castTree) { jstring jstr = (jstring)env->CallStaticObjectMethod(CAstPrinter, castPrint, castTree); const char *cstr = env->GetStringUTFChars(jstr, NULL); fprintf(stderr, "%s\n", cstr); env->ReleaseStringUTFChars(jstr, cstr); THROW_ANY_EXCEPTION(java_ex); }
jobject CAstWrapper::makeClassEntity(jobject classType) { jobject entity = env->NewObject(NativeClassEntity, classEntityInit, classType); THROW_ANY_EXCEPTION(java_ex); return entity; }
jobject CAstWrapper::makeConstant(const char *strData) { jobject val = env->NewStringUTF( strData ); jobject r = env->CallObjectMethod(Ast, makeObject, val); THROW_ANY_EXCEPTION(java_ex); LOG(r); return r; }
jobject CAstWrapper::makeConstant(const char *strData, int strLen) { char *safeData = strndup(strData, strLen); jobject val = env->NewStringUTF( safeData ); delete safeData; jobject r = env->CallObjectMethod(Ast, makeObject, val); THROW_ANY_EXCEPTION(java_ex); LOG(r); return r; }
bool CAstWrapper::isConstantOfType(jobject castNode, jclass type) { // // one might think this test against null is not needed, since // IsInstanceoOf ought to return false given null and any type at // all, which is what happens with the `instanceof'operator in Java. // This does not seem to be the case however. // if (isConstantValue(castNode)) { jobject jval = env->CallObjectMethod(castNode, getValue); THROW_ANY_EXCEPTION(java_ex); jboolean result = env->IsInstanceOf(jval, type); THROW_ANY_EXCEPTION(java_ex); return (bool) result; } else { return false; } }
jobject CAstWrapper::makeSymbol(const char *name, bool isFinal) { jobject val = env->NewStringUTF( name ); THROW_ANY_EXCEPTION(java_ex); jobject s = env->NewObject(CAstSymbol, castSymbolInit2, val, isFinal); LOG(s); return s; }
jobject CAstWrapper::makeNode(int kind, jobject c1, jobject c2, jobject c3, jobject c4) { assertIsCAstNode(c1, 1); assertIsCAstNode(c2, 2); assertIsCAstNode(c3, 3); assertIsCAstNode(c4, 4); jobject r = env->CallObjectMethod(Ast, makeNode4, (jint) kind, c1, c2, c3, c4); THROW_ANY_EXCEPTION(java_ex); LOG(r); return r; }
jobjectArray CAstWrapper::makeArray(jclass type, list<jobject> *elts) { jobjectArray result = env->NewObjectArray(elts->size(), type, NULL); int i = 0; for(list<jobject>::iterator it=elts->begin(); it!=elts->end(); it++) { env->SetObjectArrayElement(result, i++, *it); } THROW_ANY_EXCEPTION(java_ex); return result; }
jobject CAstWrapper::makeSymbol(const char *name, bool isFinal) { char *safeName = strndup(name, strlen(name)+1); jobject val = env->NewStringUTF( safeName ); delete safeName; THROW_ANY_EXCEPTION(java_ex); jobject s = env->NewObject(CAstSymbol, castSymbolInit2, val, isFinal); LOG(s); return s; }
jobject CAstWrapper::makeList(list<jobject> *elts) { jobject set = env->NewObject(LinkedList, linkedListInit); THROW_ANY_EXCEPTION(java_ex); if (elts == NULL) return set; for(list<jobject>::iterator it=elts->begin(); it!=elts->end(); it++) { env->CallBooleanMethod(set, linkedListAdd, *it); } return set; }
jobject CAstWrapper::makeSymbol(const char *name, bool isFinal, bool isCaseInsensitive, jobject defaultValue) { jobject val = env->NewStringUTF( name ); jobject s = env->NewObject(CAstSymbol, castSymbolInit4, val, isFinal, isCaseInsensitive, defaultValue); THROW_ANY_EXCEPTION(java_ex); LOG(s); return s; }
jobject CAstWrapper::getEntityAst(jobject entity) { jobject result = env->GetObjectField(entity, astField); THROW_ANY_EXCEPTION(java_ex); LOG(result); return result; }
CAstWrapper::CAstWrapper(JNIEnv *env, Exceptions &ex, jobject xlator) : java_ex(ex), env(env), xlator(xlator) { this->CAstNode = env->FindClass( __CNN ); this->CAstInterface = env->FindClass( __CTN ); this->HashSet = env->FindClass("java/util/HashSet"); this->LinkedList = env->FindClass("java/util/LinkedList"); this->NativeBridge = env->FindClass("com/ibm/wala/cast/ir/translator/NativeBridge"); this->NativeTranslatorToCAst = env->FindClass("com/ibm/wala/cast/ir/translator/NativeTranslatorToCAst"); jfieldID castFieldID = env->GetFieldID(NativeBridge, "Ast", "Lcom/ibm/wala/cast/tree/CAst;"); this->Ast = env->GetObjectField(xlator, castFieldID); jclass xlatorCls = env->FindClass( XlatorCls ); this->_makeLocation = env->GetMethodID(xlatorCls, "makeLocation", "(IIII)Lcom/ibm/wala/cast/tree/CAstSourcePositionMap$Position;"); THROW_ANY_EXCEPTION(java_ex); this->NativeEntity = env->FindClass(EntityCls); THROW_ANY_EXCEPTION(java_ex); this->addScopedEntity = env->GetMethodID(NativeEntity, "addScopedEntity", "(Lcom/ibm/wala/cast/tree/CAstNode;Lcom/ibm/wala/cast/tree/CAstEntity;)V"); THROW_ANY_EXCEPTION(java_ex); this->entityGetType = env->GetMethodID(NativeEntity, "getType", "()Lcom/ibm/wala/cast/tree/CAstType;"); THROW_ANY_EXCEPTION(java_ex); this->NativeClassEntity = env->FindClass(ClassCls); THROW_ANY_EXCEPTION(java_ex); this->classEntityInit = env->GetMethodID(NativeClassEntity, "<init>", "(Lcom/ibm/wala/cast/tree/CAstType$Class;)V"); THROW_ANY_EXCEPTION(java_ex); this->NativeCodeEntity = env->FindClass(CodeEntityCls); THROW_ANY_EXCEPTION(java_ex); this->astField = env->GetFieldID(NativeCodeEntity, "Ast", "Lcom/ibm/wala/cast/tree/CAstNode;"); THROW_ANY_EXCEPTION(java_ex); this->codeSetGotoTarget = env->GetMethodID(NativeCodeEntity, "setGotoTarget", "(Lcom/ibm/wala/cast/tree/CAstNode;Lcom/ibm/wala/cast/tree/CAstNode;)V"); THROW_ANY_EXCEPTION(java_ex); this->codeSetLabelledGotoTarget = env->GetMethodID(NativeCodeEntity, "setLabelledGotoTarget", "(Lcom/ibm/wala/cast/tree/CAstNode;Lcom/ibm/wala/cast/tree/CAstNode;Ljava/lang/Object;)V"); THROW_ANY_EXCEPTION(java_ex); this->setNodePosition = env->GetMethodID(NativeCodeEntity, "setNodePosition", "(Lcom/ibm/wala/cast/tree/CAstNode;Lcom/ibm/wala/cast/tree/CAstSourcePositionMap$Position;)V"); THROW_ANY_EXCEPTION(java_ex); this->setNodeType = env->GetMethodID(NativeCodeEntity, "setNodeType", "(Lcom/ibm/wala/cast/tree/CAstNode;Lcom/ibm/wala/cast/tree/CAstType;)V"); THROW_ANY_EXCEPTION(java_ex); this->setPosition = env->GetMethodID(NativeEntity, "setPosition", "(Lcom/ibm/wala/cast/tree/CAstSourcePositionMap$Position;)V"); THROW_ANY_EXCEPTION(java_ex); this->NativeFieldEntity = env->FindClass(FieldCls); THROW_ANY_EXCEPTION(java_ex); this->fieldEntityInit = env->GetMethodID(NativeFieldEntity, "<init>", "(Ljava/lang/String;Ljava/util/Set;Z" __CES ")V"); THROW_ANY_EXCEPTION(java_ex); this->NativeGlobalEntity = env->FindClass(GlobalCls); THROW_ANY_EXCEPTION(java_ex); this->globalEntityInit = env->GetMethodID(NativeGlobalEntity, "<init>", "(Ljava/lang/String;Lcom/ibm/wala/cast/tree/CAstType;Ljava/util/Set;)V"); THROW_ANY_EXCEPTION(java_ex); this->AbstractScriptEntity = env->FindClass(ScriptCls); THROW_ANY_EXCEPTION(java_ex); this->makeNode0 = env->GetMethodID(CAstInterface, __MN, zeroSig); THROW_ANY_EXCEPTION(java_ex); this->makeNode1 = env->GetMethodID(CAstInterface, __MN, oneSig); THROW_ANY_EXCEPTION(java_ex); this->makeNode2 = env->GetMethodID(CAstInterface, __MN, twoSig); THROW_ANY_EXCEPTION(java_ex); this->makeNode3 = env->GetMethodID(CAstInterface, __MN, threeSig); THROW_ANY_EXCEPTION(java_ex); this->makeNode4 = env->GetMethodID(CAstInterface, __MN, fourSig); THROW_ANY_EXCEPTION(java_ex); this->makeNode5 = env->GetMethodID(CAstInterface, __MN, fiveSig); THROW_ANY_EXCEPTION(java_ex); this->makeNode6 = env->GetMethodID(CAstInterface, __MN, sixSig); THROW_ANY_EXCEPTION(java_ex); this->makeNodeNary = env->GetMethodID(CAstInterface, __MN, narySig); THROW_ANY_EXCEPTION(java_ex); this->makeNode1Nary = env->GetMethodID(CAstInterface, __MN, oneNarySig); THROW_ANY_EXCEPTION(java_ex); this->makeBool = env->GetMethodID(CAstInterface, __MC, boolSig); THROW_ANY_EXCEPTION(java_ex); this->makeChar = env->GetMethodID(CAstInterface, __MC, charSig); THROW_ANY_EXCEPTION(java_ex); this->makeShort = env->GetMethodID(CAstInterface, __MC, shortSig); THROW_ANY_EXCEPTION(java_ex); this->makeInt = env->GetMethodID(CAstInterface, __MC, intSig); THROW_ANY_EXCEPTION(java_ex); this->makeLong = env->GetMethodID(CAstInterface, __MC, longSig); THROW_ANY_EXCEPTION(java_ex); this->makeDouble = env->GetMethodID(CAstInterface, __MC, doubleSig); THROW_ANY_EXCEPTION(java_ex); this->makeFloat = env->GetMethodID(CAstInterface, __MC, floatSig); THROW_ANY_EXCEPTION(java_ex); this->makeObject = env->GetMethodID(CAstInterface, __MC, objectSig); THROW_ANY_EXCEPTION(java_ex); this->getChild = env->GetMethodID(CAstNode, "getChild", "(I)" __CNS); THROW_ANY_EXCEPTION(java_ex); this->_getChildCount = env->GetMethodID(CAstNode, "getChildCount", "()I"); THROW_ANY_EXCEPTION(java_ex); this->getValue = env->GetMethodID(CAstNode, "getValue", "()" __OBJS); THROW_ANY_EXCEPTION(java_ex); this->_getKind = env->GetMethodID(CAstNode, "getKind", "()I"); THROW_ANY_EXCEPTION(java_ex); jclass CAstMemberReference = env->FindClass( __CRN ); THROW_ANY_EXCEPTION(java_ex); jfieldID ff = env->GetStaticFieldID(CAstMemberReference, "FUNCTION", __CRS); THROW_ANY_EXCEPTION(java_ex); this->callReference = env->GetStaticObjectField(CAstMemberReference, ff); THROW_ANY_EXCEPTION(java_ex); this->CAstPrinter = env->FindClass("com/ibm/wala/cast/util/CAstPrinter"); THROW_ANY_EXCEPTION(java_ex); this->castPrint = env->GetStaticMethodID(CAstPrinter, "print", "(Lcom/ibm/wala/cast/tree/CAstNode;)Ljava/lang/String;"); THROW_ANY_EXCEPTION(java_ex); this->hashSetInit = env->GetMethodID(HashSet, "<init>", "()V"); THROW_ANY_EXCEPTION(java_ex); this->hashSetAdd = env->GetMethodID(HashSet, "add", "(Ljava/lang/Object;)Z"); THROW_ANY_EXCEPTION(java_ex); this->linkedListInit = env->GetMethodID(LinkedList, "<init>", "()V"); THROW_ANY_EXCEPTION(java_ex); this->linkedListAdd = env->GetMethodID(LinkedList, "add", "(Ljava/lang/Object;)Z"); THROW_ANY_EXCEPTION(java_ex); jclass obj = env->FindClass( __OBJN ); THROW_ANY_EXCEPTION(java_ex); this->toString = env->GetMethodID(obj, "toString", "()Ljava/lang/String;"); THROW_ANY_EXCEPTION(java_ex); this->getClass = env->GetMethodID(obj, "getClass", "()Ljava/lang/Class;"); THROW_ANY_EXCEPTION(java_ex); jclass intcls = env->FindClass("java/lang/Integer"); THROW_ANY_EXCEPTION(java_ex); this->intValue = env->GetMethodID(intcls, "intValue", "()I"); THROW_ANY_EXCEPTION(java_ex); jclass castEntity = env->FindClass("com/ibm/wala/cast/tree/CAstEntity"); THROW_ANY_EXCEPTION(java_ex); this->_getEntityName = env->GetMethodID(castEntity, "getName", "()Ljava/lang/String;"); CAstSymbol = env->FindClass("com/ibm/wala/cast/tree/impl/CAstSymbolImpl"); THROW_ANY_EXCEPTION(java_ex); this->castSymbolInit1 = env->GetMethodID(CAstSymbol, "<init>", "(Ljava/lang/String;)V"); THROW_ANY_EXCEPTION(java_ex); this->castSymbolInit2 = env->GetMethodID(CAstSymbol, "<init>", "(Ljava/lang/String;Z)V"); THROW_ANY_EXCEPTION(java_ex); this->castSymbolInit3 = env->GetMethodID(CAstSymbol, "<init>", "(Ljava/lang/String;ZZ)V"); THROW_ANY_EXCEPTION(java_ex); this->castSymbolInit4 = env->GetMethodID(CAstSymbol, "<init>", "(Ljava/lang/String;ZZLjava/lang/Object;)V"); THROW_ANY_EXCEPTION(java_ex); }
jobject CAstWrapper::makeConstant(double val) { jobject r = env->CallObjectMethod(Ast, makeDouble, (jdouble)val); THROW_ANY_EXCEPTION(java_ex); LOG(r); return r; }
bool CAstWrapper::isConstantValue(jobject castNode) { jobject jval = env->CallObjectMethod(castNode, getValue); THROW_ANY_EXCEPTION(java_ex); return jval != NULL; }
jobject CAstWrapper::makeConstant(jobject val) { jobject r = env->CallObjectMethod(Ast, makeObject, val); THROW_ANY_EXCEPTION(java_ex); LOG(r); return r; }
jobject CAstWrapper::getNthChild(jobject castNode, int index) { jobject result = env->CallObjectMethod(castNode, getChild, index); THROW_ANY_EXCEPTION(java_ex); return result; }
int CAstWrapper::getChildCount(jobject castNode) { int result = env->CallIntMethod(castNode, _getChildCount); THROW_ANY_EXCEPTION(java_ex); return result; }
bool CAstWrapper::isSwitchDefaultConstantValue(jobject castNode) { jobject jval = env->CallObjectMethod(castNode, getValue); THROW_ANY_EXCEPTION(java_ex); return env->IsSameObject(jval, SWITCH_DEFAULT); }
bool CAstWrapper::isConstantOfType(jobject castNode, const char *typeName) { jclass type = env->FindClass( typeName ); THROW_ANY_EXCEPTION(java_ex); return isConstantOfType(castNode, type); }
void CAstWrapper::setEntityAst(jobject entity, jobject ast) { env->SetObjectField(entity, astField, ast); THROW_ANY_EXCEPTION(java_ex); }
jobject CAstWrapper::getEntityType(jobject entity) { jobject result = env->CallObjectMethod(entity, entityGetType); THROW_ANY_EXCEPTION(java_ex); return result; }
int CAstWrapper::getKind(jobject castNode) { jint result = env->CallIntMethod(castNode, _getKind); THROW_ANY_EXCEPTION(java_ex); return result; }