diff options
Diffstat (limited to 'bin/oowintool')
| -rwxr-xr-x | bin/oowintool | 128 |
1 files changed, 120 insertions, 8 deletions
diff --git a/bin/oowintool b/bin/oowintool index 7495058e5..d645932dc 100755 --- a/bin/oowintool +++ b/bin/oowintool @@ -24,6 +24,17 @@ sub reg_get_value($) return $value; } +sub reg_find_key($) +{ + # it is believed that the registry moves keys around + # depending on OS version, this will de-mangle that + my $key = shift; + $key =~ s| |\\ |; + $key = `cd /proc/registry/ ; ls $key`; + + return $key; +} + sub print_syntax() { print "oowintool [option] ...\n"; @@ -33,10 +44,14 @@ sub print_syntax() print " commands:\n"; print " --msvc-ver - dump version of MSVC eg. 6.0\n"; print " --msvc-copy-dlls <dest> - copy msvc[pr]??.dlls into <dest>/msvcp??/\n"; + print " --msvc-copy-instmsi <dest> - copy instmsia.exe, insmsiw.exe into <dest>\n"; print " --msvc-productdir - dump productdir\n"; + print " --msvs-productdir - dump productdir\n"; + print " --dotnetsdk-dir - dump .Net SDK path\n"; print " --csc-compilerdir - dump .Net SDK compiler path\n"; print " --psdk-home - dump psdk install dir\n"; print " --jdk-home - dump the jdk install dir\n"; + print " --nsis-dir - dump NSIS path\n"; print " --help - this message\n"; } @@ -78,6 +93,11 @@ sub print_psdk_home() { my $value; $value = reg_get_value ('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/MicrosoftSDK/Directories/Install Dir'); + if (!defined $value) + { + $key = reg_find_key ('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/MicrosoftSDK/InstalledSDKs/*/Install Dir'); + $value = reg_get_value ($key); + } defined $value || die "psdk not found"; print cygpath ($value, 'w', $output_format); @@ -87,22 +107,60 @@ my %msvc6 = ( 'ver' => '6.0', 'key' => 'Microsoft/VisualStudio/6.0/Setup/Microsoft Visual C++/ProductDir', ); -my %msvs_net_2002 = ( +my %msvc_net_2002 = ( 'ver' => '7.0', 'key' => 'Microsoft/VisualStudio/7.0/Setup/VC/ProductDir', + 'instmsi_path' => '../Common7/Tools/Deployment/MsiRedist', 'dll_path' => '../Visual Studio .NET Professional - English', # testme ... 'dll_suffix' => '70' ); -my %msvs_net_2003 = ( +my %msvs_net_2002 = ( + 'ver' => '7.0', + 'key' => 'Microsoft/VisualStudio/7.0/Setup/VS/ProductDir', + 'instmsi_path' => 'Common7/Tools/Deployment/MsiRedist', + 'dll_path' => 'Visual Studio .NET Professional - English', # testme ... + 'dll_suffix' => '70' +); +my %msvc_net_2003 = ( 'ver' => '7.1', 'key' => 'Microsoft/VisualStudio/7.1/Setup/VC/ProductDir', + 'instmsi_path' => '../Common7/Tools/Deployment/MsiRedist', 'dll_path' => '../SDK/v1.1/Bin', 'dll_suffix' => '71' ); +my %msvs_net_2003 = ( + 'ver' => '7.1', + 'key' => 'Microsoft/VisualStudio/7.1/Setup/VS/ProductDir', + 'instmsi_path' => 'Common7/Tools/Deployment/MsiRedist', + 'dll_path' => 'Visual Studio .NET Professional 2003 - English', # testme ... + 'dll_suffix' => '71' +); +my %msvs_net_2003_ea = ( + 'ver' => '7.1', + 'key' => 'Microsoft/VisualStudio/7.1/Setup/VS/ProductDir', + 'instmsi_path' => 'Common7/Tools/Deployment/MsiRedist', + 'dll_path' => 'Visual Studio .NET Enterprise Architect 2003 - English', # testme ... + 'dll_suffix' => '71' +); sub find_msvs() { - my @ms_versions = ( \%msvs_net_2003, \%msvs_net_2002, \%msvc6 ); + my @ms_versions = ( \%msvs_net_2003_ea, \%msvs_net_2003, \%msvs_net_2002, \%msvc6 ); + + for $ver (@ms_versions) + { + my $install = reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/" . $ver->{'key'}); + if (defined $install && $install ne '') { + $ver->{'product_dir'} = $install; + return $ver; + } + } + die "Can't find MS Visual Studio / VC++"; +} + +sub find_msvc() +{ + my @ms_versions = ( \%msvc_net_2003, \%msvc_net_2002, \%msvc6 ); for $ver (@ms_versions) { @@ -117,12 +175,18 @@ sub find_msvs() sub print_msvc_ver() { - my $ver = find_msvs(); + my $ver = find_msvc(); print $ver->{'ver'}; } sub print_msvc_product_dir() { + my $ver = find_msvc(); + print cygpath ($ver->{'product_dir'}, 'w', $output_format); +} + +sub print_msvs_productdir() +{ my $ver = find_msvs(); print cygpath ($ver->{'product_dir'}, 'w', $output_format); } @@ -134,12 +198,24 @@ sub print_csc_compiler_dir() print cygpath ($dir, 'w', $output_format); } +sub print_dotnetsdk_dir() +{ + my $dir = reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/.NETFramework/sdkInstallRootv1.1"); + print cygpath ($dir, 'w', $output_format); +} + sub print_jdk_dir() { my $dir = reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/JavaSoft/Java\ Development\ Kit/1.4/JavaHome"); print cygpath($dir, 'w', $output_format); } +sub print_nsis_dir() +{ + my $dir = reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/NSIS/@"); + print cygpath ($dir, 'w', $output_format); +} + sub copy_dll($$$) { my ($src, $fname, $dest) = @_; @@ -151,13 +227,25 @@ sub copy_dll($$$) chmod (0755, "$dest/$fname") || die "failed to set dll executable: $!"; } +sub msvc_find_version($) +{ + my $checkpath = shift; + my $ver = find_msvc(); + my $srcdir = (cygpath ($ver->{'product_dir'}, 'w', 'u') . '/' . + $ver->{$checkpath}); + -d $srcdir && return $ver; + $ver = find_msvs(); + $srcdir = (cygpath ($ver->{'product_dir'}, 'w', 'u') . '/' . + $ver->{$checkpath}); + -d $srcdir && return $ver; + return ""; +} + sub msvc_copy_dlls($) { my $dest = shift; - my $ver = find_msvs(); - - defined $ver->{'dll_path'} || return; - + my $ver = msvc_find_version('dll_path'); + defined $ver || return; my $srcdir = (cygpath ($ver->{'product_dir'}, 'w', 'u') . '/' . $ver->{'dll_path'}); @@ -167,6 +255,20 @@ sub msvc_copy_dlls($) $dest . $ver->{'dll_suffix'}); } +sub msvc_copy_instmsi($) +{ + my $dest = shift; + my $ver = msvc_find_version('instmsi_path'); + defined $ver || return; + my $srcdir = (cygpath ($ver->{'product_dir'}, 'w', 'u') . '/' . + $ver->{'instmsi_path'}); + + copy_dll ($srcdir, "instmsia.exe", + $dest); + copy_dll ($srcdir, "instmsiw.exe", + $dest); +} + if (!@ARGV) { print_syntax(); exit 1; @@ -194,14 +296,24 @@ while (@commands) { my $dest = shift @commands; defined $dest || die "copy-dlls requires a destination directory"; msvc_copy_dlls( $dest ); + } elsif ($opt eq '--msvc-copy-instmsi') { + my $dest = shift @commands; + defined $dest || die "copy-instmsi requires a destination directory"; + msvc_copy_instmsi( $dest ); + } elsif ($opt eq '--msvs-productdir') { + print_msvs_productdir(); } elsif ($opt eq '--msvc-productdir') { print_msvc_product_dir(); + } elsif ($opt eq '--dotnetsdk-dir') { + print_dotnetsdk_dir(); } elsif ($opt eq '--csc-compilerdir') { print_csc_compiler_dir(); } elsif ($opt eq '--psdk-home') { print_psdk_home(); } elsif ($opt eq '--jdk-home') { print_jdk_dir(); + } elsif ($opt eq '--nsis-dir') { + print_nsis_dir(); } elsif ($opt eq '--help' || $opt eq '/?') { print_syntax(); } else { |