1 #!/usr/bin/perl -w 2 3 use strict; 4 use warnings; 5 6 use File::Temp qw/tempfile/; 7 use FindBin; 8 9 use lib $FindBin::Bin; 10 use webkitdirs; 11 12 my ($fh, $path) = tempfile(UNLINK => 0, SUFFIX => '.cmd') or die; 13 14 chomp(my $vcBin = `cygpath -w "$FindBin::Bin/../vcbin"`); 15 chomp(my $scriptsPath = `cygpath -w "$FindBin::Bin"`); 16 17 my $vsToolsVar; 18 if ($ENV{'VS80COMNTOOLS'}) { 19 $vsToolsVar = "VS80COMNTOOLS"; 20 } elsif ($ENV{'VS90COMNTOOLS'}) { 21 $vsToolsVar = "VS90COMNTOOLS"; 22 } else { 23 print "*************************************************************\n"; 24 print "Cannot find Visual Studio tools dir.\n"; 25 print "Please ensure that \$VS80COMNTOOLS or \$VS90COMNTOOLS\n"; 26 print "is set to a valid location.\n"; 27 print "*************************************************************\n"; 28 die; 29 } 30 31 print $fh "\@echo off\n\n"; 32 print $fh "call \"\%" . $vsToolsVar . "\%\\vsvars32.bat\"\n\n"; 33 print $fh "set PATH=$vcBin;$scriptsPath;\%PATH\%\n\n"; 34 35 print $fh "IF EXIST \"\%VSINSTALLDIR\%\\Common7\\IDE\\devenv.com\" (devenv.com /useenv " . join(" ", @ARGV) . ") ELSE "; 36 print $fh "VCExpress.exe /useenv " . join(" ", @ARGV) . "\n"; 37 38 39 close $fh; 40 41 chmod 0755, $path; 42 43 chomp($path = `cygpath -w -s '$path'`); 44 45 exec("cmd /c \"call $path\""); 46
