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/lib/flib1.lib\
  12         $H316/lib/fortran/lib/flib2.lib\
  13         $H316/lib/fortran/lib/flib3.lib\
  14         $H316/lib/iolib/io.lib\
  15 "
  16
  17 echo "rest $H316/sys/super2.sys" > $name.go
  18 echo "at ptr $name.obj" >> $name.go
  19 echo "go" >> $name.go
  20 echo "go" >> $name.go
  21
  22 for library in $LIBS; do
  23     if [ ! -e "$library" ]; then
  24         echo "Error: $library not found!"
  25         exit 3;
  26     fi
  27     echo "at ptr $library" >> $name.go
  28     echo "go" >> $name.go
  29 done
  30 echo "r" >> $name.go
  31 echo "! echo -e \"\\n************************\"" >> $name.go
  32 echo "run 1000" >> $name.go
  33 echo "! echo -e \"************************\"" >> $name.go
  34 #echo "quit" >> $name.go
  35
  36
  37 #cat $name.go
  38 h316 $name.go
  39
  40 rm -f $name.par
  41 rm -f $name.go
  42
  43 exit 0
  44
  45
  46