#!@PERL@ -w # -*- Mode: perl; tab-width: 4; indent-tabs-mode: nil; -*- # # Program: set_soenv.in # Author: Willem van Dorp, Ross Nicholson, Oisin Boydell - Sun Microsystems, Ireland. # #--------------------------------------------------------------------------- #--------------------------------------------------------------------------- # Description: # set_soenv generates a file that contains all necessary # environment variables for the build proces of OpenOffice # on Linux, NetBSD, Solaris, Windows, Mac OS X and iOS. # # Program steps. # # I. Checking the command-line arguments. # IIa. Declaring variables for the system commands, etc. # IIb. Declaring the environment variables. # III. Initialising the variables for the system commands, etc. # IV. Print out some important messages etc. # V. Initialising the environment variables. # VI. Open the output file. # VII. Writing the data to the output file. # VIII. Closing output file. # #--------------------------------------------------------------------------- # use strict; # pragma use File::Basename; # #-------------------------------------------------------- # IIa. Declaring variables for the system commands, etc. #-------------------------------------------------------- # my ( $outfile, $newline, $comment, $ds, $ps, $wps, $cur_dir, $par_dir, $I, $L, $tmp, $MINGW, $platform, $empty, $warnfile, $Warning, $result, $unsetvars, $exportvars); # #------------------------------------------------- # IIb. Declaring environment values (constants). #------------------------------------------------- # # Platform independent constant values. my ( $SOLAR_JAVA, $CC, $CXX); # # Platform dependent constant values. my ( $ARCH, $OSVERSION, $OUTPATH, $INPATH, $DYNAMIC_CRT, $use_shl_versions ); # #------------------------------------------- # IIc. Declaring the environment variables. #------------------------------------------- # # Help variables. my ( $USR, $ETC, $BIN, $LIB, $LIB64, $INC, $INCLUDE, $DEV, $OPT, $LOCAL, $SOLENV, $SOLVER, $CONFIG, $DEFIMGS, $USR_BIN, $USR_LIB, $USR_LOCAL, $USR_CCS, $JAVA_BIN, $JAVA_LIB, $JAVA_INCLUDE, $SOLARENVINC, $USR_DT, $USR_OPENWIN, $XLIB, $XINC, $CYGWIN_PATH, $language, @languages, $ASM_PATH, $PERL_PATH, $CL_X64 ); # Environment variables. my ( $oldPATH, $SRC_ROOT, $JAVA_HOME, $JDK, $JAVAFLAGS, $OOO_SHELL, $L10N_MODULE, $WITH_POOR_HELP_LOCALIZATIONS, $UPD, $WORK_STAMP, $gb_REPOS, $BUILD_TYPE, $SOLARSRC, $SOLARVER, $SOLARVERSION, $WORKDIR, $OUTDIR, $SOLARENV, $SOLARDEFIMG, $DMAKEROOT, $CLASSPATH, $XCLASSPATH, $COMPATH, $MSPDB_PATH, $MIDL_PATH, $CSC_PATH, $SHOWINCLUDES_PREFIX, $PATH, $SOLAREXTRAINC, $SOLAREXTRALIB, $SOLARLIB, $SOLARINC, $FRAMEWORKSHOME, $COMEX, $PERL, $COMP_ENV, $ILIB, $JAVAHOME, $WINDOWS_SDK_HOME, $DIRECTXSDK_LIB, $DOTNET_FRAMEWORK_HOME, $USE_DIRECTX5, $ATL_LIB, $ATL_INCLUDE, $MFC_LIB, $MFC_INCLUDE, $TMPDIR, $COMMON_BUILD_TOOLS, $WIN_GREP, $WIN_FIND, $WIN_LS, $WIN_GNUCOPY, $WIN_TOUCH, $PROEXT, $TARFILE_LOCATION, $GNUMAKE, $PYTHON, $SYSTEM_PYTHON, $SYSTEM_MOZILLA, $EPM_FLAGS, $MACOSX_SDK_PATH, $SYSBASE); # #------------------------------------------- # IId. Declaring the aliases. #------------------------------------------- # my ( $dmake, $build, $mkout, $deliver, $zipdep ); # $INPATH="@INPATH@"; $OUTPATH="@OUTPATH@"; #------------------------------------------------------------- # IIIa. Initialising constants. #------------------------------------------------------------- # # $platform is needed for PathFormat() # $platform = '@host@'; $UPD = '@UPD@'; # the project's UPD $newline = "\n"; # Perl newline character $ds = "/"; # directory separator $ps = ":"; # path separator $wps = ":"; # path separator, will be set to ';' for windows later. $cur_dir = "."; # current directory $par_dir = ".."; # parrent directory $I = " -I"; # include search path $L = " -L"; # library search path $empty = ""; # used as argument $warnfile = "warn"; # logfile configure warnings. $Warning = ""; # container for warning messages $SYSTEM_PYTHON = '@SYSTEM_PYTHON@'; if ($SYSTEM_PYTHON eq "NO") { $PYTHON = "python"; } $SYSTEM_MOZILLA = '@SYSTEM_MOZILLA@'; $JDK = '@JDK@'; $JAVAFLAGS = '@JAVAFLAGS@'; $MINGW = '@WITH_MINGW@'; # use MinGW for Windows build $CC = '@CC@'; # C compiler $CXX = '@CXX@'; # C++ compiler $PROEXT = "@PROEXT@"; $EPM_FLAGS = ""; $CL_X64 = '@CL_X64@'; $GNUMAKE = "@GNUMAKE@"; # JAVA_HOME as argument from autoconf. $JAVA_HOME = PathFormat('@JAVA_HOME@') ; if ( $platform =~ m/cygwin/ ) { $JAVA_HOME =~ s/[\s\/]+$//; # remove trailing \n or \/ if there is any. } # #-------------------------------------------------------------------- # IV. Initialise the warning container and print a note to the user. #-------------------------------------------------------------------- # # Add the configure (pre-requisite) warnings to the warning container # , $Warning. AddWarning( "configure", "" ); # print ("Setting up the environment for building LibreOffice $newline"); # #-------------------------------------------------- # V. Setting the environment variables/values. #-------------------------------------------------- # # # B. Gathering information from the system. # # 1. Path $oldPATH = $ENV{"PATH"}; chomp( $oldPATH ); # cut off new line # # C. Setting the constant values. # # Setting platform independent constant values. # NB: Language options now set at 'ToFile' stage. $SOLAR_JAVA = "@SOLAR_JAVA@"; $comment = "#"; # UNIX script comment character $TARFILE_LOCATION = "@TARFILE_LOCATION@"; # where to find tarballs with external sources # Setting platform dependent constant values. if ( $platform =~ m/solaris/ ) { $COMPATH = '@COMPATH@'; } elsif ( $platform =~ m/netbsd/ ) { $COMPATH = '@COMPATH@'; } elsif ( $platform =~ m/kfreebsd/ ) { # General GNU/kFreeBSD settings: $COMPATH = '@COMPATH@'; } elsif ( $platform =~ m/freebsd/ ) { $COMPATH = '@COMPATH@'; $OSVERSION = '@OSVERSION@'; } elsif ( $platform =~ m/openbsd/ ) { $COMPATH = '@COMPATH@'; $OSVERSION = '@OSVERSION@'; } elsif ( $platform =~ m/linux/ ) { # General Linux settings: $COMPATH = '@COMPATH@'; #Set platform specific values: if ($platform =~ m/^i[3456]86/) { } elsif ($platform =~ m/^x86_64/) { } elsif ($platform =~ m/^ia64/) { } elsif ($platform =~ m/^sparc/) { } elsif ($platform =~ m/^powerpc/) { } elsif ($platform =~ m/^s390/) { } elsif ($platform =~ m/^m68k/) { } elsif ($platform =~ m/^hppa/) { $EPM_FLAGS = "-a hppa"; } elsif ($platform =~ m/^alpha/) { } elsif ($platform =~ m/^arm.*?l-/) { $EPM_FLAGS = "-a arm"; } elsif ($platform =~ m/^arm.*-androideabi/) { $EPM_FLAGS = "-a arm"; } elsif ($platform =~ m/^mips/) { print "Setting Linux MIPS specific values... "; if ('@SIZEOF_LONG@' eq '8') { if ('@WORDS_BIGENDIAN@' ne 'yes') { $EPM_FLAGS = "-a mips64el"; } } else { if ('@WORDS_BIGENDIAN@' ne 'yes') { $EPM_FLAGS = "-a mipsel"; } } } } elsif ( $platform =~ m/cygwin|mingw32/ ) { $MSPDB_PATH = PathFormat('@MSPDB_PATH@'); $MIDL_PATH = PathFormat('@MIDL_PATH@'); $CSC_PATH = PathFormat('@CSC_PATH@'); $SHOWINCLUDES_PREFIX = '@SHOWINCLUDES_PREFIX@'; $WINDOWS_SDK_HOME = PathFormat('@WINDOWS_SDK_HOME@'); $DIRECTXSDK_LIB = PathFormat('@DIRECTXSDK_LIB@'); $USE_DIRECTX5 = ""; $DOTNET_FRAMEWORK_HOME = PathFormat('@DOTNET_FRAMEWORK_HOME@'); $DYNAMIC_CRT = "TRUE"; $use_shl_versions = "TRUE"; $wps = ';' if '@build_os@' eq 'cygwin'; # Windows style path seperator if ( $MINGW eq "yes" ) { print "Setting Windows (MinGW cross-compilation) specific values... "; die 'For building natively on Windows we support only MSVC' if ('@build_os@' eq 'cygwin'); $COMPATH = PathFormat('@COMPATH@/bin'); $COMPATH =~ s/\/bin$//i; } else # The MSVC section starts here { print "Setting Windows (MSVC) specific values... "; $COMPATH = PathFormat('@COMPATH@'); $COMEX = '@COMEX@'; if ( "@DISABLE_ACTIVEX@" ) { $ATL_LIB = $WINDOWS_SDK_HOME.$ds."lib"; # Doesn't exist for VSE $ATL_INCLUDE = $WINDOWS_SDK_HOME.$ds."include".$ds."atl"; $MFC_LIB = $WINDOWS_SDK_HOME.$ds."lib"; # Doesn't exist for VSE $MFC_INCLUDE = $WINDOWS_SDK_HOME.$ds."include".$ds."mfc"; } else { $ATL_LIB = $COMPATH.$ds."atlmfc".$ds."lib"; $ATL_INCLUDE = $COMPATH.$ds."atlmfc".$ds."include"; $MFC_LIB = $COMPATH.$ds."atlmfc".$ds."lib"; $MFC_INCLUDE = $WINDOWS_SDK_HOME.$ds."include".$ds."mfc"; } if ($CL_X64) { $ATL_LIB .= $ds."amd64"; $MFC_LIB .= $ds."amd64"; } } } elsif ( $platform =~ m/darwin/ ) { $COMPATH = '@COMPATH@'; if ($platform =~ m/^arm/) { print "Setting values for iOS... "; } elsif ($platform =~ m/^powerpc/) { print "Setting values for Mac OS X/Darwin on PowerPC... "; $MACOSX_SDK_PATH='@MACOSX_SDK_PATH@'; $FRAMEWORKSHOME = $MACOSX_SDK_PATH."/System/Library/Frameworks"; } else { print "Setting values for Mac OS X/Darwin on default x86... "; $MACOSX_SDK_PATH='@MACOSX_SDK_PATH@'; $FRAMEWORKSHOME = $MACOSX_SDK_PATH."/System/Library/Frameworks"; } } elsif ( $platform =~ m/dragonfly/ ) { # General DragonFly settings: $COMPATH = '@COMPATH@'; } elsif ( $platform =~ m/aix/ ) { $COMPATH = '@COMPATH@'; } else { print "\nset_soenv: Cannot recognize the platform you are building for: $platform.\n"; exit 1; } print "done\n"; # # D. Gathering directory information from the user. # # If the directory does not exist something is strange. # 1. LibreOffice build home directory. # SRC_ROOT should already be in the env due to config_host.mk $SRC_ROOT = $ENV{"SRC_ROOT"}; CheckPathExist( $SRC_ROOT ); # 3. bash path. $OOO_SHELL = '@BASH@'; # ml.exe assembler path for Windows users. if ($platform =~ m/cygwin/) { $ASM_PATH = PathFormat('@ASM_HOME@'); } # # E. Determining the envionment values based on the information # that was gathered earlier on. $USR = $ds."usr"; $ETC = $ds."etc"; $BIN = $ds."bin"; $LIB = $ds."lib"; $LIB64 = $ds."lib"; $LIB64 .= "64" if ($platform =~ m/x86_64-.*-linux/); $LIB64 .= "64" if (($platform =~ m/powerpc64-.*-linux/) && ('@SIZEOF_LONG@' eq '8')); $LIB64 .= "64" if (($platform =~ m/s390x-.*-linux/) && ('@SIZEOF_LONG@' eq '8')); $LIB64 .= $ds."x64" if ($platform =~ m/cygwin/); $INC = $ds."inc"; $INCLUDE = $ds."include"; $DEV = $ds."dev"; $OPT = $ds."opt"; $LOCAL = $ds."local"; $SOLENV = $ds."solenv"; $SOLVER = $ds."solver"; $DEFIMGS = $ds."icon-themes/galaxy"; $CONFIG = $ds."config"; $USR_BIN = $USR.$BIN; $USR_LIB = $USR.$LIB64; $USR_LOCAL = $USR.$ds."local"; $USR_CCS = $USR.$ds."ccs"; $USR_OPENWIN = $USR.$ds."openwin"; $USR_DT = $USR.$ds."dt"; $COMMON_BUILD_TOOLS = '$SRC_ROOT'.$ds."external".$ds."common"; # Windows NT only variables if ($platform =~ m/cygwin/) { if ( $JAVA_HOME ne "" && $JAVA_HOME ne "NO_JAVA_HOME" ) { $JAVA_LIB = $JAVA_HOME.$LIB; } # Import SystemDrive enviroment variable use Env qw(SYSTEMDRIVE); # Change $SYSTEMDRIVE to lower case. $SYSTEMDRIVE = lc $SYSTEMDRIVE; use Env qw(SYSTEMROOT); $CYGWIN_PATH = PathFormat('/usr/bin'); # Windows bash path $WIN_GREP = '$CYGWIN_PATH'.$ds."grep.exe"; $WIN_FIND = '$CYGWIN_PATH'.$ds."find.exe"; $WIN_LS = '$CYGWIN_PATH'.$ds."ls.exe"; $WIN_GNUCOPY = '$CYGWIN_PATH'.$ds."cp.exe"; $WIN_TOUCH = '$CYGWIN_PATH'.$ds."touch.exe"; } if ( $JAVA_HOME ne "" && $JAVA_HOME ne "NO_JAVA_HOME" ) { $JAVA_BIN = $JAVA_HOME.$BIN; $JAVA_INCLUDE = $JAVA_HOME.$INCLUDE; } $PERL = PathFormat('@PERL@'); # Perl program $PERL_PATH = dirname('@PERL@'); # Perl Path $XLIB = PathFormat('@XLIB@'); # X11 libraries $XINC = PathFormat('@XINC@'); # X11 includes # The project's workstamp. $WORK_STAMP = "@SOURCEVERSION@"; # Location of the source. $SOLARSRC = '$SRC_ROOT'; # default TARFILE_LOCATION if ('@TARFILE_LOCATION@' eq "DEFAULT") { $TARFILE_LOCATION="$SRC_ROOT/src"; } # $SOLARENV = PathFormat($SRC_ROOT.$SOLENV); # Location of the solver tree. $SOLARVER = $SRC_ROOT.$SOLVER; #Location of Solar version. $SOLARVERSION = '$SOLARVER'; #Location of gnu make directories. $WORKDIR = '$SRC_ROOT/workdir/$INPATH'; $OUTDIR = '$SOLARVER/$INPATH'; #Some directories that are symlinks under rawbuild, have to use realpath on Cygwin $SOLARDEFIMG = PathFormat($SRC_ROOT.$DEFIMGS); $SOLARENVINC = '$SOLARENV'.$INC; # Location of dmake resource. $DMAKEROOT = '$SOLARENVINC'.$ds."startup"; # Location of JDK classes .zip file. # but in jdk 1.2 it is called rt.jar and it lives in jre/lib $CLASSPATH = ''; $CLASSPATH .= $JAVA_HOME.$ds.'jre'.$LIB.$ds."rt.jar" if (-f $JAVA_HOME.$ds.'jre'.$LIB.$ds."rt.jar"); $CLASSPATH .= $wps.'.' if ($CLASSPATH ne ''); # Why do we need XCLASSPATH when it has the exact same value as CLASSPATH? $XCLASSPATH = $CLASSPATH; # Location of the translations module $L10N_MODULE = PathFormat($SRC_ROOT."/translations"); # Check for poor help localizations, i.e. no help translation at all... @languages=(); if (opendir(DIR,$L10N_MODULE . "/source")) { @languages = readdir(DIR); closedir(DIR); } $WITH_POOR_HELP_LOCALIZATIONS = ""; foreach $language (@languages) { if ( ($language ne ".") && ($language ne "..") && (! -d $L10N_MODULE . "/source/" . $language . "/helpcontent2") ) { $WITH_POOR_HELP_LOCALIZATIONS = $WITH_POOR_HELP_LOCALIZATIONS . " " . $language; } } # Location used by the linker to create libraries. if ($platform =~ m/solaris/) { $SOLAREXTRALIB = $L.$par_dir.$LIB. $L.'$SOLARENV'.$ds.'$OUTPATH'.$ds."lib.solaris.2.6". $L.$LIB. $L.$USR.$LIB. $L.$USR.$LOCAL.$LIB. $L.$USR_DT.$LIB. $L.$USR_OPENWIN.$LIB; } elsif ($platform =~ m/linux|netbsd|freebsd|aix|openbsd|dragonfly/) { $SOLAREXTRALIB = $L.$par_dir.$LIB64; } elsif ($platform =~ m/darwin/ && $platform !~ m/^arm/) { # Nothing should be needed } elsif ($platform !~ m/cygwin/ && $platform !~ m/mingw32/ && $platform !~ m/^arm-apple/) { AddWarning( "set_soenv", "$platform not configured for linkage create libraries" ); } # Windows NT only variables if ($platform =~ m/cygwin/) { $COMP_ENV = $OUTPATH; $JAVAHOME = $JAVA_HOME; $ILIB = $cur_dir; $ILIB .= $wps.$SOLARVER.$ds.$INPATH.$LIB; if ( $JAVA_HOME ne "" && $JAVA_HOME ne "NO_JAVA_HOME" ) { $ILIB .= $wps.$JAVA_HOME.$LIB; } if ( $CL_X64 ne "TRUE" ) { $ILIB .= $wps.$COMPATH.$LIB. $wps.$WINDOWS_SDK_HOME.$LIB; } else { $ILIB .= $wps.$COMPATH.$LIB.$ds."amd64". $wps.$WINDOWS_SDK_HOME.$LIB64; } $ILIB .= $wps.$DOTNET_FRAMEWORK_HOME.$LIB; if ( '@ENABLE_DIRECTX@' ne "" ) { $ILIB .= $wps.$DIRECTXSDK_LIB; } # ILIB needs to use '\' directory seperators; $ILIB = WinPath( $ILIB, ";" ); $JAVAHOME = $JAVA_HOME; } # The general environment path. if ($platform =~ m/linux|netbsd|freebsd|aix|solaris|openbsd|dragonfly/) { $PATH = $cur_dir. $ps.'$SOLARENV'.$ds.'$OUTPATH'.$BIN. $ps.'$SOLARENV'.$BIN; if ($platform =~ m/solaris/) { $PATH .= $ps.$USR_CCS.$BIN; } $PATH .= $ps.$oldPATH; my @javaBits; if ( $JAVA_HOME ne "" && $JAVA_HOME ne "NO_JAVA_HOME" && $JDK ne "gcj" ) { @javaBits = ( $JAVA_HOME.$BIN, 'javac' ); } else { @javaBits = (); } $PATH = GetCorrectPath ($PATH, $COMPATH, $CC, $PERL_PATH, 'perl', @javaBits); } elsif ($platform =~ m/cygwin/) { # The PATH variable is completely created from scratch. Elements # from oldPATH that are not yet included are appended to PATH at # the end. my ( $tmppath ); $PATH = $cur_dir. $ps.CygFormat($SOLARENV).$ds."bin". $ps.CygFormat($SOLARENV).$ds.$OUTPATH.$BIN; if ( $JAVA_HOME ne "" && $JAVA_HOME ne "NO_JAVA_HOME" ) { # hack either "hotspot" or "client" should be used, depending on the jdk version: # 1.2.x - no such directory, unsupported # 1.3.x - hotspot, client missing # 1.4.x - client, hotspot missing $PATH .= $ps.CygFormat($JAVA_HOME).$BIN; if ( -d $JAVA_HOME.$ds."jre".$ds."bin".$ds."hotspot" ) { $PATH .= $ps.CygFormat($JAVA_HOME).$ds."jre".$ds."bin".$ds."hotspot"; } if ( -d $JAVA_HOME.$ds."jre".$ds."bin".$ds."client" ) { $PATH .= $ps.CygFormat($JAVA_HOME).$ds."jre".$ds."bin".$ds."client"; } } # Add path to compiler $tmppath = CygFormat($COMPATH).$BIN; $tmppath .= $ds."amd64" if $CL_X64; $tmppath =~ s/^\/\//\//; if ( "$PATH:$oldPATH" !~ /(?:[:]|\A)(?:$tmppath)(?:[:]|\Z)/ ) { $PATH .= $ps.$tmppath; } $tmppath = CygFormat($MSPDB_PATH); # for MSVC to find mspdb*.dll if ( "$PATH:$oldPATH" !~ /(?:[:]|\A)(?:$tmppath)(?:[:]|\Z)/ ) { $PATH .= $ps.$tmppath; } # need midl.exe $tmppath = CygFormat($MIDL_PATH); if ( "$PATH:$oldPATH" !~ /(?:[:]|\A)(?:$tmppath)(?:[:]|\Z)/ ) { $PATH .= $ps.$tmppath; } # needs csc.exe $tmppath = CygFormat($CSC_PATH); if ( "$PATH:$oldPATH" !~ /(?:[:]|\A)(?:$tmppath)(?:[:]|\Z)/ ) { $PATH .= $ps.$tmppath; } # Installer needs some files if the Windows Installer SDK $tmppath = CygFormat($WINDOWS_SDK_HOME); if ( "$PATH:$oldPATH" !~ /(?:[:]|\A)(?:$tmppath\/bin)(?:[:]|\Z)/i ) { $PATH .= $ps.$tmppath.$BIN; } if ( $ASM_PATH ne "ASM_IN_PATH" ) { $PATH .= $ps.CygFormat($ASM_PATH); } # Possible cygwin paths must follow behind the OOo and MS paths. # What the above comment means I have no idea. # Check if $PERL_PATH is already set in PATH $tmppath = CygFormat($PERL_PATH); if ( "$PATH:$oldPATH" !~ /(?:[:]|\A)(?:$tmppath)(?:[:]|\Z)/ ) { $PATH .= $ps.$tmppath; } # path to sn.exe (signing) for Windows users. my $sn_path = PathFormat('@DOTNET_FRAMEWORK_HOME@/bin'); $tmppath = CygFormat($sn_path); if ( "$PATH:$oldPATH" !~ /(?:[:]|\A)(?:$tmppath)(?:[:]|\Z)/ ) { $PATH .= $ps.$tmppath; } # Add the rest of the original path if it is still missing. my $expandedPATH = $PATH; $expandedPATH =~ s/(\$\w+)/$1/eeg; # fix situations where PATH may look like /bin:"C:\blah\bleh":/ugh my $fixedPATH = $oldPATH; if ( $oldPATH =~ /"/ ) { $fixedPATH = ""; foreach my $pathentry ( split( '"',$oldPATH ) ) { if ( ( $pathentry =~ /^$ps/ ) || ( $pathentry =~ /$ps$/ ) ) { $fixedPATH .= $pathentry; } else { chomp( $pathentry = qx{cygpath -d "$pathentry"} ) ; chomp( $pathentry = qx{cygpath -u "$pathentry"} ) ; $fixedPATH .= $pathentry; } } } foreach my $pathentry (split($ps,$fixedPATH)) { if ( ! ( $expandedPATH =~ /(?:$ps|\A)(?:$pathentry)(?:$ps|\Z)/ ) ) { $PATH .= $ps.$pathentry; $expandedPATH .= $ps.$pathentry; } } # The path now is in cygwin posix format } elsif ($platform =~ m/mingw32/) { my ( $tmppath ); $PATH = $cur_dir. $ps.CygFormat($SOLARENV).$ds."bin". $ps.CygFormat($SOLARENV).$ds.$OUTPATH.$BIN; $PATH .= $ps.$oldPATH; } elsif ($platform =~ m/darwin/) { $PATH = $cur_dir. $ps.'$SOLARENV'.$ds.'$OUTPATH'.$BIN. $ps.'$SOLARENV'.$BIN; # Append old PATH $PATH .= $ps.$oldPATH; } else { AddWarning( "set_soenv", "$platform not configured for general environment paths" ); } # Linker library search directory paths. if ($platform =~ m/solaris/) { $SOLARLIB = $L.$par_dir.$LIB. $L.'$SOLARENV'.$ds.'$OUTPATH'.$LIB. $L.'$SOLARVER'.$ds.'$INPATH'.$LIB. $L.'$SOLARENV'.$ds.'$OUTPATH'.$LIB. $L.'$SOLARENV'.$ds.'$OUTPATH'.$LIB."solaris.2.6". $L.$LIB. $L.$USR_LIB; if ( $CC =~ "gcc" ) { $SOLARLIB .= $L.$COMPATH.$LIB; } $SOLARLIB .= $L.$USR_LOCAL.$LIB. $L.$USR_DT.$LIB. $L.$USR_OPENWIN.$LIB. $L.$XLIB; } elsif ($platform =~ m/linux|netbsd|aix|freebsd|openbsd|dragonfly/) { $SOLARLIB = $L.$par_dir.$LIB. $L.'$SOLARENV'.$ds.'$OUTPATH'.$LIB. $L.'$SOLARVER'.$ds.'$INPATH'.$LIB. $L.'$SOLARENV'.$ds.'$OUTPATH'.$LIB; if ($platform =~ m/openbsd/) { $SOLARLIB .= $L.$USR_LOCAL.$LIB; } if ( $XLIB ne "/usr/lib" && $XLIB ne "/usr/lib64" && $XLIB ne "no_x_libraries" ) { $SOLARLIB .= $L.$XLIB; } } elsif ($platform =~ m/cygwin|mingw32/) { $SOLARLIB = $L.$par_dir.$LIB. $L.'$SOLARENV'.$ds.'$OUTPATH'.$LIB. $L.'$SOLARVER'.$ds.'$INPATH'.$LIB; } elsif ($platform =~ m/darwin/) { $SOLARLIB = $L.'$SOLARVER'.$ds.'$INPATH'.$LIB; } if ($SYSTEM_MOZILLA eq "YES") { $SOLARLIB .= $L."@MOZ_LIB@" } # Location of the compiler include search directory paths. $SOLARINC = $I.$cur_dir. $I.'$SOLARVER'.$ds.'$INPATH'.$INC.$ds."stl". $I.'$SOLARVER'.$ds.'$INPATH'.$INC.$ds."external". $I.'$SOLARVER'.$ds.'$INPATH'.$INC. $I.'$SOLARENV'.$INC.$ds.'$OUTPATH'. $I.'$SOLARENV'.$INC. $I.'$SRC_ROOT'.$ds."res"; if ($platform =~ m/solaris|linux|freebsd|netbsd|aix|openbsd|dragonfly/ && '@CROSS_COMPILING@' ne 'YES') { if ($platform =~ m/solaris/ && ! $CC =~ "gcc") { $SOLARINC .= '/SC5 '; } # Platform dependent include path at the top of this list of include paths if ($platform =~ m/solaris/ && ! $CC =~ "gcc") { $SOLARINC .= $I.$COMPATH.$INCLUDE; } # pickup system jpeg over java jpeg on OpenBSD if ($platform =~ m/openbsd/) { $SOLARINC .= $I.$USR_LOCAL.$INCLUDE; } if ( $JAVA_HOME ne "" && $JAVA_HOME ne "NO_JAVA_HOME" ) { $SOLARINC .= $I.$JAVA_HOME.$INCLUDE; } #include system dependent Java include directory if (!($JDK eq "gcj") && $JAVA_HOME ne "" && $JAVA_HOME ne "NO_JAVA_HOME") { if ($platform =~ m/solaris/) { $SOLARINC .=$I.$JAVA_HOME.$INCLUDE.$ds."solaris"; } elsif ($platform =~ m/linux/) { $SOLARINC .=$I.$JAVA_HOME.$INCLUDE.$ds."linux"; } elsif ($platform =~ m/freebsd/) { $SOLARINC .=$I.$JAVA_HOME.$INCLUDE.$ds."freebsd"; $SOLARINC .=$I.$JAVA_HOME.$INCLUDE.$ds."bsd"; $SOLARINC .=$I.$JAVA_HOME.$INCLUDE.$ds."linux"; } elsif ($platform =~ m/netbsd/) { $SOLARINC .=$I.$JAVA_HOME.$INCLUDE.$ds."netbsd"; } elsif ( $platform =~ m/aix/ ) { $SOLARINC .=$I.$JAVA_HOME.$INCLUDE.$ds."aix"; } elsif ($platform =~ m/openbsd/) { $SOLARINC .=$I.$JAVA_HOME.$INCLUDE.$ds."openbsd"; } #java threads include path $SOLARINC .=$I.$JAVA_HOME.$INCLUDE.$ds."native_threads".$INCLUDE; } #The tail, if needed if ($platform =~ m/linux|freebsd|netbsd|aix|openbsd|dragonfly/) { if ( $XINC ne "/usr/include" && $XINC ne 'no_x_includes' ) { $SOLARINC .= $I.$XINC; } } } elsif ($platform =~ m/cygwin/) { if ($JAVA_HOME ne "" && $JAVA_HOME ne "NO_JAVA_HOME") { $SOLARINC .= $I.$JAVA_HOME.$INCLUDE.$ds."win32". $I.$JAVA_HOME.$INCLUDE; } $SOLARINC .= $I.'$WINDOWS_SDK_HOME'.$INCLUDE. $I.'$COMPATH'.$INCLUDE; if ( '@ENABLE_DIRECTX@' ne "" ) { $SOLARINC .= $I.PathFormat('@DIRECTXSDK_HOME@').$INCLUDE; } } elsif ($platform =~ m/mingw32/) { if ($JAVA_HOME ne "" && $JAVA_HOME ne "NO_JAVA_HOME") { if ( '@build_os' eq 'cygwin' ) { # Using MinGW from Cygwin. Use the normal Windows JDK # headers $SOLARINC .= $I.$JAVA_HOME.$INCLUDE.$ds."win32". $I.$JAVA_HOME.$INCLUDE; } else { # Cross-compilation. Use our fake jni_md.h # and othewise the build platform JDK headers $SOLARINC .= $I.$SOLARENVINC.$ds."win32". $I.$JAVA_HOME.$INCLUDE; } } } elsif ($platform =~ m/darwin/ && $platform !~ m/^arm/) { $SOLARINC .= $I.$FRAMEWORKSHOME.$ds."JavaVM.framework".$ds."Versions".$ds."Current".$ds."Headers". $I.$FRAMEWORKSHOME.$ds."JavaVM.framework".$ds."Headers"; } elsif ($platform =~ m/^arm-apple/) { } elsif ($platform =~ m/linux-androideabi$/) { } else { AddWarning( "set_soenv", "$platform not configured for system dependant include dir" ); } $gb_REPOS = $SRC_ROOT; $BUILD_TYPE = "@BUILD_TYPE@"; if ('@WITH_LANG@' ne "") { $BUILD_TYPE = "@BUILD_TYPE@ TRANSLATIONS"; } else { $BUILD_TYPE = "@BUILD_TYPE@"; } # # F. Setting the different aliases. # # 1. alias for a full product make. $mkout = '"perl $SOLARENV/bin/mkout.pl"'; $deliver = '"perl $SOLARENV/bin/deliver.pl"'; $build = '"perl $SOLARENV/bin/build.pl"'; $zipdep = '"perl $SOLARENV/bin/zipdep.pl"'; # #-------------------------- # VI. Open the output file. #-------------------------- # $outfile = 'Env.Host.sh'; open( OUT, ">$SRC_ROOT/$outfile" ) || die "Cannot open $SRC_ROOT/$outfile: $!\n"; # #------------------------------------------ # VII. Writing the data to the output file. #------------------------------------------ # # Write file header. CreateFileHeader( *OUT, $UPD, $platform, "sh/bash/ksh", "#" ); ToFile( "OOO_SHELL", $OOO_SHELL, "e" ); ToFile( "JAVA_HOME", $JAVA_HOME, "e" ); ToFile( "L10N_MODULE", $L10N_MODULE, "e" ); ToFile( "ANT_HOME", PathFormat("@ANT_HOME@"), "e" ); ToFile( "ANT_LIB", PathFormat("@ANT_LIB@"), "e" ); ToFile( "ANT", PathFormat("@ANT@"), "e" ); ToFile( "JDKLIB", $JAVA_LIB, "e" ); ToFile( "ASM_PATH", $ASM_PATH, "e" ); ToFile( "FRAMEWORKSHOME", $FRAMEWORKSHOME, "e" ); ToFile( "Empty", $empty, "n" ); # # Writing the platform independent constant values to file. # (c = comment, e = environment variable, a = alias ) ToFile( "Platform independent constant values.", $empty, "c" ); # Languages ToFile( "WITH_POOR_HELP_LOCALIZATIONS", $WITH_POOR_HELP_LOCALIZATIONS, "e" ); if ("@ENABLE_DEBUG@" eq "TRUE") { ToFile( "debug", "true", "e" ); } if ("@ENABLE_WERROR@" eq "FALSE") { ToFile( "EXTERNAL_WARNINGS_NOT_ERRORS", "TRUE", "e" ); } ToFile( "PROEXT", $PROEXT, "e" ); ToFile( "nodep", "@nodep@", "e" ); ToFile( "TARFILE_LOCATION", $TARFILE_LOCATION, "e" ); # # Writing the platform dependent constant values to file. # (c = comment, e = environment variable, a = alias ) ToFile( "Platform dependent constant values.", $empty, "c" ); ToFile( "SOLAR_JAVA", $SOLAR_JAVA, "e" ); ToFile( "COMPATH", $COMPATH, "e" ); ToFile( "OSVERSION", $OSVERSION, "e" ); ToFile( "COMEX", $COMEX, "e" ); ToFile( "DYNAMIC_CRT", $DYNAMIC_CRT, "e" ); ToFile( "use_shl_versions", $use_shl_versions, "e" ); if ( $platform =~ m/darwin/ && $platform !~ m/^arm/) { # MAXOSX_DEPLOYMENT_TARGET : The minimum version required to run the build, # build can assume functions/libraries of that version to be available # unless you want to do runtime checks for 10.5 api, you also want to use the 10.4 sdk # (safer/easier than dealing with the MAC_OS_X_VERSION_MAX_ALLOWED macro) # http://developer.apple.com/technotes/tn2002/tn2064.html ToFile( "MACOSX_DEPLOYMENT_TARGET", "@MACOSX_DEPLOYMENT_TARGET@", "e" ); ToFile( "MACOSX_SDK_PATH", "@MACOSX_SDK_PATH@", "e" ); ToFile( "MAC_OS_X_VERSION_MIN_REQUIRED", "@MAC_OS_X_VERSION_MIN_REQUIRED@", "e" ); ToFile( "MAC_OS_X_VERSION_MAX_ALLOWED", "@MAC_OS_X_VERSION_MAX_ALLOWED@", "e" ); } # # Writing the variables to file. # (c = comment, e = environment variable, a = alias, n = newline ) ToFile( "Variable values.", $empty, "c" ); if ( $platform =~ m/cygwin/ ) { ToFile( "CYGWIN_PATH", $CYGWIN_PATH, "e" ); ToFile( "WINDOWS_SDK_HOME", $WINDOWS_SDK_HOME, "e" ); ToFile( "DIRECTXSDK_LIB", $DIRECTXSDK_LIB, "e" ); ToFile( "USE_DIRECTX5", $USE_DIRECTX5, "e" ); ToFile( "ATL_LIB", $ATL_LIB, "e" ); ToFile( "ATL_INCLUDE", $ATL_INCLUDE, "e" ); ToFile( "MFC_LIB", $MFC_LIB, "e" ); ToFile( "MFC_INCLUDE", $MFC_INCLUDE, "e" ); ToFile( "DISABLE_ACTIVEX", "@DISABLE_ACTIVEX@","e" ); ToFile( "DISABLE_ATL", "@DISABLE_ATL@","e" ); ToFile( "INCLUDE", "", "e" ); # Variables used when building the parts that needs to be available # also as 64-bit versions in a 32-bit LibreOffice build, like # the Explorer extension. If the configure script hasn't # found the 64-bit (cross-)compiler, then @BUILD_X64@ will be empty. ToFile( "BUILD_X64", "@BUILD_X64@", "e" ); if ( "@BUILD_X64@" eq "TRUE" ) { ToFile( "CC_X64_BINARY", "@CC_X64_BINARY@", "e" ); ToFile( "CXX_X64_BINARY","@CXX_X64_BINARY@", "e" ); ToFile( "LINK_X64_BINARY","@LINK_X64_BINARY@","e" ); ToFile( "LIBMGR_X64_BINARY","@LIBMGR_X64_BINARY@","e" ); } # Hack around dmake's mktmp not generating DOS paths. my $tmpdir = qx{cygpath -m "/tmp"}; chomp($tmpdir); ToFile( "TMPDIR", $tmpdir, "e" ); if ( !defined $ENV{"TMP"} || $ENV{"TMP"} eq "" ) { ToFile( "TMP", $tmpdir, "e" ); } else { ToFile( "TMP", "$ENV{'TMP'}", "e" ); } } elsif ( $platform =~ m/mingw32/ ) { ToFile( "DISABLE_ACTIVEX", "@DISABLE_ACTIVEX@","e" ); ToFile( "DISABLE_ATL", "@DISABLE_ATL@", "e" ); ToFile( "MINGW_CLIB_DIR", "@MINGW_CLIB_DIR@", "e" ); ToFile( "MINGW_SHARED_GCCLIB", "@MINGW_SHARED_GCCLIB@", "e" ); ToFile( "MINGW_SHARED_GXXLIB", "@MINGW_SHARED_GXXLIB@", "e" ); ToFile( "MINGW_SHARED_LIBSTDCPP", "@MINGW_SHARED_LIBSTDCPP@", "e" ); ToFile( "MINGW_GCCDLL", "@MINGW_GCCDLL@", "e" ); ToFile( "MINGW_GXXDLL", "@MINGW_GXXDLL@", "e" ); } if ("@WITH_VC_REDIST@" eq "TRUE") { ToFile( "WITH_VC_REDIST", "TRUE", "e" ); } ToFile( "PERL", $PERL, "e" ); ToFile( "WORK_STAMP", $WORK_STAMP, "e" ); ToFile( "SOLARVER", $SOLARVER, "e" ); ToFile( "SOLARVERSION", $SOLARVERSION, "e" ); ToFile( "WORKDIR", $WORKDIR, "e" ); ToFile( "OUTDIR", $OUTDIR, "e" ); ToFile( "SOLARENV", $SOLARENV, "e" ); ToFile( "SOLARDEFIMG", $SOLARDEFIMG, "e" ); ToFile( "SOLARENVINC", $SOLARENVINC, "e" ); ToFile( "DMAKEROOT", $DMAKEROOT, "e" ); if ( $JDK ne "gcj" ) { ToFile( "CLASSPATH", $CLASSPATH, "e" ); ToFile( "XCLASSPATH", $XCLASSPATH, "e" ); ToFile( "JAVACISKAFFE", '@JAVACISKAFFE@', "e" ); } else { ToFile( "JAVACISGCJ", '@JAVACISGCJ@', "e" ); } if ( '@JDK@' ne '' ) { ToFile( "JDK", "@JDK@", "e" ); ToFile( "JAVAFLAGS", "@JAVAFLAGS@", "e" ); ToFile( "JAVA_SOURCE_VER", "@JAVA_SOURCE_VER@","e" ); ToFile( "JAVA_TARGET_VER", "@JAVA_TARGET_VER@","e" ); ToFile( "JAVAINTERPRETER", PathFormat("@JAVAINTERPRETER@"), "e" ); ToFile( "JAVAIFLAGS", "@JAVAIFLAGS@", "e" ); ToFile( "JAVACOMPILER", PathFormat("@JAVACOMPILER@"), "e" ); ToFile( "JAVADOC", PathFormat("@JAVADOC@"), "e" ); ToFile( "JVM_ONE_PATH_CHECK", "@JVM_ONE_PATH_CHECK@", "e" ); } ToFile( "SOLAREXTRAINC", $SOLAREXTRAINC, "e" ); ToFile( "SOLAREXTRALIB", $SOLAREXTRALIB, "e" ); if ( '@CROSS_COMPILING@' eq 'YES' ) { # Obviously we shouldn't set PATH to contain host binaries ToFile( "PATH", "@PATH_FOR_BUILD@", "e" ); } else { ToFile( "PATH", $PATH, "e" ); } ToFile( "SOLARLIB", $SOLARLIB, "e" ); ToFile( "SOLARINC", $SOLARINC, "e" ); ToFile( "COMP_ENV", $COMP_ENV, "e" ); ToFile( "JAVAHOME", $JAVAHOME, "e" ); ToFile( "CC", $CC, "e" ); if ( defined $ENV{SYSBASE} ) { $SYSBASE = $ENV{SYSBASE}; } else { $SYSBASE = ''; } ToFile( "SYSBASE", "$SYSBASE", "e" ); ToFile( "BUILD_PLATFORM", "@build@", "e" ); ToFile( "HOST_PLATFORM", "@host@", "e" ); if ( '@CROSS_COMPILING@' eq 'YES' ) { ToFile( "CC_FOR_BUILD", "@CC_FOR_BUILD@", "e" ); ToFile( "CXX_FOR_BUILD", "@CXX_FOR_BUILD@", "e" ); ToFile( "GXX_INCLUDE_PATH_FOR_BUILD", "@GXX_INCLUDE_PATH_FOR_BUILD@", "e" ); ToFile( "MACOSX_DEPLOYMENT_TARGET_FOR_BUILD", "@MACOSX_DEPLOYMENT_TARGET_FOR_BUILD@", "e" ); ToFile( "SYSTEM_LIBXSLT_FOR_BUILD", "@SYSTEM_LIBXSLT_FOR_BUILD@", "e" ); ToFile( "OUTDIR_FOR_BUILD", "@OUTDIR_FOR_BUILD@", "e"); ToFile( "SOLARINC_FOR_BUILD", "@SOLARINC_FOR_BUILD@", "e"); ToFile( "SOLARLIB_FOR_BUILD", "@SOLARLIB_FOR_BUILD@", "e"); ToFile( "WORKDIR_FOR_BUILD", "@WORKDIR_FOR_BUILD@", "e"); } else { ToFile( "CC_FOR_BUILD", $CC, "e" ); ToFile( "CXX_FOR_BUILD", $CXX, "e" ); ToFile( "GXX_INCLUDE_PATH_FOR_BUILD", PathFormat("@GXX_INCLUDE_PATH@"), "e" ); ToFile( "SYSTEM_LIBXSLT_FOR_BUILD", "@SYSTEM_LIBXSLT@", "e" ); ToFile( "OUTDIR_FOR_BUILD", $OUTDIR, "e" ); ToFile( "PATH_FOR_BUILD", $PATH, "e" ); ToFile( "SOLARINC_FOR_BUILD", $SOLARINC, "e" ); ToFile( "SOLARLIB_FOR_BUILD", $SOLARLIB, "e" ); ToFile( "WORKDIR_FOR_BUILD", $WORKDIR, "e" ); } ToFile( "CXX", $CXX, "e" ); ToFile( "BUILD_TYPE", "$BUILD_TYPE", "e" ); if ( '@ENABLE_RPATH@' eq "no" ) { ToFile( "LINKFLAGSRUNPATH",'', "e" ); } ToFile( "EPM_FLAGS", $EPM_FLAGS, "e" ); ToFile( "GXX_INCLUDE_PATH", PathFormat("@GXX_INCLUDE_PATH@"), "e" ); ToFile( "COMMON_BUILD_TOOLS",$COMMON_BUILD_TOOLS, "e" ); if ($platform !~ m/cygwin/) { if ( !defined $ENV{"TMPDIR"} || $ENV{"TMPDIR"} eq "" ) { ToFile( "TMPDIR", "/tmp", "e" ); } else { ToFile( "TMPDIR", "$ENV{'TMPDIR'}", "e" ); } } ToFile( "SOLARSRC", $SOLARSRC, "e" ); ToFile( "SRCDIR", $SOLARSRC, "e" ); if ( $platform =~ m/cygwin/ ) { ToFile( "ILIB", $ILIB, "e" ); ToFile( "GREP", $WIN_GREP, "e" ); ToFile( "FIND", $WIN_FIND, "e" ); ToFile( "LS", $WIN_LS, "e" ); ToFile( "GNUCOPY", $WIN_GNUCOPY, "e" ); ToFile( "TOUCH", $WIN_TOUCH, "e" ); } ToFile( "DELIVER", "deliver.pl", "e" ); ToFile( "MKOUT", "mkout.pl", "e" ); ToFile( "ZIPDEP", "zipdep.pl", "e" ); # # Writing the aliases to file. ToFile( "Aliases.", $empty, "c" ); ToFile( "Don't set aliases when bootstrapping", $empty, "c" ); ToFile( "alias mkout", $mkout, "a" ); ToFile( "alias deliver", $deliver, "a" ); ToFile( "alias build", $build, "a" ); ToFile( "alias zipdep", $zipdep, "a" ); # on Solaris, MacOSX and FreeBSD, set GNUCOPY and GNUPATCH if ($platform =~ m/solaris|darwin|freebsd/) { ToFile( "GNUPATCH", "@GNUPATCH@", "e"); } ToFile( "ENV_SCRIPT", "$outfile", "e" ); # # Writing unset variables you might not need to file. # print OUT "export $exportvars$newline"; print OUT "unset $unsetvars$newline"; # #--------------------------- # VIII. Closing output file. #--------------------------- # close( OUT ) || print "Can't close $SRC_ROOT/$outfile: $!"; #-------------------------------------------------------- # XII. Message at the end. #-------------------------------------------------------- # # print "$newline"; print "*********************************************************". "*******************$newline*$newline"; print "* LibreOffice configuration finished. $newline*$newline"; if ( $Warning ne "" ) { print "$Warning*$newline"; } print "*********************************************************". "******************* $newline"; print "To build, issue:\n$GNUMAKE\n\n"; print "To install when the build is finished, issue:\n$GNUMAKE install\n\n"; print "If you want to develop LibreOffice, you might prefer:\n$GNUMAKE dev-install\n\n"; print "If you want to run the smoketest, issue:\n$GNUMAKE check\n\n"; if ("@STALE_MAKE@" eq "TRUE" && $platform =~ m/cygwin/ ) { print << 'EOS' WARNING: Your make version is known to be horribly slow, and hard to debug problems with. To get a reasonably functional make please do: to install a pre-compiled binary make for cygwin mkdir -p /opt/lo/bin cd /opt/lo/bin wget http://dev-www.libreoffice.org/bin/cygwin/make chmod +x make to install from source: place yourself in a working directory of you choice. git clone git://anongit.freedesktop.org/libreoffice/contrib/dev-tools cd dev-tools/make-3.82-gbuild ./configure --prefix=/opt/lo make sudo make install Then re-run autogen.sh Note: autogen.sh will try to use /opt/lo/bin/make if the environment variable GNUMAKE is not already defined. Alternatively, you can install the 'new' make where ever you want and make sure that `which make` finds it. EOS } if ( $Warning ne "" ) { print "***** WARNINGS ISSUED *****\n"; } # #----------------- # XII. Functions. #----------------- # #------------------------------------------------------------- # Function name: CheckPathName # Description: chops off the '/' character if it's the last # character in a pathname. also adds the '/' # character if it's not the first character # in a path. # Arguments: 1. Path (string) # Return value: Path (string) #------------------------------------------------------------- sub CheckPathName { my $retrn = $_[ 0 ]; if ($platform =~ m/cygwin/) { # Check if the first character is not a '/'. if ( !( $_[ 0 ] =~ /^\// ) ) { $retrn = $ds.$_[ 0 ]; } } # kill the last '/','\','\n' if they exists. $retrn =~ s![\s/\\]+$!!; # Done! return( $retrn ); } #------------------------------------------------------------- # Function name: CheckPathExist # Description: Checks whether the directory that is given # as an argument exists. If not abort. # Arguments: 1. Path (string) # Return value: void #------------------------------------------------------------- sub CheckPathExist { my $dir = $_[ 0 ]; if ( !( -d $dir ) ) { print ( "The directory $_[ 0 ] does not exist. Please create first.\n" ); exit 1; } else { # Don't check under ActiveState Perl (Windows). The path is possibly # posix and it cannot handle it. # Hmm, but the above test also checks for existance, so presumably # the mention of ActiveState in the above comment is just a red # herring. return "true"; } } #------------------------------------------------------------ # Function name: CreateFileHeader # Description: Creates a header for the outfile. # Arguments: 1. File to write to # 2. UPD (string) # 3. Platform (string) # 4. name of shell for this file # 5. comment to use for this file # Return value: void #------------------------------------------------------------ sub CreateFileHeader { my $timestamp = `date`; chomp( $timestamp ); my $filehandle = $_[0]; my $comment = $_[4]; print { $filehandle } "$comment #################################################################"; print { $filehandle } $newline; print { $filehandle } "$comment LibreOffice $_[ 1 ] build environment file for: $_[ 2 ]. $newline"; print { $filehandle } "$comment Generated on: $timestamp $newline"; print { $filehandle } "$comment Source this file to set up the build environment. $newline"; print { $filehandle } "$comment 1. exec $_[3] $newline"; print { $filehandle } "$comment 2. source $outfile $newline"; print { $filehandle } "$comment #################################################################"; print { $filehandle } $newline; print { $filehandle } 'if test -z "$SRC_ROOT" ; then'; print { $filehandle } $newline; print { $filehandle } " . $SRC_ROOT/config_host.mk $newline"; print { $filehandle } "fi $newline"; print { $filehandle } $newline; } #--------------------------------------------------------- # Function name: ToFile # Description: Writes the environment variable in the # output file. # Arguments: 1. Name of environment variable (string) # 2. Value of environment variable (string) # 3. e - env. var # a - alias # c - comment # n - newline # z - raw, write as is to OUT # Return value: void #--------------------------------------------------------- sub ToFile { if ( $_[ 2 ] eq "e" ) { # Write an environment variable to file. if (defined $_[ 1 ] && $_[ 1 ] ne "" ) { my $envvar = $_[ 1 ]; # Tcsh/bash needs backslashes quoted $envvar =~ s/\\/\\\\/g; printf("%-12s %-17s %-10s %s\n", "The variable", $_[ 0 ], "is set to:", $envvar) if ( '@VERBOSE@' eq 'TRUE' ); print OUT "$_[ 0 ]=\"$envvar\"$newline"; # to sh file $exportvars .= " $_[ 0 ]"; # add to export list for sh file } else { printf("%-12s %-17s %-10s %s\n", "The variable", $_[ 0 ], "is set to:", "unset") if ( '@VERBOSE@' eq 'TRUE' ); $unsetvars .= " $_[ 0 ]"; # for sh file } } elsif ( $_[ 2 ] eq "a" ) { # Write an alias to file. print "The $_[ 0 ] is set to: $_[ 1 ]\n" if ( '@VERBOSE@' eq 'TRUE' ); # to stdout print OUT "$_[ 0 ]=$_[ 1 ]$newline"; # to sh file } elsif ( $_[ 2 ] eq "c" ) { # Write a comment to file. if ( '@VERBOSE@' eq 'TRUE' ) { print "$newline"; print "$comment$newline"; print "$comment $_[ 0 ]$newline"; print "$comment$newline"; } print OUT "$newline"; print OUT "$comment$newline"; print OUT "$comment $_[ 0 ]$newline"; print OUT "$comment$newline"; } elsif ( $_[ 2 ] eq "n" ) { #Write a newline to a file print OUT "$newline"; } elsif ( $_[ 2 ] eq "z" ) { #Write first argument as is, and nothing else print OUT "$_[ 0 ]$newline"; } else { print "Unknown type!$newline"; } } #---------------------------------------------------------- # Function name: PathFormat # Description: Reformat path to either POSIX or mixed mode style. # Arguments: 1. Variable (string) # Return value: Reformatted String #---------------------------------------------------------- sub PathFormat { my ( $variable, $d1, $d2 ); $variable = $_[ 0 ]; if ( $platform =~ m/cygwin/ ) { $variable =~ s/(\$\{?\w+\}?)/$1/eeg ; # expand the variables $variable =~ s/(\$\{?\w+\}?)/$1/eeg ; # expand the variables twice! # Complain if PosixPath is used on a PATH-like string if ( $variable =~ m/;/ ) { die( "Do not use on PATH lists (i.e., 'c:\\foo;d:\\bar')"); } # Replace path with space with short dos path if ( $variable =~ / / ) { chomp( $variable = qx{cygpath -d "$variable"} ) ; } # Replace absolute paths or DOS paths with ... if ( ( $variable =~ m/^\// ) or ( $variable =~ m/:/ ) ) { # mixed mode paths chomp( $variable = qx{realpath "$variable"} ) unless ($variable =~ m/:/); chomp( $variable = qx{cygpath -m "$variable"} ); } } return $variable; } #---------------------------------------------------------- # Function name: CygFormat # Description: Format variables to cygwin posix style path # unless . # Arguments: 1. Variable (string) # Return value: Reformatted String #---------------------------------------------------------- sub CygFormat { my ( $variable, $d1, $d2 ); $variable = $_[ 0 ]; # ToDo: Do the replacement only if Windows and var contains "\" and ":" if ( $platform =~ m/cygwin/ ) { # Complain if PosixPath is used on a PATH-like string if ( $variable =~ m/;/ ) { die( "Do not use on PATH lists (i.e., 'c:\\foo;d:\\bar')"); } # Replace DOS paths with posix paths if ( ( $variable =~ m/\\/ ) or ( $variable =~ m/:/ ) ) { chomp( $variable = qx{cygpath -u "$variable"} ); } } return $variable; } #---------------------------------------------------------- # Function name: WinPath # Description: Reformat a $sep seperated path using DOS paths. # Arguments: 1. Variable (string) # 2. Separaror (string) # Return value: Reformatted String #---------------------------------------------------------- sub WinPath { my ( $variable, $d1, $sep, @split_var ); if ( $platform =~ m/cygwin/ ) { $variable = $_[ 0 ]; $sep = $_[ 1 ]; $variable =~ s/^\s+//g ; #remove leading spaces $variable =~ s/\s+$//g ; #remove trailing spaces $variable =~ s/(\$\{?\w+\}?)/$1/eeg ; # expand the variables $variable =~ s/(\$\{?\w+\}?)/$1/eeg ; # expand the variables twice! @split_var = split(/$sep/,$variable); foreach $d1 ( @split_var ) { if ( $d1 =~ /(?:^\/[\w\.~ ]+)+/ ) { if ( $d1 =~ / / ) { # Use DOS 8.3 style to avoid quoting chomp( $d1 = qx{cygpath -d "$d1"} ); } else { # Use "normal" filenames chomp( $d1 = qx{cygpath -w "$d1"} ); } } } $variable = join(';',@split_var); $variable =~ s/\//\\/g; # Remaining \ come from e.g.: ../foo/baa } return $variable; } #-------------------------------------------------------- # Function name: GetCorrectPath # Description: Creates the build environment. # Arguments: 1. existing / original path # 2... pairs of # Return value: String - Correct Path #-------------------------------------------------------- sub GetCorrectPath { sub PathLookup { my $cmd = shift; while (@_) { my $elem = shift; -x "$elem/$cmd" && return $elem; } return ''; } sub SaneGrep { # Perl grep is unbelievably strange. my $needle = shift; while (@_) { my $haystack = shift; if ($needle eq $haystack) { return 1; } } return 0; } sub CleanupPath { my @elements = @_; my @cleanName = (); while (@elements) { my $elem = shift @elements; if (!SaneGrep ($elem, @cleanName)) { push @cleanName, $elem; } } return @cleanName; } my $oldPath = shift; my @originalPairs = @_; my @pairs = @originalPairs; my @Path = split /$ps/, $oldPath; while (@pairs) { my $path = shift @pairs; my $cmd = shift @pairs; my $to_append = 1; my $elem; if (! -x "$path/$cmd") { AddWarning ("Missing executable $path/$cmd\n"); } for $elem (@Path) { if ($elem eq $path) { # print "Hit duplicate path in path; break\n"; $to_append = 0; last; } if (-f "$elem/$cmd") { # print "Element already in path ...\n"; unshift @Path, $path; $to_append = 0; last; } else { # print "No file $elem/$cmd\n"; } } if ($to_append) { push @Path, $path; } } @pairs = @originalPairs; while (@pairs) { my $path = shift @pairs; my $cmd = shift @pairs; my $realpath; $realpath = PathLookup ($cmd, @Path); if (!($realpath eq $path)) { AddWarning ("Path conflict for executables " . "$path/$cmd against $realpath"); } } return join $ps, CleanupPath (@Path); } #------------------------------------------------------------ # Function name: AddWarning # Description: Adds any kind of warning for the user. # The warning will be shown at the end # of this script. # Arguments: 1. Add the configure warnings or the set_soenv # warning (string). # 2. Warning (string). # Return value: void #------------------------------------------------------------ sub AddWarning { if ( $_[ 0 ] eq "configure" ) { open( IN, $warnfile ); while ( ) { $Warning = $Warning."* - ".$_; } close( IN ); # Remove the temporary warning file. # unlink ( $warnfile ); } elsif ( $_[ 0 ] eq "set_soenv" ) { my ( $arg1 ); $arg1 = $_[ 1 ]; chomp( $arg1 ); # cut off new line $Warning = $Warning."* - set_soenv: warning: $arg1 $newline"; # add the warning } } # vim:set shiftwidth=4 softtabstop=4 expandtab: #