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
  10 if [ ! "$H316" ]; then
  11     echo "H316 variable not set!"
  12     exit 2
  13 fi
  14
  15 if [ ! -e "$H316/config/libs.config" ]; then
  16     echo "H316/config/libs.config not found!"
  17     exit 2
  18 else
  19     source "$H316/config/libs.config"
  20 fi
  21
  22 objname=$1
  23 locname=`basename $1 .obj`
  24
  25 echo $locname
  26 echo $objname
  27
  28 cat > $locname.go <<EOF
  29 rest $H316/sys/super2.sys
  30 at ptr $objname
  31 go 36000
  32 go
  33 e p
  34 EOF
  35
  36 for library in $LOAD_LIBS; do
  37     if [ ! -e "$library" ]; then
  38         echo "Error: $library not found!"
  39         exit 3;
  40     fi
  41     echo "at ptr $library" >> $locname.go
  42     echo "go" >> $locname.go
  43 done
  44
  45 cat >> $locname.go <<EOF
  46 r
  47 ! echo -e "\n************************"
  48 run 1000
  49 ! echo   -e "************************"
  50 ;quit
  51 EOF
  52
  53 #cat $locname.go
  54 h316 $locname.go
  55
  56 rm -f $locname.go
  57
  58 exit 0
  59
  60
  61