qse/ase/awk/awk.h

533 lines
18 KiB
C
Raw Normal View History

2005-11-05 17:54:00 +00:00
/*
2006-12-16 16:14:40 +00:00
* $Id: awk.h,v 1.168 2006-12-16 16:12:07 bacon Exp $
2005-11-05 17:54:00 +00:00
*/
2006-10-24 04:10:12 +00:00
#ifndef _ASE_AWK_AWK_H_
#define _ASE_AWK_AWK_H_
2005-11-05 17:54:00 +00:00
2006-10-24 04:10:12 +00:00
#include <ase/types.h>
#include <ase/macros.h>
2006-01-18 15:16:01 +00:00
2006-10-24 04:10:12 +00:00
typedef struct ase_awk_t ase_awk_t;
typedef struct ase_awk_run_t ase_awk_run_t;
typedef struct ase_awk_val_t ase_awk_val_t;
typedef struct ase_awk_extio_t ase_awk_extio_t;
2006-08-04 17:36:40 +00:00
2006-12-13 14:13:07 +00:00
typedef struct ase_awk_sysfns_t ase_awk_sysfns_t;
2006-10-24 04:10:12 +00:00
typedef struct ase_awk_srcios_t ase_awk_srcios_t;
typedef struct ase_awk_runios_t ase_awk_runios_t;
typedef struct ase_awk_runcbs_t ase_awk_runcbs_t;
typedef struct ase_awk_runarg_t ase_awk_runarg_t;
2006-08-04 17:36:40 +00:00
2006-12-15 14:58:37 +00:00
typedef void* (*ase_awk_malloc_t) (ase_size_t n, void* custom_data);
2006-12-13 14:13:07 +00:00
typedef void* (*ase_awk_realloc_t) (void* ptr, ase_size_t n, void* custom_data);
2006-12-15 14:58:37 +00:00
typedef void (*ase_awk_free_t) (void* ptr, void* custom_data);
typedef void* (*ase_awk_memcpy_t) (void* dst, const void* src, ase_size_t n);
typedef void* (*ase_awk_memset_t) (void* dst, int val, ase_size_t n);
2006-12-13 14:13:07 +00:00
typedef ase_bool_t (*ase_awk_isctype_t) (ase_cint_t c);
typedef ase_cint_t (*ase_awk_toctype_t) (ase_cint_t c);
typedef ase_real_t (*ase_awk_pow_t) (ase_real_t x, ase_real_t y);
2006-12-15 14:58:37 +00:00
2006-12-13 14:13:07 +00:00
typedef int (*ase_awk_sprintf_t) (
ase_char_t* buf, ase_size_t size, const ase_char_t* fmt, ...);
typedef void (*ase_awk_aprintf_t) (const ase_char_t* fmt, ...);
typedef void (*ase_awk_dprintf_t) (const ase_char_t* fmt, ...);
2006-12-16 16:14:40 +00:00
typedef void (*ase_awk_abort_t) (void* custom_data);
typedef void (*ase_awk_lock_t) (void* custom_data);
2006-12-13 14:13:07 +00:00
2006-10-24 04:10:12 +00:00
typedef ase_ssize_t (*ase_awk_io_t) (
int cmd, void* arg, ase_char_t* data, ase_size_t count);
2006-06-19 04:38:51 +00:00
2006-10-24 04:10:12 +00:00
struct ase_awk_extio_t
2006-06-19 04:38:51 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_run_t* run; /* [IN] */
2006-11-21 15:06:51 +00:00
int type; /* [IN] console, file, coproc, pipe */
int mode; /* [IN] read, write, etc */
2006-10-24 04:10:12 +00:00
ase_char_t* name; /* [IN] */
2006-11-21 15:06:51 +00:00
void* custom_data; /* [IN] */
void* handle; /* [OUT] */
2006-10-16 14:39:21 +00:00
2006-11-21 15:06:51 +00:00
/* input */
2006-06-28 14:19:01 +00:00
struct
{
2006-10-24 04:10:12 +00:00
ase_char_t buf[2048];
ase_size_t pos;
ase_size_t len;
ase_bool_t eof;
2006-11-21 15:06:51 +00:00
ase_bool_t eos;
2006-06-28 14:19:01 +00:00
} in;
2006-11-21 15:06:51 +00:00
/* output */
struct
{
ase_bool_t eof;
ase_bool_t eos;
} out;
2006-10-24 04:10:12 +00:00
ase_awk_extio_t* next;
2006-06-19 04:38:51 +00:00
};
2006-12-13 14:13:07 +00:00
struct ase_awk_sysfns_t
2006-08-31 04:21:04 +00:00
{
2006-12-13 14:13:07 +00:00
/* memory allocation/deallocation */
ase_awk_malloc_t malloc; /* required */
ase_awk_realloc_t realloc; /* optional */
ase_awk_free_t free; /* required */
ase_awk_memcpy_t memcpy; /* optional */
ase_awk_memset_t memset; /* optional */
/* character classes */
ase_awk_isctype_t is_upper; /* required */
ase_awk_isctype_t is_lower; /* required */
ase_awk_isctype_t is_alpha; /* required */
ase_awk_isctype_t is_digit; /* required */
ase_awk_isctype_t is_xdigit; /* required */
ase_awk_isctype_t is_alnum; /* required */
ase_awk_isctype_t is_space; /* required */
ase_awk_isctype_t is_print; /* required */
ase_awk_isctype_t is_graph; /* required */
ase_awk_isctype_t is_cntrl; /* required */
ase_awk_isctype_t is_punct; /* required */
ase_awk_toctype_t to_upper; /* required */
ase_awk_toctype_t to_lower; /* required */
2006-09-01 06:23:58 +00:00
2006-09-25 06:17:19 +00:00
/* utilities */
2006-12-13 14:13:07 +00:00
ase_awk_pow_t pow; /* required */
ase_awk_sprintf_t sprintf; /* required */
ase_awk_aprintf_t aprintf; /* required in the debug mode */
ase_awk_dprintf_t dprintf; /* required in the debug mode */
ase_awk_abort_t abort; /* required in the debug mode */
2006-10-12 04:17:58 +00:00
2006-12-13 14:13:07 +00:00
/* thread lock */
ase_awk_lock_t lock; /* required if multi-threaded */
ase_awk_lock_t unlock; /* required if multi-threaded */
2006-09-22 14:05:30 +00:00
2006-12-13 14:13:07 +00:00
/* user-defined data passed to selected system functions */
void* custom_data; /* optional */
2006-08-31 04:21:04 +00:00
};
2006-08-10 16:02:15 +00:00
2006-10-24 04:10:12 +00:00
struct ase_awk_srcios_t
2006-08-04 17:54:52 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_io_t in;
ase_awk_io_t out;
2006-08-04 17:54:52 +00:00
void* custom_data;
};
2006-10-24 04:10:12 +00:00
struct ase_awk_runios_t
2006-08-04 17:36:40 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_io_t pipe;
ase_awk_io_t coproc;
ase_awk_io_t file;
ase_awk_io_t console;
2006-10-13 10:18:39 +00:00
void* custom_data;
2006-08-04 17:36:40 +00:00
};
2006-10-24 04:10:12 +00:00
struct ase_awk_runcbs_t
2006-08-04 16:31:22 +00:00
{
2006-11-28 15:09:53 +00:00
void (*on_start) (
2006-12-16 14:48:31 +00:00
ase_awk_t* awk, ase_awk_run_t* run, void* custom_data);
2006-11-28 15:09:53 +00:00
void (*on_end) (
2006-12-16 14:48:31 +00:00
ase_awk_t* awk, ase_awk_run_t* run, int errnum, void* custom_data);
2006-08-04 17:36:40 +00:00
void* custom_data;
2006-08-04 16:31:22 +00:00
};
2006-10-24 04:10:12 +00:00
struct ase_awk_runarg_t
2006-10-10 14:09:23 +00:00
{
2006-10-24 04:10:12 +00:00
const ase_char_t* ptr;
ase_size_t len;
2006-10-10 14:09:23 +00:00
};
2006-08-31 04:21:04 +00:00
2006-01-19 16:28:21 +00:00
/* io function commands */
2005-11-05 17:54:00 +00:00
enum
{
2006-10-24 04:10:12 +00:00
ASE_AWK_IO_OPEN = 0,
ASE_AWK_IO_CLOSE = 1,
ASE_AWK_IO_READ = 2,
ASE_AWK_IO_WRITE = 3,
ASE_AWK_IO_FLUSH = 4,
ASE_AWK_IO_NEXT = 5
2006-06-22 04:25:44 +00:00
};
2006-08-04 17:36:40 +00:00
/* various options */
2006-10-23 14:44:43 +00:00
enum
2006-07-30 15:53:42 +00:00
{
/* allow undeclared variables */
2006-10-24 04:10:12 +00:00
ASE_AWK_IMPLICIT = (1 << 0),
2006-07-30 15:53:42 +00:00
2006-11-19 11:21:06 +00:00
/* allow explicit variable declarations */
2006-10-24 04:10:12 +00:00
ASE_AWK_EXPLICIT = (1 << 1),
2006-07-30 15:53:42 +00:00
/* a function name should not coincide to be a variable name */
2006-11-27 04:33:22 +00:00
ASE_AWK_UNIQUEAFN = (1 << 2),
2006-07-30 15:53:42 +00:00
/* allow variable shading */
2006-10-24 04:10:12 +00:00
ASE_AWK_SHADING = (1 << 3),
2006-07-30 15:53:42 +00:00
/* support shift operators */
2006-10-24 04:10:12 +00:00
ASE_AWK_SHIFT = (1 << 4),
2006-07-30 15:53:42 +00:00
2006-12-04 06:04:07 +00:00
/* enable the idiv operator (double slashes) */
ASE_AWK_IDIV = (1 << 5),
2006-07-30 15:53:42 +00:00
2006-12-04 06:04:07 +00:00
/* support comments by a hash sign */
ASE_AWK_HASHSIGN = (1 << 6),
2006-07-30 15:53:42 +00:00
/* support string concatenation in tokenization.
* this option can change the behavior of a certain construct.
* getline < "abc" ".def" is treated as if it is getline < "abc.def"
2006-10-22 12:39:30 +00:00
* when this option is on. If this option is off, the same expression
2006-07-30 15:53:42 +00:00
* is treated as if it is (getline < "abc") ".def". */
2006-10-24 04:10:12 +00:00
ASE_AWK_STRCONCAT = (1 << 7),
2006-07-30 15:53:42 +00:00
/* support getline and print */
2006-10-24 04:10:12 +00:00
ASE_AWK_EXTIO = (1 << 8),
2006-08-03 09:54:16 +00:00
2006-12-15 14:58:37 +00:00
/* support co-process */
ASE_AWK_COPROC = (1 << 9),
2006-08-03 09:54:16 +00:00
/* support blockless patterns */
2006-12-15 14:58:37 +00:00
ASE_AWK_BLOCKLESS = (1 << 10),
2006-01-19 16:28:21 +00:00
2006-08-13 16:05:04 +00:00
/* use 1 as the start index for string operations */
2006-12-15 14:58:37 +00:00
ASE_AWK_STRINDEXONE = (1 << 11),
2006-09-08 14:51:15 +00:00
/* strip off leading and trailing spaces when splitting a record
2006-10-22 12:39:30 +00:00
* into fields with a regular expression.
2006-09-08 14:57:43 +00:00
*
* Consider the following program.
* BEGIN { FS="[:[:space:]]+"; }
* {
* print "NF=" NF;
* for (i = 0; i < NF; i++) print i " [" $(i+1) "]";
* }
*
* The program splits " a b c " into [a], [b], [c] when this
* option is on while into [], [a], [b], [c], [] when it is off.
*/
2006-12-15 14:58:37 +00:00
ASE_AWK_STRIPSPACES = (1 << 12),
2006-10-15 15:46:14 +00:00
2006-11-23 03:31:58 +00:00
/* enable the nextoutfile keyword */
2006-12-16 16:14:40 +00:00
ASE_AWK_NEXTOFILE = (1 << 13)
2006-04-09 15:31:13 +00:00
};
2006-04-02 12:45:04 +00:00
/* error code */
2006-10-23 14:44:43 +00:00
enum
2006-04-02 12:45:04 +00:00
{
2006-10-24 04:10:12 +00:00
ASE_AWK_ENOERR, /* no error */
2006-12-16 16:14:40 +00:00
2006-10-24 04:10:12 +00:00
ASE_AWK_EINVAL, /* invalid parameter */
2006-12-16 16:14:40 +00:00
ASE_AWK_ENOMEM, /* out of memory */
ASE_AWK_ENOSUP, /* not supported */
ASE_AWK_ENOPER, /* operation not allowed */
ASE_AWK_ENODEV, /* no such device */
ASE_AWK_ENOSPC, /* no space left on device */
ASE_AWK_ENOENT, /* no such file, directory, or data */
ASE_AWK_EMFILE, /* too many open files */
ASE_AWK_EMLINK, /* too many links */
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 */
2006-12-15 14:58:37 +00:00
2006-10-24 04:10:12 +00:00
ASE_AWK_ERUNTIME, /* run-time error */
ASE_AWK_ERUNNING, /* there are running instances */
ASE_AWK_ETOOMANYRUNS, /* too many running instances */
ASE_AWK_ERECURSION, /* recursion too deep */
2006-12-15 14:58:37 +00:00
ASE_AWK_ESYSFNS, /* system functions not proper */
2006-10-24 04:10:12 +00:00
ASE_AWK_ESRCINOPEN,
ASE_AWK_ESRCINCLOSE,
ASE_AWK_ESRCINREAD,
ASE_AWK_ESRCOUTOPEN,
ASE_AWK_ESRCOUTCLOSE,
ASE_AWK_ESRCOUTWRITE,
ASE_AWK_ECONINOPEN,
ASE_AWK_ECONINCLOSE,
ASE_AWK_ECONINNEXT,
ASE_AWK_ECONINDATA,
ASE_AWK_ECONOUTOPEN,
ASE_AWK_ECONOUTCLOSE,
ASE_AWK_ECONOUTNEXT,
ASE_AWK_ECONOUTDATA,
ASE_AWK_ELXCHR, /* lexer came accross an wrong character */
ASE_AWK_ELXUNG, /* lexer failed to unget a character */
ASE_AWK_EENDSRC, /* unexpected end of source */
ASE_AWK_EENDCOMMENT, /* unexpected end of a comment */
ASE_AWK_EENDSTR, /* unexpected end of a string */
ASE_AWK_EENDREX, /* unexpected end of a regular expression */
ASE_AWK_ELBRACE, /* left brace expected */
ASE_AWK_ELPAREN, /* left parenthesis expected */
ASE_AWK_ERPAREN, /* right parenthesis expected */
ASE_AWK_ERBRACK, /* right bracket expected */
ASE_AWK_ECOMMA, /* comma expected */
ASE_AWK_ESEMICOLON, /* semicolon expected */
ASE_AWK_ECOLON, /* colon expected */
ASE_AWK_EIN, /* keyword 'in' is expected */
ASE_AWK_ENOTVAR, /* not a variable name after 'in' */
ASE_AWK_EEXPRESSION, /* expression expected */
ASE_AWK_EWHILE, /* keyword 'while' is expected */
ASE_AWK_EASSIGNMENT, /* assignment statement expected */
ASE_AWK_EIDENT, /* identifier expected */
ASE_AWK_EBEGINBLOCK, /* BEGIN requires an action block */
ASE_AWK_EENDBLOCK, /* END requires an action block */
ASE_AWK_EDUPBEGIN, /* duplicate BEGIN */
ASE_AWK_EDUPEND, /* duplicate END */
2006-11-27 04:33:22 +00:00
ASE_AWK_EFNREDEFBFN, /* function redefines a builtin function */
ASE_AWK_EFNREDEFAFN, /* function redefines an existing function */
ASE_AWK_EFNREDEFGLOBAL, /* function redefines a global variable */
ASE_AWK_EPARREDEFAFN, /* parameter redefines the function name */
2006-10-24 04:10:12 +00:00
ASE_AWK_EDUPPARAM, /* duplicate parameter name */
ASE_AWK_EDUPVAR, /* duplicate variable name */
ASE_AWK_EDUPNAME, /* duplicate name - function, variable, etc */
ASE_AWK_EUNDEF, /* undefined identifier */
ASE_AWK_ELVALUE, /* l-value required */
ASE_AWK_ETOOFEWARGS, /* too few arguments */
ASE_AWK_ETOOMANYARGS, /* too many arguments */
ASE_AWK_ETOOMANYGLOBALS, /* too many global variables */
ASE_AWK_ETOOMANYLOCALS, /* too many local variables */
ASE_AWK_ETOOMANYPARAMS, /* too many parameters */
ASE_AWK_EBREAK, /* break outside a loop */
ASE_AWK_ECONTINUE, /* continue outside a loop */
ASE_AWK_ENEXT, /* next illegal in BEGIN or END block */
ASE_AWK_ENEXTFILE, /* nextfile illegal in BEGIN or END block */
ASE_AWK_EGETLINE, /* getline expected */
2006-10-31 10:13:15 +00:00
ASE_AWK_EPRINTFARG, /* printf must have one or more arguments */
2006-04-05 15:56:20 +00:00
/* run time error */
2006-11-16 04:44:16 +00:00
ASE_AWK_EINTERNAL, /* internal error */
2006-10-24 04:10:12 +00:00
ASE_AWK_EDIVBYZERO, /* divide by zero */
ASE_AWK_EOPERAND, /* invalid operand */
ASE_AWK_EPOSIDX, /* wrong position index */
2006-11-28 04:30:57 +00:00
ASE_AWK_ENOSUCHFN, /* no such function */
2006-10-24 04:10:12 +00:00
ASE_AWK_ENOTASSIGNABLE, /* value not assignable */
ASE_AWK_ENOTINDEXABLE, /* not indexable variable */
ASE_AWK_ENOTDELETABLE, /* not deletable variable */
ASE_AWK_ENOTREFERENCEABLE, /* not referenceable value */
ASE_AWK_EIDXVALASSMAP, /* indexed value cannot be assigned a map */
ASE_AWK_EPOSVALASSMAP, /* a positional cannot be assigned a map */
ASE_AWK_EMAPTOSCALAR, /* cannot change a map to a scalar value */
ASE_AWK_ESCALARTOMAP, /* cannot change a scalar value to a map */
ASE_AWK_EMAPNOTALLOWED, /* a map is not allowed */
ASE_AWK_EVALTYPE, /* wrong value type */
ASE_AWK_EPIPE, /* pipe operation error */
ASE_AWK_ENEXTCALL, /* next called from BEGIN or END */
ASE_AWK_ENEXTFILECALL, /* nextfile called from BEGIN or END */
2006-11-29 14:52:36 +00:00
ASE_AWK_EIOIMPL, /* wrong user io handler implementation */
ASE_AWK_EBFNIMPL, /* wrong builtin function implementation */
2006-12-02 16:26:29 +00:00
ASE_AWK_EBFNFAIL, /* builtin function handler failed */
2006-10-24 04:10:12 +00:00
ASE_AWK_ENOSUCHIO, /* no such io name found */
ASE_AWK_EIOHANDLER, /* io handler has returned an error */
2006-11-16 04:44:16 +00:00
ASE_AWK_EFMTARG, /* arguments to format string not sufficient */
ASE_AWK_EFMTCONV, /* recursion detected in format conversion */
2006-11-18 12:15:20 +00:00
ASE_AWK_ECONVFMTCHAR, /* an invalid character found in CONVFMT */
ASE_AWK_EOFMTCHAR, /* an invalid character found in OFMT */
2006-10-22 11:34:53 +00:00
2006-10-22 12:39:30 +00:00
/* regular expression error */
2006-10-24 04:10:12 +00:00
ASE_AWK_EREXRPAREN, /* a right parenthesis is expected */
ASE_AWK_EREXRBRACKET, /* a right bracket is expected */
ASE_AWK_EREXRBRACE, /* a right brace is expected */
ASE_AWK_EREXCOLON, /* a colon is expected */
ASE_AWK_EREXCRANGE, /* invalid character range */
ASE_AWK_EREXCCLASS, /* invalid character class */
ASE_AWK_EREXBRANGE, /* invalid boundary range */
ASE_AWK_EREXEND, /* unexpected end of the pattern */
ASE_AWK_EREXGARBAGE /* garbage after the pattern */
2006-04-02 12:45:04 +00:00
};
2006-11-25 15:51:57 +00:00
/* depth types */
enum ase_awk_depth_t
{
ASE_AWK_DEPTH_BLOCK = (1 << 0),
ASE_AWK_DEPTH_EXPR = (1 << 1)
};
2006-06-19 09:10:57 +00:00
/* extio types */
2006-11-21 15:06:51 +00:00
enum ase_awk_extio_type_t
2006-06-19 09:10:57 +00:00
{
/* extio types available */
2006-10-24 04:10:12 +00:00
ASE_AWK_EXTIO_PIPE,
ASE_AWK_EXTIO_COPROC,
ASE_AWK_EXTIO_FILE,
ASE_AWK_EXTIO_CONSOLE,
2006-06-19 09:10:57 +00:00
/* reserved for internal use only */
2006-10-24 04:10:12 +00:00
ASE_AWK_EXTIO_NUM
2006-06-19 09:10:57 +00:00
};
2006-11-23 03:31:58 +00:00
enum
{
ASE_AWK_EXTIO_PIPE_READ = 0,
ASE_AWK_EXTIO_PIPE_WRITE = 1,
/*
ASE_AWK_EXTIO_COPROC_READ = 0,
ASE_AWK_EXTIO_COPROC_WRITE = 1,
ASE_AWK_EXTIO_COPROC_RDWR = 2,
*/
ASE_AWK_EXTIO_FILE_READ = 0,
ASE_AWK_EXTIO_FILE_WRITE = 1,
ASE_AWK_EXTIO_FILE_APPEND = 2,
ASE_AWK_EXTIO_CONSOLE_READ = 0,
ASE_AWK_EXTIO_CONSOLE_WRITE = 1
};
2006-10-24 04:48:52 +00:00
/* assertion statement */
#ifdef NDEBUG
2006-10-26 09:31:28 +00:00
#define ASE_AWK_ASSERT(awk,expr) ((void)0)
2006-10-30 14:31:37 +00:00
#define ASE_AWK_ASSERTX(awk,expr,desc) ((void)0)
2006-10-24 04:48:52 +00:00
#else
2006-10-26 09:31:28 +00:00
#define ASE_AWK_ASSERT(awk,expr) (void)((expr) || \
2006-10-30 14:31:37 +00:00
(ase_awk_assertfail (awk, ASE_T(#expr), ASE_NULL, ASE_T(__FILE__), __LINE__), 0))
#define ASE_AWK_ASSERTX(awk,expr,desc) (void)((expr) || \
(ase_awk_assertfail (awk, ASE_T(#expr), ASE_T(desc), ASE_T(__FILE__), __LINE__), 0))
2006-10-24 04:48:52 +00:00
#endif
2005-11-05 17:54:00 +00:00
#ifdef __cplusplus
extern "C" {
#endif
2006-12-15 14:58:37 +00:00
ase_awk_t* ase_awk_open (const ase_awk_sysfns_t* sysfns, int* errnum);
2006-10-24 04:10:12 +00:00
int ase_awk_close (ase_awk_t* awk);
int ase_awk_clear (ase_awk_t* awk);
2005-11-05 17:54:00 +00:00
2006-10-24 04:10:12 +00:00
int ase_awk_geterrnum (ase_awk_t* awk);
ase_size_t ase_awk_getsrcline (ase_awk_t* awk);
2006-08-13 16:05:04 +00:00
2006-10-24 04:10:12 +00:00
int ase_awk_getopt (ase_awk_t* awk);
void ase_awk_setopt (ase_awk_t* awk, int opt);
2006-08-04 17:36:40 +00:00
2006-11-25 15:51:57 +00:00
void ase_awk_setmaxparsedepth (ase_awk_t*, int types, ase_size_t depth);
2006-12-04 12:59:01 +00:00
void ase_awk_setmaxrundepth (ase_awk_t*, int types, ase_size_t depth);
2006-10-24 04:10:12 +00:00
int ase_awk_parse (ase_awk_t* awk, ase_awk_srcios_t* srcios);
2006-08-04 17:36:40 +00:00
2006-08-13 05:55:02 +00:00
/*
2006-10-24 04:10:12 +00:00
* ase_awk_run return 0 on success and -1 on failure, generally speaking.
2006-08-13 05:55:02 +00:00
* A runtime context is required for it to start running the program.
* Once the runtime context is created, the program starts to run.
* The context creation failure is reported by the return value -1 of
* this function. however, the runtime error after the context creation
* is reported differently depending on the use of the callback.
2006-10-24 04:10:12 +00:00
* When no callback is specified (i.e. runcbs is ASE_NULL), ase_awk_run
2006-08-13 05:55:02 +00:00
* returns -1 on an error and awk->errnum is set accordingly.
2006-10-24 04:10:12 +00:00
* However, if a callback is specified (i.e. runcbs is not ASE_NULL),
* ase_awk_run returns 0 on both success and failure. Instead, the
2006-08-13 05:55:02 +00:00
* on_end handler of the callback is triggered with the relevant
* error number. The third parameter to on_end denotes this error number.
*/
2006-11-28 15:09:53 +00:00
int ase_awk_run (
ase_awk_t* awk, const ase_char_t* main,
ase_awk_runios_t* runios, ase_awk_runcbs_t* runcbs,
ase_awk_runarg_t* runarg, void* custom_data);
2006-08-04 17:36:40 +00:00
2006-10-24 04:10:12 +00:00
int ase_awk_stop (ase_awk_t* awk, ase_awk_run_t* run);
void ase_awk_stopall (ase_awk_t* awk);
2006-01-09 16:03:56 +00:00
2006-06-20 15:27:50 +00:00
/* functions to access internal stack structure */
2006-10-24 04:10:12 +00:00
ase_size_t ase_awk_getnargs (ase_awk_run_t* run);
ase_awk_val_t* ase_awk_getarg (ase_awk_run_t* run, ase_size_t idx);
ase_awk_val_t* ase_awk_getglobal (ase_awk_run_t* run, ase_size_t idx);
int ase_awk_setglobal (ase_awk_run_t* run, ase_size_t idx, ase_awk_val_t* val);
void ase_awk_setretval (ase_awk_run_t* run, ase_awk_val_t* val);
2006-10-03 14:38:26 +00:00
2006-11-24 13:25:12 +00:00
int ase_awk_setfilename (
ase_awk_run_t* run, const ase_char_t* name, ase_size_t len);
int ase_awk_setofilename (
2006-10-24 04:10:12 +00:00
ase_awk_run_t* run, const ase_char_t* name, ase_size_t len);
2006-10-16 14:39:21 +00:00
2006-11-28 04:30:57 +00:00
ase_awk_t* ase_awk_getrunawk (ase_awk_run_t* awk);
void* ase_awk_getruncustomdata (ase_awk_run_t* awk);
2006-12-16 14:48:31 +00:00
/* functions to manipulate the run-time error */
2006-10-24 04:10:12 +00:00
int ase_awk_getrunerrnum (ase_awk_run_t* run);
2006-12-16 14:48:31 +00:00
const ase_char_t* ase_awk_getrunerrmsg (ase_awk_run_t* run);
2006-10-24 04:10:12 +00:00
void ase_awk_setrunerrnum (ase_awk_run_t* run, int errnum);
2006-12-16 14:48:31 +00:00
void ase_awk_setrunerrmsg (ase_awk_run_t* run, const ase_char_t* msg);
2006-10-10 07:02:38 +00:00
2006-11-28 04:30:57 +00:00
/* functions to manipulate built-in functions */
void* ase_awk_addbfn (
ase_awk_t* awk, const ase_char_t* name, ase_size_t name_len,
int when_valid, ase_size_t min_args, ase_size_t max_args,
const ase_char_t* arg_spec,
int (*handler)(ase_awk_run_t*,const ase_char_t*,ase_size_t));
int ase_awk_delbfn (
ase_awk_t* awk, const ase_char_t* name, ase_size_t name_len);
void ase_awk_clrbfn (ase_awk_t* awk);
2006-10-03 14:38:26 +00:00
/* record and field functions */
2006-10-24 04:10:12 +00:00
int ase_awk_clrrec (ase_awk_run_t* run, ase_bool_t skip_inrec_line);
int ase_awk_setrec (ase_awk_run_t* run, ase_size_t idx, const ase_char_t* str, ase_size_t len);
2006-10-22 11:34:53 +00:00
2006-10-22 12:39:30 +00:00
/* utility functions exported by awk.h */
2006-11-28 04:30:57 +00:00
void* ase_awk_malloc (ase_awk_t* awk, ase_size_t size);
void ase_awk_free (ase_awk_t* awk, void* ptr);
2006-10-24 04:10:12 +00:00
ase_long_t ase_awk_strxtolong (
ase_awk_t* awk, const ase_char_t* str, ase_size_t len,
int base, const ase_char_t** endptr);
ase_real_t ase_awk_strxtoreal (
ase_awk_t* awk, const ase_char_t* str, ase_size_t len,
const ase_char_t** endptr);
2006-10-22 11:34:53 +00:00
2006-10-24 04:10:12 +00:00
ase_size_t ase_awk_longtostr (
ase_long_t value, int radix, const ase_char_t* prefix,
ase_char_t* buf, ase_size_t size);
2006-10-22 11:34:53 +00:00
2006-10-22 12:39:30 +00:00
/* string functions exported by awk.h */
2006-10-24 04:10:12 +00:00
ase_char_t* ase_awk_strdup (
ase_awk_t* awk, const ase_char_t* str);
ase_char_t* ase_awk_strxdup (
ase_awk_t* awk, const ase_char_t* str, ase_size_t len);
ase_char_t* ase_awk_strxdup2 (
ase_awk_t* awk,
const ase_char_t* str1, ase_size_t len1,
const ase_char_t* str2, ase_size_t len2);
ase_size_t ase_awk_strlen (const ase_char_t* str);
ase_size_t ase_awk_strcpy (ase_char_t* buf, const ase_char_t* str);
2006-12-16 14:48:31 +00:00
ase_size_t ase_awk_strxcpy (
ase_char_t* buf, ase_size_t bsz, const ase_char_t* str);
ase_size_t ase_awk_strncpy (
ase_char_t* buf, const ase_char_t* str, ase_size_t len);
2006-10-24 04:10:12 +00:00
int ase_awk_strcmp (const ase_char_t* s1, const ase_char_t* s2);
int ase_awk_strxncmp (
const ase_char_t* s1, ase_size_t len1,
const ase_char_t* s2, ase_size_t len2);
int ase_awk_strxncasecmp (
ase_awk_t* awk,
const ase_char_t* s1, ase_size_t len1,
const ase_char_t* s2, ase_size_t len2);
ase_char_t* ase_awk_strxnstr (
const ase_char_t* str, ase_size_t strsz,
const ase_char_t* sub, ase_size_t subsz);
2006-09-01 06:23:58 +00:00
2006-10-26 09:31:28 +00:00
/* abort function for assertion. use ASE_AWK_ASSERT instead */
2006-10-24 04:48:52 +00:00
int ase_awk_assertfail (ase_awk_t* awk,
2006-10-30 14:31:37 +00:00
const ase_char_t* expr, const ase_char_t* desc,
const ase_char_t* file, int line);
2006-10-24 04:48:52 +00:00
2006-08-10 16:02:15 +00:00
/* utility functions to convert an error number ot a string */
2006-10-24 04:10:12 +00:00
const ase_char_t* ase_awk_geterrstr (int errnum);
2006-08-10 16:02:15 +00:00
2005-11-05 17:54:00 +00:00
#ifdef __cplusplus
}
#endif
#endif