Subversion Repositories gelsvn

package AutomakeWorkspaceCreator;

# ************************************************************

# Description   : A Automake Workspace (Makefile) creator

# Author        : J.T. Conklin & Steve Huston

# Create Date   : 5/13/2002

# ************************************************************

# ************************************************************

# Pragmas

# ************************************************************

use strict;

use AutomakeProjectCreator;

use WorkspaceCreator;

use WorkspaceHelper;

use vars qw(@ISA);

@ISA = qw(WorkspaceCreator);

# ************************************************************

# Data Section

# ************************************************************

my($acfile)  = 'configure.ac';

my($acmfile) = 'configure.ac.Makefiles';

# ************************************************************

# Subroutine Section

# ************************************************************

sub workspace_file_name {

  my($self) = shift;

  return $self->get_modified_workspace_name('Makefile', '.am');

}

sub workspace_per_project {

  #my($self) = shift;

  return 1;

}

sub pre_workspace {

  my($self) = shift;

  my($fh)   = shift;

  my($crlf) = $self->crlf();

  print $fh '##  Process this file with automake to create Makefile.in', $crlf,

            '##', $crlf,

            '## ', '$', 'Id', '$', $crlf,

            '##', $crlf,

            '## This file was generated by MPC.  Any changes made directly to', $crlf,

            '## this file will be lost the next time it is generated.', $crlf,

            '##', $crlf,

            '## MPC Command:', $crlf,

            "## $0 @ARGV", $crlf, $crlf;

}

sub write_comps {

  my($self)          = shift;

  my($fh)            = shift;

  my($creator)       = shift;

  my($toplevel)      = shift;

  my($projects)      = $self->get_projects();

  my(@list)          = $self->sort_dependencies($projects);

  my($crlf)          = $self->crlf();

  my(%unique)        = ();

  my(@dirs)          = ();

  my(@locals)        = ();

  my(%proj_dir_seen) = ();

  my($have_subdirs)  = 0;

  my($outdir)        = $self->get_outdir();

  ## This step writes a configure.ac.Makefiles list into the starting

  ## directory. The list contains of all the Makefiles generated down

  ## the tree. configure.ac can include this to get an up-to-date list

  ## of all the involved Makefiles.

  my($mfh);

  if ($toplevel) {

    if (! -e "$outdir/$acfile") {

      my($acfh) = new FileHandle();

      if (open($acfh, ">$outdir/$acfile")) {

        print $acfh "AC_INIT(", $self->get_workspace_name(), ", 1.0)$crlf",

                    "AM_INIT_AUTOMAKE([1.9])$crlf",

                    $crlf,

                    "AC_PROG_CXX$crlf",

                    "AC_PROG_CXXCPP$crlf",

                    "AC_PROG_LIBTOOL$crlf",

                    $crlf,

                    "m4_include([$acmfile])$crlf",

                    $crlf,

                    "AC_OUTPUT$crlf";

        close($acfh);

      }

    }

    else {

      $self->information("$acfile already exists.");

    }

    unlink("$outdir/$acmfile");

    $mfh = new FileHandle();

    open($mfh, ">$outdir/$acmfile");

    ## The top-level is never listed as a dependency, so it needs to be

    ## added explicitly.

    print $mfh "AC_CONFIG_FILES([ Makefile ])$crlf";

  }

  ## If we're writing a configure.ac.Makefiles file, every seen project

  ## goes into it. Since we only write this at the starting directory

  ## level, it'll include all projects processed at this level and below.

  foreach my $dep (@list) {

    if ($mfh) {

      ## There should be a Makefile at each level, but it's not a project,

      ## it's a workspace; therefore, it's not in the list of projects.

      ## Since we're consolidating all the project files into one workspace

      ## Makefile.am per directory level, be sure to add that Makefile.am

      ## entry at each level there's a project dependency.

      my($dep_dir) = $self->mpc_dirname($dep);

      if (!defined $proj_dir_seen{$dep_dir}) {

        $proj_dir_seen{$dep_dir} = 1;

        ## If there are directory levels between project-containing

        ## directories (for example, at this time in

        ## ACE_wrappers/apps/JAWS/server, there are no projects at the

        ## apps or apps/JAWS level) we need to insert the Makefile

        ## entries for the levels without projects. They won't be listed

        ## in @list but are needed for make to traverse intervening directory

        ## levels down to where the project(s) to build are.

        my(@dirs) = split /\//, $dep_dir;

        my $inter_dir = "";

        foreach my $dep (@dirs) {

          $inter_dir = "$inter_dir$dep";

          if (!defined $proj_dir_seen{$inter_dir}) {

            $proj_dir_seen{$inter_dir} = 1;

            print $mfh "AC_CONFIG_FILES([ $inter_dir" . "/Makefile ])$crlf";

          }

          $inter_dir = "$inter_dir/";

        }

        print $mfh "AC_CONFIG_FILES([ $dep_dir" . "/Makefile ])$crlf";

      }

    }

    ## Get a unique list of next-level directories for SUBDIRS.

    ## To make sure we keep the dependencies correct, insert the '.' for

    ## any local projects in the proper place. Remember if any subdirs

    ## are seen to know if we need a SUBDIRS entry generated.

    my($dir) = $self->get_first_level_directory($dep);

    if (!defined $unique{$dir}) {

      $unique{$dir} = 1;

      unshift(@dirs, $dir);

    }

    if ($dir eq '.') {

      ## At each directory level, each project is written into a separate

      ## Makefile.<project>.am file. To bring these back into the build

      ## process, they'll be sucked back into the workspace Makefile.am file.

      ## Remember which ones to pull in at this level.

      unshift(@locals, $dep);

    }

    else {

      $have_subdirs = 1;

    }

  }

  if ($mfh) {

    close($mfh);

  }

  # The Makefile.<project>.am files append values to build target macros

  # for each program/library to build. When using conditionals, however,

  # a plain empty assignment is done outside the conditional to be sure

  # that each append can be done regardless of the condition test. Because

  # automake fails if the first isn't a plain assignment, we need to resolve

  # these situations when combining the files. The code below makes sure

  # that there's always a plain assignment, whether it's one outside a

  # conditional or the first append is changed to a simple assignment.

  #

  # We should consider extending this to support all macros that match

  # automake's uniform naming convention.  A true perl wizard probably

  # would be able to do this in a single line of code.

  my(%seen) = ();

  my(%conditional_targets) = ();

  my(%unconditional_targets) = ();

  my(%first_instance_unconditional) = ();

  my($installable_headers) = undef;

  my($installable_pkgconfig) = undef;

  my($includedir) = undef;

  my($project_name) = undef;

  ## To avoid unnecessarily emitting blank assignments, rip through the

  ## Makefile.<project>.am files and check for conditions.

  if (@locals) {

    my($pfh) = new FileHandle();

    foreach my $local (reverse @locals) {

      if ($local =~ /Makefile\.(.*)\.am/) {

        $project_name = $1;

      }

      else {

        $project_name = 'nobase';

      }

      if (open($pfh, "$outdir/$local")) {

        my($in_condition) = 0;

        my($regok)        = $self->escape_regex_special($project_name);

        my($inc_pattern)  = $regok . '_include_HEADERS';

        my($pkg_pattern)  = $regok . '_pkginclude_HEADERS';

        while (<$pfh>) {

          # Don't look at comments

          next if (/^#/);

          if (/^if\s*/) {

            $in_condition++;

          }

          if (/^endif\s*/) {

            $in_condition--;

          }

          if (   /(^[a-zA-Z][a-zA-Z0-9_]*_(PROGRAMS|LIBRARIES|LTLIBRARIES|LISP|PYTHON|JAVA|SCRIPTS|DATA|SOURCES|HEADERS|MANS|TEXINFOS))\s*\+=\s*/

              || /(^CLEANFILES)\s*\+=\s*/

              || /(^EXTRA_DIST)\s*\+=\s*/

             ) {

            if ($in_condition) {

              $conditional_targets{$1}++;

            } else {

              if (! $seen{$1} ) {

                $first_instance_unconditional{$1} = 1;

              }

              $unconditional_targets{$1}++;

            }

            $seen{$1} = 1;

            if (/^pkgconfig_DATA/) {

               $installable_pkgconfig= 1;

            }

            if (/^$inc_pattern\s*\+=\s*/ || /^$pkg_pattern\s*\+=\s*/) {

              $installable_headers = 1;

            }

          }

          elsif (/includedir\s*=\s*(.*)/) {

            $includedir = $1;

          }

        }

        close($pfh);

        $in_condition = 0;

      }

      else {

        $self->error("Unable to open $local for reading.");

      }

    }

  }

  #

  # Clear seen hash

  #

  %seen = ();

  ## Print out the Makefile.am.

  my($wsHelper) = WorkspaceHelper::get($self);

  my($convert_header_name) = undef;

  if ((!defined $includedir && $installable_headers)

      || $installable_pkgconfig) {

    if (!defined $includedir && $installable_headers) {

      my($incdir) = $wsHelper->modify_value('includedir',

                                            $self->get_includedir());

      if ($incdir ne '') {

        print $fh "includedir = \@includedir\@$incdir$crlf";

        $convert_header_name = 1;

      }

    }

    if ($installable_pkgconfig) {

       print $fh "pkgconfigdir = \@libdir\@/pkgconfig$crlf";

    }

    print $fh $crlf;

  }

  if (@locals) {

    my($status, $error) = $wsHelper->write_settings($self, $fh, @locals);

    if (!$status) {

      $self->error($error);

    }

  }

  ## If there are local projects, insert "." as the first SUBDIR entry.

  if ($have_subdirs == 1) {

    print $fh 'SUBDIRS =';

    foreach my $dir (reverse @dirs) {

      print $fh " \\$crlf        $dir";

    }

    print $fh $crlf, $crlf;

  }

  ## Now, for each target used in a conditional, emit a blank assignment

  ## and mark that we've seen that target to avoid changing the += to =

  ## as the individual files are pulled in.

  if (%conditional_targets) {

    my $primary;

    my $count;

    while ( ($primary, $count) = each %conditional_targets) {

      if (! $first_instance_unconditional{$primary}

          && ($unconditional_targets{$primary} || ($count > 1)))

      {

        print $fh "$primary =$crlf";

        $seen{$primary} = 1;

      }

    }

    print $fh $crlf;

  }

  ## Take the local Makefile.<project>.am files and insert each one here,

  ## then delete it.

  if (@locals) {

    my($pfh) = new FileHandle();

    my($liblocs) = $self->get_lib_locations();

    my($here) = $self->getcwd();

    my($start) = $self->getstartdir();

    foreach my $local (reverse @locals) {

      if (open($pfh, "$outdir/$local")) {

        print $fh "## $local", $crlf;

        my($look_for_libs) = 0;

        while (<$pfh>) {

          # Don't emit comments

          next if (/^#/);

          if ($convert_header_name) {

            if ($local =~ /Makefile\.(.*)\.am/) {

              $project_name = $1;

            }

            else {

              $project_name = 'nobase';

            }

            my($regok)       = $self->escape_regex_special($project_name);

            my($inc_pattern) = $regok . '_include_HEADERS';

            my($pkg_pattern) = $regok . '_pkginclude_HEADERS';

            if (/^$inc_pattern\s*\+=\s*/ || /^$pkg_pattern\s*\+=\s*/) {

              $_ =~ s/^$project_name/nobase/;

            }

          }

          if (   /(^[a-zA-Z][a-zA-Z0-9_]*_(PROGRAMS|LIBRARIES|LTLIBRARIES|LISP|PYTHON|JAVA|SCRIPTS|DATA|SOURCES|HEADERS|MANS|TEXINFOS))\s*\+=\s*/

              || /(^CLEANFILES)\s*\+=\s*/

              || /(^EXTRA_DIST)\s*\+=\s*/

             ) {

            if (!defined ($seen{$1})) {

              $seen{$1} = 1;

              s/\+=/=/;

            }

          }

          ## This scheme relies on automake.mpd emitting the 'la' libs first.

          ## Look for all the libXXXX.la, find out where they are located

          ## relative to the start of the MPC run, and relocate the reference

          ## to that location under $top_builddir. Unless the referred-to

          ## library is in the current directory, then leave it undecorated

          ## so the automake-generated dependency orders the build correctly.

          if ($look_for_libs) {

            my @libs = /\s+(lib(\w+).la)/gm;

            my $libcount = @libs / 2;

            for(my $i = 0; $i < $libcount; ++$i) {

              my $libfile = $libs[$i * 2];

              my $libname = $libs[$i * 2 + 1];

              my $reldir  = $$liblocs{$libname};

              if ($reldir) {

                if ("$start/$reldir" ne $here) {

                  my($mod) = $wsHelper->modify_libpath($_, $reldir, $libfile);

                  if (defined $mod) {

                    $_ = $mod;

                  }

                  else {

                    s/$libfile/\$(top_builddir)\/$reldir\/$libfile/;

                  }

                }

              }

              else {

                $self->warning("No reldir found for $libname ($libfile).");

              }

            }

            if ($libcount == 0) {

              $look_for_libs = 0;

            }

          }

          if (/_LDADD = \\$/ || /_LIBADD = \\$/) {

            $look_for_libs = 1;

          }

          print $fh $_;

        }

        close($pfh);

        unlink("$outdir/$local");

        print $fh $crlf;

      }

      else {

        $self->error("Unable to open $local for reading.");

      }

    }

  }

  ## If this is the top-level Makefile.am, it needs the directives to pass

  ## autoconf/automake flags down the tree when running autoconf.

  ## *** This may be too closely tied to how we have things set up in ACE,

  ## even though it's recommended practice. ***

  if ($toplevel) {

    print $fh $crlf,

              'ACLOCAL = @ACLOCAL@', $crlf,

              'ACLOCAL_AMFLAGS = -I m4', $crlf,

              'AUTOMAKE_OPTIONS = foreign', $crlf,

              $crlf;

  }

  ## Finish up with the cleanup specs.

  if (@locals) {

    ## There is no reason to emit this if there are no local targets.

    ## An argument could be made that it shouldn't be emitted in any

    ## case because it could be handled by CLEANFILES or a verbatim

    ## clause.

    print $fh '## Clean up template repositories, etc.', $crlf,

              'clean-local:', $crlf,

              "\t-rm -f *~ *.bak *.rpo *.sym lib*.*_pure_* core core.*",

              $crlf,

              "\t-rm -f gcctemp.c gcctemp so_locations *.ics", $crlf,

              "\t-rm -rf cxx_repository ptrepository ti_files", $crlf,

              "\t-rm -rf templateregistry ir.out", $crlf,

              "\t-rm -rf ptrepository SunWS_cache Templates.DB", $crlf;

  }

}

sub get_includedir {

  my($self)  = shift;

  my($value) = $self->getcwd();

  my($start) = $self->getstartdir();

  ## Take off the starting directory

  $value =~ s/$start//;

  return $value;

}

1;