<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">eval '(exit $?0)' &amp;&amp; eval 'exec perl -S $0 ${1+"$@"}'
    &amp; eval 'exec perl -S $0 $argv:q'
    if 0;

# -*- perl -*-
# generate_doxygen.pl,v 1.25 2003/11/18 22:27:41 lut Exp
#

require POSIX;
require File::Path;

# Configuration and default values

$is_release = 0;
$exclude_ace = 0;
$exclude_tao = 0;
$verbose = 0;
$perl_path = '/usr/bin/perl';
$dot_path = '/usr/local/bin';
@ACE_DOCS = ('ace',
             'ace_man',
             'ace_rmcast',
             'ace_ssl',
             'ace_qos',
             'acexml');
@TAO_DOCS = ('tao'
             ,'tao_portableserver'
             ,'tao_rtportableserver'
             ,'tao_rtcorba'
             ,'tao_dynamicany'
             ,'tao_dynamicinterface'
             ,'tao_iormanip'
             ,'tao_iortable'
             ,'tao_esf'
             ,'tao_rtevent'
             ,'tao_cosevent'
             ,'tao_cosnotification'
             ,'tao_implrepo'
             ,'tao_strategies'
             ,'tao_smartproxies'
             ,'tao_av'
             ,'tao_security'
             ,'tao_ssliop'
             ,'tao_cosnaming'
             ,'tao_costime'
             ,'tao_costrader'
             ,'tao_portablegroup'
             ,'tao_pss'
             ,'tao_ifr'
             ,'ciao_assembly_deployer'
             ,'ciao_componentserver'
	     ,'ciao_daemon'
	     ,'ciao_serveractivator'
	     ,'ciao_xml_helpers'
	     ,'ciao'
	     );

# Modify defaults using the command line arguments
&amp;parse_args ();

open(CONFIG_H, "&gt;ace/config.h")
  || die "Cannot create config file\n";
print CONFIG_H "#include \"ace/config-doxygen.h\"\n";
close (CONFIG_H);

&amp;generate_doxy_files ('ACE',     'VERSION', @ACE_DOCS) if (!$exclude_ace);
&amp;generate_doxy_files ('TAO', 'TAO/VERSION', @TAO_DOCS) if (!$exclude_tao);

unlink "ace/config.h";

exit 0;

sub parse_args {
  my @ARGS = ();
  while ($#ARGV &gt;= 0) {
    if (!($ARGV[0] =~ m/^-/)) {
      push @ARGS, $ARGV[0];
    } elsif ($ARGV[0] eq "-is_release") {
      $is_release = 1;
    } elsif ($ARGV[0] eq "-exclude_ace") {
      $exclude_ace = 1;
    } elsif ($ARGV[0] eq "-exclude_tao") {
      $exclude_tao = 1;
    } elsif ($ARGV[0] eq "-verbose") {
      $verbose = 1;
    } elsif ($ARGV[0] eq "-perl_path" &amp;&amp; $#ARGV &gt;= 1) {
      $perl_path = $ARGV[1];
      shift;
    } elsif ($ARGV[0] eq "-dot_path" &amp;&amp; $#ARGV &gt;= 1) {
      $dot_path = $ARGV[1];
      shift;
    } else {
      print "Ignoring option $ARGV[0]\n";
    }
    shift @ARGV;
  }
  @ARGV = @ARGS;
}

sub generate_doxy_files {

  my $KIT = shift;
  my $VERSION_FILE = shift;
  my @DOCS = @_;

  my $VERSION = 'Snapshot ('.
    POSIX::strftime("%Y/%m/%d-%H:%M", localtime)
      .')';

  foreach my $i (@DOCS) {
    if ($is_release) {
      my ($major, $minor, $beta) = &amp;get_versions ($KIT, $VERSION_FILE);
      $VERSION = $major.'.'.$minor.'.'.$beta;
    }

    my $input = "etc/".$i.".doxygen";
    my $output = "/tmp/".$i.".".$$.".doxygen";

    open(DOXYINPUT, $input)
      || die "Cannot open doxygen input file $input\n";
    open(DOXYOUTPUT, "&gt;$output")
      || die "Cannot open doxygen output file $output\n";

    my $generate_man  = 0;
    my $generate_html = 0;
    my @output_dirs = ();
    while (&lt;DOXYINPUT&gt;) {
      chomp;
      if (/^PROJECT_NUMBER/) {
        print DOXYOUTPUT "PROJECT_NUMBER        = ", $VERSION, "\n";
        next;
      } elsif (/^PERL_PATH /) {
	print DOXYOUTPUT "PERL_PATH = $perl_path\n";
	next;
      } elsif (/^DOT_PATH /) {
	print DOXYOUTPUT "DOT_PATH = $dot_path\n";
	next;
      } elsif (/^QUIET / &amp;&amp; $verbose) {
	print DOXYOUTPUT "QUIET = NO\n";
	next;
      } elsif (/^INLINE_SOURCES/ &amp;&amp; $is_release) {
	print DOXYOUTPUT "INLINE_SOURCES = NO\n";
	next;
      } elsif (/^SOURCE_BROWSER/ &amp;&amp; $is_release) {
	print DOXYOUTPUT "SOURCE_BROWSER = NO\n";
	next;
      } elsif (/^VERBATIM_HEADERS/ &amp;&amp; $is_release) {
	print DOXYOUTPUT "VERBATIM_HEADERS = NO\n";
	next;
#      } elsif (/^INCLUDE_GRAPH/ &amp;&amp; $is_release) {
#	print DOXYOUTPUT "INCLUDE_GRAPH = NO\n";
#	next;
#      } elsif (/^INCLUDED_BY_GRAPH/ &amp;&amp; $is_release) {
#	print DOXYOUTPUT "INCLUDED_BY_GRAPH = NO\n";
#	next;
      } elsif (/^GENERATE_MAN/ &amp;&amp; /= YES/) {
        $generate_man = 1;
      } elsif (/^GENERATE_HTML/ &amp;&amp; /= YES/) {
        $generate_html = 1;
      } elsif ($generate_html &amp;&amp; /^HTML_OUTPUT/) {
        my @field = split(' = ');
        if ($#field &gt;= 1) {
          push @output_dirs, $field[1];
        }
      } elsif ($generate_html &amp;&amp; /^MAN_OUTPUT/) {
        my @field = split(' = ');
        if ($#field &gt;= 1) {
          push @output_dirs, $field[1];
        }
      }
      print DOXYOUTPUT $_, "\n";
    }
    close (DOXYOUTPUT);
    close (DOXYINPUT);

    foreach my $i (@output_dirs) {
      File::Path::mkpath($i, 0, 0755);
    }

    &amp;run_doxy ($output);

    unlink $output;
  }

  open(FIND, "find man -type f -print |") or die "Can't run find\n";
  while (&lt;FIND&gt;) {
    chop;
    my $name_with_whitespace = $_;
    next unless ($name_with_whitespace =~ /\s/);
    my $name_without_whitespace = $name_with_whitespace;
    $name_without_whitespace =~ s/\s+//g;
    rename $name_with_whitespace, $name_without_whitespace;
  }
  close FIND;
}

sub run_doxy {
  my $config = shift;
  open(DOX,"doxygen $config 2&gt;&amp;1 |")
    || die "cannot start ACE doxygen process\n";
  while (&lt;DOX&gt;) {
    print $_;
  }
  close (DOX)
    || die "error while running doxygen on $config\n";
}

########
######## Retrieve version information from VERSION file(s).
########
sub get_versions () {
  my $KIT = shift;
  my $VERSION_FILE = shift;
  my ($major_version, $minor_version, $beta_version);

  open (VERSION, '&lt;'.$VERSION_FILE)  ||
    die "$0: unable to open VERSION\n";
  while (&lt;VERSION&gt;) {
    chomp;
    if (/$KIT version (\d+)\.(\d+)\.(\d+)/) {
      $major_version = $1;
      $minor_version = $2;
      $beta_version = $3;
      last;
    } elsif (/$KIT version (\d+)\.(\d+)[^\.]/) {
      #### Previous release was a minor.
      $major_version = $1;
      $minor_version = $2;
      $beta_version  = '0';
      last;
    } elsif (/$KIT version (\d+)[^\.]/) {
      #### Previous release was a major.
      $major_version = $1;
      $minor_version = '0';
      $beta_version  = '0';
      last;
    }
  }
  close VERSION;

  return ($major_version, $minor_version, $beta_version);
}
</pre></body></html>