SHOME := $(ADDDIRS:/:/ /G:X=S/.:T=F:O=1)

SINCLUDE = $(SHOME)/newfun/include

RATFOR = ratfor

.SOURCE.m : $(SINCLUDE)

.ATTRIBUTE.%.S : .SCAN.m4

(RATFOR) (RATFORFLAGS) : .PARAMETER

%.o : %.S (M4) (M4FLAGS) (RATFOR) (RATFORFLAGS) (F77) (F77FLAGS) (SHOME)

$(RM) $(RMFLAGS) $(<:D=$(TMPDIR):B:S=.*)

$(M4) $(M4FLAGS) $(SINCLUDE)/u/mach.m $(SINCLUDE)/ratfor.m $(>) > $(<:D=$(TMPDIR):B:S=.r)

$(RATFOR) $(RATFORFLAGS) "-6&" < $(<:D=$(TMPDIR):B:S=.r) > $(<:D=$(TMPDIR):B:S=.f)

$(F77) $(F77FLAGS) -c $(<:D=$(TMPDIR):B:S=.f)

$(RM) $(RMFLAGS) $(<:D=$(TMPDIR):B:S=.*)

.HEADER.S : .USE $$(<:B:S=.m)

$(RM) $(RMFLAGS) $(<)

$(BINED) - $(*) <<'!'

g/#.*/s///

g/[' `']/s///g

v/^define([A-Z][A-Z0-9]*,-*[0xX]*[0-9][0-9]*)$/d

1,$s/define(\(.*\),\(.*\))/#define \1 (\2)/

0a

$("/")* definitions translated from $(*) *$("/")

.

w $(<)

q

!