152 lines
5.0 KiB
C
152 lines
5.0 KiB
C
/*
|
|
* $Id: err.c,v 1.60 2006-12-16 16:12:07 bacon Exp $
|
|
*/
|
|
|
|
#include <ase/awk/awk_i.h>
|
|
|
|
int ase_awk_geterrnum (ase_awk_t* awk)
|
|
{
|
|
return awk->errnum;
|
|
}
|
|
|
|
const ase_char_t* ase_awk_geterrstr (int errnum)
|
|
{
|
|
static const ase_char_t* __errstr[] =
|
|
{
|
|
ASE_T("no error"),
|
|
|
|
ASE_T("invalid parameter"),
|
|
ASE_T("out of memory"),
|
|
ASE_T("not supported"),
|
|
ASE_T("operation not allowed"),
|
|
ASE_T("no such device"),
|
|
ASE_T("no space left on device"),
|
|
ASE_T("no such file, directory, or data"),
|
|
ASE_T("too many open files"),
|
|
ASE_T("too many links"),
|
|
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("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"),
|
|
|
|
ASE_T("cannot open source input"),
|
|
ASE_T("cannot close source input"),
|
|
ASE_T("cannot read source input"),
|
|
|
|
ASE_T("cannot open source output"),
|
|
ASE_T("cannot close source output"),
|
|
ASE_T("cannot write source output"),
|
|
|
|
ASE_T("cannot open console for read"),
|
|
ASE_T("cannot close console for read"),
|
|
ASE_T("cannot switch to next console for read"),
|
|
ASE_T("cannot read from console"),
|
|
|
|
ASE_T("cannot open console for write"),
|
|
ASE_T("cannot close console for write"),
|
|
ASE_T("cannot switch to next console for write"),
|
|
ASE_T("cannot write to console"),
|
|
|
|
ASE_T("invalid character"),
|
|
ASE_T("cannot unget character"),
|
|
|
|
ASE_T("unexpected end of source"),
|
|
ASE_T("unexpected end of a comment"),
|
|
ASE_T("unexpected end of a string"),
|
|
ASE_T("unexpected end of a regular expression"),
|
|
ASE_T("left brace expected"),
|
|
ASE_T("left parenthesis expected"),
|
|
ASE_T("right parenthesis expected"),
|
|
ASE_T("right bracket expected"),
|
|
ASE_T("comma expected"),
|
|
ASE_T("semicolon expected"),
|
|
ASE_T("colon expected"),
|
|
ASE_T("keyword 'in' expected"),
|
|
ASE_T("not a variable after 'in'"),
|
|
ASE_T("expression expected"),
|
|
|
|
ASE_T("keyword 'while' expected"),
|
|
ASE_T("assignment statement expected"),
|
|
ASE_T("identifier expected"),
|
|
ASE_T("BEGIN requires an action block"),
|
|
ASE_T("END requires an action block"),
|
|
ASE_T("duplicate BEGIN"),
|
|
ASE_T("duplicate END"),
|
|
ASE_T("the function name redefines a built-in function"),
|
|
ASE_T("a function cannot be redefined with the same name"),
|
|
ASE_T("the function name redefines a global variable"),
|
|
ASE_T("a parameter name cannot be the same as the name of the owning function"),
|
|
ASE_T("duplicate parameter name"),
|
|
ASE_T("duplicate variable name"),
|
|
ASE_T("duplicate name"),
|
|
ASE_T("undefined identifier"),
|
|
ASE_T("l-value required"),
|
|
ASE_T("too few arguments"),
|
|
ASE_T("too many arguments"),
|
|
ASE_T("too many global variables"),
|
|
ASE_T("too many local variables"),
|
|
ASE_T("too many parameters"),
|
|
ASE_T("break outside a loop"),
|
|
ASE_T("continue outside a loop"),
|
|
ASE_T("next illegal in BEGIN or END block"),
|
|
ASE_T("nextfile illegal in BEGIN or END block"),
|
|
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"),
|
|
ASE_T("no such function"),
|
|
ASE_T("value not assignable"),
|
|
ASE_T("variable not indexable"),
|
|
ASE_T("variable not deletable"),
|
|
ASE_T("value not referenceable"),
|
|
ASE_T("an indexed value cannot be assigned a map"),
|
|
ASE_T("a positional value cannot be assigned a map"),
|
|
ASE_T("cannot change a map to a scalar value"),
|
|
ASE_T("cannot change a scalar value to a map"),
|
|
ASE_T("a map is not allowed"),
|
|
ASE_T("wrong value type"),
|
|
ASE_T("pipe operation error"),
|
|
ASE_T("next cannot be called from the BEGIN or END block"),
|
|
ASE_T("nextfile cannot be called from the BEGIN or END block"),
|
|
ASE_T("wrong implementation of user-defined io handler"),
|
|
ASE_T("wrong implementation of built-in function handler"),
|
|
ASE_T("built-in function handler returned an error"),
|
|
ASE_T("no such io name found"),
|
|
ASE_T("io handler has returned an error"),
|
|
ASE_T("not sufficient arguments to formatting sequence"),
|
|
ASE_T("recursion detected in format conversion"),
|
|
ASE_T("invalid character in CONVFMT"),
|
|
ASE_T("invalid character in OFMT"),
|
|
|
|
ASE_T("a right parenthesis expected in the regular expression"),
|
|
ASE_T("a right bracket expected in the regular expression"),
|
|
ASE_T("a right brace expected in the regular expression"),
|
|
ASE_T("a colon expected in the regular expression"),
|
|
ASE_T("invalid character range in the regular expression"),
|
|
ASE_T("invalid character class in the regular expression"),
|
|
ASE_T("invalid boundary range in the regular expression"),
|
|
ASE_T("unexpected end of the regular expression"),
|
|
ASE_T("garbage after the regular expression")
|
|
};
|
|
|
|
if (errnum >= 0 && errnum < ASE_COUNTOF(__errstr))
|
|
{
|
|
return __errstr[errnum];
|
|
}
|
|
|
|
return ASE_T("unknown error");
|
|
}
|
|
|