bin/frtn_original

   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 echo "Compiling $1 with original FORTRAN 8K!"
  10
  11 name=`basename $1 .f`
  12 listfile=$name.lst
  13
  14 cat $1 | tab | paron > $name.par
  15 rm  -f $name.lst
  16 rm  -f $name.obj
  17
  18 cat > $name.go <<EOF
  19 at ptr $H316/honeywell/slst/frtn_8k.slst
  20 boot ptr
  21
  22 r
  23 at ptr $name.par
  24 at ptp $name.obj
  25 at tty3 $listfile
  26 set tty3 uascii
  27 set tty3 start
  28 d a 311
  29 ;d a 310
  30 d p 1000
  31 d ss1 0
  32 d ss2 1
  33 d ss3 0
  34 d ss4 0
  35 go
  36 ;quit
  37 EOF
  38
  39 h316 $name.go
  40 #> /dev/null
  41
  42 if cat $name.lst | egrep "[*]{36,40}">/dev/null 2>&1; then
  43         cat $name.lst
  44         echo -e "\n\nFORTRAN IV compilation FAILED!"
  45         rm -f $name.obj
  46         exit 77
  47 fi
  48
  49 if [ !  $2  ]; then
  50         rm $name.lst
  51         rm -f $name.go
  52         rm -f $name.par
  53
  54 fi
  55 echo "FORTRAN IV compilation successfull."
  56 exit 0
  57
  58
  59