Land pdevenv and supporting scripts/programs
[WebKit-https.git] / 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 "devenv /useenv\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\"");