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-01-10 14:33:51 +00:00
parent d08f469091
commit bdaa443901
5 changed files with 26 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
ase/awk/awk.h
View File

@ -1,5 +1,5 @@
/*
* $Id: awk.h,v 1.182 2007-01-07 07:30:39 bacon Exp $
* $Id: awk.h,v 1.183 2007-01-10 14:33:35 bacon Exp $
*/
#ifndef _ASE_AWK_AWK_H_
@ -228,14 +228,13 @@ enum
ASE_AWK_EAGAIN, /* resource temporarily unavailable */
ASE_AWK_EEXIST, /* file or data exists */
ASE_AWK_EFTBIG, /* file or data too big */
ASE_AWK_EINTER, /* operation interrupted */
ASE_AWK_ETBUSY, /* system too busy */
ASE_AWK_EISDIR, /* is a directory */
ASE_AWK_EIOERR, /* i/o error */
ASE_AWK_EINTERN, /* internal error */
ASE_AWK_ERUNTIME, /* run-time error */
ASE_AWK_ERUNNING, /* there are running instances */
ASE_AWK_ETOOMANYRUNS, /* too many running instances */
ASE_AWK_ERECUR, /* recursion too deep */
ASE_AWK_ESYSFNS, /* system functions not proper */
@ -302,7 +301,6 @@ enum
ASE_AWK_EPRINTFARG, /* printf must have one or more arguments */
/* run time error */
ASE_AWK_EINTERN, /* internal error */
ASE_AWK_EDIVBY0, /* divide by zero */
ASE_AWK_EOPERAND, /* invalid operand */
ASE_AWK_EPOSIDX, /* wrong position index */

6
ase/awk/err.c
View File

@ -1,5 +1,5 @@
/*
* $Id: err.c,v 1.69 2007-01-03 09:51:51 bacon Exp $
* $Id: err.c,v 1.70 2007-01-10 14:33:36 bacon Exp $
*/
#include <ase/awk/awk_i.h>
@ -69,14 +69,13 @@ const ase_char_t* ase_awk_geterrstr (int errnum)
ASE_T("resource temporarily unavailable"),
ASE_T("file or data exists"),
ASE_T("file or data too big"),
ASE_T("operation interrupted"),
ASE_T("system too busy"),
ASE_T("is a directory"),
ASE_T("i/o error"),
ASE_T("internal error that should never have happened"),
ASE_T("general run-time error"),
ASE_T("one or more running instances"),
ASE_T("too many running instances"),
ASE_T("recursion too deep"),
ASE_T("system functions not provided or not proper"),
@ -142,7 +141,6 @@ const ase_char_t* ase_awk_geterrstr (int errnum)
ASE_T("getline expected"),
ASE_T("printf requires one or more arguments"),
ASE_T("internal error that should never have happened"),
ASE_T("divide by zero"),
ASE_T("invalid operand"),
ASE_T("wrong position index"),

11
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/*
* $Id: run.c,v 1.319 2007-01-03 09:51:52 bacon Exp $
* $Id: run.c,v 1.320 2007-01-10 14:33:00 bacon Exp $
*/
#include <ase/awk/awk_i.h>
@ -1310,6 +1310,7 @@ static int __run_main (
ase_awk_nde_call_t nde;
nde.type = ASE_AWK_NDE_AFN;
nde.line = 0;
nde.next = ASE_NULL;
nde.what.afn.name.ptr = (ase_char_t*)main;
nde.what.afn.name.len = ase_awk_strlen(main);
@ -5237,8 +5238,14 @@ static ase_awk_val_t* __eval_afn (ase_awk_run_t* run, ase_awk_nde_t* nde)
call->what.afn.name.ptr, call->what.afn.name.len);
if (pair == ASE_NULL)
{
run->awk->sysfns.sprintf (
run->errmsg, ASE_COUNTOF(run->errmsg),
ASE_T("function '%.*s' not found"),
call->what.afn.name.len,
call->what.afn.name.ptr);
ase_awk_setrunerror (
run, ASE_AWK_EFNNONE, nde->line, ASE_NULL);
run, ASE_AWK_EFNNONE, nde->line, run->errmsg);
return ASE_NULL;
}