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-06-08 03:16:34 +00:00
parent 6736898459
commit 49374ba69c
2 changed files with 46 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
ase/stx/parser.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: parser.c,v 1.20 2005-06-07 16:09:57 bacon Exp $ * $Id: parser.c,v 1.21 2005-06-08 03:16:34 bacon Exp $
*/ */
#include <xp/stx/parser.h> #include <xp/stx/parser.h>
@ -10,6 +10,8 @@ static int __parse_method (
xp_stx_parser_t* parser, xp_stx_parser_t* parser,
xp_stx_word_t method_class, void* input); xp_stx_word_t method_class, void* input);
static int __parse_message_pattern (xp_stx_parser_t* parser); static int __parse_message_pattern (xp_stx_parser_t* parser);
static int __parse_temporaries (xp_stx_parser_t* parser);
static int __parse_statements (xp_stx_parser_t* parser);
static int __get_token (xp_stx_parser_t* parser); static int __get_token (xp_stx_parser_t* parser);
static int __get_ident (xp_stx_parser_t* parser); static int __get_ident (xp_stx_parser_t* parser);
@ -87,21 +89,38 @@ int xp_stx_parser_parse_method (
static int __parse_method ( static int __parse_method (
xp_stx_parser_t* parser, xp_stx_word_t method_class, void* input) xp_stx_parser_t* parser, xp_stx_word_t method_class, void* input)
{ {
/*
* <method definition> ::=
* <message pattern> [<temporaries> ] [<statements>]
*/
GET_CHAR (parser); GET_CHAR (parser);
GET_TOKEN (parser); GET_TOKEN (parser);
if (__parse_message_pattern (parser) == -1) return -1; if (__parse_message_pattern (parser) == -1) return -1;
if (__parse_temporaries (parser) == -1) return -1;
if (__parse_statements (parser) == -1) return -1;
return 0; return 0;
} }
static int __parse_message_pattern (xp_stx_parser_t* parser) static int __parse_message_pattern (xp_stx_parser_t* parser)
{ {
/*
* <message pattern> ::=
* <unary pattern> | <binary pattern> | <keyword pattern>
* <unary pattern> ::= unarySelector
* <binary pattern> ::= binarySelector <method argument>
* <keyword pattern> ::= (keyword <method argument>)+
*/
if (parser->token.type == XP_STX_TOKEN_IDENT) { /* unary message */ if (parser->token.type == XP_STX_TOKEN_IDENT) {
/* unary pattern */
} }
else if (parser->token.type == XP_STX_TOKEN_BINARY) { /* binary message */ else if (parser->token.type == XP_STX_TOKEN_BINARY) {
/* binary pattern */
} }
else if (parser->token.type == XP_STX_TOKEN_IDENT_COLON) { /* keyword message */ else if (parser->token.type == XP_STX_TOKEN_KEYWORD) {
/* keyword pattern */
xp_stx_char_t* selector; xp_stx_char_t* selector;
} }
else { else {
@ -118,6 +137,16 @@ static int __parse_message_pattern (xp_stx_parser_t* parser)
return 0; return 0;
} }
static int __parse_temporaries (xp_stx_parser_t* parser)
{
return -1;
}
static int __parse_statements (xp_stx_parser_t* parser)
{
return -1;
}
static int __get_token (xp_stx_parser_t* parser) static int __get_token (xp_stx_parser_t* parser)
{ {
xp_cint_t c; xp_cint_t c;

19
ase/stx/parser.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: parser.h,v 1.11 2005-06-06 03:47:34 bacon Exp $ * $Id: parser.h,v 1.12 2005-06-08 03:16:34 bacon Exp $
*/ */
#ifndef _XP_STX_PARSER_H_ #ifndef _XP_STX_PARSER_H_
@ -10,18 +10,25 @@
enum enum
{ {
XP_STX_PARSER_ERROR_NONE = 0, XP_STX_PARSER_ERROR_NONE,
XP_STX_PARSER_ERROR_INPUT,
XP_STX_PARSER_ERROR_MEMORY, /* system errors */
XP_STX_PARSER_ERROR_INVALID, XP_STX_PARSER_ERROR_INVALID,
XP_STX_PARSER_ERROR_MEMORY,
XP_STX_PARSER_ERROR_INPUT,
/* lexical errors */
XP_STX_PARSER_ERROR_CHAR, XP_STX_PARSER_ERROR_CHAR,
XP_STX_PARSER_ERROR_CHARLIT, XP_STX_PARSER_ERROR_CHARLIT,
XP_STX_PARSER_ERROR_STRLIT XP_STX_PARSER_ERROR_STRLIT,
/* syntatic error */
XP_STX_PARSER_ERROR_MESSAGE_SELECTOR
}; };
/* input_func cmd */
enum enum
{ {
/* input_func cmd */
XP_STX_PARSER_INPUT_OPEN, XP_STX_PARSER_INPUT_OPEN,
XP_STX_PARSER_INPUT_CLOSE, XP_STX_PARSER_INPUT_CLOSE,
XP_STX_PARSER_INPUT_CONSUME, XP_STX_PARSER_INPUT_CONSUME,