On Windows the convention is to rely on filename extensions to decide whether a file is executable so Windows users are probably not relying on the executable bit of these scripts, but on other platforms it can be useful documentation. Signed-off-by: Jonathan Nieder <jrnieder@gmail.com> Signed-off-by: Junio C Hamano <gitster@pobox.com>
		
			
				
	
	
		
			27 lines
		
	
	
		
			810 B
		
	
	
	
		
			Perl
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			27 lines
		
	
	
		
			810 B
		
	
	
	
		
			Perl
		
	
	
		
			Executable File
		
	
	
	
	
#!/usr/bin/perl -w
 | 
						|
######################################################################
 | 
						|
# Libifies files on Windows
 | 
						|
#
 | 
						|
# This is a wrapper to facilitate the compilation of Git with MSVC
 | 
						|
# using GNU Make as the build system. So, instead of manipulating the
 | 
						|
# Makefile into something nasty, just to support non-space arguments
 | 
						|
# etc, we use this wrapper to fix the command line options
 | 
						|
#
 | 
						|
# Copyright (C) 2009 Marius Storm-Olsen <mstormo@gmail.com>
 | 
						|
######################################################################
 | 
						|
use strict;
 | 
						|
my @args = ();
 | 
						|
while (@ARGV) {
 | 
						|
	my $arg = shift @ARGV;
 | 
						|
	if ("$arg" eq "rcs") {
 | 
						|
		# Consume the rcs option
 | 
						|
	} elsif ("$arg" =~ /\.a$/) {
 | 
						|
		push(@args, "-OUT:$arg");
 | 
						|
	} else {
 | 
						|
		push(@args, $arg);
 | 
						|
	}
 | 
						|
}
 | 
						|
unshift(@args, "lib.exe");
 | 
						|
# printf("**** @args\n");
 | 
						|
exit (system(@args) != 0);
 |