*** empty log message ***

[h316.git] / bin / frun

diff --git a/bin/frun b/bin/frun
index 8dfcabe9a4700811578504eed038cf98006e0abc..b8eb11436bec36308321c9b437b8f9df6c2cf091 100755 (executable)
--- a/bin/frun
+++ b/bin/frun
@@ -8,28 +8,32 @@ fi
 
 name=`basename $1 .obj`
 
+LIBS="$H316/lib/fortran/lib/flib1.lib\
+       $H316/lib/fortran/lib/flib2.lib\
+       $H316/lib/fortran/lib/flib3.lib\
+       $H316/lib/iolib/io.lib\
+"
+
 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
-else
-    echo "io.lib nicht gefunden!"
-    exit 3
-fi
-echo "go" >> $name.go
+
+for library in $LIBS; do
+    if [ ! -e "$library" ]; then
+       echo "Error: $library not found!"
+       exit 3;
+    fi
+    echo "at ptr $library" >> $name.go
+    echo "go" >> $name.go
+done
 echo "r" >> $name.go
 echo "! echo -e \"\\n************************\"" >> $name.go
 echo "run 1000" >> $name.go
 echo "! echo -e \"************************\"" >> $name.go
-echo "quit" >> $name.go
+#echo "quit" >> $name.go
+    
+    
 #cat $name.go
 h316 $name.go