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

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan
2007-03-19 03:33:54 +00:00
parent 57e05aabee
commit 78c9110985
6 changed files with 43 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
ase/awk/jni.c
View File

@ -1,5 +1,5 @@
/*
* $Id: jni.c,v 1.74 2007-03-10 15:42:00 bacon Exp $
* $Id: jni.c,v 1.75 2007-03-19 03:33:53 bacon Exp $
*
* {License}
*/
@ -1569,6 +1569,7 @@ static int __handle_bfn (
(*env)->ExceptionClear (env);
(*env)->DeleteLocalRef (env, args);
ase_awk_setrunerrnum (run, ASE_AWK_EBFNIMPL);
return -1;
}

43
ase/awk/jni.dsp
View File

@ -54,7 +54,7 @@ BSC32=bscmake.exe
# ADD BSC32 /nologo
LINK32=link.exe
# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /machine:I386
# ADD LINK32 aseawk.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /machine:I386 /out:"../release/win32/vs60/aseawk_jni.dll" /implib:"release/win32/vs60/aseawk_jni.lib" /libpath:"$(OutDir)"
# ADD LINK32 asecmn.lib aseawk.lib aseutl.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /machine:I386 /out:"../release/win32/vs60/aseawk_jni.dll" /implib:"release/win32/vs60/aseawk_jni.lib" /libpath:"$(OutDir)"
!ELSEIF "$(CFG)" == "awk.jni - Win32 Debug"
@ -81,30 +81,7 @@ BSC32=bscmake.exe
# ADD BSC32 /nologo
LINK32=link.exe
# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /debug /machine:I386 /pdbtype:sept
# ADD LINK32 aseawk.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /debug /machine:I386 /out:"../debug/win32/vs60/aseawk_jni.dll" /implib:"debug/win32/vs60/aseawk_jni.lib" /pdbtype:sept /libpath:"$(OutDir)"
# Begin Custom Build
InputPath=\projects\ase\debug\win32\vs60\aseawk_jni.dll
SOURCE="$(InputPath)"
BuildCmds= \
/progra~1/java/jdk1.5.0_09/bin/javac -classpath ../.. Awk.java \
/progra~1/java/jdk1.5.0_09/bin/javac -classpath ../.. StdAwk.java \
/progra~1/java/jdk1.5.0_09/bin/javac -classpath ../.. Extio.java \
/progra~1/java/jdk1.5.0_09/bin/javac -classpath ../.. Exception.java \
"Awk.class" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
$(BuildCmds)
"StdAwk.class" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
$(BuildCmds)
"Extio.class" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
$(BuildCmds)
"Exception.class" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
$(BuildCmds)
# End Custom Build
# ADD LINK32 asecmn.lib aseawk.lib aseutl.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /debug /machine:I386 /out:"../debug/win32/vs60/aseawk_jni.dll" /implib:"debug/win32/vs60/aseawk_jni.lib" /pdbtype:sept /libpath:"$(OutDir)"
!ENDIF
@ -132,21 +109,5 @@ SOURCE=.\jni.h
# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"
# End Group
# Begin Source File
SOURCE=.\Awk.java
# End Source File
# Begin Source File
SOURCE=.\Exception.java
# End Source File
# Begin Source File
SOURCE=.\Extio.java
# End Source File
# Begin Source File
SOURCE=.\StdAwk.java
# End Source File
# End Target
# End Project

28
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/*
* $Id: run.c,v 1.344 2007-03-10 15:22:54 bacon Exp $
* $Id: run.c,v 1.345 2007-03-19 03:33:53 bacon Exp $
*
* {License}
*/
@ -5354,10 +5354,6 @@ static ase_awk_val_t* __eval_call (
return ASE_NULL;
}
/*
nargs = 0; p = call->args;
while (p != ASE_NULL)
*/
for (p = call->args, nargs = 0; p != ASE_NULL; p = p->next, nargs++)
{
ASE_ASSERT (
@ -5464,10 +5460,32 @@ static ase_awk_val_t* __eval_call (
if (call->what.bfn.handler != ASE_NULL)
{
run->errnum = ASE_AWK_ENOERR;
n = call->what.bfn.handler (
run,
call->what.bfn.name.ptr,
call->what.bfn.name.len);
if (n <= -1)
{
if (run->errnum == ASE_AWK_ENOERR)
{
/* the handler has not set the error.
* fix it */
ase_awk_setrunerror (
run, ASE_AWK_EBFNIMPL,
nde->line, ASE_NULL, 0);
}
else
{
/* adjust the error line */
run->errlin = nde->line;
}
/* correct the return code just in case */
if (n < -1) n = -1;
}
}
}