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-01-19 13:28:29 +00:00
parent f4741f708b
commit 580ba27dbe
3 changed files with 144 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

93
ase/awk/parse.c
View File

@ -1,5 +1,5 @@
/*
* $Id: parse.c,v 1.24 2006-01-19 10:56:35 bacon Exp $
* $Id: parse.c,v 1.25 2006-01-19 13:28:29 bacon Exp $
*/
#include <xp/awk/awk.h>
@ -865,7 +865,98 @@ static xp_awk_node_t* __parse_while (xp_awk_t* awk)
static xp_awk_node_t* __parse_for (xp_awk_t* awk)
{
xp_awk_node_t* init, * test, * incr, * body;
xp_awk_node_for_t* node;
if (!MATCH(awk,TOKEN_LPAREN)) PANIC (awk, XP_AWK_ELPAREN);
if (__get_token(awk) == -1) return XP_NULL;
if (MATCH(awk,TOKEN_SEMICOLON)) init = XP_NULL;
else {
init = __parse_expression (awk);
if (init == XP_NULL) return XP_NULL;
if (!MATCH(awk,TOKEN_SEMICOLON)) {
xp_awk_clrpt (init);
PANIC (awk, XP_AWK_ESEMICOLON);
}
}
if (__get_token(awk) == -1) {
xp_awk_clrpt (init);
return XP_NULL;
}
if (MATCH(awk,TOKEN_SEMICOLON)) test = XP_NULL;
else {
test = __parse_expression (awk);
if (test == XP_NULL) {
xp_awk_clrpt (init);
return XP_NULL;
}
if (!MATCH(awk,TOKEN_SEMICOLON)) {
xp_awk_clrpt (init);
xp_awk_clrpt (test);
PANIC (awk, XP_AWK_ESEMICOLON);
}
}
if (__get_token(awk) == -1) {
xp_awk_clrpt (init);
xp_awk_clrpt (test);
return XP_NULL;
}
if (MATCH(awk,TOKEN_RPAREN)) incr = XP_NULL;
else {
incr = __parse_expression (awk);
if (incr == XP_NULL) {
xp_awk_clrpt (init);
xp_awk_clrpt (test);
return XP_NULL;
}
if (!MATCH(awk,TOKEN_RPAREN)) {
xp_awk_clrpt (init);
xp_awk_clrpt (test);
xp_awk_clrpt (incr);
PANIC (awk, XP_AWK_ERPAREN);
}
}
if (__get_token(awk) == -1) {
xp_awk_clrpt (init);
xp_awk_clrpt (test);
xp_awk_clrpt (incr);
return XP_NULL;
}
body = __parse_statement (awk);
if (body == XP_NULL) {
xp_awk_clrpt (init);
xp_awk_clrpt (test);
xp_awk_clrpt (incr);
return XP_NULL;
}
node = (xp_awk_node_for_t*) xp_malloc (xp_sizeof(xp_awk_node_for_t));
if (node == XP_NULL) {
xp_awk_clrpt (init);
xp_awk_clrpt (test);
xp_awk_clrpt (incr);
xp_awk_clrpt (body);
PANIC (awk, XP_AWK_ENOMEM);
}
node->type = XP_AWK_NODE_FOR;
node->next = XP_NULL;
node->init = init;
node->test = test;
node->incr = incr;
node->body = body;
return (xp_awk_node_t*)node;
}
static xp_awk_node_t* __parse_dowhile (xp_awk_t* awk)

39
ase/awk/tree.c
View File

@ -1,5 +1,5 @@
/*
* $Id: tree.c,v 1.6 2006-01-19 10:56:35 bacon Exp $
* $Id: tree.c,v 1.7 2006-01-19 13:28:29 bacon Exp $
*/
#include <xp/awk/awk.h>
@ -162,6 +162,29 @@ static void __print_statements (xp_awk_node_t* tree, int depth)
xp_printf (XP_TEXT(");\n"));
break;
case XP_AWK_NODE_FOR:
__print_tabs (depth);
xp_printf (XP_TEXT("for ("));
if (((xp_awk_node_for_t*)p)->init != XP_NULL) {
__print_expr_node (((xp_awk_node_for_t*)p)->init);
}
xp_printf (XP_TEXT("; "));
if (((xp_awk_node_for_t*)p)->test != XP_NULL) {
__print_expr_node (((xp_awk_node_for_t*)p)->test);
}
xp_printf (XP_TEXT("; "));
if (((xp_awk_node_for_t*)p)->incr != XP_NULL) {
__print_expr_node (((xp_awk_node_for_t*)p)->incr);
}
xp_printf (XP_TEXT(")\n"));
if (((xp_awk_node_for_t*)p)->body->type == XP_AWK_NODE_BLOCK) {
__print_statements (((xp_awk_node_for_t*)p)->body, depth);
}
else {
__print_statements (((xp_awk_node_for_t*)p)->body, depth + 1);
}
case XP_AWK_NODE_BREAK:
__print_tabs (depth);
xp_printf (XP_TEXT("break;\n"));
@ -237,8 +260,8 @@ void xp_awk_clrpt (xp_awk_node_t* tree)
case XP_AWK_NODE_IF:
xp_awk_clrpt (((xp_awk_node_if_t*)p)->test);
if (((xp_awk_node_if_t*)p)->then_part != XP_NULL)
xp_awk_clrpt (((xp_awk_node_if_t*)p)->then_part);
if (((xp_awk_node_if_t*)p)->else_part != XP_NULL)
xp_awk_clrpt (((xp_awk_node_if_t*)p)->else_part);
xp_free (p);
@ -247,11 +270,21 @@ void xp_awk_clrpt (xp_awk_node_t* tree)
case XP_AWK_NODE_WHILE:
case XP_AWK_NODE_DOWHILE:
xp_awk_clrpt (((xp_awk_node_while_t*)p)->test);
if (((xp_awk_node_while_t*)p)->body != XP_NULL)
xp_awk_clrpt (((xp_awk_node_while_t*)p)->body);
xp_free (p);
break;
case XP_AWK_NODE_FOR:
if (((xp_awk_node_for_t*)p)->init != XP_NULL)
xp_awk_clrpt (((xp_awk_node_for_t*)p)->init);
if (((xp_awk_node_for_t*)p)->test != XP_NULL)
xp_awk_clrpt (((xp_awk_node_for_t*)p)->test);
if (((xp_awk_node_for_t*)p)->incr != XP_NULL)
xp_awk_clrpt (((xp_awk_node_for_t*)p)->incr);
xp_awk_clrpt (((xp_awk_node_for_t*)p)->body);
xp_free (p);
break;
case XP_AWK_NODE_BREAK:
case XP_AWK_NODE_CONTINUE:
xp_free (p);

15
ase/awk/tree.h
View File

@ -1,5 +1,5 @@
/*
* $Id: tree.h,v 1.11 2006-01-19 10:56:35 bacon Exp $
* $Id: tree.h,v 1.12 2006-01-19 13:28:29 bacon Exp $
*/
#ifndef _XP_AWK_TREE_H_
@ -22,7 +22,8 @@ enum
XP_AWK_NODE_CALL,
XP_AWK_NODE_IF,
XP_AWK_NODE_WHILE,
XP_AWK_NODE_DOWHILE
XP_AWK_NODE_DOWHILE,
XP_AWK_NODE_FOR
};
typedef struct xp_awk_node_t xp_awk_node_t;
@ -33,6 +34,7 @@ typedef struct xp_awk_node_term_t xp_awk_node_term_t;
typedef struct xp_awk_node_call_t xp_awk_node_call_t;
typedef struct xp_awk_node_if_t xp_awk_node_if_t;
typedef struct xp_awk_node_while_t xp_awk_node_while_t;
typedef struct xp_awk_node_for_t xp_awk_node_for_t;
#define XP_AWK_NODE_HDR \
int type; \
@ -92,6 +94,15 @@ struct xp_awk_node_while_t
xp_awk_node_t* body;
};
struct xp_awk_node_for_t
{
XP_AWK_NODE_HDR;
xp_awk_node_t* init;
xp_awk_node_t* test;
xp_awk_node_t* incr;
xp_awk_node_t* body;
};
#ifdef __cplusplus
extern "C" {
#endif