projects
/
h316.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9ae5cfc
)
*** empty log message ***
author
hachti
<hachti>
Mon, 3 Apr 2006 12:07:20 +0000
(12:07 +0000)
committer
hachti
<hachti>
Mon, 3 Apr 2006 12:07:20 +0000
(12:07 +0000)
bin/frtn
patch
|
blob
|
blame
|
history
bin/frun
patch
|
blob
|
blame
|
history
diff --git
a/bin/frtn
b/bin/frtn
index cf401857456b1c1ed8c553a4164293649befc53b..42a6ce8a3f87c25f010f2d6860a05d073f726737 100755
(executable)
--- a/
bin/frtn
+++ b/
bin/frtn
@@
-14,7
+14,7
@@
rm -f $name.lst
rm -f $name.obj
cat > $name.go <<EOF
rm -f $name.obj
cat > $name.go <<EOF
-rest $H316/sys/frtn.sys
" > $name.go
+rest $H316/sys/frtn.sys
r
at ptr $name.par
at ptp $name.obj
r
at ptr $name.par
at ptp $name.obj
diff --git
a/bin/frun
b/bin/frun
index 1a4d2d7ad4b386b29676c69ab8e8ce6f960d9a0a..3816857ca6ec8ec0c3a52fe3dae20fd77c6c40ff 100755
(executable)
--- a/
bin/frun
+++ b/
bin/frun
@@
-2,11
+2,15
@@
# 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`
+
+echo $locname
+echo $objname
LIBS="$H316/lib/fortran/lib/flib1.lib\
$H316/lib/fortran/lib/flib2.lib\
LIBS="$H316/lib/fortran/lib/flib1.lib\
$H316/lib/fortran/lib/flib2.lib\
@@
-14,31
+18,35
@@
LIBS="$H316/lib/fortran/lib/flib1.lib\
$H316/lib/iolib/lib/io.lib\
"
$H316/lib/iolib/lib/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
+cat > $locname.go <<EOF
+rest $H316/sys/super2.sys
+at ptr $objname
+go 36000
+go
+e p
+EOF
for library in $LIBS; do
if [ ! -e "$library" ]; then
echo "Error: $library not found!"
exit 3;
fi
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
+ 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 >> $locname.go <<EOF
+r
+! echo -e "\n************************"
+run 1000
+! echo -e "************************"
+;quit
+EOF
-#cat $name.go
-h316 $name.go
+#cat $
loc
name.go
+h316 $
loc
name.go
-rm -f $name.par
-rm -f $name.go
+rm -f $locname.go
exit 0
exit 0