Initial revision

[h316.git] / bin / frtn

#!/bin/bash
# FORTRAN IV compiler wrapper for simh h316

if [ ! $1 ] ; then
    echo "Argument fehlt!"
    exit 2
fi

name=`basename $1 .f`
listfile=$name.lst

cat $1 | tab | paron > $name.par
rm  -f $name.lst
rm  -f $name.obj

echo "rest $H316/sys/frtn.sys" > $name.go

echo "r" >> $name.go

echo "at ptr $name.par" >> $name.go
echo "at ptp $name.obj" >> $name.go
echo "at tty3 $listfile" >> $name.go
echo "set tty3 uascii" >> $name.go
echo "set tty3 start" >> $name.go

echo "d a 311" >> $name.go
echo "d p 1000" >> $name.go

echo "go" >> $name.go
echo "quit" >> $name.go
h316 $name.go > /dev/null

rm -f $name.par
rm -f $name.go

if cat $name.lst | egrep "[*]{36,40}">/dev/null 2>&1; then
	cat $name.lst
	echo -e "\n\nFORTRAN IV compilation FAILED!"
	rm -f $name.obj
	exit 77
fi

if [ !  $2  ]; then
	rm $name.lst
fi
echo "FORTRAN IV compilation successfull."
exit 0