Files
gf-core/src/runtime/java/jpgf.c

32 lines
810 B
C

#include <pgf/pgf.h>
#include <gu/mem.h>
#include "org_grammaticalframework_PGF.h"
JNIEXPORT jobject JNICALL
Java_org_grammaticalframework_PGF_readPGF(JNIEnv *env, jclass cls, jstring s)
{
const char *fpath = (*env)->GetStringUTFChars(env, s, 0);
GuPool* pool = gu_new_pool();
GuPool* tmp_pool = gu_local_pool();
// Create an exception frame that catches all errors.
GuExn* err = gu_new_exn(NULL, gu_kind(type), tmp_pool);
// Read the PGF grammar.
PgfPGF* pgf = pgf_read(fpath, pool, err);
if (!gu_ok(err)) {
gu_pool_free(pool);
gu_pool_free(tmp_pool);
return NULL;
}
gu_pool_free(tmp_pool);
(*env)->ReleaseStringUTFChars(env, s, fpath);
jmethodID constrId = (*env)->GetMethodID(env, cls, "<init>", "(II)V");
return (*env)->NewObject(env, cls, constrId, (int) pool, (int) pgf);
}