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 2005-11-21 15:46:47 +00:00
parent 7492eed5c8
commit a9d96b387a
1 changed files with 34 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

95
ase/awk/parse.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: parse.c,v 1.6 2005-11-16 16:09:53 bacon Exp $ * $Id: parse.c,v 1.7 2005-11-21 15:46:47 bacon Exp $
*/ */
#include <xp/awk/awk.h> #include <xp/awk/awk.h>
@ -44,8 +44,7 @@ enum
}; };
static int __parse (xp_awk_t* awk); static int __parse (xp_awk_t* awk);
static int __parse_body (xp_awk_t* awk); static int __parse_program (xp_awk_t* awk);
static int __parse_function_header (xp_awk_t* awk);
static int __get_token (xp_awk_t* awk); static int __get_token (xp_awk_t* awk);
static int __get_char (xp_awk_t* awk); static int __get_char (xp_awk_t* awk);
static int __unget_char (xp_awk_t* awk, xp_cint_t c); static int __unget_char (xp_awk_t* awk, xp_cint_t c);
@ -99,79 +98,53 @@ int xp_awk_parse (xp_awk_t* awk)
{ {
GET_CHAR (awk); GET_CHAR (awk);
GET_TOKEN (awk); GET_TOKEN (awk);
return __parse (awk); return __parse_program (awk);
} }
static int __parse (xp_awk_t* awk) static int __parse_program (xp_awk_t* awk)
{ {
/* /*
function abc () pattern { action }
{ function name (parameter-list) { statement }
} */
BEGIN {
END {
{
!/ /
*/
while (1) { while (1) {
if (awk->token.type == TOKEN_EOF) break;
if (awk->token.type = TOKEN_BEGIN) {
GET_TOKEN (awk);
if (__parse_body(awk) == -1) return -1;
}
#if 0
if (awk->token.type == TOKEN_FUNCTION) { if (awk->token.type == TOKEN_FUNCTION) {
if (__parse_function_header (awk) == -1) return -1; if (__parse_function_declaration(awk) == -1) return -1;
/* parse functio body */
} }
else {
if (awk->token.type == TOKEN_BEGIN) { if (__parse_pattern_action(awk) == -1) return -1;
} }
else if (awk->token.type == TOKEN_END) {
}
else if (awk->token.type == TOKEN_NOT) {
}
else if (awk->token.type == TOKEN_REGEX) {
}
if (awk->token.type != TOKEN_LBRACE) {
awk->errnum = XP_AWK_ELBRAC;
return -1;
}
#endif
}
return 0;
}
static int __parse_body (xp_awk_t* awk)
{
if (awk->token.type != TOKEN_LBRACE) {
awk->errnum = XP_AWK_ELBRAC;
return -1;
}
GET_TOKEN (awk);
if (awk->token.type == TOKEN_CONTINUE) {
} }
return 0; return 0;
} }
static int __parse_function_header (xp_awk_t* awk) static int __parse_function_declaration (xp_awk_t* awk)
{ {
GET_TOKEN (awk); return -1;
if (awk->token.type != TOKEN_IDENT) { }
awk->errnum = XP_AWK_EIDENT;
return -1; static int __parse_pattern_action (xp_awk_t* awk)
{
/*
BEGIN
END
expressions
/regular expression/
pattern && pattern
pattern || pattern
!pattern
(pattern)
pattern, pattern
*/
if (awk->token.type == TOKEN_BEGIN) {
}
else if (awk->token.type == TOKEN_END) {
} }
GET_TOKEN (awk); return -1;
return 0;
} }
static int __get_token (xp_awk_t* awk) static int __get_token (xp_awk_t* awk)