Rev 198 | Blame | Last modification | View Log | RSS feed
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|LIBADD|LDADD))\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;
my($prev_line) = undef;
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|LIBADD|LDADD))\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;
}
## I have introduced a one line delay so that I can simplify
## the automake template. If our current line is empty, then
## we will remove the trailing backslash before printing the
## previous line. Automake is horribly unforgiving so we must
## avoid this situation at all cost.
if (defined $prev_line) {
$prev_line =~ s/\s*\\$// if ($_ =~ /^\s*$/);
print $fh $prev_line;
}
$prev_line = $_;
}
## The one line delay requires that we print out the previous
## line (if there was one) when we reach the end of the file.
if (defined $prev_line) {
$prev_line =~ s/\s*\\$//;
print $fh $prev_line;
}
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;