webengine/osswebengine/WebKitTools/Scripts/pdevenv
author Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>
Mon, 26 Oct 2009 08:28:45 +0200
changeset 15 60c5402cb945
parent 0 dd21522fd290
permissions -rw-r--r--
Revision: 200941 Kit: 200943

#!/usr/bin/perl -w

use strict;
use warnings;

use File::Temp qw/tempfile/;
use FindBin;

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

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

print $fh "\@echo off\n\n";
print $fh "call \"\%VS80COMNTOOLS\%\\vsvars32.bat\"\n\n";
print $fh "set PATH=$vcBin;\%PATH\%\n\n";
print $fh "devenv.com /useenv " . join(" ", @ARGV) . "\n";

close $fh;

chmod 0755, $path;

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

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