59 lines
1.3 KiB
C
59 lines
1.3 KiB
C
/*
|
|
* $Id: parser.c,v 1.10 2005-06-04 07:01:57 bacon Exp $
|
|
*/
|
|
|
|
#include <xp/stx/parser.h>
|
|
#include <xp/stx/token.h>
|
|
#include <xp/stx/misc.h>
|
|
|
|
xp_stx_parser_t* xp_stx_parser_open (xp_stx_parser_t* parser)
|
|
{
|
|
if (parser == XP_NULL) {
|
|
parser = (xp_stx_parser_t*)
|
|
xp_stx_malloc (xp_sizeof(xp_stx_parser_t));
|
|
if (parser == XP_NULL) return XP_NULL;
|
|
parser->__malloced = xp_true;
|
|
}
|
|
else parser->__malloced = xp_false;
|
|
|
|
if (xp_stx_token_open (&parser->token, 256) == XP_NULL) {
|
|
if (parser->__malloced) xp_stx_free (parser);
|
|
return XP_NULL;
|
|
}
|
|
|
|
parser->error_code = 0;
|
|
parser->text = XP_NULL;
|
|
parser->curc = XP_CHAR_EOF;
|
|
parser->curp = XP_NULL;
|
|
return parser;
|
|
}
|
|
|
|
void xp_stx_parser_close (xp_stx_parser_t* parser)
|
|
{
|
|
xp_stx_token_close (&parser->token);
|
|
if (parser->__malloced) xp_stx_free (parser);
|
|
}
|
|
|
|
int xp_stx_parser_parse_method (xp_stx_parser_t* parser,
|
|
xp_stx_word_t method_class, xp_stx_char_t* method_text)
|
|
{
|
|
/*xp_stx_lexer_reset (&parser->lexer, text);*/
|
|
|
|
#if 0
|
|
parser->token = xp_stx_lexer_consume (&parser->lexer);
|
|
if (parser->token == XP_NULL) {
|
|
//parser->token = xp_stx_lexer_consume (&parser->lexer);
|
|
//if (parser->token == XP_NULL) {
|
|
/*parser->error_code = xxx;*/
|
|
return -1;
|
|
}
|
|
#endif
|
|
|
|
return 0;
|
|
}
|
|
|
|
static int __get_token (xp_stx_parser_t* parser)
|
|
{
|
|
return -1;
|
|
}
|