*** empty log message ***

[h316.git] / bin / frtn_original

diff --git a/bin/frtn_original b/bin/frtn_original
index eb0faa9a4c5daace940a4e8091c752e9ff25c604..2dfeede35cbf84b238a56befe6c03955fe1e1fd4 100755 (executable)
--- a/bin/frtn_original
+++ b/bin/frtn_original
@@ -1,59 +1,7 @@
-#!/bin/sh
-# FORTRAN IV compiler wrapper for simh h316
-
-if [ ! $1 ] ; then
-    echo "Argument missing!"
-    exit 2
-fi
-
-echo "Compiling $1 with original FORTRAN 8K!"
-
-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
-at ptr $H316/honeywell/slst/frtn_8k.slst
-boot ptr
-
-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
+#!/bin/bash
+export FRTN_ORIGINAL=1
+frtn $@
+exit $?