X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=bin%2Ffrun;h=0660bfe7233900155aef56b3bf5c8735d03cb69c;hb=903be085d6c0c341f8e088c39dc7cbf25dec22f9;hp=8dfcabe9a4700811578504eed038cf98006e0abc;hpb=8321626c163d98740beef3008b425a578d8cfde0;p=h316.git

diff --git a/bin/frun b/bin/frun
index 8dfcabe..0660bfe 100755
--- a/bin/frun
+++ b/bin/frun
@@ -2,39 +2,58 @@
 # FORTRAN IV simple executor
 
 if [ ! $1 ] ; then
-    echo "Argument fehlt!"
+    echo "Argument missing!"
     exit 2
 fi
 
-name=`basename $1 .obj`
-
-echo "rest $H316/sys/super2.sys" > $name.go
-echo "at ptr $name.obj" >> $name.go
-echo "go" >> $name.go
-echo "go" >> $name.go
-echo "at ptr $H316/lib/fortran/original/flib1" >> $name.go
-echo "go" >> $name.go
-echo "at ptr $H316/lib/fortran/original/flib2" >> $name.go
-echo "go" >> $name.go
-echo "at ptr $H316/lib/fortran/original/flib3" >> $name.go
-echo "go" >> $name.go
-if [ -e $H316/lib/iolib/io.lib ]; then
-    echo "at ptr $H316/lib/iolib/io.lib" >> $name.go
+
+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
-    echo "io.lib nicht gefunden!"
-    exit 3
+    source "$H316/config/libs.config"
 fi
-echo "go" >> $name.go
-echo "r" >> $name.go
-echo "! echo -e \"\\n************************\"" >> $name.go
-echo "run 1000" >> $name.go
-echo "! echo -e \"************************\"" >> $name.go
-echo "quit" >> $name.go
-#cat $name.go
-h316 $name.go 
-
-rm -f $name.par
-rm -f $name.go
+
+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