|  | #!/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); |