Skip to content

John McEleney / mailutils

Go to a project
Toggle navigation
Toggle navigation pinning
Commit fa5d4812 fa5d4812fc4936dd470ded17116c9d966d0d645e by Sergey Poznyakoff
Options

Rewrite Makefile rules for lex and bison 

The aim is to get rid of the explicit rules and use the Autmake framework
as much as possible, without hurting the flexibility.  To this effect, the
gylwrap tool is rewritten from scratch (in Perl).  In compatibility
mode it takes the same arguments as the standard ylwrap.  Additional
configuration is supplied in the configuration file gylwrap.conf, located
in the directory where the input file resides.

* mu-aux/gylwrap: Rewrite from scratch.
* configure.ac (MU_YLWRAP): New subst variable.
* libmailutils/base/.gitignore: Update.
* libmailutils/base/Makefile.am: Update.
* libmailutils/base/gylwrap.conf: New file.
* libmailutils/cfg/.gitignore: Update.
* libmailutils/cfg/Makefile.am: Use new YLWRAP
* libmailutils/cfg/cfg.h: Remove.
* libmailutils/cfg/gylwrap.conf: New file.
* libmailutils/cfg/lexer.l: Include mailutils/yyloc.h directly.
* libmailutils/cfg/parser.y: Likewise.
* libmu_sieve/Makefile.am: Use new YLWRAP
* libmu_sieve/gylwrap.conf: New file.
* libmu_sieve/sieve.y: Rename to libmu_sieve/sieve-gram.y
* libmu_sieve/sieve.l: Rename to libmu_sieve/sieve-lex.l
* mail/Makefile.am: Use new YLWRAP
* mh/.gitignore: Update.
* mh/Makefile.am: Use new YLWRAP
* mh/gylwrap.conf: New file.
* mh/mh_alias.y: Rename to mh/mh_alias_gram.y
* mh/mh_alias.l: Rename to mh/mh_alias_lex.l
* mh/pick.y: Rename to mh/pick-gram.y
* mimeview/.gitignore: Update.
* mimeview/Makefile.am: Use new YLWRAP
* mimeview/mimetypes.y: Rename to mimeview/grammar.y
* mimeview/gylwrap.conf: New file.
* mimeview/mimetypes.l: Rename to mimeview/lexer.l
* po/POTFILES.in: Update
1 parent 3a78309a
Inline Side-by-side
Showing 28 changed files with 461 additions and 306 deletions
......@@ -71,6 +71,9 @@ AC_SUBST(MU_LIB_COMMON_INCLUDES,'-I${top_builddir} -I${top_srcdir}/include -I${
AC_SUBST(MU_APP_COMMON_INCLUDES,'-I${srcdir} -I${top_srcdir}/include -I${top_srcdir}/lib -I${top_srcdir}/lib/gnu -I${top_builddir}/lib/gnu -I${top_builddir} -I${top_builddir}/include')
# Use our replacement for the ylwrap tool
AC_SUBST([MU_YLWRAP],'$(mu_aux_dir)/gylwrap --compatibility --')
dnl Check for programs
AC_PROG_CC
AM_PROG_CC_C_O
......
......@@ -54,7 +54,7 @@ libbase_la_SOURCES = \
observer.c\
onexit.c\
opool.c\
parsedate.c\
parsedate.y\
permstr.c\
registrar.c\
refcount.c\
......@@ -82,17 +82,10 @@ AM_CPPFLAGS = \
-DLOCALEDIR=\"$(localedir)\"
YLWRAP = $(SHELL) $(mu_aux_dir)/gylwrap
AM_YFLAGS=-vt
AM_LFLAGS=-dp
YLWRAP = @MU_YLWRAP@
EXTRA_DIST = gylwrap.conf
AM_YFLAGS=
AM_LFLAGS=
EXTRA_DIST = parsedate.y
BUILT_SOURCES = parsedate.c
parsedate.c: $(srcdir)/parsedate.y
$(YLWRAP) "$(YACC) $(AM_YFLAGS)" $< \
y.tab.c parsedate.c y.output parsedate.y.output \
-- -yy pd_yy
......
# Configuration settings for gylwrap.
# See ../../mu-aux/gylwrap --help, for details.
yyrepl = pd_yy
lexer.c
parser.c
parser.h
parser.output
......
......@@ -20,9 +20,8 @@ noinst_LTLIBRARIES = libcfg.la
libcfg_la_SOURCES = \
driver.c\
format.c\
lexer.c\
parser.c\
cfg.h
lexer.l\
parser.y
localedir = $(datadir)/locale
AM_CPPFLAGS = \
......@@ -30,25 +29,15 @@ AM_CPPFLAGS = \
-DSYSCONFDIR=\"$(sysconfdir)\"\
-DLOCALEDIR=\"$(localedir)\"
EXTRA_DIST = \
lexer.l\
parser.y\
parser.h
parser.h\
gylwrap.conf
BUILT_SOURCES = parser.c parser.h lexer.c
YLWRAP = $(SHELL) $(mu_aux_dir)/gylwrap
AM_YFLAGS=-vt
YLWRAP = @MU_YLWRAP@
AM_YFLAGS=-vdt
AM_LFLAGS=-dp
parser.c parser.h: $(srcdir)/parser.y
$(AM_V_GEN)$(YLWRAP) "$(YACC) $(AM_YFLAGS) -d" $< \
y.tab.c parser.c y.tab.h parser.h \
y.output parser.y.output \
-- -yy mu_cfg_yy
lexer.c: $(srcdir)/lexer.l parser.h
$(AM_V_GEN)$(YLWRAP) "$(LEX) $(AM_LFLAGS) $(LFLAGS)" \
$(srcdir)/lexer.l lex.yy.c lexer.c \
-- -yy mu_cfg_yy
......
#include <mailutils/yyloc.h>
# Configuration settings for gylwrap.
# See ../../mu-aux/gylwrap --help, for details.
yyrepl = mu_cfg_yy
......@@ -41,7 +41,7 @@
#include <mailutils/locus.h>
#include <mailutils/stream.h>
#include <mailutils/stdstream.h>
#include "cfg.h"
#include <mailutils/yyloc.h>
#include "parser.h"
void _mu_line_begin (void);
......
......@@ -40,7 +40,7 @@
#include <mailutils/stream.h>
#include <mailutils/stdstream.h>
#include <mailutils/cidr.h>
#include "cfg.h"
#include <mailutils/yyloc.h>
int mu_cfg_parser_verbose;
static mu_list_t /* of mu_cfg_node_t */ parse_node_list;
......
......@@ -15,7 +15,7 @@
## You should have received a copy of the GNU General Public License
## along with GNU Mailutils. If not, see <http://www.gnu.org/licenses/>.
YLWRAP = $(SHELL) $(mu_aux_dir)/gylwrap
YLWRAP = @MU_YLWRAP@
AM_YFLAGS = -dtv
#AM_LEXFLAGS=-dvp
AM_CPPFLAGS =\
......@@ -39,9 +39,8 @@ libmu_sieve_la_SOURCES = \
relational.c\
require.c\
runtime.c\
sieve-gram.c\
sieve-gram.h\
sieve-lex.c\
sieve-gram.y\
sieve-lex.l\
strexp.c\
string.c\
tests.c\
......@@ -50,24 +49,14 @@ libmu_sieve_la_SOURCES = \
libmu_sieve_la_LIBADD = ${MU_LIB_MAILUTILS} @LTDL_LIB@
libmu_sieve_la_LDFLAGS = -version-info @VI_CURRENT@:@VI_REVISION@:@VI_AGE@
noinst_HEADERS = sieve-priv.h
noinst_HEADERS = sieve-priv.h sieve-gram.h
BUILT_SOURCES = \
sieve-gram.c sieve-gram.h \
sieve-lex.c
MAINTAINERCLEANFILES=$(BUILT_SOURCES)
EXTRA_DIST = sieve.y sieve.l
EXTRA_DIST=gylwrap.conf
sieve-lex.c: $(srcdir)/sieve.l sieve-gram.h
$(AM_V_GEN)$(YLWRAP) "$(LEX) $(AM_LEXFLAGS) $(LEXFLAGS)" \
$(srcdir)/sieve.l lex.yy.c sieve-lex.c \
-- -yy mu_sieve_yy
sieve-gram.c sieve-gram.h: $(srcdir)/sieve.y
$(AM_V_GEN)$(YLWRAP) "$(YACC) $(AM_YFLAGS) $(YFLAGS)" $(srcdir)/sieve.y \
y.tab.c sieve-gram.c y.tab.h sieve-gram.h y.output y.output \
-- -yy mu_sieve_yy
MAINTAINERCLEANFILES=$(BUILT_SOURCES)
......
# Configuration settings for gylwrap.
# See ../mu-aux/gylwrap --help, for details.
yyrepl=mu_sieve_yy
......@@ -15,6 +15,7 @@
## You should have received a copy of the GNU General Public License
## along with GNU Mailutils. If not, see <http://www.gnu.org/licenses/>.
YLWRAP = @MU_YLWRAP@
AM_YFLAGS=-vt
AM_CPPFLAGS = \
@MU_APP_COMMON_INCLUDES@ @MU_AUTHINCS@\
......
......@@ -14,8 +14,7 @@ forw
inc
install-mh
mark
mh_alias.h
mh_alias_gram.c
mh_alias_gram.[ch]
mh_alias_lex.c
mh_fmtgram.c
mhl
......
......@@ -68,33 +68,33 @@ noinst_LIBRARIES = libmh.a
libmh_a_SOURCES= \
compcommon.c\
mboxprop.c\
mh_alias_gram.c\
mh_alias_lex.c\
mh_alias_gram.y\
mh_alias_lex.l\
mh_getopt.c\
mh_global.c\
mh_format.c\
mh_init.c\
mh_list.c\
mh_fmtgram.c\
mh_fmtgram.y\
mh_msgset.c\
mh_sequence.c\
mh_stream.c\
mh_whatnow.c\
mh_whom.c\
whatnowenv.c
noinst_HEADERS = mh.h mh_alias.h mh_format.h mh_getopt.h
noinst_HEADERS = mh.h mh_alias_gram.h mh_format.h mh_getopt.h
BUILT_SOURCES= \
mh_fmtgram.c \
pick-gram.c \
pick-gram.h \
mh_alias_gram.c \
mh_alias_lex.c \
mh_alias.h
BUILT_SOURCES=\
mh_fmtgram.c\
pick-gram.c\
pick-gram.h\
mh_alias_gram.c\
mh_alias_gram.h\
mh_alias_lex.c
MAINTAINERCLEANFILES=$(BUILT_SOURCES)
EXTRA_DIST = mh_fmtgram.y pick.y mh_alias.y mh_alias.l
EXTRA_DIST = gylwrap.conf
mhlibdir = $(pkgdatadir)/mh
......@@ -119,9 +119,9 @@ mh_LIBS = \
@MU_COMMON_LIBRARIES@
LDADD = $(mh_LIBS)
scan_LDADD = $(mh_LIBS) @CURSES_LIBS@
pick_SOURCES = pick.c pick.h pick-gram.c pick-gram.h
pick_SOURCES = pick.c pick.h pick-gram.y pick-gram.h
YLWRAP = $(SHELL) $(mu_aux_dir)/gylwrap
YLWRAP = @MU_YLWRAP@
AM_YFLAGS=-vt
inc_LDADD = \
......@@ -144,29 +144,6 @@ inc_LDADD = \
${MU_LIB_MAILUTILS}\
@MU_COMMON_LIBRARIES@
pick-gram.c pick-gram.h: $(srcdir)/pick.y
$(AM_V_GEN)$(YLWRAP) "$(YACC) $(AM_YFLAGS) -d" $< \
y.tab.c pick-gram.c y.tab.h pick-gram.h \
y.output pick.output \
-- -yy pick_yy
mh_fmtgram.c: $(srcdir)/mh_fmtgram.y
$(AM_V_GEN)$(YLWRAP) "$(YACC) $(AM_YFLAGS)" $< \
y.tab.c mh_fmtgram.c y.output fmtgram.y.output \
-- -yy fmt_yy
mh_alias_gram.c mh_alias.h: $(srcdir)/mh_alias.y
$(AM_V_GEN)$(YLWRAP) "$(YACC) $(AM_YFLAGS) -d" $< \
y.tab.c mh_alias_gram.c y.tab.h mh_alias.h \
y.output mh_alias.output \
-- -yy ali_yy
mh_alias_lex.c: $(srcdir)/mh_alias.l mh_alias.h
$(AM_V_GEN)$(YLWRAP) "$(LEX) $(AM_LEXFLAGS) $(LEXFLAGS)" \
$(srcdir)/mh_alias.l lex.yy.c mh_alias_lex.c \
-- -yy ali_yy
install-exec-hook:
@here=`pwd`; \
cd $(DESTDIR)$(bindir); \
......
# Configuration settings for gylwrap.
# See ../mu-aux/gylwrap --help, for details.
[pick-gram.y]
yyrepl = pick_yy
flags = -d
[mh_fmtgram.y]
yyrepl = fmt_yy
[mh_alias_gram.y]
yyrepl = ali_yy
flags = -d
[mh_alias_lex.l]
yyrepl = ali_yy
......@@ -23,7 +23,7 @@
%{
#include <mh.h>
#include <mh_alias.h>
#include <mh_alias_gram.h>
#include <sys/stat.h>
#include <mailutils/cctype.h>
#include <mailutils/io.h>
......
......@@ -3,11 +3,8 @@
.libs
Makefile
Makefile.in
lex.yy.c
mimetypes-decl.h
mimetypes-gram.c
mimetypes-lex.c
mimetypes.output
grammar.c
grammar.h
grammar.output
lexer.c
mimeview
y.output
y.tab.c
......
......@@ -25,28 +25,15 @@ AM_CPPFLAGS = \
bin_PROGRAMS = mimeview
mimeview_SOURCES = \
mimeview.c \
mimetypes-gram.c \
mimetypes-lex.c \
mimetypes-decl.h \
mimeview.h
grammar.y \
lexer.l \
mimeview.h\
grammar.h
YLWRAP = $(SHELL) $(mu_aux_dir)/gylwrap
AM_YFLAGS=-vt
YLWRAP = @MU_YLWRAP@
AM_YFLAGS=-vtd
AM_LEXFLAGS=-d
EXTRA_DIST = mimetypes.y mimetypes.l
mimetypes-gram.c mimetypes-decl.h: $(srcdir)/mimetypes.y
$(AM_V_GEN)$(YLWRAP) "$(YACC) $(AM_YFLAGS) -d" $< \
y.tab.c mimetypes-gram.c y.tab.h mimetypes-decl.h \
y.output mimetypes.output \
-- -yy mimetypes_yy
mimetypes-lex.c: $(srcdir)/mimetypes.l mimetypes-decl.h
$(AM_V_GEN)$(YLWRAP) "$(LEX) $(AM_LEXFLAGS) $(LEXFLAGS)" \
$(srcdir)/mimetypes.l lex.yy.c mimetypes-lex.c \
-- -yy mimetypes_yy
BUILT_SOURCES = mimetypes-gram.c mimetypes-lex.c mimetypes-decl.h
EXTRA_DIST = gylwrap.conf
mimeview_LDADD = \
${MU_APP_LIBRARIES}\
......
......@@ -22,7 +22,7 @@
#include <mailutils/cctype.h>
#include <mimeview.h>
#include <mimetypes-decl.h>
#include <grammar.h>
#include <regex.h>
static void
......
# Configuration settings for gylwrap.
# See ../mu-aux/gylwrap --help, for details.
yyrepl = mimetypes_yy
......@@ -26,7 +26,7 @@
#include <stdio.h>
#include <sys/stat.h>
#include <mimeview.h>
#include <mimetypes-decl.h>
#include <grammar.h>
#include <mailutils/io.h>
static mu_linetrack_t trk;
......
#! /bin/sh
# ylwrap - wrapper for lex/yacc invocations.
# Copyright 1996-1999, 2007, 2010-2012, 2014-2017 Free Software
# Foundation, Inc.
# Written by Tom Tromey <tromey@cygnus.com>.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
# Usage:
# ylwrap PROGRAM [ARGS] INPUT [OUTPUT DESIRED]... -- [-yy repl] [ARGS]...
# * PROGRAM is program to run; options can follow but must start with `-'.
# * INPUT is the input file
# * OUTPUT is file PROG generates
# * DESIRED is file we actually want
# * ARGS are passed to PROG
# * Optional -yy introduces the sequence to replace yy prefixes with.
# Any number of OUTPUT,DESIRED pairs may be used.
# The program to run.
prog="$1"
shift
# Make any relative path in $prog absolute.
case "$prog" in
/* | [A-Za-z]:*) ;;
*/*) prog="`pwd`/$prog" ;;
esac
# We also have to accept options here and append them to the program.
# Why? Suppose YACC is set to `bison -y'. Clearly nobody uses
# ylwrap, or this would have been discovered earlier!
while :; do
case "$1" in
-*)
prog="$prog $1"
shift
;;
*)
break
;;
esac
done
# The input.
input="$1"
shift
case "$input" in
/* | [A-Za-z]:*)
# Absolute path; do nothing.
;;
*)
# Relative path. Make it absolute.
input="`pwd`/$input"
;;
esac
# The directory holding the input.
input_dir="`echo $input | sed -e 's,/[^/]*$,,'`"
# Quote $INPUT_DIR so we can use it in a regexp.
# FIXME: really we should care about more than `.'.
input_rx="`echo $input_dir | sed -e 's,\.,\\\.,g'`"
pairlist=
defout=$1
while test "$#" -ne 0; do
if test "$1" = "--"; then
shift
break
fi
pairlist="$pairlist $1"
shift
done
STDOUT=""
if [ $# -ne 0 ]; then
while test "$#" -ne 0; do
case "x$1" in
x-yy)
shift
if [ $# -eq 0 ]; then
echo "ylwrap: -yy requires an argument"
exit 1
fi
YYREPL=$1
shift;;
x-stdout)
shift
STDOUT=$defout
;;
*)
break;;
esac
done
fi
# FIXME: add hostname here for parallel makes that run commands on
# other machines. But that might take us over the 14-char limit.
dirname=ylwrap$$
trap "cd `pwd`; rm -rf $dirname > /dev/null 2>&1" 1 2 3 15
mkdir $dirname || exit 1
cd $dirname
if [ -n "$STDOUT" ]; then
$prog ${1+"$@"} "$input" > $STDOUT
else
$prog ${1+"$@"} "$input"
fi
status=$?
if test $status -eq 0; then
set X $pairlist
shift
first=yes
# Since DOS filename conventions don't allow two dots,
# the DOS version of Bison writes out y_tab.c instead of y.tab.c
# and y_tab.h instead of y.tab.h. Test to see if this is the case.
y_tab_nodot="no"
if test -f y_tab.c || test -f y_tab.h; then
y_tab_nodot="yes"
fi
while test "$#" -ne 0; do
from="$1"
# Handle y_tab.c and y_tab.h output by DOS
if test $y_tab_nodot = "yes"; then
if test $from = "y.tab.c"; then
from="y_tab.c"
else
if test $from = "y.tab.h"; then
from="y_tab.h"
fi
fi
fi
if test -f "$from"; then
# If $2 is an absolute path name, then just use that,
# otherwise prepend `../'.
case "$2" in
/* | [A-Za-z]:*) target="$2";;
*) target="../$2";;
esac
# Edit out `#line' or `#' directives. We don't want the
# resulting debug information to point at an absolute srcdir;
# it is better for it to just mention the .y file with no
# path.
T=`basename $target`
EXPR="/^#/ s,$input_rx/,,;s,\"$from\",\"$T\","
if [ ! -z "$YYREPL" ]; then
EXPR="$EXPR;s/yy/$YYREPL/g"
fi
sed -e "$EXPR" "$from" > "$target" || status=$?
else
# A missing file is only an error for the first file. This
# is a blatant hack to let us support using "yacc -d". If -d
# is not specified, we don't want an error when the header
# file is "missing".
if test $first = yes; then
status=1
fi
fi
shift
shift
first=no
done
else
status=$?
fi
# Remove the directory.
cd ..
rm -rf $dirname
exit $status
eval '(exit $?0)' && eval 'exec perl -wS "$0" "$@"'
& eval 'exec perl -wS "$0" $argv:q'
if 0;
use strict;
use warnings;
use Getopt::Long qw(:config gnu_getopt no_ignore_case require_order auto_version);
use File::Basename;
use File::Temp qw(tempdir);
use Pod::Man;
use Pod::Usage;
use Cwd 'abs_path';
use List::Regexp;
=head1 NAME
gylwrap - wrapper for yacc, lex and similar programs
=head1 SYNOPSIS
B<gylwrap>
[B<-c?>]
[B<--compatibility>]
[B<--yyrepl=>I<PREFIX>]
[B<--yysym=>I<STRING>]
[B<--stdout>]
[B<--help>]
[B<--version>]
I<COMMAND>
I<INPUT>
I<OUTPUT> I<DESIRED>...
B<ylwrap>
[B<-?>]
[B<--yyrepl=>I<PREFIX>]
[B<--yysym=>I<STRING>]
[B<--stdout>]
[B<--help>]
[B<--version>]
I<INPUT>
[I<OUTPUT> I<DESIRED>]...
B<--> I<PROGRAM> [I<ARGS>]
=head1 DESCRIPTION
Wraps B<lex> and B<yacc> invocations to rename their output files.
It also ensures that multiple I<COMMAND> instances can be invoked
in a single directory in parallel and allows for renaming global
symbols to avoid clashes when multiple parsers and/or lexers are
linked in a single executable.
To achieve this, B<gylwrap> creates a temporary directory, changes
to it, and runs I<COMMAND> (which may contain arguments and options)
with I<INPUT> as its last argument. Upon successful exit, it processes
the I<OUTPUT> I<DESIRED> pairs. Each I<OUTPUT> file is then renamed
to the file I<DESIRED>, taking care to fix up any eventual B<#line>
directives.
If B<--yyrepl=I<PREFIX>> is given, the global symbols that can cause
name clashes are renamed by replacing the initial B<yy> with I<PREFIX>.
For a list of symbols that are subject for replacement, inspect the
B<@sym> variable at the start of the script. Additional names can be
added to this list using the B<--yysym> option.
If given the B<--compatibility> option or if invoked as B<ylwrap>,
the tool runs in compatibility mode, mimicking the behavior of the
standard B<ylwrap> utility from GNU Automake. Command line arguments
consist of two lists, separated by B<-->. The left-hand side list
supplies the I<OUTPUT>,I<DESIRED> pairs, and the right-hand side one
supplies the command and its arguments.
In both modes, prior to running the command, the program looks for file
B<gylwrap.conf> in the same directory as the I<INPUT> file. If found,
the file is sourced. Empty lines and comments (introduced by the hash
sign) are ignored. Rest of lines are either option assignements, or
section headings.
Option assignements have the form B<I<OPTION> = I<VALUE>>, and generally,
have the same meaning as the corresponding command line option without
the leading two dashes:
=over 4
=item B<yyrepl => I<PREFIX>
Replace the B<yy> prefix with I<PREFIX> in the identifiers.
=item B<stdout = 1>
Enable the B<--stdout> option.
=item B<yysym => I<NAME>
Add I<NAME> to the list of symbols suitable for prefix replacement.
This keyword can appear multiple times.
=item B<flags => I<STRING>
Add I<STRING> to the invocation of I<COMMAND>. This is useful, if you
have several parsers in the same directory, and some of them require
the B<-d> option, while others don't.
=back
Section headers have the form B<[I<FILE>]>. The settings under a
section header have effect only if I<FILE> is the same as the I<INPUT>
command line argument.
=head1 OPTIONS
=over 4
=item B<-c>, B<--compatibility>
Run in compatibility mode.
=item B<--stdout>
Redirect I<COMMAND>'s standard output to the first I<OUTPUT>.
=item B<--yyrepl=>I<PREFIX>
Replace the B<yy> prefix in global symbols with I<PREFIX>.
=item B<--yysym=>I<SYMBOL>
Add I<SYMBOL> to the list of symbols subject for replacement.
=item B<-?>, B<--help>
Displays help text and exit
=item B<--version>
Displays program version and exits.
=back
=head1 NOTE
This script is an improved version of the B<ylwrap> script, included
in the GNU Automake distribution.
=cut
# List of symbols suitable for prefix replacements. See the
# options --yyrepl and --yysym, and similar statements in the configuration
# file.
my @yysym = qw(
yymaxdepth
yyparse
yylex
yyerror
yylval
yychar
yydebug
yypact
yyr1
yyr2
yydef
yychk
yypgo
yyact
yyexca
yyerrflag
yynerrs
yyps
yypv
yys
yy_yys
yystate
yytmp
yyv
yy_yyv
yyval
yylloc
yyreds
yytoks
yylhs
yylen
yydefred
yydgoto
yysindex
yyrindex
yygindex
yytable
yycheck
yyname
yyrule
);
our $VERSION = '1.00';
# If prefix replacement is requested, the list above is assembled into
# a single regular expression, stored here.
my $yyrx;
# String to replace the "yy" prefix with.
my $yyrepl;
# If set, redirect the stdout from the command to the first output file.
my $stdout;
# Input directory with special characters escaped, for "#line" directive
# fixup.
my $input_rx;
# Configuration settings from the "gylwrap.conf" file. Indexed by
# input file name. Default entry is ''.
my %config;
# Name of the first output file. This is used in compatibility mode to
# avoid bailing out if one of the output files (except the principal one)
# does not exist.
my $parser;
# Name this program was invoked as.
my $progname = basename($0);
my $compat = $progname eq 'ylwrap'; # True if running in compatibility mode
# List of files created during the run, for cleanup purposes.
my @created;
sub filter {
my ($from, $to) = @_;
my $target = basename($to);
my $ifd;
unless (open($ifd, '<', $from)) {
if ($compat) {
return if $from ne $parser;
}
die "can't open input file $from: $!";
}
open(my $ofd, '>', $to)
or die "can't open output file $to: $!";
push @created, $to;
while (<$ifd>) {
if (/^#/) {
s{$input_rx/}{};
s{"$from"}{"$target"};
}
if ($yyrx) {
s{\byy($yyrx)\b}{${yyrepl}$1}g;
}
print $ofd $_
}
close $ifd;
close $ofd;
}
sub readconf {
my $file = shift;
open(my $fd, '<', $file)
or die "can't open $file: $!";
my $key = '';
while (<$fd>) {
chomp;
s/^\s+//;
if (/^#/ || /^$/) {
next;
} elsif (/^\[(.+)\]/) {
$key = $1;
} elsif (m/(.+?)\s*=\s*(.+)$/) {
if ($1 eq 'yysym') {
push @{$config{$key}{$1}}, $2;
} else {
$config{$key}{$1} = $2;
}
} else {
print STDERR "$file:$.: unrecognized line\n";
}
}
close($fd);
}
my ($command, $input, @output);
GetOptions("yyrepl=s" => \$yyrepl,
"yysym=s@" => \@yysym,
"stdout" => \$stdout,
"compatibility|c" => \$compat,
"help|?" => sub {
pod2usage(-exitstatus => 0, -verbose => 2);
}
) or exit(1);
if ($compat) {
$input = shift @ARGV;
while (my $arg = shift @ARGV) {
last if ($arg eq '--');
push @output, $arg;
}
$command = join(' ', @ARGV);
} else {
pod2usage(-exitstatus => 1, -verbose => 0, -output => \*STDERR)
unless @ARGV >= 2;
($command, $input, @output) = @ARGV;
}
pod2usage(-exitstatus => 1, -verbose => 0, -output => \*STDERR)
unless (@output && (@output % 2) == 0);
# Make sure input file name is absolute
$input = abs_path($input);
my $input_dir = dirname($input);
$input_rx = qr($input_dir);
my $confile = "$input_dir/gylwrap.conf";
readconf($confile) if -r $confile;
my $input_base = basename($input);
unless ($stdout) {
$stdout = $config{$input_base}{stdout} || $config{''}{stdout};
}
unless ($yyrepl) {
$yyrepl = $config{$input_base}{yyrepl} || $config{''}{yyrepl};
}
if ($yyrepl) {
push @yysym, @{$config{$input_base}{yysym}}
if exists $config{$input_base}{yysym};
push @yysym, @{$config{''}{yysym}}
if exists $config{''}{yysym};
if ($yyrepl) {
$yyrx = regexp_opt({ type => 'pcre' }, map { s/^yy//; $_ } @yysym);
}
}
my $prog = $command;
$prog =~ s/\s.*$//;
if (my $flags = $config{$input_base}{flags} || $config{''}{flags}) {
$command .= ' ' . $flags;
}
$parser = $output[0];
$command .= ' '.$input;
if ($stdout) {
$command .= '>'.$parser;
}
# Create working directory
my $wd = tempdir("ylXXXXXX", DIR => '.', CLEANUP => 1)
or die "cannot create temporary directory";
chdir $wd
or die "cannot change to the temporary directory";
END {
if ($?) {
unlink @created;
}
chdir "..";
}
system($command);
if ($? == -1) {
print STDERR "$prog: $!\n";
exit(127);
} elsif ($? & 127) {
print STDERR "$prog died with signal ".($? & 127)."\n";
exit(127);
} else {
my $code = $? >> 8;
exit($code) if $code;
}
while (my $from = shift @output) {
my $to = shift @output;
$to = '../' . $to unless $to =~ m{^/};
filter($from, $to);
}
exit 0;
......
......@@ -43,8 +43,8 @@ libmu_sieve/prog.c
libmu_sieve/relational.c
libmu_sieve/require.c
libmu_sieve/runtime.c
libmu_sieve/sieve.l
libmu_sieve/sieve.y
libmu_sieve/sieve-lex.l
libmu_sieve/sieve-gram.y
libmu_sieve/tests.c
libmu_sieve/util.c
libmu_sieve/variables.c
......@@ -174,8 +174,8 @@ mh/send.c
mh/whatnow.c
mh/whom.c
mimeview/mimetypes.l
mimeview/mimetypes.y
mimeview/lexer.l
mimeview/grammar.y
mimeview/mimeview.c
movemail/movemail.c
......