java/gridlabd_java.h

Go to the documentation of this file.

#include <jni.h>
#include "gridlabd.h"

#ifndef _GRIDLABD_JAVA_H_
#define _GRIDLABD_JAVA_H_

typedef struct s_javacallbacks {
    JavaVM *(*get_jvm)();
    JNIEnv *(*get_env)();
    void *(*set_obj)(jobject, OBJECT *, void *, int);
} JAVACALLBACKS;

CDECL JavaVM *get_jvm();
CDECL JNIEnv *get_env();
CDECL void *set_obj(jobject obj, OBJECT * object_addr, void *block_addr, int id);
EXPORT void *getvar(char *varname, char *value, unsigned int size);

char *get_classpath();
char *get_libpath();
void *get_jcb();

#define jgl_get_jvm (*jcallback->get_jvm)
#define jgl_get_env (*jcallback->get_env)
#define jgl_set_obj (*jcallback->set_obj)

#ifdef JDLMAIN
#define EXTERN
#define INIT(X) =(X)
#else
#ifdef __cplusplus
#define EXTERN
#else
#define EXTERN extern
#endif /* __cplusplus */
#define INIT(X)
#endif
CDECL EXPORT EXTERN JAVACALLBACKS *jcallback INIT(NULL);
#undef INIT
#undef EXTERN

#define EXPORT_JAVA_CREATE(name) EXPORT_JAVA_CREATE_EX(name, name)
#define EXPORT_JAVA_CREATE_EX(N, C)                                         \
                                                                            \
CLASS *N##_class=NULL;                                                      \
OBJECT *last_##N=NULL;                                                      \
                                                                            \
EXPORT int create_##N(OBJECT **obj, OBJECT *parent){                        \
    JNIEnv *jnienv = jgl_get_env();                                         \
    jclass cls = jnienv->FindClass(#N);                                     \
    if(cls == NULL){                                                        \
        gl_error("create_%s: unable to find %s.class", #N, #N);             \
        return 0;                                                           \
    }                                                                       \
    jmethodID cfunc = jnienv->GetStaticMethodID(cls, "create", "(J)J");     \
    if(cfunc == NULL){                                                      \
        gl_error("create_%s: unable to find long %s.create(long)", #N, #N); \
        return 0;                                                           \
    }                                                                       \
    int64 rv = jnienv->CallStaticLongMethod(cls, cfunc, (int64)parent);     \
    if(rv == 0){                                                            \
        gl_error("create_%s: %s.create() failed", #N, #N);                  \
        GL_THROW("%s.create() failed", #N);                                 \
    }                                                                       \
    if (jnienv->ExceptionOccurred()) {                                      \
        jnienv->ExceptionDescribe();                                        \
    }                                                                       \
    *obj = (OBJECT *)rv;                                                    \
    last_##N = *obj;                                                        \
    gl_set_parent(*obj, parent);                                            \
    return 1;                                                               \
}                                                                           \

#define EXPORT_JAVA_SYNC(name) EXPORT_JAVA_SYNC_EX(name,name)
#define EXPORT_JAVA_SYNC_EX(name, classname)                                            \
EXPORT TIMESTAMP sync_##name(OBJECT *obj, TIMESTAMP t0, PASSCONFIG pass){               \
    JNIEnv *jnienv = jgl_get_env();                                                     \
    jclass cls = jnienv->FindClass(#name);                                              \
    if(cls == NULL){                                                                    \
        gl_error("sync_%s: unable to find %s.class", #name, #name);                     \
        return 0;                                                                       \
    }                                                                                   \
    jmethodID cfunc = jnienv->GetStaticMethodID(cls, "sync", "(JJI)J");                 \
    if(cfunc == NULL){                                                                  \
        gl_error("sync_%s: unable to find long %s.sync(long, long, int)", #name, #name);\
        return 0;                                                                       \
    }                                                                                   \
    int64 t1 = jnienv->CallStaticLongMethod(cls, cfunc, (int64)obj, t0, pass);          \
    if (pass==PC_POSTTOPDOWN) obj->clock = t0;                                          \
    return t1;                                                                          \
}

#define EXPORT_JAVA_INIT(name)                                                      \
EXPORT int init_##name(OBJECT *obj, OBJECT *parent){                                \
    JNIEnv *jnienv = jgl_get_env();                                                 \
    jclass cls = jnienv->FindClass(#name);                                          \
    if(cls == NULL){                                                                \
        gl_error("init_%s: unable to find %s.class", #name, #name);                 \
        return 0;                                                                   \
    }                                                                               \
    jmethodID cfunc = jnienv->GetStaticMethodID(cls, "init", "(JJ)I");              \
    if(cfunc == NULL){                                                              \
        gl_error("init_%s: unable to find int %s.init(long, long)", #name, #name);  \
        return 0;                                                                   \
    }                                                                               \
    int rv = jnienv->CallStaticIntMethod(cls, cfunc, (int64)obj, (int64)parent);    \
    return rv;                                                                      \
}

#define EXPORT_JAVA_PLC(name)                                                       \
EXPORT int64 plc_##name(OBJECT *obj, TIMESTAMP t0){                                 \
    JNIEnv *jnienv = jgl_get_env();                                                 \
    jclass cls = jnienv->FindClass(#name);                                          \
    if(cls == NULL){                                                                \
        gl_error("plc_%s: unable to find %s.class", #name, #name);                  \
        return 0;                                                                   \
    }                                                                               \
    jmethodID cfunc = jnienv->GetStaticMethodID(cls, "plc", "(JJ)J");               \
    if(cfunc == NULL){                                                              \
        gl_error("init_%s: unable to find long %s.plc(long, long)", #name, #name);  \
        return 0;                                                                   \
    }                                                                               \
    int64 rv = jnienv->CallStaticLongMethod(cls, cfunc, (int64)obj, t0);            \
    return rv;                                                                      \
}

EXPORT jint JNICALL Java_GridlabD_verbose(JNIEnv *env, jclass _this, jstring str);
EXPORT jint JNICALL Java_GridlabD_output(JNIEnv *, jclass, jstring);
EXPORT jint JNICALL Java_GridlabD_warning(JNIEnv *env, jobject _this, jstring str);
EXPORT jint JNICALL Java_GridlabD_error(JNIEnv *env, jobject _this, jstring str);
EXPORT jint JNICALL Java_GridlabD_debug(JNIEnv *env, jobject _this, jstring str);
EXPORT jint JNICALL Java_GridlabD_testmsg(JNIEnv *env, jobject _this, jstring str);
EXPORT jlong JNICALL Java_GridlabD_get_1module_1var(JNIEnv *env, jobject _this, jstring modulename, jstring varname);
EXPORT jstring JNICALL Java_GridlabD_findfile(JNIEnv *env, jobject _this, jstring filename);
EXPORT jlong JNICALL Java_GridlabD_find_1module(JNIEnv *env, jobject _this, jstring modulename);
EXPORT jlong JNICALL Java_GridlabD_register_1class(JNIEnv *env, jobject _this, jlong moduleaddr, jstring classname, jint passconfig);
EXPORT jlong JNICALL Java_GridlabD_create_1object(JNIEnv *env, jobject _this, jlong oclass_addr, jlong size);
EXPORT jlong JNICALL Java_GridlabD_create_1array(JNIEnv *env, jobject _this, jlong oclass_addr, jlong size, jint n_objects);
EXPORT jint JNICALL Java_GridlabD_object_1isa(JNIEnv *env, jobject _this, jlong obj_addr, jstring _typename);
EXPORT jlong JNICALL Java_GridlabD_publish_1variable(JNIEnv *env, jobject _this, jlong moduleaddr, jlong classaddr, jstring varname, jstring vartype, jlong offset);
EXPORT jlong JNICALL Java_GridlabD_publish_1function(JNIEnv *env, jobject _this, jlong moduleaddr, jlong classaddr, jstring funcname);
EXPORT jint JNICALL Java_GridlabD_set_1dependent(JNIEnv *env, jobject _this, jlong from_addr, jlong to_addr);
EXPORT jint JNICALL Java_GridlabD_set_1parent(JNIEnv *env, jobject _this, jlong child_addr, jlong parent_addr);
EXPORT jint JNICALL Java_GridlabD_register_1type(JNIEnv *env, jobject _this, jlong oclass_addr, jstring _typename, jstring from_string_fname, jstring to_string_fname);
EXPORT jint JNICALL Java_GridlabD_publish_1delegate(JNIEnv *env, jobject _this);
EXPORT jlong JNICALL Java_GridlabD_get_1property(JNIEnv *env, jobject _this, jlong oaddr, jstring propertyname);
EXPORT jstring JNICALL Java_GridlabD_get_1value(JNIEnv *env, jobject _this, jlong object_addr, jstring propertyname);
EXPORT jint JNICALL Java_GridlabD_set_1value(JNIEnv *env, jobject _this, jlong object_addr, jstring propertyname, jstring value);
EXPORT jdouble JNICALL Java_GridlabD_unit_1convert(JNIEnv *env, jobject _this, jstring from, jstring to, jdouble invalue);
EXPORT jlong JNICALL Java_GridlabD_get_1object(JNIEnv *env, jobject _this, jstring oname);
EXPORT jint JNICALL Java_GridlabD_get_1int16(JNIEnv *env, jobject _this, jlong object_addr, jlong property_addr);
EXPORT jint JNICALL Java_GridlabD_get_1int16_1by_1name(JNIEnv *env, jobject _this, jlong object_addr, jstring propertyname);
EXPORT jint JNICALL Java_GridlabD_get_1int32(JNIEnv *env, jobject _this, jlong object_addr, jlong property_addr);
EXPORT jint JNICALL Java_GridlabD_get_1int32_1by_1name(JNIEnv *env, jobject _this, jlong object_addr, jstring propertyname);
EXPORT jlong JNICALL Java_GridlabD_get_1int64(JNIEnv *env, jobject _this, jlong object_addr, jlong property_addr);
EXPORT jlong JNICALL Java_GridlabD_get_1int64_1by_1name(JNIEnv *env, jobject _this, jlong object_addr, jstring propertyname);
EXPORT jdouble JNICALL Java_GridlabD_get_1double(JNIEnv *env, jobject _this, jlong object_addr, jlong property_addr);
EXPORT jdouble JNICALL Java_GridlabD_get_1double_1by_1name(JNIEnv *env, jobject _this, jlong object_addr, jstring propertyname);
EXPORT jstring JNICALL Java_GridlabD_get_1string(JNIEnv *env, jobject _this, jlong object_addr, jlong property_addr);
EXPORT jstring JNICALL Java_GridlabD_get_1string_1by_1name(JNIEnv *env, jobject _this, jlong object_addr, jstring propertyname);
EXPORT jlong JNICALL Java_GridlabD_create_1aggregate(JNIEnv *env, jobject _this, jstring aggregator, jstring group_expression);
EXPORT jdouble JNICALL Java_GridlabD_run_1aggregate(JNIEnv *env, jobject _this, jlong aggregate_addr);
EXPORT jdouble JNICALL Java_GridlabD_random_1unifrom(JNIEnv *env, jobject _this, jdouble a, jdouble b);
EXPORT jdouble JNICALL Java_GridlabD_random_1normal(JNIEnv *env, jobject _this, jdouble m, jdouble s);
EXPORT jdouble JNICALL Java_GridlabD_random_1lognormal(JNIEnv *env, jobject _this, jdouble m, jdouble s);
EXPORT jdouble JNICALL Java_GridlabD_random_1bernoulli(JNIEnv *env, jobject _this, jdouble p);
EXPORT jdouble JNICALL Java_GridlabD_random_1pareto(JNIEnv *env, jobject _this, jdouble m, jdouble s);
EXPORT jdouble JNICALL Java_GridlabD_random_1sampled(JNIEnv *env, jobject _this, jint n, jdoubleArray x);
EXPORT jdouble JNICALL Java_GridlabD_random_1exponential(JNIEnv *env, jobject _this, jdouble l);
EXPORT jlong JNICALL Java_GridlabD_parsetime(JNIEnv *env, jobject _this, jstring value);
EXPORT jdouble JNICALL Java_GridlabD_todays(JNIEnv *env, jobject _this, jlong t);
EXPORT jdouble JNICALL Java_GridlabD_tohours(JNIEnv *env, jobject _this, jlong t);
EXPORT jdouble JNICALL Java_GridlabD_tominutes(JNIEnv *env, jobject _this, jlong t);
EXPORT jlong JNICALL Java_GridlabD_global_1create(JNIEnv *env, jobject _this, jstring name, jstring args);
EXPORT jint JNICALL Java_GridlabD_global_1setvar(JNIEnv *env, jobject _this, jstring def, jstring args);
EXPORT jstring JNICALL Java_GridlabD_global_1getvar(JNIEnv *env, jobject _this, jstring name);
EXPORT jlong JNICALL Java_GridlabD_global_1find(JNIEnv *env, jobject _this, jstring name);

#endif

/* EOF */

---

GridLAB-D^TM Version 2.0

An open-source project initiated by the US Department of Energy