8321626c |
1 | #!/bin/bash |
2 | # FORTRAN IV simple executor |
3 | |
4 | if [ ! $1 ] ; then |
5 | echo "Argument fehlt!" |
6 | exit 2 |
7 | fi |
8 | |
9 | name=`basename $1 .obj` |
10 | |
dc621a23 |
11 | LIBS= $H316/lib/fortran/fort.lib\ |
12 | $H316/lib/iolib/io.lib\ |
13 | $H316/lib/fortran/custom.lib |
14 | |
8321626c |
15 | echo "rest $H316/sys/super2.sys" > $name.go |
16 | echo "at ptr $name.obj" >> $name.go |
17 | echo "go" >> $name.go |
18 | echo "go" >> $name.go |
dc621a23 |
19 | |
20 | for library in $LIBS; do |
21 | if [ ! -e $library]; then |
22 | echo "Error: $library not found!" |
23 | exit 3; |
24 | fi |
25 | echo "at ptr $library" >> $name.go |
26 | echo "go" >> $name.go |
27 | done |
8321626c |
28 | echo "r" >> $name.go |
29 | echo "! echo -e \"\\n************************\"" >> $name.go |
30 | echo "run 1000" >> $name.go |
31 | echo "! echo -e \"************************\"" >> $name.go |
32 | echo "quit" >> $name.go |
33 | #cat $name.go |
34 | h316 $name.go |
35 | |
36 | rm -f $name.par |
37 | rm -f $name.go |
38 | |
39 | exit 0 |
40 | |
41 | |
42 | |