%expect
%start _sym_
%token
%token _lex_error
%{/* _parser.y */
#include <libxml/tree.h>
#include <fcntl.h>
#define YYSTYPE xmlNodePtr
#define YYERROR_VERBOSE 1
static xmlNodePtr last_node;
static int track_token_position = 0;
static int line_number;
static int column_number;
/* Include lexer generated from _lexer.l */
#include "_lexer.c"
%}
%%
%%
int yywrap(void) { return 1; }
int
yyerror
(char *msg)
{
fprintf(stderr, "Error at line %d: %s\n", line_number, msg);
}
const char usage[] = \
"usage: _parser [options] [file]\n" \
"Parse into XML.\n" \
"The file \"--\" is treated as standard input.\n" \
"\n" \
"Options:\n" \
"\t-h, -?, --help\n" \
"\t Print this help.\n" \
"\n\t--track\n" \
"\t Track lexical line numbers and positions.\n" \
"\n\t--no-track\n" \
"\t Don't track lexical line numbers and positions.\n" \
"\n";
int
main
(int argc,
char **argv)
{
/* This programs parses data from stdin,
* and writes its output to stdout. */
FILE *f;
int i, ret;
xmlDocPtr doc;
line_number = 1;
column_number = 1;
if (argc == 1) {
printf("%s", usage);
return 0;
}
for (i = 1; i < argc; i++) {
if (!strcmp("-h", argv[i])) {
printf("%s\n", usage);
return 0;
} else if (!strcmp("-?", argv[i])) {
printf("%s\n", usage);
return 0;
} else if (!strcmp("--help", argv[i])) {
printf("%s\n", usage);
return 0;
} else if (!strcmp("--track", argv[i])) {
track_token_position = 1;
} else if (!strcmp("--no-track", argv[i])) {
track_token_position = 0;
} else if (!strcmp("--", argv[i])) {
yyrestart(stdin);
} else {
f = fopen(argv[i], "r");
if (f == NULL) {
perror("_parser");
return 1;
}
yyrestart(f);
break;
}
}
ret = yyparse( );
if (ret == 0) {
doc = xmlNewDoc("1.0");
xmlSetTreeDoc(last_node, doc);
xmlDocSetRootElement(doc, last_node);
xmlDocFormatDump(stdout, doc, 1);
xmlFreeDoc(doc);
ret = 0;
} else {
ret = 1;
}
return ret;
}
_sym_
:
|
_sym_
{
last_node = $$ = xmlNewNode(NULL, "
");
preserve
/*
: action='
'
, rename='
'
*/
xmlNodeSetName($
, "
");
xmlAddChild($$, $);
xmlAddChild($$, $);
if ($->children) {
xmlFreeNodeList($
->children);
$->children = NULL;
}
if ($->children) {
xmlAddChildList($$, $
->children);
$->children = NULL;
}
xmlFreeNode($);
$ = NULL;
xmlFreeNode($);
$ = NULL;
}
|
{
last_node = $$ = xmlNewNode(NULL, "");
}
;