1#!/usr/bin/perl -w 2 3use strict; 4use warnings; 5 6use File::Temp qw/tempfile/; 7use FindBin; 8 9use lib $FindBin::Bin; 10use webkitdirs; 11 12my ($fh, $path) = tempfile(UNLINK => 0, SUFFIX => '.cmd') or die; 13 14chomp(my $vcBin = `cygpath -w "$FindBin::Bin/../vcbin"`); 15chomp(my $scriptsPath = `cygpath -w "$FindBin::Bin"`); 16 17my $vsToolsVar; 18if ($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 31print $fh "\@echo off\n\n"; 32print $fh "call \"\%" . $vsToolsVar . "\%\\vsvars32.bat\"\n\n"; 33print $fh "set PATH=$vcBin;$scriptsPath;\%PATH\%\n\n"; 34 35print $fh "IF EXIST \"\%VSINSTALLDIR\%\\Common7\\IDE\\devenv.com\" (devenv.com /useenv " . join(" ", @ARGV) . ") ELSE "; 36print $fh "VCExpress.exe /useenv " . join(" ", @ARGV) . "\n"; 37 38 39close $fh; 40 41chmod 0755, $path; 42 43chomp($path = `cygpath -w -s '$path'`); 44 45exec("cmd /c \"call $path\""); 46