bin/frtn

   1 #!/bin/bash
   2 # FORTRAN IV compiler wrapper for simh h316
   3
   4 if [ ! $1 ] ; then
   5     echo "Argument fehlt!"
   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 echo "rest $H316/sys/frtn.sys" > $name.go
  17
  18 echo "r" >> $name.go
  19
  20 echo "at ptr $name.par" >> $name.go
  21 echo "at ptp $name.obj" >> $name.go
  22 echo "at tty3 $listfile" >> $name.go
  23 echo "set tty3 uascii" >> $name.go
  24 echo "set tty3 start" >> $name.go
  25
  26 echo "d a 311" >> $name.go
  27 echo "d p 1000" >> $name.go
  28
  29 echo "go" >> $name.go
  30 echo "quit" >> $name.go
  31 h316 $name.go > /dev/null
  32
  33 rm -f $name.par
  34 rm -f $name.go
  35
  36 if cat $name.lst | egrep "[*]{36,40}">/dev/null 2>&1; then
  37         cat $name.lst
  38         echo -e "\n\nFORTRAN IV compilation FAILED!"
  39         rm -f $name.obj
  40         exit 77
  41 fi
  42
  43 if [ !  $2  ]; then
  44         rm $name.lst
  45 fi
  46 echo "FORTRAN IV compilation successfull."
  47 exit 0
  48
  49
  50