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

Recovered from cvs revision 2007-10-24 14:17:00

Browse Source
This commit is contained in:
hyung-hwan 2007-10-24 23:17:00 +00:00
parent 119ec4e513
commit 62ce250c12
8 changed files with 368 additions and 455 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ase/awk/Return.java
View File

@ -1,5 +1,5 @@
/*
* $Id: Return.java,v 1.2 2007/10/21 13:58:47 bacon Exp $
* $Id: Return.java,v 1.3 2007/10/24 04:58:35 bacon Exp $
*/
package ase.awk;
@ -90,6 +90,11 @@ public class Return
setindexedstrval (this.runid, this.valid, index, v);
}
public void clear ()
{
clearval (this.runid, this.valid);
}
protected native void setintval (long runid, long valid, long v);
protected native void setrealval (long runid, long valid, double v);
protected native void setstrval (long runid, long valid, String v);
@ -100,4 +105,6 @@ public class Return
long runid, long valid, String index, double v);
protected native void setindexedstrval (
long runid, long valid, String index, String v);
protected native void clearval (long runid, long valid);
}

50
ase/awk/StdAwk.java
View File

@ -1,5 +1,5 @@
/*
* $Id: StdAwk.java,v 1.19 2007/10/23 15:18:47 bacon Exp $
* $Id: StdAwk.java,v 1.20 2007/10/24 03:46:51 bacon Exp $
*
* {License}
*/
@ -346,44 +346,44 @@ public abstract class StdAwk extends Awk
ret.setRealValue (Math.tan(args[0].getRealValue()));
}
public Object atan (Context ctx, String name, Argument[] args)
public void atan (Context ctx, String name, Return ret, Argument[] args)
{
return new Double (Math.atan(args[0].getRealValue()));
ret.setRealValue (Math.atan(args[0].getRealValue()));
}
public Object atan2 (Context ctx, String name, Argument[] args)
public void atan2 (Context ctx, String name, Return ret, Argument[] args)
{
double y = args[0].getRealValue();
double x = args[1].getRealValue();
return new Double (Math.atan2(y,x));
ret.setRealValue (Math.atan2(y,x));
}
public Object log (Context ctx, String name, Argument[] args)
public void log (Context ctx, String name, Return ret, Argument[] args)
{
return new Double (Math.log(args[0].getRealValue()));
ret.setRealValue (Math.log(args[0].getRealValue()));
}
public Object exp (Context ctx, String name, Argument[] args)
public void exp (Context ctx, String name, Return ret, Argument[] args)
{
return new Double (Math.exp(args[0].getRealValue()));
ret.setRealValue (Math.exp(args[0].getRealValue()));
}
public Object sqrt (Context ctx, String name, Argument[] args)
public void sqrt (Context ctx, String name, Return ret, Argument[] args)
{
return new Double (Math.sqrt(args[0].getRealValue()));
ret.setRealValue (Math.sqrt(args[0].getRealValue()));
}
public Object bfnint (Context ctx, String name, Argument[] args)
public void bfnint (Context ctx, String name, Return ret, Argument[] args)
{
return new Long (args[0].getIntValue());
ret.setIntValue (args[0].getIntValue());
}
public Object rand (Context ctx, String name, Argument[] args)
public void rand (Context ctx, String name, Return ret, Argument[] args)
{
return new Double (random.nextDouble ());
ret.setRealValue (random.nextDouble ());
}
public Object srand (Context ctx, String name, Argument[] args)
public void srand (Context ctx, String name, Return ret, Argument[] args)
{
long prev_seed = seed;
@ -392,33 +392,33 @@ public abstract class StdAwk extends Awk
args[0].getIntValue();
random.setSeed (seed);
return new Long (prev_seed);
ret.setIntValue (prev_seed);
}
public Object systime (Context ctx, String name, Argument[] args)
public void systime (Context ctx, String name, Return ret, Argument[] args)
{
long msec = System.currentTimeMillis ();
return new Long (msec / 1000);
ret.setIntValue (msec / 1000);
}
public Object strftime (Context ctx, String name, Argument[] args) throws Exception
public void strftime (Context ctx, String name, Return ret, Argument[] args) throws Exception
{
String fmt = (args.length<1)? "%c": args[0].getStringValue();
long t = (args.length<2)? (System.currentTimeMillis()/1000): args[1].getIntValue();
return strftime (fmt, t);
ret.setStringValue (strftime (fmt, t));
}
public Object strfgmtime (Context ctx, String name, Argument[] args) throws Exception
public void strfgmtime (Context ctx, String name, Return ret, Argument[] args) throws Exception
{
String fmt = (args.length<1)? "%c": args[0].getStringValue();
long t = (args.length<2)? (System.currentTimeMillis()/1000): args[1].getIntValue();
return strfgmtime (fmt, t);
ret.setStringValue (strfgmtime (fmt, t));
}
/* miscellaneous built-in functions */
public Object system (Context ctx, String name, Argument[] args) throws Exception
public void system (Context ctx, String name, Return ret, Argument[] args) throws Exception
{
return system (args[0].getStringValue());
ret.setIntValue (system (args[0].getStringValue()));
}
/* == utility functions == */

4
ase/awk/jni-dmc.def
View File

@ -27,3 +27,7 @@ EXPORTS
Java_ase_awk_Argument_getstrval
Java_ase_awk_Argument_isindexed
Java_ase_awk_Argument_getindexed
Java_ase_awk_Return_setintval
Java_ase_awk_Return_setrealval
Java_ase_awk_Return_setstrval
Java_ase_awk_Return_clearval

738
ase/awk/jni.c
View File

File diff suppressed because it is too large Load Diff

4
ase/awk/jni.def
View File

@ -26,3 +26,7 @@ EXPORTS
Java_ase_awk_Argument_getstrval
Java_ase_awk_Argument_isindexed
Java_ase_awk_Argument_getindexed
Java_ase_awk_Return_setintval
Java_ase_awk_Return_setrealval
Java_ase_awk_Return_setstrval
Java_ase_awk_Return_clearval

4
ase/awk/jni.h
View File

@ -1,5 +1,5 @@
/*
* $Id: jni.h,v 1.13 2007/10/23 15:18:47 bacon Exp $
* $Id: jni.h,v 1.14 2007/10/24 04:58:35 bacon Exp $
*
* {License}
*/
@ -69,6 +69,8 @@ JNIEXPORT jobject JNICALL Java_ase_awk_Argument_getindexed (JNIEnv* env, jobject
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, jdouble newval);
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_clearval (JNIEnv* env, jobject obj, jlong runid, jlong valid);
#ifdef __cplusplus
}

7
ase/test/awk/AseAwk.java
View File

@ -1,5 +1,5 @@
/*
* $Id: AseAwk.java,v 1.15 2007/10/19 05:05:20 bacon Exp $
* $Id: AseAwk.java,v 1.16 2007/10/24 03:46:51 bacon Exp $
*/
import java.awt.*;
@ -24,6 +24,7 @@ import ase.awk.StdAwk;
import ase.awk.Console;
import ase.awk.Context;
import ase.awk.Argument;
import ase.awk.Return;
public class AseAwk extends StdAwk
{
@ -301,11 +302,11 @@ public class AseAwk extends StdAwk
addFunction ("sleep", 1, 1);
}
public Object sleep (Context ctx, String name, Argument[] args) throws ase.awk.Exception
public void sleep (Context ctx, String name, Return ret, Argument[] args) throws ase.awk.Exception
{
try { Thread.sleep (args[0].getIntValue() * 1000); }
catch (InterruptedException e) {}
return new Long(0);
ret.setIntValue (0);
}
public void parse () throws ase.awk.Exception

7
ase/test/awk/AseAwkPanel.java
View File

@ -1,5 +1,5 @@
/*
* $Id: AseAwkPanel.java,v 1.7 2007/10/21 13:58:47 bacon Exp $
* $Id: AseAwkPanel.java,v 1.8 2007/10/24 03:46:51 bacon Exp $
*/
import java.awt.*;
@ -17,6 +17,7 @@ import ase.awk.StdAwk;
import ase.awk.Console;
import ase.awk.Context;
import ase.awk.Argument;
import ase.awk.Return;
public class AseAwkPanel extends Panel
{
@ -93,11 +94,11 @@ public class AseAwkPanel extends Panel
addFunction ("sleep", 1, 1);
}
public Object sleep (Context ctx, String name, Argument[] args)
public void sleep (Context ctx, String name, Return ret, Argument[] args)
{
try { Thread.sleep (args[0].getIntValue() * 1000); }
catch (InterruptedException e) {}
return new Long(0);
ret.setIntValue (0);
}
protected int openSource (int mode)