#! /usr/bin/perl

# Java API Documentation to DevHelp Book Converter
# Copyright (C) 2002 Ross Burton <ross@burtonini.com>
# Licensed under the GPL, version 2 (or above)
# Version 1.1, released 20021107

# Revision History
# 1.1: changed <chapter> to <sub> to keep Devhelp 2 happy.
# 1.0: initial release

# Argument checking -- I expect a single argument, the path to the
# .../doc/api directory (e.g "/opt/j2sdk1.4.1/docs/api/")
die "The arguments should be the path to the JDK doc/api directory" unless $#ARGV == 0;

# The root of the documentation tree
$root = shift;

# DevHelp header. Still not sure what the base element is actually
# used for.
print <<EOF;
<?xml version='1.0'?>
<book title='Java API'
      name='java-api'
      author='Sun Microsystems'
      base='http://java.sun.com/'
      link='overview-summary.html'>
EOF

# Table of Contents

# TODO: at some point in the distant future, parse this lot into a
# tree and then write it out, so that java, javax, org, etc are the
# top-level chapters, and then there are sub-chapters below such as
# lang, io, awt.
open PACKAGES, "<$root/package-list" or die "Cannot open $root/package-list: $!";
print "<chapters>\n";
while (<PACKAGES>) {
  chomp;
  $tree = join('/', split '\.', $_);
  print "  <sub name='$_' link='$tree/package-summary.html'>\n";
  open FILE, "<$root/$tree/package-frame.html" or die "Cannot open $root/$path/package-frame.html: $!";
  while (<FILE>) {
    next unless m|<A HREF="(.+.html)" TARGET="classFrame">(.*)</A>|;
    ($filename, $class) = ($1, $2);
    next if $filename =~ m|/package-summary.html|;
    $class = "$1 (I)" if ($class =~ m|<I>(.+)</I>|) ;
    print "    <sub name='$class' link='$tree/$filename#package_description'/>\n";
  }
  close FILE;
  print "  </sub>\n";
  print $package;
}
print "</chapters>\n\n";
close PACKAGES;

# Function and Class index
print "<functions>\n";
# Run through the Java index files
for $i (1..27) {
  open INDEX, "<$root/index-files/index-$i.html" or die "Cannot open $root/index-files/index-$i.html: $!";
  while (<INDEX>) {
    chomp;
    next unless m|<DT><A HREF="([^\<]+)"><B>([^\<]+)</B></A>|;
    ($link, $method) = ($1, $2);
    $link =~ s|^\.\./||;
    # TODO: work out the class and include that
    print "  <function name='$method' link='$link'/>\n";
  }
  close INDEX;
}
print "</functions>\n";

# Footer
print "</book>\n";