bin/frun

   1 #!/bin/bash
   2 # FORTRAN IV simple executor
   3
   4 if [ ! $1 ] ; then
   5     echo "Argument fehlt!"
   6     exit 2
   7 fi
   8
   9 name=`basename $1 .obj`
  10
  11 LIBS= $H316/lib/fortran/fort.lib\
  12       $H316/lib/iolib/io.lib\
  13       $H316/lib/fortran/custom.lib
  14
  15 echo "rest $H316/sys/super2.sys" > $name.go
  16 echo "at ptr $name.obj" >> $name.go
  17 echo "go" >> $name.go
  18 echo "go" >> $name.go
  19
  20 for library in $LIBS; do
  21     if [ ! -e $library]; then
  22         echo "Error: $library not found!"
  23         exit 3;
  24     fi
  25     echo "at ptr $library" >> $name.go
  26     echo "go" >> $name.go
  27 done
  28 echo "r" >> $name.go
  29 echo "! echo -e \"\\n************************\"" >> $name.go
  30 echo "run 1000" >> $name.go
  31 echo "! echo -e \"************************\"" >> $name.go
  32 echo "quit" >> $name.go
  33 #cat $name.go
  34 h316 $name.go
  35
  36 rm -f $name.par
  37 rm -f $name.go
  38
  39 exit 0
  40
  41
  42