Project

Profile

Help

Bug #4595 » Query.c

O'Neil Delpratt, 2020-06-16 11:47

 
#include <jni.h>

#if defined __linux__ || defined __APPLE__
#include <stdlib.h>
#include <string.h>
#include <dlfcn.h>
#include <stdio.h>
#define HANDLE void*
#define LoadLibrary(x) dlopen(x, RTLD_LAZY)
// #define FreeLibrary(x) dlclose(x, RTLD_LAZY)
#define GetProcAddress(x,y) dlsym(x,y)
#else
#include <windows.h>
#endif

#ifndef __cplusplus
#ifndef _BOOL
#include <stdbool.h>
//typedef int bool;
#define true 1
#define false 0
#else
#define true 1
#define false 0
#endif
#endif


char * dllname;
char * resources_dir;
int jvmCreated = 0;
char * tempDllname =
#if defined (__linux__)
#ifdef EEC
"/libsaxoneec.so";
#elif defined PEC
"/libsaxonpec.so";
#else
"/libsaxonhec.so";
#endif
#elif defined (__APPLE__) && defined(__MACH__)
#ifdef EEC
"/libsaxoneec.dylib";
#elif defined PEC
"/libsaxonpec.dylib";
#else
"/libsaxonhec.dylib";
#endif
#else
#ifdef EEC
"\\libsaxoneec.dll";
#elif defined PEC
"\\libsaxonpec.dll";
#else
"\\libsaxonhec.dll";
#endif
#endif

char * tempResources_dir =
#ifdef __linux__
"/saxon-data";
#elif defined (__APPLE__) && defined(__MACH__)
"/saxon-data";
#else
"\\saxon-data";
#endif

char * dllPath =
#if defined (__linux__)
"/usr/lib";
#elif defined (__APPLE__) && defined(__MACH__)
"/usr/local/lib";
#else
#ifdef EEC
"C:\\Program Files\\Saxonica\\SaxonEEC1.2.1";
#elif defined PEC
"C:\\Program Files\\Saxonica\\SaxonPEC1.2.1";
#else
"C:\\Program Files\\Saxonica\\SaxonHEC1.2.1";
#endif
#endif


//===============================================================================================//
/*! <code>sxnc_environment</code>. This struct captures the jni, JVM and handler to the cross compiled Saxon/C library.
* <p/>
*/
typedef struct {
JNIEnv *env;
HANDLE myDllHandle;
JavaVM *jvm;
} sxnc_environment;


//===============================================================================================//

/*! <code>MyParameter</code>. This struct captures details of paramaters used for the transformation as (string, value) pairs.
* <p/>
*/
typedef struct {
char* name;
jobject value;
} MyParameter;

//===============================================================================================//

/*! <code>MyProperty</code>. This struct captures details of properties used for the transformation as (string, string) pairs.
* <p/>
*/
typedef struct {
char * name;
char * value;
} MyProperty;

jobject cpp;



const char * failure;

/*
* Set Dll name. Also set the saxon resources directory.
* If the SAXONC_HOME sxnc_environmental variable is set then use that as base.
*/
void setDllname() {
size_t name_len = strlen(tempDllname);
size_t rDir_len = strlen(tempResources_dir);
char * env = getenv("SAXONC_HOME");
size_t env_len;
if (env != NULL) {


env_len = strlen(env);
int bufSize = name_len + env_len + 1;
int rbufSize = rDir_len + env_len + 1;
dllname = malloc(sizeof(char)*bufSize);
resources_dir = malloc(sizeof(char)*rbufSize);
snprintf(dllname, bufSize, "%s%s", env, tempDllname);
snprintf(resources_dir, rbufSize, "%s%s", env, tempResources_dir);

#ifdef DEBUG

printf("envDir: %s\n", env);


#endif

}
else {
env_len = strlen(dllPath);
int bufSize = name_len + env_len + 1;
int rbufSize = rDir_len + env_len + 1;
dllname = malloc(sizeof(char)*bufSize);
resources_dir = malloc(sizeof(char)*rbufSize);

#ifdef DEBUG
if (dllname == NULL || resources_dir == NULL)
{
// error
printf("Error in allocation of Dllname\n");
}
#endif
if (snprintf(dllname, bufSize, "%s%s", dllPath, tempDllname) >= bufSize) {
bufSize *= 2;
free(dllname);
dllname = malloc(sizeof(char)*bufSize);
if (snprintf(dllname, bufSize, "%s%s", dllPath, tempDllname) >= bufSize) {
printf("Saxon/C Error: Unable to allocate space for dllname and path");
exit(1);
}
}
if (snprintf(resources_dir, rbufSize, "%s%s", dllPath, tempResources_dir) >= rbufSize) {
printf("Saxon/C warning: Unable to allocate space for resources directory");

}
}


#ifdef DEBUG

printf("Library length: %zu\n", name_len);
printf("Env length: %zu\n", env_len);
printf("size of dllname %zu\n", strlen(dllname));
printf("dllName: %s\n", dllname);
printf("resources_dir: %s\n", resources_dir);
printf("size of resources dir %zu\n", strlen(resources_dir));
#endif

}

/*
* Load dll.
*/
HANDLE loadDll(char* name)
{
HANDLE hDll = LoadLibrary (name);

if (!hDll) {
printf ("Unable to load %s\n", name);
exit(1);
}
#ifdef DEBUG
printf ("%s loaded\n", name);
#endif
return hDll;
}


jint (JNICALL * JNI_GetDefaultJavaVMInitArgs_func) (void *args);
jint (JNICALL * JNI_CreateJavaVM_func) (JavaVM **pvm, void **penv, void *args);

/*
* Initialize JET run-time.
*/
void initJavaRT(HANDLE myDllHandle, JavaVM** pjvm, JNIEnv** penv)
{
int result;
JavaVMInitArgs args;

JNI_GetDefaultJavaVMInitArgs_func =
(jint (JNICALL *) (void *args))
GetProcAddress (myDllHandle, "JNI_GetDefaultJavaVMInitArgs");

JNI_CreateJavaVM_func =
(jint (JNICALL *) (JavaVM **pvm, void **penv, void *args))
GetProcAddress (myDllHandle, "JNI_CreateJavaVM");

if(!JNI_GetDefaultJavaVMInitArgs_func) {
printf ("%s doesn't contain public JNI_GetDefaultJavaVMInitArgs\n", dllname);
exit (1);
}

if(!JNI_CreateJavaVM_func) {
printf ("%s doesn't contain public JNI_CreateJavaVM\n", dllname);
exit (1);
}

memset (&args, 0, sizeof(args));

args.version = JNI_VERSION_1_2;
result = JNI_GetDefaultJavaVMInitArgs_func(&args);
if (result != JNI_OK) {
printf ("JNI_GetDefaultJavaVMInitArgs() failed with result %d\n", result);
exit(1);
}
/*
* NOTE: no JVM is actually created
* this call to JNI_CreateJavaVM is intended for JET RT initialization
*/
result = JNI_CreateJavaVM_func (pjvm, (void **)penv, &args);
if (result != JNI_OK) {
printf ("JNI_CreateJavaVM() failed with result %d\n", result);
exit(1);
}
#ifdef DEBUG
printf ("JET RT initialized\n");
fflush (stdout);
#endif
}


/*
* Look for class.
*/
jclass lookForClass (JNIEnv* penv, char* name)
{
jclass clazz = (*penv)->FindClass (penv, name);

if (!clazz) {
printf("Unable to find class %s\n", name);
return NULL;
}
#ifdef DEBUG
printf ("Class %s found\n", name);
fflush (stdout);
#endif

return clazz;
}


jmethodID findConstructor (JNIEnv* penv, jclass myClassInDll, char* arguments)
{
jmethodID MID_init, mID;
jobject obj;

MID_init = (jmethodID)(*penv)->GetMethodID (penv, myClassInDll, "<init>", arguments);
if (!MID_init) {
printf("Error: MyClassInDll.<init>() not found\n");
fflush (stdout);
return 0;
}

return MID_init;
}

jobject createObject (JNIEnv* penv, jclass myClassInDll, const char * arguments)
{
jmethodID MID_init, mID;
jobject obj;

MID_init = (jmethodID)(*(penv))->GetMethodID (penv, myClassInDll, "<init>", arguments);
if (!MID_init) {
printf("Error: MyClassInDll.<init>() not found\n");
return NULL;
}

obj = (jobject)(*(penv))->NewObject(penv, myClassInDll, MID_init, (jboolean)true);
if (!obj) {
printf("Error: failed to allocate an object\n");
return NULL;
}
return obj;
}

void checkForException(sxnc_environment environi, jclass callingClass, jobject callingObject){

if ((*(environi.env))->ExceptionCheck(environi.env)) {
char * result1;
const char * errorCode = NULL;
jthrowable exc = (*(environi.env))->ExceptionOccurred(environi.env);
(*(environi.env))->ExceptionDescribe(environi.env); //comment code
jclass exccls = (jclass)(*(environi.env))->GetObjectClass(environi.env, exc);
jclass clscls = (jclass)(*(environi.env))->FindClass(environi.env, "java/lang/Class");

jmethodID getName = (jmethodID)(*(environi.env))->GetMethodID(environi.env, clscls, "getName", "()Ljava/lang/String;");
jstring name =(jstring)((*(environi.env))->CallObjectMethod(environi.env, exccls, getName));
char const* utfName = (char const*)(*(environi.env))->GetStringUTFChars(environi.env, name, 0);
printf(utfName);

jmethodID getMessage = (jmethodID)(*(environi.env))->GetMethodID(environi.env, exccls, "getMessage", "()Ljava/lang/String;");
if(getMessage) {

jstring message = (jstring)((*(environi.env))->CallObjectMethod(environi.env, exc, getMessage));
if(message) {
char const* utfMessage = (char const*)(*(environi.env))->GetStringUTFChars(environi.env, message, 0);
}
}

}
//return NULL;

}


void finalizeJavaRT (JavaVM* jvm)
{
(*jvm)->DestroyJavaVM (jvm);
}





int query(sxnc_environment environi, int argc, const char* argv[]) {


jmethodID MID_foo;
jclass transClass = lookForClass(environi.env, "net/sf/saxon/Query");
char methodName[] = "main";
char args[] = "([Ljava/lang/String;)V";
jobjectArray stringArray = NULL;
MID_foo = (jmethodID)(*(environi.env))->GetStaticMethodID(environi.env, transClass, methodName, args);
if (!MID_foo) {
printf("\nError: MyClassInDll %s() not found\n",methodName);
fflush (stdout);
return -1;
}
if(argc < 2) {
printf("\nError: Not enough arguments in Query");
return 0;
}
jclass stringClass = lookForClass(environi.env, "java/lang/String");
stringArray = (*(environi.env))->NewObjectArray(environi.env, (jint)argc-1, stringClass, 0 );
if(!stringArray) { return 0;}
int i, j;
for(i=1, j=0; i< argc; i++, j++) {
(*(environi.env))->SetObjectArrayElement(environi.env, stringArray, j, (*(environi.env))->NewStringUTF(environi.env, argv[i]));
}

(*(environi.env))->CallStaticVoidMethod(environi.env, transClass, MID_foo, stringArray);
(*(environi.env))->DeleteLocalRef(environi.env, stringArray);
return 0;
}




int main( int argc, const char* argv[] )
{
HANDLE myDllHandle;
//JNIEnv *(environi.env);
//JavaVM *jvm;
jclass myClassInDll;

sxnc_environment environi;
/*
* First of all, load required component.
* By the time of JET initialization, all components should be loaded.
*/
setDllname();
environi.myDllHandle = loadDll (dllname);

/*
* Initialize JET run-time.
* The handle of loaded component is used to retrieve Invocation API.
*/
initJavaRT (environi.myDllHandle, &environi.jvm, &environi.env);
query(environi, argc, argv);

fflush(stdout);
/*
* Finalize JET run-time.
*/
finalizeJavaRT (environi.jvm);

return 0;
}
(2-2/3)