swh:1:snp:af87cd67498ef4fe47c76ed3e7caffe5b61facaf
Raw File
Tip revision: b7855e8f6890f719ae4199f415307b2fb8262329 authored by Unknown Author on 20 November 2004, 06:50:43 UTC
This commit was manufactured by cvs2svn to create tag 'v4-01-04'.
Tip revision: b7855e8
f77.sh
#! /bin/sh

# Simple interface to FL32, tansforming -o <obj> to -Fo<obj> and unix
# pathnames to windows pathnames (fl32 does not access unix style names).
# When -link is specified the output option should be -out:<exe> and it
# should be at the end of the option list.

args=
dolink=no
link=

while [ "$1" != "" ]; do
   arg=`cygpath -w -- $1`
   case "$arg" in
   -link) link="$arg"; dolink=yes ;;
   -o) if [ "$dolink" = "yes" ]; then
          link="$link -out:"
          shift; link="$link`cygpath -w -- $1`"
       else
          args="$args -Fo"
          shift; args="$args`cygpath -w -- $1`"
       fi ;;
   -c) args="$args -c "; shift; args="$args`cygpath -w -- $1`" ;;
   -*) if [ "$dolink" = "yes" ]; then
          link="$link $arg"
       else
          args="$args $arg"
       fi ;;
   *) args="$args $arg" ;;
   esac
   shift
done

if [ "$dolink" = "yes" ]; then
   fl32 $args $link
   stat=$?
   if [ $stat -eq 1 ]; then
      stat=0
   fi
else
   fl32 $args
   stat=$?
fi

rm -f *.rsp

exit $stat
back to top