CWS changehid: resync to m84

1 files changed, 358 insertions, 0 deletions

diff --git a/testgraphical/source/filehelper.pm b/testgraphical/source/filehelper.pm
new file mode 100644
index 000000000000..ed1be35cf124
--- /dev/null
+++ b/testgraphical/source/filehelper.pm
@@ -0,0 +1,358 @@
+package filehelper;
+
+#*************************************************************************
+#
+# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+#
+# Copyright 2000, 2010 Oracle and/or its affiliates.
+#
+# OpenOffice.org - a multi-platform office productivity suite
+#
+# This file is part of OpenOffice.org.
+#
+# OpenOffice.org is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Lesser General Public License version 3
+# only, as published by the Free Software Foundation.
+#
+# OpenOffice.org is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Lesser General Public License version 3 for more details
+# (a copy is included in the LICENSE file that accompanied this code).
+#
+# You should have received a copy of the GNU Lesser General Public License
+# version 3 along with OpenOffice.org.  If not, see
+# <http://www.openoffice.org/license.html>
+# for a copy of the LGPLv3 License.
+#
+#*************************************************************************
+
+use strict;
+use warnings;
+use strict;
+use English;                  # $OSNAME, ...
+use stringhelper;
+
+BEGIN {
+    use Exporter   ();
+    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+
+    $VERSION     = 1.00;
+    # if using RCS/CVS, this may be preferred
+    $VERSION = do { my @r = (q$Revision: 1.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; # must be all one line, for MakeMaker
+    @ISA         = qw(Exporter);
+    @EXPORT      = qw(&dospath &unixpath &appendPath &appendClass &setPrefix &getToolsPrefix &rmkdir &getJavaPathSeparator &getJavaFileDirSeparator &getFromPathes &convertCygwinPath);
+    %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
+    # your exported package globals go here,
+    # as well as any optionally exported functions
+    @EXPORT_OK   = ( ); # qw($Var1 %Hashit &func3);
+}
+
+
+# ------------------------------------------------------------------------------
+# helper, to change all file separators
+sub dospath($)
+{
+    my $sPath = shift;
+    if ($OSNAME eq "MSWin32")
+    {
+        # make out of '/' a '\'
+        $sPath =~ s/\//\\/g;
+    }
+    else
+    {
+    }
+    return $sPath;
+}
+
+sub unixpath($)
+{
+    my $sPath = shift;
+    if ($OSNAME ne "MSWin32")
+    {
+        # make out of '\' a '/'
+        $sPath =~ s/\\/\//g;
+    }
+    else
+    {
+    }
+    return $sPath;
+}
+
+# ------------------------------------------------------------------------------
+# sub getGlobalInstSet()
+# {
+#     my $sJumbo;
+#     if ($OSNAME eq "MSWin32")
+#     {
+#         # $sJumbo = "\\\\so-gfxcmp-lin\\jumbo_ship\\install";
+#         $sJumbo = "\\\\jumbo.germany.sun.com\\ship\\install";
+#     }
+#     elsif ($OSNAME eq "cygwin")
+#     {
+#         $sJumbo = "//jumbo.germany.sun.com/ship/install";
+#     }
+#     else
+#     {
+#         $sJumbo = "/net/jumbo.germany.sun.com/ship/install";
+#     }
+#     return $sJumbo;
+# }
+
+# ------------------------------------------------------------------------------
+# sub getSolarisLockFile()
+# {
+#     my $sSolarisLockFile = "/tmp/.ai.pkg.zone.lock-afdb66cf-1dd1-11b2-a049-000d560ddc3e";
+#     return $sSolarisLockFile;
+# }
+#
+# sub checkForSolarisLock()
+# {
+#     if ($OSNAME eq "solaris")
+#     {
+#         # wait until the internal installer lock is gone
+#         while ( -e getSolarisLockFile() )
+#         {
+#             while ( -e getSolarisLockFile() )
+#             {
+#                 log_print( "Warning: Wait active until installer lock is gone. \n");
+#                 sleep 1;
+#             }
+#             sleep 5;
+#         }
+#         log_print( "[ok], lock is gone.\n");
+#     }
+# }
+#
+# sub deleteSolarisLock()
+# {
+#     if ($OSNAME eq "solaris")
+#     {
+#         sleep 1;
+#         unlink getSolarisLockFile();
+#
+#         sleep 1;
+#         if ( -e getSolarisLockFile() )
+#         {
+#             # try delete the file as super user?
+#             `sudo rm -f getSolarisLockFile()`;
+#             sleep 1;
+#         }
+#     }
+# }
+
+# ------------------------------------------------------------------------------
+sub appendPath($$)
+{
+    my $sPath = shift;
+    my $sAddPath = shift;
+    if ($sPath && $sAddPath)
+    {
+        if (! endswith($sPath, "/") &&
+            ! endswith($sPath, "\\"))
+        {
+            # getJavaFileDirSeparator();
+            $sPath .= "/";
+        }
+        $sPath .= $sAddPath;
+    }
+    return $sPath;
+}
+
+sub appendClass($$)
+{
+    my $sPath = shift;
+    my $sAddPath = shift;
+
+    my $sSeparator = getJavaPathSeparator();
+    if ($sPath && $sAddPath)
+    {
+        if (! endswith($sPath, $sSeparator))
+        {
+            # getJavaFileDirSeparator();
+            $sPath .= $sSeparator;
+        }
+        $sPath .= $sAddPath;
+    }
+    return $sPath;
+}
+
+# ------------------------------------------------------------------------------
+
+our $sPrefix;
+sub setPrefix($)
+{
+    $sPrefix = shift;
+}
+
+sub getPrefix()
+{
+    return $sPrefix;
+}
+
+# ------------------------------------------------------------------------------
+our $programprefix;
+
+# sub getProgramPrefix($)
+# {
+#     my $sDBDistinct = shift;
+#
+#     my $sProgramPrefix;
+#     if (! $programprefix)
+#     {
+#         if ($OSNAME eq "MSWin32")
+#         {
+#             # $programprefix = "C:/gfxcmp/programs";
+#             $programprefix = "C:";
+#             if (getPrefix() eq "performance")
+#             {
+#                 $programprefix = "D:";
+#             }
+#             $programprefix = appendPath($programprefix, "gp");
+#         }
+#         elsif ($OSNAME eq "linux")
+#         {
+#             $programprefix = "/space/" . getPrefix() . "/programs";
+#         }
+#         elsif ($OSNAME eq "solaris")
+#         {
+#             $programprefix = "/space/" . getPrefix() . "/programs";
+#         }
+#         else
+#         {
+#             print "Error: This environment isn't supported yet.\n";
+#             exit(1);
+#         }
+#     }
+#     $sProgramPrefix = appendPath($programprefix, substr($sDBDistinct, 0, 19));
+#     return $sProgramPrefix;
+# }
+# ------------------------------------------------------------------------------
+our $toolsprefix;
+
+sub getToolsPrefix()
+{
+    my $sToolsPrefix;
+    if (! $toolsprefix)
+    {
+        if ($OSNAME eq "MSWin32")
+        {
+            $toolsprefix = "C:";
+            if (getPrefix() eq "performance")
+            {
+                $toolsprefix = "D:";
+            }
+        }
+        elsif ($OSNAME eq "linux")
+        {
+            $toolsprefix = "/space";
+        }
+        elsif ($OSNAME eq "solaris")
+        {
+            $toolsprefix = "/space";
+        }
+        else
+        {
+            print "Error: This environment isn't supported yet.\n";
+            exit(1);
+        }
+        $toolsprefix = appendPath($toolsprefix, getPrefix());
+        $toolsprefix = appendPath($toolsprefix, "tools");
+    }
+    $sToolsPrefix = $toolsprefix;
+    return $sToolsPrefix;
+}
+
+# also Windows safe
+sub rmkdir($)
+{
+    my($tpath) = shift;
+    my $dir;
+    my $accum = "";
+
+    my @dirs = split(/\//, $tpath);
+    if ( $#dirs eq 0 )
+    {
+        @dirs = split("\\\\", $tpath);
+    }
+
+    foreach $dir (@dirs)
+    {
+    $accum = "$accum$dir/";
+    if($dir ne "")
+    {
+        if(! -d "$accum")
+        {
+        mkdir ($accum);
+                chmod (0777,$accum);
+        }
+    }
+    }
+}
+
+# ------------------------------------------------------------------------------
+sub getJavaPathSeparator()
+{
+    my $ps = ":";
+    if ($OSNAME eq "MSWin32" || $OSNAME eq "cygwin")
+    {
+        $ps = ";";
+    }
+    return $ps;
+}
+# ------------------------------------------------------------------------------
+sub getJavaFileDirSeparator()
+{
+    my $sfs = "/";
+    if ($OSNAME eq "MSWin32")
+    {
+        $sfs = "\\";
+    }
+    return $sfs;
+}
+# ------------------------------------------------------------------------------
+sub getFromPathes($$)
+{
+    my $sPathesIni = shift;
+    my $searchvalue = shift;
+    my $sResult;
+    if ( -e $sPathesIni)
+    {
+        local *PATHES;
+        if (open(PATHES, "$sPathesIni"))
+        {
+            my $line;
+            while ($line = <PATHES>)
+            {
+                chomp($line);
+                if ($line =~ /^$searchvalue=(.*)$/)
+                {
+                    $sResult = $1;
+                }
+            }
+            close(PATHES);
+        }
+    }
+    return $sResult;
+}
+
+sub convertCygwinPath($)
+{
+    my $sPath = shift;
+
+    if ($OSNAME eq "cygwin")
+    {
+        # print "Cygwin Path Patch.\n" if ($verbose);
+        if ($sPath =~ /\/cygdrive\/(.)/)
+        {
+            my $Letter = $1;
+            $sPath =~ s/\/cygdrive\/${Letter}/${Letter}\:/;
+            # print "Cygwin Path Patch: '$sPath'\n" if ($verbose);
+        }
+    }
+    return $sPath;
+}
+
+
+
+1;