#!/usr/local/bin/perl
#
#  make Makefile for dcl tex -> html
#

$dir  = $ARGV[0];
@dirs = split(/\//,$dir);
print "$dir  @dirs\n";
$mf  = "$dir/Makefile";
if (-e $mf) { $mf = "$dir/Makefile.h"; }

open(MF,">$mf");
print MF "#\n";
print MF "#       Makefile for $dir\n";
print MF "#\n";
print MF "\n";
print MF "include ../../../Mkinclude\n";
print MF "\n";

if ($#dirs >= 1) { 
  print MF "LIBNAME		= $dirs[1]\n";
  print MF "L2HFLAGS	= refdir=.. curdir=$dirs[1] backto=../$dirs[0].html \\\n";
  print MF "		  auxin=../$dirs[0].haux\n";
} else {
  print MF "LIBNAME		=  $dirs[0]\n";
  print MF "L2HFLAGS	= auxin=$dirs[0].haux\n";
  chop(@ls = `cd $dir; ls -1F | grep '/'`);
  print MF "TEXDIR		= ";
  for ($i=0;$i<=$#ls;$i++) { $f = $ls[$i]; $f =~s/\/$//;
			     print MF "$f "; 
	                     print MF "\\\n\t\t  " if ($i % 5 == 4 && $i<$#ls); }
  print MF "\n";  
}

chop(@ls = `cd $dir; ls -1 *.tex`);

print MF "TEXDOC		= ";
for ($i=0;$i<=$#ls;$i++) { print MF "$ls[$i] "; 
	                   print MF "\\\n\t\t  " if ($i % 5 == 4 && $i<$#ls); }
print MF "\n";
print MF "HTML		= ";
for ($i=0;$i<=$#ls;$i++) { $f = $ls[$i]; $f =~s/\.tex/.html/;
		           print MF "$f "; 
	                   print MF "\\\n\t\t  " if ($i % 5 == 4 && $i<$#ls); }
print MF "\n";
print MF "\n";

if ($#dirs >= 1) { 
  print MF "html: \$(HTML)\n";
  print MF "\n";

} else  { 
  print MF <<'EOF'
html.all:
	$(MAKE) clean.html
	@for i in *.tex */*.tex ; do \
	  $(LATEX2HIDX) aux=$(LIBNAME).haux idx=$(LIBNAME).hidx $$i ; \
	done
	$(SORT) $(LIBNAME).hidx | $(HIDX2HTML) $(L2HICONS) \
title=$(LIBNAME) backto=$(LIBNAME).html > $(LIBNAME)-idx.html
	$(MAKE) html.dir
	$(MAKE) html.local 

html: html.dir html.local 

html.local: $(HTML)

html.dir:
	@for i in $(TEXDIR) ; do \
	  cd $$i ; \
	  echo "Making $$i html" ; \
	  $(MAKE) html ; \
	  cd .. ; \
	done

clean.html:
	$(RM) *.html *.haux* *.hidx */*.html
EOF
}
