oowintool (8003ea8a) oowintool (01d9dfef)
1#!/usr/bin/perl -w
2
3use File::Copy;
4
5my $output_format = 'u';
6
7sub reg_get_value($)
8{

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

93
94sub print_psdk_home()
95{
96 my ($value, $key);
97 $value = reg_get_value ('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Microsoft SDKs/Windows/v6.1/InstallationFolder');
98 if (!defined $value)
99 {
100 $value = reg_get_value ('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Microsoft SDKs/Windows/CurrentInstallFolder');
1#!/usr/bin/perl -w
2
3use File::Copy;
4
5my $output_format = 'u';
6
7sub reg_get_value($)
8{

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

93
94sub print_psdk_home()
95{
96 my ($value, $key);
97 $value = reg_get_value ('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Microsoft SDKs/Windows/v6.1/InstallationFolder');
98 if (!defined $value)
99 {
100 $value = reg_get_value ('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Microsoft SDKs/Windows/CurrentInstallFolder');
101 }
101 }
102 if (!defined $value)
103 {
104 $value = reg_get_value ('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/MicrosoftSDK/Directories/Install Dir');
102 if (!defined $value)
103 {
104 $value = reg_get_value ('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/MicrosoftSDK/Directories/Install Dir');
105 }
105 }
106 if (!defined $value)
107 {
108 $key = reg_find_key ('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/MicrosoftSDK/InstalledSDKs/*/Install Dir');
109 $value = reg_get_value ($key);
106 if (!defined $value)
107 {
108 $key = reg_find_key ('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/MicrosoftSDK/InstalledSDKs/*/Install Dir');
109 $value = reg_get_value ($key);
110 }
110 }
111 if (!defined $value)
112 {
113 my $dir = cygpath (find_msvc()->{'product_dir'}, 'w', $output_format);
114 $value = `/bin/find "$dir" -iname platformsdk | head -n 1`;
115 }
116
117 defined $value || die "psdk not found";
118

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

247 reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/.NETFramework/sdkInstallRootv1.1") ||
248 reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/.NETFramework/sdkInstallRootv2.0");
249 print cygpath ($dir, 'w', $output_format);
250}
251
252sub print_jdk_dir()
253{
254 my $dir =
111 if (!defined $value)
112 {
113 my $dir = cygpath (find_msvc()->{'product_dir'}, 'w', $output_format);
114 $value = `/bin/find "$dir" -iname platformsdk | head -n 1`;
115 }
116
117 defined $value || die "psdk not found";
118

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

247 reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/.NETFramework/sdkInstallRootv1.1") ||
248 reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/.NETFramework/sdkInstallRootv2.0");
249 print cygpath ($dir, 'w', $output_format);
250}
251
252sub print_jdk_dir()
253{
254 my $dir =
255 reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/JavaSoft/Java\ Development\ Kit/1.7/JavaHome") ||
256 reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/JavaSoft/Java\ Development\ Kit/1.6/JavaHome") ||
255 reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/JavaSoft/Java\ Development\ Kit/1.5/JavaHome") ||
256 reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/JavaSoft/Java\ Development\ Kit/1.4/JavaHome") ||
257 reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/JavaSoft/Java\ Development\ Kit/1.3/JavaHome");
258 print cygpath($dir, 'w', $output_format);
259}
260
261sub print_nsis_dir()
262{

--- 99 unchanged lines hidden --- 		257 reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/JavaSoft/Java\ Development\ Kit/1.5/JavaHome") ||
258 reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/JavaSoft/Java\ Development\ Kit/1.4/JavaHome") ||
259 reg_get_value ("HKEY_LOCAL_MACHINE/SOFTWARE/JavaSoft/Java\ Development\ Kit/1.3/JavaHome");
260 print cygpath($dir, 'w', $output_format);
261}
262
263sub print_nsis_dir()
264{

--- 99 unchanged lines hidden ---