Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/script/nhc98.inst

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


#! /bin/sh
#
#       nhc98 script for any architecture
#       uses byte code back-end
#
# NHC98BINDIR is where to find driver scripts,
# NHC98LIBDIR is where to find executable programs and libraries,
# NHC98INCDIR is where to find the hi files for the standard prelude,
# MACHINE is used to choose which architecture's binaries and
#               libraries to use.


NHC98BINDIR=${NHC98BINDIR-ScriptDir}
NHC98LIBDIR=${NHC98LIBDIR-ExecutableDir}
NHC98INCDIR=${NHC98INCDIR-IncludeDir}
MACHINE=${MACHINE-"`$NHC98BINDIR/harch`"}

if [ ! -d $NHC98LIBDIR/$MACHINE ]
then
  echo "`basename $0` is not installed/configured for $MACHINE."
  echo "  (Tried directory $NHC98LIBDIR)"
  echo "  See your system administrator, or install it yourself from"
  echo "  http://www.haskell.org/nhc98/"
  exit 1
fi

# Fix a broken 'mv' command on Cygwin.
mv () { { cp $1 $2 && rm $1; } || echo "Warning: can't move $1 to $2"; }

# Fix an absolute Cygwin path to an absolute native Windows path.
# (Also copes with options like -I/path etc.)
# This routine is only strictly required when the compiler proper
# was built with GHC/mingw32.
if echo $MACHINE | grep -i CYGWIN >/dev/null
then filepath() { case $1 in
                    -?/*) dir=`echo $1 | cut -c3-`
                          dir=`cygpath -w "$dir" | tr '\\\\' '/'`
                          echo `echo $1 | cut-c1-2`$dir ;;
                    /*)   cygpath -w "$1" | tr '\\' '/';;
                    *)    echo $1;;
                  esac; }
else filepath() { echo $1; }
fi

# If USINGRTS is non-zero then flags to the runtime is enclosed in
#     +RTS runtimeflags -RTS,
# otherwise only a - is inserted after the runtime flags.
# (0 = nhc98 compiled with hbc; 1 = nhc98 compiled with nhc98)

#USINGRTS=
#ENDIAN=
# (These flags are now sourced from machine-specific configuration)
. $NHC98LIBDIR/$MACHINE/config


COMP=${NHC98COMP-"$NHC98LIBDIR/$MACHINE/nhc98comp"}
PRAGMA=$NHC98LIBDIR/$MACHINE/hmake-PRAGMA
COMPFILES=""
COMPFLAGS="-P$NHC98INCDIR/packages/base"
RUNFLAGS=""
EXTRALIB=""
CINCDIRS=""
HINCDIRS=""
CPPFLAGS=${CPPFLAGS-""}
#OBJDIR=
#HIDIR=
HISUFFIX="hi"
OSUFFIX="o"
CSUFFIX="hc"

MAINROUTINE=$NHC98LIBDIR/$MACHINE/main

CC=${CC-gcc}" -m32 -D__NHC__=$VERSIONNUM"
CPPHS="$NHC98LIBDIR/$MACHINE/cpphs"
if test $USINGRTS -eq 0 ; then
  CPPHS="$CPPHS -"
fi
CPPHS="$CPPHS -D__NHC__=$VERSIONNUM"

#CPPDEFAULT="${CC} -D__HASKELL__=98 -D__HASKELL_98__ -D__HASKELL98__ -x c -E -traditional"
CPPDEFAULT="$CPPHS -D__HASKELL__=98 -D__HASKELL_98__ -D__HASKELL98__"

CPPPRE=${CPP-"${CPPDEFAULT}"}
CPPAS="${CC} -x c -S"
CPPASFLAGS=" -I${NHC98INCDIR}/ "
#CPPASFLAGS=" -I- -I${NHC98INCDIR}/ "

GREENCARD="$NHC98LIBDIR/$MACHINE/greencard-nhc98"
if test $USINGRTS -eq 0 ; then
  GREENCARD="$GREENCARD -"
fi
GREENCARDOPTS=${GREENCARDOPTS}" -tnhc98"
GRCC="${CC} -I${NHC98INCDIR}/"
HSC2HS="$NHC98BINDIR/hsc2hs"	# hsc2hs script handles USINGRTS

PACKAGES=

VFLAG=0 
MFLAG=0 
TPFLAG=0
KEEPS=0
KEEPC=0
AS="${CC} -c"
ASFLAGS=""

PROF=
TPROF=
TRACE=
 
NOLINK=0
PRECPP=0
LD="$CC"
LDFLAGS=""
LDFILES=
LDFIRST=""
LDLAST="-lm"

HEAP=
AOUT=a.out
TMP=`filepath ${TEMP-/tmp}`

# Define a routine for getting OPTIONS pragmas out of source files.
checkPragmas () {
  if test $VFLAG -eq 1;
    then LOCAL_OPTS=`grep $1 $2 | $PRAGMA`;
         if test -n "$LOCAL_OPTS";
           then echo 1>&2 "Found additional $1: $LOCAL_OPTS";
                echo $LOCAL_OPTS
         fi;
    else grep $1 $2 | $PRAGMA;
  fi;
}

# Define a function for processing command-line arguments.  It will
# also be used for dealing with {-# OPTIONS_NHC98 #-} pragmas on
# a per-file basis.
processArgs () {
  while test "'$1'" != "''" 
  do
    case $1 in
    --version) echo "$0: $INSTALLVER"
               echo '  [' $INSTALLINFO ']'
               exit 0;;
    -o-suffix=*)  OSUFFIX=`echo $1 | cut -c11-` ;;
    -hc-suffix=*) CSUFFIX=`echo $1 | cut -c12-` ;;
    -hi-suffix=*) HISUFFIX=`echo $1 | cut -c12-` ;;
    -osuf ) shift; OSUFFIX=$1;;
    -hcsuf) shift; CSUFFIX=$1;;
    -hisuf) shift; HISUFFIX=$1;;
    -p    ) PROF=p
            COMPFLAGS=$COMPFLAGS" --profile"
            GRCC=$GRCC" -DPROFILE"
            CPPASFLAGS=$CPPASFLAGS" -DPROFILE"
            OSUFFIX="p.o"
            CSUFFIX="p.c"
            ;;
    -S    ) KEEPS=1;;
    -C    ) KEEPC=1;;
    -v    ) VFLAG=1;;
    -M    ) MFLAG=1;;
    -cpp  ) PRECPP=1;;
    -c    ) NOLINK=1;;
    -T)     TRACE=T
            COMPFLAGS=$COMPFLAGS" -dbgtrans -hi-suffix=T.hi"
            LDLAST=$LDLAST$LIBCOMPAT
            HISUFFIX="T.hi"
            OSUFFIX="T.o"
            CSUFFIX="T.c"
            ;;
    -t|-z)  TPROF=z
            TPFLAG=1
            COMPFLAGS=$COMPFLAGS" -z"
            GRCC=$GRCC" -DTPROF"
            CPPASFLAGS=$CPPASFLAGS" -DTPROF "
            OSUFFIX="z.o"
            CSUFFIX="z.c"
            ;;
    -98|+98)COMPFLAGS=$COMPFLAGS" --nkpat --underscore --nopuns";;
#    +rts  ) USINGRTS=1;;
#    -rts  ) USINGRTS=0;;
    +RTS  ) shift
	    while  test "'$1'" != "''" 
	    do 
	      case $1 in
                -RTS ) break;;
                *    ) RUNFLAGS=$RUNFLAGS" "$1;;
	      esac
	      shift
	    done;;
    +CTS  ) shift
            while  test "'$1'" != "''" 
	    do 
	      case $1 in
                -CTS ) break;;
                -H*  ) HEAP=`echo $1 | cut -c3-` ;;
                *    ) COMPFLAGS=$COMPFLAGS" "$1;;
	      esac
	      shift
	    done;;
    -o    ) shift; AOUT=$1;;
    -d    ) shift; OBJDIR=$1;;
    -odir ) shift; OBJDIR=$1;;
    -hidir) shift; HIDIR=$1;;
    -o-dir=*)   OBJDIR=`echo $1 | cut -c8-` ;;
    -hi-dir=*)  HIDIR=`echo $1 | cut -c9-` ;;
    -bigEnd)    ENDIAN="-DHIGH_BYTE_FIRST" ;;
    -littleEnd) ENDIAN="-DLOW_BYTE_FIRST"  ;;
    -nomain)    MAINROUTINE="" ;;
    -noansiC)   CPPAS=${CPPDEFAULT}
                COMPFLAGS=$COMPFLAGS" -"$1;;
#   -newlibs)   NHC98LIBDIR=$NHC98LIBDIR/libraries	# not needed
#               NHC98INCDIR=$NHC98INCDIR/libraries	# not needed
#               COMPFLAGS=$COMPFLAGS" "$1;;
    -package)   shift; package=$1;
                PACKAGES=$PACKAGES" $package"
                if [ -d $NHC98INCDIR/packages/$package ]
                then
                  COMPFLAGS=$COMPFLAGS" -P$NHC98INCDIR/packages/$package"
                else
                  echo >&2 "Warning: -package $package interfaces not found."
                fi
                ;;
    -H*   ) HEAP=`echo $1 | cut -c3-` ;;
    -[Ll]*) EXTRALIB=$EXTRALIB" "$1;;
    -Wl,*)  LDFLAGS=$LDFLAGS" "$1;;
    -i*   ) CINCDIRS=$CINCDIRS" -I"`echo $1 | cut -c3-`
            HINCDIRS=$HINCDIRS" -I"`echo $1 | cut -c3-` ;;
    -I*   ) CINCDIRS=$CINCDIRS" "$1
            HINCDIRS=$HINCDIRS" "`filepath $1` ;;
#           HINCDIRS=$HINCDIRS" "$1 ;;
    -s    ) LDFLAGS=$LDFLAGS" "$1;;
    -static) LDFLAGS=$LDFLAGS" "$1;;
    -P*   ) GREENCARDOPTS=$GREENCARDOPTS" "`filepath $1`
            COMPFLAGS=$COMPFLAGS" "`filepath $1`;;
#   -P*   ) GREENCARDOPTS=$GREENCARDOPTS" "$1
#           COMPFLAGS=$COMPFLAGS" "$1;;
    -D*   ) CPPFLAGS=$CPPFLAGS" "$1;;
    -U*   ) CPPFLAGS=$CPPFLAGS" "$1;;
    -*    ) COMPFLAGS=$COMPFLAGS" "$1;;
    *.s   ) COMPFILES=$COMPFILES" "$1;;
    *.hc  ) COMPFILES=$COMPFILES" "$1;;
    *.c   ) COMPFILES=$COMPFILES" "$1;;
    *.hs  ) COMPFILES=$COMPFILES" "$1;;
    *.lhs ) COMPFILES=$COMPFILES" "$1;;
    *.hsc ) HSCFILES=$HSCFILES" "$1;;
    *.gc  ) GRFILES=$GRFILES" "$1;;
    *     ) LDFILES=$LDFILES" "$1;; 
    esac
    if test "'$1'" != "''" 
    then
      shift
    fi
  done
}

# Now actually do the command-line args.
processArgs "$@"

BASENAME=
DIRNAME=
UNLIT=
TMPCPPPREFILE=
ASFILE=
TMPASFILE=
HIFILE=
TMPHIFILE=
HSFILE=

if test $USINGRTS -ne 0
then
  RUNFLAGS="+RTS "$RUNFLAGS" -RTS"
else
  RUNFLAGS=$RUNFLAGS" -"
fi

# Fix OSUFFIX for tprof _and_ tracing
if test $TPFLAG -eq 1
then OSUFFIX=$TRACE$TPROF".o"
fi


# Define a function for deciding where to place object/.hi files.
findDir () {
    dirname=$1
    default=$2
    if [ -z "$default" ]
    then echo $dirname
    else case $dirname in
           /*)   echo $default;;
           ../*) echo $default;;
           ./*)  echo $default;;
           *)    echo $default/$dirname;;
         esac
    fi
}


# Start processing files here, beginning with GreenCard preprocessor.
case $GRFILES in
""   ) ;;
*    )
  set $GRFILES
  GREENCARDOPTS=$GREENCARDOPTS" --c-suffix $CSUFFIX"
  while test $1
  do
    case $1 in
    *.gc  ) BASENAME=`basename $1 .gc` ;;
    esac
    DIRNAME=`dirname $1`
    objdir=`findDir "$DIRNAME" "$OBJDIR"`

    GRFILE=$DIRNAME/$BASENAME.gc
    HSFILE=$DIRNAME/${BASENAME}_.hs
    GRCFILE=$DIRNAME/${BASENAME}_.$CSUFFIX
    GROFILE=$objdir/${BASENAME}_.o

    if test $MFLAG -eq 1
    then
      echo "`basename $GRFILE .gc`: " \
      `grep '^import' $GRFILE | awk '{ print $2 }' | awk -F '(' '{ print $1 }'`
      shift
      continue
    fi
    if test $VFLAG -eq 1
    then
      echo `basename $GREENCARD` $GREENCARDOPTS -P$NHC98INCDIR $GRFILE
    fi
    $GREENCARD $GREENCARDOPTS -P$NHC98INCDIR $GRFILE
    if test $? -ne 0
    then
      echo "`basename $GREENCARD` failed on $GRFILE"
      exit 1
    fi

    #if test `cat $HSFILE | wc -c` -lt `cat $GRFILE | wc -c`
    #then
    #  echo `basename $GREENCARD`: Parse error in $GRFILE
    #  exit 1
    #fi

    if test `cat $GRCFILE | wc -l` -eq 1
    then
      if test $VFLAG -eq 1
      then
        echo `basename $GREENCARD` produced empty .$CSUFFIX file
      fi
      rm $GRCFILE
      COMPFILES=$COMPFILES" "${HSFILE}"_"
    else
      if test $KEEPC -ne 1
      then
        if test $VFLAG -eq 1
        then
          echo $GRCC $ENDIAN $CPPFLAGS $CINCDIRS -c -x c -o $GROFILE $GRCFILE
        fi
        $GRCC $ENDIAN $CPPFLAGS $CINCDIRS -c -x c -o $GROFILE $GRCFILE
        if test $? -ne 0
        then
          echo C compilation failed on ${BASENAME}_.$CSUFFIX after `basename $GREENCARD`
          exit 1
        fi
      fi
      COMPFILES=$COMPFILES" "$GRFILE
    fi

    shift
  done;;
esac

# Now for the hsc2hs preprocessor.
case $HSCFILES in
""   ) ;;
*    )
  set $HSCFILES
  while test $1
  do
    case $1 in
    *.hsc  ) BASENAME=`basename $1 .hsc` ;;
    esac
    DIRNAME=`dirname $1`
    objdir=`findDir "$DIRNAME" "$OBJDIR"`

    HSCFILE=$DIRNAME/$BASENAME.hsc
    HSFILE=$DIRNAME/$BASENAME.hs

    if test $MFLAG -eq 1
    then
      echo "`basename $HSCFILE .hsc`: " \
      `grep '^import' $HSCFILE | awk '{ print $2 }' | awk -F '(' '{ print $1 }'`
      shift
      continue
    fi
    if test $VFLAG -eq 1
    then
      echo `basename $HSC2HS` $CINCDIRS $HSCFILE
    fi
    $HSC2HS $CINCDIRS $HSCFILE
    if test $? -ne 0
    then
      echo "`basename $HSC2HS` failed on $HSCFILE"
      exit 1
    fi

    COMPFILES=$COMPFILES" "${HSFILE}

    shift
  done;;
esac

HSRC=0
CSRC=0
SSRC=0
GR=0
case $COMPFILES in
""   ) ;; 
*    )
  set $COMPFILES

  while test $1 
  do
    CSUF=$CSUFFIX
    case $1 in
    *.s   ) UNLIT="";       HSRC=0; CSRC=0; SSRC=1; GR=0;
                              BASENAME=`basename $1 .s`   ;;
    *.hc  ) UNLIT="";       HSRC=0; CSRC=1; SSRC=0; GR=0;
                              BASENAME=`basename $1 .hc`  CSUF=hc ;;
    *.T.c ) UNLIT="";       HSRC=0; CSRC=1; SSRC=0; GR=0;
                              BASENAME=`basename $1 .T.c` CSUF=T.c ;;
    *.p.c ) UNLIT="";       HSRC=0; CSRC=1; SSRC=0; GR=0;
                              BASENAME=`basename $1 .p.c` CSUF=p.c ;;
    *.z.c ) UNLIT="";       HSRC=0; CSRC=1; SSRC=0; GR=0;
                              BASENAME=`basename $1 .z.c` CSUF=z.c ;;
    *.c   ) UNLIT="";       HSRC=0; CSRC=1; SSRC=0; GR=0;
                              BASENAME=`basename $1 .c`   CSUF=c ;;
    *.hs_ ) UNLIT="";       HSRC=1; CSRC=0; SSRC=0; GR=0;
                              BASENAME=`basename $1 _.hs_` ;;
    *.gc  ) UNLIT="";       HSRC=1; CSRC=0; SSRC=0; GR=1;
                              BASENAME=`basename $1 .gc`  ;;
    *.hs  ) UNLIT="";       HSRC=1; CSRC=0; SSRC=0; GR=0;
                              BASENAME=`basename $1 .hs`  ;;
    *.lhs ) UNLIT="--unlit"; HSRC=1; CSRC=0; SSRC=0; GR=0;
                              BASENAME=`basename $1 .lhs` ;;
    esac

    DIRNAME=`dirname $1`
    objdir=`findDir "$DIRNAME" "$OBJDIR"`
    hidir=`findDir "$DIRNAME" "$HIDIR"`

    if test $GR -eq 0
    then
      POSTGRFILE=${DIRNAME}/`basename $1 _`
    else
      POSTGRFILE=${DIRNAME}/${BASENAME}_.hs
    fi

    HIFILE=$hidir/$BASENAME.$HISUFFIX
    TMPHIFILE=$TMP/$BASENAME.$$.$HISUFFIX

    TMPCPPPREFILE=$TMP/$BASENAME.$$.hs

    if [ "$CSUF" != "$CSUFFIX"  -a "$CSUF" != "c" ]
    then
      echo "Warning: compiling a .$CSUF file, but expected a .$CSUFFIX file"
      echo "    Ensure compiler options match the intended build type:"
      echo "        ordinary            .hc"
      echo "        heap profiling  -p  .p.c"
      echo "        time profiling  -t  .z.c"
      echo "        tracing         -T  .T.c"
    fi

    CPPASFILE=$DIRNAME/$BASENAME.$CSUF
    if test $CSRC -eq 0
    then
      TMPCPPASFILE=$TMP/$BASENAME.$$.$CSUF
    else
      TMPCPPASFILE=$CPPASFILE
    fi

    ASFILE=$DIRNAME/$BASENAME.s
    if test $SSRC -eq 0
    then
      TMPASFILE=$TMP/$BASENAME.$$.s
    else
      TMPASFILE=$ASFILE
    fi

    OFILE=$objdir/$BASENAME.$OSUFFIX
    if test $NOLINK -eq 1 -a "$AOUT" != "a.out"
    then
      OFILE=$AOUT
    fi
    if test $GR -eq 0
    then
      TMPOFILE=$OFILE
    else
      TMPOFILE=$TMP/$BASENAME.o
    fi

# It's a Haskell file

    if test $HSRC -ne 0
    then
      # Grab any extra link options now, they will apply globally.
      EXTRALIB=$EXTRALIB" "`checkPragmas OPTIONS_LINK $POSTGRFILE`
    fi

# Now all of the following section goes into a subshell, because the options
# read from {-# OPTIONS_NHC98 #-} only apply to that individual file.
    (

    if test $HSRC -ne 0
    then
      # Grab any per-file options here, just before compiling.
      processArgs `checkPragmas OPTIONS_COMPILE $POSTGRFILE` \
                  `checkPragmas OPTIONS_NHC98 $POSTGRFILE`

      if test $PRECPP -ne 0
      then
        if test $VFLAG -eq 1
        then
	  echo  $CPPPRE $CPPFLAGS $CINCDIRS $POSTGRFILE \> $TMPCPPPREFILE
        fi
        $CPPPRE $CPPFLAGS $CINCDIRS $POSTGRFILE > $TMPCPPPREFILE
        HSFILE=$TMPCPPPREFILE
      else
        HSFILE=$POSTGRFILE
      fi
      export HSFILE

      if test $MFLAG -eq 1
      then
        echo "`basename $HSFILE .hs`: " \
        `grep '^import' $HSFILE | awk '{ print $2 }' | awk -F '(' '{ print $1 }'`
        shift
        continue
      fi

      if test $VFLAG -eq 1
      then
#       echo  $COMP $RUNFLAGS $COMPFLAGS $HINCDIRS -I. $UNLIT -P${NHC98INCDIR} `filepath $HSFILE` $POSTGRFILE $TMPHIFILE $TMPCPPASFILE
        echo  $COMP $RUNFLAGS $COMPFLAGS $HINCDIRS -I. $UNLIT -P${NHC98INCDIR} $HSFILE $POSTGRFILE $TMPHIFILE $TMPCPPASFILE
      fi
#     $COMP $RUNFLAGS $COMPFLAGS $HINCDIRS $UNLIT -I. -P${NHC98INCDIR} `filepath $HSFILE` $POSTGRFILE $TMPHIFILE $TMPCPPASFILE
      $COMP $RUNFLAGS $COMPFLAGS $HINCDIRS -I. $UNLIT -P${NHC98INCDIR} $HSFILE $POSTGRFILE $TMPHIFILE $TMPCPPASFILE

      if test $? -ne 0
      then
	exit 1
      fi

      if test $PRECPP -ne 0
      then
        if test $VFLAG -eq 1
	then
	  echo rm $TMPCPPPREFILE
	fi
        rm $TMPCPPPREFILE
      fi

      if test -r $HIFILE
      then
	cmp -s $HIFILE $TMPHIFILE
	if test $? -eq 0 
	then
          if test $VFLAG -eq 1
          then
	    echo rm $TMPHIFILE
          fi
	  rm $TMPHIFILE
	else 
          if test $VFLAG -eq 1
          then
	    echo mv $TMPHIFILE $HIFILE
          fi
	  mv $TMPHIFILE $HIFILE
	fi 
      else
        if test $VFLAG -eq 1
        then
          echo mv $TMPHIFILE $HIFILE
        fi
        mv $TMPHIFILE $HIFILE
      fi
    fi


    if test $KEEPC -ne 0                # stop here if -C
    then 
      if test $HSRC -ne 0
      then
	if test $VFLAG -eq 1
        then
	  echo mv $TMPCPPASFILE $CPPASFILE
	fi
        mv $TMPCPPASFILE $CPPASFILE
      fi
    else				# continue with postcpp
      if test $HSRC -ne 0 -o $CSRC -ne 0
      then
        if test $VFLAG -eq 1
        then
          echo $CPPAS $ENDIAN $CPPASFLAGS $CINCDIRS $TMPCPPASFILE -o $TMPASFILE
	fi
	$CPPAS $ENDIAN $CPPASFLAGS $CINCDIRS $TMPCPPASFILE -o - |\
	#	perl -e 'undef $/; $_ = <>; s/^ \s*\.local\s+startLabel\n \s*.comm\s+startLabel,0,4\n (\s*\.globa?l\s+[^\n]+)\n \s*\.data\n (\s*\.align\s*\d+)\n /"\t.data\n" ."$2\n" ."\t.type startLabel,STT_OBJECT\n" ."\t.size startLabel,0\n" ."startLabel:\n" ."$1\n" ."$2\n"/emx; print;' |\
		sed -e '/.p2align 5/s/5/2/' |\
		sed -e '/.align 5/s/5/2/' |\
		sed -e '/.align 32/s/32/4/' >$TMPASFILE		# evil mangler!
	if test $CSRC -eq 0
        then
          if test $VFLAG -eq 1
	  then
	    echo rm  $TMPCPPASFILE
	  fi
          rm  $TMPCPPASFILE
	fi
      fi

      if test $KEEPS -ne 0   # Stop here if -S
      then
        if test $HSRC -ne 0 -o $CSRC -ne 0
        then
          if test $VFLAG -eq 1
	  then
	    echo mv $TMPASFILE $ASFILE
	  fi
          mv $TMPASFILE $ASFILE
        fi
      else				# continue with assembler
	if test $VFLAG -eq 1
	then
	  echo  $AS $ASFLAGS -o $TMPOFILE $TMPASFILE
	fi
	$AS $ASFLAGS -o $TMPOFILE $TMPASFILE
        if test $GR -eq 1
        then
          GROFILE=$objdir/${BASENAME}_.o
	  if test $VFLAG -eq 1
	  then
            echo $LD -nostdlib -Wl,-r -o $OFILE $TMPOFILE $GROFILE
          fi
          $LD -nostdlib -Wl,-r -o $OFILE $TMPOFILE $GROFILE
	  if test $VFLAG -eq 1
	  then
            echo rm $TMPOFILE $GROFILE
          fi
          rm $TMPOFILE $GROFILE
        fi
	LDFILES=$OFILE" "$LDFILES	# no longer works here - see below
	if test $SSRC -eq 0
        then
          if test $VFLAG -eq 1
	  then
	    echo rm $TMPASFILE
	  fi
	  rm $TMPASFILE
	fi
      fi
    fi
    ) || exit 1;
    if test $KEEPC -ne 1  -a  $KEEPS -ne 1
    then LDFILES=$OFILE" "$LDFILES	# patch in from subshell - see above
    fi
    shift
  done;;
esac

CFG=$PROF$TRACE$TPROF
if test "${CFG}" != ""
then
  SUF="."${CFG}
else
  SUF=""
fi

if test "$TRACE" = "T"
then TRACELIB=$NHC98LIBDIR/$MACHINE/libdebug$SUF.a
else TRACELIB=
fi

if test -n "$MAINROUTINE"
then
  MAINROUTINE=$MAINROUTINE$SUF.o
fi

if test $TPFLAG -eq 0
then

if [ -x $NHC98LIBDIR/nhc98-pkg ]
then
  pkgdeporder=`$NHC98LIBDIR/nhc98-pkg $NHC98INCDIR/packages depends $PACKAGES`
else
  pkgdeporder=$PACKAGES
fi
for package in $pkgdeporder
do
  if [ -r $NHC98LIBDIR/$MACHINE/libHS$package$SUF.a ]
  then
    LDLIBS=$LDLIBS" "$NHC98LIBDIR/$MACHINE/libHS$package$SUF.a
  else
    echo >&2 "Warning: -package $package library $SUF not found."
  fi
done

LDLIBS=$LDLIBS" "$MAINROUTINE" "$NHC98LIBDIR/$MACHINE/mutlib$SUF.o" "$NHC98LIBDIR/$MACHINE/mutator$SUF.o" "$NHC98LIBDIR/$MACHINE/Prelude$SUF.a" "$NHC98LIBDIR/$MACHINE/Runtime$SUF.a" "$NHC98LIBDIR/$MACHINE/Prelude$SUF.a" "$TRACELIB" "$NHC98LIBDIR/$MACHINE/Runtime$SUF.a" "$NHC98LIBDIR/$MACHINE/Prelude$SUF.a" "$NHC98LIBDIR/$MACHINE/Runtime$SUF.a
fi

#for LIBFLAG in $HINCDIRS
#do
#  LIBDIR=`echo $LIBFLAG | sed 's/-i//'`
#  if test -r $LIBDIR/$MACHINE/lib$SUF.a
#  then
#    LDLIBS=$LIBDIR/$MACHINE/lib$SUF.a" "$LDLIBS
#  else
#    if test -r $LIBDIR/lib$SUF.a
#    then
#      LDLIBS=$LIBDIR/lib$SUF.a" "$LDLIBS
#    else
#      if test -r $NHC98LIBDIR/$MACHINE/$LIBDIR/lib$SUF.a
#      then
#        LDLIBS=$NHC98LIBDIR/$MACHINE/$LIBDIR/lib$SUF.a" "$LDLIBS
#      #else
#      fi
#    fi
#  fi
#done

if test $TPFLAG -eq 1
then
   LLPREL=`echo $NHC98LIBDIR/$MACHINE/*$SUF.a`
   LLPREL=`echo $LLPREL | sed -e "s|$NHC98LIBDIR/$MACHINE/Runtime$SUF.a||"`
   LLPREL=`echo $LLPREL | sed -e "s|$NHC98LIBDIR/$MACHINE/libdebug$SUF.a||"`
   LDLIBS=$TMP/tprofusr$$.o" "$NHC98LIBDIR/$MACHINE/tprofprel1$SUF.o
   LDLIBS=$LDLIBS" "$MAINROUTINE
   LDLIBS=$LDLIBS" "$NHC98LIBDIR/$MACHINE/mutlib$SUF.o
   LDLIBS=$LDLIBS" "$NHC98LIBDIR/$MACHINE/mutator$SUF.o
   LDLIBS=$LDLIBS" "$LLPREL" "$NHC98LIBDIR/$MACHINE/Runtime$SUF.a
   LDLIBS=$LDLIBS" "$NHC98LIBDIR/$MACHINE/tprofprel2$SUF.o
   LDLIBS=$LDLIBS" "$TRACELIB
   LDLIBS=$LDLIBS" "$LLPREL" "$NHC98LIBDIR/$MACHINE/Runtime$SUF.a
   LDLIBS=$LDLIBS" "$NHC98LIBDIR/$MACHINE/tprofprel3$SUF.o
   LDLIBS=$LDLIBS" "$LLPREL" "$NHC98LIBDIR/$MACHINE/Runtime$SUF.a
fi

# Create tprof usr labels
tprof () {
  LDFILES=""
  TPL=""
  if test $VFLAG -eq 1
  then echo "Generating tprof labels";
  fi
  while test "'$1'" != "''" 
  do
    TPO=`basename $1 .$OSUFFIX`
    TPHI=`dirname $1`"/"$TPO.$HISUFFIX
    if test -e $TPHI
    then
      TPLAB=`head -n 1 $TPHI | cut -d' ' -f2 | sed "s/_/_95/g;s/'/_39/g"`
      TPL=$TPL" "$TPLAB
      LDFILES=$LDFILES" "$TMP/tpl$TPO.o" "$1
      echo "int TMIP_$TPLAB[] = {0};" | cat > $TMP/tpl$TPO.c
      $CC -x c -c -o $TMP/tpl$TPO.o $TMP/tpl$TPO.c
      rm -f $TMP/tpl$TPO.c
    else
      LDFILES=$LDFILES" "$1
    fi
    if test "'$1'" != "''" 
    then
      shift
    fi
  done
  ${NHC98BINDIR}/tprofprel 0 $TPL > $TMP/tprofusr$$.c
  $CC -x c -c -o $TMP/tprofusr$$.o $TMP/tprofusr$$.c
  rm -f $TMP/tprofusr$$.c
}

if test $KEEPS -eq 0 -a $KEEPC -eq 0 -a $NOLINK -eq 0 -a $MFLAG -eq 0
then
   case $LDFILES in
   ""  ) echo "nhc98: error: no source, object or archive file specified"; 
         exit 1;;
   *   ) if test $TPFLAG -eq 1
         then tprof $LDFILES
         fi
         if test $VFLAG -eq 1
         then
           echo "$NHC98LIBDIR/$MACHINE/nhc98heap $TRACE $HEAP | $CC -x c -c -o $TMP/nhc$$.o -";
         fi
         $NHC98LIBDIR/$MACHINE/nhc98heap $TRACE $HEAP >$TMP/nhc$$.c
         $CC -x c -c -o $TMP/nhc$$.o $TMP/nhc$$.c
         if test $VFLAG -eq 1
         then
           echo $LD -o $AOUT $LDFLAGS $LDFIRST $LDFILES $EXTRALIB $LDLIBS $TMP/nhc$$.o $LDLAST;
         fi
         $LD -o $AOUT $LDFLAGS $LDFIRST $LDFILES $EXTRALIB $LDLIBS $TMP/nhc$$.o $LDLAST
         if test $VFLAG -eq 1
         then echo rm -f $TMP/nhc$$.o $TMP/nhc$$.c
         fi
         rm -f $TMP/nhc$$.o $TMP/nhc$$.c
         if test $TPFLAG -eq 1
         then
           if test $VFLAG -eq 1
           then 
             echo rm -f $TMP/tpl*$$.o $TMP/tprofusr$$.o
           fi
           rm -f $TMP/tpl*.o $TMP/tprofusr$$.o
         fi
   esac
fi


Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].