334 lines
6.2 KiB
C
334 lines
6.2 KiB
C
/*
|
|
* $Id: tree.h,v 1.50 2006-06-26 15:09:28 bacon Exp $
|
|
*/
|
|
|
|
#ifndef _XP_AWK_TREE_H_
|
|
#define _XP_AWK_TREE_H_
|
|
|
|
#ifndef _XP_AWK_AWK_H_
|
|
#error Never include this file directly. Include <xp/awk/awk.h> instead
|
|
#endif
|
|
|
|
enum
|
|
{
|
|
XP_AWK_NDE_NULL,
|
|
|
|
/* statement */
|
|
XP_AWK_NDE_BLK,
|
|
XP_AWK_NDE_IF,
|
|
XP_AWK_NDE_WHILE,
|
|
XP_AWK_NDE_DOWHILE,
|
|
XP_AWK_NDE_FOR,
|
|
XP_AWK_NDE_FOREACH,
|
|
XP_AWK_NDE_BREAK,
|
|
XP_AWK_NDE_CONTINUE,
|
|
XP_AWK_NDE_RETURN,
|
|
XP_AWK_NDE_EXIT,
|
|
XP_AWK_NDE_NEXT,
|
|
XP_AWK_NDE_NEXTFILE,
|
|
|
|
/* expression */
|
|
|
|
/* if you change the following values including their order,
|
|
* you should change __eval_func of __eval_expression
|
|
* in run.c accordingly */
|
|
XP_AWK_NDE_GRP,
|
|
XP_AWK_NDE_ASS,
|
|
XP_AWK_NDE_EXP_BIN,
|
|
XP_AWK_NDE_EXP_UNR,
|
|
XP_AWK_NDE_EXP_INCPRE,
|
|
XP_AWK_NDE_EXP_INCPST,
|
|
XP_AWK_NDE_CND,
|
|
XP_AWK_NDE_BFN,
|
|
XP_AWK_NDE_UFN,
|
|
XP_AWK_NDE_INT,
|
|
XP_AWK_NDE_REAL,
|
|
XP_AWK_NDE_STR,
|
|
XP_AWK_NDE_REX,
|
|
XP_AWK_NDE_NAMED,
|
|
XP_AWK_NDE_GLOBAL,
|
|
XP_AWK_NDE_LOCAL,
|
|
XP_AWK_NDE_ARG,
|
|
XP_AWK_NDE_NAMEDIDX,
|
|
XP_AWK_NDE_GLOBALIDX,
|
|
XP_AWK_NDE_LOCALIDX,
|
|
XP_AWK_NDE_ARGIDX,
|
|
XP_AWK_NDE_POS,
|
|
XP_AWK_NDE_GETLINE,
|
|
XP_AWK_NDE_PRINT
|
|
};
|
|
|
|
enum
|
|
{
|
|
XP_AWK_GETLINE_PIPE,
|
|
XP_AWK_GETLINE_COPROC,
|
|
XP_AWK_GETLINE_FILE
|
|
};
|
|
|
|
enum
|
|
{
|
|
/* the order of these values match __print_extio_map in run.c */
|
|
|
|
XP_AWK_PRINT_PIPE,
|
|
XP_AWK_PRINT_COPROC,
|
|
XP_AWK_PRINT_FILE,
|
|
XP_AWK_PRINT_FILE_APPEND,
|
|
XP_AWK_PRINT_CONSOLE
|
|
};
|
|
|
|
typedef struct xp_awk_afn_t xp_awk_afn_t;
|
|
|
|
typedef struct xp_awk_nde_t xp_awk_nde_t;
|
|
|
|
typedef struct xp_awk_nde_blk_t xp_awk_nde_blk_t;
|
|
typedef struct xp_awk_nde_grp_t xp_awk_nde_grp_t;
|
|
typedef struct xp_awk_nde_ass_t xp_awk_nde_ass_t;
|
|
typedef struct xp_awk_nde_exp_t xp_awk_nde_exp_t;
|
|
typedef struct xp_awk_nde_cnd_t xp_awk_nde_cnd_t;
|
|
typedef struct xp_awk_nde_pos_t xp_awk_nde_pos_t;
|
|
typedef struct xp_awk_nde_int_t xp_awk_nde_int_t;
|
|
typedef struct xp_awk_nde_real_t xp_awk_nde_real_t;
|
|
typedef struct xp_awk_nde_str_t xp_awk_nde_str_t;
|
|
typedef struct xp_awk_nde_rex_t xp_awk_nde_rex_t;
|
|
typedef struct xp_awk_nde_var_t xp_awk_nde_var_t;
|
|
typedef struct xp_awk_nde_call_t xp_awk_nde_call_t;
|
|
typedef struct xp_awk_nde_getline_t xp_awk_nde_getline_t;
|
|
typedef struct xp_awk_nde_print_t xp_awk_nde_print_t;
|
|
|
|
typedef struct xp_awk_nde_if_t xp_awk_nde_if_t;
|
|
typedef struct xp_awk_nde_while_t xp_awk_nde_while_t;
|
|
typedef struct xp_awk_nde_for_t xp_awk_nde_for_t;
|
|
typedef struct xp_awk_nde_foreach_t xp_awk_nde_foreach_t;
|
|
typedef struct xp_awk_nde_break_t xp_awk_nde_break_t;
|
|
typedef struct xp_awk_nde_continue_t xp_awk_nde_continue_t;
|
|
typedef struct xp_awk_nde_return_t xp_awk_nde_return_t;
|
|
typedef struct xp_awk_nde_exit_t xp_awk_nde_exit_t;
|
|
typedef struct xp_awk_nde_next_t xp_awk_nde_next_t;
|
|
typedef struct xp_awk_nde_nextfile_t xp_awk_nde_nextfile_t;
|
|
|
|
struct xp_awk_afn_t
|
|
{
|
|
xp_char_t* name;
|
|
xp_size_t nargs;
|
|
xp_awk_nde_t* body;
|
|
};
|
|
|
|
#define XP_AWK_NDE_HDR \
|
|
int type; \
|
|
xp_awk_nde_t* next
|
|
|
|
struct xp_awk_nde_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
};
|
|
|
|
/* XP_AWK_NDE_BLK - block statement including top-level blocks */
|
|
struct xp_awk_nde_blk_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
xp_size_t nlocals;
|
|
xp_awk_nde_t* body;
|
|
};
|
|
|
|
/* XP_AWK_NDE_GRP - expression group */
|
|
struct xp_awk_nde_grp_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
xp_awk_nde_t* body;
|
|
};
|
|
|
|
/* XP_AWK_NDE_ASS - assignment */
|
|
struct xp_awk_nde_ass_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
int opcode;
|
|
xp_awk_nde_t* left;
|
|
xp_awk_nde_t* right;
|
|
};
|
|
|
|
/* XP_AWK_NDE_EXP_BIN, XP_AWK_NDE_EXP_UNR,
|
|
* XP_AWK_NDE_EXP_INCPRE, XP_AW_NDE_EXP_INCPST */
|
|
struct xp_awk_nde_exp_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
int opcode;
|
|
xp_awk_nde_t* left;
|
|
xp_awk_nde_t* right; /* XP_NULL for UNR, INCPRE, INCPST */
|
|
};
|
|
|
|
/* XP_AWK_NDE_CND */
|
|
struct xp_awk_nde_cnd_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
xp_awk_nde_t* test;
|
|
xp_awk_nde_t* left;
|
|
xp_awk_nde_t* right;
|
|
};
|
|
|
|
/* XP_AWK_NDE_POS - positional - $1, $2, $x, etc */
|
|
struct xp_awk_nde_pos_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
xp_awk_nde_t* val;
|
|
};
|
|
|
|
/* XP_AWK_NDE_INT */
|
|
struct xp_awk_nde_int_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
xp_long_t val;
|
|
};
|
|
|
|
/* XP_AWK_NDE_REAL */
|
|
struct xp_awk_nde_real_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
xp_real_t val;
|
|
};
|
|
|
|
/* XP_AWK_NDE_STR */
|
|
struct xp_awk_nde_str_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
xp_char_t* buf;
|
|
xp_size_t len;
|
|
};
|
|
|
|
/* XP_AWK_NDE_REX */
|
|
struct xp_awk_nde_rex_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
/* TODO: */
|
|
xp_char_t* buf;
|
|
xp_size_t len;
|
|
};
|
|
|
|
struct xp_awk_nde_var_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
struct /* could it be union? */
|
|
{
|
|
xp_char_t* name;
|
|
xp_size_t idxa;
|
|
} id;
|
|
xp_awk_nde_t* idx; /* XP_NULL for XXXIDX */
|
|
};
|
|
|
|
/* XP_AWK_NDE_BFN, XP_AWK_NDE_UFN */
|
|
struct xp_awk_nde_call_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
union
|
|
{
|
|
xp_char_t* name;
|
|
xp_awk_bfn_t* bfn;
|
|
} what;
|
|
xp_awk_nde_t* args;
|
|
xp_size_t nargs;
|
|
};
|
|
|
|
/* XP_AWK_NDE_GETLINE */
|
|
struct xp_awk_nde_getline_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
xp_awk_nde_t* var;
|
|
int in_type; /* XP_AWK_GETLINE_XXX */
|
|
xp_awk_nde_t* in;
|
|
};
|
|
|
|
/* XP_AWK_NDE_PRINT */
|
|
struct xp_awk_nde_print_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
xp_awk_nde_t* args;
|
|
int out_type; /* XP_AWK_PRINT_XXX */
|
|
xp_awk_nde_t* out;
|
|
};
|
|
|
|
/* XP_AWK_NDE_IF */
|
|
struct xp_awk_nde_if_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
xp_awk_nde_t* test;
|
|
xp_awk_nde_t* then_part;
|
|
xp_awk_nde_t* else_part; /* optional */
|
|
};
|
|
|
|
/* XP_AWK_NDE_WHILE, XP_AWK_NDE_DOWHILE */
|
|
struct xp_awk_nde_while_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
xp_awk_nde_t* test;
|
|
xp_awk_nde_t* body;
|
|
};
|
|
|
|
/* XP_AWK_NDE_FOR */
|
|
struct xp_awk_nde_for_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
xp_awk_nde_t* init; /* optional */
|
|
xp_awk_nde_t* test; /* optional */
|
|
xp_awk_nde_t* incr; /* optional */
|
|
xp_awk_nde_t* body;
|
|
};
|
|
|
|
/* XP_AWK_NDE_FOREACH */
|
|
struct xp_awk_nde_foreach_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
xp_awk_nde_t* test;
|
|
xp_awk_nde_t* body;
|
|
};
|
|
|
|
/* XP_AWK_NDE_BREAK */
|
|
struct xp_awk_nde_break_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
};
|
|
|
|
/* XP_AWK_NDE_CONTINUE */
|
|
struct xp_awk_nde_continue_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
};
|
|
|
|
/* XP_AWK_NDE_RETURN */
|
|
struct xp_awk_nde_return_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
xp_awk_nde_t* val; /* optional (no return code if XP_NULL) */
|
|
};
|
|
|
|
/* XP_AWK_NDE_EXIT */
|
|
struct xp_awk_nde_exit_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
xp_awk_nde_t* val; /* optional (no exit code if XP_NULL) */
|
|
};
|
|
|
|
/* XP_AWK_NDE_NEXT */
|
|
struct xp_awk_nde_next_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
};
|
|
|
|
/* XP_AWK_NDE_NEXTFILE */
|
|
struct xp_awk_nde_nextfile_t
|
|
{
|
|
XP_AWK_NDE_HDR;
|
|
};
|
|
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
|
|
void xp_awk_prnpt (xp_awk_nde_t* tree);
|
|
void xp_awk_prnptnpt (xp_awk_nde_t* tree);
|
|
void xp_awk_clrpt (xp_awk_nde_t* tree);
|
|
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
|
|
#endif
|