48 lines
1.1 KiB
C
48 lines
1.1 KiB
C
/*
|
|
* $Id: parser.c,v 1.9 2005-06-02 16:14:58 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_lexer_open (&parser->lexer, XP_NULL) == XP_NULL) {
|
|
if (parser->__malloced) xp_stx_free (parser);
|
|
return XP_NULL;
|
|
}
|
|
|
|
//parser->token = XP_NULL;
|
|
parser->error_code = 0;
|
|
return parser;
|
|
}
|
|
|
|
void xp_stx_parser_close (xp_stx_parser_t* parser)
|
|
{
|
|
xp_stx_lexer_close (&parser->lexer);
|
|
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, method_text);
|
|
|
|
//parser->token = xp_stx_lexer_consume (&parser->lexer);
|
|
//if (parser->token == XP_NULL) {
|
|
/*parser->error_code = xxx;*/
|
|
// return -1;
|
|
//}
|
|
|
|
return 0;
|
|
}
|