docs/ecma334/gentoc.pl

   1 #!/usr/bin/perl
   2
   3 use XML::LibXML;
   4
   5 $parser = new XML::LibXML;
   6
   7 opendir DIR, ".";
   8 foreach $file (readdir(DIR)) {
   9         if ($file !~ /([\d\.]+)\.xml/) { next; }
  10         $sec = $1;
  11
  12         $xml = $parser->parse_file("$sec.xml");
  13         $titles{$sec} = $xml->findvalue('/clause/@title');
  14
  15         if ($sec =~ /^([\d\.]+)\.(\d+)$/) {
  16                 $parent = $1;
  17                 $sub = $2;
  18         } else {
  19                 $parent = "";
  20                 $sub = $sec;
  21         }
  22
  23         $sections{$parent}[$sub-1] = $sec;
  24 }
  25 closedir DIR;
  26
  27 $doc = new XML::LibXML::Document;
  28 $toc = $doc->createElement('toc');
  29 $doc->setDocumentElement($toc);
  30
  31 AddChildren($toc, '');
  32
  33 print $doc->toString(1);
  34
  35 sub AddChildren {
  36         my $x = $sections{$_[1]};
  37         my @x = @{ $x };
  38         foreach my $s (@x) {
  39                 my $n = $doc->createElement('node');
  40                 $n->setAttribute('number', $s);
  41                 $n->setAttribute('name', $titles{$s});
  42                 $_[0]->appendChild($n);
  43
  44                 AddChildren($n, $s);
  45         }
  46 }
  47