am_edit

Bookcase 是一个用于KDE的个人的书籍管理。它使用XML文件存储格式

#!/usr/bin/perl -w

# Expands the specialised KDE tags in Makefile.in to (hopefully) valid
# make syntax.
# When called without file parameters, we work recursively on all Makefile.in
# in and below the current subdirectory. When called with file parameters,
# only those Makefile.in are changed.
# The currently supported tags are
#
# {program}_METASOURCES
# where you have a choice of two styles
#   {program}_METASOURCES = name1.moc name2.moc ... [\]
#   {program}_METASOURCES = AUTO
#       The second style requires other tags as well.
#
# To install icons :
#    KDE_ICON = iconname iconname2 ...
#    KDE_ICON = AUTO
#
# For documentation :
#    http://developer.kde.org/documentation/other/developer-faq.html
#
# and more new tags TBD!
#
# The concept (and base code) for this program came from automoc,
# supplied by the following
#
# Matthias Ettrich <[e-mail]>      (The originator)
# Kalle Dalheimer <[e-mail]>      (The original implementator)
# Harri Porten  <[e-mail]>
# Alex Zepeda  <[e-mail]>
# David Faure <[e-mail]>
# Stephan Kulow <[e-mail]>

use Cwd;
use File::Find;
use File::Basename;

# Prototype the functions
sub initialise ();
sub processMakefile ($);
sub updateMakefile ();
sub restoreMakefile ();

sub removeLine ($$);
sub appendLines ($);
sub substituteLine ($$);

sub findMocCandidates ();
sub pruneMocCandidates ($);
sub checkMocCandidates ();
sub addMocRules ();

sub tag_AUTOMAKE ();
sub tag_META_INCLUDES ();
sub tag_METASOURCES ();
sub tag_POFILES ();
sub tag_DOCFILES ();
sub tag_LOCALINSTALL();
sub tag_IDLFILES();
sub tag_UIFILES();
sub tag_SUBDIRS();
sub tag_ICON();
sub tag_CLOSURE();
sub tag_NO_UNDEFINED();
sub tag_DIST();

# Some global globals...
$verbose    = 0;        # a debug flag
$thisProg   = "$0";     # This programs name
$topdir     = cwd();    # The current directory
@makefiles  = ();       # Contains all the files we'll process
@foreignfiles = ();
$start      = (times)[0]; # some stats for testing - comment out for release
$version    = "v0.2";
$errorflag  = 0;
$cppExt     = "(cpp|cc|cxx|C|c\\+\\+)";
$hExt       = "(h|H|hh|hxx|hpp|h\\+\\+)";
$progId     = "KDE tags expanded automatically by " . basename($thisProg);
$automkCall = "\n";
$printname  = "";  # used to display the directory the Makefile is in
$use_final  = 1;        # create code for --enable-final
$cleantarget = "clean";
$dryrun     = 0;
$pathoption = 0;
$foreign_libtool = 0;

while (defined ($ARGV[0]))
{
    $_ = shift;
    if (/^--version$/)
    {
        print STDOUT "\n";
        print STDOUT basename($thisProg), " $version\n",
                "This is really free software, unencumbered by the GPL.\n",
                "You can do anything you like with it except sueing me.\n",
                "Copyright 1998 Kalle Dalheimer <kalle\@kde.org>\n",
                "Concept, design and unnecessary questions about perl\n",
                "       by Matthias Ettrich <ettrich\@kde.org>\n\n",
                "Making it useful by Stephan Kulow <coolo\@kde.org> and\n",
                "Harri Porten <porten\@kde.org>\n",
                "Updated (Feb-1999), John Birch <jb.nz\@writeme.com>\n",
	        "Current Maintainer Stephan Kulow\n\n";
        exit 0;
    }
    elsif (/^--verbose$|^-v$/)
    {
        $verbose = 1;       # Oh is there a problem...?
    }
    elsif (/^-p(.+)$|^--path=(.+)$/)
    {
        $thisProg = "$1/".basename($thisProg) if($1);
        $thisProg = "$2/".basename($thisProg) if($2);
        warn ("$thisProg doesn't exist\n")      if (!(-f $thisProg));
        $pathoption=1;
    }
    elsif (/^--help$|^-h$/)
    {
        print STDOUT "Usage $thisProg [OPTION] ... [dir/Makefile.in]...\n",
                "\n",
                "Patches dir/Makefile.in generated by automake\n",
                "(where dir can be an absolute or relative directory name)\n",
                "\n",
                "  -v, --verbose      verbosely list files processed\n",
                "  -h, --help         print this help, then exit\n",
                "  --version          print version number, then exit\n",
                "  -p, --path=        use the path to am_edit if the path\n",
                "                     called from is not the one to be used\n",
	        "  --no-final         don't patch for --enable-final\n";
	
        exit 0;
    }
    elsif (/^--no-final$/)
    {
	$use_final = 0;
        $thisProg .= " --no-final";
    }
    elsif (/^--foreign-libtool$/)
    {
        $foreign_libtool = 1;
        $thisProg .= " --foreign-libtool";
    }
    elsif (/^-n$/)
    {
    	$dryrun = 1;
    }
    else
    {
        # user selects what input files to check
        # add full path if relative path is given
        $_ = cwd()."/".$_   if (! /^\//);
        print "User wants $_\n" if ($verbose);
        push (@makefiles, $_);
    }
}

if ($thisProg =~ /^\// && !$pathoption )
{
  print STDERR "Illegal full pathname call performed...\n",
      "The call to \"$thisProg\"\nwould be inserted in some Makefile.in.\n",
      "Please use option --path.\n";
  exit 1;
}

# Only scan for files when the user hasn't entered data
if (!@makefiles)
{
    print STDOUT "Scanning for Makefile.in\n"       if ($verbose);
    find (\&add_makefile, cwd());
    #chdir('$topdir');
} else {
    print STDOUT "Using input files specified by user\n"   if ($verbose);
}

foreach $makefile (sort(@makefiles))
{
    processMakefile ($makefile);
    last            if ($errorflag);
}

# Just some debug statistics - comment out for release as it uses printf.
printf STDOUT "Time %.2f CPU sec\n", (times)[0] - $start     if ($verbose);

exit $errorflag;        # causes make to fail if erroflag is set

#-----------------------------------------------------------------------------

# In conjunction with the "find" call, this builds the list of input files
sub add_makefile ()
{
  push (@makefiles, $File::Find::name) if (/Makefile.in$/);
}

#-----------------------------------------------------------------------------

# Processes a single make file
# The parameter contains the full path name of the Makefile.in to use
sub processMakefile ($)
{
    # some useful globals for the subroutines called here
    local ($makefile)       = @_;
    local @headerdirs       = ('.');
    local $haveAutomocTag   = 0;
    local $MakefileData     = "";

    local $cxxsuffix  = "KKK";

    local @programs = ();  # lists the names of programs and libraries
    local $program = "";

    local %realObjs = ();  # lists the objects compiled into $program
    local %sources = ();   # lists the sources used for $program
    local %finalObjs = (); # lists the objects compiled when final
    local %realname = ();  # the binary name of program variable
    local %idlfiles = ();  # lists the idl files used for $program
    local %globalmocs = ();# list of all mocfiles (in %mocFiles format)
    local %important = (); # list of files to be generated asap
    local %uiFiles = ();

    local $allidls = "";
    local $idl_output = "";# lists all idl generated files for cleantarget
    local $ui_output = "";# lists all uic generated files for cleantarget

    local %depedmocs = ();
    
    local $metasourceTags = 0;
    local $dep_files      = "";
    local $dep_finals     = "";
    local %target_adds    = (); # the targets to add
    local $kdelang        = "";
    local @cleanfiles     = ();
    local $cleanMoc       = "";
    local $closure_output = "";

    local %varcontent     = ();

    $makefileDir = dirname($makefile);
    chdir ($makefileDir);
    $printname = $makefile;
    $printname =~ s/^\Q$topdir\E\///;
    $makefile = basename($makefile);

    print STDOUT "Processing makefile $printname\n"   if ($verbose);
    
    # Setup and see if we need to do this.
    return      if (!initialise());
    
    tag_AUTOMAKE ();            # Allows a "make" to redo the Makefile.in
    tag_META_INCLUDES ();       # Supplies directories for src locations
    
    foreach $program (@programs) {
        $sources_changed{$program} = 0;
        $depedmocs{$program} = "";
        $important{$program} = "";
	tag_IDLFILES();             # Sorts out idl rules
	tag_NO_UNDEFINED();
	tag_CLOSURE();
	tag_UIFILES();             # Sorts out ui rules
        tag_METASOURCES ();         # Sorts out the moc rules
        if ($sources_changed{$program}) {
            my $lookup = "$program" . '_SOURCES\s*=\s*(.*)';
            substituteLine($lookup, "$program\_SOURCES=" . $sources{$program});
        }
        if ($important{$program}) {
            local %source_dict = ();
            for $source (split(/[\034\s]+/, $sources{$program})) {
                $source_dict{$source} = 1;
            }
            for $source (@cleanfiles) {
                $source_dict{$source} = 0;
            }
            for $source (keys %source_dict) {
                next if (!$source);
                if ($source_dict{$source}) {
                    # sanity check
                    if (! -f $source) {
                        print STDERR "Error: $source is listed in a _SOURCE line in $printname, but doesn't exist yet. Put it in DISTCLEANFILES!\n";
                    } else {
                        $target_adds{"\$(srcdir)/$source"} .= $important{$program};
                    }
                }
            }
        }
    }
    if ($cleanMoc) {
        # Always add dist clean tag
        # Add extra *.moc.cpp files created for USE_AUTOMOC because they
        # aren't included in the normal *.moc clean rules.
        appendLines ("$cleantarget-metasources:\n\t-rm -f $cleanMoc\n");
        $target_adds{"$cleantarget-am"} .= "$cleantarget-metasources ";
    }
    
    tag_DIST() unless ($kdeopts{"noautodist"});

    if ($idl_output) {
        appendLines ("$cleantarget-idl:\n\t-rm -f $idl_output\n");
        $target_adds{"$cleantarget-am"} .= "$cleantarget-idl ";
    }

    if ($ui_output) {
        appendLines ("$cleantarget-ui:\n\t-rm -f $ui_output\n");
        $target_adds{"$cleantarget-am"} .= "$cleantarget-ui ";
    }

    if ($closure_output) {
        appendLines ("$cleantarget-closures:\n\t-rm -f $closure_output\n");
        $target_adds{"$cleantarget-am"} .= "$cleantarget-closures ";
    }

    if ($MakefileData =~ /\nKDE_LANG\s*=\s*(\S*)\s*\n/) {
        $kdelang = '$(KDE_LANG)'
    } else {
        $kdelang = '';
    }

    tag_POFILES ();             # language rules for po directory
    tag_DOCFILES ();            # language rules for doc directories
    tag_LOCALINSTALL();         # add $(DESTDIR) before all kde_ dirs
    tag_ICON();
    tag_SUBDIRS();

    my $tmp = "force-reedit:\n";
    $tmp   .= "\t$automkCall\n\tcd \$(top_srcdir) && perl $thisProg $printname\n\n";
    appendLines($tmp);
    
    make_bcheck_target();
    make_meta_classes();
    tag_COMPILE_FIRST();
    tag_FINAL() if (!$kdeopts{"nofinal"});

    my $final_lines = "final:\n\t\$(MAKE) ";
    my $final_install_lines = "final-install:\n\t\$(MAKE) ";
    my $nofinal_lines = "no-final:\n\t\$(MAKE) ";
    my $nofinal_install_lines = "no-final-install:\n\t\$(MAKE) ";

    foreach $program (@programs) {
        
        my $lookup = "$program\_OBJECTS.*=[^\n]*";
        
        my $new = "";
        
        my @list = split(/[\034\s]+/, $realObjs{$program});
        
        if (!$kdeopts{"nofinal"} && @list > 1 && $finalObjs{$program}) {
            
            $new .= "$program\_final\_OBJECTS = " . $finalObjs{$program};
            $new .= "\n$program\_nofinal\_OBJECTS = " . $realObjs{$program};
            $new .= "\n\@KDE_USE_FINAL_FALSE\@$program\_OBJECTS = \$($program\_nofinal\_OBJECTS)";
            $new .= "\n\@KDE_USE_FINAL_TRUE\@$program\_OBJECTS = \$($program\_final\_OBJECTS)";
            
            $final_lines .= "$program\_OBJECTS=\"\$($program\_final_OBJECTS)\" ";
            $final_install_lines .= "$program\_OBJECTS=\"\$($program\_final_OBJECTS)\" ";
            $nofinal_lines .= "$program\_OBJECTS=\"\$($program\_nofinal\_OBJECTS)\" ";
            $nofinal_install_lines .= "$program\_OBJECTS=\"\$($program\_nofinal_OBJECTS)\" ";
        } else {
            $new = "$program\_OBJECTS = " . $realObjs{$program};
        }
        substituteLine ($lookup, $new);
    }
    appendLines($final_lines . "all-am");
    appendLines($final_install_lines . "install-am");
    appendLines($nofinal_lines . "all-am");
    appendLines($nofinal_install_lines . "install-am");

    my $lookup = '(\@\S+\@)?DEP_FILES\s*=([^\n]*)';
    if ($MakefileData =~ /\n$lookup\n/o) {
        my $condition = $1;
        my $depfiles = $2;
        my $workfiles;

        if ($dep_finals) {
            # Add the conditions on every line, since
            # there may be line continuations in the list.
            $workfiles = "$dep_files $dep_finals $depfiles";
            $workfiles =~ s/\034/\034$condition\@KDE_USE_FINAL_TRUE\@\t/g;
            $lines  = "$condition\@KDE_USE_FINAL_TRUE\@DEP_FILES = $workfiles\n";