xref: /aoo4110/main/odk/configure.pl (revision b1cdbd2c)
1#**************************************************************
2#
3#  Licensed to the Apache Software Foundation (ASF) under one
4#  or more contributor license agreements.  See the NOTICE file
5#  distributed with this work for additional information
6#  regarding copyright ownership.  The ASF licenses this file
7#  to you under the Apache License, Version 2.0 (the
8#  "License"); you may not use this file except in compliance
9#  with the License.  You may obtain a copy of the License at
10#
11#    http://www.apache.org/licenses/LICENSE-2.0
12#
13#  Unless required by applicable law or agreed to in writing,
14#  software distributed under the License is distributed on an
15#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16#  KIND, either express or implied.  See the License for the
17#  specific language governing permissions and limitations
18#  under the License.
19#
20#**************************************************************
21
22#
23# configure.pl - a perl script to set a minimal environment for the SDK.
24#
25# Copyright 2000, 2010 Oracle and/or its affiliates.
26#
27
28use IO::File;
29use File::Basename;
30
31$main::hostname= $ARGV[0];
32$main::sdkpath= $ARGV[1];
33$main::OO_SDK_NAME= $ARGV[2];
34
35$main::OO_MAJORVERSION=$main::OO_SDK_NAME;
36$main::OO_MINORVERSION=$main::OO_SDK_NAME;
37$main::OO_MAJORVERSION =~ s#[^\d]+(\d).(\d).+#$1#go;
38$main::OO_MINORVERSION =~ s#[^\d]+(\d).(\d).+#$2#go;
39
40$main::OO_SDK_CONFIG_HOME= "$ENV{HOME}/$main::OO_SDK_NAME";
41
42$main::operatingSystem = `$main::sdkpath/config.guess | cut -d"-" -f3,4`;
43chomp ($main::operatingSystem);
44
45$main::OO_SDK_HOME = $main::sdkpath;
46$main::OO_SDK_HOME_SUGGESTION = $main::sdkpath;
47
48$main::OFFICE_HOME = "";
49
50#$main::OFFICE_BASE_HOME = substr($main::sdkpath, 0, rindex($main::sdkpath, "/sdk"));
51
52$main::OO_SDK_MAKE_HOME = "";
53$main::makeName = "make";
54if ( $main::operatingSystem =~ m/solaris/ ||
55	 $main::operatingSystem =~ m/freebsd/ )
56{
57    $main::makeName = "gmake";
58}
59$main::OO_SDK_MAKE_HOME_SUGGESTION = searchprog($main::makeName);
60$main::makeVersion = "3.79.1";
61$main::correctVersion = 0;
62
63$main::OO_SDK_ZIP_HOME = "";
64$main::OO_SDK_ZIP_HOME_SUGGESTION = searchprog("zip");
65$main::zipVersion = "2.3";
66
67$main::OO_SDK_CAT_HOME = "";
68$main::OO_SDK_CAT_HOME_SUGGESTION = searchprog("cat");
69# TODO cat version
70# $main::catVersion = "";
71
72$main::OO_SDK_SED_HOME = "";
73$main::OO_SDK_SED_HOME_SUGGESTION = searchprog("sed");
74# TODO sed version
75# $main::sedVersion = "";
76
77$main::OO_SDK_CPP_HOME = "";
78$main::cppName = "gcc";
79$main::cppVersion = "4.0.1";
80if ( $main::operatingSystem =~ m/solaris/ )
81{
82	$main::cppName = "CC";
83	$main::cppVersion = "5.2";
84}
85if ( $main::operatingSystem =~ m/darwin/ )
86{
87	$main::cppName = "clang";
88	$main::cppVersion = "4.2";
89}
90$main::OO_SDK_CC_55_OR_HIGHER = "";
91if ( $main::operatingSystem =~ m/darwin/ )
92{
93	$clangpath = `xcrun -f clang++`;
94	$main::OO_SDK_CPP_HOME_SUGGESTION = substr($clangpath, 0, rindex($clangpath, "/"));
95} else {
96	$main::OO_SDK_CPP_HOME_SUGGESTION = searchprog($main::cppName);
97}
98
99$main::OO_SDK_JAVA_HOME = "";
100$main::OO_SDK_JAVA_BIN_DIR = "bin";
101if ( $main::operatingSystem =~ m/darwin/ )
102{
103    $main::OO_SDK_JAVA_BIN_DIR="Commands";
104}
105$main::OO_SDK_JAVA_HOME_SUGGESTION = searchprog("javac");
106$main::javaVersion = "1.5.0_01";
107
108$main::OO_SDK_BOOST_HOME_SUGGESTION = "";
109$main::boostVersion = "1.48.0";
110$main::skipBoostDir = 0;
111
112$main::SDK_AUTO_DEPLOYMENT = "";
113$main::SDK_AUTO_DEPLOYMENT_SUGGESTION = "YES";
114
115$main::OO_SDK_OUTPUT_DIR_SUGGESTION = "$ENV{HOME}";
116$main::OO_SDK_OUTPUT_DIR = "";
117$main::skipOutputDir = 0;
118
119$main::return = 0;
120
121if ( $main::operatingSystem =~ m/darwin/ )
122{
123# used for a SDK as part of the office installation
124#    $main::OFFICE_HOME = `cd $main::sdkpath/../../.. && pwd`;
125#    chomp($main::OFFICE_HOME);
126#    print " Used Office = $main::OFFICE_HOME\n";
127    print " Used SDK = $main::OO_SDK_HOME\n\n";
128
129    $main::OFFICE_HOME_SUGGESTION = searchMacOffice();
130    while ( (! -d "$main::OFFICE_HOME" ) ||
131	    ((-d "$main::OFFICE_HOME") && (! -d "$main::OFFICE_HOME/Contents/MacOS")) )
132    {
133	print " Enter the Office installation directory [$main::OFFICE_HOME_SUGGESTION]: ";
134	$main::OFFICE_HOME = readStdIn();
135	chop($main::OFFICE_HOME);
136	if ( $main::OFFICE_HOME eq "" )
137	{
138	    $main::OFFICE_HOME = $main::OFFICE_HOME_SUGGESTION;
139	}
140
141	if ( ! -d "$main::OFFICE_HOME" )
142	{
143	    $main::OFFICE_HOME = "";
144	    print " Error: An office installation is required, please specify the path to a valid installation.\n";
145	}
146
147#	$main::OFFICE_BASE_HOME = "$main::OFFICE_HOME/Contents";
148    }
149} else
150{
151    $main::OFFICE_HOME_SUGGESTION = searchoffice();
152
153    if ( $main::OFFICE_HOME_SUGGESTION eq "" ) {
154	# prepare Office path
155	$main::OFFICE_HOME_SUGGESTION = searchprog("soffice");
156    }
157
158    if ( ! $main::OFFICE_HOME_SUGGESTION eq "" )
159    {
160	my $tmpOffice = readlink "$main::OFFICE_HOME_SUGGESTION/soffice";
161
162	if ( $tmpOffice eq "" )
163	{
164	    $tmpOffice = "$main::OFFICE_HOME_SUGGESTION/soffice";
165	}
166
167	my $offset = rindex($tmpOffice, "/program/soffice");
168	if ( $offset != -1 )
169	{
170	    $main::OFFICE_HOME_SUGGESTION = substr($tmpOffice, 0, $offset);
171	} else
172	{
173	    $offset = rindex($tmpOffice, "/soffice");
174	    if ( $offset != -1 )
175	    {
176		$main::OFFICE_HOME_SUGGESTION = substr($tmpOffice, 0, $offset);
177	    } else
178	    {
179		$main::OFFICE_HOME_SUGGESTION = "";
180	    }
181	}
182    }
183
184    while ( (! -d "$main::OFFICE_HOME" ) ||
185	    ((-d "$main::OFFICE_HOME") && (! -d "$main::OFFICE_HOME/program")) )
186    {
187	print " Enter the Office installation directory [$main::OFFICE_HOME_SUGGESTION]: ";
188	$main::OFFICE_HOME = readStdIn();
189	chop($main::OFFICE_HOME);
190	if ( $main::OFFICE_HOME eq "" )
191	{
192	    $main::OFFICE_HOME = $main::OFFICE_HOME_SUGGESTION;
193	}
194
195	if ( ! -d "$main::OFFICE_HOME" )
196	{
197	    $main::OFFICE_HOME = "";
198	    print " Error: An office installation is required, please specify the path to a valid installation.\n";
199	} else
200	{
201	    # special work for a network installation, no prgram directory but a link to the soffice binary
202	    if ( (! -d "$main::OFFICE_HOME/program") && (-e "$main::OFFICE_HOME/soffice") )
203	    {
204		my $soserver = `ls -l $OFFICE_HOME_SUGGESTION/soffice | sed -n 's/.* -> //p'`;
205		$soserver= substr($soserver, 0, rindex($soserver, "program") - 1);
206
207		if ( ! -d $soserver )
208		{
209		    $main::OFFICE_HOME = "";
210		    print " Error: An office installation is required, please specify the path to a valid installation.\n";
211		} else
212		{
213		    $main::OFFICE_HOME = $soserver;
214		}
215	    }
216	}
217    }
218}
219
220
221# prepare GNU make path
222while ( (!$main::correctVersion) &&
223		((! -d "$main::OO_SDK_MAKE_HOME" ) ||
224		 ((-d "$main::OO_SDK_MAKE_HOME") && (! -e "$main::OO_SDK_MAKE_HOME/$main::makeName"))) )
225{
226    print " Enter GNU make ($main::makeVersion or higher) tools directory [$main::OO_SDK_MAKE_HOME_SUGGESTION]: ";
227    $main::OO_SDK_MAKE_HOME = readStdIn();
228    chop($main::OO_SDK_MAKE_HOME);
229    if ( $main::OO_SDK_MAKE_HOME eq "" )
230    {
231		$main::OO_SDK_MAKE_HOME = $main::OO_SDK_MAKE_HOME_SUGGESTION;
232    }
233    if ( (! -d "$main::OO_SDK_MAKE_HOME") ||
234		 ((-d "$main::OO_SDK_MAKE_HOME") && (! -e "$main::OO_SDK_MAKE_HOME/$main::makeName")) )
235    {
236		$main::OO_SDK_MAKE_HOME = "";
237		print " Error: GNU make is required, please specify a GNU make tools directory.\n";
238    } else
239    {
240		#check version
241		my $testVersion = `$OO_SDK_MAKE_HOME/$main::makeName --version`;
242		if ( $testVersion eq "")
243		{
244			print " Set the environment variable OO_SDK_MAKE_HOME to your GNU build tools directory.\n";
245			print " GNU make version $main::makeVersion can be obtained at ftp://ftp.gnu.org/gnu/make/\n";
246		} else
247		{
248		    if ($testVersion =~ m#((\d+\.)+\d+)# )
249			{
250				$testVersion = $1;
251			}
252			$main::correctVersion = testVersion($main::makeVersion, $testVersion, "$main::OO_SDK_MAKE_HOME/$main::makeName", 1);
253			if ( !$main::correctVersion )
254			{
255				print " The '$main::makeName' command found at '$main::OO_SDK_MAKE_HOME' has a wrong version\n";
256				$main::OO_SDK_MAKE_HOME = "";
257			}
258		}
259	}
260}
261
262# prepare zip path
263$main::correctVersion = 0;
264while ( (!$main::correctVersion) &&
265		((! -d "$main::OO_SDK_ZIP_HOME" ) ||
266		 ((-d "$main::OO_SDK_ZIP_HOME") && (! -e "$main::OO_SDK_ZIP_HOME/zip"))) )
267{
268    print " Enter zip ($main::zipVersion or higher) tool directory [$main::OO_SDK_ZIP_HOME_SUGGESTION]: ";
269    $main::OO_SDK_ZIP_HOME = readStdIn();
270    chop($main::OO_SDK_ZIP_HOME);
271    if ( $main::OO_SDK_ZIP_HOME eq "" )
272    {
273		$main::OO_SDK_ZIP_HOME = $main::OO_SDK_ZIP_HOME_SUGGESTION;
274    }
275    if ( (! -d "$main::OO_SDK_ZIP_HOME") ||
276		 ((-d "$main::OO_SDK_ZIP_HOME") && (! -e "$main::OO_SDK_ZIP_HOME/zip")) )
277    {
278		$main::OO_SDK_ZIP_HOME = "";
279		print " Error: zip tool is required, please specify a zip tool directory.\n";
280    } else
281    {
282		#check version
283		my $testVersion = `$OO_SDK_ZIP_HOME/zip -h 2>&1 | egrep Zip | head -n 1`;
284		$testVersion =~ s#Zip ([\d.]+) .*#$1#go;
285		if ( $testVersion eq "")
286		{
287			print " Set the environment variable OO_SDK_ZIP_HOME to your zip tool directory.\n";
288			print " zip version $main::zipVersion can be obtained at ftp://www.info-zip.org/\n";
289		} else
290		{
291		    if ($testVersion =~ m#((\d+\.)+\d+)# )
292			{
293				$testVersion = $1;
294			}
295			$main::correctVersion = testVersion($main::zipVersion, $testVersion, "$main::OO_SDK_MAKE_HOME/zip", 1);
296			if ( !$main::correctVersion )
297			{
298				print " The 'zip' command found at '$main::OO_SDK_ZIP_HOME' has a wrong version\n";
299				$main::OO_SDK_ZIP_HOME = "";
300			}
301		}
302	}
303}
304
305# prepare cat path
306$main::correctVersion = 0;
307while ( (!$main::correctVersion) &&
308        ((! -d "$main::OO_SDK_CAT_HOME" ) ||
309         ((-d "$main::OO_SDK_CAT_HOME") && (! -e "$main::OO_SDK_CAT_HOME/cat"))) )
310{
311    print " Enter cat tool directory [$main::OO_SDK_CAT_HOME_SUGGESTION]: ";
312    $main::OO_SDK_CAT_HOME = readStdIn();
313    chop($main::OO_SDK_CAT_HOME);
314    if ( $main::OO_SDK_CAT_HOME eq "" )
315    {
316        $main::OO_SDK_CAT_HOME = $main::OO_SDK_CAT_HOME_SUGGESTION;
317    }
318    if ( (! -d "$main::OO_SDK_CAT_HOME") ||
319         ((-d "$main::OO_SDK_CAT_HOME") && (! -e "$main::OO_SDK_CAT_HOME/cat")) )
320    {
321        $main::OO_SDK_CAT_HOME = "";
322        print " Error: cat tool is required, please specify a cat tool directory.\n";
323    }
324    # else ...
325    # TODO check version
326    # NOTE: only Linux cat understands --version
327}
328
329# prepare sed path
330$main::correctVersion = 0;
331while ( (!$main::correctVersion) &&
332        ((! -d "$main::OO_SDK_SED_HOME" ) ||
333         ((-d "$main::OO_SDK_SED_HOME") && (! -e "$main::OO_SDK_SED_HOME/sed"))) )
334{
335    print " Enter sed tool directory [$main::OO_SDK_SED_HOME_SUGGESTION]: ";
336    $main::OO_SDK_SED_HOME = readStdIn();
337    chop($main::OO_SDK_SED_HOME);
338    if ( $main::OO_SDK_SED_HOME eq "" )
339    {
340        $main::OO_SDK_SED_HOME = $main::OO_SDK_SED_HOME_SUGGESTION;
341    }
342    if ( (! -d "$main::OO_SDK_SED_HOME") ||
343         ((-d "$main::OO_SDK_SED_HOME") && (! -e "$main::OO_SDK_SED_HOME/sed")) )
344    {
345        $main::OO_SDK_SED_HOME = "";
346        print " Error: sed tool is required, please specify a sed tool directory.\n";
347    }
348    # else ...
349    # TODO check version
350    # NOTE: only Linux sed understands --version
351}
352
353# prepare C++ compiler path
354$main::correctVersion = 0;
355while ( (!$main::correctVersion) &&
356		((! -d "$main::OO_SDK_CPP_HOME" ) ||
357		 ((-d "$main::OO_SDK_CPP_HOME") && (! -e "$main::OO_SDK_CPP_HOME/$main::cpp"))) )
358{
359	print " C++ compilers where for example a language binding exist:\n";
360	print "  - Solaris, Sun WorkShop 6 update 1 C++ 5.2 2000/09/11 or higher\n";
361	print "  - Linux, GNU C++ compiler, gcc version 4.0.1 or higher\n";
362	print "  - MacOS 64bit, Apple LLVM version 4.2 (clang-425.0.28) or higher\n";
363	print "    on MacOS auto detected using xcrun -f clang'\n";
364
365	if ( $main::operatingSystem =~ m/darwin/ )
366	{
367		# xcrun is used to find the correct clang compiler, just print the result as information
368		$main::OO_SDK_CPP_HOME = $main::OO_SDK_CPP_HOME_SUGGESTION;
369		print " Used clang compiler: $main::OO_SDK_CPP_HOME\n";
370	} else
371	{
372		print " Enter the directory of the C++ compiler, the directory\n";
373		print " where the compiler is located (optional) [$main::OO_SDK_CPP_HOME_SUGGESTION]: ";
374
375		$main::OO_SDK_CPP_HOME = readStdIn();
376		chop($main::OO_SDK_CPP_HOME);
377		if ( $main::OO_SDK_CPP_HOME eq "" )
378		{
379			$main::OO_SDK_CPP_HOME = $main::OO_SDK_CPP_HOME_SUGGESTION;
380		}
381	}
382
383	if ( (!$main::operatingSystem =~ m/darwin/) && (! $main::OO_SDK_CPP_HOME eq "") )
384	{
385		if ( (! -d "$main::OO_SDK_CPP_HOME") ||
386			 ((-d "$main::OO_SDK_CPP_HOME") && (! -e "$main::OO_SDK_CPP_HOME/$main::cppName")) )
387		{
388			print " Error: Could not find directory '$main::OO_SDK_CPP_HOME'.\n";
389			if ( skipChoice("C++ compiler") == 1 )
390			{
391				$main::correctVersion = 1;
392			}
393			$main::OO_SDK_CPP_HOME = "";
394		} else
395		{
396			#check version
397			if ( $main::cppName eq "gcc" )
398			{
399				my $testVersion = `$OO_SDK_CPP_HOME/$main::cppName -dumpversion`;
400				if ( $testVersion eq "")
401				{
402					print " The '$main::cppName' command found at $main::OO_SDK_CPP_HOME/$main::cppName is not a ";
403					print " GNU compiler.\nSet the environment variable OO_SDK_CPP_HOME to your GNU build tools ";
404					print " directory.\nA GNU compiler version $main::cppVersion can be obtained at ";
405					print " ftp://ftp.gnu.org/gnu/gcc/\n";
406				} else
407				{
408					$main::correctVersion = testVersion($main::cppVersion, $testVersion, "$main::OO_SDK_CPP_HOME/$main::cppName", 1);
409					if ( !$main::correctVersion )
410					{
411						print " The '$main::cppName' command found at '$main::OO_SDK_CPP_HOME' has a wrong version\n";
412						if ( skipChoice("C++ compiler") == 1 )
413						{
414							$main::correctVersion = 1;
415						}
416
417						$main::OO_SDK_CPP_HOME = "";
418					}
419				}
420			} else
421			{
422				# for Solaris we have to check the version too
423				open(FILE, "$OO_SDK_CPP_HOME/$main::cppName -V 2>&1 |");
424				my @lines = <FILE>;
425				my $testVersion = $lines[0];
426				if ( $testVersion eq "")
427				{
428					print " The '$main::cppName' command found at $main::OO_SDK_CPP_HOME/$main::cppName is not a ";
429					print " Solaris C++ compiler.\nSet the environment variable OO_SDK_CPP_HOME to your Solaris C++ compiler directory.\n";
430				} else
431				{
432				    if ($testVersion =~ m#((\d+\.)+\d+)# )
433					{
434						$testVersion = $1;
435					}
436					$main::correctVersion = testVersion($main::cppVersion, $testVersion, "$main::OO_SDK_CPP_HOME/$main::cppName", 1);
437					if ( !$main::correctVersion )
438					{
439						print " The '$main::cppName' command found at '$main::OO_SDK_CPP_HOME' has a wrong version\n";
440						if ( skipChoice("C++ compiler") == 1 )
441						{
442							$main::correctVersion = 1;
443						}
444
445						$main::OO_SDK_CPP_HOME = "";
446					} else {
447						$main::correctVersion = testVersion("5.5", $testVersion, "$main::OO_SDK_CPP_HOME/$main::cppName", 2);
448						if ( $main::correctVersion ) {
449							$main::OO_SDK_CC_55_OR_HIGHER = $testVersion;
450						}
451					}
452				}
453			}
454		}
455	} else
456	{
457		# the C++ compiler is optional
458		$main::correctVersion = 1;
459	}
460}
461
462
463# prepare Java path
464$main::correctVersion = 0;
465
466# prepare Java suggestion (cut bin or Commands directory to be in the root of the Java SDK)
467$main::offset = rindex($main::OO_SDK_JAVA_HOME_SUGGESTION, "/$main::OO_SDK_JAVA_BIN_DIR");
468if ( $main::offset != -1 )
469{
470	$main::OO_SDK_JAVA_HOME_SUGGESTION = substr($main::OO_SDK_JAVA_HOME_SUGGESTION, 0, $main::offset);
471}
472
473while ( (!$main::correctVersion) &&
474		((! -d "$main::OO_SDK_JAVA_HOME" ) ||
475		 ((-d "$main::OO_SDK_JAVA_HOME") && (! -e "$main::OO_SDK_JAVA_HOME/$main::OO_SDK_JAVA_BIN_DIR/javac"))) )
476{
477	print " Enter Java SDK (1.5, recommendation is 1.6 or higher) installation directory  (optional) [$main::OO_SDK_JAVA_HOME_SUGGESTION]: ";
478	$main::OO_SDK_JAVA_HOME = readStdIn();
479	chop($main::OO_SDK_JAVA_HOME);
480	if ( $main::OO_SDK_JAVA_HOME eq "" )
481	{
482		$main::OO_SDK_JAVA_HOME = $main::OO_SDK_JAVA_HOME_SUGGESTION;
483	}
484	if ( ! $main::OO_SDK_JAVA_HOME eq "" )
485	{
486		if ( (! -d "$main::OO_SDK_JAVA_HOME") ||
487			 ((-d "$main::OO_SDK_JAVA_HOME") && (! -e "$main::OO_SDK_JAVA_HOME/$main::OO_SDK_JAVA_BIN_DIR/javac")) )
488		{
489			print " Error: Could not find directory '$main::OO_SDK_JAVA_HOME' or '$main::OO_SDK_JAVA_HOME/$main::OO_SDK_JAVA_BIN_DIR/javac'.\n";
490			if ( skipChoice("JAVA SDK") == 1 )
491			{
492				$main::correctVersion = 1;
493			}
494			$main::OO_SDK_JAVA_HOME = "";
495		} else
496		{
497			#check version
498			my $testVersion = `$main::OO_SDK_JAVA_HOME/$main::OO_SDK_JAVA_BIN_DIR/java -version 2>&1 | egrep "java version" | head -n 1 | sed -e 's#.*version "##' | sed -e 's#".*##'`;
499			$testVersion =~ s#([^\n]+)\n#$1#go;
500
501			$main::correctVersion = testVersion($main::javaVersion, $testVersion, "$main::OO_SDK_JAVA_HOME/$main::OO_SDK_JAVA_BIN_DIR/java", 1);
502			if ( !$main::correctVersion )
503			{
504				if ( skipChoice("JAVA SDK") == 1 )
505				{
506					$main::correctVersion = 1;
507				}
508				$main::OO_SDK_JAVA_HOME = "";
509			}
510		}
511	}else
512	{
513		# the Java SDK is optional
514		$main::correctVersion = 1;
515	}
516}
517
518# prepare boost directory (optional)
519while ( (!$main::skipBoostDir) &&
520		((! -d "$main::OO_SDK_BOOST_HOME" ) ||
521         ((-d "$main::OO_SDK_BOOST_HOME") && (! -e "$main::OO_SDK_BOOST_HOME/boost/tr1/unordered_map.hpp"))) )
522{
523
524    print " Enter boost directory [$main::OO_SDK_BOOST_HOME_SUGGESTION]: ";
525    $main::OO_SDK_BOOST_HOME = readStdIn();
526    chop($main::OO_SDK_BOOST_HOME);
527    if ( $main::OO_SDK_BOOST_HOME eq "" )
528    {
529        $main::OO_SDK_BOOST_HOME = $main::OO_SDK_BOOST_HOME_SUGGESTION;
530    }
531    if ( (! -d "$main::OO_SDK_BOOST_HOME") ||
532         ((-d "$main::OO_SDK_BOOST_HOME") && (! -e "$main::OO_SDK_BOOST_HOME/boost/tr1/unordered_map.hpp")) )
533    {
534        print " Error: boost couldn't be find or verified, please specify a boost directory.\n";
535		if ( skipChoice("optional output directory") == 1 )
536		{
537			$main::skipBoostDir = 1;
538		}
539        $main::OO_SDK_BOOST_HOME = "";
540    } else
541	{
542		# the boost directory is optional
543		$main::skipBoostDir = 1;
544	}
545}
546
547# prepare output directory (optional)
548while ( (!$main::skipOutputDir) &&
549		(! -d "$main::OO_SDK_OUTPUT_DIR") )
550{
551	print " Default output directory is in your HOME directory.\n";
552	print " Enter an existent directory if you prefer a different output directory (optional) [$main::OO_SDK_OUTPUT_DIR_SUGGESTION]: ";
553
554	$main::OO_SDK_OUTPUT_DIR = readStdIn();
555
556	chop($main::OO_SDK_OUTPUT_DIR);
557	if ( $main::OO_SDK_OUTPUT_DIR eq "" )
558	{
559		$main::OO_SDK_OUTPUT_DIR = $main::OO_SDK_OUTPUT_DIR_SUGGESTION;
560	}
561	if ( ! $main::OO_SDK_OUTPUT_DIR eq "" )
562	{
563		if ( ! -d "$main::OO_SDK_OUTPUT_DIR" )
564		{
565			print " Error: Could not find directory '$main::OO_SDK_OUTPUT_DIR'.\n";
566			if ( skipChoice("optional output directory") == 1 )
567			{
568				$main::skipOutputDir = 1;
569			}
570			$main::OO_SDK_OUTPUT_DIR = "";
571		}
572	} else
573	{
574		# the output directory is optional
575		$main::skipOutputDir = 1;
576	}
577}
578
579# prepare auto deployment
580while ( $main::SDK_AUTO_DEPLOYMENT eq "" ||
581	((! $main::SDK_AUTO_DEPLOYMENT eq "YES") &&
582	 (! $main::SDK_AUTO_DEPLOYMENT eq "NO")) )
583{
584    print " Automatic deployment of UNO components (YES/NO) [$main::SDK_AUTO_DEPLOYMENT_SUGGESTION]: ";
585    $main::SDK_AUTO_DEPLOYMENT = uc <STDIN>;
586    chop($main::SDK_AUTO_DEPLOYMENT);
587    if ( $main::SDK_AUTO_DEPLOYMENT eq "" )
588    {
589	$main::SDK_AUTO_DEPLOYMENT = "YES";
590    }
591}
592
593prepareScriptFile("setsdkenv_unix.sh.in", "setsdkenv_unix.sh");
594chmod 0644, "$main::OO_SDK_CONFIG_HOME/$main::hostname/setsdkenv_unix.sh";
595
596print "\n";
597print " ************************************************************************\n";
598print " * ... your SDK environment has been prepared.\n";
599print " * For each time you want to use this configured SDK environment, you\n";
600print " * have to run the \"setsdkenv_unix\" script file!\n";
601print " * Alternatively can you source one of the scripts\n";
602print " *   \"$main::OO_SDK_CONFIG_HOME/$main::hostname/setsdkenv_unix.sh\"\n";
603print " * to get an environment without starting a new shell.\n";
604print " ************************************************************************\n\n";
605
606exit $return;
607
608sub skipChoice
609{
610	my $msg = shift;
611	my $skip = "";
612	while ( !( $skip eq "yes" || $skip eq "no") )
613	{
614		print " Do you want to skip the choice of the '$msg' (YES/NO): [YES] ";
615		$skip = lc <STDIN>;
616		chop($skip);
617		if ( $skip eq "" ) { $skip = "yes"; } # default
618		if ( $skip eq "yes" )
619		{
620			return 1;
621		}
622	}
623	return 0;
624}
625
626sub resolveLink
627{
628    my $base= shift;
629    my $link= shift;
630
631    my $resolvedpath = "$base/$link";
632    my $linktarget =  readlink "$resolvedpath";
633    my $resolvedlink = "";
634
635    while ( $linktarget ne "") {
636
637	if ( $linktarget =~ m/^\/.*/ )
638	{
639	    $resolvedpath = "$linktarget";
640	} else {
641	    $resolvedpath = `cd $base/$linktarget; pwd`;
642	    chop $resolvedpath;
643	}
644	$base = dirname("$resolvedpath");
645
646	$linktarget = readlink "$resolvedpath";
647    }
648
649    $resolvedlink = `cd $resolvedpath; pwd`;
650    chop $resolvedlink;
651    return $resolvedlink;
652}
653
654sub searchprog
655{
656	my $_search= shift;
657	my $tmpPath = `echo "\$PATH"`;
658	my @pathList = split(":" , $tmpPath);
659	my $progDir = "";
660
661    if ( $_search eq "javac" )
662    {
663		if ( $main::operatingSystem =~ m/darwin/ ) {
664			$progDir = resolveLink("/System/Library/Frameworks/JavaVM.Framework/Versions", "CurrentJDK");
665
666			if ( -e "$progDir/$main::OO_SDK_JAVA_BIN_DIR/javac" )
667			{
668				return "$progDir/$main::OO_SDK_JAVA_BIN_DIR";
669			}
670		}
671
672		if ( $main::operatingSystem =~ m/solaris/ ) {
673			$progDir = resolveLink("/usr/jdk", "latest");
674			if ( -e "$progDir/$main::OO_SDK_JAVA_BIN_DIR/javac" )
675			{
676				return "$progDir/$main::OO_SDK_JAVA_BIN_DIR";
677			}
678		}
679    }
680
681    if ( $_search eq "gmake" && $main::operatingSystem =~ m/solaris/ ) {
682		if ( -e "/usr/sfw/bin/gmake" )
683		{
684			return "/usr/sfw/bin";
685		}
686    }
687
688	foreach $i (@pathList)
689	{
690	    chomp ($i);
691
692		if ( -e "$i/$_search" )
693		{
694
695			if ( index($i, "/") == 0 )
696			{
697				# # absolute path; leave unchanged
698				$progDir = $i;
699			} else
700			{
701				$progDir = `cd "$i"; pwd`;
702			}
703			return $progDir
704		}
705	}
706	return $progDir
707}
708
709sub searchMacOffice
710{
711	if (-d "/Applications/OpenOffice.app" ) {
712		return "/Applications/OpenOffice.app"
713	}
714	return "";
715}
716
717sub searchoffice
718{
719	my $offset = rindex($main::sdkpath, "/openoffice");
720	my $tmpOffice = substr($main::sdkpath, 0, $offset);
721	my $officepath = "$tmpOffice/openoffice$main::OO_MAJORVERSION";
722
723#	if ( $main::OO_MINORVERSION > 0) {
724#		$officepath = "$officepath$main::OO_MINORVERSION";
725#	}
726
727	# search corresponding office for this SDK
728	if (-d $officepath && -e "$officepath/program/soffice") {
729		return $officepath;
730	}
731	return "";
732}
733
734
735
736sub testVersion
737{
738	my $tmpMustBeVersion = shift;
739	my $tmpTestVersion = shift;
740	my $toolName = shift;
741	# 1=check + message 2=check only
742	my $checkOnly = shift;
743	my @mustBeVersion = split(/\.|_|-/,$tmpMustBeVersion);
744	my @testVersion = split(/\.|_|-/,$tmpTestVersion);
745	my $length = $#mustBeVersion;
746
747	if ($#testVersion < $#mustBeVersion) {
748	    $length = $#testVersion;
749	}
750
751	for ($i=0; $i <= $length; $i++ )
752	{
753		if ( @testVersion[$i] > @mustBeVersion[$i] )
754		{
755			return 1; # 1 indicates a correct version
756		}
757
758		if ( @testVersion[$i] < @mustBeVersion[$i] )
759		{
760			if ( $#checkOnly == 1 ) {
761				print " The command '$toolName' has the version $tmpTestVersion.\n";
762				print " The SDK requires at least the version $tmpMustBeVersion.\n";
763			}
764			return 0;
765		}
766	}
767
768	return 1; # 1 indicates a correct version
769}
770
771sub readStdIn
772{
773	my $tmpstdin = <STDIN>;
774	if ( index($tmpstdin, "\$") != -1)
775	{
776	    return `echo $tmpstdin`;
777	}
778
779	return $tmpstdin;
780}
781
782sub prepareScriptFile()
783{
784	my $inputFile = shift;
785	my $outputFile = shift;
786
787	if ( ! -d "$main::OO_SDK_CONFIG_HOME/$main::hostname" )
788	{
789		system("mkdir -p $main::OO_SDK_CONFIG_HOME/$main::hostname");
790	}
791
792	open ( FILEIN, "$main::sdkpath/$inputFile" ) || die "\nERROR: could not open '$main::sdkpath/$inputFile' for reading";
793	open ( FILEOUT, ">$main::OO_SDK_CONFIG_HOME/$main::hostname/$outputFile" ) || die "\nERROR: could not open '$main::OO_SDK_CONFIG_HOME/$main::hostname/$outputFile' for writing";
794
795	while ( <FILEIN> )
796	{
797		$_ =~ s#\@OO_SDK_NAME\@#$main::OO_SDK_NAME#go;
798		$_ =~ s#\@OO_SDK_HOME\@#$main::OO_SDK_HOME#go;
799		$_ =~ s#\@OFFICE_HOME\@#$main::OFFICE_HOME#go;
800		$_ =~ s#\@OO_SDK_MAKE_HOME\@#$main::OO_SDK_MAKE_HOME#go;
801		$_ =~ s#\@OO_SDK_ZIP_HOME\@#$main::OO_SDK_ZIP_HOME#go;
802		$_ =~ s#\@OO_SDK_CAT_HOME\@#$main::OO_SDK_CAT_HOME#go;
803		$_ =~ s#\@OO_SDK_SED_HOME\@#$main::OO_SDK_SED_HOME#go;
804		$_ =~ s#\@OO_SDK_CPP_HOME\@#$main::OO_SDK_CPP_HOME#go;
805		$_ =~ s#\@OO_SDK_CC_55_OR_HIGHER\@#$main::OO_SDK_CC_55_OR_HIGHER#go;
806		$_ =~ s#\@OO_SDK_JAVA_HOME\@#$main::OO_SDK_JAVA_HOME#go;
807		$_ =~ s#\@OO_SDK_BOOST_HOME\@#$main::OO_SDK_BOOST_HOME#go;
808		$_ =~ s#\@SDK_AUTO_DEPLOYMENT\@#$main::SDK_AUTO_DEPLOYMENT#go;
809		$_ =~ s#\@OO_SDK_OUTPUT_DIR\@#$main::OO_SDK_OUTPUT_DIR#go;
810
811		print FILEOUT $_;
812	}
813
814	close FILEIN;
815	close FILEOUT;
816}
817