hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2006-06-13 15:11:39 +00:00
parent cb98dbc26f
commit 0a22297056
4 changed files with 87 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
ase/awk/parse.c
View File

@ -1,5 +1,5 @@
/*
* $Id: parse.c,v 1.112 2006-06-13 08:35:53 bacon Exp $
* $Id: parse.c,v 1.113 2006-06-13 15:11:39 bacon Exp $
*/
#include <xp/awk/awk_i.h>
@ -152,7 +152,6 @@ static xp_awk_nde_t* __parse_continue (xp_awk_t* awk);
static xp_awk_nde_t* __parse_return (xp_awk_t* awk);
static xp_awk_nde_t* __parse_exit (xp_awk_t* awk);
static xp_awk_nde_t* __parse_delete (xp_awk_t* awk);
static xp_awk_nde_t* __parse_getline (xp_awk_t* awk);
static xp_awk_nde_t* __parse_print (xp_awk_t* awk);
static xp_awk_nde_t* __parse_printf (xp_awk_t* awk);
static xp_awk_nde_t* __parse_next (xp_awk_t* awk);
@ -1500,8 +1499,8 @@ static xp_awk_nde_t* __parse_bitwise_or (xp_awk_t* awk)
nde->type = XP_AWK_NDE_GETLINE;
nde->next = XP_NULL;
nde->var = var;
nde->cmd = left;
nde->in = XP_NULL;
nde->in_type = XP_AWK_GETLINE_PIPE;
nde->in = left;
left = (xp_awk_nde_t*)nde;
}
@ -1968,7 +1967,7 @@ static xp_awk_nde_t* __parse_primary (xp_awk_t* awk)
nde = __parse_expression (awk);
if (nde == XP_NULL) return XP_NULL;
/* ---------------- */
/* parse subsequent expressions separated by a comma, if any */
last = nde;
xp_assert (last->next == XP_NULL);
@ -1993,7 +1992,7 @@ static xp_awk_nde_t* __parse_primary (xp_awk_t* awk)
last->next = tmp;
last = tmp;
}
/* ----------------- */
/* ----------------- */
/* check for the closing parenthesis */
if (!MATCH(awk,TOKEN_RPAREN))
@ -2008,9 +2007,12 @@ static xp_awk_nde_t* __parse_primary (xp_awk_t* awk)
return XP_NULL;
}
/* ----------------- */
/* check if it is a chained node */
if (nde->next != XP_NULL)
{
/* if so, it is a expression group */
/* (expr1, expr2, expr2) */
xp_awk_nde_grp_t* tmp;
if (!MATCH(awk,TOKEN_IN))
@ -2033,10 +2035,60 @@ static xp_awk_nde_t* __parse_primary (xp_awk_t* awk)
nde = (xp_awk_nde_t*)tmp;
}
/* ----------------- */
/* ----------------- */
return nde;
}
else if (MATCH(awk,TOKEN_GETLINE))
{
xp_awk_nde_getline_t* nde;
xp_awk_nde_t* var = XP_NULL;
xp_awk_nde_t* in = XP_NULL;
if (__get_token(awk) == -1) return XP_NULL;
if (MATCH(awk,TOKEN_IDENT))
{
/* getline var */
var = __parse_primary (awk);
if (var == XP_NULL) return XP_NULL;
}
if (MATCH(awk, TOKEN_LT))
{
/* getline [var] < file */
if (__get_token(awk) == -1)
{
if (var != XP_NULL) xp_awk_clrpt (var);
return XP_NULL;
}
in = __parse_expression (awk);
if (in == XP_NULL)
{
if (var != XP_NULL) xp_awk_clrpt (var);
return XP_NULL;
}
}
nde = (xp_awk_nde_getline_t*)
xp_malloc (xp_sizeof(xp_awk_nde_getline_t));
if (nde == XP_NULL)
{
if (var != XP_NULL) xp_awk_clrpt (var);
if (in != XP_NULL) xp_awk_clrpt (in);
PANIC (awk, XP_AWK_ENOMEM);
}
nde->type = XP_AWK_NDE_GETLINE;
nde->next = XP_NULL;
nde->var = var;
nde->in_type = XP_AWK_GETLINE_FILE;
nde->in = in;
return (xp_awk_nde_t*)nde;
}
/* valid expression introducer is expected */
PANIC (awk, XP_AWK_EEXPRESSION);
@ -2663,12 +2715,6 @@ static xp_awk_nde_t* __parse_delete (xp_awk_t* awk)
return XP_NULL;
}
static xp_awk_nde_t* __parse_getline (xp_awk_t* awk)
{
/* TODO: implement this... */
return XP_NULL;
}
static xp_awk_nde_t* __parse_print (xp_awk_t* awk)
{
xp_awk_nde_print_t* nde;

3
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/*
* $Id: run.c,v 1.94 2006-06-13 08:35:53 bacon Exp $
* $Id: run.c,v 1.95 2006-06-13 15:11:39 bacon Exp $
*/
#include <xp/awk/awk_i.h>
@ -1490,6 +1490,7 @@ static xp_awk_val_t* __eval_binop_land (
xp_awk_refdownval (run, lv);
return res;
}
static xp_awk_val_t* __eval_binop_in (
xp_awk_run_t* run, xp_awk_nde_t* left, xp_awk_nde_t* right)
{

25
ase/awk/tree.c
View File

@ -1,5 +1,5 @@
/*
* $Id: tree.c,v 1.52 2006-06-13 08:35:53 bacon Exp $
* $Id: tree.c,v 1.53 2006-06-13 15:11:39 bacon Exp $
*/
#include <xp/awk/awk_i.h>
@ -68,6 +68,12 @@ static const xp_char_t* __incop_str[] =
XP_T("--")
};
static const xp_char_t* __getline_inop_str[] =
{
XP_T("|"),
XP_T("<")
};
static const xp_char_t* __print_outop_str[] =
{
XP_T("|"),
@ -344,10 +350,12 @@ static int __print_expression (xp_awk_nde_t* nde)
{
/* TODO */
xp_awk_nde_getline_t* px = (xp_awk_nde_getline_t*)nde;
if (px->cmd != XP_NULL)
{
__print_expression (px->cmd);
xp_printf (XP_T(" | "));
if (px->in != XP_NULL &&
px->in_type == XP_AWK_GETLINE_PIPE)
{
__print_expression (px->in);
xp_printf (XP_T(" %s "),
__getline_inop_str[px->in_type]);
}
xp_printf (XP_T("getline"));
@ -357,9 +365,11 @@ static int __print_expression (xp_awk_nde_t* nde)
__print_expression (px->var);
}
if (px->in != XP_NULL)
if (px->in != XP_NULL &&
px->in_type == XP_AWK_GETLINE_FILE)
{
xp_printf (XP_T(" < "));
xp_printf (XP_T(" %s "),
__getline_inop_str[px->in_type]);
__print_expression (px->in);
}
break;
@ -913,7 +923,6 @@ void xp_awk_clrpt (xp_awk_nde_t* tree)
xp_awk_nde_getline_t* px =
(xp_awk_nde_getline_t*)p;
if (px->var != XP_NULL) xp_awk_clrpt (px->var);
if (px->cmd != XP_NULL) xp_awk_clrpt (px->cmd);
if (px->in != XP_NULL) xp_awk_clrpt (px->in);
xp_free (p);
break;

10
ase/awk/tree.h
View File

@ -1,5 +1,5 @@
/*
* $Id: tree.h,v 1.43 2006-06-13 08:35:53 bacon Exp $
* $Id: tree.h,v 1.44 2006-06-13 15:11:39 bacon Exp $
*/
#ifndef _XP_AWK_TREE_H_
@ -57,6 +57,12 @@ enum
XP_AWK_NDE_PRINT
};
enum
{
XP_AWK_GETLINE_PIPE,
XP_AWK_GETLINE_FILE
};
enum
{
XP_AWK_PRINT_PIPE,
@ -215,7 +221,7 @@ struct xp_awk_nde_getline_t
{
XP_AWK_NDE_HDR;
xp_awk_nde_t* var;
xp_awk_nde_t* cmd;
int in_type; /* XP_AWK_GETLINE_PIPE, XP_AWK_GETLINE_FILE */
xp_awk_nde_t* in;
};