8321626c |
1 | #!/bin/bash |
2 | # FORTRAN IV simple executor |
3 | |
4 | if [ ! $1 ] ; then |
e5cd2df3 |
5 | echo "Argument missing!" |
8321626c |
6 | exit 2 |
7 | fi |
8 | |
e5cd2df3 |
9 | objname=$1 |
10 | locname=`basename $1 .obj` |
11 | |
12 | echo $locname |
13 | echo $objname |
8321626c |
14 | |
38627116 |
15 | LIBS="$H316/lib/fortran/lib/flib1.lib\ |
16 | $H316/lib/fortran/lib/flib2.lib\ |
17 | $H316/lib/fortran/lib/flib3.lib\ |
e703f5db |
18 | $H316/lib/iolib/lib/io.lib\ |
38627116 |
19 | " |
dc621a23 |
20 | |
e5cd2df3 |
21 | cat > $locname.go <<EOF |
22 | rest $H316/sys/super2.sys |
23 | at ptr $objname |
24 | go 36000 |
25 | go |
26 | e p |
27 | EOF |
dc621a23 |
28 | |
29 | for library in $LIBS; do |
38627116 |
30 | if [ ! -e "$library" ]; then |
dc621a23 |
31 | echo "Error: $library not found!" |
32 | exit 3; |
33 | fi |
e5cd2df3 |
34 | echo "at ptr $library" >> $locname.go |
35 | echo "go" >> $locname.go |
dc621a23 |
36 | done |
e5cd2df3 |
37 | |
38 | cat >> $locname.go <<EOF |
39 | r |
40 | ! echo -e "\n************************" |
41 | run 1000 |
42 | ! echo -e "************************" |
43 | ;quit |
44 | EOF |
38627116 |
45 | |
e5cd2df3 |
46 | #cat $locname.go |
47 | h316 $locname.go |
8321626c |
48 | |
e5cd2df3 |
49 | rm -f $locname.go |
8321626c |
50 | |
51 | exit 0 |
52 | |
53 | |
54 | |