#ifndef __RJAVA_H__

#define __RJAVA_H__

#define RJAVA_VER 0x00090a /* rJava v0.9-10 */

#include <jni.h>

#include <R.h>

#include <Rinternals.h>

#include <Rversion.h>

#include <Rdefines.h>

#include <R_ext/Callbacks.h>

#ifdef ONEFILE

#ifdef HAVE_STATIC_INLINE

#define HIDE static inline

#define HIDE static

#define HIDE

#define REP

#define REPE

#define REPC

#if defined WIN32 && ! defined Win32

#define Win32

#if defined Win32 && ! defined WIN32

#define WIN32

#include "config.h"

#ifdef MEMPROF

#include <stdio.h>

#include <time.h>

extern FILE* memprof_f;

#define _mp(X) X

#define MEM_PROF_OUT(X ...) { if (memprof_f) { long t = time(0); fprintf(memprof_f, "<%08x> %x:%02d ", (int) env, t/60, t%60); fprintf(memprof_f, X); }; }

#define _mp(X)

#endif

#ifdef RJ_DEBUG

void rjprintf(char *fmt, ...); /* in Rglue.c */

#define _dbg(X) X

#define _dbg(X)

#ifdef RJ_PROFILE

#define profStart() profilerTime=time_ms()

#define _prof(X) X

long time_ms(); /* those are acutally in Rglue.c */

void profReport(char *fmt, ...);

#define profStart()

#define _prof(X)

#ifdef ENABLE_JRICB

#define BEGIN_RJAVA_CALL { int save_in_RJava = RJava_has_control; RJava_has_control=1; {

#define END_RJAVA_CALL }; RJava_has_control = save_in_RJava; }

#define BEGIN_RJAVA_CALL {

#define END_RJAVA_CALL };

#if R_VERSION < R_Version(2,7,0)

#define mkCharUTF8(X) mkChar(X)

#define CHAR_UTF8(X) CHAR(X)

#define mkCharUTF8(X) mkCharCE(X, CE_UTF8)

#define CHAR_UTF8(X) rj_char_utf8(X)

extern const char *rj_char_utf8(SEXP);

typedef struct sig_buffer {

} sig_buffer_t;

extern int RJava_has_control;

extern JNIEnv *eenv; /* should NOT be used since not thread-safe; use getJNIEnv instead */

HIDE JNIEnv* getJNIEnv();

HIDE void ckx(JNIEnv *env);

HIDE void clx(JNIEnv *env);

HIDE SEXP getStringArrayCont(jarray) ;

HIDE jarray getSimpleClassNames( jobject, jboolean ) ;

HIDE SEXP getSimpleClassNames_asSEXP( jobject, jboolean ) ;

REPC SEXP RgetSimpleClassNames( SEXP, SEXP );

extern JavaVM *jvm;

extern int rJava_initialized;

extern int java_is_dead;

extern jclass javaStringClass;

extern jclass javaObjectClass;

extern jclass javaClassClass;

extern jclass javaFieldClass;

extern jclass rj_RJavaTools_Class ;

extern jmethodID mid_forName;

extern jmethodID mid_getName;

extern jmethodID mid_getSuperclass;

extern jmethodID mid_getType;

extern jmethodID mid_getField;

extern jmethodID mid_rj_getSimpleClassNames;

extern jmethodID mid_RJavaTools_getFieldTypeName;

extern jclass rj_RJavaImport_Class ;

extern jmethodID mid_RJavaImport_getKnownClasses ;

extern jmethodID mid_RJavaImport_lookup ;

extern jmethodID mid_RJavaImport_exists ;

HIDE void init_rJava(void);

REPC SEXP newRJavaLookupTable(SEXP) ;

HIDE SEXP R_getUnboundValue() ;

HIDE SEXP rJavaLookupTable_objects(R_ObjectTable *) ;

HIDE SEXP rJavaLookupTable_assign(const char * const, SEXP, R_ObjectTable * ) ;

HIDE Rboolean rJavaLookupTable_canCache(const char * const, R_ObjectTable *) ;

HIDE int rJavaLookupTable_remove(const char * const, R_ObjectTable *) ;

HIDE SEXP rJavaLookupTable_get(const char * const, Rboolean *, R_ObjectTable *) ;

HIDE Rboolean rJavaLookupTable_exists(const char * const, Rboolean *, R_ObjectTable *) ;

HIDE jobject getImporterReference(R_ObjectTable *) ;

HIDE SEXP getKnownClasses( R_ObjectTable * );

HIDE SEXP classNameLookup( R_ObjectTable *, const char * const ) ;

HIDE Rboolean classNameLookupExists(R_ObjectTable *, const char * const ) ;

extern jclass clClassLoader;

extern jobject oClassLoader;

HIDE SEXP j2SEXP(JNIEnv *env, jobject o, int releaseLocal);

HIDE SEXP new_jobjRef(JNIEnv *env, jobject o, const char *klass);

HIDE jvalue R1par2jvalue(JNIEnv *env, SEXP par, sig_buffer_t *sig, jobject *otr);

HIDE void init_sigbuf(sig_buffer_t *sb);

HIDE void done_sigbuf(sig_buffer_t *sb);

HIDE SEXP getName( JNIEnv *, jobject/*Class*/ );

HIDE SEXP new_jclassName(JNIEnv *, jobject/*Class*/ ) ;

HIDE jstring callToString(JNIEnv *env, jobject o);

HIDE jobject createObject(JNIEnv *env, const char *class, const char *sig, jvalue *par, int silent, jobject loader);

HIDE jclass findClass(JNIEnv *env, const char *class, jobject loader);

HIDE jclass objectClass(JNIEnv *env, jobject o);

HIDE jdoubleArray newDoubleArray(JNIEnv *env, double *cont, int len);

HIDE jintArray newIntArray(JNIEnv *env, int *cont, int len);

HIDE jbooleanArray newBooleanArrayI(JNIEnv *env, int *cont, int len);

HIDE jstring newString(JNIEnv *env, const char *cont);

HIDE jcharArray newCharArrayI(JNIEnv *env, int *cont, int len);

HIDE jshortArray newShortArrayI(JNIEnv *env, int *cont, int len);

HIDE jfloatArray newFloatArrayD(JNIEnv *env, double *cont, int len);

HIDE jlongArray newLongArrayD(JNIEnv *env, double *cont, int len);

HIDE jintArray newByteArray(JNIEnv *env, void *cont, int len);

HIDE jbyteArray newByteArrayI(JNIEnv *env, int *cont, int len);

HIDE jobject makeGlobal(JNIEnv *env, jobject o);

HIDE void releaseObject(JNIEnv *env, jobject o);

HIDE void releaseGlobal(JNIEnv *env, jobject o);

HIDE void printObject(JNIEnv *env, jobject o);

HIDE int checkExceptionsX(JNIEnv *env, int silent);

HIDE int initClassLoader(JNIEnv *env, jobject cl);

HIDE void deserializeSEXP(SEXP o);

#define jverify(X) if (EXTPTR_PROT(X) != R_NilValue) deserializeSEXP(X)

#define IS_JOBJREF(obj) ( inherits(obj, "jobjRef") || inherits(obj, "jarrayRef") || inherits(obj,"jrectRef") )

#define IS_JARRAYREF(obj) ( inherits(obj, "jobjRef") || inherits(obj, "jarrayRef") || inherits(obj, "jrectRef") )

#define IS_JRECTREF(obj) ( inherits(obj,"jrectRef") )