projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[h316.git]
/
bin
/
frun
diff --git
a/bin/frun
b/bin/frun
index b8675f1138254335bee8ec85e1653d8a983c4a4e..3816857ca6ec8ec0c3a52fe3dae20fd77c6c40ff 100755
(executable)
--- a/
bin/frun
+++ b/
bin/frun
@@
-2,39
+2,51
@@
# FORTRAN IV simple executor
if [ ! $1 ] ; then
# FORTRAN IV simple executor
if [ ! $1 ] ; then
- echo "Argument
fehlt
!"
+ echo "Argument
missing
!"
exit 2
fi
exit 2
fi
-name=`basename $1 .obj`
+objname=$1
+locname=`basename $1 .obj`
-LIBS= $H316/lib/fortran/fort.lib\
- $H316/lib/iolib/io.lib\
- $H316/lib/fortran/custom.lib
+echo $locname
+echo $objname
-echo "rest $H316/sys/super2.sys" > $name.go
-echo "at ptr $name.obj" >> $name.go
-echo "go" >> $name.go
-echo "go" >> $name.go
+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/super2.sys
+at ptr $objname
+go 36000
+go
+e p
+EOF
for library in $LIBS; do
for library in $LIBS; do
- if [ ! -e
$library
]; then
+ if [ ! -e
"$library"
]; then
echo "Error: $library not found!"
exit 3;
fi
echo "Error: $library not found!"
exit 3;
fi
- echo "at ptr $library" >> $name.go
- echo "go" >> $name.go
+ echo "at ptr $library" >> $
loc
name.go
+ echo "go" >> $
loc
name.go
done
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
-#cat $name.go
-h316 $name.go
-
-rm -f $name.par
-rm -f $name.go
+
+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
exit 0