Home | History | Annotate | Line # | Download | only in dist
ylwrap revision 1.3
      1  1.1  christos #! /bin/sh
      2  1.1  christos # ylwrap - wrapper for lex/yacc invocations.
      3  1.1  christos 
      4  1.3  christos scriptversion=2013-01-12.17; # UTC
      5  1.1  christos 
      6  1.3  christos # Copyright (C) 1996-2014 Free Software Foundation, Inc.
      7  1.1  christos #
      8  1.1  christos # Written by Tom Tromey <tromey (at] cygnus.com>.
      9  1.1  christos #
     10  1.1  christos # This program is free software; you can redistribute it and/or modify
     11  1.1  christos # it under the terms of the GNU General Public License as published by
     12  1.1  christos # the Free Software Foundation; either version 2, or (at your option)
     13  1.1  christos # any later version.
     14  1.1  christos #
     15  1.1  christos # This program is distributed in the hope that it will be useful,
     16  1.1  christos # but WITHOUT ANY WARRANTY; without even the implied warranty of
     17  1.1  christos # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     18  1.1  christos # GNU General Public License for more details.
     19  1.1  christos #
     20  1.1  christos # You should have received a copy of the GNU General Public License
     21  1.1  christos # along with this program.  If not, see <http://www.gnu.org/licenses/>.
     22  1.1  christos 
     23  1.1  christos # As a special exception to the GNU General Public License, if you
     24  1.1  christos # distribute this file as part of a program that contains a
     25  1.1  christos # configuration script generated by Autoconf, you may include it under
     26  1.1  christos # the same distribution terms that you use for the rest of that program.
     27  1.1  christos 
     28  1.1  christos # This file is maintained in Automake, please report
     29  1.1  christos # bugs to <bug-automake (at] gnu.org> or send patches to
     30  1.1  christos # <automake-patches (at] gnu.org>.
     31  1.1  christos 
     32  1.3  christos get_dirname ()
     33  1.3  christos {
     34  1.3  christos   case $1 in
     35  1.3  christos     */*|*\\*) printf '%s\n' "$1" | sed -e 's|\([\\/]\)[^\\/]*$|\1|';;
     36  1.3  christos     # Otherwise,  we want the empty string (not ".").
     37  1.3  christos   esac
     38  1.3  christos }
     39  1.3  christos 
     40  1.3  christos # guard FILE
     41  1.3  christos # ----------
     42  1.3  christos # The CPP macro used to guard inclusion of FILE.
     43  1.3  christos guard ()
     44  1.3  christos {
     45  1.3  christos   printf '%s\n' "$1"                                                    \
     46  1.3  christos     | sed                                                               \
     47  1.3  christos         -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'   \
     48  1.3  christos         -e 's/[^ABCDEFGHIJKLMNOPQRSTUVWXYZ]/_/g'                        \
     49  1.3  christos         -e 's/__*/_/g'
     50  1.3  christos }
     51  1.3  christos 
     52  1.3  christos # quote_for_sed [STRING]
     53  1.3  christos # ----------------------
     54  1.3  christos # Return STRING (or stdin) quoted to be used as a sed pattern.
     55  1.3  christos quote_for_sed ()
     56  1.3  christos {
     57  1.3  christos   case $# in
     58  1.3  christos     0) cat;;
     59  1.3  christos     1) printf '%s\n' "$1";;
     60  1.3  christos   esac \
     61  1.3  christos     | sed -e 's|[][\\.*]|\\&|g'
     62  1.3  christos }
     63  1.3  christos 
     64  1.1  christos case "$1" in
     65  1.1  christos   '')
     66  1.3  christos     echo "$0: No files given.  Try '$0 --help' for more information." 1>&2
     67  1.1  christos     exit 1
     68  1.1  christos     ;;
     69  1.1  christos   --basedir)
     70  1.1  christos     basedir=$2
     71  1.1  christos     shift 2
     72  1.1  christos     ;;
     73  1.1  christos   -h|--h*)
     74  1.1  christos     cat <<\EOF
     75  1.1  christos Usage: ylwrap [--help|--version] INPUT [OUTPUT DESIRED]... -- PROGRAM [ARGS]...
     76  1.1  christos 
     77  1.1  christos Wrapper for lex/yacc invocations, renaming files as desired.
     78  1.1  christos 
     79  1.1  christos   INPUT is the input file
     80  1.1  christos   OUTPUT is one file PROG generates
     81  1.1  christos   DESIRED is the file we actually want instead of OUTPUT
     82  1.1  christos   PROGRAM is program to run
     83  1.1  christos   ARGS are passed to PROG
     84  1.1  christos 
     85  1.1  christos Any number of OUTPUT,DESIRED pairs may be used.
     86  1.1  christos 
     87  1.1  christos Report bugs to <bug-automake@gnu.org>.
     88  1.1  christos EOF
     89  1.1  christos     exit $?
     90  1.1  christos     ;;
     91  1.1  christos   -v|--v*)
     92  1.1  christos     echo "ylwrap $scriptversion"
     93  1.1  christos     exit $?
     94  1.1  christos     ;;
     95  1.1  christos esac
     96  1.1  christos 
     97  1.1  christos 
     98  1.1  christos # The input.
     99  1.3  christos input=$1
    100  1.1  christos shift
    101  1.3  christos # We'll later need for a correct munging of "#line" directives.
    102  1.3  christos input_sub_rx=`get_dirname "$input" | quote_for_sed`
    103  1.3  christos case $input in
    104  1.1  christos   [\\/]* | ?:[\\/]*)
    105  1.1  christos     # Absolute path; do nothing.
    106  1.1  christos     ;;
    107  1.1  christos   *)
    108  1.1  christos     # Relative path.  Make it absolute.
    109  1.3  christos     input=`pwd`/$input
    110  1.1  christos     ;;
    111  1.1  christos esac
    112  1.3  christos input_rx=`get_dirname "$input" | quote_for_sed`
    113  1.3  christos 
    114  1.3  christos # The parser itself, the first file, is the destination of the .y.c
    115  1.3  christos # rule in the Makefile.
    116  1.3  christos parser=$1
    117  1.3  christos 
    118  1.3  christos # A sed program to s/FROM/TO/g for all the FROM/TO so that, for
    119  1.3  christos # instance, we rename #include "y.tab.h" into #include "parse.h"
    120  1.3  christos # during the conversion from y.tab.c to parse.c.
    121  1.3  christos sed_fix_filenames=
    122  1.3  christos 
    123  1.3  christos # Also rename header guards, as Bison 2.7 for instance uses its header
    124  1.3  christos # guard in its implementation file.
    125  1.3  christos sed_fix_header_guards=
    126  1.1  christos 
    127  1.3  christos while test $# -ne 0; do
    128  1.3  christos   if test x"$1" = x"--"; then
    129  1.1  christos     shift
    130  1.1  christos     break
    131  1.1  christos   fi
    132  1.3  christos   from=$1
    133  1.3  christos   shift
    134  1.3  christos   to=$1
    135  1.1  christos   shift
    136  1.3  christos   sed_fix_filenames="${sed_fix_filenames}s|"`quote_for_sed "$from"`"|$to|g;"
    137  1.3  christos   sed_fix_header_guards="${sed_fix_header_guards}s|"`guard "$from"`"|"`guard "$to"`"|g;"
    138  1.1  christos done
    139  1.1  christos 
    140  1.1  christos # The program to run.
    141  1.3  christos prog=$1
    142  1.1  christos shift
    143  1.1  christos # Make any relative path in $prog absolute.
    144  1.3  christos case $prog in
    145  1.1  christos   [\\/]* | ?:[\\/]*) ;;
    146  1.3  christos   *[\\/]*) prog=`pwd`/$prog ;;
    147  1.1  christos esac
    148  1.1  christos 
    149  1.1  christos dirname=ylwrap$$
    150  1.3  christos do_exit="cd '`pwd`' && rm -rf $dirname > /dev/null 2>&1;"' (exit $ret); exit $ret'
    151  1.3  christos trap "ret=129; $do_exit" 1
    152  1.3  christos trap "ret=130; $do_exit" 2
    153  1.3  christos trap "ret=141; $do_exit" 13
    154  1.3  christos trap "ret=143; $do_exit" 15
    155  1.1  christos mkdir $dirname || exit 1
    156  1.1  christos 
    157  1.1  christos cd $dirname
    158  1.1  christos 
    159  1.1  christos case $# in
    160  1.1  christos   0) "$prog" "$input" ;;
    161  1.1  christos   *) "$prog" "$@" "$input" ;;
    162  1.1  christos esac
    163  1.1  christos ret=$?
    164  1.1  christos 
    165  1.1  christos if test $ret -eq 0; then
    166  1.3  christos   for from in *
    167  1.3  christos   do
    168  1.3  christos     to=`printf '%s\n' "$from" | sed "$sed_fix_filenames"`
    169  1.1  christos     if test -f "$from"; then
    170  1.1  christos       # If $2 is an absolute path name, then just use that,
    171  1.3  christos       # otherwise prepend '../'.
    172  1.3  christos       case $to in
    173  1.3  christos         [\\/]* | ?:[\\/]*) target=$to;;
    174  1.3  christos         *) target=../$to;;
    175  1.1  christos       esac
    176  1.1  christos 
    177  1.3  christos       # Do not overwrite unchanged header files to avoid useless
    178  1.3  christos       # recompilations.  Always update the parser itself: it is the
    179  1.3  christos       # destination of the .y.c rule in the Makefile.  Divert the
    180  1.3  christos       # output of all other files to a temporary file so we can
    181  1.3  christos       # compare them to existing versions.
    182  1.3  christos       if test $from != $parser; then
    183  1.3  christos         realtarget=$target
    184  1.3  christos         target=tmp-`printf '%s\n' "$target" | sed 's|.*[\\/]||g'`
    185  1.1  christos       fi
    186  1.3  christos 
    187  1.3  christos       # Munge "#line" or "#" directives.  Don't let the resulting
    188  1.3  christos       # debug information point at an absolute srcdir.  Use the real
    189  1.3  christos       # output file name, not yy.lex.c for instance.  Adjust the
    190  1.3  christos       # include guards too.
    191  1.3  christos       sed -e "/^#/!b"                           \
    192  1.3  christos           -e "s|$input_rx|$input_sub_rx|"       \
    193  1.3  christos           -e "$sed_fix_filenames"               \
    194  1.3  christos           -e "$sed_fix_header_guards"           \
    195  1.3  christos         "$from" >"$target" || ret=$?
    196  1.3  christos 
    197  1.3  christos       # Check whether files must be updated.
    198  1.3  christos       if test "$from" != "$parser"; then
    199  1.3  christos         if test -f "$realtarget" && cmp -s "$realtarget" "$target"; then
    200  1.3  christos           echo "$to is unchanged"
    201  1.3  christos           rm -f "$target"
    202  1.3  christos         else
    203  1.3  christos           echo "updating $to"
    204  1.1  christos           mv -f "$target" "$realtarget"
    205  1.1  christos         fi
    206  1.1  christos       fi
    207  1.1  christos     else
    208  1.3  christos       # A missing file is only an error for the parser.  This is a
    209  1.3  christos       # blatant hack to let us support using "yacc -d".  If -d is not
    210  1.3  christos       # specified, don't fail when the header file is "missing".
    211  1.3  christos       if test "$from" = "$parser"; then
    212  1.1  christos         ret=1
    213  1.1  christos       fi
    214  1.1  christos     fi
    215  1.1  christos   done
    216  1.1  christos fi
    217  1.1  christos 
    218  1.1  christos # Remove the directory.
    219  1.1  christos cd ..
    220  1.1  christos rm -rf $dirname
    221  1.1  christos 
    222  1.1  christos exit $ret
    223  1.1  christos 
    224  1.1  christos # Local Variables:
    225  1.1  christos # mode: shell-script
    226  1.1  christos # sh-indentation: 2
    227  1.1  christos # eval: (add-hook 'write-file-hooks 'time-stamp)
    228  1.1  christos # time-stamp-start: "scriptversion="
    229  1.1  christos # time-stamp-format: "%:y-%02m-%02d.%02H"
    230  1.1  christos # time-stamp-time-zone: "UTC"
    231  1.1  christos # time-stamp-end: "; # UTC"
    232  1.1  christos # End:
    233