hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Recovered from cvs revision 2007-10-24 03:46:00

Browse Source
This commit is contained in:
hyung-hwan 2007-10-24 18:57:00 +00:00
parent 4c0af4e075
commit 119ec4e513
4 changed files with 91 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ase/awk/Awk.java
View File

@ -1,5 +1,5 @@
/* /*
* $Id: Awk.java,v 1.28 2007/10/21 13:58:47 bacon Exp $ * $Id: Awk.java,v 1.29 2007/10/23 15:18:47 bacon Exp $
* *
* {License} * {License}
*/ */
@ -159,20 +159,20 @@ public abstract class Awk
functionTable.remove (name); functionTable.remove (name);
} }
protected Object handleFunction ( protected void handleFunction (
Context ctx, String name, Argument[] args) throws Exception Context ctx, String name, Return ret, Argument[] args) throws Exception
{ {
String mn = (String)functionTable.get(name); String mn = (String)functionTable.get(name);
// name should always be found in this table. // name should always be found in this table.
// otherwise, there is something wrong with this program. // otherwise, there is something wrong with this program.
Class c = this.getClass (); Class c = this.getClass ();
Class[] a = { Context.class, String.class, Argument[].class }; Class[] a = { Context.class, String.class, Return.class, Argument[].class };
try try
{ {
Method m = c.getMethod (mn, a); Method m = c.getMethod (mn, a);
return m.invoke (this, /*new Object[] {*/ ctx, name, args/*}*/) ; m.invoke (this, /*new Object[] {*/ ctx, name, ret, args/*}*/) ;
} }
catch (java.lang.reflect.InvocationTargetException e) catch (java.lang.reflect.InvocationTargetException e)
{ {

14
ase/awk/StdAwk.java
View File

@ -1,5 +1,5 @@
/* /*
* $Id: StdAwk.java,v 1.18 2007/10/21 13:58:47 bacon Exp $ * $Id: StdAwk.java,v 1.19 2007/10/23 15:18:47 bacon Exp $
* *
* {License} * {License}
*/ */
@ -331,19 +331,19 @@ public abstract class StdAwk extends Awk
} }
/* == arithmetic built-in functions */ /* == arithmetic built-in functions */
public Object sin (Context ctx, String name, Argument[] args) public void sin (Context ctx, String name, Return ret, Argument[] args)
{ {
return new Double (Math.sin(args[0].getRealValue())); ret.setRealValue (Math.sin(args[0].getRealValue()));
} }
public Object cos (Context ctx, String name, Argument[] args) public void cos (Context ctx, String name, Return ret, Argument[] args)
{ {
return new Double (Math.cos(args[0].getRealValue())); ret.setRealValue (Math.cos(args[0].getRealValue()));
} }
public Object tan (Context ctx, String name, Argument[] args) public void tan (Context ctx, String name, Return ret, Argument[] args)
{ {
return new Double (Math.tan(args[0].getRealValue())); ret.setRealValue (Math.tan(args[0].getRealValue()));
} }
public Object atan (Context ctx, String name, Argument[] args) public Object atan (Context ctx, String name, Argument[] args)

117
ase/awk/jni.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: jni.c,v 1.35 2007/10/21 15:05:21 bacon Exp $ * $Id: jni.c,v 1.36 2007/10/23 15:18:47 bacon Exp $
* *
* {License} * {License}
*/ */
@ -40,6 +40,7 @@
#define CLASS_EXTIO "ase/awk/Extio" #define CLASS_EXTIO "ase/awk/Extio"
#define CLASS_CONTEXT "ase/awk/Context" #define CLASS_CONTEXT "ase/awk/Context"
#define CLASS_ARGUMENT "ase/awk/Argument" #define CLASS_ARGUMENT "ase/awk/Argument"
#define CLASS_RETURN "ase/awk/Return"
#define FIELD_AWKID "awkid" #define FIELD_AWKID "awkid"
#define FIELD_RUNID "runid" #define FIELD_RUNID "runid"
#define FIELD_VALID "valid" #define FIELD_VALID "valid"
@ -110,6 +111,7 @@ struct run_data_t
jclass exception_class; jclass exception_class;
jclass context_class; jclass context_class;
jclass argument_class; jclass argument_class;
jclass return_class;
jmethodID integer_init; jmethodID integer_init;
jmethodID long_init; jmethodID long_init;
@ -118,6 +120,7 @@ struct run_data_t
jmethodID double_init; jmethodID double_init;
jmethodID context_init; jmethodID context_init;
jmethodID argument_init; jmethodID argument_init;
jmethodID return_init;
jmethodID integer_value; jmethodID integer_value;
jmethodID long_value; jmethodID long_value;
@ -129,6 +132,8 @@ struct run_data_t
jmethodID exception_get_line; jmethodID exception_get_line;
jmethodID exception_get_message; jmethodID exception_get_message;
jfieldID return_valid;
jobject context_object; jobject context_object;
}; };
@ -604,6 +609,7 @@ JNIEXPORT void JNICALL Java_ase_awk_Awk_parse (JNIEnv* env, jobject obj, jlong a
(*env)->DeleteLocalRef (env, run_data.exception_class); \ (*env)->DeleteLocalRef (env, run_data.exception_class); \
(*env)->DeleteLocalRef (env, run_data.context_class); \ (*env)->DeleteLocalRef (env, run_data.context_class); \
(*env)->DeleteLocalRef (env, run_data.argument_class); \ (*env)->DeleteLocalRef (env, run_data.argument_class); \
(*env)->DeleteLocalRef (env, run_data.return_class); \
if (run_data.context_object != NULL) \ if (run_data.context_object != NULL) \
(*env)->DeleteLocalRef (env, run_data.context_object); \ (*env)->DeleteLocalRef (env, run_data.context_object); \
} while (0) } while (0)
@ -719,6 +725,7 @@ JNIEXPORT void JNICALL Java_ase_awk_Awk_run (JNIEnv* env, jobject obj, jlong awk
run_data.exception_class = (*env)->FindClass (env, CLASS_EXCEPTION); run_data.exception_class = (*env)->FindClass (env, CLASS_EXCEPTION);
run_data.context_class = (*env)->FindClass (env, CLASS_CONTEXT); run_data.context_class = (*env)->FindClass (env, CLASS_CONTEXT);
run_data.argument_class = (*env)->FindClass (env, CLASS_ARGUMENT); run_data.argument_class = (*env)->FindClass (env, CLASS_ARGUMENT);
run_data.return_class = (*env)->FindClass (env, CLASS_RETURN);
ASE_ASSERT (run_data.string_class != NULL); ASE_ASSERT (run_data.string_class != NULL);
ASE_ASSERT (run_data.integer_class != NULL); ASE_ASSERT (run_data.integer_class != NULL);
@ -730,6 +737,7 @@ JNIEXPORT void JNICALL Java_ase_awk_Awk_run (JNIEnv* env, jobject obj, jlong awk
ASE_ASSERT (run_data.exception_class != NULL); ASE_ASSERT (run_data.exception_class != NULL);
ASE_ASSERT (run_data.context_class != NULL); ASE_ASSERT (run_data.context_class != NULL);
ASE_ASSERT (run_data.argument_class != NULL); ASE_ASSERT (run_data.argument_class != NULL);
ASE_ASSERT (run_data.return_class != NULL);
run_data.integer_init = (*env)->GetMethodID ( run_data.integer_init = (*env)->GetMethodID (
env, run_data.integer_class, "<init>", "(I)V"); env, run_data.integer_class, "<init>", "(I)V");
@ -745,6 +753,8 @@ JNIEXPORT void JNICALL Java_ase_awk_Awk_run (JNIEnv* env, jobject obj, jlong awk
env, run_data.context_class, "<init>", "(Lase/awk/Awk;)V"); env, run_data.context_class, "<init>", "(Lase/awk/Awk;)V");
run_data.argument_init = (*env)->GetMethodID ( run_data.argument_init = (*env)->GetMethodID (
env, run_data.argument_class, "<init>", "(JJ)V"); env, run_data.argument_class, "<init>", "(JJ)V");
run_data.return_init = (*env)->GetMethodID (
env, run_data.return_class, "<init>", "(JJ)V");
ASE_ASSERT (run_data.integer_init != NULL); ASE_ASSERT (run_data.integer_init != NULL);
ASE_ASSERT (run_data.long_init != NULL); ASE_ASSERT (run_data.long_init != NULL);
@ -753,6 +763,7 @@ JNIEXPORT void JNICALL Java_ase_awk_Awk_run (JNIEnv* env, jobject obj, jlong awk
ASE_ASSERT (run_data.double_init != NULL); ASE_ASSERT (run_data.double_init != NULL);
ASE_ASSERT (run_data.context_init != NULL); ASE_ASSERT (run_data.context_init != NULL);
ASE_ASSERT (run_data.argument_init != NULL); ASE_ASSERT (run_data.argument_init != NULL);
ASE_ASSERT (run_data.return_init != NULL);
run_data.integer_value = (*env)->GetMethodID ( run_data.integer_value = (*env)->GetMethodID (
env, run_data.integer_class, "intValue", "()I"); env, run_data.integer_class, "intValue", "()I");
@ -786,6 +797,17 @@ JNIEXPORT void JNICALL Java_ase_awk_Awk_run (JNIEnv* env, jobject obj, jlong awk
ASE_ASSERT (run_data.exception_get_line != NULL); ASE_ASSERT (run_data.exception_get_line != NULL);
ASE_ASSERT (run_data.exception_get_message != NULL); ASE_ASSERT (run_data.exception_get_message != NULL);
run_data.return_valid = (*env)->GetFieldID (
env, run_data.return_class, FIELD_VALID, "J");
if (run_data.return_valid == NULL)
{
if (is_debug(awk)) (*env)->ExceptionDescribe (env);
(*env)->ExceptionClear (env);
DELETE_CLASS_REFS (env, run_data);
THROW_NOMEM_EXCEPTION (env);
return;
}
/* No NewGlobalRef are needed on obj and run_data->context_object /* No NewGlobalRef are needed on obj and run_data->context_object
* because they are valid while this run method runs */ * because they are valid while this run method runs */
run_data.context_object = (*env)->NewObject ( run_data.context_object = (*env)->NewObject (
@ -1618,19 +1640,21 @@ static ase_ssize_t process_extio (
static int handle_bfn ( static int handle_bfn (
ase_awk_run_t* run, const ase_char_t* fnm, ase_size_t fnl) ase_awk_run_t* run, const ase_char_t* fnm, ase_size_t fnl)
{ {
run_data_t* run_data;
ase_awk_t* awk;
JNIEnv* env;
jobject obj;
jclass class; jclass class;
jmethodID method; jmethodID method;
jthrowable throwable; jthrowable throwable;
jstring name; jstring name;
//const char* name_utf;
run_data_t* run_data;
JNIEnv* env;
jobject obj;
jint i, nargs; jint i, nargs;
jobjectArray args; jobjectArray args;
jobject arg, ret; jobject arg, ret;
ase_awk_val_t* v; ase_awk_val_t* v;
ase_awk_t* awk; jlong vi;
run_data = ase_awk_getruncustomdata (run); run_data = ase_awk_getruncustomdata (run);
nargs = ase_awk_getnargs (run); nargs = ase_awk_getnargs (run);
@ -1650,13 +1674,6 @@ static int handle_bfn (
return -1; return -1;
} }
/*
tmp[0] = (jchar)'b';
tmp[1] = (jchar)'f';
tmp[2] = (jchar)'n';
tmp[3] = (jchar)'_';
for (i = 0; i < fnl; i++) tmp[i+4] = (jchar)fnm[i];
*/
for (i = 0; i < fnl; i++) tmp[i] = (jchar)fnm[i]; for (i = 0; i < fnl; i++) tmp[i] = (jchar)fnm[i];
name = (*env)->NewString (env, tmp, fnl+4); name = (*env)->NewString (env, tmp, fnl+4);
ase_awk_free (awk, tmp); ase_awk_free (awk, tmp);
@ -1674,28 +1691,11 @@ static int handle_bfn (
return -1; return -1;
} }
/*
name_utf = (*env)->GetStringUTFChars (env, name, JNI_FALSE);
if (name_utf == NULL)
{
(*env)->DeleteLocalRef (env, name);
ase_awk_setrunerrnum (run, ASE_AWK_ENOMEM);
return -1;
}
class = (*env)->GetObjectClass(env, obj);
method = (*env)->GetMethodID (
env, class, name_utf,
"(J[Ljava/lang/Object;)Ljava/lang/Object;");
*/
class = (*env)->GetObjectClass(env, obj); class = (*env)->GetObjectClass(env, obj);
method = (*env)->GetMethodID ( method = (*env)->GetMethodID (
env, class, "handleFunction", env, class, "handleFunction",
"(Lase/awk/Context;Ljava/lang/String;[Lase/awk/Argument;)Ljava/lang/Object;"); "(Lase/awk/Context;Ljava/lang/String;Lase/awk/Return;[Lase/awk/Argument;)V");
(*env)->DeleteLocalRef (env, class); (*env)->DeleteLocalRef (env, class);
/*(*env)->ReleaseStringUTFChars (env, name, name_utf);*/
//(*env)->DeleteLocalRef (env, name);
if (method == NULL) if (method == NULL)
{ {
/* if the method is not found, the exception is thrown. /* if the method is not found, the exception is thrown.
@ -1707,10 +1707,25 @@ static int handle_bfn (
return -1; return -1;
} }
ret = (*env)->NewObject (env,
run_data->return_class,
run_data->return_init, (jlong)run, (jlong)0);
if (ret == NULL)
{
(*env)->DeleteLocalRef (env, name);
if (is_debug(awk)) (*env)->ExceptionDescribe (env);
(*env)->ExceptionClear (env);
ase_awk_setrunerrnum (run, ASE_AWK_ENOMEM);
return -1;
}
args = (*env)->NewObjectArray ( args = (*env)->NewObjectArray (
env, nargs, run_data->argument_class, NULL); env, nargs, run_data->argument_class, NULL);
if (args == NULL) if (args == NULL)
{ {
/* no ref-down on ret.runid as it is still ase_awk_val_nil */
(*env)->DeleteLocalRef (env, ret);
(*env)->DeleteLocalRef (env, name); (*env)->DeleteLocalRef (env, name);
if (is_debug(awk)) (*env)->ExceptionDescribe (env); if (is_debug(awk)) (*env)->ExceptionDescribe (env);
(*env)->ExceptionClear (env); (*env)->ExceptionClear (env);
@ -1734,6 +1749,10 @@ static int handle_bfn (
(*env)->ExceptionClear (env); (*env)->ExceptionClear (env);
} }
(*env)->DeleteLocalRef (env, args); (*env)->DeleteLocalRef (env, args);
/* no ref-down on ret.runid as it is
* still ase_awk_val_nil */
(*env)->DeleteLocalRef (env, ret);
(*env)->DeleteLocalRef (env, name); (*env)->DeleteLocalRef (env, name);
ase_awk_setrunerrnum (run, ASE_AWK_ENOMEM); ase_awk_setrunerrnum (run, ASE_AWK_ENOMEM);
return -1; return -1;
@ -1743,8 +1762,8 @@ static int handle_bfn (
if (arg != NULL) (*env)->DeleteLocalRef (env, arg); if (arg != NULL) (*env)->DeleteLocalRef (env, arg);
} }
ret = (*env)->CallObjectMethod ( (*env)->CallVoidMethod (
env, obj, method, run_data->context_object, name, args); env, obj, method, run_data->context_object, name, ret, args);
throwable = (*env)->ExceptionOccurred(env); throwable = (*env)->ExceptionOccurred(env);
if (throwable) if (throwable)
{ {
@ -1758,6 +1777,13 @@ static int handle_bfn (
if (is_debug(awk)) (*env)->ExceptionDescribe (env); if (is_debug(awk)) (*env)->ExceptionDescribe (env);
(*env)->ExceptionClear (env); (*env)->ExceptionClear (env);
(*env)->DeleteLocalRef (env, args); (*env)->DeleteLocalRef (env, args);
/* refdown on ret.valid is needed here */
vi = (*env)->GetLongField (env, ret, run_data->return_valid);
if (vi != 0) ase_awk_refdownval (run, v);
(*env)->SetLongField (env, ret, run_data->return_valid,(jlong)0);
(*env)->DeleteLocalRef (env, ret);
(*env)->DeleteLocalRef (env, name); (*env)->DeleteLocalRef (env, name);
class = (*env)->GetObjectClass (env, throwable); class = (*env)->GetObjectClass (env, throwable);
@ -1822,13 +1848,22 @@ static int handle_bfn (
error_in_exception_handler: error_in_exception_handler:
(*env)->ReleaseStringChars (env, mesg, ptr); (*env)->ReleaseStringChars (env, mesg, ptr);
(*env)->DeleteLocalRef (env, throwable); (*env)->DeleteLocalRef (env, throwable);
return -1; return -1;
} }
vi = (*env)->GetLongField (env, ret, run_data->return_valid);
if (vi != 0)
{
ase_awk_setretval (run, (ase_awk_val_t*)vi);
ase_awk_refdownval (run, (ase_awk_val_t*)vi);
}
(*env)->SetLongField (env, ret, run_data->return_valid, (jlong)0);
(*env)->DeleteLocalRef (env, args); (*env)->DeleteLocalRef (env, args);
(*env)->DeleteLocalRef (env, ret);
(*env)->DeleteLocalRef (env, name); (*env)->DeleteLocalRef (env, name);
#if 0
if (ret == NULL) if (ret == NULL)
{ {
ase_awk_setretval (run, ase_awk_val_nil); ase_awk_setretval (run, ase_awk_val_nil);
@ -1959,6 +1994,8 @@ static int handle_bfn (
ase_awk_setrunerrnum (run, ASE_AWK_EBFNUSER); ase_awk_setrunerrnum (run, ASE_AWK_EBFNUSER);
return -1; return -1;
} }
#endif
return 0; return 0;
} }
@ -2649,7 +2686,7 @@ JNIEXPORT void JNICALL Java_ase_awk_Return_setintval (JNIEnv* env, jobject obj,
return; return;
} }
ase_awk_refdownval (run, val); if (val != NULL) ase_awk_refdownval (run, val);
class = (*env)->GetObjectClass(env, obj); class = (*env)->GetObjectClass(env, obj);
field = (*env)->GetFieldID (env, class, FIELD_VALID, "J"); field = (*env)->GetFieldID (env, class, FIELD_VALID, "J");
@ -2679,7 +2716,7 @@ JNIEXPORT void JNICALL Java_ase_awk_Return_setrealval (JNIEnv* env, jobject obj,
return; return;
} }
ase_awk_refdownval (run, val); if (val != NULL) ase_awk_refdownval (run, val);
class = (*env)->GetObjectClass(env, obj); class = (*env)->GetObjectClass(env, obj);
field = (*env)->GetFieldID (env, class, FIELD_VALID, "J"); field = (*env)->GetFieldID (env, class, FIELD_VALID, "J");
@ -2691,7 +2728,7 @@ JNIEXPORT void JNICALL Java_ase_awk_Return_setrealval (JNIEnv* env, jobject obj,
} }
(*env)->SetLongField (env, obj, field, (jlong)nv); (*env)->SetLongField (env, obj, field, (jlong)nv);
ase_awk_refupval (run, nv); // should be refdowned when Return is invalidated....); ase_awk_refupval (run, nv);
} }
JNIEXPORT void JNICALL Java_ase_awk_Return_setstrval (JNIEnv* env, jobject obj, jlong runid, jlong valid, jstring newval) JNIEXPORT void JNICALL Java_ase_awk_Return_setstrval (JNIEnv* env, jobject obj, jlong runid, jlong valid, jstring newval)
@ -2702,9 +2739,8 @@ JNIEXPORT void JNICALL Java_ase_awk_Return_setstrval (JNIEnv* env, jobject obj,
jclass class; jclass class;
jfieldID field; jfieldID field;
#if 0
// TODO:.... nv = (ase_awk_val_t*)ase_awk_makerealval (run, newval);
nv = ase_awk_makerealval (run, newval);
if (nv == NULL) if (nv == NULL)
{ {
THROW_RUN_EXCEPTION (env, run); THROW_RUN_EXCEPTION (env, run);
@ -2724,4 +2760,5 @@ JNIEXPORT void JNICALL Java_ase_awk_Return_setstrval (JNIEnv* env, jobject obj,
(*env)->SetLongField (env, obj, field, (jlong)nv); (*env)->SetLongField (env, obj, field, (jlong)nv);
ase_awk_refupval (run, nv); // should be refdowned when Return is invalidated....); ase_awk_refupval (run, nv); // should be refdowned when Return is invalidated....);
#endif
} }

4
ase/awk/jni.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: jni.h,v 1.12 2007/10/21 15:05:21 bacon Exp $ * $Id: jni.h,v 1.13 2007/10/23 15:18:47 bacon Exp $
* *
* {License} * {License}
*/ */
@ -68,7 +68,7 @@ JNIEXPORT jboolean JNICALL Java_ase_awk_Argument_isindexed (JNIEnv* env, jobject
JNIEXPORT jobject JNICALL Java_ase_awk_Argument_getindexed (JNIEnv* env, jobject obj, jlong runid, jlong valid, jstring index); JNIEXPORT jobject JNICALL Java_ase_awk_Argument_getindexed (JNIEnv* env, jobject obj, jlong runid, jlong valid, jstring index);
JNIEXPORT void JNICALL Java_ase_awk_Return_setintval (JNIEnv* env, jobject obj, jlong runid, jlong valid, jlong newval); JNIEXPORT void JNICALL Java_ase_awk_Return_setintval (JNIEnv* env, jobject obj, jlong runid, jlong valid, jlong newval);
JNIEXPORT void JNICALL Java_ase_awk_Return_setrealval (JNIEnv* env, jobject obj, jlong runid, jlong valid, jlong newval); JNIEXPORT void JNICALL Java_ase_awk_Return_setrealval (JNIEnv* env, jobject obj, jlong runid, jlong valid, jdouble newval);
#ifdef __cplusplus #ifdef __cplusplus
} }