178 lines
2.9 KiB
C
178 lines
2.9 KiB
C
/*
|
|
* $Id: awk_i.h,v 1.40 2006-08-04 17:36:40 bacon Exp $
|
|
*/
|
|
|
|
#ifndef _XP_AWK_AWKI_H_
|
|
#define _XP_AWK_AWKI_H_
|
|
|
|
typedef struct xp_awk_chain_t xp_awk_chain_t;
|
|
typedef struct xp_awk_run_t xp_awk_run_t;
|
|
typedef struct xp_awk_tree_t xp_awk_tree_t;
|
|
|
|
#include <xp/awk/awk.h>
|
|
|
|
#ifdef XP_AWK_STAND_ALONE
|
|
#include <xp/awk/sa.h>
|
|
#else
|
|
#include <xp/bas/str.h>
|
|
#endif
|
|
|
|
#include <xp/awk/rex.h>
|
|
#include <xp/awk/map.h>
|
|
#include <xp/awk/val.h>
|
|
#include <xp/awk/func.h>
|
|
#include <xp/awk/tree.h>
|
|
#include <xp/awk/tab.h>
|
|
#include <xp/awk/run.h>
|
|
#include <xp/awk/extio.h>
|
|
|
|
#ifdef _WIN32
|
|
#pragma warning (disable: 4996)
|
|
#endif
|
|
|
|
#if defined(_WIN32) && defined(XP_AWK_STAND_ALONE) && defined(_DEBUG)
|
|
#define _CRTDBG_MAP_ALLOC
|
|
#include <crtdbg.h>
|
|
#endif
|
|
|
|
struct xp_awk_tree_t
|
|
{
|
|
xp_size_t nglobals; /* total number of globals */
|
|
xp_size_t nbglobals; /* number of builtin globals */
|
|
xp_awk_map_t afns; /* awk function map */
|
|
xp_awk_nde_t* begin;
|
|
xp_awk_nde_t* end;
|
|
xp_awk_chain_t* chain;
|
|
xp_awk_chain_t* chain_tail;
|
|
};
|
|
|
|
struct xp_awk_t
|
|
{
|
|
/* options */
|
|
int option;
|
|
|
|
/* io functions */
|
|
xp_awk_io_t srcio;
|
|
void* srcio_arg;
|
|
|
|
/* parse tree */
|
|
xp_awk_tree_t tree;
|
|
int state;
|
|
|
|
/* temporary information that the parser needs */
|
|
struct
|
|
{
|
|
struct
|
|
{
|
|
int block;
|
|
int loop;
|
|
} id;
|
|
|
|
struct
|
|
{
|
|
xp_size_t loop;
|
|
} depth;
|
|
|
|
xp_awk_tab_t globals;
|
|
xp_awk_tab_t locals;
|
|
xp_awk_tab_t params;
|
|
xp_size_t nlocals_max;
|
|
} parse;
|
|
|
|
/* source buffer management */
|
|
struct
|
|
{
|
|
xp_cint_t curc;
|
|
xp_cint_t ungotc[5];
|
|
xp_size_t ungotc_count;
|
|
|
|
xp_char_t buf[512];
|
|
xp_size_t buf_pos;
|
|
xp_size_t buf_len;
|
|
|
|
xp_size_t line;
|
|
xp_size_t column;
|
|
} lex;
|
|
|
|
xp_awk_io_t extio[XP_AWK_EXTIO_NUM];
|
|
|
|
/* token */
|
|
struct
|
|
{
|
|
int prev;
|
|
int type;
|
|
xp_str_t name;
|
|
xp_size_t line;
|
|
xp_size_t column;
|
|
} token;
|
|
|
|
/* builtin functions */
|
|
struct
|
|
{
|
|
xp_awk_bfn_t* sys;
|
|
xp_awk_bfn_t* user;
|
|
} bfn;
|
|
|
|
/* housekeeping */
|
|
short errnum;
|
|
short suberrnum;
|
|
};
|
|
|
|
struct xp_awk_chain_t
|
|
{
|
|
xp_awk_nde_t* pattern;
|
|
int pattern_range_state; /* used when pattern is a range */
|
|
xp_awk_nde_t* action;
|
|
xp_awk_chain_t* next;
|
|
};
|
|
|
|
struct xp_awk_run_t
|
|
{
|
|
xp_awk_map_t named;
|
|
|
|
void** stack;
|
|
xp_size_t stack_top;
|
|
xp_size_t stack_base;
|
|
xp_size_t stack_limit;
|
|
int exit_level;
|
|
|
|
xp_awk_val_int_t* icache[100]; /* TODO: choose the optimal size */
|
|
xp_awk_val_real_t* rcache[100]; /* TODO: choose the optimal size */
|
|
xp_size_t icache_count;
|
|
xp_size_t rcache_count;
|
|
|
|
xp_awk_nde_blk_t* active_block;
|
|
|
|
struct
|
|
{
|
|
xp_char_t buf[1024];
|
|
xp_size_t buf_pos;
|
|
xp_size_t buf_len;
|
|
xp_bool_t eof;
|
|
|
|
xp_str_t line;
|
|
xp_awk_val_t* d0; /* $0 */
|
|
|
|
xp_size_t maxflds;
|
|
xp_size_t nflds; /* NF */
|
|
struct
|
|
{
|
|
xp_char_t* ptr;
|
|
xp_size_t len;
|
|
xp_awk_val_t* val; /* $1 .. $NF */
|
|
}* flds;
|
|
} inrec;
|
|
|
|
/* extio chain */
|
|
xp_awk_extio_t* extio;
|
|
|
|
short errnum;
|
|
short suberrnum;
|
|
|
|
/*xp_awk_tree_t* tree;
|
|
xp_size_t nglobals;*/
|
|
xp_awk_t* awk;
|
|
};
|
|
|
|
#endif
|