cmake cleanup: redo the documentation generation

[simgrid.git] / tools / doxygen / bibtex2html_wrapper.pl

diff --git a/tools/doxygen/bibtex2html_postprocessor.pl b/tools/doxygen/bibtex2html_wrapper.pl
similarity index 62%
rename from tools/doxygen/bibtex2html_postprocessor.pl
rename to tools/doxygen/bibtex2html_wrapper.pl
index fded838..bf24f69 100755 (executable)
--- a/tools/doxygen/bibtex2html_postprocessor.pl
+++ b/tools/doxygen/bibtex2html_wrapper.pl
@@ -1,17 +1,26 @@
 #!/usr/bin/perl -w
 use utf8;
 #!/usr/bin/perl -w
 use utf8;

+use strict;
+
+my $file = shift @ARGV || die "USAGE: bibtex2html_wrapper <file>\n";
+
+my $output;
+
+open IN,"bibtex2html -single-output -nv -force -sort year -copy-icons ${file}.bib -output -|iconv -f latin1 -t utf8 -|";

 
 $write=0;
 
 $write=0;

-while($line = <STDIN>) {
+while($line = <IN>) {

     chomp $line;
     chomp $line;

+    next if $line =~ /WARNING: unknown field type/;
+    

     if($line =~ /table width/) {
     if($line =~ /table width/) {

-       $line = <STDIN>;
+       $line = <IN>;

        chomp $line;
        if($line =~ /height="50"/) {
            ## Skip preembule
            $write=1;
            do {
        chomp $line;
        if($line =~ /height="50"/) {
            ## Skip preembule
            $write=1;
            do {

-               $line = <STDIN>;
+               $line = <IN>;

                chomp $line;
            } while (!($line =~ /table/));
            next;
                chomp $line;
            } while (!($line =~ /table/));
            next;


@@ -19,15 +28,15 @@ while($line = <STDIN>) {
        if($line =~ /height="35"/) {
            ## Change this uggly table into a h2
            do {
        if($line =~ /height="35"/) {
            ## Change this uggly table into a h2
            do {

-               $line = <STDIN>;
+               $line = <IN>;

                chomp $line;
            } while (($line =~ /</));
            $title=$line;
            do {
                chomp $line;
            } while (($line =~ /</));
            $title=$line;
            do {

-               $line = <STDIN>;
+               $line = <IN>;

                chomp $line;
            } while (!($line =~ /table/));
                chomp $line;
            } while (!($line =~ /table/));

-           print "<h1>$title</h1>\n";
+           $output .= "<h1>$title</h1>\n";

            next;
        }
     }
            next;
        }
     }


@@ -43,7 +52,7 @@ while($line = <STDIN>) {
     }
 
     if($write) {
     }
 
     if($write) {

-       print $line."\n";
+       $output .= $line."\n";

     }
     
 }
     }
     
 }