qse/ase/awk/parse.c

5403 lines
117 KiB
C
Raw Normal View History

2005-11-06 12:01:29 +00:00
/*
2007-02-19 15:45:02 +00:00
* $Id: parse.c,v 1.244 2007-02-19 15:44:46 bacon Exp $
2007-02-03 10:47:41 +00:00
*
* {License}
2005-11-06 12:01:29 +00:00
*/
2006-10-24 04:10:12 +00:00
#include <ase/awk/awk_i.h>
2006-01-18 15:16:01 +00:00
2005-11-14 15:23:54 +00:00
enum
{
TOKEN_EOF,
2006-08-03 09:54:16 +00:00
TOKEN_NEWLINE,
2005-11-15 15:32:39 +00:00
2006-08-03 09:54:16 +00:00
/* TOKEN_XXX_ASSIGNs should in sync
* with __assop in __assign_to_opcode */
2005-11-14 15:23:54 +00:00
TOKEN_ASSIGN,
2006-04-11 15:44:30 +00:00
TOKEN_PLUS_ASSIGN,
TOKEN_MINUS_ASSIGN,
TOKEN_MUL_ASSIGN,
TOKEN_DIV_ASSIGN,
2006-12-04 06:04:07 +00:00
TOKEN_IDIV_ASSIGN,
2006-04-11 15:44:30 +00:00
TOKEN_MOD_ASSIGN,
2006-10-22 12:39:30 +00:00
TOKEN_EXP_ASSIGN,
2006-04-11 15:44:30 +00:00
2005-11-14 15:23:54 +00:00
TOKEN_EQ,
TOKEN_NE,
2006-02-08 16:14:31 +00:00
TOKEN_LE,
TOKEN_LT,
TOKEN_GE,
TOKEN_GT,
2006-04-11 15:44:30 +00:00
TOKEN_NM, /* not match */
2005-11-14 15:23:54 +00:00
TOKEN_NOT,
TOKEN_PLUS,
2006-03-31 12:04:14 +00:00
TOKEN_PLUSPLUS,
2005-11-14 15:23:54 +00:00
TOKEN_MINUS,
2006-03-31 12:04:14 +00:00
TOKEN_MINUSMINUS,
2006-01-10 13:57:54 +00:00
TOKEN_MUL,
TOKEN_DIV,
2006-12-04 06:04:07 +00:00
TOKEN_IDIV,
2006-01-10 13:57:54 +00:00
TOKEN_MOD,
2006-03-29 16:39:04 +00:00
TOKEN_LOR,
TOKEN_LAND,
TOKEN_BOR,
2006-03-30 16:24:10 +00:00
TOKEN_BXOR,
2006-03-29 16:39:04 +00:00
TOKEN_BAND,
2006-06-18 10:53:06 +00:00
TOKEN_BORAND,
2006-04-12 03:54:12 +00:00
TOKEN_TILDE, /* used for unary bitwise-not and regex match */
2006-04-11 15:44:30 +00:00
TOKEN_RSHIFT,
TOKEN_LSHIFT,
2006-04-25 15:20:10 +00:00
TOKEN_IN,
2006-10-22 12:39:30 +00:00
TOKEN_EXP,
2005-11-14 15:23:54 +00:00
2005-11-15 15:32:39 +00:00
TOKEN_LPAREN,
TOKEN_RPAREN,
TOKEN_LBRACE,
TOKEN_RBRACE,
2006-01-19 16:28:21 +00:00
TOKEN_LBRACK,
TOKEN_RBRACK,
2005-11-15 15:32:39 +00:00
2006-01-25 14:50:57 +00:00
TOKEN_DOLLAR,
2006-01-13 14:16:56 +00:00
TOKEN_COMMA,
2006-04-16 04:31:38 +00:00
TOKEN_PERIOD,
2006-01-09 16:03:56 +00:00
TOKEN_SEMICOLON,
2006-04-10 15:52:07 +00:00
TOKEN_COLON,
TOKEN_QUEST,
2006-01-09 16:03:56 +00:00
2005-12-29 12:04:51 +00:00
TOKEN_BEGIN,
2005-11-14 15:23:54 +00:00
TOKEN_END,
2005-11-16 16:09:53 +00:00
TOKEN_FUNCTION,
2006-06-30 03:53:16 +00:00
TOKEN_LOCAL,
TOKEN_GLOBAL,
2005-11-16 16:09:53 +00:00
TOKEN_IF,
2006-01-14 16:09:58 +00:00
TOKEN_ELSE,
2005-11-16 16:09:53 +00:00
TOKEN_WHILE,
TOKEN_FOR,
2006-01-09 12:51:47 +00:00
TOKEN_DO,
TOKEN_BREAK,
2005-11-16 16:09:53 +00:00
TOKEN_CONTINUE,
2006-01-09 12:51:47 +00:00
TOKEN_RETURN,
TOKEN_EXIT,
TOKEN_NEXT,
2006-01-15 06:11:22 +00:00
TOKEN_NEXTFILE,
2006-11-23 03:31:58 +00:00
TOKEN_NEXTINFILE,
2006-11-23 14:27:52 +00:00
TOKEN_NEXTOFILE,
2006-07-01 16:07:06 +00:00
TOKEN_DELETE,
2006-06-13 08:35:53 +00:00
TOKEN_PRINT,
TOKEN_PRINTF,
2006-01-15 06:11:22 +00:00
2006-06-30 03:53:16 +00:00
TOKEN_GETLINE,
2006-06-29 15:40:30 +00:00
TOKEN_IDENT,
TOKEN_INT,
TOKEN_REAL,
TOKEN_STR,
TOKEN_REX,
2006-01-15 06:11:22 +00:00
__TOKEN_COUNT__
2005-11-14 15:23:54 +00:00
};
2006-08-01 15:57:43 +00:00
enum
{
2006-08-03 15:50:04 +00:00
PARSE_GLOBAL,
PARSE_FUNCTION,
PARSE_BEGIN,
PARSE_END,
PARSE_BEGIN_BLOCK,
PARSE_END_BLOCK,
PARSE_PATTERN,
PARSE_ACTION_BLOCK
2006-08-01 15:57:43 +00:00
};
enum
{
PARSE_LOOP_NONE,
PARSE_LOOP_WHILE,
PARSE_LOOP_FOR,
PARSE_LOOP_DOWHILE
};
2006-03-30 16:24:10 +00:00
typedef struct __binmap_t __binmap_t;
struct __binmap_t
{
int token;
int binop;
};
2006-01-29 18:28:14 +00:00
2006-10-28 12:17:57 +00:00
static int __parse (ase_awk_t* awk);
2006-10-24 04:10:12 +00:00
static ase_awk_t* __parse_progunit (ase_awk_t* awk);
static ase_awk_t* __collect_globals (ase_awk_t* awk);
static ase_awk_t* __add_builtin_globals (ase_awk_t* awk);
static ase_awk_t* __add_global (
2006-12-25 13:45:43 +00:00
ase_awk_t* awk, const ase_char_t* name, ase_size_t len,
ase_size_t line, int force);
2006-10-24 04:10:12 +00:00
static ase_awk_t* __collect_locals (ase_awk_t* awk, ase_size_t nlocals);
static ase_awk_nde_t* __parse_function (ase_awk_t* awk);
static ase_awk_nde_t* __parse_begin (ase_awk_t* awk);
static ase_awk_nde_t* __parse_end (ase_awk_t* awk);
static ase_awk_chain_t* __parse_pattern_block (
ase_awk_t* awk, ase_awk_nde_t* ptn, ase_bool_t blockless);
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_block (ase_awk_t* awk, ase_size_t line, ase_bool_t is_top);
static ase_awk_nde_t* __parse_block_dc (ase_awk_t* awk, ase_size_t line, ase_bool_t is_top);
static ase_awk_nde_t* __parse_statement (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_statement_nb (ase_awk_t* awk, ase_size_t line);
2006-10-24 04:10:12 +00:00
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_expression (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_expression0 (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_basic_expr (ase_awk_t* awk, ase_size_t line);
2006-10-24 04:10:12 +00:00
static ase_awk_nde_t* __parse_binary_expr (
2006-12-19 14:20:30 +00:00
ase_awk_t* awk, ase_size_t line, const __binmap_t* binmap,
ase_awk_nde_t*(*next_level_func)(ase_awk_t*,ase_size_t));
static ase_awk_nde_t* __parse_logical_or (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_logical_and (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_in (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_regex_match (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_bitwise_or (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_bitwise_or_with_extio (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_bitwise_xor (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_bitwise_and (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_equality (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_relational (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_shift (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_concat (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_additive (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_multiplicative (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_unary (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_exponent (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_unary_exp (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_increment (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_primary (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_primary_ident (ase_awk_t* awk, ase_size_t line);
2006-10-24 04:10:12 +00:00
static ase_awk_nde_t* __parse_hashidx (
2006-12-19 14:20:30 +00:00
ase_awk_t* awk, ase_char_t* name, ase_size_t name_len,
ase_size_t line);
2006-10-24 04:10:12 +00:00
static ase_awk_nde_t* __parse_fncall (
2006-11-28 04:30:57 +00:00
ase_awk_t* awk, ase_char_t* name, ase_size_t name_len,
2006-12-19 14:20:30 +00:00
ase_awk_bfn_t* bfn, ase_size_t line);
static ase_awk_nde_t* __parse_if (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_while (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_for (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_dowhile (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_break (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_continue (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_return (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_exit (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_next (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_nextfile (ase_awk_t* awk, ase_size_t line, int out);
static ase_awk_nde_t* __parse_delete (ase_awk_t* awk, ase_size_t line);
static ase_awk_nde_t* __parse_print (ase_awk_t* awk, ase_size_t line, int type);
2006-10-24 04:10:12 +00:00
static int __get_token (ase_awk_t* awk);
static int __get_number (ase_awk_t* awk);
static int __get_charstr (ase_awk_t* awk);
static int __get_rexstr (ase_awk_t* awk);
2006-08-01 04:36:33 +00:00
static int __get_string (
2006-10-24 04:10:12 +00:00
ase_awk_t* awk, ase_char_t end_char,
ase_char_t esc_char, ase_bool_t keep_esc_char);
static int __get_char (ase_awk_t* awk);
static int __unget_char (ase_awk_t* awk, ase_cint_t c);
static int __skip_spaces (ase_awk_t* awk);
static int __skip_comment (ase_awk_t* awk);
2006-08-03 09:54:16 +00:00
static int __classify_ident (
2006-10-24 04:10:12 +00:00
ase_awk_t* awk, const ase_char_t* name, ase_size_t len);
static int __assign_to_opcode (ase_awk_t* awk);
static int __is_plain_var (ase_awk_nde_t* nde);
static int __is_var (ase_awk_nde_t* nde);
2005-11-15 15:32:39 +00:00
2006-10-24 04:10:12 +00:00
static int __deparse (ase_awk_t* awk);
static int __deparse_func (ase_awk_pair_t* pair, void* arg);
static int __put_char (ase_awk_t* awk, ase_char_t c);
static int __flush (ase_awk_t* awk);
2006-08-06 08:16:03 +00:00
2005-12-29 12:04:51 +00:00
struct __kwent
{
2006-10-24 04:10:12 +00:00
const ase_char_t* name;
ase_size_t name_len;
2005-11-15 15:32:39 +00:00
int type;
2006-02-04 19:31:51 +00:00
int valid; /* the entry is valid when this option is set */
2005-11-15 15:32:39 +00:00
};
static struct __kwent __kwtab[] =
{
2006-06-30 03:53:16 +00:00
/* operators */
2006-11-23 03:31:58 +00:00
{ ASE_T("in"), 2, TOKEN_IN, 0 },
2006-06-30 03:53:16 +00:00
/* top-level block starters */
2006-11-23 03:31:58 +00:00
{ ASE_T("BEGIN"), 5, TOKEN_BEGIN, 0 },
{ ASE_T("END"), 3, TOKEN_END, 0 },
{ ASE_T("function"), 8, TOKEN_FUNCTION, 0 },
{ ASE_T("func"), 4, TOKEN_FUNCTION, 0 },
2006-06-30 03:53:16 +00:00
/* keywords for variable declaration */
2006-11-23 03:31:58 +00:00
{ ASE_T("local"), 5, TOKEN_LOCAL, ASE_AWK_EXPLICIT },
{ ASE_T("global"), 6, TOKEN_GLOBAL, ASE_AWK_EXPLICIT },
2006-10-22 11:34:53 +00:00
2006-10-22 12:39:30 +00:00
/* keywords that start statements excluding expression statements */
2006-11-23 03:31:58 +00:00
{ ASE_T("if"), 2, TOKEN_IF, 0 },
{ ASE_T("else"), 4, TOKEN_ELSE, 0 },
{ ASE_T("while"), 5, TOKEN_WHILE, 0 },
{ ASE_T("for"), 3, TOKEN_FOR, 0 },
{ ASE_T("do"), 2, TOKEN_DO, 0 },
{ ASE_T("break"), 5, TOKEN_BREAK, 0 },
{ ASE_T("continue"), 8, TOKEN_CONTINUE, 0 },
{ ASE_T("return"), 6, TOKEN_RETURN, 0 },
{ ASE_T("exit"), 4, TOKEN_EXIT, 0 },
{ ASE_T("next"), 4, TOKEN_NEXT, 0 },
{ ASE_T("nextfile"), 8, TOKEN_NEXTFILE, 0 },
2006-11-23 14:27:52 +00:00
{ ASE_T("nextofile"), 9, TOKEN_NEXTOFILE, ASE_AWK_NEXTOFILE },
2006-11-23 03:31:58 +00:00
{ ASE_T("delete"), 6, TOKEN_DELETE, 0 },
{ ASE_T("print"), 5, TOKEN_PRINT, ASE_AWK_EXTIO },
{ ASE_T("printf"), 6, TOKEN_PRINTF, ASE_AWK_EXTIO },
2006-10-22 11:34:53 +00:00
2006-10-22 12:39:30 +00:00
/* keywords that can start an expression */
2006-11-23 03:31:58 +00:00
{ ASE_T("getline"), 7, TOKEN_GETLINE, ASE_AWK_EXTIO },
2006-10-22 11:34:53 +00:00
2006-11-23 03:31:58 +00:00
{ ASE_NULL, 0, 0, 0 }
2005-11-15 15:32:39 +00:00
};
2005-11-14 15:23:54 +00:00
2006-07-10 14:28:46 +00:00
struct __bvent
2006-04-16 04:31:38 +00:00
{
2006-10-24 04:10:12 +00:00
const ase_char_t* name;
ase_size_t name_len;
2006-07-10 14:28:46 +00:00
int valid;
};
static struct __bvent __bvtab[] =
{
2006-11-23 14:27:52 +00:00
{ ASE_T("ARGC"), 4, 0 },
{ ASE_T("ARGV"), 4, 0 },
{ ASE_T("CONVFMT"), 7, 0 },
{ ASE_T("ENVIRON"), 7, 0 },
{ ASE_T("FILENAME"), 8, 0 },
{ ASE_T("FNR"), 3, 0 },
{ ASE_T("FS"), 2, 0 },
{ ASE_T("IGNORECASE"), 10, 0 },
{ ASE_T("NF"), 2, 0 },
{ ASE_T("NR"), 2, 0 },
2006-11-24 13:25:12 +00:00
{ ASE_T("OFILENAME"), 9, ASE_AWK_NEXTOFILE },
2006-11-23 14:27:52 +00:00
{ ASE_T("OFMT"), 4, 0 },
{ ASE_T("OFS"), 3, 0 },
{ ASE_T("ORS"), 3, 0 },
{ ASE_T("RLENGTH"), 7, 0 },
{ ASE_T("RS"), 2, 0 },
{ ASE_T("RSTART"), 6, 0 },
{ ASE_T("SUBSEP"), 6, 0 },
{ ASE_NULL, 0, 0 }
2006-04-16 04:31:38 +00:00
};
2005-11-14 15:23:54 +00:00
#define GET_CHAR(awk) \
2006-10-26 14:22:01 +00:00
do { if (__get_char (awk) == -1) return -1; } while(0)
2005-11-14 15:23:54 +00:00
2006-03-04 10:08:13 +00:00
#define GET_CHAR_TO(awk,c) \
2006-05-13 16:33:07 +00:00
do { \
2006-10-26 14:22:01 +00:00
if (__get_char (awk) == -1) return -1; \
2006-08-06 08:16:03 +00:00
c = (awk)->src.lex.curc; \
2006-05-13 16:33:07 +00:00
} while(0)
2005-11-14 15:23:54 +00:00
2006-12-16 14:48:31 +00:00
/*
2006-06-27 10:53:04 +00:00
#define SET_TOKEN_TYPE(awk,code) \
do { \
2006-12-16 14:48:31 +00:00
(awk)->token.prev.type = (awk)->token.type; \
2006-06-27 10:53:04 +00:00
(awk)->token.type = (code); \
2006-12-16 14:48:31 +00:00
} while (0)
*/
#define SET_TOKEN_TYPE(awk,code) \
do { (awk)->token.type = (code); } while (0)
2005-11-14 15:23:54 +00:00
2006-03-04 10:08:13 +00:00
#define ADD_TOKEN_CHAR(awk,c) \
2006-05-13 16:33:07 +00:00
do { \
2006-10-24 04:10:12 +00:00
if (ase_awk_str_ccat(&(awk)->token.name,(c)) == (ase_size_t)-1) { \
2006-12-25 12:01:01 +00:00
ase_awk_seterror (awk, ASE_AWK_ENOMEM, (awk)->token.line, ASE_NULL); \
return -1; \
2006-05-13 16:33:07 +00:00
} \
} while (0)
2005-11-06 12:01:29 +00:00
2006-01-09 12:51:47 +00:00
#define MATCH(awk,token_type) ((awk)->token.type == (token_type))
2006-04-14 16:26:00 +00:00
2006-12-26 10:05:12 +00:00
#define SET_ERROR_0(awk,code,msg) \
do { \
if (MATCH(awk,TOKEN_EOF)) \
{ \
ase_awk_seterror ( \
awk, ASE_AWK_EENDSRC, \
(awk)->token.prev.line, ASE_NULL); \
} \
else \
{ \
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf ( \
2006-12-26 10:05:12 +00:00
(awk)->errmsg, ASE_COUNTOF((awk)->errmsg), \
msg, \
ASE_AWK_STR_LEN(&(awk)->token.name), \
ASE_AWK_STR_BUF(&(awk)->token.name)); \
ase_awk_seterror ( \
awk, code, (awk)->token.line, \
(awk)->errmsg); \
} \
} while (0)
2006-01-09 12:51:47 +00:00
2007-01-07 07:30:40 +00:00
ase_size_t ase_awk_getmaxdepth (ase_awk_t* awk, int type)
{
return (type == ASE_AWK_DEPTH_BLOCK_PARSE)? awk->parse.depth.max.block:
(type == ASE_AWK_DEPTH_BLOCK_RUN)? awk->run.depth.max.block:
(type == ASE_AWK_DEPTH_EXPR_PARSE)? awk->parse.depth.max.expr:
(type == ASE_AWK_DEPTH_EXPR_RUN)? awk->run.depth.max.expr:
(type == ASE_AWK_DEPTH_REX_BUILD)? awk->rex.depth.max.build:
(type == ASE_AWK_DEPTH_REX_MATCH)? awk->rex.depth.max.match: 0;
}
2007-01-06 15:45:50 +00:00
void ase_awk_setmaxdepth (ase_awk_t* awk, int types, ase_size_t depth)
2006-11-25 15:51:57 +00:00
{
2007-01-06 15:45:50 +00:00
if (types & ASE_AWK_DEPTH_BLOCK_PARSE)
2006-11-25 15:51:57 +00:00
{
awk->parse.depth.max.block = depth;
if (depth <= 0)
awk->parse.parse_block = __parse_block;
else
awk->parse.parse_block = __parse_block_dc;
}
2007-01-06 15:45:50 +00:00
if (types & ASE_AWK_DEPTH_EXPR_PARSE)
2006-11-25 15:51:57 +00:00
{
awk->parse.depth.max.expr = depth;
}
2007-01-06 15:45:50 +00:00
if (types & ASE_AWK_DEPTH_BLOCK_RUN)
{
awk->run.depth.max.block = depth;
}
if (types & ASE_AWK_DEPTH_EXPR_RUN)
{
awk->run.depth.max.expr = depth;
}
if (types & ASE_AWK_DEPTH_REX_BUILD)
{
awk->rex.depth.max.build = depth;
}
if (types & ASE_AWK_DEPTH_REX_MATCH)
{
awk->rex.depth.max.match = depth;
}
2006-11-25 15:51:57 +00:00
}
2006-10-24 04:10:12 +00:00
int ase_awk_parse (ase_awk_t* awk, ase_awk_srcios_t* srcios)
2005-11-06 12:01:29 +00:00
{
2006-10-28 12:17:57 +00:00
int n;
2006-08-06 08:16:03 +00:00
2006-12-08 06:02:41 +00:00
ASE_AWK_ASSERTX (awk,
srcios != ASE_NULL && srcios->in != ASE_NULL,
"the source code input stream must be provided at least");
2006-11-25 15:51:57 +00:00
ASE_AWK_ASSERT (awk, awk->parse.depth.cur.loop == 0);
ASE_AWK_ASSERT (awk, awk->parse.depth.cur.expr == 0);
2006-08-06 08:16:03 +00:00
2006-10-24 04:10:12 +00:00
ase_awk_clear (awk);
2006-11-29 02:54:17 +00:00
ASE_AWK_MEMCPY (awk, &awk->src.ios, srcios, ASE_SIZEOF(awk->src.ios));
2006-10-28 12:17:57 +00:00
n = __parse (awk);
2006-11-25 15:51:57 +00:00
ASE_AWK_ASSERT (awk, awk->parse.depth.cur.loop == 0);
ASE_AWK_ASSERT (awk, awk->parse.depth.cur.expr == 0);
2006-10-28 12:17:57 +00:00
return n;
}
static int __parse (ase_awk_t* awk)
{
int n = 0, op;
ASE_AWK_ASSERT (awk, awk->src.ios.in != ASE_NULL);
2006-08-06 08:16:03 +00:00
2006-10-28 12:17:57 +00:00
op = awk->src.ios.in (
ASE_AWK_IO_OPEN, awk->src.ios.custom_data, ASE_NULL, 0);
2006-12-09 11:50:08 +00:00
if (op <= -1)
2006-04-30 15:50:38 +00:00
{
2006-10-13 10:18:39 +00:00
/* cannot open the source file.
* it doesn't even have to call CLOSE */
2006-12-23 05:44:17 +00:00
ase_awk_seterror (
awk, ASE_AWK_ESINOP, 0,
ASE_T("cannot open the source input"));
2006-04-30 15:50:38 +00:00
return -1;
}
2006-10-24 04:10:12 +00:00
if (__add_builtin_globals (awk) == ASE_NULL)
2006-08-06 08:16:03 +00:00
{
n = -1;
goto exit_parse;
}
2006-01-09 12:51:47 +00:00
2006-10-13 10:18:39 +00:00
/* the user io handler for the source code input returns 0 when
* it doesn't have any files to open. this is the same condition
* as the source code file is empty. so it will perform the parsing
* when op is positive, which means there are something to parse */
if (op > 0)
2006-03-04 10:08:13 +00:00
{
2006-10-13 10:18:39 +00:00
/* get the first character */
if (__get_char(awk) == -1)
{
n = -1;
goto exit_parse;
}
2006-01-22 15:11:17 +00:00
2006-10-13 10:18:39 +00:00
/* get the first token */
if (__get_token(awk) == -1)
2006-03-04 10:08:13 +00:00
{
2006-08-06 08:16:03 +00:00
n = -1;
goto exit_parse;
2006-01-22 15:11:17 +00:00
}
2006-10-13 10:18:39 +00:00
while (1)
{
if (MATCH(awk,TOKEN_EOF)) break;
if (MATCH(awk,TOKEN_NEWLINE)) continue;
2006-10-24 04:10:12 +00:00
if (__parse_progunit (awk) == ASE_NULL)
2006-10-13 10:18:39 +00:00
{
n = -1;
goto exit_parse;
}
}
2006-01-09 16:03:56 +00:00
}
2006-01-09 12:51:47 +00:00
2006-10-24 04:10:12 +00:00
awk->tree.nglobals = ase_awk_tab_getsize(&awk->parse.globals);
2006-01-30 14:34:47 +00:00
2006-10-28 12:17:57 +00:00
if (awk->src.ios.out != ASE_NULL)
2006-08-06 12:35:06 +00:00
{
if (__deparse (awk) == -1)
{
n = -1;
goto exit_parse;
}
}
2006-08-06 08:16:03 +00:00
exit_parse:
2006-10-28 12:17:57 +00:00
if (awk->src.ios.in (
2006-12-09 11:50:08 +00:00
ASE_AWK_IO_CLOSE, awk->src.ios.custom_data, ASE_NULL, 0) != 0)
2006-08-06 08:16:03 +00:00
{
2006-12-09 11:50:08 +00:00
if (n == 0)
2006-08-06 08:16:03 +00:00
{
/* this is to keep the earlier error above
* that might be more critical than this */
2006-12-23 05:44:17 +00:00
ase_awk_seterror (
awk, ASE_AWK_ESINCL, 0,
ASE_T("cannot close the source input"));
2006-08-06 08:16:03 +00:00
n = -1;
}
}
2006-10-24 04:10:12 +00:00
if (n == -1) ase_awk_clear (awk);
2006-12-12 05:16:30 +00:00
else awk->tree.ok = 1;
2006-08-06 08:16:03 +00:00
return n;
2005-11-14 15:23:54 +00:00
}
2006-10-24 04:10:12 +00:00
static ase_awk_t* __parse_progunit (ase_awk_t* awk)
2005-11-14 15:23:54 +00:00
{
2005-11-21 15:46:47 +00:00
/*
pattern { action }
function name (parameter-list) { statement }
*/
2006-01-09 12:51:47 +00:00
2006-11-25 15:51:57 +00:00
ASE_AWK_ASSERT (awk, awk->parse.depth.cur.loop == 0);
2006-08-01 15:57:43 +00:00
2006-10-24 04:10:12 +00:00
if ((awk->option & ASE_AWK_EXPLICIT) && MATCH(awk,TOKEN_GLOBAL))
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_size_t nglobals;
2006-02-05 16:00:33 +00:00
2006-08-03 15:50:04 +00:00
awk->parse.id.block = PARSE_GLOBAL;
2006-08-01 15:57:43 +00:00
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-02-05 16:00:33 +00:00
2006-10-24 04:10:12 +00:00
nglobals = ase_awk_tab_getsize(&awk->parse.globals);
if (__collect_globals (awk) == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_tab_remove (
2006-02-05 16:00:33 +00:00
&awk->parse.globals, nglobals,
2006-10-24 04:10:12 +00:00
ase_awk_tab_getsize(&awk->parse.globals) - nglobals);
return ASE_NULL;
2006-02-05 16:00:33 +00:00
}
}
2006-03-04 10:08:13 +00:00
else if (MATCH(awk,TOKEN_FUNCTION))
{
2006-08-03 15:50:04 +00:00
awk->parse.id.block = PARSE_FUNCTION;
2006-10-24 04:10:12 +00:00
if (__parse_function (awk) == ASE_NULL) return ASE_NULL;
2006-01-22 15:11:17 +00:00
}
2006-03-04 10:08:13 +00:00
else if (MATCH(awk,TOKEN_BEGIN))
{
2006-08-03 15:50:04 +00:00
awk->parse.id.block = PARSE_BEGIN;
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-08-03 15:50:04 +00:00
2006-10-24 04:10:12 +00:00
if ((awk->option & ASE_AWK_BLOCKLESS) &&
2006-08-03 15:50:04 +00:00
(MATCH(awk,TOKEN_NEWLINE) || MATCH(awk,TOKEN_EOF)))
{
/* when the blockless pattern is supported
* BEGIN and { should be located on the same line */
2006-12-25 12:01:01 +00:00
ase_awk_seterror (
awk, ASE_AWK_EBLKBEG, awk->token.prev.line,
ASE_T("BEGIN not followed by a left bracket on the same line"));
return ASE_NULL;
2006-08-03 15:50:04 +00:00
}
2006-12-25 12:01:01 +00:00
if (!MATCH(awk,TOKEN_LBRACE))
{
ase_awk_seterror (
awk, ASE_AWK_ELBRACE, awk->token.prev.line,
ASE_T("BEGIN not followed by a left bracket"));
return ASE_NULL;
}
2006-08-03 15:50:04 +00:00
awk->parse.id.block = PARSE_BEGIN_BLOCK;
2006-10-24 04:10:12 +00:00
if (__parse_begin (awk) == ASE_NULL) return ASE_NULL;
2006-01-22 15:11:17 +00:00
}
2006-04-24 15:34:52 +00:00
else if (MATCH(awk,TOKEN_END))
2006-03-04 10:08:13 +00:00
{
2006-08-03 15:50:04 +00:00
awk->parse.id.block = PARSE_END;
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-08-03 15:50:04 +00:00
2006-10-24 04:10:12 +00:00
if ((awk->option & ASE_AWK_BLOCKLESS) &&
2006-08-03 15:50:04 +00:00
(MATCH(awk,TOKEN_NEWLINE) || MATCH(awk,TOKEN_EOF)))
{
/* when the blockless pattern is supported
* END and { should be located on the same line */
2006-12-25 12:01:01 +00:00
ase_awk_seterror (
awk, ASE_AWK_EBLKEND, awk->token.prev.line,
ASE_T("END not followed by a left bracket on the same line"));
return ASE_NULL;
2006-08-03 15:50:04 +00:00
}
2006-12-25 12:01:01 +00:00
if (!MATCH(awk,TOKEN_LBRACE))
{
ase_awk_seterror (
awk, ASE_AWK_ELBRACE, awk->token.prev.line,
ASE_T("END not followed by a left bracket"));
return ASE_NULL;
}
2006-08-03 15:50:04 +00:00
awk->parse.id.block = PARSE_END_BLOCK;
2006-10-24 04:10:12 +00:00
if (__parse_end (awk) == ASE_NULL) return ASE_NULL;
2006-01-22 15:11:17 +00:00
}
2006-04-24 15:34:52 +00:00
else if (MATCH(awk,TOKEN_LBRACE))
2006-03-04 10:08:13 +00:00
{
2006-08-03 09:54:16 +00:00
/* patternless block */
2006-08-03 15:50:04 +00:00
awk->parse.id.block = PARSE_ACTION_BLOCK;
2006-08-03 05:05:48 +00:00
if (__parse_pattern_block (
2006-10-24 04:10:12 +00:00
awk, ASE_NULL, ase_false) == ASE_NULL) return ASE_NULL;
2005-11-15 15:59:23 +00:00
}
2006-04-24 15:34:52 +00:00
else
{
/*
2006-10-22 12:39:30 +00:00
expressions
/regular expression/
2006-04-24 15:34:52 +00:00
pattern && pattern
pattern || pattern
!pattern
(pattern)
pattern, pattern
*/
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* ptn;
2006-05-07 17:45:08 +00:00
2006-08-03 15:50:04 +00:00
awk->parse.id.block = PARSE_PATTERN;
2006-08-01 15:57:43 +00:00
2006-12-19 14:20:30 +00:00
ptn = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (ptn == ASE_NULL) return ASE_NULL;
2006-05-07 17:45:08 +00:00
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, ptn->next == ASE_NULL);
2006-05-07 17:45:08 +00:00
if (MATCH(awk,TOKEN_COMMA))
{
2006-08-03 09:54:16 +00:00
if (__get_token (awk) == -1)
2006-05-07 17:45:08 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, ptn);
return ASE_NULL;
2006-05-07 17:45:08 +00:00
}
2006-12-19 14:20:30 +00:00
ptn->next = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (ptn->next == ASE_NULL)
2006-05-07 17:45:08 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, ptn);
return ASE_NULL;
2006-05-07 17:45:08 +00:00
}
}
2006-04-24 15:34:52 +00:00
2006-10-24 04:10:12 +00:00
if ((awk->option & ASE_AWK_BLOCKLESS) &&
2006-08-03 09:54:16 +00:00
(MATCH(awk,TOKEN_NEWLINE) || MATCH(awk,TOKEN_EOF)))
2006-04-24 15:34:52 +00:00
{
2006-08-03 09:54:16 +00:00
/* blockless pattern */
2006-10-24 04:10:12 +00:00
ase_bool_t newline = MATCH(awk,TOKEN_NEWLINE);
2006-08-03 09:54:16 +00:00
2006-08-03 15:50:04 +00:00
awk->parse.id.block = PARSE_ACTION_BLOCK;
2006-08-03 09:54:16 +00:00
if (__parse_pattern_block (
2006-10-24 04:10:12 +00:00
awk, ptn, ase_true) == ASE_NULL)
2006-05-07 17:45:08 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, ptn);
return ASE_NULL;
2006-05-07 17:45:08 +00:00
}
2006-08-03 09:54:16 +00:00
if (newline)
{
if (__get_token (awk) == -1)
{
2007-02-19 15:45:02 +00:00
/* ptn has been added to the chain.
* it doesn't have to be cleared here
* as ase_awk_clear does it */
/*ase_awk_clrpt (awk, ptn);*/
2006-10-24 04:10:12 +00:00
return ASE_NULL;
2006-08-03 09:54:16 +00:00
}
}
2006-04-24 15:34:52 +00:00
}
else
{
2006-08-03 09:54:16 +00:00
/* parse the action block */
if (!MATCH(awk,TOKEN_LBRACE))
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, ptn);
2006-12-25 12:01:01 +00:00
ase_awk_seterror (
awk, ASE_AWK_ELBRACE,
(MATCH(awk,TOKEN_EOF)? awk->token.prev.line: awk->token.line),
ASE_T("not a valid start of a block"));
return ASE_NULL;
2006-08-03 09:54:16 +00:00
}
2006-08-03 15:50:04 +00:00
awk->parse.id.block = PARSE_ACTION_BLOCK;
2006-08-03 09:54:16 +00:00
if (__parse_pattern_block (
2006-10-24 04:10:12 +00:00
awk, ptn, ase_false) == ASE_NULL)
2006-08-03 09:54:16 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, ptn);
return ASE_NULL;
2006-08-03 09:54:16 +00:00
}
}
2006-04-24 15:34:52 +00:00
}
2005-11-15 15:59:23 +00:00
2006-02-05 16:00:33 +00:00
return awk;
2005-11-16 16:09:53 +00:00
}
2006-10-24 04:10:12 +00:00
static ase_awk_nde_t* __parse_function (ase_awk_t* awk)
2005-11-16 16:09:53 +00:00
{
2006-10-24 04:10:12 +00:00
ase_char_t* name;
ase_char_t* name_dup;
ase_size_t name_len;
ase_awk_nde_t* body;
ase_awk_afn_t* afn;
ase_size_t nargs;
ase_awk_pair_t* pair;
2006-04-19 03:42:08 +00:00
int n;
2006-01-20 07:33:46 +00:00
2006-01-31 16:57:45 +00:00
/* eat up the keyword 'function' and get the next token */
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, MATCH(awk,TOKEN_FUNCTION));
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-01-22 15:11:17 +00:00
2006-01-31 16:57:45 +00:00
/* match a function name */
2006-03-04 10:08:13 +00:00
if (!MATCH(awk,TOKEN_IDENT))
{
2006-01-31 16:57:45 +00:00
/* cannot find a valid identifier for a function name */
2006-12-25 12:01:01 +00:00
if (MATCH(awk,TOKEN_EOF))
{
ase_awk_seterror (
awk, ASE_AWK_EIDENT, awk->token.prev.line,
ASE_T("function definition without a name"));
}
else
{
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-25 12:01:01 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("'%.*s' not a valid function name"),
ASE_AWK_STR_LEN(&awk->token.name),
ASE_AWK_STR_BUF(&awk->token.name));
ase_awk_seterror (
awk, ASE_AWK_EIDENT, awk->token.line,
awk->errmsg);
}
return ASE_NULL;
2006-01-31 16:57:45 +00:00
}
2006-01-20 07:33:46 +00:00
2006-10-24 04:10:12 +00:00
name = ASE_AWK_STR_BUF(&awk->token.name);
name_len = ASE_AWK_STR_LEN(&awk->token.name);
2006-11-27 04:33:22 +00:00
/* check if it is a builtin function */
if (ase_awk_getbfn (awk, name, name_len) != ASE_NULL)
{
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-25 12:01:01 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("built-in function '%.*s' redefined"),
name_len, name);
ase_awk_seterror (
awk, ASE_AWK_EBFNRED, awk->token.line,
awk->errmsg);
return ASE_NULL;
2006-11-27 04:33:22 +00:00
}
2006-10-24 04:10:12 +00:00
if (ase_awk_map_get(&awk->tree.afns, name, name_len) != ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-01-31 16:57:45 +00:00
/* the function is defined previously */
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-25 12:01:01 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("function '%.*s' redefined"),
name_len, name);
ase_awk_seterror (
awk, ASE_AWK_EAFNRED, awk->token.line,
awk->errmsg);
return ASE_NULL;
2006-01-29 18:28:14 +00:00
}
2007-01-03 09:51:53 +00:00
if (awk->option & ASE_AWK_UNIQUEFN)
2006-03-04 10:08:13 +00:00
{
2006-02-04 19:31:51 +00:00
/* check if it coincides to be a global variable name */
2006-11-27 04:33:22 +00:00
ase_size_t g;
g = ase_awk_tab_find (&awk->parse.globals, 0, name, name_len);
if (g != (ase_size_t)-1)
2006-03-04 10:08:13 +00:00
{
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-25 12:01:01 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("global variable '%.*s' redefined"),
name_len, name);
ase_awk_seterror (
awk, ASE_AWK_EGBLRED, awk->token.line,
awk->errmsg);
return ASE_NULL;
2006-01-31 16:57:45 +00:00
}
}
2006-01-29 18:28:14 +00:00
2006-01-31 16:57:45 +00:00
/* clone the function name before it is overwritten */
2006-10-24 04:10:12 +00:00
name_dup = ase_awk_strxdup (awk, name, name_len);
2006-12-25 12:01:01 +00:00
if (name_dup == ASE_NULL)
{
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, awk->token.line, ASE_NULL);
return ASE_NULL;
}
2006-01-20 07:33:46 +00:00
2006-01-31 16:57:45 +00:00
/* get the next token */
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
return ASE_NULL;
2006-01-20 07:33:46 +00:00
}
2006-01-31 16:57:45 +00:00
/* match a left parenthesis */
2006-03-04 10:08:13 +00:00
if (!MATCH(awk,TOKEN_LPAREN))
{
2006-01-31 16:57:45 +00:00
/* a function name is not followed by a left parenthesis */
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
2006-12-25 12:01:01 +00:00
ase_awk_seterror (
awk, ASE_AWK_ELPAREN, awk->token.line,
ASE_T("function name not followed by a left parenthesis"));
return ASE_NULL;
2006-01-20 07:33:46 +00:00
}
2006-01-31 16:57:45 +00:00
/* get the next token */
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
return ASE_NULL;
2006-01-20 07:33:46 +00:00
}
2006-01-31 16:57:45 +00:00
/* make sure that parameter table is empty */
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, ase_awk_tab_getsize(&awk->parse.params) == 0);
2006-01-31 16:57:45 +00:00
/* read parameter list */
2006-03-04 10:08:13 +00:00
if (MATCH(awk,TOKEN_RPAREN))
{
2006-01-31 16:57:45 +00:00
/* no function parameter found. get the next token */
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
return ASE_NULL;
2006-01-20 07:33:46 +00:00
}
}
2006-03-04 10:08:13 +00:00
else
{
while (1)
{
2006-10-24 04:10:12 +00:00
ase_char_t* param;
ase_size_t param_len;
2006-02-04 19:31:51 +00:00
2006-03-04 10:08:13 +00:00
if (!MATCH(awk,TOKEN_IDENT))
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
ase_awk_tab_clear (&awk->parse.params);
2006-12-25 12:01:01 +00:00
if (MATCH(awk,TOKEN_EOF))
{
ase_awk_seterror (
awk, ASE_AWK_EENDSRC, awk->token.prev.line,
ASE_NULL);
}
else if (MATCH(awk,TOKEN_RPAREN))
{
ase_awk_seterror (
awk, ASE_AWK_EIDENT, awk->token.prev.line,
ASE_T("premature end of parameter list"));
}
else
{
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-25 12:01:01 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("'%.*s' not a valid parameter name"),
ASE_AWK_STR_LEN(&awk->token.name),
ASE_AWK_STR_BUF(&awk->token.name));
ase_awk_seterror (
awk, ASE_AWK_EIDENT, awk->token.line,
awk->errmsg);
}
return ASE_NULL;
2006-01-20 07:33:46 +00:00
}
2006-10-24 04:10:12 +00:00
param = ASE_AWK_STR_BUF(&awk->token.name);
param_len = ASE_AWK_STR_LEN(&awk->token.name);
2006-02-04 19:31:51 +00:00
2007-01-03 09:51:53 +00:00
if (awk->option & ASE_AWK_UNIQUEFN)
2006-03-04 10:08:13 +00:00
{
2006-02-04 19:31:51 +00:00
/* check if a parameter conflicts with a function */
2006-10-24 04:10:12 +00:00
if (ase_awk_strxncmp (name_dup, name_len, param, param_len) == 0 ||
ase_awk_map_get (&awk->tree.afns, param, param_len) != ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
ase_awk_tab_clear (&awk->parse.params);
2006-12-25 12:01:01 +00:00
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-25 12:01:01 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("conflicting parameter '%.*s' with the function"),
param_len, param);
ase_awk_seterror (
awk, ASE_AWK_EDUPPAR, awk->token.line,
awk->errmsg);
return ASE_NULL;
2006-02-04 19:31:51 +00:00
}
/* NOTE: the following is not a conflict
* global x;
* function f (x) { print x; }
* x in print x is a parameter
*/
}
2006-01-31 16:57:45 +00:00
2006-02-04 19:31:51 +00:00
/* check if a parameter conflicts with other parameters */
2006-10-24 04:10:12 +00:00
if (ase_awk_tab_find (
2006-08-03 09:54:16 +00:00
&awk->parse.params,
2006-10-24 04:10:12 +00:00
0, param, param_len) != (ase_size_t)-1)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
ase_awk_tab_clear (&awk->parse.params);
2006-12-25 12:01:01 +00:00
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-25 12:01:01 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("duplicate parameter '%.*s'"),
param_len, param);
ase_awk_seterror (
awk, ASE_AWK_EDUPPAR, awk->token.line,
awk->errmsg);
return ASE_NULL;
2006-01-31 16:57:45 +00:00
}
2006-02-04 19:31:51 +00:00
/* push the parameter to the parameter list */
2006-10-24 04:10:12 +00:00
if (ase_awk_tab_getsize (
&awk->parse.params) >= ASE_AWK_MAX_PARAMS)
2006-08-06 15:03:42 +00:00
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
ase_awk_tab_clear (&awk->parse.params);
2006-12-25 12:01:01 +00:00
ase_awk_seterror (
awk, ASE_AWK_EPARTM, awk->token.line,
ASE_T("too many parameters in the parameter list"));
return ASE_NULL;
2006-08-06 15:03:42 +00:00
}
2006-10-24 04:10:12 +00:00
if (ase_awk_tab_add (
2006-08-03 09:54:16 +00:00
&awk->parse.params,
2006-10-24 04:10:12 +00:00
param, param_len) == (ase_size_t)-1)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
ase_awk_tab_clear (&awk->parse.params);
2006-12-25 12:01:01 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, awk->token.line, ASE_NULL);
return ASE_NULL;
2006-01-31 16:57:45 +00:00
}
2006-01-29 18:28:14 +00:00
2006-08-03 06:06:27 +00:00
if (__get_token (awk) == -1)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
ase_awk_tab_clear (&awk->parse.params);
return ASE_NULL;
2006-01-20 07:33:46 +00:00
}
if (MATCH(awk,TOKEN_RPAREN)) break;
2006-03-04 10:08:13 +00:00
if (!MATCH(awk,TOKEN_COMMA))
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
ase_awk_tab_clear (&awk->parse.params);
2006-12-25 12:01:01 +00:00
2006-12-26 10:05:12 +00:00
SET_ERROR_0 (awk, ASE_AWK_ECOMMA,
ASE_T("comma expected in place of '%.*s'"));
2006-12-25 12:01:01 +00:00
return ASE_NULL;
2006-01-20 07:33:46 +00:00
}
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
ase_awk_tab_clear (&awk->parse.params);
return ASE_NULL;
2006-01-20 07:33:46 +00:00
}
}
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
ase_awk_tab_clear (&awk->parse.params);
return ASE_NULL;
2006-01-20 07:33:46 +00:00
}
}
2006-01-29 18:28:14 +00:00
/* check if the function body starts with a left brace */
2006-03-04 10:08:13 +00:00
if (!MATCH(awk,TOKEN_LBRACE))
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
ase_awk_tab_clear (&awk->parse.params);
2006-12-25 12:01:01 +00:00
if (MATCH(awk,TOKEN_EOF))
{
ase_awk_seterror (
awk, ASE_AWK_EENDSRC, awk->token.prev.line,
ASE_NULL);
}
else
{
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-25 12:01:01 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("'%.*s' not a valid start of the function body"),
ASE_AWK_STR_LEN(&awk->token.name),
ASE_AWK_STR_BUF(&awk->token.name));
ase_awk_seterror (
awk, ASE_AWK_ELBRACE, awk->token.line,
awk->errmsg);
}
return ASE_NULL;
2006-01-20 07:33:46 +00:00
}
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
ase_awk_tab_clear (&awk->parse.params);
return ASE_NULL;
2006-01-20 07:33:46 +00:00
}
2006-01-29 18:28:14 +00:00
/* actual function body */
2006-12-19 14:20:30 +00:00
body = awk->parse.parse_block (awk, awk->token.prev.line, ase_true);
2006-10-24 04:10:12 +00:00
if (body == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
ase_awk_tab_clear (&awk->parse.params);
return ASE_NULL;
2006-01-20 07:33:46 +00:00
}
2006-07-01 16:07:06 +00:00
/* TODO: study furthur if the parameter names should be saved
2006-12-25 12:01:01 +00:00
* for some reasons - might be need for deparsing output */
2006-10-24 04:10:12 +00:00
nargs = ase_awk_tab_getsize (&awk->parse.params);
2006-01-31 16:57:45 +00:00
/* parameter names are not required anymore. clear them */
2006-10-24 04:10:12 +00:00
ase_awk_tab_clear (&awk->parse.params);
2006-01-31 16:57:45 +00:00
2006-12-25 12:01:01 +00:00
afn = (ase_awk_afn_t*)
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_afn_t));
2006-10-24 04:10:12 +00:00
if (afn == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
ase_awk_clrpt (awk, body);
2006-12-25 12:01:01 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, awk->token.line, ASE_NULL);
2006-10-24 04:10:12 +00:00
return ASE_NULL;
2006-01-22 15:11:17 +00:00
}
2006-10-24 04:10:12 +00:00
afn->name = ASE_NULL; /* function name set below */
2006-08-06 08:16:03 +00:00
afn->name_len = 0;
2006-06-20 15:27:50 +00:00
afn->nargs = nargs;
2006-11-25 15:51:57 +00:00
afn->body = body;
2006-01-29 18:28:14 +00:00
2006-10-24 04:10:12 +00:00
n = ase_awk_map_putx (&awk->tree.afns, name_dup, name_len, afn, &pair);
2006-04-19 03:42:08 +00:00
if (n < 0)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
ase_awk_clrpt (awk, body);
ASE_AWK_FREE (awk, afn);
2006-12-25 12:01:01 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, awk->token.line, ASE_NULL);
return ASE_NULL;
2006-01-29 18:28:14 +00:00
}
2006-01-22 15:11:17 +00:00
2006-04-19 03:42:08 +00:00
/* duplicate functions should have been detected previously */
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, n != 0);
2006-04-19 03:42:08 +00:00
2006-06-20 15:27:50 +00:00
afn->name = pair->key; /* do some trick to save a string. */
2006-08-06 08:16:03 +00:00
afn->name_len = pair->key_len;
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
2006-04-19 03:42:08 +00:00
2006-01-20 07:33:46 +00:00
return body;
2005-11-14 15:23:54 +00:00
}
2006-10-24 04:10:12 +00:00
static ase_awk_nde_t* __parse_begin (ase_awk_t* awk)
2005-11-15 15:59:23 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* nde;
2006-01-09 12:51:47 +00:00
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, MATCH(awk,TOKEN_LBRACE));
2006-01-09 12:51:47 +00:00
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-12-19 14:20:30 +00:00
nde = awk->parse.parse_block (awk, awk->token.prev.line, ase_true);
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL) return ASE_NULL;
2006-01-22 15:11:17 +00:00
2006-03-03 11:45:45 +00:00
awk->tree.begin = nde;
return nde;
2006-01-22 15:11:17 +00:00
}
2006-10-24 04:10:12 +00:00
static ase_awk_nde_t* __parse_end (ase_awk_t* awk)
2006-01-22 15:11:17 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* nde;
2006-01-22 15:11:17 +00:00
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, MATCH(awk,TOKEN_LBRACE));
2005-11-15 15:59:23 +00:00
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-12-19 14:20:30 +00:00
nde = awk->parse.parse_block (awk, awk->token.prev.line, ase_true);
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL) return ASE_NULL;
2006-01-09 12:51:47 +00:00
2006-03-03 11:45:45 +00:00
awk->tree.end = nde;
return nde;
2006-01-09 12:51:47 +00:00
}
2006-10-24 04:10:12 +00:00
static ase_awk_chain_t* __parse_pattern_block (
ase_awk_t* awk, ase_awk_nde_t* ptn, ase_bool_t blockless)
2006-02-07 15:28:05 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* nde;
ase_awk_chain_t* chain;
2006-12-25 12:01:01 +00:00
ase_size_t line = awk->token.line;
2006-02-07 15:28:05 +00:00
2006-10-24 04:10:12 +00:00
if (blockless) nde = ASE_NULL;
2006-08-03 09:54:16 +00:00
else
{
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, MATCH(awk,TOKEN_LBRACE));
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-12-25 12:01:01 +00:00
nde = awk->parse.parse_block (awk, line, ase_true);
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL) return ASE_NULL;
2006-08-03 09:54:16 +00:00
}
2006-02-07 15:28:05 +00:00
2006-12-16 14:48:31 +00:00
chain = (ase_awk_chain_t*)
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_chain_t));
2006-10-24 04:10:12 +00:00
if (chain == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, nde);
2006-12-25 14:11:53 +00:00
2006-12-25 12:01:01 +00:00
ase_awk_seterror (awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-02-07 15:28:05 +00:00
}
2006-05-07 17:45:08 +00:00
chain->pattern = ptn;
2006-03-03 11:45:45 +00:00
chain->action = nde;
2006-10-24 04:10:12 +00:00
chain->next = ASE_NULL;
2006-02-07 15:28:05 +00:00
2006-10-24 04:10:12 +00:00
if (awk->tree.chain == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-02-07 15:28:05 +00:00
awk->tree.chain = chain;
awk->tree.chain_tail = chain;
2006-08-13 05:55:02 +00:00
awk->tree.chain_size++;
2006-02-07 15:28:05 +00:00
}
2006-03-04 10:08:13 +00:00
else
{
2006-02-07 15:28:05 +00:00
awk->tree.chain_tail->next = chain;
awk->tree.chain_tail = chain;
2006-08-13 05:55:02 +00:00
awk->tree.chain_size++;
2006-02-07 15:28:05 +00:00
}
2006-08-03 09:54:16 +00:00
return chain;
2006-02-07 15:28:05 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_block (
ase_awk_t* awk, ase_size_t line, ase_bool_t is_top)
2006-01-09 12:51:47 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* head, * curr, * nde;
ase_awk_nde_blk_t* block;
ase_size_t nlocals, nlocals_max, tmp;
2006-01-25 16:11:43 +00:00
2006-10-24 04:10:12 +00:00
nlocals = ase_awk_tab_getsize(&awk->parse.locals);
2006-02-05 06:10:43 +00:00
nlocals_max = awk->parse.nlocals_max;
2006-02-04 19:31:51 +00:00
/* local variable declarations */
2006-10-24 04:10:12 +00:00
if (awk->option & ASE_AWK_EXPLICIT)
2006-03-04 10:08:13 +00:00
{
while (1)
{
2006-02-04 19:31:51 +00:00
if (!MATCH(awk,TOKEN_LOCAL)) break;
2006-01-09 12:51:47 +00:00
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_tab_remove (
2006-02-05 14:21:18 +00:00
&awk->parse.locals, nlocals,
2006-10-24 04:10:12 +00:00
ase_awk_tab_getsize(&awk->parse.locals) - nlocals);
return ASE_NULL;
2006-01-25 16:11:43 +00:00
}
2006-10-24 04:10:12 +00:00
if (__collect_locals(awk, nlocals) == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_tab_remove (
2006-02-05 14:21:18 +00:00
&awk->parse.locals, nlocals,
2006-10-24 04:10:12 +00:00
ase_awk_tab_getsize(&awk->parse.locals) - nlocals);
return ASE_NULL;
2006-02-04 19:31:51 +00:00
}
2006-01-25 16:11:43 +00:00
}
}
/* block body */
2006-10-24 04:10:12 +00:00
head = ASE_NULL; curr = ASE_NULL;
2006-01-09 12:51:47 +00:00
2006-03-04 10:08:13 +00:00
while (1)
{
if (MATCH(awk,TOKEN_EOF))
{
2006-10-24 04:10:12 +00:00
ase_awk_tab_remove (
2006-02-05 14:21:18 +00:00
&awk->parse.locals, nlocals,
2006-10-24 04:10:12 +00:00
ase_awk_tab_getsize(&awk->parse.locals) - nlocals);
if (head != ASE_NULL) ase_awk_clrpt (awk, head);
2006-12-25 12:01:01 +00:00
ase_awk_seterror (
awk, ASE_AWK_EENDSRC, awk->token.prev.line,
ASE_NULL);
return ASE_NULL;
2006-01-09 16:03:56 +00:00
}
2006-03-04 10:08:13 +00:00
if (MATCH(awk,TOKEN_RBRACE))
{
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_tab_remove (
2006-02-05 14:21:18 +00:00
&awk->parse.locals, nlocals,
2006-10-24 04:10:12 +00:00
ase_awk_tab_getsize(&awk->parse.locals) - nlocals);
if (head != ASE_NULL) ase_awk_clrpt (awk, head);
return ASE_NULL;
2006-01-14 14:09:52 +00:00
}
2006-01-09 12:51:47 +00:00
break;
}
2006-12-19 14:20:30 +00:00
nde = __parse_statement (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_tab_remove (
2006-02-05 14:21:18 +00:00
&awk->parse.locals, nlocals,
2006-12-19 14:20:30 +00:00
ase_awk_tab_getsize(&awk->parse.locals)-nlocals);
2006-10-24 04:10:12 +00:00
if (head != ASE_NULL) ase_awk_clrpt (awk, head);
return ASE_NULL;
2006-01-14 14:09:52 +00:00
}
2006-02-04 19:31:51 +00:00
/* remove unnecessary statements */
2006-10-24 04:10:12 +00:00
if (nde->type == ASE_AWK_NDE_NULL ||
(nde->type == ASE_AWK_NDE_BLK &&
((ase_awk_nde_blk_t*)nde)->body == ASE_NULL)) continue;
2006-02-04 19:31:51 +00:00
2006-10-24 04:10:12 +00:00
if (curr == ASE_NULL) head = nde;
2006-03-03 11:45:45 +00:00
else curr->next = nde;
curr = nde;
2006-01-14 14:09:52 +00:00
}
2006-01-10 13:57:54 +00:00
2006-12-16 14:48:31 +00:00
block = (ase_awk_nde_blk_t*)
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_nde_blk_t));
2006-10-24 04:10:12 +00:00
if (block == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_tab_remove (
2006-02-05 14:21:18 +00:00
&awk->parse.locals, nlocals,
2006-12-19 14:20:30 +00:00
ase_awk_tab_getsize(&awk->parse.locals)-nlocals);
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, head);
2006-12-25 12:01:01 +00:00
ase_awk_seterror (awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-01-09 12:51:47 +00:00
}
2006-10-24 04:10:12 +00:00
tmp = ase_awk_tab_getsize(&awk->parse.locals);
2006-02-05 06:10:43 +00:00
if (tmp > awk->parse.nlocals_max) awk->parse.nlocals_max = tmp;
2006-10-24 04:10:12 +00:00
ase_awk_tab_remove (
2006-02-05 14:21:18 +00:00
&awk->parse.locals, nlocals, tmp - nlocals);
2006-02-04 19:31:51 +00:00
2006-04-10 14:53:48 +00:00
/* adjust the number of locals for a block without any statements */
2006-10-24 04:10:12 +00:00
/* if (head == ASE_NULL) tmp = 0; */
2006-02-04 19:31:51 +00:00
2006-10-24 04:10:12 +00:00
block->type = ASE_AWK_NDE_BLK;
2006-12-19 14:20:30 +00:00
block->line = line;
2006-10-24 04:10:12 +00:00
block->next = ASE_NULL;
2006-01-14 14:09:52 +00:00
block->body = head;
2006-04-05 15:56:20 +00:00
/* TODO: not only local variables but also nested blocks,
2006-02-05 16:12:50 +00:00
unless it is part of other constructs such as if, can be promoted
and merged to top-level block */
2006-02-05 06:10:43 +00:00
/* migrate all block-local variables to a top-level block */
2006-03-04 10:08:13 +00:00
if (is_top)
{
2006-02-04 19:31:51 +00:00
block->nlocals = awk->parse.nlocals_max - nlocals;
2006-02-05 06:10:43 +00:00
awk->parse.nlocals_max = nlocals_max;
2006-02-04 19:31:51 +00:00
}
2006-03-04 10:08:13 +00:00
else
{
2006-02-05 06:10:43 +00:00
/*block->nlocals = tmp - nlocals;*/
2006-02-04 19:31:51 +00:00
block->nlocals = 0;
}
2006-01-25 16:11:43 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)block;
2006-01-09 12:51:47 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_block_dc (
ase_awk_t* awk, ase_size_t line, ase_bool_t is_top)
2006-11-25 15:51:57 +00:00
{
ase_awk_nde_t* nde;
ASE_AWK_ASSERT (awk, awk->parse.depth.max.block > 0);
if (awk->parse.depth.cur.block >= awk->parse.depth.max.block)
{
2006-12-23 05:44:17 +00:00
ase_awk_seterror (
awk, ASE_AWK_ERECUR, awk->token.prev.line,
ASE_T("block nested too deeply"));
2006-11-25 15:51:57 +00:00
return ASE_NULL;
}
awk->parse.depth.cur.block++;
2006-12-19 14:20:30 +00:00
nde = __parse_block (awk, line, is_top);
2006-11-25 15:51:57 +00:00
awk->parse.depth.cur.block--;
return nde;
}
2006-10-24 04:10:12 +00:00
static ase_awk_t* __add_builtin_globals (ase_awk_t* awk)
2006-07-10 14:28:46 +00:00
{
struct __bvent* p = __bvtab;
2006-11-23 14:27:52 +00:00
ase_awk_t* tmp;
2006-07-10 14:28:46 +00:00
2006-08-04 16:31:22 +00:00
awk->tree.nbglobals = 0;
2006-10-24 04:10:12 +00:00
while (p->name != ASE_NULL)
2006-07-10 14:28:46 +00:00
{
2006-11-23 14:27:52 +00:00
if (p->valid != 0 && (awk->option & p->valid) == 0)
{
/* an invalid global variable are still added
* to the global variable table with an empty name.
* this is to prevent the run-time from looking up
* the variable */
2006-12-25 13:45:43 +00:00
tmp =__add_global (awk, ASE_T(""), 0, 0, 1);
2006-11-23 14:27:52 +00:00
}
else
{
2006-12-25 13:45:43 +00:00
tmp =__add_global (awk, p->name, p->name_len, 0, 0);
2006-11-23 14:27:52 +00:00
}
if (tmp == ASE_NULL) return ASE_NULL;
2006-08-04 16:31:22 +00:00
awk->tree.nbglobals++;
2006-07-10 14:28:46 +00:00
p++;
}
return awk;
}
2006-10-24 04:10:12 +00:00
static ase_awk_t* __add_global (
2006-12-25 13:45:43 +00:00
ase_awk_t* awk, const ase_char_t* name, ase_size_t len,
ase_size_t line, int force)
2006-07-10 14:28:46 +00:00
{
2006-11-23 14:27:52 +00:00
if (!force)
2006-07-10 14:28:46 +00:00
{
2007-01-03 09:51:53 +00:00
if (awk->option & ASE_AWK_UNIQUEFN)
2006-07-10 14:28:46 +00:00
{
2006-12-25 13:45:43 +00:00
/* check if it conflict with a builtin function name */
if (ase_awk_getbfn (awk, name, len) != ASE_NULL)
{
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-25 13:45:43 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("built-in function '%.*s' redefined"),
len, name);
ase_awk_seterror (awk, ASE_AWK_EBFNRED, line, awk->errmsg);
return ASE_NULL;
}
2006-11-23 14:27:52 +00:00
/* check if it conflict with a function name */
if (ase_awk_map_get (
&awk->tree.afns, name, len) != ASE_NULL)
{
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-25 13:45:43 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("function '%.*s' redefined"),
len, name);
ase_awk_seterror (awk, ASE_AWK_EAFNRED, line, awk->errmsg);
return ASE_NULL;
2006-11-23 14:27:52 +00:00
}
2006-07-10 14:28:46 +00:00
}
2006-11-23 14:27:52 +00:00
/* check if it conflicts with other global variable names */
if (ase_awk_tab_find (
&awk->parse.globals, 0, name, len) != (ase_size_t)-1)
{
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-25 13:45:43 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("duplicate global variable '%.*s'"),
len, name);
ase_awk_seterror (awk, ASE_AWK_EDUPGBL, line, awk->errmsg);
return ASE_NULL;
2006-11-23 14:27:52 +00:00
}
2006-07-10 14:28:46 +00:00
}
2006-10-24 04:10:12 +00:00
if (ase_awk_tab_getsize(&awk->parse.globals) >= ASE_AWK_MAX_GLOBALS)
2006-08-06 15:03:42 +00:00
{
2006-12-25 13:45:43 +00:00
ase_awk_seterror (awk, ASE_AWK_EGBLTM, line, ASE_NULL);
return ASE_NULL;
2006-08-06 15:03:42 +00:00
}
2006-10-24 04:10:12 +00:00
if (ase_awk_tab_add (&awk->parse.globals, name, len) == (ase_size_t)-1)
2006-07-10 14:28:46 +00:00
{
2006-12-25 13:45:43 +00:00
ase_awk_seterror (awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-07-10 14:28:46 +00:00
}
return awk;
}
2006-10-24 04:10:12 +00:00
static ase_awk_t* __collect_globals (ase_awk_t* awk)
2006-02-05 16:00:33 +00:00
{
2006-03-04 10:08:13 +00:00
while (1)
{
if (!MATCH(awk,TOKEN_IDENT))
{
2006-12-25 13:45:43 +00:00
if (MATCH(awk,TOKEN_EOF))
{
ase_awk_seterror (
awk, ASE_AWK_EENDSRC, awk->token.prev.line,
ASE_NULL);
return ASE_NULL;
}
else
{
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-25 13:45:43 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("'%.*s' not a valid variable name"),
ASE_AWK_STR_LEN(&awk->token.name),
ASE_AWK_STR_BUF(&awk->token.name));
ase_awk_seterror (
awk, ASE_AWK_EIDENT, awk->token.line,
awk->errmsg);
return ASE_NULL;
}
2006-02-05 16:00:33 +00:00
}
2006-11-23 14:27:52 +00:00
if (__add_global (
awk,
2006-10-24 04:10:12 +00:00
ASE_AWK_STR_BUF(&awk->token.name),
2006-11-23 14:27:52 +00:00
ASE_AWK_STR_LEN(&awk->token.name),
2006-12-25 13:45:43 +00:00
awk->token.line,
2006-11-23 14:27:52 +00:00
0) == ASE_NULL) return ASE_NULL;
2006-02-05 16:00:33 +00:00
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-02-05 16:00:33 +00:00
if (MATCH(awk,TOKEN_SEMICOLON)) break;
2006-03-04 10:08:13 +00:00
if (!MATCH(awk,TOKEN_COMMA))
{
2006-12-26 10:05:12 +00:00
SET_ERROR_0 (awk, ASE_AWK_ECOMMA,
ASE_T("comma expected in place of '%.*s'"));
2006-12-25 13:45:43 +00:00
return ASE_NULL;
2006-02-05 16:00:33 +00:00
}
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-02-05 16:00:33 +00:00
}
/* skip a semicolon */
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-02-05 16:00:33 +00:00
return awk;
}
2006-10-24 04:10:12 +00:00
static ase_awk_t* __collect_locals (ase_awk_t* awk, ase_size_t nlocals)
2006-02-04 19:31:51 +00:00
{
2006-10-24 04:10:12 +00:00
ase_char_t* local;
ase_size_t local_len;
2006-02-04 19:31:51 +00:00
2006-03-04 10:08:13 +00:00
while (1)
{
if (!MATCH(awk,TOKEN_IDENT))
{
2006-12-25 13:45:43 +00:00
if (MATCH(awk,TOKEN_EOF))
{
ase_awk_seterror (
awk, ASE_AWK_EENDSRC, awk->token.prev.line,
ASE_NULL);
return ASE_NULL;
}
else
{
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-25 13:45:43 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("'%.*s' not a valid variable name"),
ASE_AWK_STR_LEN(&awk->token.name),
ASE_AWK_STR_BUF(&awk->token.name));
ase_awk_seterror (
awk, ASE_AWK_EIDENT, awk->token.line,
awk->errmsg);
return ASE_NULL;
}
2006-02-04 19:31:51 +00:00
}
2006-10-24 04:10:12 +00:00
local = ASE_AWK_STR_BUF(&awk->token.name);
local_len = ASE_AWK_STR_LEN(&awk->token.name);
2006-02-04 19:31:51 +00:00
/* NOTE: it is not checked againt globals names */
2007-01-03 09:51:53 +00:00
if (awk->option & ASE_AWK_UNIQUEFN)
2006-03-04 10:08:13 +00:00
{
2006-12-25 13:45:43 +00:00
/* check if it conflict with a builtin function name */
if (ase_awk_getbfn (awk, local, local_len) != ASE_NULL)
{
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-25 13:45:43 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("built-in function '%.*s' redefined"),
local_len, local);
ase_awk_seterror (
awk, ASE_AWK_EBFNRED, awk->token.line,
awk->errmsg);
return ASE_NULL;
}
2006-02-04 19:31:51 +00:00
/* check if it conflict with a function name */
2006-10-24 04:10:12 +00:00
if (ase_awk_map_get (
&awk->tree.afns, local, local_len) != ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-25 13:45:43 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("function '%.*s' redefined"),
local_len, local);
ase_awk_seterror (
awk, ASE_AWK_EAFNRED, awk->token.line,
awk->errmsg);
return ASE_NULL;
2006-02-04 19:31:51 +00:00
}
}
/* check if it conflicts with a paremeter name */
2006-10-24 04:10:12 +00:00
if (ase_awk_tab_find (&awk->parse.params,
0, local, local_len) != (ase_size_t)-1)
2006-03-04 10:08:13 +00:00
{
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-25 13:45:43 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("parameter '%.*s' redefined"),
local_len, local);
ase_awk_seterror (
awk, ASE_AWK_EPARRED, awk->token.line,
awk->errmsg);
return ASE_NULL;
2006-02-04 19:31:51 +00:00
}
/* check if it conflicts with other local variable names */
2006-10-24 04:10:12 +00:00
if (ase_awk_tab_find (&awk->parse.locals,
((awk->option & ASE_AWK_SHADING)? nlocals: 0),
local, local_len) != (ase_size_t)-1)
2006-04-05 15:56:20 +00:00
{
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-25 13:45:43 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("duplicate local variable '%.*s'"),
local_len, local);
ase_awk_seterror (
awk, ASE_AWK_EDUPLCL, awk->token.line, awk->errmsg);
return ASE_NULL;
2006-02-04 19:31:51 +00:00
}
2006-10-24 04:10:12 +00:00
if (ase_awk_tab_getsize(&awk->parse.locals) >= ASE_AWK_MAX_LOCALS)
2006-08-06 15:03:42 +00:00
{
2006-12-25 13:45:43 +00:00
ase_awk_seterror (
awk, ASE_AWK_ELCLTM, awk->token.line, ASE_NULL);
return ASE_NULL;
2006-08-06 15:03:42 +00:00
}
2006-10-24 04:10:12 +00:00
if (ase_awk_tab_add (
&awk->parse.locals, local, local_len) == (ase_size_t)-1)
2006-03-04 10:08:13 +00:00
{
2006-12-25 13:45:43 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, awk->token.line, ASE_NULL);
return ASE_NULL;
2006-02-04 19:31:51 +00:00
}
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-02-04 19:31:51 +00:00
if (MATCH(awk,TOKEN_SEMICOLON)) break;
2006-12-25 13:45:43 +00:00
if (!MATCH(awk,TOKEN_COMMA))
{
2006-12-26 10:05:12 +00:00
SET_ERROR_0 (awk, ASE_AWK_ECOMMA,
ASE_T("comma expected in place of '%.*s'"));
2006-12-25 13:45:43 +00:00
return ASE_NULL;
}
2006-02-04 19:31:51 +00:00
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-02-04 19:31:51 +00:00
}
/* skip a semicolon */
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-02-04 19:31:51 +00:00
return awk;
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_statement (ase_awk_t* awk, ase_size_t line)
2006-01-10 13:57:54 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* nde;
2006-01-10 13:57:54 +00:00
2006-03-04 10:08:13 +00:00
if (MATCH(awk,TOKEN_SEMICOLON))
{
2006-01-18 16:12:59 +00:00
/* null statement */
2006-12-25 14:11:53 +00:00
nde = (ase_awk_nde_t*)
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_nde_t));
if (nde == ASE_NULL)
{
ase_awk_seterror (awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
}
2006-01-18 16:12:59 +00:00
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_NULL;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-01-18 16:12:59 +00:00
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, nde);
return ASE_NULL;
2006-01-18 16:12:59 +00:00
}
}
2006-03-04 10:08:13 +00:00
else if (MATCH(awk,TOKEN_LBRACE))
{
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-12-19 14:20:30 +00:00
nde = awk->parse.parse_block (
awk, awk->token.prev.line, ase_false);
2006-01-14 16:09:58 +00:00
}
2006-10-15 15:46:14 +00:00
else
{
2006-12-16 14:48:31 +00:00
/* the statement id held in awk->parse.id.stmnt denotes
* the token id of the statement currently being parsed.
* the current statement id is saved here because the
* statement id can be changed in __parse_statement_nb.
* it will, in turn, call __parse_statement which will
* eventually change the statement id. */
2006-10-28 12:17:57 +00:00
int old_id = awk->parse.id.stmnt;
2006-12-16 14:48:31 +00:00
/* set the current statement id */
2006-10-28 12:17:57 +00:00
awk->parse.id.stmnt = awk->token.type;
2006-12-16 14:48:31 +00:00
/* proceed parsing the statement */
2006-12-19 14:20:30 +00:00
nde = __parse_statement_nb (awk, line);
2006-12-16 14:48:31 +00:00
/* restore the statement id saved previously */
2006-10-28 12:17:57 +00:00
awk->parse.id.stmnt = old_id;
2006-10-15 15:46:14 +00:00
}
2006-01-14 16:09:58 +00:00
2006-03-03 11:45:45 +00:00
return nde;
2006-01-14 16:09:58 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_statement_nb (ase_awk_t* awk, ase_size_t line)
2006-01-14 16:09:58 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* nde;
2006-01-14 16:09:58 +00:00
2006-10-28 12:17:57 +00:00
/* keywords that don't require any terminating semicolon */
2006-03-04 10:08:13 +00:00
if (MATCH(awk,TOKEN_IF))
{
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-12-19 14:20:30 +00:00
return __parse_if (awk, line);
2006-01-10 13:57:54 +00:00
}
2006-03-04 10:08:13 +00:00
else if (MATCH(awk,TOKEN_WHILE))
{
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-08-01 15:57:43 +00:00
2006-11-25 15:51:57 +00:00
awk->parse.depth.cur.loop++;
2006-12-19 14:20:30 +00:00
nde = __parse_while (awk, line);
2006-11-25 15:51:57 +00:00
awk->parse.depth.cur.loop--;
2006-08-01 15:57:43 +00:00
return nde;
2006-01-10 13:57:54 +00:00
}
2006-03-04 10:08:13 +00:00
else if (MATCH(awk,TOKEN_FOR))
{
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-08-01 15:57:43 +00:00
2006-11-25 15:51:57 +00:00
awk->parse.depth.cur.loop++;
2006-12-19 14:20:30 +00:00
nde = __parse_for (awk, line);
2006-11-25 15:51:57 +00:00
awk->parse.depth.cur.loop--;
2006-08-01 15:57:43 +00:00
return nde;
2006-01-10 13:57:54 +00:00
}
2006-01-15 06:11:22 +00:00
2006-10-28 12:17:57 +00:00
/* keywords that require a terminating semicolon */
2006-03-04 10:08:13 +00:00
if (MATCH(awk,TOKEN_DO))
{
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-08-01 15:57:43 +00:00
2006-11-25 15:51:57 +00:00
awk->parse.depth.cur.loop++;
2006-12-19 14:20:30 +00:00
nde = __parse_dowhile (awk, line);
2006-11-25 15:51:57 +00:00
awk->parse.depth.cur.loop--;
2006-08-01 15:57:43 +00:00
return nde;
2006-01-19 10:56:35 +00:00
}
2006-03-04 10:08:13 +00:00
else if (MATCH(awk,TOKEN_BREAK))
{
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-12-19 14:20:30 +00:00
nde = __parse_break (awk, line);
2006-01-10 13:57:54 +00:00
}
2006-03-04 10:08:13 +00:00
else if (MATCH(awk,TOKEN_CONTINUE))
{
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-12-19 14:20:30 +00:00
nde = __parse_continue (awk, line);
2006-01-10 13:57:54 +00:00
}
2006-03-04 10:08:13 +00:00
else if (MATCH(awk,TOKEN_RETURN))
{
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-12-19 14:20:30 +00:00
nde = __parse_return (awk, line);
2006-01-10 13:57:54 +00:00
}
2006-03-04 10:08:13 +00:00
else if (MATCH(awk,TOKEN_EXIT))
{
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-12-19 14:20:30 +00:00
nde = __parse_exit (awk, line);
2006-01-10 13:57:54 +00:00
}
2006-07-01 16:07:06 +00:00
else if (MATCH(awk,TOKEN_NEXT))
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-12-19 14:20:30 +00:00
nde = __parse_next (awk, line);
2006-01-10 13:57:54 +00:00
}
2006-07-01 16:07:06 +00:00
else if (MATCH(awk,TOKEN_NEXTFILE))
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-12-19 14:20:30 +00:00
nde = __parse_nextfile (awk, line, 0);
2006-11-23 03:31:58 +00:00
}
2006-11-23 14:27:52 +00:00
else if (MATCH(awk,TOKEN_NEXTOFILE))
2006-11-23 03:31:58 +00:00
{
if (__get_token(awk) == -1) return ASE_NULL;
2006-12-19 14:20:30 +00:00
nde = __parse_nextfile (awk, line, 1);
2006-01-10 13:57:54 +00:00
}
2006-07-01 16:07:06 +00:00
else if (MATCH(awk,TOKEN_DELETE))
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-12-19 14:20:30 +00:00
nde = __parse_delete (awk, line);
2006-01-10 13:57:54 +00:00
}
2006-06-13 08:35:53 +00:00
else if (MATCH(awk,TOKEN_PRINT))
{
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-12-19 14:20:30 +00:00
nde = __parse_print (awk, line, ASE_AWK_NDE_PRINT);
2006-06-13 08:35:53 +00:00
}
else if (MATCH(awk,TOKEN_PRINTF))
{
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-12-19 14:20:30 +00:00
nde = __parse_print (awk, line, ASE_AWK_NDE_PRINTF);
2006-06-13 08:35:53 +00:00
}
2006-03-04 10:08:13 +00:00
else
{
2006-12-19 14:20:30 +00:00
nde = __parse_expression (awk, line);
2006-01-10 13:57:54 +00:00
}
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL) return ASE_NULL;
2006-01-13 14:16:56 +00:00
2006-01-11 11:52:17 +00:00
/* check if a statement ends with a semicolon */
2006-03-04 10:08:13 +00:00
if (!MATCH(awk,TOKEN_SEMICOLON))
{
2006-10-24 04:10:12 +00:00
if (nde != ASE_NULL) ase_awk_clrpt (awk, nde);
2006-12-26 10:05:12 +00:00
2006-12-26 13:27:02 +00:00
if (MATCH(awk,TOKEN_EOF))
{
ase_awk_seterror (
awk, ASE_AWK_EENDSRC,
awk->token.prev.line, ASE_NULL);
}
else
{
ase_awk_seterror (
awk, ASE_AWK_ESCOLON, awk->token.prev.line,
ASE_T("statement not terminated with a semicolon"));
}
2006-12-19 14:20:30 +00:00
return ASE_NULL;
2006-01-11 11:52:17 +00:00
}
/* eat up the semicolon and read in the next token */
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
if (nde != ASE_NULL) ase_awk_clrpt (awk, nde);
return ASE_NULL;
2006-01-14 14:09:52 +00:00
}
2006-01-11 11:52:17 +00:00
2006-03-03 11:45:45 +00:00
return nde;
2006-01-10 13:57:54 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_expression (ase_awk_t* awk, ase_size_t line)
2006-10-28 12:17:57 +00:00
{
ase_awk_nde_t* nde;
2006-11-26 15:55:44 +00:00
if (awk->parse.depth.max.expr > 0 &&
awk->parse.depth.cur.expr >= awk->parse.depth.max.expr)
{
2006-12-24 17:21:24 +00:00
ase_awk_seterror (
awk, ASE_AWK_ERECUR, line,
ASE_T("expression nested too deeply"));
2006-11-26 15:55:44 +00:00
return ASE_NULL;
}
2006-11-25 15:51:57 +00:00
awk->parse.depth.cur.expr++;
2006-12-19 14:20:30 +00:00
nde = __parse_expression0 (awk, line);
2006-11-25 15:51:57 +00:00
awk->parse.depth.cur.expr--;
2006-10-28 12:17:57 +00:00
return nde;
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_expression0 (ase_awk_t* awk, ase_size_t line)
2006-01-10 13:57:54 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* x, * y;
ase_awk_nde_ass_t* nde;
2006-04-14 16:26:00 +00:00
int opcode;
2006-01-20 07:33:46 +00:00
2006-12-19 14:20:30 +00:00
x = __parse_basic_expr (awk, line);
2006-10-24 04:10:12 +00:00
if (x == ASE_NULL) return ASE_NULL;
2006-01-20 07:33:46 +00:00
2006-04-14 16:26:00 +00:00
opcode = __assign_to_opcode (awk);
2006-06-29 14:38:01 +00:00
if (opcode == -1)
{
/* no assignment operator found. */
return x;
}
2006-04-14 16:26:00 +00:00
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, x->next == ASE_NULL);
2006-10-24 04:10:12 +00:00
if (!__is_var(x) && x->type != ASE_AWK_NDE_POS)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, x);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_EASSIGN, line,
ASE_T("invalid assignment expression"));
return ASE_NULL;
2006-01-20 07:33:46 +00:00
}
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, x);
return ASE_NULL;
2006-01-20 07:33:46 +00:00
}
2006-12-04 12:59:01 +00:00
/*y = __parse_basic_expr (awk);*/
2006-12-19 14:20:30 +00:00
y = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (y == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, x);
return ASE_NULL;
2006-01-20 07:33:46 +00:00
}
2006-12-04 12:59:01 +00:00
nde = (ase_awk_nde_ass_t*)
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_nde_ass_t));
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, x);
ase_awk_clrpt (awk, y);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-01-20 07:33:46 +00:00
}
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_ASS;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-04-14 16:26:00 +00:00
nde->opcode = opcode;
2006-03-03 11:45:45 +00:00
nde->left = x;
nde->right = y;
2006-01-20 07:33:46 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-01-11 11:52:17 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_basic_expr (ase_awk_t* awk, ase_size_t line)
2006-04-10 15:52:07 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* nde, * n1, * n2;
2006-04-10 15:52:07 +00:00
2006-12-19 14:20:30 +00:00
nde = __parse_logical_or (awk, line);
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL) return ASE_NULL;
2006-04-10 15:52:07 +00:00
if (MATCH(awk,TOKEN_QUEST))
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_cnd_t* tmp;
2006-04-11 09:16:20 +00:00
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-04-10 15:52:07 +00:00
2006-12-19 14:20:30 +00:00
/*n1 = __parse_basic_expr (awk, awk->token.line);*/
n1 = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (n1 == ASE_NULL)
2006-04-10 15:52:07 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, nde);
return ASE_NULL;
2006-04-10 15:52:07 +00:00
}
2006-12-25 14:11:53 +00:00
if (!MATCH(awk,TOKEN_COLON))
{
if (MATCH(awk,TOKEN_EOF))
{
ase_awk_seterror (
awk, ASE_AWK_EENDSRC,
awk->token.prev.line, ASE_NULL);
}
else
{
ase_awk_seterror (
awk, ASE_AWK_ECOLON,
awk->token.line, ASE_NULL);
}
return ASE_NULL;
}
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-04-10 15:52:07 +00:00
2006-12-19 14:20:30 +00:00
/*n2 = __parse_basic_expr (awk, awk->token.line);*/
n2 = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (n2 == ASE_NULL)
2006-04-10 15:52:07 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, nde);
ase_awk_clrpt (awk, n1);
return ASE_NULL;
2006-04-11 09:16:20 +00:00
}
2006-10-24 04:10:12 +00:00
tmp = (ase_awk_nde_cnd_t*) ASE_AWK_MALLOC (
2006-11-29 02:54:17 +00:00
awk, ASE_SIZEOF(ase_awk_nde_cnd_t));
2006-10-24 04:10:12 +00:00
if (tmp == ASE_NULL)
2006-04-11 09:16:20 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, nde);
ase_awk_clrpt (awk, n1);
ase_awk_clrpt (awk, n2);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
2006-10-24 04:10:12 +00:00
return ASE_NULL;
2006-04-10 15:52:07 +00:00
}
2006-10-24 04:10:12 +00:00
tmp->type = ASE_AWK_NDE_CND;
2006-12-19 14:20:30 +00:00
tmp->line = line;
2006-10-24 04:10:12 +00:00
tmp->next = ASE_NULL;
2006-04-11 09:16:20 +00:00
tmp->test = nde;
tmp->left = n1;
tmp->right = n2;
2006-10-24 04:10:12 +00:00
nde = (ase_awk_nde_t*)tmp;
2006-04-10 15:52:07 +00:00
}
return nde;
}
2006-10-24 04:10:12 +00:00
static ase_awk_nde_t* __parse_binary_expr (
2006-12-19 14:20:30 +00:00
ase_awk_t* awk, ase_size_t line, const __binmap_t* binmap,
ase_awk_nde_t*(*next_level_func)(ase_awk_t*,ase_size_t))
2006-03-29 16:39:04 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_exp_t* nde;
ase_awk_nde_t* left, * right;
2006-03-29 16:39:04 +00:00
int opcode;
2006-12-19 14:20:30 +00:00
left = next_level_func (awk, line);
2006-10-24 04:10:12 +00:00
if (left == ASE_NULL) return ASE_NULL;
2006-03-29 16:39:04 +00:00
while (1)
{
2006-03-30 16:24:10 +00:00
const __binmap_t* p = binmap;
2006-10-24 04:10:12 +00:00
ase_bool_t matched = ase_false;
2006-03-30 16:24:10 +00:00
while (p->token != TOKEN_EOF)
{
if (MATCH(awk,p->token))
{
opcode = p->binop;
2006-10-24 04:10:12 +00:00
matched = ase_true;
2006-03-30 16:24:10 +00:00
break;
}
p++;
}
if (!matched) break;
2006-03-29 16:39:04 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, left);
return ASE_NULL;
2006-03-29 16:39:04 +00:00
}
2006-12-19 14:20:30 +00:00
right = next_level_func (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (right == ASE_NULL)
2006-03-29 16:39:04 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, left);
return ASE_NULL;
2006-03-29 16:39:04 +00:00
}
2006-10-24 04:10:12 +00:00
nde = (ase_awk_nde_exp_t*) ASE_AWK_MALLOC (
2006-11-29 02:54:17 +00:00
awk, ASE_SIZEOF(ase_awk_nde_exp_t));
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-03-29 16:39:04 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, right);
ase_awk_clrpt (awk, left);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-03-29 16:39:04 +00:00
}
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_EXP_BIN;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-03-29 16:39:04 +00:00
nde->opcode = opcode;
nde->left = left;
nde->right = right;
2006-10-24 04:10:12 +00:00
left = (ase_awk_nde_t*)nde;
2006-03-29 16:39:04 +00:00
}
return left;
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_logical_or (ase_awk_t* awk, ase_size_t line)
2006-03-30 16:24:10 +00:00
{
2006-06-18 11:18:49 +00:00
static __binmap_t map[] =
2006-03-29 16:39:04 +00:00
{
2006-10-24 04:10:12 +00:00
{ TOKEN_LOR, ASE_AWK_BINOP_LOR },
2006-03-30 16:24:10 +00:00
{ TOKEN_EOF, 0 }
};
2006-03-29 16:39:04 +00:00
2006-12-19 14:20:30 +00:00
return __parse_binary_expr (awk, line, map, __parse_logical_and);
2006-03-30 16:24:10 +00:00
}
2006-03-29 16:39:04 +00:00
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_logical_and (ase_awk_t* awk, ase_size_t line)
2006-03-30 16:24:10 +00:00
{
2006-06-18 11:18:49 +00:00
static __binmap_t map[] =
2006-03-30 16:24:10 +00:00
{
2006-10-24 04:10:12 +00:00
{ TOKEN_LAND, ASE_AWK_BINOP_LAND },
2006-04-12 03:54:12 +00:00
{ TOKEN_EOF, 0 }
};
2006-12-19 14:20:30 +00:00
return __parse_binary_expr (awk, line, map, __parse_in);
2006-04-25 15:20:10 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_in (ase_awk_t* awk, ase_size_t line)
2006-04-25 15:20:10 +00:00
{
2006-04-26 15:53:17 +00:00
/*
2006-06-18 11:18:49 +00:00
static __binmap_t map[] =
2006-04-25 15:20:10 +00:00
{
2006-10-24 04:10:12 +00:00
{ TOKEN_IN, ASE_AWK_BINOP_IN },
2006-04-26 15:53:17 +00:00
{ TOKEN_EOF, 0 }
2006-04-25 15:20:10 +00:00
};
2006-12-19 14:20:30 +00:00
return __parse_binary_expr (awk, line, map, __parse_regex_match);
2006-04-26 15:53:17 +00:00
*/
2006-10-24 04:10:12 +00:00
ase_awk_nde_exp_t* nde;
ase_awk_nde_t* left, * right;
2006-12-26 10:05:12 +00:00
ase_size_t line2;
2006-04-26 15:53:17 +00:00
2006-12-19 14:20:30 +00:00
left = __parse_regex_match (awk, line);
2006-10-24 04:10:12 +00:00
if (left == ASE_NULL) return ASE_NULL;
2006-04-26 15:53:17 +00:00
while (1)
{
if (!MATCH(awk,TOKEN_IN)) break;
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, left);
return ASE_NULL;
2006-04-26 15:53:17 +00:00
}
2006-12-26 10:05:12 +00:00
line2 = awk->token.line;
right = __parse_regex_match (awk, line2);
2006-10-24 04:10:12 +00:00
if (right == ASE_NULL)
2006-04-26 15:53:17 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, left);
return ASE_NULL;
2006-04-26 15:53:17 +00:00
}
2006-04-29 12:41:47 +00:00
if (!__is_plain_var(right))
2006-04-26 15:53:17 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, right);
ase_awk_clrpt (awk, left);
2006-12-26 10:05:12 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOTVAR, line2,
2006-12-30 08:54:43 +00:00
ASE_T("right-hand side of the 'in' operator not a variable"));
2006-12-26 10:05:12 +00:00
return ASE_NULL;
2006-04-26 15:53:17 +00:00
}
2006-10-24 04:10:12 +00:00
nde = (ase_awk_nde_exp_t*) ASE_AWK_MALLOC (
2006-11-29 02:54:17 +00:00
awk, ASE_SIZEOF(ase_awk_nde_exp_t));
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-04-26 15:53:17 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, right);
ase_awk_clrpt (awk, left);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-04-26 15:53:17 +00:00
}
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_EXP_BIN;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
nde->opcode = ASE_AWK_BINOP_IN;
2006-04-26 15:53:17 +00:00
nde->left = left;
nde->right = right;
2006-10-24 04:10:12 +00:00
left = (ase_awk_nde_t*)nde;
2006-04-26 15:53:17 +00:00
}
return left;
2006-04-12 03:54:12 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_regex_match (ase_awk_t* awk, ase_size_t line)
2006-04-12 03:54:12 +00:00
{
2006-06-18 11:18:49 +00:00
static __binmap_t map[] =
2006-04-12 03:54:12 +00:00
{
2006-10-24 04:10:12 +00:00
{ TOKEN_TILDE, ASE_AWK_BINOP_MA },
{ TOKEN_NM, ASE_AWK_BINOP_NM },
2006-04-12 03:54:12 +00:00
{ TOKEN_EOF, 0 },
2006-03-30 16:24:10 +00:00
};
2006-03-29 16:39:04 +00:00
2006-12-19 14:20:30 +00:00
return __parse_binary_expr (awk, line, map, __parse_bitwise_or);
2006-03-29 16:39:04 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_bitwise_or (ase_awk_t* awk, ase_size_t line)
2006-03-29 16:39:04 +00:00
{
2006-10-24 04:10:12 +00:00
if (awk->option & ASE_AWK_EXTIO)
2006-03-29 16:39:04 +00:00
{
2006-12-19 14:20:30 +00:00
return __parse_bitwise_or_with_extio (awk, line);
2006-06-18 11:18:49 +00:00
}
else
{
static __binmap_t map[] =
{
2006-10-24 04:10:12 +00:00
{ TOKEN_BOR, ASE_AWK_BINOP_BOR },
2006-06-18 11:18:49 +00:00
{ TOKEN_EOF, 0 }
};
2006-03-29 16:39:04 +00:00
2006-12-19 14:20:30 +00:00
return __parse_binary_expr (
awk, line, map, __parse_bitwise_xor);
2006-06-18 11:18:49 +00:00
}
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_bitwise_or_with_extio (ase_awk_t* awk, ase_size_t line)
2006-06-18 11:18:49 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* left, * right;
2006-06-07 14:59:52 +00:00
2006-12-19 14:20:30 +00:00
left = __parse_bitwise_xor (awk, line);
2006-10-24 04:10:12 +00:00
if (left == ASE_NULL) return ASE_NULL;
2006-06-07 14:59:52 +00:00
while (1)
{
2006-06-18 10:53:06 +00:00
int in_type;
if (MATCH(awk,TOKEN_BOR))
2006-10-24 04:10:12 +00:00
in_type = ASE_AWK_IN_PIPE;
2006-06-18 10:53:06 +00:00
else if (MATCH(awk,TOKEN_BORAND))
2006-10-24 04:10:12 +00:00
in_type = ASE_AWK_IN_COPROC;
2006-06-18 10:53:06 +00:00
else break;
2006-06-07 14:59:52 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, left);
return ASE_NULL;
2006-06-07 14:59:52 +00:00
}
if (MATCH(awk,TOKEN_GETLINE))
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_getline_t* nde;
ase_awk_nde_t* var = ASE_NULL;
2006-06-12 15:11:02 +00:00
2006-06-11 15:26:12 +00:00
/* piped getline */
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, left);
return ASE_NULL;
2006-06-11 15:26:12 +00:00
}
2006-06-12 15:11:02 +00:00
/* TODO: is this correct? */
2006-06-11 15:26:12 +00:00
if (MATCH(awk,TOKEN_IDENT))
{
/* command | getline var */
2006-12-19 14:20:30 +00:00
var = __parse_primary (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (var == ASE_NULL)
2006-06-11 15:26:12 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, left);
return ASE_NULL;
2006-06-11 15:26:12 +00:00
}
}
2006-06-12 15:11:02 +00:00
2006-10-24 04:10:12 +00:00
nde = (ase_awk_nde_getline_t*) ASE_AWK_MALLOC (
2006-11-29 02:54:17 +00:00
awk, ASE_SIZEOF(ase_awk_nde_getline_t));
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-06-11 15:26:12 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, left);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-06-12 15:11:02 +00:00
}
2006-06-11 15:26:12 +00:00
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_GETLINE;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-06-12 15:11:02 +00:00
nde->var = var;
2006-06-18 10:53:06 +00:00
nde->in_type = in_type;
2006-06-13 15:11:39 +00:00
nde->in = left;
2006-06-11 15:26:12 +00:00
2006-10-24 04:10:12 +00:00
left = (ase_awk_nde_t*)nde;
2006-06-07 14:59:52 +00:00
}
else
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_exp_t* nde;
2006-06-12 15:11:02 +00:00
2006-10-24 04:10:12 +00:00
if (in_type == ASE_AWK_IN_COPROC)
2006-06-18 10:53:06 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, left);
2006-12-26 10:05:12 +00:00
/* TODO: support coprocess */
ase_awk_seterror (
awk, ASE_AWK_EGETLINE, line,
ASE_T("coprocess not supported by getline"));
return ASE_NULL;
2006-06-18 10:53:06 +00:00
}
2006-12-19 14:20:30 +00:00
right = __parse_bitwise_xor (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (right == ASE_NULL)
2006-06-11 15:26:12 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, left);
return ASE_NULL;
2006-06-11 15:26:12 +00:00
}
2006-10-24 04:10:12 +00:00
nde = (ase_awk_nde_exp_t*) ASE_AWK_MALLOC (
2006-11-29 02:54:17 +00:00
awk, ASE_SIZEOF(ase_awk_nde_exp_t));
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-06-11 15:26:12 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, right);
ase_awk_clrpt (awk, left);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-06-11 15:26:12 +00:00
}
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_EXP_BIN;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
nde->opcode = ASE_AWK_BINOP_BOR;
2006-06-11 15:26:12 +00:00
nde->left = left;
nde->right = right;
2006-10-24 04:10:12 +00:00
left = (ase_awk_nde_t*)nde;
2006-06-07 14:59:52 +00:00
}
}
return left;
2006-03-29 16:39:04 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_bitwise_xor (ase_awk_t* awk, ase_size_t line)
2006-03-29 16:39:04 +00:00
{
2006-06-18 11:18:49 +00:00
static __binmap_t map[] =
2006-03-30 16:24:10 +00:00
{
2006-10-24 04:10:12 +00:00
{ TOKEN_BXOR, ASE_AWK_BINOP_BXOR },
2006-04-12 03:54:12 +00:00
{ TOKEN_EOF, 0 }
2006-03-30 16:24:10 +00:00
};
2006-12-19 14:20:30 +00:00
return __parse_binary_expr (awk, line, map, __parse_bitwise_and);
2006-03-31 12:04:14 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_bitwise_and (ase_awk_t* awk, ase_size_t line)
2006-03-31 12:04:14 +00:00
{
2006-06-18 11:18:49 +00:00
static __binmap_t map[] =
2006-03-31 12:04:14 +00:00
{
2006-10-24 04:10:12 +00:00
{ TOKEN_BAND, ASE_AWK_BINOP_BAND },
2006-04-12 03:54:12 +00:00
{ TOKEN_EOF, 0 }
2006-03-31 12:04:14 +00:00
};
2006-12-19 14:20:30 +00:00
return __parse_binary_expr (awk, line, map, __parse_equality);
2006-01-10 13:57:54 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_equality (ase_awk_t* awk, ase_size_t line)
2006-02-08 16:14:31 +00:00
{
2006-06-18 11:18:49 +00:00
static __binmap_t map[] =
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
{ TOKEN_EQ, ASE_AWK_BINOP_EQ },
{ TOKEN_NE, ASE_AWK_BINOP_NE },
2006-03-30 16:38:51 +00:00
{ TOKEN_EOF, 0 }
};
2006-02-08 16:14:31 +00:00
2006-12-19 14:20:30 +00:00
return __parse_binary_expr (awk, line, map, __parse_relational);
2006-02-08 16:14:31 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_relational (ase_awk_t* awk, ase_size_t line)
2006-02-08 16:14:31 +00:00
{
2006-06-18 11:18:49 +00:00
static __binmap_t map[] =
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
{ TOKEN_GT, ASE_AWK_BINOP_GT },
{ TOKEN_GE, ASE_AWK_BINOP_GE },
{ TOKEN_LT, ASE_AWK_BINOP_LT },
{ TOKEN_LE, ASE_AWK_BINOP_LE },
2006-03-31 12:04:14 +00:00
{ TOKEN_EOF, 0 }
};
2006-02-08 16:14:31 +00:00
2006-12-19 14:20:30 +00:00
return __parse_binary_expr (awk, line, map, __parse_shift);
2006-02-08 16:14:31 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_shift (ase_awk_t* awk, ase_size_t line)
2006-02-08 16:14:31 +00:00
{
2006-06-18 11:18:49 +00:00
static __binmap_t map[] =
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
{ TOKEN_LSHIFT, ASE_AWK_BINOP_LSHIFT },
{ TOKEN_RSHIFT, ASE_AWK_BINOP_RSHIFT },
2006-03-31 12:04:14 +00:00
{ TOKEN_EOF, 0 }
};
2006-02-08 16:14:31 +00:00
2006-12-19 14:20:30 +00:00
return __parse_binary_expr (awk, line, map, __parse_concat);
2006-06-29 15:40:30 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_concat (ase_awk_t* awk, ase_size_t line)
2006-06-29 15:40:30 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_exp_t* nde;
ase_awk_nde_t* left, * right;
2006-06-29 15:40:30 +00:00
2006-12-19 14:20:30 +00:00
left = __parse_additive (awk, line);
2006-10-24 04:10:12 +00:00
if (left == ASE_NULL) return ASE_NULL;
2006-06-29 15:40:30 +00:00
2007-02-18 11:12:18 +00:00
while (1)
2006-06-29 15:40:30 +00:00
{
2007-02-18 11:12:18 +00:00
if (MATCH(awk,TOKEN_PERIOD))
{
if ((awk->option & ASE_AWK_EXPLICIT) == 0) break;
if (__get_token(awk) == -1) return ASE_NULL;
}
else if (MATCH(awk,TOKEN_LPAREN) ||
MATCH(awk,TOKEN_DOLLAR) ||
awk->token.type >= TOKEN_GETLINE)
{
/* TODO: is the check above sufficient? */
if ((awk->option & ASE_AWK_IMPLICIT) == 0) break;
}
else break;
2006-12-19 14:20:30 +00:00
right = __parse_additive (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (right == ASE_NULL)
2006-06-29 15:40:30 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, left);
return ASE_NULL;
2006-06-29 15:40:30 +00:00
}
2006-10-24 04:10:12 +00:00
nde = (ase_awk_nde_exp_t*) ASE_AWK_MALLOC (
2006-11-29 02:54:17 +00:00
awk, ASE_SIZEOF(ase_awk_nde_exp_t));
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-06-29 15:40:30 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, left);
ase_awk_clrpt (awk, right);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-06-29 15:40:30 +00:00
}
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_EXP_BIN;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
nde->opcode = ASE_AWK_BINOP_CONCAT;
2006-06-29 15:40:30 +00:00
nde->left = left;
nde->right = right;
2006-10-24 04:10:12 +00:00
left = (ase_awk_nde_t*)nde;
2006-06-29 15:40:30 +00:00
}
return left;
2006-02-08 16:14:31 +00:00
}
2006-01-12 14:20:17 +00:00
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_additive (ase_awk_t* awk, ase_size_t line)
2006-01-10 13:57:54 +00:00
{
2006-06-18 11:18:49 +00:00
static __binmap_t map[] =
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
{ TOKEN_PLUS, ASE_AWK_BINOP_PLUS },
{ TOKEN_MINUS, ASE_AWK_BINOP_MINUS },
2006-03-31 12:04:14 +00:00
{ TOKEN_EOF, 0 }
};
2006-01-10 13:57:54 +00:00
2006-12-19 14:20:30 +00:00
return __parse_binary_expr (awk, line, map, __parse_multiplicative);
2006-01-10 13:57:54 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_multiplicative (ase_awk_t* awk, ase_size_t line)
2006-01-10 13:57:54 +00:00
{
2006-06-18 11:18:49 +00:00
static __binmap_t map[] =
2006-03-31 12:04:14 +00:00
{
2006-12-04 06:04:07 +00:00
{ TOKEN_MUL, ASE_AWK_BINOP_MUL },
{ TOKEN_DIV, ASE_AWK_BINOP_DIV },
{ TOKEN_IDIV, ASE_AWK_BINOP_IDIV },
{ TOKEN_MOD, ASE_AWK_BINOP_MOD },
2006-11-01 04:41:20 +00:00
/* { TOKEN_EXP, ASE_AWK_BINOP_EXP }, */
2006-03-31 12:04:14 +00:00
{ TOKEN_EOF, 0 }
};
2006-12-19 14:20:30 +00:00
return __parse_binary_expr (awk, line, map, __parse_unary);
2006-04-02 12:45:04 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_unary (ase_awk_t* awk, ase_size_t line)
2006-04-02 12:45:04 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_exp_t* nde;
ase_awk_nde_t* left;
2006-01-12 14:20:17 +00:00
int opcode;
2006-01-10 13:57:54 +00:00
2006-11-01 04:41:20 +00:00
opcode = (MATCH(awk,TOKEN_PLUS))? ASE_AWK_UNROP_PLUS:
(MATCH(awk,TOKEN_MINUS))? ASE_AWK_UNROP_MINUS:
(MATCH(awk,TOKEN_NOT))? ASE_AWK_UNROP_NOT:
(MATCH(awk,TOKEN_TILDE))? ASE_AWK_UNROP_BNOT: -1;
/*if (opcode == -1) return __parse_increment (awk);*/
2006-12-19 14:20:30 +00:00
if (opcode == -1) return __parse_exponent (awk, line);
2006-11-01 04:41:20 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-11-26 15:55:44 +00:00
if (awk->parse.depth.max.expr > 0 &&
awk->parse.depth.cur.expr >= awk->parse.depth.max.expr)
{
2006-12-24 17:21:24 +00:00
ase_awk_seterror (
awk, ASE_AWK_ERECUR, awk->token.line,
ASE_T("expression nested too deeply"));
2006-11-26 15:55:44 +00:00
return ASE_NULL;
}
awk->parse.depth.cur.expr++;
2006-12-19 14:20:30 +00:00
left = __parse_unary (awk, awk->token.line);
2006-11-26 15:55:44 +00:00
awk->parse.depth.cur.expr--;
2006-11-01 04:41:20 +00:00
if (left == ASE_NULL) return ASE_NULL;
nde = (ase_awk_nde_exp_t*)
2006-11-29 02:54:17 +00:00
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_nde_exp_t));
2006-11-01 04:41:20 +00:00
if (nde == ASE_NULL)
{
ase_awk_clrpt (awk, left);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-11-01 04:41:20 +00:00
}
nde->type = ASE_AWK_NDE_EXP_UNR;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-11-01 04:41:20 +00:00
nde->next = ASE_NULL;
nde->opcode = opcode;
nde->left = left;
nde->right = ASE_NULL;
return (ase_awk_nde_t*)nde;
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_exponent (ase_awk_t* awk, ase_size_t line)
2006-11-01 04:41:20 +00:00
{
static __binmap_t map[] =
{
{ TOKEN_EXP, ASE_AWK_BINOP_EXP },
{ TOKEN_EOF, 0 }
};
2006-12-19 14:20:30 +00:00
return __parse_binary_expr (awk, line, map, __parse_unary_exp);
2006-11-01 04:41:20 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_unary_exp (ase_awk_t* awk, ase_size_t line)
2006-11-01 04:41:20 +00:00
{
ase_awk_nde_exp_t* nde;
ase_awk_nde_t* left;
int opcode;
2006-10-24 04:10:12 +00:00
opcode = (MATCH(awk,TOKEN_PLUS))? ASE_AWK_UNROP_PLUS:
(MATCH(awk,TOKEN_MINUS))? ASE_AWK_UNROP_MINUS:
(MATCH(awk,TOKEN_NOT))? ASE_AWK_UNROP_NOT:
(MATCH(awk,TOKEN_TILDE))? ASE_AWK_UNROP_BNOT: -1;
2006-04-02 12:45:04 +00:00
2006-12-19 14:20:30 +00:00
if (opcode == -1) return __parse_increment (awk, line);
2006-04-02 12:45:04 +00:00
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-04-02 12:45:04 +00:00
2006-11-26 15:55:44 +00:00
if (awk->parse.depth.max.expr > 0 &&
awk->parse.depth.cur.expr >= awk->parse.depth.max.expr)
{
2006-12-24 17:21:24 +00:00
ase_awk_seterror (
awk, ASE_AWK_ERECUR, awk->token.line,
ASE_T("expression nested too deeply"));
2006-11-26 15:55:44 +00:00
return ASE_NULL;
}
awk->parse.depth.cur.expr++;
2006-12-19 14:20:30 +00:00
left = __parse_unary (awk, awk->token.line);
2006-11-26 15:55:44 +00:00
awk->parse.depth.cur.expr--;
2006-10-24 04:10:12 +00:00
if (left == ASE_NULL) return ASE_NULL;
2006-04-02 12:45:04 +00:00
2006-11-01 04:41:20 +00:00
nde = (ase_awk_nde_exp_t*)
2006-11-29 02:54:17 +00:00
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_nde_exp_t));
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, left);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-04-02 12:45:04 +00:00
}
2006-01-10 13:57:54 +00:00
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_EXP_UNR;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-04-02 12:45:04 +00:00
nde->opcode = opcode;
nde->left = left;
2006-10-24 04:10:12 +00:00
nde->right = ASE_NULL;
2006-01-14 14:09:52 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-04-02 12:45:04 +00:00
}
2006-01-12 14:20:17 +00:00
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_increment (ase_awk_t* awk, ase_size_t line)
2006-04-02 12:45:04 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_exp_t* nde;
ase_awk_nde_t* left;
2006-04-02 12:45:04 +00:00
int type, opcode, opcode1, opcode2;
2006-01-25 04:27:01 +00:00
2006-12-26 10:05:12 +00:00
/* check for prefix increment operator */
2006-10-24 04:10:12 +00:00
opcode1 = MATCH(awk,TOKEN_PLUSPLUS)? ASE_AWK_INCOP_PLUS:
MATCH(awk,TOKEN_MINUSMINUS)? ASE_AWK_INCOP_MINUS: -1;
2006-01-25 04:27:01 +00:00
2006-04-02 12:45:04 +00:00
if (opcode1 != -1)
{
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-04-02 12:45:04 +00:00
}
2006-01-25 04:27:01 +00:00
2006-12-19 14:20:30 +00:00
left = __parse_primary (awk, line);
2006-10-24 04:10:12 +00:00
if (left == ASE_NULL) return ASE_NULL;
2006-01-12 14:20:17 +00:00
2006-12-26 10:05:12 +00:00
/* check for postfix increment operator */
2006-10-24 04:10:12 +00:00
opcode2 = MATCH(awk,TOKEN_PLUSPLUS)? ASE_AWK_INCOP_PLUS:
MATCH(awk,TOKEN_MINUSMINUS)? ASE_AWK_INCOP_MINUS: -1;
2006-01-12 14:20:17 +00:00
2006-04-02 12:45:04 +00:00
if (opcode1 != -1 && opcode2 != -1)
{
2006-12-26 10:05:12 +00:00
/* both prefix and postfix increment operator.
* not allowed */
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, left);
2006-12-26 10:05:12 +00:00
ase_awk_seterror (
awk, ASE_AWK_ELVALUE, line,
ASE_T("both prefix and postfix increment/decrement operator present"));
return ASE_NULL;
2006-04-02 12:45:04 +00:00
}
else if (opcode1 == -1 && opcode2 == -1)
{
2006-12-26 10:05:12 +00:00
/* no increment operators */
2006-04-02 12:45:04 +00:00
return left;
2006-01-10 13:57:54 +00:00
}
2006-04-02 12:45:04 +00:00
else if (opcode1 != -1)
{
2006-12-26 10:05:12 +00:00
/* prefix increment operator */
2006-10-24 04:10:12 +00:00
type = ASE_AWK_NDE_EXP_INCPRE;
2006-04-02 12:45:04 +00:00
opcode = opcode1;
}
else if (opcode2 != -1)
{
2006-12-26 10:05:12 +00:00
/* postfix increment operator */
2006-10-24 04:10:12 +00:00
type = ASE_AWK_NDE_EXP_INCPST;
2006-04-02 12:45:04 +00:00
opcode = opcode2;
2006-01-10 13:57:54 +00:00
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-04-02 12:45:04 +00:00
}
2006-01-10 13:57:54 +00:00
2006-12-19 14:20:30 +00:00
nde = (ase_awk_nde_exp_t*)
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_nde_exp_t));
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-03-31 12:04:14 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, left);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-03-31 12:04:14 +00:00
}
2006-04-02 12:45:04 +00:00
nde->type = type;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-04-02 12:45:04 +00:00
nde->opcode = opcode;
nde->left = left;
2006-10-24 04:10:12 +00:00
nde->right = ASE_NULL;
2006-04-02 12:45:04 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-01-10 13:57:54 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_primary (ase_awk_t* awk, ase_size_t line)
2006-01-10 13:57:54 +00:00
{
2006-04-05 15:56:20 +00:00
if (MATCH(awk,TOKEN_IDENT))
{
2006-12-19 14:20:30 +00:00
return __parse_primary_ident (awk, line);
2006-01-13 14:16:56 +00:00
}
2006-03-31 12:04:14 +00:00
else if (MATCH(awk,TOKEN_INT))
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_int_t* nde;
2006-01-13 14:16:56 +00:00
2006-10-24 04:10:12 +00:00
nde = (ase_awk_nde_int_t*) ASE_AWK_MALLOC (
2006-11-29 02:54:17 +00:00
awk, ASE_SIZEOF(ase_awk_nde_int_t));
2006-12-25 14:11:53 +00:00
if (nde == ASE_NULL)
{
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
}
2006-01-10 13:57:54 +00:00
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_INT;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
nde->val = ase_awk_strxtolong (awk,
ASE_AWK_STR_BUF(&awk->token.name),
ASE_AWK_STR_LEN(&awk->token.name), 0, ASE_NULL);
nde->str = ase_awk_strxdup (awk,
ASE_AWK_STR_BUF(&awk->token.name),
ASE_AWK_STR_LEN(&awk->token.name));
if (nde->str == ASE_NULL)
2006-09-11 14:29:23 +00:00
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, nde);
return ASE_NULL;
2006-09-11 14:29:23 +00:00
}
2006-10-24 04:10:12 +00:00
nde->len = ASE_AWK_STR_LEN(&awk->token.name);
2006-03-05 17:07:33 +00:00
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk,
2006-10-24 04:10:12 +00:00
ASE_AWK_STR_LEN(&awk->token.name) ==
ase_awk_strlen(ASE_AWK_STR_BUF(&awk->token.name)));
2006-01-10 13:57:54 +00:00
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, nde->str);
ASE_AWK_FREE (awk, nde);
return ASE_NULL;
2006-01-14 14:09:52 +00:00
}
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-01-10 13:57:54 +00:00
}
2006-04-05 15:56:20 +00:00
else if (MATCH(awk,TOKEN_REAL))
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_real_t* nde;
2006-03-31 12:04:14 +00:00
2006-10-24 04:10:12 +00:00
nde = (ase_awk_nde_real_t*) ASE_AWK_MALLOC (
2006-11-29 02:54:17 +00:00
awk, ASE_SIZEOF(ase_awk_nde_real_t));
2006-12-25 14:11:53 +00:00
if (nde == ASE_NULL)
{
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
}
2006-03-31 12:04:14 +00:00
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_REAL;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
nde->val = ase_awk_strxtoreal (awk,
ASE_AWK_STR_BUF(&awk->token.name),
ASE_AWK_STR_LEN(&awk->token.name), ASE_NULL);
nde->str = ase_awk_strxdup (awk,
ASE_AWK_STR_BUF(&awk->token.name),
ASE_AWK_STR_LEN(&awk->token.name));
if (nde->str == ASE_NULL)
2006-09-11 14:29:23 +00:00
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, nde);
return ASE_NULL;
2006-09-11 14:29:23 +00:00
}
2006-10-24 04:10:12 +00:00
nde->len = ASE_AWK_STR_LEN(&awk->token.name);
2006-03-31 12:04:14 +00:00
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk,
2006-10-24 04:10:12 +00:00
ASE_AWK_STR_LEN(&awk->token.name) ==
ase_awk_strlen(ASE_AWK_STR_BUF(&awk->token.name)));
2006-03-31 12:04:14 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, nde->str);
ASE_AWK_FREE (awk, nde);
return ASE_NULL;
2006-03-31 12:04:14 +00:00
}
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-03-05 17:07:33 +00:00
}
2006-04-07 04:23:11 +00:00
else if (MATCH(awk,TOKEN_STR))
2006-04-05 15:56:20 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_str_t* nde;
2006-01-13 11:25:52 +00:00
2006-10-24 04:10:12 +00:00
nde = (ase_awk_nde_str_t*) ASE_AWK_MALLOC (
2006-11-29 02:54:17 +00:00
awk, ASE_SIZEOF(ase_awk_nde_str_t));
2006-12-25 14:11:53 +00:00
if (nde == ASE_NULL)
{
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
}
2006-01-10 13:57:54 +00:00
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_STR;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
nde->len = ASE_AWK_STR_LEN(&awk->token.name);
nde->buf = ase_awk_strxdup (
awk, ASE_AWK_STR_BUF(&awk->token.name), nde->len);
if (nde->buf == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, nde);
2006-12-26 10:05:12 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-01-12 14:20:17 +00:00
}
2006-01-10 13:57:54 +00:00
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, nde->buf);
ASE_AWK_FREE (awk, nde);
return ASE_NULL;
2006-01-14 14:09:52 +00:00
}
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-01-10 13:57:54 +00:00
}
2006-04-24 11:22:42 +00:00
else if (MATCH(awk,TOKEN_DIV))
2006-04-10 15:52:07 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_rex_t* nde;
2006-07-26 16:43:35 +00:00
int errnum;
2006-04-24 11:22:42 +00:00
2006-10-22 12:39:30 +00:00
/* the regular expression is tokenized here because
2006-07-25 16:41:40 +00:00
* of the context-sensitivity of the slash symbol */
2006-04-24 11:22:42 +00:00
SET_TOKEN_TYPE (awk, TOKEN_REX);
2006-12-16 14:48:31 +00:00
2006-10-24 04:10:12 +00:00
ase_awk_str_clear (&awk->token.name);
if (__get_rexstr (awk) == -1) return ASE_NULL;
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, MATCH(awk,TOKEN_REX));
2006-04-24 11:22:42 +00:00
2006-10-24 04:10:12 +00:00
nde = (ase_awk_nde_rex_t*) ASE_AWK_MALLOC (
2006-11-29 02:54:17 +00:00
awk, ASE_SIZEOF(ase_awk_nde_rex_t));
2006-12-25 14:11:53 +00:00
if (nde == ASE_NULL)
{
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
}
2006-04-24 11:22:42 +00:00
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_REX;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-07-25 16:41:40 +00:00
2006-10-24 04:10:12 +00:00
nde->len = ASE_AWK_STR_LEN(&awk->token.name);
2006-12-16 14:48:31 +00:00
nde->buf = ase_awk_strxdup (awk,
2006-10-24 04:10:12 +00:00
ASE_AWK_STR_BUF(&awk->token.name),
ASE_AWK_STR_LEN(&awk->token.name));
if (nde->buf == ASE_NULL)
2006-07-26 15:00:01 +00:00
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, nde);
2006-12-26 10:05:12 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-07-26 15:00:01 +00:00
}
2006-12-16 14:48:31 +00:00
nde->code = ase_awk_buildrex (awk,
2006-10-24 04:10:12 +00:00
ASE_AWK_STR_BUF(&awk->token.name),
ASE_AWK_STR_LEN(&awk->token.name),
2006-07-26 16:43:35 +00:00
&errnum);
2006-10-24 04:10:12 +00:00
if (nde->code == ASE_NULL)
2006-04-24 11:22:42 +00:00
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, nde->buf);
ASE_AWK_FREE (awk, nde);
2006-12-26 10:05:12 +00:00
ase_awk_seterror (
awk, errnum, line, ASE_NULL);
return ASE_NULL;
2006-04-24 11:22:42 +00:00
}
2006-07-25 16:41:40 +00:00
2006-04-24 11:22:42 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, nde->buf);
ASE_AWK_FREE (awk, nde->code);
ASE_AWK_FREE (awk, nde);
return ASE_NULL;
2006-04-24 11:22:42 +00:00
}
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-04-10 15:52:07 +00:00
}
2006-03-04 10:08:13 +00:00
else if (MATCH(awk,TOKEN_DOLLAR))
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_pos_t* nde;
ase_awk_nde_t* prim;
2006-01-25 14:50:57 +00:00
2006-10-24 04:10:12 +00:00
if (__get_token(awk)) return ASE_NULL;
2006-01-25 14:50:57 +00:00
2006-12-19 14:20:30 +00:00
prim = __parse_primary (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (prim == ASE_NULL) return ASE_NULL;
2006-01-25 14:50:57 +00:00
2006-10-24 04:10:12 +00:00
nde = (ase_awk_nde_pos_t*) ASE_AWK_MALLOC (
2006-11-29 02:54:17 +00:00
awk, ASE_SIZEOF(ase_awk_nde_pos_t));
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, prim);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-01-25 14:50:57 +00:00
}
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_POS;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-03-05 17:07:33 +00:00
nde->val = prim;
2006-01-25 14:50:57 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-01-25 14:50:57 +00:00
}
2006-03-04 10:08:13 +00:00
else if (MATCH(awk,TOKEN_LPAREN))
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* nde;
ase_awk_nde_t* last;
2006-01-10 13:57:54 +00:00
2006-01-14 14:09:52 +00:00
/* eat up the left parenthesis */
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-01-14 14:09:52 +00:00
2006-10-22 12:39:30 +00:00
/* parse the sub-expression inside the parentheses */
2006-12-19 14:20:30 +00:00
nde = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL) return ASE_NULL;
2006-01-10 13:57:54 +00:00
2006-10-22 12:39:30 +00:00
/* parse subsequent expressions separated by a comma, if any */
2006-04-26 15:53:17 +00:00
last = nde;
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, last->next == ASE_NULL);
2006-04-26 15:53:17 +00:00
while (MATCH(awk,TOKEN_COMMA))
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* tmp;
2006-04-26 15:53:17 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, nde);
return ASE_NULL;
2006-04-26 15:53:17 +00:00
}
2006-12-19 14:20:30 +00:00
tmp = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (tmp == ASE_NULL)
2006-04-26 15:53:17 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, nde);
return ASE_NULL;
2006-04-26 15:53:17 +00:00
}
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, tmp->next == ASE_NULL);
2006-04-26 15:53:17 +00:00
last->next = tmp;
last = tmp;
}
2006-06-13 15:11:39 +00:00
/* ----------------- */
2006-04-26 15:53:17 +00:00
2006-01-14 14:09:52 +00:00
/* check for the closing parenthesis */
2006-03-04 10:08:13 +00:00
if (!MATCH(awk,TOKEN_RPAREN))
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, nde);
2006-12-26 10:05:12 +00:00
SET_ERROR_0 (awk, ASE_AWK_ERPAREN,
ASE_T("right parenthesis expected in place of '%.*s'"));
return ASE_NULL;
2006-01-11 14:03:17 +00:00
}
2006-01-14 14:09:52 +00:00
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, nde);
return ASE_NULL;
2006-01-14 14:09:52 +00:00
}
2006-01-11 14:03:17 +00:00
2006-06-13 15:11:39 +00:00
/* check if it is a chained node */
2006-10-24 04:10:12 +00:00
if (nde->next != ASE_NULL)
2006-04-26 15:53:17 +00:00
{
2006-10-22 12:39:30 +00:00
/* if so, it is a expression group */
/* (expr1, expr2, expr2) */
2006-06-13 15:11:39 +00:00
2006-10-24 04:10:12 +00:00
ase_awk_nde_grp_t* tmp;
2006-04-26 15:53:17 +00:00
2006-10-28 12:17:57 +00:00
if ((awk->parse.id.stmnt != TOKEN_PRINT &&
awk->parse.id.stmnt != TOKEN_PRINTF) ||
2006-11-25 15:51:57 +00:00
awk->parse.depth.cur.expr != 1)
2006-04-26 15:53:17 +00:00
{
2006-10-28 12:17:57 +00:00
if (!MATCH(awk,TOKEN_IN))
{
ase_awk_clrpt (awk, nde);
2006-12-26 10:05:12 +00:00
SET_ERROR_0 (awk, ASE_AWK_EIN,
ASE_T("'in' expected in place of '%.*s'"));
return ASE_NULL;
2006-10-28 12:17:57 +00:00
}
2006-04-26 15:53:17 +00:00
}
2006-10-24 04:10:12 +00:00
tmp = (ase_awk_nde_grp_t*) ASE_AWK_MALLOC (
2006-11-29 02:54:17 +00:00
awk, ASE_SIZEOF(ase_awk_nde_grp_t));
2006-10-24 04:10:12 +00:00
if (tmp == ASE_NULL)
2006-04-26 15:53:17 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, nde);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-04-26 15:53:17 +00:00
}
2006-10-24 04:10:12 +00:00
tmp->type = ASE_AWK_NDE_GRP;
2006-12-19 14:20:30 +00:00
tmp->line = line;
2006-10-24 04:10:12 +00:00
tmp->next = ASE_NULL;
2006-04-26 15:53:17 +00:00
tmp->body = nde;
2006-10-24 04:10:12 +00:00
nde = (ase_awk_nde_t*)tmp;
2006-04-26 15:53:17 +00:00
}
2006-06-13 15:11:39 +00:00
/* ----------------- */
2006-04-26 15:53:17 +00:00
2006-03-03 11:45:45 +00:00
return nde;
2006-01-10 13:57:54 +00:00
}
2006-06-13 15:11:39 +00:00
else if (MATCH(awk,TOKEN_GETLINE))
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_getline_t* nde;
ase_awk_nde_t* var = ASE_NULL;
ase_awk_nde_t* in = ASE_NULL;
2006-06-13 15:11:39 +00:00
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-06-13 15:11:39 +00:00
if (MATCH(awk,TOKEN_IDENT))
{
/* getline var */
2006-12-19 14:20:30 +00:00
var = __parse_primary (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (var == ASE_NULL) return ASE_NULL;
2006-06-13 15:11:39 +00:00
}
if (MATCH(awk, TOKEN_LT))
{
/* getline [var] < file */
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
if (var != ASE_NULL) ase_awk_clrpt (awk, var);
return ASE_NULL;
2006-06-13 15:11:39 +00:00
}
2006-07-30 15:53:42 +00:00
/* TODO: is this correct? */
2006-10-22 12:39:30 +00:00
/*in = __parse_expression (awk);*/
2006-12-19 14:20:30 +00:00
in = __parse_primary (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (in == ASE_NULL)
2006-06-13 15:11:39 +00:00
{
2006-10-24 04:10:12 +00:00
if (var != ASE_NULL) ase_awk_clrpt (awk, var);
return ASE_NULL;
2006-06-13 15:11:39 +00:00
}
}
2006-10-24 04:10:12 +00:00
nde = (ase_awk_nde_getline_t*) ASE_AWK_MALLOC (
2006-11-29 02:54:17 +00:00
awk, ASE_SIZEOF(ase_awk_nde_getline_t));
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-06-13 15:11:39 +00:00
{
2006-10-24 04:10:12 +00:00
if (var != ASE_NULL) ase_awk_clrpt (awk, var);
if (in != ASE_NULL) ase_awk_clrpt (awk, in);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-06-13 15:11:39 +00:00
}
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_GETLINE;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-06-13 15:11:39 +00:00
nde->var = var;
2006-10-24 04:10:12 +00:00
nde->in_type = (in == ASE_NULL)?
ASE_AWK_IN_CONSOLE: ASE_AWK_IN_FILE;
2006-06-13 15:11:39 +00:00
nde->in = in;
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-06-13 15:11:39 +00:00
}
2006-01-10 13:57:54 +00:00
2006-10-22 12:39:30 +00:00
/* valid expression introducer is expected */
2006-12-24 17:21:24 +00:00
ase_awk_seterror (
2006-12-25 12:01:01 +00:00
awk, ASE_AWK_EEXPRES,
(MATCH(awk,TOKEN_EOF)? awk->token.prev.line: line),
ASE_T("invalid expression"));
2006-10-27 13:49:43 +00:00
return ASE_NULL;
2006-01-10 13:57:54 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_primary_ident (ase_awk_t* awk, ase_size_t line)
2006-06-16 14:31:42 +00:00
{
2006-10-24 04:10:12 +00:00
ase_char_t* name_dup;
ase_size_t name_len;
ase_awk_bfn_t* bfn;
2006-06-16 14:31:42 +00:00
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, MATCH(awk,TOKEN_IDENT));
2006-06-16 14:31:42 +00:00
2006-10-24 04:10:12 +00:00
name_dup = ase_awk_strxdup (
2006-09-01 03:44:51 +00:00
awk,
2006-10-24 04:10:12 +00:00
ASE_AWK_STR_BUF(&awk->token.name),
ASE_AWK_STR_LEN(&awk->token.name));
2006-10-27 13:49:43 +00:00
if (name_dup == ASE_NULL)
{
2006-12-24 17:21:24 +00:00
ase_awk_seterror (awk, ASE_AWK_ENOMEM, line, ASE_NULL);
2006-10-27 13:49:43 +00:00
return ASE_NULL;
}
2006-10-24 04:10:12 +00:00
name_len = ASE_AWK_STR_LEN(&awk->token.name);
2006-06-16 14:31:42 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
return ASE_NULL;
2006-06-16 14:31:42 +00:00
}
2006-08-04 06:39:05 +00:00
/* check if name_dup is a built-in function name */
2006-10-24 04:10:12 +00:00
bfn = ase_awk_getbfn (awk, name_dup, name_len);
if (bfn != ASE_NULL)
2006-06-16 14:31:42 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* nde;
2006-06-16 14:31:42 +00:00
if (!MATCH(awk,TOKEN_LPAREN))
{
/* built-in function should be in the form
* of the function call */
2006-12-25 13:45:43 +00:00
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-25 13:45:43 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("function name '%.*s' without a left parenthesis"),
name_len, name_dup);
ASE_AWK_FREE (awk, name_dup);
ase_awk_seterror (awk, ASE_AWK_ELPAREN, line, awk->errmsg);
2006-10-27 13:49:43 +00:00
return ASE_NULL;
2006-06-16 14:31:42 +00:00
}
2006-12-25 13:45:43 +00:00
ASE_AWK_FREE (awk, name_dup);
2006-12-19 14:20:30 +00:00
nde = __parse_fncall (awk, ASE_NULL, 0, bfn, line);
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-06-16 14:31:42 +00:00
}
/* now we know that name_dup is a normal identifier. */
if (MATCH(awk,TOKEN_LBRACK))
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* nde;
2006-12-19 14:20:30 +00:00
nde = __parse_hashidx (awk, name_dup, name_len, line);
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL) ASE_AWK_FREE (awk, name_dup);
return (ase_awk_nde_t*)nde;
2006-06-16 14:31:42 +00:00
}
else if (MATCH(awk,TOKEN_LPAREN))
{
/* function call */
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* nde;
2006-12-19 14:20:30 +00:00
nde = __parse_fncall (awk, name_dup, name_len, ASE_NULL, line);
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL) ASE_AWK_FREE (awk, name_dup);
return (ase_awk_nde_t*)nde;
2006-06-16 14:31:42 +00:00
}
else
{
/* normal variable */
2006-10-24 04:10:12 +00:00
ase_awk_nde_var_t* nde;
ase_size_t idxa;
2006-06-16 14:31:42 +00:00
2006-10-24 04:10:12 +00:00
nde = (ase_awk_nde_var_t*) ASE_AWK_MALLOC (
2006-11-29 02:54:17 +00:00
awk, ASE_SIZEOF(ase_awk_nde_var_t));
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-06-16 14:31:42 +00:00
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
2006-12-24 17:21:24 +00:00
ase_awk_seterror (awk, ASE_AWK_ENOMEM, line, ASE_NULL);
2006-10-27 13:49:43 +00:00
return ASE_NULL;
2006-06-16 14:31:42 +00:00
}
/* search the parameter name list */
2006-10-24 04:10:12 +00:00
idxa = ase_awk_tab_find (
2006-08-03 06:06:27 +00:00
&awk->parse.params, 0, name_dup, name_len);
2006-10-24 04:10:12 +00:00
if (idxa != (ase_size_t)-1)
2006-06-16 14:31:42 +00:00
{
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_ARG;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
/*nde->id.name = ASE_NULL;*/
2006-06-16 14:31:42 +00:00
nde->id.name = name_dup;
2006-08-03 05:05:48 +00:00
nde->id.name_len = name_len;
2006-06-16 14:31:42 +00:00
nde->id.idxa = idxa;
2006-10-24 04:10:12 +00:00
nde->idx = ASE_NULL;
2006-06-16 14:31:42 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-06-16 14:31:42 +00:00
}
/* search the local variable list */
2006-10-24 04:10:12 +00:00
idxa = ase_awk_tab_rrfind (
2006-08-03 06:06:27 +00:00
&awk->parse.locals, 0, name_dup, name_len);
2006-10-24 04:10:12 +00:00
if (idxa != (ase_size_t)-1)
2006-06-16 14:31:42 +00:00
{
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_LOCAL;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
/*nde->id.name = ASE_NULL;*/
2006-06-16 14:31:42 +00:00
nde->id.name = name_dup;
2006-08-03 05:05:48 +00:00
nde->id.name_len = name_len;
2006-06-16 14:31:42 +00:00
nde->id.idxa = idxa;
2006-10-24 04:10:12 +00:00
nde->idx = ASE_NULL;
2006-06-16 14:31:42 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-06-16 14:31:42 +00:00
}
/* search the global variable list */
2006-10-24 04:10:12 +00:00
idxa = ase_awk_tab_rrfind (
2006-08-03 06:06:27 +00:00
&awk->parse.globals, 0, name_dup, name_len);
2006-10-24 04:10:12 +00:00
if (idxa != (ase_size_t)-1)
2006-06-16 14:31:42 +00:00
{
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_GLOBAL;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
/*nde->id.name = ASE_NULL;*/
2006-06-16 14:31:42 +00:00
nde->id.name = name_dup;
2006-08-03 05:05:48 +00:00
nde->id.name_len = name_len;
2006-06-16 14:31:42 +00:00
nde->id.idxa = idxa;
2006-10-24 04:10:12 +00:00
nde->idx = ASE_NULL;
2006-06-16 14:31:42 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-06-16 14:31:42 +00:00
}
2006-10-24 04:10:12 +00:00
if (awk->option & ASE_AWK_IMPLICIT)
2006-06-16 14:31:42 +00:00
{
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_NAMED;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-06-16 14:31:42 +00:00
nde->id.name = name_dup;
2006-08-03 05:05:48 +00:00
nde->id.name_len = name_len;
2006-10-24 04:10:12 +00:00
nde->id.idxa = (ase_size_t)-1;
nde->idx = ASE_NULL;
2006-06-16 14:31:42 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-06-16 14:31:42 +00:00
}
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-24 17:21:24 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("undefined identifier '%.*s'"),
name_len, name_dup);
2006-06-16 14:31:42 +00:00
/* undefined variable */
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, name_dup);
ASE_AWK_FREE (awk, nde);
2006-10-27 13:49:43 +00:00
2006-12-24 17:21:24 +00:00
ase_awk_seterror (awk, ASE_AWK_EUNDEF, line, awk->errmsg);
2006-10-27 13:49:43 +00:00
return ASE_NULL;
2006-06-16 14:31:42 +00:00
}
}
2006-10-24 04:10:12 +00:00
static ase_awk_nde_t* __parse_hashidx (
2006-12-19 14:20:30 +00:00
ase_awk_t* awk, ase_char_t* name, ase_size_t name_len, ase_size_t line)
2006-01-19 16:28:21 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* idx, * tmp, * last;
ase_awk_nde_var_t* nde;
ase_size_t idxa;
2006-01-19 16:28:21 +00:00
2006-10-24 04:10:12 +00:00
idx = ASE_NULL;
last = ASE_NULL;
2006-05-02 15:06:01 +00:00
do
{
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
if (idx != ASE_NULL) ase_awk_clrpt (awk, idx);
return ASE_NULL;
2006-05-02 15:06:01 +00:00
}
2006-12-19 14:20:30 +00:00
tmp = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (tmp == ASE_NULL)
2006-05-02 15:06:01 +00:00
{
2006-10-24 04:10:12 +00:00
if (idx != ASE_NULL) ase_awk_clrpt (awk, idx);
return ASE_NULL;
2006-05-02 15:06:01 +00:00
}
2006-10-24 04:10:12 +00:00
if (idx == ASE_NULL)
2006-05-02 15:06:01 +00:00
{
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, last == ASE_NULL);
2006-05-02 15:06:01 +00:00
idx = tmp; last = tmp;
}
else
{
2006-05-02 15:43:11 +00:00
last->next = tmp;
2006-05-02 15:06:01 +00:00
last = tmp;
}
}
while (MATCH(awk,TOKEN_COMMA));
2006-01-19 16:28:21 +00:00
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, idx != ASE_NULL);
2006-01-19 16:28:21 +00:00
2006-03-04 10:08:13 +00:00
if (!MATCH(awk,TOKEN_RBRACK))
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, idx);
2006-12-26 10:05:12 +00:00
SET_ERROR_0 (awk, ASE_AWK_ERBRACK,
ASE_T("right bracket expected in place of '%.*s'"));
return ASE_NULL;
2006-01-19 16:28:21 +00:00
}
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, idx);
return ASE_NULL;
2006-01-19 16:28:21 +00:00
}
2006-10-27 13:49:43 +00:00
nde = (ase_awk_nde_var_t*)
2006-11-29 02:54:17 +00:00
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_nde_var_t));
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, idx);
2006-12-24 17:21:24 +00:00
ase_awk_seterror (awk, ASE_AWK_ENOMEM, line, ASE_NULL);
2006-10-27 13:49:43 +00:00
return ASE_NULL;
2006-01-19 16:28:21 +00:00
}
2006-01-31 16:57:45 +00:00
/* search the parameter name list */
2006-10-24 04:10:12 +00:00
idxa = ase_awk_tab_find (&awk->parse.params, 0, name, name_len);
if (idxa != (ase_size_t)-1)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_ARGIDX;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
/*nde->id.name = ASE_NULL; */
2006-03-03 11:45:45 +00:00
nde->id.name = name;
2006-08-03 05:05:48 +00:00
nde->id.name_len = name_len;
2006-03-03 11:45:45 +00:00
nde->id.idxa = idxa;
nde->idx = idx;
2006-01-31 16:57:45 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-01-31 16:57:45 +00:00
}
2006-02-05 14:21:18 +00:00
/* search the local variable list */
2006-10-24 04:10:12 +00:00
idxa = ase_awk_tab_rrfind(&awk->parse.locals, 0, name, name_len);
if (idxa != (ase_size_t)-1)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_LOCALIDX;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
/*nde->id.name = ASE_NULL; */
2006-03-03 11:45:45 +00:00
nde->id.name = name;
2006-08-03 05:05:48 +00:00
nde->id.name_len = name_len;
2006-03-03 11:45:45 +00:00
nde->id.idxa = idxa;
nde->idx = idx;
2006-01-19 16:28:21 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-02-05 14:21:18 +00:00
}
/* search the global variable list */
2006-10-24 04:10:12 +00:00
idxa = ase_awk_tab_rrfind(&awk->parse.globals, 0, name, name_len);
if (idxa != (ase_size_t)-1)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_GLOBALIDX;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
/*nde->id.name = ASE_NULL;*/
2006-03-03 11:45:45 +00:00
nde->id.name = name;
2006-08-03 05:05:48 +00:00
nde->id.name_len = name_len;
2006-03-03 11:45:45 +00:00
nde->id.idxa = idxa;
2006-04-16 16:30:59 +00:00
nde->idx = idx;
2006-02-05 16:00:33 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-02-05 16:00:33 +00:00
}
2006-02-05 14:21:18 +00:00
2006-10-24 04:10:12 +00:00
if (awk->option & ASE_AWK_IMPLICIT)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_NAMEDIDX;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-03-03 11:45:45 +00:00
nde->id.name = name;
2006-08-03 05:05:48 +00:00
nde->id.name_len = name_len;
2006-10-24 04:10:12 +00:00
nde->id.idxa = (ase_size_t)-1;
2006-03-03 11:45:45 +00:00
nde->idx = idx;
2006-02-05 16:00:33 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-02-05 14:21:18 +00:00
}
/* undefined variable */
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, idx);
ASE_AWK_FREE (awk, nde);
2006-10-27 13:49:43 +00:00
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-24 17:21:24 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("undefined identifier '%.*s'"), name_len, name);
ase_awk_seterror (awk, ASE_AWK_EUNDEF, line, awk->errmsg);
2006-10-27 13:49:43 +00:00
return ASE_NULL;
2006-01-19 16:28:21 +00:00
}
2006-10-24 04:10:12 +00:00
static ase_awk_nde_t* __parse_fncall (
2006-11-28 04:30:57 +00:00
ase_awk_t* awk, ase_char_t* name, ase_size_t name_len,
2006-12-19 14:20:30 +00:00
ase_awk_bfn_t* bfn, ase_size_t line)
2006-01-13 14:16:56 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* head, * curr, * nde;
ase_awk_nde_call_t* call;
ase_size_t nargs;
2006-01-13 14:16:56 +00:00
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-01-14 14:09:52 +00:00
2006-10-24 04:10:12 +00:00
head = curr = ASE_NULL;
2006-04-18 16:04:59 +00:00
nargs = 0;
2006-01-13 14:16:56 +00:00
2006-03-04 10:08:13 +00:00
if (MATCH(awk,TOKEN_RPAREN))
{
2006-01-18 16:12:59 +00:00
/* no parameters to the function call */
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-01-18 16:12:59 +00:00
}
2006-03-04 10:08:13 +00:00
else
{
2006-08-13 16:05:04 +00:00
/* parse function parameters */
2006-03-04 10:08:13 +00:00
while (1)
{
2006-12-19 14:20:30 +00:00
nde = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
if (head != ASE_NULL) ase_awk_clrpt (awk, head);
return ASE_NULL;
2006-01-14 16:09:58 +00:00
}
2006-10-24 04:10:12 +00:00
if (head == ASE_NULL) head = nde;
2006-03-03 11:45:45 +00:00
else curr->next = nde;
curr = nde;
2006-01-14 16:09:58 +00:00
2006-04-18 16:04:59 +00:00
nargs++;
2006-03-04 10:08:13 +00:00
if (MATCH(awk,TOKEN_RPAREN))
{
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
if (head != ASE_NULL)
ase_awk_clrpt (awk, head);
return ASE_NULL;
2006-01-14 16:09:58 +00:00
}
break;
}
2006-01-13 14:16:56 +00:00
2006-03-04 10:08:13 +00:00
if (!MATCH(awk,TOKEN_COMMA))
{
2006-10-24 04:10:12 +00:00
if (head != ASE_NULL) ase_awk_clrpt (awk, head);
2006-12-26 10:05:12 +00:00
SET_ERROR_0 (awk, ASE_AWK_ECOMMA,
ASE_T("comma expected in place of '%.*s'"));
return ASE_NULL;
2006-01-14 16:09:58 +00:00
}
2006-01-13 14:16:56 +00:00
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
if (head != ASE_NULL) ase_awk_clrpt (awk, head);
return ASE_NULL;
2006-01-14 14:09:52 +00:00
}
2006-01-13 14:16:56 +00:00
}
2006-01-14 16:09:58 +00:00
}
2006-11-28 04:30:57 +00:00
call = (ase_awk_nde_call_t*)
2006-11-29 02:54:17 +00:00
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_nde_call_t));
2006-10-24 04:10:12 +00:00
if (call == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
if (head != ASE_NULL) ase_awk_clrpt (awk, head);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-01-14 16:09:58 +00:00
}
2006-10-24 04:10:12 +00:00
if (bfn != ASE_NULL)
2006-06-19 15:43:27 +00:00
{
2006-10-24 04:10:12 +00:00
call->type = ASE_AWK_NDE_BFN;
2006-12-19 14:20:30 +00:00
call->line = line;
2006-10-24 04:10:12 +00:00
call->next = ASE_NULL;
2006-07-14 04:19:22 +00:00
/*call->what.bfn = bfn; */
2006-11-27 15:11:14 +00:00
call->what.bfn.name.ptr = bfn->name.ptr;
call->what.bfn.name.len = bfn->name.len;
call->what.bfn.arg.min = bfn->arg.min;
call->what.bfn.arg.max = bfn->arg.max;
call->what.bfn.arg.spec = bfn->arg.spec;
2006-07-14 05:21:30 +00:00
call->what.bfn.handler = bfn->handler;
2006-07-14 04:19:22 +00:00
2006-06-19 15:43:27 +00:00
call->args = head;
call->nargs = nargs;
}
else
{
2006-10-24 04:10:12 +00:00
call->type = ASE_AWK_NDE_AFN;
2006-12-19 14:20:30 +00:00
call->line = line;
2006-10-24 04:10:12 +00:00
call->next = ASE_NULL;
2006-11-27 15:11:14 +00:00
call->what.afn.name.ptr = name;
call->what.afn.name.len = name_len;
2006-06-19 15:43:27 +00:00
call->args = head;
call->nargs = nargs;
}
2006-01-14 16:09:58 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)call;
2006-01-14 16:09:58 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_if (ase_awk_t* awk, ase_size_t line)
2006-01-14 16:09:58 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* test;
ase_awk_nde_t* then_part;
ase_awk_nde_t* else_part;
ase_awk_nde_if_t* nde;
2006-01-14 16:09:58 +00:00
2006-12-26 10:05:12 +00:00
if (!MATCH(awk,TOKEN_LPAREN))
{
SET_ERROR_0 (
awk, ASE_AWK_ELPAREN,
ASE_T("left parenthesis expected in place of '%.*s'"));
return ASE_NULL;
}
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-01-13 14:16:56 +00:00
2006-12-19 14:20:30 +00:00
test = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (test == ASE_NULL) return ASE_NULL;
2006-01-14 16:09:58 +00:00
2006-03-04 10:08:13 +00:00
if (!MATCH(awk,TOKEN_RPAREN))
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, test);
2006-12-26 10:05:12 +00:00
SET_ERROR_0 (
awk, ASE_AWK_ERPAREN,
ASE_T("right parenthesis expected in place of '%.*s'"));
return ASE_NULL;
2006-01-14 16:09:58 +00:00
}
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, test);
return ASE_NULL;
2006-01-14 16:09:58 +00:00
}
2006-12-19 14:20:30 +00:00
then_part = __parse_statement (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (then_part == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, test);
return ASE_NULL;
2006-01-14 16:09:58 +00:00
}
2006-03-04 10:08:13 +00:00
if (MATCH(awk,TOKEN_ELSE))
{
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, then_part);
ase_awk_clrpt (awk, test);
return ASE_NULL;
2006-01-14 16:09:58 +00:00
}
2006-12-19 14:20:30 +00:00
else_part = __parse_statement (awk, awk->token.prev.line);
2006-10-24 04:10:12 +00:00
if (else_part == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, then_part);
ase_awk_clrpt (awk, test);
return ASE_NULL;
2006-01-14 14:09:52 +00:00
}
2006-01-13 14:16:56 +00:00
}
2006-10-24 04:10:12 +00:00
else else_part = ASE_NULL;
2006-01-13 14:16:56 +00:00
2006-12-19 14:20:30 +00:00
nde = (ase_awk_nde_if_t*)
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_nde_if_t));
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, else_part);
ase_awk_clrpt (awk, then_part);
ase_awk_clrpt (awk, test);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-01-14 16:09:58 +00:00
}
2006-01-14 14:09:52 +00:00
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_IF;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-03-03 11:45:45 +00:00
nde->test = test;
nde->then_part = then_part;
nde->else_part = else_part;
2006-01-14 14:09:52 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-01-13 14:16:56 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_while (ase_awk_t* awk, ase_size_t line)
2006-01-09 12:51:47 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* test, * body;
ase_awk_nde_while_t* nde;
2006-01-18 16:12:59 +00:00
2006-12-26 10:05:12 +00:00
if (!MATCH(awk,TOKEN_LPAREN))
{
SET_ERROR_0 (
awk, ASE_AWK_ELPAREN,
ASE_T("left parenthesis expected in place of '%.*s'"));
return ASE_NULL;
}
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-01-18 16:12:59 +00:00
2006-12-19 14:20:30 +00:00
test = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (test == ASE_NULL) return ASE_NULL;
2006-01-18 16:12:59 +00:00
2006-03-04 10:08:13 +00:00
if (!MATCH(awk,TOKEN_RPAREN))
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, test);
2006-12-26 10:05:12 +00:00
SET_ERROR_0 (
awk, ASE_AWK_ERPAREN,
ASE_T("right parenthesis expected in place of '%.*s'"));
return ASE_NULL;
2006-01-18 16:12:59 +00:00
}
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, test);
return ASE_NULL;
2006-01-18 16:12:59 +00:00
}
2006-12-19 14:20:30 +00:00
body = __parse_statement (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (body == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, test);
return ASE_NULL;
2006-01-18 16:12:59 +00:00
}
2006-12-19 14:20:30 +00:00
nde = (ase_awk_nde_while_t*)
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_nde_while_t));
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, body);
ase_awk_clrpt (awk, test);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-01-18 16:12:59 +00:00
}
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_WHILE;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-03-03 11:45:45 +00:00
nde->test = test;
nde->body = body;
2006-01-18 16:12:59 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-01-09 12:51:47 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_for (ase_awk_t* awk, ase_size_t line)
2006-01-09 12:51:47 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* init, * test, * incr, * body;
ase_awk_nde_for_t* nde;
ase_awk_nde_foreach_t* nde2;
2006-01-25 04:41:56 +00:00
2006-12-26 10:05:12 +00:00
if (!MATCH(awk,TOKEN_LPAREN))
{
SET_ERROR_0 (
awk, ASE_AWK_ELPAREN,
ASE_T("left parenthesis expected in place of '%.*s'"));
return ASE_NULL;
}
2006-10-24 04:10:12 +00:00
if (__get_token(awk) == -1) return ASE_NULL;
2006-01-19 13:28:29 +00:00
2006-10-24 04:10:12 +00:00
if (MATCH(awk,TOKEN_SEMICOLON)) init = ASE_NULL;
2006-03-04 10:08:13 +00:00
else
{
2006-04-29 12:41:47 +00:00
/* this line is very ugly. it checks the entire next
2006-10-22 12:39:30 +00:00
* expression or the first element in the expression
2006-04-29 12:41:47 +00:00
* is wrapped by a parenthesis */
int no_foreach = MATCH(awk,TOKEN_LPAREN);
2006-12-19 14:20:30 +00:00
init = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (init == ASE_NULL) return ASE_NULL;
2006-01-19 13:28:29 +00:00
2006-10-24 04:10:12 +00:00
if (!no_foreach && init->type == ASE_AWK_NDE_EXP_BIN &&
((ase_awk_nde_exp_t*)init)->opcode == ASE_AWK_BINOP_IN &&
__is_plain_var(((ase_awk_nde_exp_t*)init)->left))
2006-04-29 12:09:29 +00:00
{
/* switch to foreach */
if (!MATCH(awk,TOKEN_RPAREN))
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, init);
2006-12-26 10:05:12 +00:00
SET_ERROR_0 (
awk, ASE_AWK_ERPAREN,
ASE_T("right parenthesis expected in place of '%.*s'"));
return ASE_NULL;
2006-04-29 12:09:29 +00:00
}
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, init);
return ASE_NULL;
2006-04-29 12:09:29 +00:00
}
2006-12-19 14:20:30 +00:00
body = __parse_statement (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (body == ASE_NULL)
2006-04-29 12:09:29 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, init);
return ASE_NULL;
2006-04-29 12:09:29 +00:00
}
2006-10-24 04:10:12 +00:00
nde2 = (ase_awk_nde_foreach_t*) ASE_AWK_MALLOC (
2006-11-29 02:54:17 +00:00
awk, ASE_SIZEOF(ase_awk_nde_foreach_t));
2006-10-24 04:10:12 +00:00
if (nde2 == ASE_NULL)
2006-04-29 12:09:29 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, init);
ase_awk_clrpt (awk, body);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-04-29 12:09:29 +00:00
}
2006-10-24 04:10:12 +00:00
nde2->type = ASE_AWK_NDE_FOREACH;
2006-12-19 14:20:30 +00:00
nde2->line = line;
2006-10-24 04:10:12 +00:00
nde2->next = ASE_NULL;
2006-04-29 12:09:29 +00:00
nde2->test = init;
nde2->body = body;
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde2;
2006-04-29 12:09:29 +00:00
}
2006-03-04 10:08:13 +00:00
if (!MATCH(awk,TOKEN_SEMICOLON))
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, init);
2006-12-26 10:05:12 +00:00
SET_ERROR_0 (awk, ASE_AWK_ESCOLON,
ASE_T("semicolon expected in place of '%.*s'"));
2006-12-19 14:20:30 +00:00
return ASE_NULL;
2006-01-19 13:28:29 +00:00
}
}
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, init);
return ASE_NULL;
2006-01-19 13:28:29 +00:00
}
2006-10-24 04:10:12 +00:00
if (MATCH(awk,TOKEN_SEMICOLON)) test = ASE_NULL;
2006-03-04 10:08:13 +00:00
else
{
2006-12-19 14:20:30 +00:00
test = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (test == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, init);
return ASE_NULL;
2006-01-19 13:28:29 +00:00
}
2006-03-04 10:08:13 +00:00
if (!MATCH(awk,TOKEN_SEMICOLON))
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, init);
ase_awk_clrpt (awk, test);
2006-12-26 10:05:12 +00:00
SET_ERROR_0 (awk, ASE_AWK_ESCOLON,
ASE_T("semicolon expected in place of '%.*s'"));
2006-12-19 14:20:30 +00:00
return ASE_NULL;
2006-01-19 13:28:29 +00:00
}
}
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, init);
ase_awk_clrpt (awk, test);
return ASE_NULL;
2006-01-19 13:28:29 +00:00
}
2006-10-24 04:10:12 +00:00
if (MATCH(awk,TOKEN_RPAREN)) incr = ASE_NULL;
2006-03-04 10:08:13 +00:00
else
{
2006-12-19 14:20:30 +00:00
incr = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (incr == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, init);
ase_awk_clrpt (awk, test);
return ASE_NULL;
2006-01-19 13:28:29 +00:00
}
2006-03-04 10:08:13 +00:00
if (!MATCH(awk,TOKEN_RPAREN))
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, init);
ase_awk_clrpt (awk, test);
ase_awk_clrpt (awk, incr);
2006-12-26 10:05:12 +00:00
SET_ERROR_0 (
awk, ASE_AWK_ERPAREN,
ASE_T("right parenthesis expected in place of '%.*s'"));
return ASE_NULL;
2006-01-19 13:28:29 +00:00
}
}
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, init);
ase_awk_clrpt (awk, test);
ase_awk_clrpt (awk, incr);
return ASE_NULL;
2006-01-19 13:28:29 +00:00
}
2006-12-19 14:20:30 +00:00
body = __parse_statement (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (body == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, init);
ase_awk_clrpt (awk, test);
ase_awk_clrpt (awk, incr);
return ASE_NULL;
2006-01-19 13:28:29 +00:00
}
2006-12-19 14:20:30 +00:00
nde = (ase_awk_nde_for_t*)
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_nde_for_t));
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, init);
ase_awk_clrpt (awk, test);
ase_awk_clrpt (awk, incr);
ase_awk_clrpt (awk, body);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-01-19 13:28:29 +00:00
}
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_FOR;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-03-03 11:45:45 +00:00
nde->init = init;
nde->test = test;
nde->incr = incr;
nde->body = body;
2006-01-19 13:28:29 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-01-09 12:51:47 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_dowhile (ase_awk_t* awk, ase_size_t line)
2006-01-09 12:51:47 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* test, * body;
ase_awk_nde_while_t* nde;
2006-01-19 10:56:35 +00:00
2006-12-19 14:20:30 +00:00
ASE_AWK_ASSERT (awk, awk->token.prev.type == TOKEN_DO);
body = __parse_statement (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (body == ASE_NULL) return ASE_NULL;
2006-01-19 10:56:35 +00:00
2006-03-04 10:08:13 +00:00
if (!MATCH(awk,TOKEN_WHILE))
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, body);
2006-12-26 10:05:12 +00:00
SET_ERROR_0 (
awk, ASE_AWK_EWHILE,
ASE_T("'while' expected in place of '%.*s'"));
return ASE_NULL;
2006-01-19 10:56:35 +00:00
}
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, body);
return ASE_NULL;
2006-01-19 10:56:35 +00:00
}
2006-03-04 10:08:13 +00:00
if (!MATCH(awk,TOKEN_LPAREN))
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, body);
2006-12-26 10:05:12 +00:00
SET_ERROR_0 (
awk, ASE_AWK_ELPAREN,
ASE_T("left parenthesis expected in place of '%.*s'"));
return ASE_NULL;
2006-01-19 10:56:35 +00:00
}
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, body);
return ASE_NULL;
2006-01-19 10:56:35 +00:00
}
2006-12-19 14:20:30 +00:00
test = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (test == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, body);
return ASE_NULL;
2006-01-19 10:56:35 +00:00
}
2006-03-04 10:08:13 +00:00
if (!MATCH(awk,TOKEN_RPAREN))
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, body);
ase_awk_clrpt (awk, test);
2006-12-26 10:05:12 +00:00
SET_ERROR_0 (
awk, ASE_AWK_ERPAREN,
ASE_T("right parenthesis expected in place of '%.*s'"));
return ASE_NULL;
2006-01-19 10:56:35 +00:00
}
2006-03-04 10:08:13 +00:00
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, body);
ase_awk_clrpt (awk, test);
return ASE_NULL;
2006-01-19 10:56:35 +00:00
}
2006-12-19 14:20:30 +00:00
nde = (ase_awk_nde_while_t*)
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_nde_while_t));
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, body);
ase_awk_clrpt (awk, test);
2006-12-25 14:11:53 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
2006-01-19 10:56:35 +00:00
}
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_DOWHILE;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-03-03 11:45:45 +00:00
nde->test = test;
nde->body = body;
2006-01-19 10:56:35 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-01-09 12:51:47 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_break (ase_awk_t* awk, ase_size_t line)
2006-01-09 12:51:47 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_break_t* nde;
2006-01-09 12:51:47 +00:00
2006-12-19 14:20:30 +00:00
ASE_AWK_ASSERT (awk, awk->token.prev.type == TOKEN_BREAK);
2006-12-26 10:05:12 +00:00
if (awk->parse.depth.cur.loop <= 0)
{
ase_awk_seterror (
awk, ASE_AWK_EBREAK, line,
ASE_T("break statement outside a loop"));
return ASE_NULL;
}
2006-08-01 15:57:43 +00:00
2006-12-19 14:20:30 +00:00
nde = (ase_awk_nde_break_t*)
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_nde_break_t));
2006-12-25 14:11:53 +00:00
if (nde == ASE_NULL)
{
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
}
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_BREAK;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-01-09 12:51:47 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-01-09 12:51:47 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_continue (ase_awk_t* awk, ase_size_t line)
2006-01-09 12:51:47 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_continue_t* nde;
2006-01-09 12:51:47 +00:00
2006-12-19 14:20:30 +00:00
ASE_AWK_ASSERT (awk, awk->token.prev.type == TOKEN_CONTINUE);
2006-12-26 10:05:12 +00:00
if (awk->parse.depth.cur.loop <= 0)
{
ase_awk_seterror (
awk, ASE_AWK_ECONTINUE, line,
ASE_T("continue statement outside a loop"));
return ASE_NULL;
}
2006-08-01 15:57:43 +00:00
2006-12-19 14:20:30 +00:00
nde = (ase_awk_nde_continue_t*)
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_nde_continue_t));
2006-12-25 14:11:53 +00:00
if (nde == ASE_NULL)
{
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
}
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_CONTINUE;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-01-09 12:51:47 +00:00
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2005-11-15 15:59:23 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_return (ase_awk_t* awk, ase_size_t line)
2006-01-14 14:09:52 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_return_t* nde;
ase_awk_nde_t* val;
2006-01-14 14:09:52 +00:00
2006-12-19 14:20:30 +00:00
ASE_AWK_ASSERT (awk, awk->token.prev.type == TOKEN_RETURN);
2006-10-24 04:10:12 +00:00
nde = (ase_awk_nde_return_t*) ASE_AWK_MALLOC (
2006-11-29 02:54:17 +00:00
awk, ASE_SIZEOF(ase_awk_nde_return_t));
2006-12-25 14:11:53 +00:00
if (nde == ASE_NULL)
{
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
}
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_RETURN;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-01-14 14:09:52 +00:00
2006-03-04 10:08:13 +00:00
if (MATCH(awk,TOKEN_SEMICOLON))
{
2006-01-28 06:38:01 +00:00
/* no return value */
2006-10-24 04:10:12 +00:00
val = ASE_NULL;
2006-01-28 06:38:01 +00:00
}
2006-03-04 10:08:13 +00:00
else
{
2006-12-19 14:20:30 +00:00
val = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (val == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, nde);
return ASE_NULL;
2006-01-28 06:38:01 +00:00
}
2006-01-14 14:09:52 +00:00
}
2006-03-05 17:07:33 +00:00
nde->val = val;
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-01-14 14:09:52 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_exit (ase_awk_t* awk, ase_size_t line)
2006-01-14 14:09:52 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_exit_t* nde;
ase_awk_nde_t* val;
2006-01-14 14:09:52 +00:00
2006-12-19 14:20:30 +00:00
ASE_AWK_ASSERT (awk, awk->token.prev.type == TOKEN_EXIT);
nde = (ase_awk_nde_exit_t*)
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_nde_exit_t));
2006-12-25 14:11:53 +00:00
if (nde == ASE_NULL)
{
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
}
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_EXIT;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-01-14 14:09:52 +00:00
2006-03-04 10:08:13 +00:00
if (MATCH(awk,TOKEN_SEMICOLON))
{
2006-01-28 06:38:01 +00:00
/* no exit code */
2006-10-24 04:10:12 +00:00
val = ASE_NULL;
2006-01-28 06:38:01 +00:00
}
2006-03-04 10:08:13 +00:00
else
{
2006-12-19 14:20:30 +00:00
val = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (val == ASE_NULL)
2006-03-04 10:08:13 +00:00
{
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, nde);
return ASE_NULL;
2006-01-28 06:38:01 +00:00
}
2006-01-14 14:09:52 +00:00
}
2006-03-05 17:07:33 +00:00
nde->val = val;
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-01-14 14:09:52 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_next (ase_awk_t* awk, ase_size_t line)
{
ase_awk_nde_next_t* nde;
ASE_AWK_ASSERT (awk, awk->token.prev.type == TOKEN_NEXT);
2006-12-26 10:05:12 +00:00
if (awk->parse.id.block == PARSE_BEGIN_BLOCK)
2006-12-19 14:20:30 +00:00
{
2006-12-26 10:05:12 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENEXT, line,
ASE_T("next statement in BEGIN block"));
return ASE_NULL;
}
if (awk->parse.id.block == PARSE_END_BLOCK)
{
ase_awk_seterror (
awk, ASE_AWK_ENEXT, line,
ASE_T("next statement in END block"));
return ASE_NULL;
2006-12-19 14:20:30 +00:00
}
nde = (ase_awk_nde_next_t*)
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_nde_next_t));
2006-12-25 14:11:53 +00:00
if (nde == ASE_NULL)
{
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
}
2006-12-19 14:20:30 +00:00
nde->type = ASE_AWK_NDE_NEXT;
nde->line = line;
nde->next = ASE_NULL;
return (ase_awk_nde_t*)nde;
}
static ase_awk_nde_t* __parse_nextfile (ase_awk_t* awk, ase_size_t line, int out)
{
ase_awk_nde_nextfile_t* nde;
2006-12-26 10:05:12 +00:00
if (awk->parse.id.block == PARSE_BEGIN_BLOCK)
2006-12-19 14:20:30 +00:00
{
2006-12-26 10:05:12 +00:00
ase_awk_seterror (
awk, ASE_AWK_ENEXTFILE, line,
ASE_T("nextfile statement in BEGIN block"));
return ASE_NULL;
}
if (awk->parse.id.block == PARSE_END_BLOCK)
{
ase_awk_seterror (
awk, ASE_AWK_ENEXTFILE, line,
ASE_T("nextfile statement in END block"));
return ASE_NULL;
2006-12-19 14:20:30 +00:00
}
nde = (ase_awk_nde_nextfile_t*)
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_nde_nextfile_t));
2006-12-25 14:11:53 +00:00
if (nde == ASE_NULL)
{
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
}
2006-12-19 14:20:30 +00:00
nde->type = ASE_AWK_NDE_NEXTFILE;
nde->line = line;
nde->next = ASE_NULL;
nde->out = out;
return (ase_awk_nde_t*)nde;
}
static ase_awk_nde_t* __parse_delete (ase_awk_t* awk, ase_size_t line)
2006-03-31 16:35:37 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_delete_t* nde;
ase_awk_nde_t* var;
2006-06-27 14:18:19 +00:00
2006-12-19 14:20:30 +00:00
ASE_AWK_ASSERT (awk, awk->token.prev.type == TOKEN_DELETE);
2006-12-26 10:05:12 +00:00
if (!MATCH(awk,TOKEN_IDENT))
{
SET_ERROR_0 (
awk, ASE_AWK_EIDENT,
ASE_T("identifier expected in place of '%.*s'"));
return ASE_NULL;
}
2006-06-27 14:18:19 +00:00
2006-12-19 14:20:30 +00:00
var = __parse_primary_ident (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (var == ASE_NULL) return ASE_NULL;
2006-06-27 14:18:19 +00:00
2006-06-27 14:32:03 +00:00
if (!__is_var (var))
2006-06-27 14:18:19 +00:00
{
2006-10-22 12:39:30 +00:00
/* a normal identifier is expected */
2006-10-24 04:10:12 +00:00
ase_awk_clrpt (awk, var);
2006-12-26 10:05:12 +00:00
ase_awk_seterror (awk, ASE_AWK_EIDENT, line,
ASE_T("'delete' not followed by a normal variable"));
return ASE_NULL;
2006-06-27 14:18:19 +00:00
}
2006-10-24 04:10:12 +00:00
nde = (ase_awk_nde_delete_t*) ASE_AWK_MALLOC (
2006-11-29 02:54:17 +00:00
awk, ASE_SIZEOF(ase_awk_nde_delete_t));
2006-12-25 14:11:53 +00:00
if (nde == ASE_NULL)
{
ase_awk_seterror (
awk, ASE_AWK_ENOMEM, line, ASE_NULL);
return ASE_NULL;
}
2006-06-27 14:18:19 +00:00
2006-10-24 04:10:12 +00:00
nde->type = ASE_AWK_NDE_DELETE;
2006-12-19 14:20:30 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-06-27 14:18:19 +00:00
nde->var = var;
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-03-31 16:35:37 +00:00
}
2006-12-19 14:20:30 +00:00
static ase_awk_nde_t* __parse_print (ase_awk_t* awk, ase_size_t line, int type)
2006-06-13 08:35:53 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_print_t* nde;
ase_awk_nde_t* args = ASE_NULL;
ase_awk_nde_t* out = ASE_NULL;
2006-06-25 15:26:57 +00:00
int out_type;
2006-06-13 08:35:53 +00:00
if (!MATCH(awk,TOKEN_SEMICOLON) &&
!MATCH(awk,TOKEN_GT) &&
2006-06-22 14:15:02 +00:00
!MATCH(awk,TOKEN_RSHIFT) &&
2006-06-18 10:53:06 +00:00
!MATCH(awk,TOKEN_BOR) &&
!MATCH(awk,TOKEN_BORAND))
2006-06-13 08:35:53 +00:00
{
2006-10-27 13:49:43 +00:00
ase_awk_nde_t* args_tail;
ase_awk_nde_t* tail_prev;
2006-12-19 14:20:30 +00:00
args = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (args == ASE_NULL) return ASE_NULL;
2006-06-13 08:35:53 +00:00
2006-06-27 10:53:04 +00:00
args_tail = args;
2006-10-24 04:10:12 +00:00
tail_prev = ASE_NULL;
2006-06-13 08:35:53 +00:00
2006-10-28 12:17:57 +00:00
if (args->type != ASE_AWK_NDE_GRP)
2006-06-13 08:35:53 +00:00
{
2006-10-28 12:17:57 +00:00
/* args->type == ASE_AWK_NDE_GRP when print (a, b, c)
* args->type != ASE_AWK_NDE_GRP when print a, b, c */
while (MATCH(awk,TOKEN_COMMA))
2006-06-27 10:53:04 +00:00
{
2006-10-28 12:17:57 +00:00
if (__get_token(awk) == -1)
{
ase_awk_clrpt (awk, args);
return ASE_NULL;
}
2006-06-27 10:53:04 +00:00
2006-12-19 14:20:30 +00:00
args_tail->next = __parse_expression (awk, awk->token.line);
2006-10-28 12:17:57 +00:00
if (args_tail->next == ASE_NULL)
{
ase_awk_clrpt (awk, args);
return ASE_NULL;
}
2006-06-27 10:53:04 +00:00
2006-10-28 12:17:57 +00:00
tail_prev = args_tail;
args_tail = args_tail->next;
}
2006-06-13 08:35:53 +00:00
}
2006-06-27 10:53:04 +00:00
/* print 1 > 2 would print 1 to the file named 2.
2006-12-16 14:48:31 +00:00
* print (1 > 2) would print (1 > 2) on the console */
if (awk->token.prev.type != TOKEN_RPAREN &&
2006-10-24 04:10:12 +00:00
args_tail->type == ASE_AWK_NDE_EXP_BIN)
2006-06-13 08:35:53 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_exp_t* ep = (ase_awk_nde_exp_t*)args_tail;
if (ep->opcode == ASE_AWK_BINOP_GT)
2006-06-27 10:53:04 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* tmp = args_tail;
2006-06-27 10:53:04 +00:00
2006-10-24 04:10:12 +00:00
if (tail_prev != ASE_NULL)
2006-06-27 10:53:04 +00:00
tail_prev->next = ep->left;
else args = ep->left;
out = ep->right;
2006-10-24 04:10:12 +00:00
out_type = ASE_AWK_OUT_FILE;
2006-06-27 10:53:04 +00:00
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, tmp);
2006-06-27 10:53:04 +00:00
}
2006-10-24 04:10:12 +00:00
else if (ep->opcode == ASE_AWK_BINOP_RSHIFT)
2006-06-27 10:53:04 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* tmp = args_tail;
2006-06-27 10:53:04 +00:00
2006-10-24 04:10:12 +00:00
if (tail_prev != ASE_NULL)
2006-06-27 10:53:04 +00:00
tail_prev->next = ep->left;
else args = ep->left;
out = ep->right;
2006-10-24 04:10:12 +00:00
out_type = ASE_AWK_OUT_FILE_APPEND;
2006-06-27 10:53:04 +00:00
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, tmp);
2006-08-23 15:42:16 +00:00
}
2006-10-24 04:10:12 +00:00
else if (ep->opcode == ASE_AWK_BINOP_BOR)
2006-08-23 15:42:16 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_nde_t* tmp = args_tail;
2006-08-23 15:42:16 +00:00
2006-10-24 04:10:12 +00:00
if (tail_prev != ASE_NULL)
2006-08-23 15:42:16 +00:00
tail_prev->next = ep->left;
else args = ep->left;
out = ep->right;
2006-10-24 04:10:12 +00:00
out_type = ASE_AWK_OUT_PIPE;
2006-08-23 15:42:16 +00:00
2006-10-24 04:10:12 +00:00
ASE_AWK_FREE (awk, tmp);
2006-06-27 10:53:04 +00:00
}
}
}
2006-10-24 04:10:12 +00:00
if (out == ASE_NULL)
2006-06-27 10:53:04 +00:00
{
2006-10-24 04:10:12 +00:00
out_type = MATCH(awk,TOKEN_GT)? ASE_AWK_OUT_FILE:
MATCH(awk,TOKEN_RSHIFT)? ASE_AWK_OUT_FILE_APPEND:
MATCH(awk,TOKEN_BOR)? ASE_AWK_OUT_PIPE:
MATCH(awk,TOKEN_BORAND)? ASE_AWK_OUT_COPROC:
ASE_AWK_OUT_CONSOLE;
2006-06-27 10:53:04 +00:00
2006-10-24 04:10:12 +00:00
if (out_type != ASE_AWK_OUT_CONSOLE)
2006-06-27 10:53:04 +00:00
{
if (__get_token(awk) == -1)
{
2006-10-24 04:10:12 +00:00
if (args != ASE_NULL) ase_awk_clrpt (awk, args);
return ASE_NULL;
2006-06-27 10:53:04 +00:00
}
2006-12-19 14:20:30 +00:00
out = __parse_expression (awk, awk->token.line);
2006-10-24 04:10:12 +00:00
if (out == ASE_NULL)
2006-06-27 10:53:04 +00:00
{
2006-10-24 04:10:12 +00:00
if (args != ASE_NULL) ase_awk_clrpt (awk, args);
return ASE_NULL;
2006-06-27 10:53:04 +00:00
}
2006-06-13 08:35:53 +00:00
}
}
2006-10-27 13:49:43 +00:00
nde = (ase_awk_nde_print_t*)
2006-11-29 02:54:17 +00:00
ASE_AWK_MALLOC (awk, ASE_SIZEOF(ase_awk_nde_print_t));
2006-10-24 04:10:12 +00:00
if (nde == ASE_NULL)
2006-06-13 08:35:53 +00:00
{
2006-10-24 04:10:12 +00:00
if (args != ASE_NULL) ase_awk_clrpt (awk, args);
if (out != ASE_NULL) ase_awk_clrpt (awk, out);
2006-10-31 10:13:15 +00:00
2006-12-24 17:21:24 +00:00
ase_awk_seterror (awk, ASE_AWK_ENOMEM, line, ASE_NULL);
2006-10-31 10:13:15 +00:00
return ASE_NULL;
2006-06-13 08:35:53 +00:00
}
2006-10-31 10:13:15 +00:00
ASE_AWK_ASSERTX (awk,
type == ASE_AWK_NDE_PRINT || type == ASE_AWK_NDE_PRINTF,
2006-11-13 15:08:54 +00:00
"the node type should be either ASE_AWK_NDE_PRINT or ASE_AWK_NDE_PRINTF");
2006-10-31 10:13:15 +00:00
if (type == ASE_AWK_NDE_PRINTF && args == ASE_NULL)
{
if (out != ASE_NULL) ase_awk_clrpt (awk, out);
2006-12-24 17:21:24 +00:00
ase_awk_seterror (
awk, ASE_AWK_EPRINTFARG, line,
ASE_T("printf not followed by any arguments"));
2006-10-31 10:13:15 +00:00
return ASE_NULL;
}
nde->type = type;
2006-12-17 14:56:07 +00:00
nde->line = line;
2006-10-24 04:10:12 +00:00
nde->next = ASE_NULL;
2006-06-13 08:35:53 +00:00
nde->args = args;
nde->out_type = out_type;
nde->out = out;
2006-10-24 04:10:12 +00:00
return (ase_awk_nde_t*)nde;
2006-01-20 07:33:46 +00:00
}
2006-10-24 04:10:12 +00:00
static int __get_token (ase_awk_t* awk)
2005-11-14 15:23:54 +00:00
{
2006-10-24 04:10:12 +00:00
ase_cint_t c;
ase_size_t line;
2005-11-14 15:23:54 +00:00
int n;
2006-08-03 09:54:16 +00:00
line = awk->token.line;
2006-12-16 14:48:31 +00:00
awk->token.prev.type = awk->token.type;
awk->token.prev.line = awk->token.line;
awk->token.prev.column = awk->token.column;
2006-04-07 04:23:11 +00:00
do
{
2005-11-14 15:23:54 +00:00
if (__skip_spaces(awk) == -1) return -1;
if ((n = __skip_comment(awk)) == -1) return -1;
2006-04-07 04:23:11 +00:00
}
while (n == 1);
2005-11-14 15:23:54 +00:00
2006-10-24 04:10:12 +00:00
ase_awk_str_clear (&awk->token.name);
2006-08-06 08:16:03 +00:00
awk->token.line = awk->src.lex.line;
awk->token.column = awk->src.lex.column;
2006-05-13 16:33:07 +00:00
2006-10-24 04:10:12 +00:00
if (line != 0 && (awk->option & ASE_AWK_BLOCKLESS) &&
2006-08-03 15:50:04 +00:00
(awk->parse.id.block == PARSE_PATTERN ||
awk->parse.id.block == PARSE_BEGIN ||
awk->parse.id.block == PARSE_END))
2006-08-03 09:54:16 +00:00
{
if (awk->token.line != line)
{
SET_TOKEN_TYPE (awk, TOKEN_NEWLINE);
return 0;
}
}
2006-08-06 08:16:03 +00:00
c = awk->src.lex.curc;
2005-11-14 15:23:54 +00:00
2006-10-24 04:10:12 +00:00
if (c == ASE_CHAR_EOF)
2006-03-04 10:08:13 +00:00
{
2005-11-14 15:23:54 +00:00
SET_TOKEN_TYPE (awk, TOKEN_EOF);
}
2006-10-26 14:22:01 +00:00
else if (ASE_AWK_ISDIGIT (awk, c)/*|| c == ASE_T('.')*/)
2006-03-04 10:08:13 +00:00
{
2006-09-01 06:23:58 +00:00
if (__get_number (awk) == -1) return -1;
2005-11-14 15:23:54 +00:00
}
2006-10-26 14:22:01 +00:00
else if (c == ASE_T('.'))
{
if (__get_char (awk) == -1) return -1;
c = awk->src.lex.curc;
2007-02-18 11:21:34 +00:00
if ((awk->option & ASE_AWK_EXPLICIT) == 0 &&
ASE_AWK_ISDIGIT (awk, c))
2006-10-26 14:22:01 +00:00
{
2007-02-18 11:12:18 +00:00
awk->src.lex.curc = ASE_T('.');
2006-10-26 14:22:01 +00:00
if (__unget_char (awk, c) == -1) return -1;
if (__get_number (awk) == -1) return -1;
2007-02-18 11:12:18 +00:00
2006-10-26 14:22:01 +00:00
}
2007-02-18 11:12:18 +00:00
else /*if (ASE_AWK_ISSPACE (awk, c) || c == ASE_CHAR_EOF)*/
{
SET_TOKEN_TYPE (awk, TOKEN_PERIOD);
ADD_TOKEN_CHAR (awk, ASE_T('.'));
}
/*
else
2006-10-26 14:22:01 +00:00
{
2006-12-24 17:21:24 +00:00
ase_awk_seterror (
awk, ASE_AWK_ELXCHR, awk->token.line,
ASE_T("floating point not followed by any valid digits"));
2006-10-26 14:22:01 +00:00
return -1;
}
2007-02-18 11:12:18 +00:00
*/
2006-10-26 14:22:01 +00:00
}
2006-10-24 04:10:12 +00:00
else if (ASE_AWK_ISALPHA (awk, c) || c == ASE_T('_'))
2006-03-04 10:08:13 +00:00
{
2006-06-16 14:31:42 +00:00
int type;
2005-11-15 15:32:39 +00:00
/* identifier */
2006-04-07 04:23:11 +00:00
do
{
2005-11-15 15:32:39 +00:00
ADD_TOKEN_CHAR (awk, c);
GET_CHAR_TO (awk, c);
2006-04-07 04:23:11 +00:00
}
2006-10-24 04:10:12 +00:00
while (ASE_AWK_ISALPHA (awk, c) ||
c == ASE_T('_') || ASE_AWK_ISDIGIT(awk,c));
2005-11-15 15:32:39 +00:00
2006-08-03 09:54:16 +00:00
type = __classify_ident (awk,
2006-10-24 04:10:12 +00:00
ASE_AWK_STR_BUF(&awk->token.name),
ASE_AWK_STR_LEN(&awk->token.name));
2006-06-16 14:31:42 +00:00
SET_TOKEN_TYPE (awk, type);
2005-11-14 15:23:54 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('\"'))
2006-03-04 10:08:13 +00:00
{
2006-04-07 04:23:11 +00:00
SET_TOKEN_TYPE (awk, TOKEN_STR);
2006-01-11 14:03:17 +00:00
2006-08-01 04:36:33 +00:00
if (__get_charstr(awk) == -1) return -1;
2006-07-30 15:53:42 +00:00
2006-10-24 04:10:12 +00:00
while (awk->option & ASE_AWK_STRCONCAT)
2006-04-07 04:23:11 +00:00
{
do
{
if (__skip_spaces(awk) == -1) return -1;
if ((n = __skip_comment(awk)) == -1) return -1;
}
while (n == 1);
2006-08-06 08:16:03 +00:00
c = awk->src.lex.curc;
2006-10-24 04:10:12 +00:00
if (c != ASE_T('\"')) break;
2006-04-07 04:23:11 +00:00
2006-08-01 04:36:33 +00:00
if (__get_charstr(awk) == -1) return -1;
2006-04-07 04:23:11 +00:00
}
2006-07-30 15:53:42 +00:00
2005-11-15 15:32:39 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('='))
2006-03-04 10:08:13 +00:00
{
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2005-11-14 15:23:54 +00:00
GET_CHAR_TO (awk, c);
2006-10-24 04:10:12 +00:00
if (c == ASE_T('='))
2006-03-04 10:08:13 +00:00
{
2005-11-14 15:23:54 +00:00
SET_TOKEN_TYPE (awk, TOKEN_EQ);
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2005-11-14 15:23:54 +00:00
}
2006-03-04 10:08:13 +00:00
else
{
2005-11-14 15:23:54 +00:00
SET_TOKEN_TYPE (awk, TOKEN_ASSIGN);
}
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('!'))
2006-03-04 10:08:13 +00:00
{
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2005-11-14 15:23:54 +00:00
GET_CHAR_TO (awk, c);
2006-10-24 04:10:12 +00:00
if (c == ASE_T('='))
2006-03-04 10:08:13 +00:00
{
2005-11-14 15:23:54 +00:00
SET_TOKEN_TYPE (awk, TOKEN_NE);
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2005-11-14 15:23:54 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('~'))
2006-04-11 15:44:30 +00:00
{
SET_TOKEN_TYPE (awk, TOKEN_NM);
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-04-11 15:44:30 +00:00
}
2006-03-04 10:08:13 +00:00
else
{
2005-11-14 15:23:54 +00:00
SET_TOKEN_TYPE (awk, TOKEN_NOT);
}
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('>'))
2006-03-04 10:08:13 +00:00
{
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-02-08 16:14:31 +00:00
GET_CHAR_TO (awk, c);
2006-10-24 04:10:12 +00:00
if ((awk->option & ASE_AWK_SHIFT) && c == ASE_T('>'))
2006-03-04 10:08:13 +00:00
{
2006-02-08 16:14:31 +00:00
SET_TOKEN_TYPE (awk, TOKEN_RSHIFT);
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-02-08 16:14:31 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('='))
2006-03-04 10:08:13 +00:00
{
2006-02-08 16:14:31 +00:00
SET_TOKEN_TYPE (awk, TOKEN_GE);
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-02-08 16:14:31 +00:00
}
2006-03-04 10:08:13 +00:00
else
{
2006-02-08 16:14:31 +00:00
SET_TOKEN_TYPE (awk, TOKEN_GT);
}
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('<'))
2006-03-04 10:08:13 +00:00
{
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-02-08 16:14:31 +00:00
GET_CHAR_TO (awk, c);
2006-08-03 09:54:16 +00:00
2006-10-24 04:10:12 +00:00
if ((awk->option & ASE_AWK_SHIFT) && c == ASE_T('<'))
2006-03-04 10:08:13 +00:00
{
2006-02-08 16:14:31 +00:00
SET_TOKEN_TYPE (awk, TOKEN_LSHIFT);
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-02-08 16:14:31 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('='))
2006-03-04 10:08:13 +00:00
{
2006-02-08 16:14:31 +00:00
SET_TOKEN_TYPE (awk, TOKEN_LE);
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-02-08 16:14:31 +00:00
}
2006-03-04 10:08:13 +00:00
else
{
2006-02-08 16:14:31 +00:00
SET_TOKEN_TYPE (awk, TOKEN_LT);
}
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('|'))
2006-03-29 16:39:04 +00:00
{
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-03-29 16:39:04 +00:00
GET_CHAR_TO (awk, c);
2006-10-24 04:10:12 +00:00
if (c == ASE_T('|'))
2006-03-29 16:39:04 +00:00
{
SET_TOKEN_TYPE (awk, TOKEN_LOR);
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-03-29 16:39:04 +00:00
}
2006-12-15 14:58:37 +00:00
else if ((awk->option & ASE_AWK_COPROC) && c == ASE_T('&'))
2006-06-18 10:53:06 +00:00
{
SET_TOKEN_TYPE (awk, TOKEN_BORAND);
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-06-18 10:53:06 +00:00
}
2006-03-29 16:39:04 +00:00
else
{
SET_TOKEN_TYPE (awk, TOKEN_BOR);
}
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('&'))
2006-03-29 16:39:04 +00:00
{
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-03-29 16:39:04 +00:00
GET_CHAR_TO (awk, c);
2006-10-24 04:10:12 +00:00
if (c == ASE_T('&'))
2006-03-29 16:39:04 +00:00
{
SET_TOKEN_TYPE (awk, TOKEN_LAND);
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-03-29 16:39:04 +00:00
}
else
{
SET_TOKEN_TYPE (awk, TOKEN_BAND);
}
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('~'))
2006-03-31 12:04:14 +00:00
{
2006-04-12 03:54:12 +00:00
SET_TOKEN_TYPE (awk, TOKEN_TILDE);
2006-03-31 12:04:14 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-03-31 12:04:14 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('^'))
2006-04-11 15:44:30 +00:00
{
SET_TOKEN_TYPE (awk, TOKEN_BXOR);
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-04-11 15:44:30 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('+'))
2006-03-04 10:08:13 +00:00
{
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2005-11-14 15:23:54 +00:00
GET_CHAR_TO (awk, c);
2006-10-24 04:10:12 +00:00
if (c == ASE_T('+'))
2006-03-04 10:08:13 +00:00
{
2006-03-31 12:04:14 +00:00
SET_TOKEN_TYPE (awk, TOKEN_PLUSPLUS);
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2005-11-14 15:23:54 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('='))
2006-03-04 10:08:13 +00:00
{
2005-11-14 15:23:54 +00:00
SET_TOKEN_TYPE (awk, TOKEN_PLUS_ASSIGN);
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2005-11-14 15:23:54 +00:00
}
2006-03-04 10:08:13 +00:00
else
{
2005-11-14 15:23:54 +00:00
SET_TOKEN_TYPE (awk, TOKEN_PLUS);
}
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('-'))
2006-03-04 10:08:13 +00:00
{
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2005-11-14 15:23:54 +00:00
GET_CHAR_TO (awk, c);
2006-10-24 04:10:12 +00:00
if (c == ASE_T('-'))
2006-03-04 10:08:13 +00:00
{
2006-03-31 12:04:14 +00:00
SET_TOKEN_TYPE (awk, TOKEN_MINUSMINUS);
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2005-11-14 15:23:54 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('='))
2006-03-04 10:08:13 +00:00
{
2005-11-14 15:23:54 +00:00
SET_TOKEN_TYPE (awk, TOKEN_MINUS_ASSIGN);
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2005-11-14 15:23:54 +00:00
}
2006-03-04 10:08:13 +00:00
else
{
2005-11-14 15:23:54 +00:00
SET_TOKEN_TYPE (awk, TOKEN_MINUS);
}
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('*'))
2006-03-04 10:08:13 +00:00
{
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-01-10 13:57:54 +00:00
GET_CHAR_TO (awk, c);
2006-04-11 15:44:30 +00:00
2006-10-24 04:10:12 +00:00
if (c == ASE_T('='))
2006-04-11 15:44:30 +00:00
{
SET_TOKEN_TYPE (awk, TOKEN_MUL_ASSIGN);
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-04-11 15:44:30 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('*'))
2006-04-11 15:44:30 +00:00
{
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-04-11 15:44:30 +00:00
GET_CHAR_TO (awk, c);
2006-10-24 04:10:12 +00:00
if (c == ASE_T('='))
2006-04-11 15:44:30 +00:00
{
2006-10-22 12:39:30 +00:00
SET_TOKEN_TYPE (awk, TOKEN_EXP_ASSIGN);
2006-04-11 15:44:30 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-04-11 15:44:30 +00:00
}
else
{
2006-10-22 12:39:30 +00:00
SET_TOKEN_TYPE (awk, TOKEN_EXP);
2006-04-11 15:44:30 +00:00
}
}
else
{
SET_TOKEN_TYPE (awk, TOKEN_MUL);
}
2006-01-10 13:57:54 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('/'))
2006-03-04 10:08:13 +00:00
{
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-01-10 13:57:54 +00:00
GET_CHAR_TO (awk, c);
2006-04-11 15:44:30 +00:00
2006-10-24 04:10:12 +00:00
if (c == ASE_T('='))
2006-04-11 15:44:30 +00:00
{
SET_TOKEN_TYPE (awk, TOKEN_DIV_ASSIGN);
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-04-11 15:44:30 +00:00
}
2006-12-04 06:04:07 +00:00
else if ((awk->option & ASE_AWK_IDIV) && c == ASE_T('/'))
{
ADD_TOKEN_CHAR (awk, c);
GET_CHAR_TO (awk, c);
if (c == ASE_T('='))
{
SET_TOKEN_TYPE (awk, TOKEN_IDIV_ASSIGN);
ADD_TOKEN_CHAR (awk, c);
GET_CHAR (awk);
}
else
{
SET_TOKEN_TYPE (awk, TOKEN_IDIV);
}
}
2006-04-11 15:44:30 +00:00
else
{
SET_TOKEN_TYPE (awk, TOKEN_DIV);
}
2006-01-10 13:57:54 +00:00
}
2006-12-04 06:04:07 +00:00
#if 0
/* TODO: is it a good idea to use a back-slash for
* the idiv operator like BASIC? */
else if ((awk->option & ASE_AWK_IDIV) && c == ASE_T('\\'))
{
ADD_TOKEN_CHAR (awk, c);
GET_CHAR_TO (awk, c);
if (c == ASE_T('='))
{
SET_TOKEN_TYPE (awk, TOKEN_IDIV_ASSIGN);
ADD_TOKEN_CHAR (awk, c);
GET_CHAR (awk);
}
else
{
SET_TOKEN_TYPE (awk, TOKEN_IDIV);
}
}
#endif
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('%'))
2006-03-04 10:08:13 +00:00
{
2006-08-03 09:54:16 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-01-10 13:57:54 +00:00
GET_CHAR_TO (awk, c);
2006-04-11 15:44:30 +00:00
2006-10-24 04:10:12 +00:00
if (c == ASE_T('='))
2006-04-11 15:44:30 +00:00
{
SET_TOKEN_TYPE (awk, TOKEN_MOD_ASSIGN);
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-04-11 15:44:30 +00:00
}
else
{
SET_TOKEN_TYPE (awk, TOKEN_MOD);
}
2006-01-10 13:57:54 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('('))
2006-03-04 10:08:13 +00:00
{
2005-11-15 15:32:39 +00:00
SET_TOKEN_TYPE (awk, TOKEN_LPAREN);
2005-12-29 12:04:51 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2005-11-15 15:32:39 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T(')'))
2006-03-04 10:08:13 +00:00
{
2005-11-15 15:32:39 +00:00
SET_TOKEN_TYPE (awk, TOKEN_RPAREN);
2005-12-29 12:04:51 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2005-11-15 15:32:39 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('{'))
2006-03-04 10:08:13 +00:00
{
2005-11-15 15:32:39 +00:00
SET_TOKEN_TYPE (awk, TOKEN_LBRACE);
2005-12-29 12:04:51 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2005-11-15 15:32:39 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('}'))
2006-03-04 10:08:13 +00:00
{
2005-11-15 15:32:39 +00:00
SET_TOKEN_TYPE (awk, TOKEN_RBRACE);
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2005-11-15 15:32:39 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('['))
2006-03-04 10:08:13 +00:00
{
2006-01-19 16:28:21 +00:00
SET_TOKEN_TYPE (awk, TOKEN_LBRACK);
2005-12-29 12:04:51 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2005-11-15 15:32:39 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T(']'))
2006-03-04 10:08:13 +00:00
{
2006-01-19 16:28:21 +00:00
SET_TOKEN_TYPE (awk, TOKEN_RBRACK);
2005-11-15 15:32:39 +00:00
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-01-09 16:03:56 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('$'))
2006-03-04 10:08:13 +00:00
{
2006-01-25 14:50:57 +00:00
SET_TOKEN_TYPE (awk, TOKEN_DOLLAR);
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-01-25 14:50:57 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T(','))
2006-03-04 10:08:13 +00:00
{
2006-01-13 14:16:56 +00:00
SET_TOKEN_TYPE (awk, TOKEN_COMMA);
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-01-13 14:16:56 +00:00
}
2006-12-16 14:48:31 +00:00
else if (c == ASE_T(';'))
2006-03-04 10:08:13 +00:00
{
2006-01-09 16:03:56 +00:00
SET_TOKEN_TYPE (awk, TOKEN_SEMICOLON);
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2005-11-14 15:23:54 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T(':'))
2006-04-10 15:52:07 +00:00
{
SET_TOKEN_TYPE (awk, TOKEN_COLON);
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-04-10 15:52:07 +00:00
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('?'))
2006-04-10 15:52:07 +00:00
{
SET_TOKEN_TYPE (awk, TOKEN_QUEST);
ADD_TOKEN_CHAR (awk, c);
2006-10-27 13:49:43 +00:00
GET_CHAR (awk);
2006-04-10 15:52:07 +00:00
}
2006-03-04 10:08:13 +00:00
else
{
2007-02-01 08:38:24 +00:00
awk->prmfns.sprintf (
2006-12-24 17:21:24 +00:00
awk->errmsg, ASE_COUNTOF(awk->errmsg),
ASE_T("invalid character '%c'"), c);
ase_awk_seterror (
awk, ASE_AWK_ELXCHR, awk->token.line, awk->errmsg);
2005-11-14 15:23:54 +00:00
return -1;
}
return 0;
2005-11-06 12:01:29 +00:00
}
2005-11-14 15:23:54 +00:00
2006-10-24 04:10:12 +00:00
static int __get_number (ase_awk_t* awk)
2006-04-04 06:26:56 +00:00
{
2006-10-24 04:10:12 +00:00
ase_cint_t c;
2006-04-04 06:26:56 +00:00
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, ASE_AWK_STR_LEN(&awk->token.name) == 0);
2006-04-04 06:26:56 +00:00
SET_TOKEN_TYPE (awk, TOKEN_INT);
2006-08-06 08:16:03 +00:00
c = awk->src.lex.curc;
2006-04-04 06:26:56 +00:00
2006-10-24 04:10:12 +00:00
if (c == ASE_T('0'))
2006-04-04 06:26:56 +00:00
{
ADD_TOKEN_CHAR (awk, c);
GET_CHAR_TO (awk, c);
2006-10-24 04:10:12 +00:00
if (c == ASE_T('x') || c == ASE_T('X'))
2006-04-04 06:26:56 +00:00
{
/* hexadecimal number */
do
{
ADD_TOKEN_CHAR (awk, c);
GET_CHAR_TO (awk, c);
2006-04-07 04:23:11 +00:00
}
2006-10-24 04:10:12 +00:00
while (ASE_AWK_ISXDIGIT (awk, c));
2006-04-04 06:26:56 +00:00
2006-04-04 16:22:01 +00:00
return 0;
}
2006-11-13 09:02:41 +00:00
#if 0
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('b') || c == ASE_T('B'))
2006-04-04 16:22:01 +00:00
{
/* binary number */
do
{
ADD_TOKEN_CHAR (awk, c);
GET_CHAR_TO (awk, c);
2006-04-07 04:23:11 +00:00
}
2006-10-24 04:10:12 +00:00
while (c == ASE_T('0') || c == ASE_T('1'));
2006-04-04 16:22:01 +00:00
return 0;
2006-04-04 06:26:56 +00:00
}
2006-11-13 09:02:41 +00:00
#endif
2006-04-04 06:26:56 +00:00
else if (c != '.')
{
/* octal number */
2006-10-24 04:10:12 +00:00
while (c >= ASE_T('0') && c <= ASE_T('7'))
2006-04-04 06:26:56 +00:00
{
ADD_TOKEN_CHAR (awk, c);
GET_CHAR_TO (awk, c);
2006-04-05 15:56:20 +00:00
}
2006-04-04 06:26:56 +00:00
2006-04-04 16:22:01 +00:00
return 0;
2006-04-04 06:26:56 +00:00
}
}
2006-10-24 04:10:12 +00:00
while (ASE_AWK_ISDIGIT (awk, c))
2006-04-04 06:26:56 +00:00
{
ADD_TOKEN_CHAR (awk, c);
GET_CHAR_TO (awk, c);
}
2006-10-24 04:10:12 +00:00
if (c == ASE_T('.'))
2006-04-04 06:26:56 +00:00
{
/* floating-point number */
SET_TOKEN_TYPE (awk, TOKEN_REAL);
ADD_TOKEN_CHAR (awk, c);
GET_CHAR_TO (awk, c);
2006-10-24 04:10:12 +00:00
while (ASE_AWK_ISDIGIT (awk, c))
2006-04-04 06:26:56 +00:00
{
ADD_TOKEN_CHAR (awk, c);
GET_CHAR_TO (awk, c);
}
}
2006-10-24 04:10:12 +00:00
if (c == ASE_T('E') || c == ASE_T('e'))
2006-04-04 06:26:56 +00:00
{
SET_TOKEN_TYPE (awk, TOKEN_REAL);
ADD_TOKEN_CHAR (awk, c);
GET_CHAR_TO (awk, c);
2006-10-24 04:10:12 +00:00
if (c == ASE_T('+') || c == ASE_T('-'))
2006-04-04 06:26:56 +00:00
{
ADD_TOKEN_CHAR (awk, c);
GET_CHAR_TO (awk, c);
}
2006-10-24 04:10:12 +00:00
while (ASE_AWK_ISDIGIT (awk, c))
2006-04-04 06:26:56 +00:00
{
ADD_TOKEN_CHAR (awk, c);
GET_CHAR_TO (awk, c);
}
}
return 0;
}
2006-10-24 04:10:12 +00:00
static int __get_charstr (ase_awk_t* awk)
2006-08-01 04:36:33 +00:00
{
2006-10-24 04:10:12 +00:00
if (awk->src.lex.curc != ASE_T('\"'))
2006-08-03 09:54:16 +00:00
{
2006-08-30 07:15:14 +00:00
/* the starting quote has been consumed before this function
2006-08-03 09:54:16 +00:00
* has been called */
2006-08-06 08:16:03 +00:00
ADD_TOKEN_CHAR (awk, awk->src.lex.curc);
2006-08-03 09:54:16 +00:00
}
2006-10-24 04:10:12 +00:00
return __get_string (awk, ASE_T('\"'), ASE_T('\\'), ase_false);
2006-08-01 04:36:33 +00:00
}
2006-10-24 04:10:12 +00:00
static int __get_rexstr (ase_awk_t* awk)
2006-08-01 04:36:33 +00:00
{
2006-10-24 04:10:12 +00:00
if (awk->src.lex.curc == ASE_T('/'))
2006-08-30 07:15:14 +00:00
{
/* this part of the function is different from __get_charstr
* because of the way this function is called */
GET_CHAR (awk);
return 0;
}
else
2006-08-03 09:54:16 +00:00
{
2006-08-06 08:16:03 +00:00
ADD_TOKEN_CHAR (awk, awk->src.lex.curc);
2006-10-24 04:10:12 +00:00
return __get_string (awk, ASE_T('/'), ASE_T('\\'), ase_true);
2006-08-03 09:54:16 +00:00
}
2006-08-01 04:36:33 +00:00
}
static int __get_string (
2006-10-24 04:10:12 +00:00
ase_awk_t* awk, ase_char_t end_char,
ase_char_t esc_char, ase_bool_t keep_esc_char)
2006-04-07 04:23:11 +00:00
{
2006-10-24 04:10:12 +00:00
ase_cint_t c;
2006-07-01 16:24:36 +00:00
int escaped = 0;
2006-07-02 12:16:24 +00:00
int digit_count = 0;
2006-10-27 13:49:43 +00:00
ase_cint_t c_acc = 0;
2006-04-07 04:23:11 +00:00
while (1)
{
2006-07-02 12:16:24 +00:00
GET_CHAR_TO (awk, c);
2006-10-24 04:10:12 +00:00
if (c == ASE_CHAR_EOF)
2006-04-07 04:23:11 +00:00
{
2006-12-25 12:01:01 +00:00
ase_awk_seterror (
awk, ASE_AWK_EENDSTR, awk->token.line,
ASE_T("string not closed with a quote"));
2006-04-07 04:23:11 +00:00
return -1;
}
2006-07-02 12:16:24 +00:00
if (escaped == 3)
{
2006-10-24 04:10:12 +00:00
if (c >= ASE_T('0') && c <= ASE_T('7'))
2006-07-02 12:16:24 +00:00
{
2006-10-24 04:10:12 +00:00
c_acc = c_acc * 8 + c - ASE_T('0');
2006-07-02 12:16:24 +00:00
digit_count++;
if (digit_count >= escaped)
{
ADD_TOKEN_CHAR (awk, c_acc);
escaped = 0;
}
continue;
}
else
{
ADD_TOKEN_CHAR (awk, c_acc);
escaped = 0;
}
}
else if (escaped == 2 || escaped == 4 || escaped == 8)
{
2006-10-24 04:10:12 +00:00
if (c >= ASE_T('0') && c <= ASE_T('9'))
2006-07-02 12:16:24 +00:00
{
2006-10-24 04:10:12 +00:00
c_acc = c_acc * 16 + c - ASE_T('0');
2006-07-02 12:16:24 +00:00
digit_count++;
if (digit_count >= escaped)
{
ADD_TOKEN_CHAR (awk, c_acc);
escaped = 0;
}
continue;
}
2006-10-24 04:10:12 +00:00
else if (c >= ASE_T('A') && c <= ASE_T('F'))
2006-07-02 12:16:24 +00:00
{
2006-10-24 04:10:12 +00:00
c_acc = c_acc * 16 + c - ASE_T('A') + 10;
2006-07-02 12:16:24 +00:00
digit_count++;
if (digit_count >= escaped)
{
ADD_TOKEN_CHAR (awk, c_acc);
escaped = 0;
}
continue;
}
2006-10-24 04:10:12 +00:00
else if (c >= ASE_T('a') && c <= ASE_T('f'))
2006-07-02 12:16:24 +00:00
{
2006-10-24 04:10:12 +00:00
c_acc = c_acc * 16 + c - ASE_T('a') + 10;
2006-07-02 12:16:24 +00:00
digit_count++;
if (digit_count >= escaped)
{
ADD_TOKEN_CHAR (awk, c_acc);
escaped = 0;
}
continue;
}
else
{
2006-10-24 04:10:12 +00:00
ase_char_t rc;
2006-07-02 12:16:24 +00:00
2006-10-24 04:10:12 +00:00
rc = (escaped == 2)? ASE_T('x'):
(escaped == 4)? ASE_T('u'): ASE_T('U');
2006-07-02 12:16:24 +00:00
if (digit_count == 0) ADD_TOKEN_CHAR (awk, rc);
else ADD_TOKEN_CHAR (awk, c_acc);
escaped = 0;
}
}
2006-08-01 04:36:33 +00:00
if (escaped == 0 && c == end_char)
2006-04-07 04:23:11 +00:00
{
2006-07-02 12:16:24 +00:00
/* terminating quote */
2006-10-27 13:49:43 +00:00
/*GET_CHAR_TO (awk, c);*/
GET_CHAR (awk);
2006-04-07 04:23:11 +00:00
break;
}
2006-08-01 04:36:33 +00:00
if (escaped == 0 && c == esc_char)
2006-04-07 04:23:11 +00:00
{
2006-07-01 16:24:36 +00:00
escaped = 1;
2006-04-07 04:23:11 +00:00
continue;
}
2006-07-01 16:24:36 +00:00
if (escaped == 1)
2006-04-07 04:23:11 +00:00
{
2006-10-24 04:10:12 +00:00
if (c == ASE_T('n')) c = ASE_T('\n');
else if (c == ASE_T('r')) c = ASE_T('\r');
else if (c == ASE_T('t')) c = ASE_T('\t');
else if (c == ASE_T('f')) c = ASE_T('\f');
else if (c == ASE_T('b')) c = ASE_T('\b');
else if (c == ASE_T('v')) c = ASE_T('\v');
else if (c == ASE_T('a')) c = ASE_T('\a');
else if (c >= ASE_T('0') && c <= ASE_T('7'))
2006-07-02 12:16:24 +00:00
{
escaped = 3;
digit_count = 1;
2006-10-24 04:10:12 +00:00
c_acc = c - ASE_T('0');
2006-07-02 12:16:24 +00:00
continue;
}
2006-10-24 04:10:12 +00:00
else if (c == ASE_T('x'))
2006-07-02 12:16:24 +00:00
{
escaped = 2;
digit_count = 0;
c_acc = 0;
continue;
}
2006-10-24 04:10:12 +00:00
#ifdef ASE_CHAR_IS_WCHAR
2006-11-29 02:54:17 +00:00
else if (c == ASE_T('u') && ASE_SIZEOF(ase_char_t) >= 2)
2006-07-02 12:16:24 +00:00
{
escaped = 4;
digit_count = 0;
c_acc = 0;
continue;
}
2006-11-29 02:54:17 +00:00
else if (c == ASE_T('U') && ASE_SIZEOF(ase_char_t) >= 4)
2006-07-02 12:16:24 +00:00
{
escaped = 8;
digit_count = 0;
c_acc = 0;
continue;
}
2006-07-01 16:24:36 +00:00
#endif
2006-08-01 04:36:33 +00:00
else if (keep_esc_char)
{
ADD_TOKEN_CHAR (awk, esc_char);
}
2006-07-01 16:24:36 +00:00
2006-07-02 12:16:24 +00:00
escaped = 0;
2006-07-01 16:24:36 +00:00
}
2006-04-07 04:23:11 +00:00
ADD_TOKEN_CHAR (awk, c);
}
2006-08-03 09:54:16 +00:00
2006-04-07 04:23:11 +00:00
return 0;
}
2006-10-24 04:10:12 +00:00
static int __get_char (ase_awk_t* awk)
2005-11-14 15:23:54 +00:00
{
2006-10-24 04:10:12 +00:00
ase_ssize_t n;
/*ase_char_t c;*/
2006-01-09 16:03:56 +00:00
2006-08-06 08:16:03 +00:00
if (awk->src.lex.ungotc_count > 0)
2006-03-04 10:08:13 +00:00
{
2006-08-06 08:16:03 +00:00
awk->src.lex.curc = awk->src.lex.ungotc[--awk->src.lex.ungotc_count];
2006-12-25 12:01:01 +00:00
awk->src.lex.line = awk->src.lex.ungotc_line[awk->src.lex.ungotc_count];
awk->src.lex.column = awk->src.lex.ungotc_column[awk->src.lex.ungotc_count];
2005-11-14 15:23:54 +00:00
return 0;
}
2006-08-06 08:16:03 +00:00
if (awk->src.shared.buf_pos >= awk->src.shared.buf_len)
2006-05-10 16:02:39 +00:00
{
2006-10-28 12:17:57 +00:00
n = awk->src.ios.in (
ASE_AWK_IO_READ, awk->src.ios.custom_data,
2006-11-29 02:54:17 +00:00
awk->src.shared.buf, ASE_COUNTOF(awk->src.shared.buf));
2006-12-09 11:50:08 +00:00
if (n <= -1)
2006-05-10 16:02:39 +00:00
{
2006-12-23 05:44:17 +00:00
ase_awk_seterror (
awk, ASE_AWK_ESINRD, 0,
ASE_T("cannot read the source input"));
2006-05-10 16:02:39 +00:00
return -1;
}
if (n == 0)
{
2006-10-24 04:10:12 +00:00
awk->src.lex.curc = ASE_CHAR_EOF;
2006-05-10 16:02:39 +00:00
return 0;
}
2006-08-06 08:16:03 +00:00
awk->src.shared.buf_pos = 0;
awk->src.shared.buf_len = n;
2006-05-10 16:02:39 +00:00
}
2006-08-06 08:16:03 +00:00
awk->src.lex.curc = awk->src.shared.buf[awk->src.shared.buf_pos++];
2006-05-13 16:33:07 +00:00
2006-10-24 04:10:12 +00:00
if (awk->src.lex.curc == ASE_T('\n'))
2006-05-13 16:33:07 +00:00
{
2006-08-06 08:16:03 +00:00
awk->src.lex.line++;
awk->src.lex.column = 1;
2006-05-13 16:33:07 +00:00
}
2006-08-06 08:16:03 +00:00
else awk->src.lex.column++;
2006-05-13 16:33:07 +00:00
2005-11-14 15:23:54 +00:00
return 0;
}
2006-10-24 04:10:12 +00:00
static int __unget_char (ase_awk_t* awk, ase_cint_t c)
2005-11-14 15:23:54 +00:00
{
2006-11-29 02:54:17 +00:00
if (awk->src.lex.ungotc_count >= ASE_COUNTOF(awk->src.lex.ungotc))
2006-03-04 10:08:13 +00:00
{
2006-12-25 12:01:01 +00:00
ase_awk_seterror (
awk, ASE_AWK_ELXUNG, awk->src.lex.line, ASE_NULL);
2005-11-14 15:23:54 +00:00
return -1;
}
2006-12-25 12:01:01 +00:00
awk->src.lex.ungotc_line[awk->src.lex.ungotc_count] = awk->src.lex.line;
awk->src.lex.ungotc_column[awk->src.lex.ungotc_count] = awk->src.lex.column;
2006-08-06 08:16:03 +00:00
awk->src.lex.ungotc[awk->src.lex.ungotc_count++] = c;
2005-11-14 15:23:54 +00:00
return 0;
}
2006-10-24 04:10:12 +00:00
static int __skip_spaces (ase_awk_t* awk)
2005-11-14 15:23:54 +00:00
{
2006-10-24 04:10:12 +00:00
ase_cint_t c = awk->src.lex.curc;
2006-12-16 14:48:31 +00:00
while (ASE_AWK_ISSPACE (awk, c)) GET_CHAR_TO (awk, c);
2005-11-14 15:23:54 +00:00
return 0;
}
2006-10-24 04:10:12 +00:00
static int __skip_comment (ase_awk_t* awk)
2005-11-14 15:23:54 +00:00
{
2006-10-24 04:10:12 +00:00
ase_cint_t c = awk->src.lex.curc;
2006-12-25 12:01:01 +00:00
ase_size_t line, column;
2005-11-14 15:23:54 +00:00
2007-01-05 13:39:38 +00:00
if (c == ASE_T('#'))
2006-04-07 04:23:11 +00:00
{
do
{
GET_CHAR_TO (awk, c);
}
2006-10-24 04:10:12 +00:00
while (c != ASE_T('\n') && c != ASE_CHAR_EOF);
2006-04-07 04:23:11 +00:00
GET_CHAR (awk);
return 1; /* comment by # */
}
2006-10-24 04:10:12 +00:00
if (c != ASE_T('/')) return 0; /* not a comment */
2005-11-14 15:23:54 +00:00
2006-12-25 12:01:01 +00:00
line = awk->src.lex.line;
column = awk->src.lex.column;
GET_CHAR_TO (awk, c);
2006-04-07 04:23:11 +00:00
2006-12-04 06:04:07 +00:00
if (c == ASE_T('*'))
2006-03-04 10:08:13 +00:00
{
2006-04-07 04:23:11 +00:00
do
{
2005-11-14 15:23:54 +00:00
GET_CHAR_TO (awk, c);
2006-10-24 04:10:12 +00:00
if (c == ASE_CHAR_EOF)
2006-08-29 15:01:45 +00:00
{
2006-12-25 12:01:01 +00:00
ase_awk_seterror (
awk, ASE_AWK_EENDCMT, awk->src.lex.line,
ASE_T("comment not properly closed"));
2006-08-29 15:01:45 +00:00
return -1;
}
2006-10-24 04:10:12 +00:00
if (c == ASE_T('*'))
2006-03-04 10:08:13 +00:00
{
2005-11-14 15:23:54 +00:00
GET_CHAR_TO (awk, c);
2006-10-24 04:10:12 +00:00
if (c == ASE_CHAR_EOF)
2006-08-29 15:01:45 +00:00
{
2006-12-25 12:01:01 +00:00
ase_awk_seterror (
awk, ASE_AWK_EENDCMT, awk->src.lex.line,
ASE_T("comment not properly closed"));
2006-08-29 15:01:45 +00:00
return -1;
}
2006-10-24 04:10:12 +00:00
if (c == ASE_T('/'))
2006-03-04 10:08:13 +00:00
{
2006-10-27 13:49:43 +00:00
/*GET_CHAR_TO (awk, c);*/
GET_CHAR (awk);
2005-11-14 15:23:54 +00:00
break;
}
}
2006-04-07 04:23:11 +00:00
}
while (1);
return 1; /* c-style comment */
2005-11-14 15:23:54 +00:00
}
2006-10-26 14:22:01 +00:00
if (__unget_char (awk, c) == -1) return -1; /* error */
2006-10-24 04:10:12 +00:00
awk->src.lex.curc = ASE_T('/');
2006-12-25 12:01:01 +00:00
awk->src.lex.line = line;
awk->src.lex.column = column;
2006-01-12 14:20:17 +00:00
2005-11-14 15:23:54 +00:00
return 0;
}
2006-08-03 09:54:16 +00:00
static int __classify_ident (
2006-10-24 04:10:12 +00:00
ase_awk_t* awk, const ase_char_t* name, ase_size_t len)
2005-11-15 15:32:39 +00:00
{
2006-06-16 14:31:42 +00:00
struct __kwent* kwp;
2005-11-15 15:32:39 +00:00
2006-10-24 04:10:12 +00:00
for (kwp = __kwtab; kwp->name != ASE_NULL; kwp++)
2006-03-04 10:08:13 +00:00
{
2006-06-21 15:37:51 +00:00
if (kwp->valid != 0 &&
2006-08-04 17:36:40 +00:00
(awk->option & kwp->valid) == 0) continue;
2006-08-03 09:54:16 +00:00
2006-10-24 04:10:12 +00:00
if (ase_awk_strxncmp (kwp->name, kwp->name_len, name, len) == 0)
2006-08-03 09:54:16 +00:00
{
return kwp->type;
}
2005-11-15 15:32:39 +00:00
}
return TOKEN_IDENT;
}
2006-01-24 16:14:28 +00:00
2006-10-24 04:10:12 +00:00
static int __assign_to_opcode (ase_awk_t* awk)
2006-04-14 16:26:00 +00:00
{
2006-08-03 09:54:16 +00:00
static int __assop[] =
{
2006-10-24 04:10:12 +00:00
ASE_AWK_ASSOP_NONE,
ASE_AWK_ASSOP_PLUS,
ASE_AWK_ASSOP_MINUS,
ASE_AWK_ASSOP_MUL,
ASE_AWK_ASSOP_DIV,
2006-12-04 06:04:07 +00:00
ASE_AWK_ASSOP_IDIV,
2006-10-24 04:10:12 +00:00
ASE_AWK_ASSOP_MOD,
ASE_AWK_ASSOP_EXP
2006-08-03 09:54:16 +00:00
};
if (awk->token.type >= TOKEN_ASSIGN &&
2006-10-22 12:39:30 +00:00
awk->token.type <= TOKEN_EXP_ASSIGN)
2006-08-03 09:54:16 +00:00
{
return __assop[awk->token.type - TOKEN_ASSIGN];
}
2006-04-14 16:26:00 +00:00
return -1;
}
2006-04-29 12:41:47 +00:00
2006-10-24 04:10:12 +00:00
static int __is_plain_var (ase_awk_nde_t* nde)
2006-04-29 12:41:47 +00:00
{
2006-10-24 04:10:12 +00:00
return nde->type == ASE_AWK_NDE_GLOBAL ||
nde->type == ASE_AWK_NDE_LOCAL ||
nde->type == ASE_AWK_NDE_ARG ||
nde->type == ASE_AWK_NDE_NAMED;
2006-04-29 12:41:47 +00:00
}
2006-06-27 14:32:03 +00:00
2006-10-24 04:10:12 +00:00
static int __is_var (ase_awk_nde_t* nde)
2006-06-27 14:32:03 +00:00
{
2006-10-24 04:10:12 +00:00
return nde->type == ASE_AWK_NDE_GLOBAL ||
nde->type == ASE_AWK_NDE_LOCAL ||
nde->type == ASE_AWK_NDE_ARG ||
nde->type == ASE_AWK_NDE_NAMED ||
nde->type == ASE_AWK_NDE_GLOBALIDX ||
nde->type == ASE_AWK_NDE_LOCALIDX ||
nde->type == ASE_AWK_NDE_ARGIDX ||
nde->type == ASE_AWK_NDE_NAMEDIDX;
2006-06-27 14:32:03 +00:00
}
2006-08-06 08:16:03 +00:00
struct __deparse_func_t
{
2006-10-24 04:10:12 +00:00
ase_awk_t* awk;
ase_char_t* tmp;
ase_size_t tmp_len;
2006-08-06 08:16:03 +00:00
};
2006-10-24 04:10:12 +00:00
static int __deparse (ase_awk_t* awk)
2006-08-06 08:16:03 +00:00
{
2006-10-24 04:10:12 +00:00
ase_awk_chain_t* chain;
2006-11-29 02:54:17 +00:00
ase_char_t tmp[ASE_SIZEOF(ase_size_t)*8 + 32];
2006-08-06 08:16:03 +00:00
struct __deparse_func_t df;
2006-10-13 10:18:39 +00:00
int n = 0, op;
2006-08-06 08:16:03 +00:00
2006-10-28 12:17:57 +00:00
ASE_AWK_ASSERT (awk, awk->src.ios.out != ASE_NULL);
2006-08-06 08:16:03 +00:00
awk->src.shared.buf_len = 0;
awk->src.shared.buf_pos = 0;
2006-10-28 12:17:57 +00:00
op = awk->src.ios.out (
ASE_AWK_IO_OPEN, awk->src.ios.custom_data, ASE_NULL, 0);
2006-12-09 11:50:08 +00:00
if (op <= -1)
2006-08-06 12:35:06 +00:00
{
2006-12-25 12:01:01 +00:00
ase_awk_seterror (
awk, ASE_AWK_ESOUTOP, 0,
ASE_T("cannot open the source output"));
2006-08-06 12:35:06 +00:00
return -1;
}
2006-10-13 10:18:39 +00:00
if (op == 0)
{
/* the result of the open operation indicates that the
* file has been open but reached the end. so it has to
* skip the entire deparsing procedure as it can't write
* any single characters on such an io handler. but note
* that this is not really an error for the parse and deparser.
*
* in fact, there are two ways to skip deparsing.
* 1. set awk->src.ios.out to NULL.
* 2. set awk->src.ios.out to a normal handler but
* make it return 0 on the OPEN request.
*/
n = 0;
goto exit_deparse;
}
2006-08-06 15:03:42 +00:00
#define EXIT_DEPARSE(num) \
2006-12-25 12:01:01 +00:00
do { \
n = -1; \
ase_awk_seterror (awk, num, 0, ASE_NULL); \
goto exit_deparse; \
} while(0)
2006-08-06 15:03:42 +00:00
2006-08-06 08:16:03 +00:00
if (awk->tree.nglobals > awk->tree.nbglobals)
{
2006-12-12 05:16:30 +00:00
ase_size_t i/*, len*/;
2006-08-06 08:16:03 +00:00
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, awk->tree.nglobals > 0);
2006-10-24 04:10:12 +00:00
if (ase_awk_putsrcstr (awk, ASE_T("global ")) == -1)
2006-12-23 05:44:17 +00:00
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
2006-08-06 08:16:03 +00:00
for (i = awk->tree.nbglobals; i < awk->tree.nglobals - 1; i++)
{
2006-12-11 08:44:52 +00:00
/*
2006-10-24 04:10:12 +00:00
len = ase_awk_longtostr ((ase_long_t)i,
2006-11-29 02:54:17 +00:00
10, ASE_T("__global"), tmp, ASE_COUNTOF(tmp));
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, len != (ase_size_t)-1);
2006-10-24 04:10:12 +00:00
if (ase_awk_putsrcstrx (awk, tmp, len) == -1)
2006-12-23 05:44:17 +00:00
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
2006-12-11 08:44:52 +00:00
*/
2006-11-19 11:21:06 +00:00
if (ase_awk_putsrcstrx (awk,
awk->parse.globals.buf[i].name,
awk->parse.globals.buf[i].name_len) == -1)
{
2006-12-23 05:44:17 +00:00
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
2006-11-19 11:21:06 +00:00
}
2006-10-24 04:10:12 +00:00
if (ase_awk_putsrcstr (awk, ASE_T(", ")) == -1)
2006-12-23 05:44:17 +00:00
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
2006-08-06 08:16:03 +00:00
}
2006-08-06 12:35:06 +00:00
2006-12-11 08:44:52 +00:00
/*
2006-10-24 04:10:12 +00:00
len = ase_awk_longtostr ((ase_long_t)i,
2006-11-29 02:54:17 +00:00
10, ASE_T("__global"), tmp, ASE_COUNTOF(tmp));
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (awk, len != (ase_size_t)-1);
2006-10-24 04:10:12 +00:00
if (ase_awk_putsrcstrx (awk, tmp, len) == -1)
2006-12-23 05:44:17 +00:00
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
2006-12-11 08:44:52 +00:00
*/
2006-11-19 11:21:06 +00:00
if (ase_awk_putsrcstrx (awk,
awk->parse.globals.buf[i].name,
awk->parse.globals.buf[i].name_len) == -1)
{
2006-12-23 05:44:17 +00:00
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
2006-11-19 11:21:06 +00:00
}
2007-01-03 04:16:15 +00:00
if (awk->option & ASE_AWK_CRLF)
{
if (ase_awk_putsrcstr (awk, ASE_T(";\r\n\r\n")) == -1)
{
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
}
}
else
{
if (ase_awk_putsrcstr (awk, ASE_T(";\n\n")) == -1)
{
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
}
}
2006-08-06 08:16:03 +00:00
}
df.awk = awk;
df.tmp = tmp;
2006-11-29 02:54:17 +00:00
df.tmp_len = ASE_COUNTOF(tmp);
2006-08-06 08:16:03 +00:00
2006-10-24 04:10:12 +00:00
if (ase_awk_map_walk (&awk->tree.afns, __deparse_func, &df) == -1)
2006-08-06 15:03:42 +00:00
{
2006-12-23 05:44:17 +00:00
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
2006-08-06 15:03:42 +00:00
}
2006-08-06 08:16:03 +00:00
2006-10-24 04:10:12 +00:00
if (awk->tree.begin != ASE_NULL)
2006-08-06 08:16:03 +00:00
{
2006-10-24 04:10:12 +00:00
if (ase_awk_putsrcstr (awk, ASE_T("BEGIN ")) == -1)
2006-12-23 05:44:17 +00:00
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
2006-08-06 15:03:42 +00:00
2006-10-24 04:10:12 +00:00
if (ase_awk_prnpt (awk, awk->tree.begin) == -1)
2006-12-23 05:44:17 +00:00
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
2006-08-06 15:03:42 +00:00
2007-01-03 04:16:15 +00:00
if (awk->option & ASE_AWK_CRLF)
{
if (__put_char (awk, ASE_T('\r')) == -1)
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
}
2006-10-24 04:10:12 +00:00
if (__put_char (awk, ASE_T('\n')) == -1)
2006-12-23 05:44:17 +00:00
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
2006-08-06 08:16:03 +00:00
}
chain = awk->tree.chain;
2006-10-24 04:10:12 +00:00
while (chain != ASE_NULL)
2006-08-06 08:16:03 +00:00
{
2006-10-24 04:10:12 +00:00
if (chain->pattern != ASE_NULL)
2006-08-06 08:16:03 +00:00
{
2006-10-24 04:10:12 +00:00
if (ase_awk_prnptnpt (awk, chain->pattern) == -1)
2006-12-23 05:44:17 +00:00
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
2006-08-06 08:16:03 +00:00
}
2006-10-24 04:10:12 +00:00
if (chain->action == ASE_NULL)
2006-08-06 08:16:03 +00:00
{
/* blockless pattern */
2007-01-03 04:16:15 +00:00
if (awk->option & ASE_AWK_CRLF)
{
if (__put_char (awk, ASE_T('\r')) == -1)
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
}
2006-10-24 04:10:12 +00:00
if (__put_char (awk, ASE_T('\n')) == -1)
2006-12-23 05:44:17 +00:00
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
2006-08-06 08:16:03 +00:00
}
else
{
2006-11-17 07:06:53 +00:00
if (chain->pattern != ASE_NULL)
{
if (__put_char (awk, ASE_T(' ')) == -1)
2006-12-23 05:44:17 +00:00
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
2006-11-17 07:06:53 +00:00
}
2006-10-24 04:10:12 +00:00
if (ase_awk_prnpt (awk, chain->action) == -1)
2006-12-23 05:44:17 +00:00
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
2006-08-06 08:16:03 +00:00
}
2007-01-03 04:16:15 +00:00
if (awk->option & ASE_AWK_CRLF)
{
if (__put_char (awk, ASE_T('\r')) == -1)
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
}
2006-10-24 04:10:12 +00:00
if (__put_char (awk, ASE_T('\n')) == -1)
2006-12-23 05:44:17 +00:00
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
2006-08-06 15:03:42 +00:00
2006-08-06 08:16:03 +00:00
chain = chain->next;
}
2006-10-24 04:10:12 +00:00
if (awk->tree.end != ASE_NULL)
2006-08-06 08:16:03 +00:00
{
2006-10-24 04:10:12 +00:00
if (ase_awk_putsrcstr (awk, ASE_T("END ")) == -1)
2006-12-23 05:44:17 +00:00
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
2006-10-24 04:10:12 +00:00
if (ase_awk_prnpt (awk, awk->tree.end) == -1)
2006-12-23 05:44:17 +00:00
EXIT_DEPARSE (ASE_AWK_ESOUTWR);
2006-08-06 08:16:03 +00:00
}
2006-12-23 05:44:17 +00:00
if (__flush (awk) == -1) EXIT_DEPARSE (ASE_AWK_ESOUTWR);
2006-08-06 12:35:06 +00:00
exit_deparse:
2006-10-28 12:17:57 +00:00
if (awk->src.ios.out (
2006-12-09 11:50:08 +00:00
ASE_AWK_IO_CLOSE, awk->src.ios.custom_data, ASE_NULL, 0) != 0)
2006-08-06 12:35:06 +00:00
{
2006-12-09 11:50:08 +00:00
if (n == 0)
2006-08-06 12:35:06 +00:00
{
2006-12-25 12:01:01 +00:00
ase_awk_seterror (
awk, ASE_AWK_ESOUTCL, 0,
ASE_T("cannot close the source output"));
2006-08-06 12:35:06 +00:00
n = -1;
}
}
2006-10-27 13:49:43 +00:00
return n;
2006-08-06 08:16:03 +00:00
}
2006-10-24 04:10:12 +00:00
static int __deparse_func (ase_awk_pair_t* pair, void* arg)
2006-08-06 08:16:03 +00:00
{
struct __deparse_func_t* df = (struct __deparse_func_t*)arg;
2006-10-24 04:10:12 +00:00
ase_awk_afn_t* afn = (ase_awk_afn_t*)pair->val;
ase_size_t i, n;
2006-08-06 08:16:03 +00:00
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (df->awk, ase_awk_strxncmp (
2006-08-06 08:16:03 +00:00
pair->key, pair->key_len, afn->name, afn->name_len) == 0);
2006-10-24 04:10:12 +00:00
if (ase_awk_putsrcstr (df->awk, ASE_T("function ")) == -1) return -1;
if (ase_awk_putsrcstr (df->awk, afn->name) == -1) return -1;
if (ase_awk_putsrcstr (df->awk, ASE_T(" (")) == -1) return -1;
2006-08-06 08:16:03 +00:00
for (i = 0; i < afn->nargs; )
{
2006-10-24 04:10:12 +00:00
n = ase_awk_longtostr (i++, 10,
ASE_T("__param"), df->tmp, df->tmp_len);
2006-10-26 09:31:28 +00:00
ASE_AWK_ASSERT (df->awk, n != (ase_size_t)-1);
2006-10-24 04:10:12 +00:00
if (ase_awk_putsrcstrx (df->awk, df->tmp, n) == -1) return -1;
2006-08-06 08:16:03 +00:00
if (i >= afn->nargs) break;
2006-10-24 04:10:12 +00:00
if (ase_awk_putsrcstr (df->awk, ASE_T(", ")) == -1) return -1;
2006-08-06 08:16:03 +00:00
}
2007-01-03 04:16:15 +00:00
if (ase_awk_putsrcstr (df->awk, ASE_T(")")) == -1) return -1;
if (df->awk->option & ASE_AWK_CRLF)
{
if (__put_char (df->awk, ASE_T('\r')) == -1) return -1;
}
if (__put_char (df->awk, ASE_T('\n')) == -1) return -1;
2006-08-06 15:03:42 +00:00
2006-10-24 04:10:12 +00:00
if (ase_awk_prnpt (df->awk, afn->body) == -1) return -1;
2007-01-03 04:16:15 +00:00
if (df->awk->option & ASE_AWK_CRLF)
{
if (__put_char (df->awk, ASE_T('\r')) == -1) return -1;
}
if (__put_char (df->awk, ASE_T('\n')) == -1) return -1;
2006-08-06 08:16:03 +00:00
return 0;
}
2006-10-24 04:10:12 +00:00
static int __put_char (ase_awk_t* awk, ase_char_t c)
2006-08-06 08:16:03 +00:00
{
awk->src.shared.buf[awk->src.shared.buf_len++] = c;
2006-11-29 02:54:17 +00:00
if (awk->src.shared.buf_len >= ASE_COUNTOF(awk->src.shared.buf))
2006-08-06 08:16:03 +00:00
{
if (__flush (awk) == -1) return -1;
}
return 0;
}
2006-10-24 04:10:12 +00:00
static int __flush (ase_awk_t* awk)
2006-08-06 08:16:03 +00:00
{
2006-10-24 04:10:12 +00:00
ase_ssize_t n;
2006-08-06 15:03:42 +00:00
2006-10-28 12:17:57 +00:00
ASE_AWK_ASSERT (awk, awk->src.ios.out != ASE_NULL);
2006-08-06 15:03:42 +00:00
while (awk->src.shared.buf_pos < awk->src.shared.buf_len)
2006-08-06 08:16:03 +00:00
{
2006-10-28 12:17:57 +00:00
n = awk->src.ios.out (
ASE_AWK_IO_WRITE, awk->src.ios.custom_data,
2006-08-06 15:03:42 +00:00
&awk->src.shared.buf[awk->src.shared.buf_pos],
awk->src.shared.buf_len - awk->src.shared.buf_pos);
if (n <= 0) return -1;
awk->src.shared.buf_pos += n;
2006-08-06 08:16:03 +00:00
}
2006-08-06 15:03:42 +00:00
awk->src.shared.buf_pos = 0;
awk->src.shared.buf_len = 0;
2006-08-06 08:16:03 +00:00
return 0;
}
2006-10-24 04:10:12 +00:00
int ase_awk_putsrcstr (ase_awk_t* awk, const ase_char_t* str)
2006-08-06 08:16:03 +00:00
{
2006-10-24 04:10:12 +00:00
while (*str != ASE_T('\0'))
2006-08-06 08:16:03 +00:00
{
if (__put_char (awk, *str) == -1) return -1;
str++;
}
return 0;
}
2006-10-24 04:10:12 +00:00
int ase_awk_putsrcstrx (
ase_awk_t* awk, const ase_char_t* str, ase_size_t len)
2006-08-06 08:16:03 +00:00
{
2006-10-24 04:10:12 +00:00
const ase_char_t* end = str + len;
2006-08-06 08:16:03 +00:00
2006-08-06 15:03:42 +00:00
while (str < end)
2006-08-06 08:16:03 +00:00
{
2006-08-06 15:03:42 +00:00
if (__put_char (awk, *str) == -1) return -1;
str++;
2006-08-06 08:16:03 +00:00
}
return 0;
}
2006-08-06 15:03:42 +00:00