WebKitTools/Scripts/pdevenv

   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 "IF EXIST \"\%VSINSTALLDIR\%\\Common7\\IDE\\devenv.com\" (devenv.com /useenv " . join(" ", @ARGV) . ") ELSE ";
  17 print $fh "VCExpress.exe /useenv " . join(" ", @ARGV) . "\n";
  18
  19 close $fh;
  20
  21 chmod 0755, $path;
  22
  23 chomp($path = `cygpath -w -s '$path'`);
  24
  25 exec("cmd /c \"call $path\"");