bin/frun

   1 #!/bin/bash
   2 # FORTRAN IV simple executor
   3
   4 if [ ! $1 ] ; then
   5     echo "Argument missing!"
   6     exit 2
   7 fi
   8
   9 objname=$1
  10 locname=`basename $1 .obj`
  11
  12 echo $locname
  13 echo $objname
  14
  15 LIBS="$H316/lib/fortran/lib/flib1.lib\
  16         $H316/lib/fortran/lib/flib2.lib\
  17         $H316/lib/fortran/lib/flib3.lib\
  18         $H316/lib/iolib/lib/io.lib\
  19 "
  20
  21 cat > $locname.go <<EOF
  22 rest $H316/sys/super2.sys
  23 at ptr $objname
  24 go 36000
  25 go
  26 e p
  27 EOF
  28
  29 for library in $LIBS; do
  30     if [ ! -e "$library" ]; then
  31         echo "Error: $library not found!"
  32         exit 3;
  33     fi
  34     echo "at ptr $library" >> $locname.go
  35     echo "go" >> $locname.go
  36 done
  37
  38 cat >> $locname.go <<EOF
  39 r
  40 ! echo -e "\n************************"
  41 run 1000
  42 ! echo   -e "************************"
  43 ;quit
  44 EOF
  45
  46 #cat $locname.go
  47 h316 $locname.go
  48
  49 rm -f $locname.go
  50
  51 exit 0
  52
  53
  54