qse/ase/awk/awk.h

503 lines
17 KiB
C
Raw Normal View History

2005-11-05 17:54:00 +00:00
/*
2007-03-23 07:45:22 +00:00
* $Id: awk.h,v 1.213 2007-03-23 07:45:22 bacon Exp $
2007-02-03 10:47:41 +00:00
*
* {License}
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
2007-03-06 14:16:53 +00:00
#include <ase/cmn/types.h>
#include <ase/cmn/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;
2007-02-11 14:08:08 +00:00
typedef struct ase_awk_map_t ase_awk_map_t;
2006-10-24 04:10:12 +00:00
typedef struct ase_awk_extio_t ase_awk_extio_t;
2006-08-04 17:36:40 +00:00
2007-02-01 08:38:24 +00:00
typedef struct ase_awk_prmfns_t ase_awk_prmfns_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
2007-02-24 14:32:44 +00:00
typedef ase_real_t (*ase_awk_pow_t) (void* custom, ase_real_t x, ase_real_t y);
2006-12-13 14:13:07 +00:00
typedef int (*ase_awk_sprintf_t) (
2007-02-24 14:32:44 +00:00
void* custom, ase_char_t* buf, ase_size_t size,
const ase_char_t* fmt, ...);
typedef void (*ase_awk_dprintf_t) (void* custom, const ase_char_t* fmt, ...);
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
};
2007-02-01 08:38:24 +00:00
struct ase_awk_prmfns_t
2006-08-31 04:21:04 +00:00
{
2007-02-23 08:17:51 +00:00
ase_mmgr_t mmgr;
ase_ccls_t ccls;
struct
{
/* utilities */
ase_awk_pow_t pow; /* required */
ase_awk_sprintf_t sprintf; /* required */
ase_awk_dprintf_t dprintf; /* required in the debug mode */
2007-02-24 14:32:44 +00:00
/* user-defined data passed to the functions above */
2007-02-23 08:17:51 +00:00
void* custom_data; /* optional */
} misc;
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) (
2007-02-11 14:08:08 +00:00
ase_awk_run_t* run, void* custom_data);
2007-03-02 14:42:04 +00:00
void (*on_statement) (
ase_awk_run_t* run, ase_size_t line, void* custom_data);
2007-02-11 14:08:08 +00:00
void (*on_return) (
ase_awk_run_t* run, ase_awk_val_t* ret, void* custom_data);
2006-11-28 15:09:53 +00:00
void (*on_end) (
2007-02-11 14:08:08 +00:00
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
{
2007-03-23 07:45:22 +00:00
ase_char_t* ptr;
2006-10-24 04:10:12 +00:00
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
{
2007-02-18 11:12:18 +00:00
/* allow undeclared variables and implicit concatenation */
2006-10-24 04:10:12 +00:00
ASE_AWK_IMPLICIT = (1 << 0),
2006-07-30 15:53:42 +00:00
2007-02-18 11:12:18 +00:00
/* allow explicit variable declaration and the concatenation
* operator, a period. */
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 */
2007-01-03 09:51:53 +00:00
ASE_AWK_UNIQUEFN = (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
/* 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". */
2007-01-05 13:39:38 +00:00
ASE_AWK_STRCONCAT = (1 << 6),
2006-07-30 15:53:42 +00:00
/* support getline and print */
2007-01-05 13:39:38 +00:00
ASE_AWK_EXTIO = (1 << 7),
2006-08-03 09:54:16 +00:00
2006-12-15 14:58:37 +00:00
/* support co-process */
2007-01-05 13:39:38 +00:00
ASE_AWK_COPROC = (1 << 8),
2006-12-15 14:58:37 +00:00
2006-08-03 09:54:16 +00:00
/* support blockless patterns */
2007-01-05 13:39:38 +00:00
ASE_AWK_BLOCKLESS = (1 << 9),
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 */
2007-01-25 14:14:56 +00:00
ASE_AWK_STRBASEONE = (1 << 10),
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.
*/
2007-01-05 13:39:38 +00:00
ASE_AWK_STRIPSPACES = (1 << 11),
2006-10-15 15:46:14 +00:00
2006-11-23 03:31:58 +00:00
/* enable the nextoutfile keyword */
2007-01-05 13:39:38 +00:00
ASE_AWK_NEXTOFILE = (1 << 12),
2007-01-03 04:16:15 +00:00
/* cr + lf by default */
2007-01-05 13:39:38 +00:00
ASE_AWK_CRLF = (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 */
2007-03-02 11:47:52 +00:00
ASE_AWK_ENODEV, /* function '%.*s' not found */
2006-12-16 16:14:40 +00:00
ASE_AWK_ENOSPC, /* no space left on device */
ASE_AWK_EMFILE, /* too many open files */
ASE_AWK_EMLINK, /* too many links */
ASE_AWK_EAGAIN, /* resource temporarily unavailable */
2007-03-10 11:59:04 +00:00
ASE_AWK_ENOENT, /* file or data not existing */
2006-12-16 16:14:40 +00:00
ASE_AWK_EEXIST, /* file or data exists */
ASE_AWK_EFTBIG, /* file or data too big */
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
2007-03-19 15:25:51 +00:00
ASE_AWK_EOPEN, /* cannot open */
ASE_AWK_EREAD, /* cannot read */
ASE_AWK_EWRITE, /* cannot write */
ASE_AWK_ECLOSE, /* cannot close */
2007-01-10 14:33:51 +00:00
ASE_AWK_EINTERN, /* internal error */
2006-10-24 04:10:12 +00:00
ASE_AWK_ERUNTIME, /* run-time error */
2007-03-03 13:22:01 +00:00
ASE_AWK_EBLKNST, /* blocke nested too deeply */
ASE_AWK_EEXPRNST, /* expression nested too deeply */
2006-10-24 04:10:12 +00:00
2006-12-23 05:44:17 +00:00
ASE_AWK_ESINOP,
ASE_AWK_ESINCL,
ASE_AWK_ESINRD,
2006-10-24 04:10:12 +00:00
2006-12-23 05:44:17 +00:00
ASE_AWK_ESOUTOP,
ASE_AWK_ESOUTCL,
ASE_AWK_ESOUTWR,
2006-10-24 04:10:12 +00:00
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 */
2007-03-10 11:59:04 +00:00
ASE_AWK_EENDCMT, /* a comment not closed properly */
ASE_AWK_EENDSTR, /* a string not closed with a quote */
2006-10-24 04:10:12 +00:00
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 */
2006-12-25 12:01:01 +00:00
ASE_AWK_ESCOLON, /* semicolon expected */
2006-10-24 04:10:12 +00:00
ASE_AWK_ECOLON, /* colon expected */
2007-03-05 14:58:36 +00:00
ASE_AWK_ESTMEND, /* statement not ending with a semicolon */
2006-10-24 04:10:12 +00:00
ASE_AWK_EIN, /* keyword 'in' is expected */
ASE_AWK_ENOTVAR, /* not a variable name after 'in' */
2006-12-25 12:01:01 +00:00
ASE_AWK_EEXPRES, /* expression expected */
2006-10-24 04:10:12 +00:00
ASE_AWK_EWHILE, /* keyword 'while' is expected */
2006-12-25 12:01:01 +00:00
ASE_AWK_EASSIGN, /* assignment statement expected */
2006-10-24 04:10:12 +00:00
ASE_AWK_EIDENT, /* identifier expected */
2007-03-05 14:58:36 +00:00
ASE_AWK_EFNNAME, /* not a valid function name */
2006-12-25 12:01:01 +00:00
ASE_AWK_EBLKBEG, /* BEGIN requires an action block */
ASE_AWK_EBLKEND, /* END requires an action block */
ASE_AWK_EDUPBEG, /* duplicate BEGIN */
2006-10-24 04:10:12 +00:00
ASE_AWK_EDUPEND, /* duplicate END */
2006-12-25 12:01:01 +00:00
ASE_AWK_EBFNRED, /* builtin function redefined */
ASE_AWK_EAFNRED, /* function redefined */
ASE_AWK_EGBLRED, /* global variable redefined */
2006-12-25 13:45:43 +00:00
ASE_AWK_EPARRED, /* parameter redefined */
2006-12-25 12:01:01 +00:00
ASE_AWK_EDUPPAR, /* duplicate parameter name */
2006-12-25 13:45:43 +00:00
ASE_AWK_EDUPGBL, /* duplicate global variable name */
ASE_AWK_EDUPLCL, /* duplicate local variable name */
2007-03-10 11:59:04 +00:00
ASE_AWK_EBADPAR, /* not a valid parameter name */
ASE_AWK_EBADVAR, /* not a valid variable name */
2006-10-24 04:10:12 +00:00
ASE_AWK_EUNDEF, /* undefined identifier */
ASE_AWK_ELVALUE, /* l-value required */
2006-12-25 12:01:01 +00:00
ASE_AWK_EGBLTM, /* too many global variables */
ASE_AWK_ELCLTM, /* too many local variables */
ASE_AWK_EPARTM, /* too many parameters */
2007-03-10 11:59:04 +00:00
ASE_AWK_EDELETE, /* delete not followed by a variable */
2006-10-24 04:10:12 +00:00
ASE_AWK_EBREAK, /* break outside a loop */
ASE_AWK_ECONTINUE, /* continue outside a loop */
2007-03-10 11:59:04 +00:00
ASE_AWK_ENEXTBEG, /* next illegal in BEGIN block */
ASE_AWK_ENEXTEND, /* next illegal in END block */
ASE_AWK_ENEXTFBEG, /* nextfile illegal in BEGIN block */
ASE_AWK_ENEXTFEND, /* nextfile illegal in END block */
ASE_AWK_EPRINTFARG, /* printf not followed by any arguments */
ASE_AWK_EPREPST, /* both prefix and postfix increment/decrement
operator present */
ASE_AWK_EGLNCPS, /* coprocess not supported by getline */
2006-04-05 15:56:20 +00:00
/* run time error */
2007-01-01 15:10:37 +00:00
ASE_AWK_EDIVBY0, /* divide by zero */
2006-10-24 04:10:12 +00:00
ASE_AWK_EOPERAND, /* invalid operand */
ASE_AWK_EPOSIDX, /* wrong position index */
2006-12-25 12:01:01 +00:00
ASE_AWK_EARGTF, /* too few arguments */
ASE_AWK_EARGTM, /* too many arguments */
2007-01-02 12:25:18 +00:00
ASE_AWK_EFNNONE, /* no such function */
2006-12-30 08:54:43 +00:00
ASE_AWK_ENOTIDX, /* variable not indexable */
ASE_AWK_ENOTDEL, /* variable not deletable */
ASE_AWK_ENOTMAP, /* value not a map */
2007-03-10 15:22:54 +00:00
ASE_AWK_ENOTMAPIN, /* right-hand side of 'in' not a map */
ASE_AWK_ENOTMAPNILIN, /* right-hand side of 'in' not a map nor nil */
2006-12-30 08:54:43 +00:00
ASE_AWK_ENOTREF, /* value not referenceable */
ASE_AWK_ENOTASS, /* value not assignable */
2006-10-24 04:10:12 +00:00
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 */
2007-03-10 15:02:31 +00:00
ASE_AWK_ERDELETE, /* delete called with a wrong target */
ASE_AWK_ERNEXTBEG, /* next called from BEGIN */
ASE_AWK_ERNEXTEND, /* next called from END */
ASE_AWK_ERNEXTFBEG, /* nextfile called from BEGIN */
ASE_AWK_ERNEXTFEND, /* nextfile called from END */
2007-01-02 12:25:18 +00:00
ASE_AWK_EBFNUSER, /* wrong builtin function implementation */
ASE_AWK_EBFNIMPL, /* builtin function handler failed */
ASE_AWK_EIOUSER, /* wrong user io handler implementation */
ASE_AWK_EIONONE, /* no such io name found */
ASE_AWK_EIOIMPL, /* i/o callback returned an error */
2007-03-10 15:02:31 +00:00
ASE_AWK_EIONMEM, /* i/o name empty */
ASE_AWK_EIONMNL, /* i/o name contains '\0' */
2006-11-16 04:44:16 +00:00
ASE_AWK_EFMTARG, /* arguments to format string not sufficient */
2007-01-02 12:25:18 +00:00
ASE_AWK_EFMTCNV, /* recursion detected in format conversion */
2007-03-10 15:22:54 +00:00
ASE_AWK_ECONVFMTCHR, /* an invalid character found in CONVFMT */
ASE_AWK_EOFMTCHR, /* 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 */
2007-03-03 13:22:01 +00:00
ASE_AWK_EREXRECUR, /* recursion too deep */
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 */
2007-02-11 04:44:39 +00:00
ASE_AWK_EREXUNBALPAR, /* unbalanced parenthesis */
2006-10-24 04:10:12 +00:00
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 */
2007-03-04 14:55:55 +00:00
ASE_AWK_EREXGARBAGE, /* garbage after the pattern */
/* the number of error numbers, internal use only */
ASE_AWK_NUMERRNUM
2006-04-02 12:45:04 +00:00
};
2006-11-25 15:51:57 +00:00
/* depth types */
enum ase_awk_depth_t
{
2007-01-06 15:45:50 +00:00
ASE_AWK_DEPTH_BLOCK_PARSE = (1 << 0),
ASE_AWK_DEPTH_BLOCK_RUN = (1 << 1),
ASE_AWK_DEPTH_EXPR_PARSE = (1 << 2),
ASE_AWK_DEPTH_EXPR_RUN = (1 << 3),
ASE_AWK_DEPTH_REX_BUILD = (1 << 4),
ASE_AWK_DEPTH_REX_MATCH = (1 << 5)
2006-11-25 15:51:57 +00:00
};
2007-01-06 15:45:50 +00:00
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
};
2005-11-05 17:54:00 +00:00
#ifdef __cplusplus
extern "C" {
#endif
2007-03-09 14:19:55 +00:00
ase_awk_t* ase_awk_open (const ase_awk_prmfns_t* prmfns, void* custom_data);
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
2007-01-25 14:14:56 +00:00
void* ase_awk_getcustomdata (ase_awk_t* awk);
2007-03-04 14:55:55 +00:00
const ase_char_t* ase_awk_geterrstr (ase_awk_t* awk, int num);
int ase_awk_seterrstr (ase_awk_t* awk, int num, const ase_char_t* str);
2006-10-24 04:10:12 +00:00
int ase_awk_geterrnum (ase_awk_t* awk);
2006-12-19 14:20:30 +00:00
ase_size_t ase_awk_geterrlin (ase_awk_t* awk);
const ase_char_t* ase_awk_geterrmsg (ase_awk_t* awk);
2007-03-10 15:29:54 +00:00
void ase_awk_seterrnum (ase_awk_t* awk, int errnum);
2006-12-23 05:44:17 +00:00
void ase_awk_geterror (
ase_awk_t* awk, int* errnum,
ase_size_t* errlin, const ase_char_t** errmsg);
2006-12-19 14:20:30 +00:00
void ase_awk_seterror (
2007-03-02 11:14:35 +00:00
ase_awk_t* awk, int errnum, ase_size_t errlin,
const ase_cstr_t* errarg, ase_size_t argcnt);
2007-01-07 07:30:40 +00:00
int ase_awk_getoption (ase_awk_t* awk);
void ase_awk_setoption (ase_awk_t* awk, int opt);
2006-08-04 17:36:40 +00:00
2007-01-07 07:30:40 +00:00
ase_size_t ase_awk_getmaxdepth (ase_awk_t* awk, int type);
2007-01-06 15:45:50 +00:00
void ase_awk_setmaxdepth (ase_awk_t* awk, 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
2007-03-02 11:14:35 +00:00
int ase_awk_stop (ase_awk_run_t* run);
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);
2007-02-11 14:08:08 +00:00
ase_awk_map_t* ase_awk_getrunnamedvarmap (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-19 14:20:30 +00:00
ase_size_t ase_awk_getrunerrlin (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-24 17:21:24 +00:00
void ase_awk_getrunerror (
ase_awk_run_t* run, int* errnum,
ase_size_t* errlin, const ase_char_t** errmsg);
2007-03-02 11:14:35 +00:00
2006-12-17 14:56:07 +00:00
void ase_awk_setrunerror (
2007-03-02 11:14:35 +00:00
ase_awk_run_t* run, int errnum, ase_size_t errlin,
const ase_cstr_t* errarg, ase_size_t argcnt);
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
2005-11-05 17:54:00 +00:00
#ifdef __cplusplus
}
#endif
#endif