qse/ase/awk/tree.h

239 lines
4.3 KiB
C

/*
* $Id: tree.h,v 1.29 2006-04-02 12:41:14 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,
XP_AWK_NDE_BLK,
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_INT,
XP_AWK_NDE_REAL,
XP_AWK_NDE_STR,
XP_AWK_NDE_NAMED,
XP_AWK_NDE_NAMEDIDX,
XP_AWK_NDE_GLOBAL,
XP_AWK_NDE_GLOBALIDX,
XP_AWK_NDE_LOCAL,
XP_AWK_NDE_LOCALIDX,
XP_AWK_NDE_ARG,
XP_AWK_NDE_ARGIDX,
XP_AWK_NDE_POS,
XP_AWK_NDE_CALL,
XP_AWK_NDE_IF,
XP_AWK_NDE_WHILE,
XP_AWK_NDE_DOWHILE,
XP_AWK_NDE_FOR,
XP_AWK_NDE_BREAK,
XP_AWK_NDE_CONTINUE,
XP_AWK_NDE_RETURN,
XP_AWK_NDE_EXIT,
XP_AWK_NDE_NEXT,
XP_AWK_NDE_NEXTFILE
};
typedef struct xp_awk_func_t xp_awk_func_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_ass_t xp_awk_nde_ass_t;
typedef struct xp_awk_nde_exp_t xp_awk_nde_exp_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_var_t xp_awk_nde_var_t;
typedef struct xp_awk_nde_idx_t xp_awk_nde_idx_t;
typedef struct xp_awk_nde_call_t xp_awk_nde_call_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_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;
struct xp_awk_func_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_ASS - assignment */
struct xp_awk_nde_ass_t
{
XP_AWK_NDE_HDR;
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_AWNDE_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_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;
};
struct xp_awk_nde_var_t
{
XP_AWK_NDE_HDR;
struct // union
{
xp_char_t* name;
xp_size_t idxa;
} id;
};
struct xp_awk_nde_idx_t
{
XP_AWK_NDE_HDR;
struct // union
{
xp_char_t* name;
xp_size_t idxa;
} id;
xp_awk_nde_t* idx;
};
/* XP_AWK_NDE_CALL */
struct xp_awk_nde_call_t
{
XP_AWK_NDE_HDR;
xp_char_t* name;
xp_awk_nde_t* args;
};
/* 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_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) */
};
#ifdef __cplusplus
extern "C" {
#endif
void xp_awk_prnpt (xp_awk_nde_t* tree);
void xp_awk_clrpt (xp_awk_nde_t* tree);
#ifdef __cplusplus
}
#endif
#endif