global: Corrected absolute paths in bin/ symbolic links

[h316.git] / bin / frun

#!/bin/bash
# FORTRAN IV simple executor

if [ ! $1 ] ; then
    echo "Argument missing!"
    exit 2
fi


if [ ! "$H316" ]; then
    echo "H316 variable not set!"
    exit 2
fi

if [ ! -e "$H316/config/libs.config" ]; then
    echo "H316/config/libs.config not found!"
    exit 2
else
    source "$H316/config/libs.config"
fi

objname=$1
locname=`basename $1 .obj`

echo $locname
echo $objname

cat > $locname.go <<EOF
rest $H316/sys/super2.sys
at ptr $objname
go 36000
go
e p
EOF

for library in $LOAD_LIBS; do
    if [ ! -e "$library" ]; then
	echo "Error: $library not found!"
	exit 3;
    fi
    echo "at ptr $library" >> $locname.go
    echo "go" >> $locname.go
done

cat >> $locname.go <<EOF
r
! echo -e "\n************************"
run 1000
! echo   -e "************************"
;quit
EOF
    
#cat $locname.go
h316 $locname.go 

rm -f $locname.go

exit 0