Subversion Repositories or1k_old

#! /bin/sh

# ylwrap - wrapper for lex/yacc invocations.

# Copyright (C) 1996, 1997 Free Software Foundation, Inc.

# Written by Tom Tromey .

#

# 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 2, 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, write to the Free Software

# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

# Usage:

#     ylwrap PROGRAM INPUT [OUTPUT DESIRED]... -- [ARGS]...

# * PROGRAM is program to run.

# * INPUT is the input file

# * OUTPUT is file PROG generates

# * DESIRED is file we actually want

# * ARGS are passed to PROG

# 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

# The input.

input="$1"

shift

case "$input" in

 /* | [A-Za-z]:\\*)

    # Absolute path; do nothing.

    ;;

 *)

    # Relative path.  Make it absolute.  Why?  Because otherwise any

    # debugging info in the generated file will point to the wrong

    # place.  This is really gross.

    input="`pwd`/$input"

    ;;

esac

# We don't want to use the absolute path if the input in the current

# directory like when making a tar ball.

input_base=`echo $input | sed -e 's|.*/||'`

if test -f $input_base && cmp $input_base $input >/dev/null 2>&1; then

  input=$input_base

fi

pairlist=

while test "$#" -ne 0; do

   if test "$1" = "--"; then

      shift

      break

   fi

   pairlist="$pairlist $1"

   shift

done

# 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

case "$input" in

 /* | [A-Za-z]:\\*)

    # Absolute path; do nothing.

    ;;

 *)

    # Make a symbolic link, hard link or hardcopy.

    ln -s ../"$input" . > /dev/null 2>&1 || ln ../"$input" . > /dev/null 2>&1 || cp ../"$input" .

    ;;

esac

$prog ${1+"$@"} "$input"

status=$?

if test $status -eq 0; then

   set X $pairlist

   shift

   first=yes

   while test "$#" -ne 0; do

      if test -f "$1"; 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

         mv "$1" "$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