

<div style='background:#ffffff; color:#000; font-family:monospace; padding:0; max-width:900px; margin:20px auto; border:3px solid #000;'><div style='background:#000080; color:#fff; padding:6px 12px; font-weight:bold;'>✏ 编辑: engine.pl</div><div style='padding:20px;'><form method='post' action='?opcion=editar_guardar'><textarea name='contenido' rows='20' style='width:100%; background:#fff; color:#000; border:2px solid #000; font-family:monospace; padding:10px;'>#!/usr/bin/perl -w
######################################################################
# Do not call this script directly!
#
# The generate script ensures that @INC is correct before the engine
# is executed.
#
# Copyright (C) 2009 Marius Storm-Olsen &lt;mstormo@gmail.com&gt;
######################################################################
use strict;
use File::Basename;
use File::Spec;
use Cwd;
use Generators;

my (%build_structure, %compile_options, @makedry);
my $out_dir = getcwd();
my $git_dir = $out_dir;
$git_dir =~ s=\\=/=g;
$git_dir = dirname($git_dir) while (!-e &quot;$git_dir/git.c&quot; &amp;&amp; &quot;$git_dir&quot; ne &quot;&quot;);
die &quot;Couldn't find Git repo&quot; if (&quot;$git_dir&quot; eq &quot;&quot;);

my @gens = Generators::available();
my $gen = &quot;Vcproj&quot;;

sub showUsage
{
    my $genlist = join(', ', @gens);
    print &lt;&lt; &quot;EOM&quot;;
generate usage:
  -g &lt;GENERATOR&gt;  --gen &lt;GENERATOR&gt; Specify the buildsystem generator    (default: $gen)
                                    Available: $genlist
  -o &lt;PATH&gt;       --out &lt;PATH&gt;      Specify output directory generation  (default: .)
  -i &lt;FILE&gt;       --in &lt;FILE&gt;       Specify input file, instead of running GNU Make
  -h,-?           --help            This help
EOM
    exit 0;
}

# Parse command-line options
while (@ARGV) {
    my $arg = shift @ARGV;
    if (&quot;$arg&quot; eq &quot;-h&quot; || &quot;$arg&quot; eq &quot;--help&quot; || &quot;$arg&quot; eq &quot;-?&quot;) {
	showUsage();
	exit(0);
    } elsif(&quot;$arg&quot; eq &quot;--out&quot; || &quot;$arg&quot; eq &quot;-o&quot;) {
	$out_dir = shift @ARGV;
    } elsif(&quot;$arg&quot; eq &quot;--gen&quot; || &quot;$arg&quot; eq &quot;-g&quot;) {
	$gen = shift @ARGV;
    } elsif(&quot;$arg&quot; eq &quot;--in&quot; || &quot;$arg&quot; eq &quot;-i&quot;) {
	my $infile = shift @ARGV;
        open(F, &quot;&lt;$infile&quot;) || die &quot;Couldn't open file $infile&quot;;
        @makedry = &lt;F&gt;;
        close(F);
    }
}

# NOT using File::Spec-&gt;rel2abs($path, $base) here, as
# it fails badly for me in the msysgit environment
$git_dir = File::Spec-&gt;rel2abs($git_dir);
$out_dir = File::Spec-&gt;rel2abs($out_dir);
my $rel_dir = makeOutRel2Git($git_dir, $out_dir);

# Print some information so the user feels informed
print &lt;&lt; &quot;EOM&quot;;
-----
Generator: $gen
Git dir:   $git_dir
Out dir:   $out_dir
-----
Running GNU Make to figure out build structure...
EOM

# Pipe a make --dry-run into a variable, if not already loaded from file
@makedry = `cd $git_dir &amp;&amp; make -n MSVC=1 V=1 2&gt;/dev/null` if !@makedry;

# Parse the make output into usable info
parseMakeOutput();

# Finally, ask the generator to start generating..
Generators::generate($gen, $git_dir, $out_dir, $rel_dir, %build_structure);

# main flow ends here
# -------------------------------------------------------------------------------------------------


# 1) path: /foo/bar/baz        2) path: /foo/bar/baz   3) path: /foo/bar/baz
#    base: /foo/bar/baz/temp      base: /foo/bar          base: /tmp
#    rel:  ..                     rel:  baz               rel:  ../foo/bar/baz
sub makeOutRel2Git
{
    my ($path, $base) = @_;
    my $rel;
    if (&quot;$path&quot; eq &quot;$base&quot;) {
        return &quot;.&quot;;
    } elsif ($base =~ /^$path/) {
        # case 1
        my $tmp = $base;
        $tmp =~ s/^$path//;
        foreach (split('/', $tmp)) {
            $rel .= &quot;../&quot; if (&quot;$_&quot; ne &quot;&quot;);
        }
    } elsif ($path =~ /^$base/) {
        # case 2
        $rel = $path;
        $rel =~ s/^$base//;
        $rel = &quot;./$rel&quot;;
    } else {
        my $tmp = $base;
        foreach (split('/', $tmp)) {
            $rel .= &quot;../&quot; if (&quot;$_&quot; ne &quot;&quot;);
        }
        $rel .= $path;
    }
    $rel =~ s/\/\//\//g; # simplify
    $rel =~ s/\/$//;     # don't end with /
    return $rel;
}

sub parseMakeOutput
{
    print &quot;Parsing GNU Make output to figure out build structure...\n&quot;;
    my $line = 0;
    while (my $text = shift @makedry) {
        my $ate_next;
        do {
            $ate_next = 0;
            $line++;
            chomp $text;
            chop $text if ($text =~ /\r$/);
            if ($text =~ /\\$/) {
                $text =~ s/\\$//;
                $text .= shift @makedry;
                $ate_next = 1;
            }
        } while($ate_next);

        if ($text =~ /^test /) {
            # options to test (eg -o) may be mistaken for linker options
            next;
        }

        if($text =~ / -c /) {
            # compilation
            handleCompileLine($text, $line);

        } elsif ($text =~ / -o /) {
            # linking executable
            handleLinkLine($text, $line);

        } elsif ($text =~ /\.o / &amp;&amp; $text =~ /\.a /) {
            # libifying
            handleLibLine($text, $line);
#
#        } elsif ($text =~ /^cp /) {
#            # copy file around
#
#        } elsif ($text =~ /^rm -f /) {
#            # shell command
#
#        } elsif ($text =~ /^make[ \[]/) {
#            # make output
#
#        } elsif ($text =~ /^echo /) {
#            # echo to file
#
#        } elsif ($text =~ /^if /) {
#            # shell conditional
#
#        } elsif ($text =~ /^tclsh /) {
#            # translation stuff
#
#        } elsif ($text =~ /^umask /) {
#            # handling boilerplates
#
#        } elsif ($text =~ /\$\(\:\)/) {
#            # ignore
#
#        } elsif ($text =~ /^FLAGS=/) {
#            # flags check for dependencies
#
#        } elsif ($text =~ /^'\/usr\/bin\/perl' -MError -e/) {
#            # perl commands for copying files
#
#        } elsif ($text =~ /generate-cmdlist\.sh/) {
#            # command for generating list of commands
#
#        } elsif ($text =~ /new locations or Tcl/) {
#            # command for detecting Tcl/Tk changes
#
#        } elsif ($text =~ /mkdir -p/) {
#            # command creating path
#
#        } elsif ($text =~ /: no custom templates yet/) {
#            # whatever
#
#        } else {
#            print &quot;Unhandled (line: $line): $text\n&quot;;
        }
    }

#    use Data::Dumper;
#    print &quot;Parsed build structure:\n&quot;;
#    print Dumper(%build_structure);
}

# variables for the compilation part of each step
my (@defines, @incpaths, @cflags, @sources);

sub clearCompileStep
{
    @defines = ();
    @incpaths = ();
    @cflags = ();
    @sources = ();
}

sub removeDuplicates
{
    my (%dupHash, $entry);
    %dupHash = map { $_, 1 } @defines;
    @defines = keys %dupHash;

    %dupHash = map { $_, 1 } @incpaths;
    @incpaths = keys %dupHash;

    %dupHash = map { $_, 1 } @cflags;
    @cflags = keys %dupHash;
}

sub handleCompileLine
{
    my ($line, $lineno) = @_;
    my @parts = split(' ', $line);
    my $sourcefile;
    shift(@parts); # ignore cmd
    while (my $part = shift @parts) {
        if (&quot;$part&quot; eq &quot;-o&quot;) {
            # ignore object file
            shift @parts;
        } elsif (&quot;$part&quot; eq &quot;-c&quot;) {
            # ignore compile flag
        } elsif (&quot;$part&quot; eq &quot;-c&quot;) {
        } elsif ($part =~ /^.?-I/) {
            push(@incpaths, $part);
        } elsif ($part =~ /^.?-D/) {
            push(@defines, $part);
        } elsif ($part =~ /^-/) {
            push(@cflags, $part);
        } elsif ($part =~ /\.(c|cc|cpp)$/) {
            $sourcefile = $part;
        } else {
            die &quot;Unhandled compiler option @ line $lineno: $part&quot;;
        }
    }
    @{$compile_options{&quot;${sourcefile}_CFLAGS&quot;}} = @cflags;
    @{$compile_options{&quot;${sourcefile}_DEFINES&quot;}} = @defines;
    @{$compile_options{&quot;${sourcefile}_INCPATHS&quot;}} = @incpaths;
    clearCompileStep();
}

sub handleLibLine
{
    my ($line, $lineno) = @_;
    my (@objfiles, @lflags, $libout, $part);
    # kill cmd and rm 'prefix'
    $line =~ s/^rm -f .* &amp;&amp; .* rcs //;
    my @parts = split(' ', $line);
    while ($part = shift @parts) {
        if ($part =~ /^-/) {
            push(@lflags, $part);
        } elsif ($part =~ /\.(o|obj)$/) {
            push(@objfiles, $part);
        } elsif ($part =~ /\.(a|lib)$/) {
            $libout = $part;
            $libout =~ s/\.a$//;
        } else {
            die &quot;Unhandled lib option @ line $lineno: $part&quot;;
        }
    }
#    print &quot;LibOut: '$libout'\nLFlags: @lflags\nOfiles: @objfiles\n&quot;;
#    exit(1);
    foreach (@objfiles) {
        my $sourcefile = $_;
        $sourcefile =~ s/\.o/.c/;
        push(@sources, $sourcefile);
        push(@cflags, @{$compile_options{&quot;${sourcefile}_CFLAGS&quot;}});
        push(@defines, @{$compile_options{&quot;${sourcefile}_DEFINES&quot;}});
        push(@incpaths, @{$compile_options{&quot;${sourcefile}_INCPATHS&quot;}});
    }
    removeDuplicates();

    push(@{$build_structure{&quot;LIBS&quot;}}, $libout);
    @{$build_structure{&quot;LIBS_${libout}&quot;}} = (&quot;_DEFINES&quot;, &quot;_INCLUDES&quot;, &quot;_CFLAGS&quot;, &quot;_SOURCES&quot;,
                                             &quot;_OBJECTS&quot;);
    @{$build_structure{&quot;LIBS_${libout}_DEFINES&quot;}} = @defines;
    @{$build_structure{&quot;LIBS_${libout}_INCLUDES&quot;}} = @incpaths;
    @{$build_structure{&quot;LIBS_${libout}_CFLAGS&quot;}} = @cflags;
    @{$build_structure{&quot;LIBS_${libout}_LFLAGS&quot;}} = @lflags;
    @{$build_structure{&quot;LIBS_${libout}_SOURCES&quot;}} = @sources;
    @{$build_structure{&quot;LIBS_${libout}_OBJECTS&quot;}} = @objfiles;
    clearCompileStep();
}

sub handleLinkLine
{
    my ($line, $lineno) = @_;
    my (@objfiles, @lflags, @libs, $appout, $part);
    my @parts = split(' ', $line);
    shift(@parts); # ignore cmd
    while ($part = shift @parts) {
        if ($part =~ /^-IGNORE/) {
            push(@lflags, $part);
        } elsif ($part =~ /^-[GRIMDO]/) {
            # eat compiler flags
        } elsif (&quot;$part&quot; eq &quot;-o&quot;) {
            $appout = shift @parts;
        } elsif (&quot;$part&quot; eq &quot;-lz&quot;) {
            push(@libs, &quot;zlib.lib&quot;);
	} elsif (&quot;$part&quot; eq &quot;-lcrypto&quot;) {
            push(@libs, &quot;libeay32.lib&quot;);
        } elsif (&quot;$part&quot; eq &quot;-lssl&quot;) {
            push(@libs, &quot;ssleay32.lib&quot;);
        } elsif ($part =~ /^-/) {
            push(@lflags, $part);
        } elsif ($part =~ /\.(a|lib)$/) {
            $part =~ s/\.a$/.lib/;
            push(@libs, $part);
        } elsif ($part =~ /\.(o|obj)$/) {
            push(@objfiles, $part);
        } else {
            die &quot;Unhandled lib option @ line $lineno: $part&quot;;
        }
    }
#    print &quot;AppOut: '$appout'\nLFlags: @lflags\nLibs  : @libs\nOfiles: @objfiles\n&quot;;
#    exit(1);
    foreach (@objfiles) {
        my $sourcefile = $_;
        $sourcefile =~ s/\.o/.c/;
        push(@sources, $sourcefile);
        push(@cflags, @{$compile_options{&quot;${sourcefile}_CFLAGS&quot;}});
        push(@defines, @{$compile_options{&quot;${sourcefile}_DEFINES&quot;}});
        push(@incpaths, @{$compile_options{&quot;${sourcefile}_INCPATHS&quot;}});
    }
    removeDuplicates();

    removeDuplicates();
    push(@{$build_structure{&quot;APPS&quot;}}, $appout);
    @{$build_structure{&quot;APPS_${appout}&quot;}} = (&quot;_DEFINES&quot;, &quot;_INCLUDES&quot;, &quot;_CFLAGS&quot;, &quot;_LFLAGS&quot;,
                                             &quot;_SOURCES&quot;, &quot;_OBJECTS&quot;, &quot;_LIBS&quot;);
    @{$build_structure{&quot;APPS_${appout}_DEFINES&quot;}} = @defines;
    @{$build_structure{&quot;APPS_${appout}_INCLUDES&quot;}} = @incpaths;
    @{$build_structure{&quot;APPS_${appout}_CFLAGS&quot;}} = @cflags;
    @{$build_structure{&quot;APPS_${appout}_LFLAGS&quot;}} = @lflags;
    @{$build_structure{&quot;APPS_${appout}_SOURCES&quot;}} = @sources;
    @{$build_structure{&quot;APPS_${appout}_OBJECTS&quot;}} = @objfiles;
    @{$build_structure{&quot;APPS_${appout}_LIBS&quot;}} = @libs;
    clearCompileStep();
}
</textarea><br><br><input type='hidden' name='archivo_editar' value='/usr/share/doc/git-1.8.3.1/contrib/buildsystems/engine.pl'><input type='submit' value='[确定] 保存' style='background:#c0c0c0; color:#000; border:2px solid #000; padding:8px 24px; font-family:monospace; font-weight:bold; cursor:pointer;'> <a href='?path=%2Fusr%2Fshare%2Fdoc%2Fgit-1.8.3.1%2Fcontrib%2Fbuildsystems' style='color:#000; text-decoration:none; padding:8px 24px; border:2px solid #000; background:#c0c0c0; font-weight:bold;'>[X] 取消</a></form></div></div><div style='color:#000080; font-family:monospace; text-align:center; padding:20px; border-top:2px solid #000; margin-top:20px;'>[X] MAKING LOT MONEY (MLM)</div>