1 #!/usr/bin/perl -w

     2 

     3 use strict;

     4 use warnings;

     5 

     6 use File::Temp qw/tempfile/;

     7 use FindBin;

     8 

     9 my ($fh, $path) = tempfile(UNLINK => 0, SUFFIX => '.cmd') or die;

    10 

    11 chomp(my $vcBin = `cygpath -w "$FindBin::Bin/../vcbin"`);

    12 

    13 print $fh "\@echo off\n\n";

    14 print $fh "call \"\%VS80COMNTOOLS\%\\vsvars32.bat\"\n\n";

    15 print $fh "set PATH=$vcBin;\%PATH\%\n\n";

    16 print $fh "devenv.com /useenv " . join(" ", @ARGV) . "\n";

    17 

    18 close $fh;

    19 

    20 chmod 0755, $path;

    21 

    22 chomp($path = `cygpath -w -s '$path'`);

    23 

    24 exec("cmd /c \"call $path\"");