aboutsummaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2011-05-15 13:51:03 +0300
committerSergey Poznyakoff <gray@gnu.org.ua>2011-05-15 14:05:39 +0300
commita0826b4c7cd66c4862d9b61bb7e14d73fcba28f6 (patch)
tree71762fca263967e5803ce803b0a0aa94555e125d /build-aux
parentfd64fa62bc68d8c2e0d693033e874fcc1f023544 (diff)
downloadgrecs-a0826b4c7cd66c4862d9b61bb7e14d73fcba28f6.tar.gz
grecs-a0826b4c7cd66c4862d9b61bb7e14d73fcba28f6.tar.bz2
Provide a framework for multiple parsers. Implement meta1 parser.
* Makefile.am (EXTRA_DIST): Add build-aux/yyrename * am/grecs.m4: New options: parser-meta1 and all-parsers * src/.gitignore: Update. * src/Make.am [GRECS_COND_META1_PARSER]: Set GRECS_PARSER_META1 and GRECS_EXTRA_META1 (GRECS_SRC): Add new files. (EXTRA_DIST): Add GRECS_EXTRA_META1. (LEXCOMPILE,YACCCOMPILE): Redefine * src/grecs-gram.y: Don't include yygrecs.h (grecs_vasprintf,grecs_asprintf): Move to a separate file. (grecs_parse): Rename to grecs_grecs_parser. Actual grecs_parse is defined in parser.c (grecs_gram_trace): Move to parser.c * src/grecs-lex.l: Don't include yygrecs.h Use line_acc functions. * src/grecs.h (grecs_trace_flags): New extern. (GRECS_TRACE_GRAM, GRECS_TRACE_LEX): New flags. (grecs_lex_begin): Change signature. (grecs_grecs_parser,grecs_meta1_parser): New protos. (grecs_line_acc_create) (grecs_line_acc_free,grecs_line_acc_grow_char) (grecs_line_acc_grow_char_unescape) (grecs_line_acc_grow) (grecs_line_acc_grow_unescape_last): New protos. (GRECS_TXTACC_BUFSIZE): New const (grecs_txtacc_create,grecs_txtacc_free) (grecs_txtacc_grow,grecs_txtacc_finish) (grecs_txtacc_free_string): New protos. (grecs_value_match): New proto. * src/wordsplit.c (quote_transtab): Translate \" * src/yygrecs.h: Remove. * src/yytrans: New file. * build-aux/yyrename: New file. * src/asprintf.c: New file. * src/lineacc.c: New file. * src/meta1-gram.y: New file. * src/meta1-lex.l: New file. * src/parser.c: New file. * src/txtacc.c: New file. * doc/grecs_parse.3: Update. * doc/GRECS_SETUP.3: Update.
Diffstat (limited to 'build-aux')
-rwxr-xr-xbuild-aux/yyrename92
1 files changed, 92 insertions, 0 deletions
diff --git a/build-aux/yyrename b/build-aux/yyrename
new file mode 100755
index 0000000..5e7b1db
--- /dev/null
+++ b/build-aux/yyrename
@@ -0,0 +1,92 @@
1#! /bin/sh
2# Rename yy.* identifiers to avoid name clashes. This file is part of Grecs.
3# Copyright (C) 2011 Sergey Poznyakoff
4#
5# Grecs is free software; you can redistribute it and/or modify
6# it under the terms of the GNU General Public License as published by
7# the Free Software Foundation; either version 3, or (at your option)
8# any later version.
9#
10# Grecs is distributed in the hope that it will be useful,
11# but WITHOUT ANY WARRANTY; without even the implied warranty of
12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13# GNU General Public License for more details.
14#
15# You should have received a copy of the GNU General Public License
16# along with Grecs. If not, see <http://www.gnu.org/licenses/>.
17
18# Usage: yyrename [-f OUTFILE [OUTFILE...]] COMMAND INFILE
19# Makefile.am:
20# LEXCOMPILE = yyrename -f $(LEX_OUTPUT_ROOT).c \
21# '$(LEX) $(LFLAGS) $(AM_LFLAGS)'
22# YACCCOMPILE = yyrename '$(YACC) $(YFLAGS) $(AM_YFLAGS)'
23#
24# This script runs COMMAND with INFILE as its argument and scans
25# OUTFILEs for identifiers starting with 'yy'. These identifiers
26# are renamed by replacing 'yy' with the selected prefix.
27#
28# The prefix is looked up in the file yytrans, located in the INFILE's
29# directory. If this file does not exist, the prefix is constructed
30# by concatenating the string 'grecs_' and the ``root name''. The root
31# name is build by removing '-lex.l' or '-gram.y' from the base name.
32# If the latter does not end in any of these, the root name
33# is constructed by removing the suffix from the base name.
34#
35# The yytrans file is a line-oriented lookup table. Empty lines are
36# ignored, usual UNIX comment lines are honored. The remaining lines
37# must consist of two words separated by any amount of whitespace.
38# The first word is a look-up key, the second one provides a translation
39# (yy replacement) for that key.
40#
41# Two look-ups are tried: first the base name and then the root name.
42# If both result in a non-empty replacement, the former is preferred
43# over the latter.
44#
45# The -f option supplies a list of output file names generated by COMMAND.
46# If not supplied, the following defaults are used: y.tab.c and y.tab.h, if
47# INFILE ends in '.y', and yy.lex.c, if it ends in '.l'. If INFILE does not
48# end in any of these suffixes, error is reported.
49#
50# BUGS: Any occurrence of 'yy' is replaced, not only 'yy' prefixes.
51#
52case $1 in
53-f) files=$2
54 shift
55 shift
56esac
57
58base=`expr "$2" : '.*/\(.*\)\.[ly]'`
59dir=`dirname "$2"`
60case $2 in
61*.y) test -z "$files" && files="y.tab.c y.tab.h"
62 root=`expr "$2" : '.*/\(.*\)-gram\.y'`;;
63*.l) test -z "$files" && files=lex.yy.c
64 root=`expr "$2" : '.*/\(.*\)-lex\.l'`;;
65*) if test -z "$files"; then
66 echo >&2 "$0: suffix unknown, files must be given (use -f)"
67 exit 1
68 fi
69 root=$base
70esac
71
72if test -f $dir/yytrans; then
73 pfx=`awk '
74{ sub(/#.*$/,"") }
75NF == 2 && $1=="'$base'" { exact=$2 }
76NF == 2 && $1=="'$root'" { root=$2 }
77{ next }
78END { print exact ? exact : root ? root : "" }' $dir/yytrans`
79else
80 pfx=
81fi
82if test -z "$pfx"; then
83 pfx=grecs_`echo $root | tr .- __`
84fi
85
86eval $* || exit $?
87
88for file in $files
89do
90 mv $file ${file}.tmp
91 sed "s/yy/$pfx/g" ${file}.tmp > $file
92done

Return to:

Send suggestions and report system problems to the System administrator.