bin/frtn

   1 #!/bin/sh
   2 # FORTRAN IV compiler wrapper for simh h316
   3
   4 if [ ! $1 ] ; then
   5     echo "Argument missing!"
   6     exit 2
   7 fi
   8
   9 name=`basename $1 .f`
  10 listfile=$name.lst
  11
  12 cat $1 | tab | paron > $name.par
  13 rm  -f $name.lst
  14 rm  -f $name.obj
  15
  16 cat > $name.go <<EOF
  17 rest $H316/sys/frtn.sys
  18 r
  19 at ptr $name.par
  20 at ptp $name.obj
  21 at tty3 $listfile
  22 set tty3 uascii
  23 set tty3 start
  24 d a 311
  25 ;d a 310
  26 d p 1000
  27 d ss1 0
  28 d ss2 1
  29 d ss3 0
  30 d ss4 0
  31 go
  32 quit
  33 EOF
  34
  35 h316 $name.go > /dev/null
  36
  37 if cat $name.lst | egrep "[*]{36,40}">/dev/null 2>&1; then
  38         cat $name.lst
  39         echo -e "\n\nFORTRAN IV compilation FAILED!"
  40         rm -f $name.obj
  41         exit 77
  42 fi
  43
  44 if [ !  $2  ]; then
  45         rm $name.lst
  46         rm -f $name.go
  47         rm -f $name.par
  48
  49 fi
  50 echo "FORTRAN IV compilation successfull."
  51 exit 0
  52
  53
  54