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;
}
