msvc71opts - # $Revision $ use msvc_modules_installer; use...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
# $Revision $ use msvc_modules_installer; use mexutils; sub msvc71opts { my $input = shift; my $default_location = "C:\\Program Files\\Microsoft Visual Studio .NET 2003"; my $specified_compiler_location = ""; my @language_handled = ('C'); my $locate_fcn = sub { my @msvc7_roots = (); my $msvc7_root; my $registry_lookup_fcn = $input->{"registry_lookup"}; if ($ENV{'VS71COMNTOOLS'} ne "" && -e "$ENV{'VS71COMNTOOLS'}\\. .\\. .\\Vc7\\bin\\cl.exe") { $msvc7_root = $ENV{'VS71COMNTOOLS'}; $msvc7_root =~ s|\\+Common7\\+Tools\\*$||i; $oldPath = $ENV{'PATH'}; $ENV{'PATH'} = "$msvc7_root\\Common7\\IDE;$oldPath"; if (&correct_version("$msvc7_root\\Vc7\\bin\\cl.exe","13.1")) { push(@msvc7_roots, $msvc7_root); } $ENV{'PATH'} = "$oldPath"; } $msvc7_root = &$registry_lookup_fcn("SOFTWARE\\Microsoft\\VisualStudio\\7.1\\" . "Setup\\VC", "ProductDir"); if (-e "$msvc7_root\\bin\\cl.exe") { $msvc7_root =~ s|\\Vc7\\$||i; push(@msvc7_roots, $msvc7_root); } if (-e "$default_location") { push(@msvc7_roots, $default_location);
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 2

msvc71opts - # $Revision $ use msvc_modules_installer; use...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online