git

1
#!/usr/bin/perl -w
2
######################################################################
3
# Compiles or links files
4
#
5
# This is a wrapper to facilitate the compilation of Git with MSVC
6
# using GNU Make as the build system. So, instead of manipulating the
7
# Makefile into something nasty, just to support non-space arguments
8
# etc, we use this wrapper to fix the command line options
9
#
10
# Copyright (C) 2009 Marius Storm-Olsen <mstormo@gmail.com>
11
######################################################################
12
use strict;
13
my @args = ();
14
my @cflags = ();
15
my @lflags = ();
16
my $is_linking = 0;
17
my $is_debug = 0;
18
while (@ARGV) {
19
	my $arg = shift @ARGV;
20
	if ("$arg" eq "-DDEBUG") {
21
	    # Some vcpkg-based libraries have different names for release
22
	    # and debug versions.  This hack assumes that -DDEBUG comes
23
	    # before any "-l*" flags.
24
	    $is_debug = 1;
25
	}
26
	if ("$arg" =~ /^-I\/mingw(32|64)/) {
27
		# eat
28
	} elsif ("$arg" =~ /^-[DIMGOZ]/) {
29
		push(@cflags, $arg);
30
	} elsif ("$arg" eq "-o") {
31
		my $file_out = shift @ARGV;
32
		if ("$file_out" =~ /exe$/) {
33
			$is_linking = 1;
34
			# Create foo.exe and foo.pdb
35
			push(@args, "-OUT:$file_out");
36
		} else {
37
			# Create foo.o and foo.o.pdb
38
			push(@args, "-Fo$file_out");
39
			push(@args, "-Fd$file_out.pdb");
40
		}
41
	} elsif ("$arg" eq "-lz") {
42
	    if ($is_debug) {
43
		push(@args, "zlibd.lib");
44
	    } else{
45
		push(@args, "zlib.lib");
46
	    }
47
	} elsif ("$arg" eq "-liconv") {
48
		push(@args, "iconv.lib");
49
	} elsif ("$arg" eq "-lcrypto") {
50
		push(@args, "libcrypto.lib");
51
	} elsif ("$arg" eq "-lssl") {
52
		push(@args, "libssl.lib");
53
	} elsif ("$arg" eq "-lcurl") {
54
		my $lib = "";
55
		# Newer vcpkg definitions call this libcurl_imp.lib; Do we
56
		# need to use that instead?
57
		foreach my $flag (@lflags) {
58
			if ($flag =~ /^-LIBPATH:(.*)/) {
59
				foreach my $l ("libcurl_imp.lib", "libcurl.lib") {
60
					if (-f "$1/$l") {
61
						$lib = $l;
62
						last;
63
					}
64
				}
65
			}
66
		}
67
		push(@args, $lib);
68
	} elsif ("$arg" eq "-lexpat") {
69
		push(@args, "libexpat.lib");
70
	} elsif ("$arg" =~ /^-L/ && "$arg" ne "-LTCG") {
71
		$arg =~ s/^-L/-LIBPATH:/;
72
		push(@lflags, $arg);
73
	} elsif ("$arg" =~ /^-[Rl]/) {
74
		# eat
75
	} elsif ("$arg" eq "-Werror") {
76
		push(@cflags, "-WX");
77
	} elsif ("$arg" eq "-Wall") {
78
		# cl.exe understands -Wall, but it is really overzealous
79
		push(@cflags, "-W4");
80
		# disable the "signed/unsigned mismatch" warnings; our source code violates that
81
		push(@cflags, "-wd4018");
82
		push(@cflags, "-wd4245");
83
		push(@cflags, "-wd4389");
84
		# disable the "unreferenced formal parameter" warning; our source code violates that
85
		push(@cflags, "-wd4100");
86
		# disable the "conditional expression is constant" warning; our source code violates that
87
		push(@cflags, "-wd4127");
88
		# disable the "const object should be initialized" warning; these warnings affect only objects that are `static`
89
		push(@cflags, "-wd4132");
90
		# disable the "function/data pointer conversion in expression" warning; our source code violates that
91
		push(@cflags, "-wd4152");
92
		# disable the "non-constant aggregate initializer" warning; our source code violates that
93
		push(@cflags, "-wd4204");
94
		# disable the "cannot be initialized using address of automatic variable" warning; our source code violates that
95
		push(@cflags, "-wd4221");
96
		# disable the "possible loss of data" warnings; our source code violates that
97
		push(@cflags, "-wd4244");
98
		push(@cflags, "-wd4267");
99
		# disable the "array is too small to include a terminating null character" warning; we ab-use strings to initialize OIDs
100
		push(@cflags, "-wd4295");
101
		# disable the "'<<': result of 32-bit shift implicitly converted to 64 bits" warning; our source code violates that
102
		push(@cflags, "-wd4334");
103
		# disable the "declaration hides previous local declaration" warning; our source code violates that
104
		push(@cflags, "-wd4456");
105
		# disable the "declaration hides function parameter" warning; our source code violates that
106
		push(@cflags, "-wd4457");
107
		# disable the "declaration hides global declaration" warning; our source code violates that
108
		push(@cflags, "-wd4459");
109
		# disable the "potentially uninitialized local variable '<name>' used" warning; our source code violates that
110
		push(@cflags, "-wd4701");
111
		# disable the "unreachable code" warning; our source code violates that
112
		push(@cflags, "-wd4702");
113
		# disable the "potentially uninitialized local pointer variable used" warning; our source code violates that
114
		push(@cflags, "-wd4703");
115
		# disable the "assignment within conditional expression" warning; our source code violates that
116
		push(@cflags, "-wd4706");
117
		# disable the "'inet_ntoa': Use inet_ntop() or InetNtop() instead" warning; our source code violates that
118
		push(@cflags, "-wd4996");
119
	} elsif ("$arg" =~ /^-W[a-z]/) {
120
		# let's ignore those
121
	} else {
122
		push(@args, $arg);
123
	}
124
}
125
if ($is_linking) {
126
	push(@args, @lflags);
127
	unshift(@args, "link.exe");
128
} else {
129
	unshift(@args, "cl.exe");
130
	push(@args, @cflags);
131
}
132
printf(STDERR "**** @args\n\n\n") if (!defined($ENV{'QUIET_GEN'}));
133
exit (system(@args) != 0);
134