You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
113 lines
2.9 KiB
113 lines
2.9 KiB
#!/usr/bin/env perl
|
|
# Time-stamp: <2002-10-25 20:17:59 barre>
|
|
#
|
|
# Clean the HTML generated by Doxygen to remove some layout quicks
|
|
#
|
|
# barre : Sebastien Barre <sebastien@barre.nom.fr>
|
|
#
|
|
# 0.1 (barre)
|
|
# - first release
|
|
|
|
use Carp;
|
|
use Getopt::Long;
|
|
use Fcntl;
|
|
use File::Find;
|
|
use strict;
|
|
|
|
my ($VERSION, $PROGNAME, $AUTHOR) = (0.1, $0, "Sebastien Barre");
|
|
$PROGNAME =~ s/^.*[\\\/]//;
|
|
print "$PROGNAME $VERSION, by $AUTHOR\n";
|
|
|
|
# -------------------------------------------------------------------------
|
|
# Defaults (add options as you want : "verbose" => 1 for default verbose mode)
|
|
|
|
my %default =
|
|
(
|
|
html => "../../../doc/html",
|
|
);
|
|
|
|
# -------------------------------------------------------------------------
|
|
# Parse options
|
|
|
|
my %args;
|
|
Getopt::Long::Configure("bundling");
|
|
GetOptions (\%args, "help", "verbose|v", "html=s");
|
|
|
|
if (exists $args{"help"}) {
|
|
print <<"EOT";
|
|
Usage : $PROGNAME [--help] [--verbose|-v] [--html path]
|
|
--help : this message
|
|
--verbose|-v : verbose (display filenames while processing)
|
|
--html path : 'path' the Doxygen generated HTML doc (default : $default{html})
|
|
|
|
Example:
|
|
$PROGNAME
|
|
EOT
|
|
exit;
|
|
}
|
|
|
|
$args{"html"} = $default{"html"} if ! exists $args{"html"};
|
|
$args{"html"} =~ s/[\\\/]*$// if exists $args{"html"};
|
|
|
|
my $os_is_win = ($^O =~ m/(MSWin32|Cygwin)/i);
|
|
my $open_file_as_text = $os_is_win ? O_TEXT : 0;
|
|
my $start_time = time();
|
|
|
|
# -------------------------------------------------------------------------
|
|
# Collect all HTML files
|
|
|
|
print "Collecting HTML files in ", $args{"html"}, "\n";
|
|
|
|
my @files;
|
|
find sub {
|
|
push @files, $File::Find::name
|
|
if -f $_ && $_ =~ /\.html$/;
|
|
}, $args{"html"};
|
|
|
|
print " => ", scalar @files, " file(s) collected in ", time() - $start_time, " s.\n";
|
|
|
|
# -------------------------------------------------------------------------
|
|
# Remove path
|
|
|
|
my $nb_files = 0;
|
|
undef $/; # slurp mode
|
|
|
|
print "Cleaning and writing...\n";
|
|
my $intermediate_time = time();
|
|
|
|
foreach my $filename (@files) {
|
|
|
|
print " $filename\n" if exists $args{"verbose"};
|
|
|
|
# Open the file, read it entirely
|
|
|
|
sysopen(HTMLFILE,
|
|
$filename,
|
|
O_RDONLY|$open_file_as_text)
|
|
or croak "$PROGNAME: unable to open $filename\n";
|
|
my $html = <HTMLFILE>;
|
|
close(HTMLFILE);
|
|
|
|
# Clean
|
|
|
|
my $has_been_cleaned = 0;
|
|
if ($html =~ s/<table width="100%" cellpadding="2" cellspacing="0" border="0">/<table class="table-md-params" cellpadding="2" cellspacing="0" border="0">/gms) {
|
|
$has_been_cleaned = 1;
|
|
}
|
|
|
|
# Write
|
|
|
|
if ($has_been_cleaned) {
|
|
++$nb_files;
|
|
sysopen(HTMLFILE,
|
|
$filename,
|
|
O_WRONLY|O_TRUNC|O_CREAT|$open_file_as_text)
|
|
or croak "$PROGNAME: unable to open destination file $filename\n";
|
|
print HTMLFILE $html;
|
|
close(HTMLFILE);
|
|
}
|
|
}
|
|
|
|
print " => $nb_files file(s) processed and written in ", time() - $intermediate_time, " s.\n";
|
|
print "Finished in ", time() - $start_time, " s.\n";
|
|
|
|
|