oowintool (b31e36b3) oowintool (dfafe007)
1#!/usr/bin/perl -w
2# *************************************************************
3#
4# Licensed to the Apache Software Foundation (ASF) under one
5# or more contributor license agreements. See the NOTICE file
6# distributed with this work for additional information
7# regarding copyright ownership. The ASF licenses this file
8# to you under the Apache License, Version 2.0 (the

--- 203 unchanged lines hidden (view full) ---

212
213 for $ver (@ms_versions)
214 {
215 my $install = reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/" . $ver->{'key'});
216 if (defined $install && $install ne '') {
217 $ver->{'product_dir'} = $install;
218 return $ver;
219 }
1#!/usr/bin/perl -w
2# *************************************************************
3#
4# Licensed to the Apache Software Foundation (ASF) under one
5# or more contributor license agreements. See the NOTICE file
6# distributed with this work for additional information
7# regarding copyright ownership. The ASF licenses this file
8# to you under the Apache License, Version 2.0 (the

--- 203 unchanged lines hidden (view full) ---

212
213 for $ver (@ms_versions)
214 {
215 my $install = reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/" . $ver->{'key'});
216 if (defined $install && $install ne '') {
217 $ver->{'product_dir'} = $install;
218 return $ver;
219 }
220 $install = reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/Wow6432Node/" . $ver->{'key'});
221 if (defined $install && $install ne '') {
222 $ver->{'product_dir'} = $install;
223 return $ver;
224 }
220 }
221 die "Can't find MS Visual Studio / VC++";
222}
223
224sub find_msvc()
225{
226 my @ms_versions = ( \%msvc_2008, \%msvc_express_2008, \%msvc_2005, \%msvc_express_2005, \%msvc_net_2003 );
227
228 for $ver (@ms_versions)
229 {
230 my $install = reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/" . $ver->{'key'});
231 if (defined $install && $install ne '') {
232 $ver->{'product_dir'} = $install;
233 return $ver;
234 }
225 }
226 die "Can't find MS Visual Studio / VC++";
227}
228
229sub find_msvc()
230{
231 my @ms_versions = ( \%msvc_2008, \%msvc_express_2008, \%msvc_2005, \%msvc_express_2005, \%msvc_net_2003 );
232
233 for $ver (@ms_versions)
234 {
235 my $install = reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/" . $ver->{'key'});
236 if (defined $install && $install ne '') {
237 $ver->{'product_dir'} = $install;
238 return $ver;
239 }
240 $install = reg_get_value("HKEY_LOCAL_MACHINE/SOFTWARE/Wow6432Node/" . $ver->{'key'});
241 if (defined $install && $install ne '') {
242 $ver->{'product_dir'} = $install;
243 return $ver;
244 }
235 }
236 die "Can't find MS Visual Studio / VC++";
237}
238
239sub print_msvc_ver()
240{
241 my $ver = find_msvc();
242 print $ver->{'ver'};

--- 141 unchanged lines hidden --- 		245 }
246 die "Can't find MS Visual Studio / VC++";
247}
248
249sub print_msvc_ver()
250{
251 my $ver = find_msvc();
252 print $ver->{'ver'};

--- 141 unchanged lines hidden ---