package main;

# Copyright (c) 2009  Openismus GmbH  <http://www.openismus.com/>

#

# This file is part of mm-common.

#

# mm-common is free software: you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published

# by the Free Software Foundation, either version 2 of the License,

# or (at your option) any later version.

#

# mm-common is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with mm-common.  If not, see <http://www.gnu.org/licenses/>.

use strict;

use warnings;

use bytes;

use File::Glob qw(:glob);

use File::Spec;

use Getopt::Long qw(:config no_getopt_compat no_ignore_case require_order bundling);

sub path_basename ($)

{

  my ($path) = @_;

  my $basename = File::Spec->splitpath($path);

  return $basename;

}

sub exit_help ()

{

  my $script_name = path_basename($0) || 'doc-postprocess.pl';

  print <<"EOF";

Usage: perl $script_name [OPTION]... [PATTERN]...

Post-process the Doxygen-generated HTML files matching PATTERN.

Options:

  -?, --help                        display this help and exit

EOF

  exit;

}

sub error (@)

{

  my $script_name = path_basename($0);

  $script_name =~ s/\.[^.]*$//s if (defined $script_name);

  print STDERR ($script_name || 'doc-postprocess', ': ', @_, "\n");

  exit 1;

}

GetOptions('help|?' => \&exit_help)

  or exit 2;

foreach my $filename (map(bsd_glob($_, GLOB_NOSORT), @ARGV))

{

  my @buf;

  my $file;

  open($file, '<', $filename) and (@buf = <$file>) and close($file)

    or error('Failed to read ', path_basename($filename), ': ', $!);

  foreach (@buf)

  {

    if (/

    {

      # return value

      s/ &  */& /;

      s/ \*  */* /;

      # parameters

      s/ &/&/g;

      s/&\b/& /g;

      s/ \*/*/g;

      s/\*\b/* /g;

      # templates

      s/\btemplate</template </;

    }

    elsif (/

    {

      # left parenthesis

      s/\(  */(/;

      # return value

      s/ & /& /g;

      s/ \* /* /g;

      # parameters

      s/ &  */& /g;

      s/ \*  */* /g;

      # templates

      s/\btemplate</template </;

    }

    else

    {

      # template decls

      s/^(<h\d>|)template</$1template </;

    }

    # For some reason, recent versions of Doxygen output the full path to

    # referenced tag files.  This is bad since it breaks doc-install.pl,

    # and also because it leaks local path names into source tarballs.

    # Thus, strip the directory prefix here.

    s| doxygen="[^":]*/([^":]+\.tag):| doxygen="$1:|g;

    s/©/©/g;

    s/—/—/g;

    s/–/–/g;

    s/ *  */ /g;

  }

  # write the whole buffer back

  open($file, '>', $filename) and print $file (@buf) and close($file)

    or error('Failed to write ', path_basename($filename), ': ', $!);

}

exit;