mirror of
https://github.com/johnkerl/miller.git
synced 2026-07-25 17:04:01 +00:00
81 lines
2.6 KiB
C
81 lines
2.6 KiB
C
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include "put_dsl_wrapper.h"
|
|
#include "put_dsl_lexer.h"
|
|
#include "put_dsl_parse.h"
|
|
#include "../lib/mlrutil.h"
|
|
#include "../containers/mlr_dsl_ast.h"
|
|
#include "../containers/sllv.h"
|
|
|
|
// These prototypes are copied out manually from put_dsl_parse.c. With some
|
|
// more work I could have Lemon autogenerate these prototypes into
|
|
// put_dsl_parse.h.
|
|
|
|
void *put_dsl_lemon_parser_alloc(void *(*mallocProc)(size_t));
|
|
|
|
int put_dsl_lemon_parser_parse_token(
|
|
void *pvparser, /* The parser */
|
|
int yymajor, /* The major token code number */
|
|
mlr_dsl_ast_node_t* yyminor, /* The value for the token */
|
|
sllv_t* pasts); /* Optional %extra_argument parameter */
|
|
void put_dsl_lemon_parser_free(
|
|
void *pvparser, /* The parser to be deleted */
|
|
void (*freeProc)(void*)); /* Function used to reclaim memory */
|
|
|
|
// ----------------------------------------------------------------
|
|
// http://flex.sourceforge.net/manual/Init-and-Destroy-Functions.html
|
|
// http://flex.sourceforge.net/manual/Extra-Data.html
|
|
|
|
// Returns linked list of mlr_dsl_ast_node_t*.
|
|
static sllv_t* put_dsl_parse_inner(yyscan_t scanner, void* pvparser, mlr_dsl_ast_node_t** ppnode) {
|
|
int lex_code;
|
|
int parse_code;
|
|
sllv_t* pasts = sllv_alloc();
|
|
do {
|
|
lex_code = put_dsl_lexer_lex(scanner);
|
|
mlr_dsl_ast_node_t* plexed_node = *ppnode;
|
|
parse_code = put_dsl_lemon_parser_parse_token(pvparser, lex_code, plexed_node, pasts);
|
|
if (parse_code == 0)
|
|
return NULL;
|
|
} while (lex_code > 0);
|
|
if (-1 == lex_code) {
|
|
fprintf(stderr, "The scanner encountered an error.\n");
|
|
return NULL;
|
|
}
|
|
parse_code = put_dsl_lemon_parser_parse_token(pvparser, 0, NULL, pasts);
|
|
|
|
if (parse_code == 0)
|
|
return NULL;
|
|
return pasts;
|
|
}
|
|
|
|
// ----------------------------------------------------------------
|
|
// Returns linked list of mlr_dsl_ast_node_t*.
|
|
sllv_t* put_dsl_parse(char* string) {
|
|
mlr_dsl_ast_node_t* pnode = NULL;
|
|
yyscan_t scanner;
|
|
put_dsl_lexer_lex_init_extra(&pnode, &scanner);
|
|
void* pvparser = put_dsl_lemon_parser_alloc(malloc);
|
|
|
|
YY_BUFFER_STATE buf = NULL;
|
|
if (string == NULL) {
|
|
put_dsl_lexer_set_in(stdin, scanner);
|
|
} else {
|
|
YY_BUFFER_STATE buf = put_dsl_lexer__scan_string(string, scanner);
|
|
put_dsl_lexer__switch_to_buffer (buf, scanner);
|
|
}
|
|
|
|
sllv_t* pasts = put_dsl_parse_inner(scanner, pvparser, &pnode);
|
|
|
|
if (buf != NULL)
|
|
put_dsl_lexer__delete_buffer(buf, scanner);
|
|
|
|
put_dsl_lexer_lex_destroy(scanner);
|
|
put_dsl_lemon_parser_free(pvparser, free);
|
|
|
|
return pasts;
|
|
}
|
|
|
|
// ----------------------------------------------------------------
|
|
void yytestcase(int ignored) {
|
|
}
|