*** empty log message ***

[h316.git] / bin / fload

diff --git a/bin/fload b/bin/fload
index ca69753bff1be367a403c0d075b50e22efb5f65b..ab3bf41ae65bbdc88e3016a42a64a737188d52ea 100755 (executable)
--- a/bin/fload
+++ b/bin/fload
@@ -1,24 +1,37 @@
 #!/bin/bash
 # FORTRAN IV simple loading routine
 
+
 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
+fi
+
+source "$H316/config/libs.config"
+
+#LOAD_LIBS="$H316/lib/fortran/lib/math.lib\
+#      $H316/lib/fortran/lib/flib1.lib\
+#      $H316/lib/fortran/lib/flib2.lib\
+#      $H316/lib/fortran/lib/flib3.lib\
+#      $H316/lib/iolib/lib/io.lib"
+
+
 objname=$1
 locname=`basename $1 .obj`
 
 echo $locname
 echo $objname
 
-LIBS="$H316/lib/fortran/lib/flib1.lib\
-       $H316/lib/fortran/lib/flib2.lib\
-       $H316/lib/fortran/lib/flib3.lib\
-       $H316/lib/iolib/lib/io.lib\
-"
-
-
 cat > $locname.go <<EOF
 rest $H316/sys/super3.sys
 at ptr $objname
@@ -27,7 +40,7 @@ go
 e p
 EOF
 
-for library in $LIBS; do
+for library in $LOAD_LIBS; do
     if [ ! -e "$library" ]; then
        echo "Error: $library not found!"
        exit 3;