2006-08-02 15:03:49 +00:00
|
|
|
/*
|
2006-10-12 14:36:25 +00:00
|
|
|
* $Id: jni.c,v 1.5 2006-10-12 14:36:25 bacon Exp $
|
2006-08-02 15:03:49 +00:00
|
|
|
*/
|
|
|
|
|
2006-10-12 14:36:25 +00:00
|
|
|
#include <xp/awk/jni.h>
|
|
|
|
#include <xp/awk/awk.h>
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <string.h>
|
|
|
|
#include <wctype.h>
|
|
|
|
#include <wchar.h>
|
|
|
|
#include <stdio.h>
|
2006-08-02 15:03:49 +00:00
|
|
|
|
2006-08-06 08:16:03 +00:00
|
|
|
#define EXCEPTION_AWK "xpkit/xpj/awk/AwkException"
|
|
|
|
#define FIELD_AWK "__awk"
|
|
|
|
|
|
|
|
static xp_ssize_t __read_source (
|
|
|
|
int cmd, void* arg, xp_char_t* data, xp_size_t count);
|
2006-08-06 15:03:42 +00:00
|
|
|
static xp_ssize_t __write_source (
|
|
|
|
int cmd, void* arg, xp_char_t* data, xp_size_t count);
|
2006-08-06 08:16:03 +00:00
|
|
|
|
|
|
|
static xp_ssize_t __call_java_read_source (
|
|
|
|
JNIEnv* env, jobject obj, xp_char_t* buf, xp_size_t size);
|
2006-08-06 15:03:42 +00:00
|
|
|
static xp_ssize_t __call_java_write_source (
|
|
|
|
JNIEnv* env, jobject obj, xp_char_t* buf, xp_size_t size);
|
2006-08-06 08:16:03 +00:00
|
|
|
|
|
|
|
typedef struct srcio_data_t srcio_data_t;
|
|
|
|
|
|
|
|
struct srcio_data_t
|
|
|
|
{
|
|
|
|
JNIEnv* env;
|
|
|
|
jobject obj;
|
|
|
|
};
|
|
|
|
|
2006-10-12 14:36:25 +00:00
|
|
|
static void* __awk_malloc (xp_size_t n, void* custom_data)
|
|
|
|
{
|
|
|
|
return malloc (n);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void* __awk_realloc (void* ptr, xp_size_t n, void* custom_data)
|
|
|
|
{
|
|
|
|
return realloc (ptr, n);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void __awk_free (void* ptr, void* custom_data)
|
|
|
|
{
|
|
|
|
free (ptr);
|
|
|
|
}
|
2006-08-06 08:16:03 +00:00
|
|
|
|
|
|
|
JNIEXPORT void JNICALL Java_xpkit_xpj_awk_Awk_open (JNIEnv* env, jobject obj)
|
|
|
|
{
|
|
|
|
jclass class;
|
|
|
|
jfieldID fid;
|
|
|
|
jthrowable except;
|
|
|
|
xp_awk_t* awk;
|
2006-10-12 14:36:25 +00:00
|
|
|
xp_awk_syscas_t syscas;
|
2006-08-06 08:16:03 +00:00
|
|
|
int opt;
|
|
|
|
|
|
|
|
class = (*env)->GetObjectClass(env, obj);
|
|
|
|
|
2006-10-12 14:36:25 +00:00
|
|
|
memset (&syscas, 0, sizeof(syscas));
|
|
|
|
syscas.malloc = __awk_malloc;
|
|
|
|
syscas.realloc = __awk_realloc;
|
|
|
|
syscas.free = __awk_free;
|
|
|
|
|
|
|
|
syscas.is_upper = iswupper;
|
|
|
|
syscas.is_lower = iswlower;
|
|
|
|
syscas.is_alpha = iswalpha;
|
|
|
|
syscas.is_digit = iswdigit;
|
|
|
|
syscas.is_xdigit = iswxdigit;
|
|
|
|
syscas.is_alnum = iswalnum;
|
|
|
|
syscas.is_space = iswspace;
|
|
|
|
syscas.is_print = iswprint;
|
|
|
|
syscas.is_graph = iswgraph;
|
|
|
|
syscas.is_cntrl = iswcntrl;
|
|
|
|
syscas.is_punct = iswpunct;
|
|
|
|
syscas.to_upper = towupper;
|
|
|
|
syscas.to_lower = towlower;
|
|
|
|
|
|
|
|
syscas.memcpy = memcpy;
|
|
|
|
syscas.memset = memset;
|
|
|
|
/* TODO: */
|
|
|
|
syscas.sprintf = _snwprintf;
|
|
|
|
syscas.dprintf = wprintf;
|
|
|
|
syscas.abort = abort;
|
|
|
|
|
|
|
|
awk = xp_awk_open (&syscas);
|
2006-08-06 08:16:03 +00:00
|
|
|
if (awk == NULL)
|
|
|
|
{
|
|
|
|
except = (*env)->FindClass (env, EXCEPTION_AWK);
|
|
|
|
if (except == 0) return;
|
|
|
|
(*env)->ThrowNew (env, except, "cannot create awk");
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
fid = (*env)->GetFieldID (env, class, FIELD_AWK, "J");
|
|
|
|
if (fid == 0) return;
|
|
|
|
|
|
|
|
(*env)->SetLongField (env, obj, fid, (jlong)awk);
|
|
|
|
|
|
|
|
opt = XP_AWK_EXPLICIT | XP_AWK_UNIQUE | XP_AWK_DBLSLASHES |
|
|
|
|
XP_AWK_SHADING | XP_AWK_IMPLICIT | XP_AWK_SHIFT |
|
|
|
|
XP_AWK_EXTIO | XP_AWK_BLOCKLESS;
|
|
|
|
xp_awk_setopt (awk, opt);
|
|
|
|
|
2006-10-12 14:36:25 +00:00
|
|
|
printf ("__awk(native) done => %u, 0x%X\n", awk, awk);
|
2006-08-06 08:16:03 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
JNIEXPORT void JNICALL Java_xpkit_xpj_awk_Awk_close (JNIEnv* env, jobject obj)
|
2006-08-02 15:03:49 +00:00
|
|
|
{
|
2006-08-06 08:16:03 +00:00
|
|
|
jclass class;
|
|
|
|
jfieldID fid;
|
|
|
|
|
|
|
|
class = (*env)->GetObjectClass(env, obj);
|
|
|
|
|
|
|
|
fid = (*env)->GetFieldID (env, class, FIELD_AWK, "J");
|
|
|
|
if (fid == 0) return;
|
|
|
|
|
|
|
|
xp_awk_close ((xp_awk_t*) (*env)->GetLongField (env, obj, fid));
|
|
|
|
(*env)->SetLongField (env, obj, fid, (jlong)0);
|
|
|
|
|
2006-10-12 14:36:25 +00:00
|
|
|
printf ("close (native) done\n");
|
2006-08-02 15:03:49 +00:00
|
|
|
}
|
|
|
|
|
2006-08-06 08:16:03 +00:00
|
|
|
JNIEXPORT void JNICALL Java_xpkit_xpj_awk_Awk_parse (JNIEnv* env, jobject obj)
|
2006-08-02 15:03:49 +00:00
|
|
|
{
|
2006-08-06 08:16:03 +00:00
|
|
|
jclass class;
|
|
|
|
jfieldID fid;
|
|
|
|
jthrowable except;
|
|
|
|
|
|
|
|
xp_awk_t* awk;
|
|
|
|
xp_awk_srcios_t srcios;
|
|
|
|
srcio_data_t srcio_data;
|
|
|
|
|
|
|
|
class = (*env)->GetObjectClass (env, obj);
|
|
|
|
|
|
|
|
fid = (*env)->GetFieldID (env, class, FIELD_AWK, "J");
|
|
|
|
if (fid == 0) return;
|
|
|
|
|
|
|
|
awk = (xp_awk_t*) (*env)->GetLongField (env, obj, fid);
|
|
|
|
|
|
|
|
srcio_data.env = env;
|
|
|
|
srcio_data.obj = obj;
|
|
|
|
|
|
|
|
srcios.in = __read_source;
|
2006-08-06 15:03:42 +00:00
|
|
|
srcios.out = __write_source;
|
2006-08-06 08:16:03 +00:00
|
|
|
srcios.custom_data = &srcio_data;
|
|
|
|
|
2006-10-12 14:36:25 +00:00
|
|
|
printf ("OK.......\n");
|
2006-08-06 08:16:03 +00:00
|
|
|
if (xp_awk_parse (awk, &srcios) == -1)
|
|
|
|
{
|
2006-10-12 14:36:25 +00:00
|
|
|
printf ("parse error.......\n");
|
2006-08-06 08:16:03 +00:00
|
|
|
except = (*env)->FindClass (env, EXCEPTION_AWK);
|
|
|
|
if (except == 0) return;
|
|
|
|
(*env)->ThrowNew (env, except, "ERROR ....");
|
2006-10-12 14:36:25 +00:00
|
|
|
printf ("parse error -> line [%d] %S\n", xp_awk_getsrcline(awk), xp_awk_geterrstr(xp_awk_geterrnum(awk)));
|
2006-08-06 08:16:03 +00:00
|
|
|
return;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
JNIEXPORT void JNICALL Java_xpkit_xpj_awk_Awk_run (JNIEnv* env, jobject obj)
|
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
static xp_ssize_t __read_source (
|
|
|
|
int cmd, void* arg, xp_char_t* data, xp_size_t count)
|
|
|
|
{
|
|
|
|
srcio_data_t* srcio_data;
|
|
|
|
|
|
|
|
srcio_data = (srcio_data_t*)arg;
|
|
|
|
|
|
|
|
if (cmd == XP_AWK_IO_OPEN || cmd == XP_AWK_IO_CLOSE) return 0;
|
2006-10-12 14:36:25 +00:00
|
|
|
|
2006-08-06 08:16:03 +00:00
|
|
|
if (cmd == XP_AWK_IO_READ)
|
|
|
|
{
|
|
|
|
return __call_java_read_source (
|
|
|
|
srcio_data->env, srcio_data->obj, data, count);
|
|
|
|
}
|
2006-08-06 15:03:42 +00:00
|
|
|
|
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
|
|
|
|
static xp_ssize_t __write_source (
|
|
|
|
int cmd, void* arg, xp_char_t* data, xp_size_t count)
|
|
|
|
{
|
|
|
|
srcio_data_t* srcio_data;
|
|
|
|
|
|
|
|
srcio_data = (srcio_data_t*)arg;
|
|
|
|
|
|
|
|
if (cmd == XP_AWK_IO_OPEN || cmd == XP_AWK_IO_CLOSE) return 0;
|
|
|
|
if (cmd == XP_AWK_IO_WRITE)
|
2006-08-06 08:16:03 +00:00
|
|
|
{
|
2006-08-06 15:03:42 +00:00
|
|
|
return __call_java_write_source (
|
|
|
|
srcio_data->env, srcio_data->obj, data, count);
|
2006-08-06 08:16:03 +00:00
|
|
|
}
|
2006-08-06 15:03:42 +00:00
|
|
|
|
|
|
|
return -1;
|
2006-08-06 08:16:03 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
static xp_ssize_t __call_java_read_source (
|
|
|
|
JNIEnv* env, jobject obj, xp_char_t* buf, xp_size_t size)
|
|
|
|
{
|
|
|
|
jclass class;
|
|
|
|
jmethodID mid;
|
|
|
|
jcharArray array;
|
|
|
|
xp_ssize_t i, n;
|
|
|
|
jchar* tmp;
|
|
|
|
|
|
|
|
class = (*env)->GetObjectClass(env, obj);
|
|
|
|
|
|
|
|
mid = (*env)->GetMethodID (env, class, "read_source", "([CI)I");
|
|
|
|
if (mid == 0) return -1;
|
|
|
|
|
|
|
|
array = (*env)->NewCharArray (env, 1024);
|
|
|
|
if (array == NULL) return -1;
|
|
|
|
|
|
|
|
n = (*env)->CallIntMethod (env, obj, mid, array, 1024);
|
|
|
|
|
|
|
|
// TODO: how to handle error..
|
|
|
|
// TODO: what is xp_char_t is xp_mchar_t? use UTF8 ???
|
|
|
|
tmp = (*env)->GetCharArrayElements (env, array, 0);
|
|
|
|
for (i = 0; i < n && i < size; i++) buf[i] = (xp_char_t)tmp[i];
|
|
|
|
(*env)->ReleaseCharArrayElements (env, array, tmp, 0);
|
|
|
|
|
|
|
|
return i;
|
2006-08-02 15:03:49 +00:00
|
|
|
}
|
2006-08-06 15:03:42 +00:00
|
|
|
|
|
|
|
static xp_ssize_t __call_java_write_source (
|
|
|
|
JNIEnv* env, jobject obj, xp_char_t* buf, xp_size_t size)
|
|
|
|
{
|
|
|
|
jclass class;
|
|
|
|
jmethodID mid;
|
|
|
|
jcharArray array;
|
|
|
|
xp_ssize_t i;
|
|
|
|
jchar* tmp;
|
|
|
|
|
|
|
|
class = (*env)->GetObjectClass(env, obj);
|
|
|
|
|
|
|
|
mid = (*env)->GetMethodID (env, class, "write_source", "([CI)I");
|
|
|
|
if (mid == 0) return -1;
|
|
|
|
|
|
|
|
array = (*env)->NewCharArray (env, size);
|
|
|
|
if (array == NULL) return -1;
|
|
|
|
|
|
|
|
// TODO: how to handle error..
|
|
|
|
// TODO: what is xp_char_t is xp_mchar_t? use UTF8 ???
|
|
|
|
tmp = (*env)->GetCharArrayElements (env, array, 0);
|
|
|
|
for (i = 0; i < size; i++) tmp[i] = (jchar)buf[i];
|
|
|
|
(*env)->ReleaseCharArrayElements (env, array, tmp, 0);
|
|
|
|
|
|
|
|
return (*env)->CallIntMethod (env, obj, mid, array, size);
|
|
|
|
}
|