#!/usr/local/bin/perl

$/="";

$cstr = "-sg:lcorner=.false. \\
	-sw:iwidth=\$(GIFWIDTH) -sw:iheight=\$(GIFHEIGHT) \\
	-sw:iposx=\$(GIFPOSX) -sw:iposy=\$(GIFPOSY) \\
        -sw:ldump=.true. -sw:lwait=.false. -sw:lwait1=.false.  
	\$(XWD2PPM) dcl_001.xwd | \$(PPM2GIF) \>\$\@
	\$(RM) dcl_001.xwd\n";

open(FH,"<Makefile.h") || die "not found: Makefile.h\n";
while (<FH>) {
  if(/\=/) { $fh .= $_; }
}
close(FH);


open(F,"<Makefile") || die "not found: Makefile\n";
while (<F>) {
 if(/(EPSFILES\s*=(.|\n)*)$/) { 
    $gifs=$1; $gifs=~s/EPS/GIF/; $gifs=~s/\.eps/.gif/g;
    $_ .= "$gifs$fh"; 
 }
 if(/^(.*)\.eps:/) {
   $fname=$1; $fname =~ s/\s*$//;
   /:\s*(.*)\|([^-]*)/; $echo=$1; $src=$2; $src =~ s/\s*$//;
   $echo =~ s/-?2/1/;
   $cmd="$fname.gif: $src.f\n\t\$\(MAKE\) $src\n\t$echo\|$src $cstr\n";
   push(@cmds,$cmd);    
 }
 print $_;

}
print "\n";

print <<'END';
html: $(HTML) $(GIFFILES) rmobj

clean.html: 
	$(RM) $(HTML) $(GIFFILES)
END

foreach $cmd (@cmds) { print $cmd; }

