#include "gridlabd.h"

#include "gridlabd_java.h"

#define JAVA_CLASS_PATH "Win32/Debug/"

#define JAVA_LIB_PATH "Win32/Debug/"

static JavaVM *jvm = NULL;

char256 classpath, libpath;

char *get_classpath(){return classpath;}

char *get_libpath(){return libpath;}

static JAVACALLBACKS jcallbacks = {

get_jvm,

get_env,

set_obj,

};

JavaVM *init_jvm();

CDECL JavaVM *get_jvm(){

return jvm ? jvm : init_jvm();

}

void *get_jcb(){

return &jcallbacks;

}

CDECL JNIEnv *get_env(){

JNIEnv *env;

if(jvm == NULL)

init_jvm();

jvm->AttachCurrentThread((void **)&env, NULL);

return env;

}

CDECL void *set_obj(jobject obj, OBJECT * object_addr, void *block_addr, int id){

JNIEnv *jnienv = get_env();

jclass cls = jnienv->FindClass("GObject");

if(cls == NULL){

gl_error("%s(%s): unable to find GObject.class", __FILE__, __LINE__);

return NULL;

}

jmethodID mid = jnienv->GetMethodID(cls, "SetObject", "(JJI)V");

if(mid == NULL){

gl_error("%s(%s): unable to find \"void GObject.SetObject(long, long, int)\"", __FILE__, __LINE__);

return NULL;

}

jnienv->CallVoidMethod(obj, mid, (int64)object_addr, (int64)block_addr, id);

return NULL;

}

EXPORT int do_kill()

}

EXPORT void *getvar(char *varname, char *value, unsigned int size){

void *rv = NULL;

if(strcmp(varname, "jcallback") == 0)

{

rv = (void *)&jcallbacks;

}

else if(strcmp(varname, "jvm") == 0)

{

rv = (void *)get_jvm();

}

else if(strcmp(varname, "jnienv") == 0)

{

rv = (void *)get_env();

}

return rv;

}

JavaVM *init_jvm(){

JavaVMOption options[2];

JavaVMInitArgs vm_args;

JNIEnv *jnienv = NULL;

int rv = 0;

PROPERTYTYPE p;

if(sizeof(void *) == sizeof(int32))

p = PT_int32;

if(sizeof(void *) == sizeof(int64))

p = PT_int64;

char cpath[1025], lpath[1025];

sprintf(cpath, "-Djava.class.path=%s", get_classpath());

sprintf(lpath, "-Djava.library.path=%s", get_libpath());

options[0].optionString = cpath;

options[1].optionString = lpath;

//options[0].optionString = "-Djava.class.path=Win32/Debug/";

//options[1].optionString = "-Djava.library.path=Win32/Debug/";

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

vm_args.version = JNI_VERSION_1_6;

vm_args.nOptions = 2;

vm_args.options = options;

printf("Creating JVM...\n");

rv = JNI_CreateJavaVM(&jvm, (void **)&jnienv, &vm_args);

if(rv == 0)

printf("JVM successfully created.\n");

else

printf("JVM creation failed.\n");

gl_global_create("glmjava::jvm",p,get_jvm(),PT_ACCESS,PA_REFERENCE,NULL);

gl_global_create("glmjava::jnienv",p,get_env(),PT_ACCESS,PA_REFERENCE,NULL);

return jvm;

}

EXPORT jint JNICALL Java_gridlabd_GObject__1GetID(JNIEnv *env, jclass _this, jlong oaddr){

OBJECT *obj = (OBJECT *)oaddr;

return obj->id;

}

EXPORT jlong JNICALL Java_gridlabd_GObject__1GetOClass(JNIEnv *env, jclass _this, jlong oaddr){

OBJECT *obj = (OBJECT *)oaddr;

return (int64)(obj->oclass);

}

EXPORT jlong JNICALL Java_gridlabd_GObject__1GetNext(JNIEnv *env, jclass _this, jlong oaddr){

OBJECT *obj = (OBJECT *)oaddr;

return (int64)(obj->next);

}

EXPORT jstring JNICALL Java_gridlabd_GObject__1GetName(JNIEnv *env, jclass _this, jlong oaddr){

OBJECT *obj = (OBJECT *)oaddr;

return env->NewStringUTF(obj->name);

}

EXPORT jlong JNICALL Java_gridlabd_GObject__1GetParent(JNIEnv *env, jclass _this, jlong oaddr){

OBJECT *obj = (OBJECT *)oaddr;

return (int64)(obj->parent);

}

EXPORT jint JNICALL Java_gridlabd_GObject__1GetRank(JNIEnv *env, jclass _this, jlong oaddr){

OBJECT *obj = (OBJECT *)oaddr;

return obj->rank;

}

EXPORT jlong JNICALL Java_gridlabd_GObject__1GetClock(JNIEnv *env, jclass _this, jlong oaddr){

OBJECT *obj = (OBJECT *)oaddr;

return obj->clock;

}

EXPORT jdouble JNICALL Java_gridlabd_GObject__1GetLongitude(JNIEnv *env, jclass _this, jlong oaddr){

OBJECT *obj = (OBJECT *)oaddr;

return obj->longitude;

}

EXPORT jdouble JNICALL Java_gridlabd_GObject__1GetLatitude(JNIEnv *env, jclass _this, jlong oaddr){

OBJECT *obj = (OBJECT *)oaddr;

return obj->latitude;

}

EXPORT jlong JNICALL Java_gridlabd_GObject__1GetInSvc(JNIEnv *env, jclass _this, jlong oaddr){

OBJECT *obj = (OBJECT *)oaddr;

return (int64)(obj->in_svc);

}

EXPORT jlong JNICALL Java_gridlabd_GObject__1GetOutSvc(JNIEnv *env, jclass _this, jlong oaddr){

OBJECT *obj = (OBJECT *)oaddr;

return (int64)(obj->out_svc);

}

EXPORT jlong JNICALL Java_gridlabd_GObject__1GetFlags(JNIEnv *env, jclass _this, jlong oaddr){

OBJECT *obj = (OBJECT *)oaddr;

return (int64)(obj->flags);

}

EXPORT void JNICALL Java_gridlabd_GObject__1SetParent(JNIEnv *env, jclass _this, jlong oaddr, jlong paddr){

OBJECT *obj = (OBJECT *)oaddr;

obj->parent = (OBJECT *)paddr;

}

EXPORT void JNICALL Java_gridlabd_GObject__1SetFlags(JNIEnv *env, jclass _this, jlong oaddr, jint flags){

OBJECT *obj = (OBJECT *)oaddr;

obj->flags ^= (unsigned long)flags;

}

EXPORT jstring JNICALL Java_gridlabd_GObject__1GetStringProp(JNIEnv *env, jclass _this, jlong oaddr, jlong offset, jlong size){

}

EXPORT void JNICALL Java_gridlabd_GObject__1SetStringProp(JNIEnv *env, jclass _this, jlong oaddr, jlong offset, jlong size, jstring str){

}

EXPORT jint JNICALL Java_gridlabd_GObject__1GetInt16Prop(JNIEnv *env, jclass _this, jlong oaddr, jlong offset){

return *(int16 *)(oaddr+offset+sizeof(OBJECT));

}

EXPORT void JNICALL Java_gridlabd_GObject__1SetInt16Prop(JNIEnv *env, jclass _this, jlong oaddr, jlong offset, jint val){

*(int16 *)(oaddr+offset+sizeof(OBJECT)) = (int16)val;

}

EXPORT jint JNICALL Java_gridlabd_GObject__1GetInt32Prop(JNIEnv *env, jclass _this, jlong oaddr, jlong offset){

return *(int32 *)(oaddr+offset+sizeof(OBJECT));

}

EXPORT void JNICALL Java_gridlabd_GObject__1SetInt32Prop(JNIEnv *env, jclass _this, jlong oaddr, jlong offset, jint val){

*(int32 *)(oaddr+offset+sizeof(OBJECT)) = val;

}

EXPORT jlong JNICALL Java_gridlabd_GObject__1GetInt64Prop(JNIEnv *env, jclass _this, jlong oaddr, jlong offset){

return *(int64 *)(oaddr+offset+sizeof(OBJECT));

}

EXPORT jlong JNICALL Java_gridlabd_GObject__1GetObjectProp(JNIEnv *env, jclass _this, jlong oaddr, jlong offset){

return *(int64 *)(oaddr+offset+sizeof(OBJECT));

}

EXPORT void JNICALL Java_gridlabd_GObject__1SetInt64Prop(JNIEnv *env, jclass _this, jlong oaddr, jlong offset, jlong val){

*(int64 *)(oaddr+offset+sizeof(OBJECT)) = val;

}

EXPORT jdouble JNICALL Java_gridlabd_GObject__1GetDoubleProp(JNIEnv *env, jclass _this, jlong oaddr, jlong offset){

return *(double *)(oaddr+offset+sizeof(OBJECT));

}

EXPORT void JNICALL Java_gridlabd_GObject__1SetDoubleProp(JNIEnv *env, jclass _this, jlong oaddr, jlong offset, jdouble val){

*(double *)(oaddr+offset+sizeof(OBJECT)) = val;

}

EXPORT jdouble JNICALL Java_gridlabd_GObject__1GetComplexRealProp(JNIEnv *env, jclass _this, jlong oaddr, jlong offset){

complex *c = (complex *)(oaddr+offset+sizeof(OBJECT));

return c->Re();

}

EXPORT jdouble JNICALL Java_gridlabd_GObject__1GetComplexImagProp(JNIEnv *env, jclass _this, jlong oaddr, jlong offset){

complex *c = (complex *)(oaddr+offset+sizeof(OBJECT));

return c->Im();

}

EXPORT void JNICALL Java_gridlabd_GObject__1SetComplexProp(JNIEnv *env, jclass _this, jlong oaddr, jlong offset, jdouble re, jdouble im){

}

EXPORT jint JNICALL Java_gridlabd_GridlabD_verbose(JNIEnv *env, jclass _this, jstring str){

}

EXPORT jint JNICALL Java_gridlabd_GridlabD_output(JNIEnv *env, jclass _this, jstring str){

}

EXPORT jint JNICALL Java_gridlabd_GridlabD_warning(JNIEnv *env, jobject _this, jstring str){

}

EXPORT jint JNICALL Java_gridlabd_GridlabD_error(JNIEnv *env, jobject _this, jstring str){

}

EXPORT jint JNICALL Java_gridlabd_GridlabD_debug(JNIEnv *env, jobject _this, jstring str){

}

EXPORT jint JNICALL Java_gridlabd_GridlabD_testmsg(JNIEnv *env, jobject _this, jstring str){

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_module_find(JNIEnv *env, jobject _this, jstring modulename){

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_get_module_var(JNIEnv *env, jobject _this, jstring modulename, jstring varname){

}

EXPORT jstring JNICALL Java_gridlabd_GridlabD_findfile(JNIEnv *env, jobject _this, jstring filename){

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_find_1module(JNIEnv *env, jobject _this, jstring modulename){

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_find_1property(JNIEnv *env, jobject _this, jlong oclass_addr, jstring propname){

}

EXPORT jint JNICALL Java_gridlabd_GridlabD_module_1depends(JNIEnv *env, jobject _this, jstring modname, jint major, jint minor, jint build){

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_register_1class(JNIEnv *env, jobject _this, jlong moduleaddr, jstring classname, jint passconfig){

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_create_1object(JNIEnv *env, jobject _this, jlong oclass_addr, jlong size){

return (int64)(gl_create_object((CLASS *)oclass_addr));

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_create_1array(JNIEnv *env, jobject _this, jlong oclass_addr, jlong size, jint n_objects){

return (int64)(gl_create_array((CLASS *)oclass_addr, n_objects));

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_create_foreign(JNIEnv *env, jobject _this, jlong inobj){

OBJECT *ptr = gl_create_foreign((OBJECT *)inobj);

return (jlong)ptr;

}

EXPORT jint JNICALL Java_gridlabd_GridlabD_object_1isa(JNIEnv *env, jobject _this, jlong obj_addr, jstring _typename){

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_publish_1variable(JNIEnv *env, jobject _this, jlong moduleaddr, jlong classaddr, jstring varname, jstring vartype, jlong offset){

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_publish_1function(JNIEnv *env, jobject _this, jlong moduleaddr, jlong classaddr, jstring funcname){

gl_error("publish_function from Java not supported (still working on mapping fuctions to methods)");

return 0; /*****/

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_get_1function(JNIEnv *env, jobject _this, jstring classstr, jstring ftnstr){

gl_error("get_function from Java not supported (still working on mapping functions to methods)");

return 0;

}

EXPORT jint JNICALL Java_gridlabd_GridlabD_set_1dependent(JNIEnv *env, jobject _this, jlong from_addr, jlong to_addr){

return gl_set_dependent((OBJECT *)from_addr, (OBJECT *)to_addr);

}

EXPORT jint JNICALL Java_gridlabd_GridlabD_set_1parent(JNIEnv *env, jobject _this, jlong child_addr, jlong parent_addr){

return gl_set_parent((OBJECT *)child_addr, (OBJECT *)parent_addr);

}

EXPORT jint JNICALL Java_gridlabd_GridlabD_register_1type(JNIEnv *env, jobject _this, jlong oclass_addr, jstring _typename, jstring from_string_fname, jstring to_string_fname){

gl_error("register_type from Java not supported (still working on mapping fuctions to methods)");

return 0; /*****/

}

EXPORT jint JNICALL Java_gridlabd_GridlabD_publish_1delegate(JNIEnv *env, jobject _this){

gl_error("delegated types not supported using class_define_type (use class_define_map instead)");

return 0;

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_get_1property(JNIEnv *env, jobject _this, jlong oaddr, jstring propertyname){

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_get_1property_1by_1name(JNIEnv *env, jobject _this, jstring objectname, jstring propertyname){

}

EXPORT jstring JNICALL Java_gridlabd_GridlabD_get_1value(JNIEnv *env, jobject _this, jlong object_addr, jstring propertyname){

}

EXPORT jint JNICALL Java_gridlabd_GridlabD_set_1value(JNIEnv *env, jobject _this, jlong object_addr, jstring propertyname, jstring value){

}

EXPORT jdouble JNICALL Java_gridlabd_GridlabD_unit_1convert(JNIEnv *env, jobject _this, jstring from, jstring to, jdouble invalue){

}

EXPORT jdouble JNICALL Java_gridlabd_GridlabD_get_1complex_1real(JNIEnv *env, jobject _this, jlong object_addr, jlong property_addr){

return (gl_get_complex((OBJECT *)object_addr, (PROPERTY *)property_addr))->Re();

}

EXPORT jdouble JNICALL Java_gridlabd_GridlabD_get_1complex_1_real_1by_1name(JNIEnv *env, jobject _this, jlong object_addr, jstring propertyname){

}

EXPORT jdouble JNICALL Java_gridlabd_GridlabD_get_1complex_1imag(JNIEnv *env, jobject _this, jlong object_addr, jlong property_addr){

return (gl_get_complex((OBJECT *)object_addr, (PROPERTY *)property_addr))->Im();

}

EXPORT jdouble JNICALL Java_gridlabd_GridlabD_get_1complex_1imag_1by_1name(JNIEnv *env, jobject _this, jlong object_addr, jstring propertyname){

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_get_1object(JNIEnv *env, jobject _this, jstring oname){

}

EXPORT jint JNICALL Java_gridlabd_GridlabD_get_1int16(JNIEnv *env, jobject _this, jlong object_addr, jlong property_addr){

return *gl_get_int16((OBJECT *)object_addr, (PROPERTY *)property_addr);

}

EXPORT jint JNICALL Java_gridlabd_GridlabD_get_1int16_1by_1name(JNIEnv *env, jobject _this, jlong object_addr, jstring propertyname){

}

EXPORT jint JNICALL Java_gridlabd_GridlabD_get_1int32(JNIEnv *env, jobject _this, jlong object_addr, jlong property_addr){

return *gl_get_int32((OBJECT *)object_addr, (PROPERTY *)property_addr);

}

EXPORT jint JNICALL Java_gridlabd_GridlabD_get_1int32_1by_1name(JNIEnv *env, jobject _this, jlong object_addr, jstring propertyname){

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_get_1int64(JNIEnv *env, jobject _this, jlong object_addr, jlong property_addr){

return *gl_get_int64((OBJECT *)object_addr, (PROPERTY *)property_addr);

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_get_1int64_1by_1name(JNIEnv *env, jobject _this, jlong object_addr, jstring propertyname){

}

EXPORT jdouble JNICALL Java_gridlabd_GridlabD_get_1double(JNIEnv *env, jobject _this, jlong object_addr, jlong property_addr){

return *gl_get_double((OBJECT *)object_addr, (PROPERTY *)property_addr);

}

EXPORT jdouble JNICALL Java_gridlabd_GridlabD_get_1double_1by_1name(JNIEnv *env, jobject _this, jlong object_addr, jstring propertyname){

}

EXPORT jstring JNICALL Java_gridlabd_GridlabD_get_1string(JNIEnv *env, jobject _this, jlong object_addr, jlong property_addr){

char *str = gl_get_string((OBJECT *)object_addr, (PROPERTY *)property_addr);

return env->NewStringUTF(str);

}

EXPORT jstring JNICALL Java_gridlabd_GridlabD_get_1string_1by_1name(JNIEnv *env, jobject _this, jlong object_addr, jstring propertyname){

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_get_1object_1prop(JNIEnv *env, jobject _this, jlong object_addr, jlong property_addr){

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_get_1object_1by_1name(JNIEnv *env, jobject _this, jlong object_addr, jstring propertyname){

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_create_1aggregate(JNIEnv *env, jobject _this, jstring aggregator, jstring group_expression){

}

EXPORT jdouble JNICALL Java_gridlabd_GridlabD_run_1aggregate(JNIEnv *env, jobject _this, jlong aggregate_addr){

return gl_run_aggregate((s_aggregate *)aggregate_addr);

}

EXPORT jdouble JNICALL Java_gridlabd_GridlabD_random_1unifrom(JNIEnv *env, jobject _this, jdouble a, jdouble b){

return gl_random_uniform(0, a, b);

}

EXPORT jdouble JNICALL Java_gridlabd_GridlabD_random_1normal(JNIEnv *env, jobject _this, jdouble m, jdouble s){

return gl_random_normal(0, m, s);

}

EXPORT jdouble JNICALL Java_gridlabd_GridlabD_random_1lognormal(JNIEnv *env, jobject _this, jdouble m, jdouble s){

return gl_random_lognormal(0, m, s);

}

EXPORT jdouble JNICALL Java_gridlabd_GridlabD_random_1bernoulli(JNIEnv *env, jobject _this, jdouble p){

return gl_random_bernoulli(0, p);

}

EXPORT jdouble JNICALL Java_gridlabd_GridlabD_random_1pareto(JNIEnv *env, jobject _this, jdouble m, jdouble s){

return gl_random_pareto(0, m, s);

}

EXPORT jdouble JNICALL Java_gridlabd_GridlabD_random_1sampled(JNIEnv *env, jobject _this, jint n, jdoubleArray x){

}

EXPORT jdouble JNICALL Java_gridlabd_GridlabD_random_1exponential(JNIEnv *env, jobject _this, jdouble l){

return gl_random_exponential(0, l);

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_parsetime(JNIEnv *env, jobject _this, jstring value){

}

EXPORT jdouble JNICALL Java_gridlabd_GridlabD_todays(JNIEnv *env, jobject _this, jlong t){

return gl_todays(t);

}

EXPORT jdouble JNICALL Java_gridlabd_GridlabD_tohours(JNIEnv *env, jobject _this, jlong t){

return gl_tohours(t);

}

EXPORT jdouble JNICALL Java_gridlabd_GridlabD_tominutes(JNIEnv *env, jobject _this, jlong t){

return gl_tominutes(t);

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_global_1create(JNIEnv *env, jobject _this, jstring name, jstring args){

}

EXPORT jint JNICALL Java_gridlabd_GridlabD_global_1setvar(JNIEnv *env, jobject _this, jstring def, jstring args){

}

EXPORT jstring JNICALL Java_gridlabd_GridlabD_global_1getvar(JNIEnv *env, jobject _this, jstring name){

}

EXPORT jlong JNICALL Java_gridlabd_GridlabD_global_1find(JNIEnv *env, jobject _this, jstring name){

}

EXPORT jdouble Java_gridlabd_GridlabD_clip(JNIEnv *env, jobject _this, jdouble x, jdouble a, jdouble b){

return clip(x, a, b);

}

EXPORT jint Java_gridlabd_GridlabD_bitof(JNIEnv *env, jobject _this, jlong x){

return bitof(x);

}

EXPORT jstring Java_gridlabd_GridlabD_name(JNIEnv *env, jobject _this, jlong myaddr){

}

JNIEXPORT jlong JNICALL Java_gridlabd_GridlabD_find_1schedule(JNIEnv *env, jobject _this, jstring name){

char *namestr = (char *)env->GetStringUTFChars(name, NULL);

return (jlong)(callback->schedule.find(namestr));

}

JNIEXPORT jlong JNICALL Java_gridlabd_GridlabD_schedule_1create(JNIEnv *env, jobject _this, jstring name, jstring def){

}

JNIEXPORT jlong JNICALL Java_gridlabd_GridlabD_schedule_1index(JNIEnv *env, jobject _this, jlong sch, jlong ts){

return (jlong)(callback->schedule.index((SCHEDULE *)(sch), (TIMESTAMP)(ts)));

}

JNIEXPORT jdouble JNICALL Java_gridlabd_GridlabD_schedule_1value(JNIEnv *env, jobject _this, jlong sch, jlong index){

return (jdouble)(callback->schedule.value((SCHEDULE *)sch, (SCHEDULEINDEX)index));

}

JNIEXPORT jlong JNICALL Java_gridlabd_GridlabD_schedule_1dtnext(JNIEnv *env, jobject _this, jlong sch, jlong index){

return (jlong)(callback->schedule.dtnext((SCHEDULE *)(sch), (SCHEDULEINDEX)index));

}

JNIEXPORT jlong JNICALL Java_gridlabd_GridlabD_enduse_1create(JNIEnv *env, jobject _this){

}

JNIEXPORT jlong JNICALL Java_gridlabd_GridlabD_enduse_1sync(JNIEnv *env, jobject _this, jlong e, jlong t1){

return (callback->enduse.sync((enduse *)e, PC_BOTTOMUP,(TIMESTAMP)t1));

}

JNIEXPORT jlong JNICALL Java_gridlabd_GridlabD_loadshape_1create(JNIEnv *env, jobject _this, jlong sched_addr){

}

JNIEXPORT jdouble JNICALL Java_gridlabd_GridlabD_get_1loadshape_1value(JNIEnv *env, jobject _this, jlong ls_addr){

}

JNIEXPORT jstring JNICALL Java_gridlabd_GridlabD_(JNIEnv *env, jobject _this, jlong ts){

}

JNIEXPORT jdouble JNICALL Java_gridlabd_GridlabD_lerp(JNIEnv *env, jobject _this, jdouble t, jdouble x0, jdouble y0, jdouble x1, jdouble y1){

return gl_lerp(t, x0, y0, x1, y1);

}

JNIEXPORT jdouble JNICALL Java_gridlabd_GridlabD_qerp(JNIEnv *env, jobject _this, jdouble t, jdouble x0, jdouble y0, jdouble x1, jdouble y1, jdouble x2, jdouble y2){

return gl_qerp(t, x0, y0, x1, y1, x2, y2);

}