*** empty log message ***

[h316.git] / bin / frtn

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

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

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

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

cat > $name.go <<EOF
rest $H316/sys/frtn.sys
r
at ptr $name.par
at ptp $name.obj
at tty3 $listfile
set tty3 uascii
set tty3 start
d a 311
;d a 310
d p 1000
d ss1 0
d ss2 1
d ss3 0
d ss4 0
go
quit
EOF

h316 $name.go > /dev/null

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
	rm -f $name.go
	rm -f $name.par

fi
echo "FORTRAN IV compilation successfull."
exit 0