Adding upstream version 4:7.4.7.upstream/4%7.4.7upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 373 insertions, 0 deletions

diff --git a/odk/util/check.pl b/odk/util/check.pl
new file mode 100644
index 000000000..377c8be0d
--- /dev/null
+++ b/odk/util/check.pl
@@ -0,0 +1,373 @@
+#
+# This file is part of the LibreOffice project.
+#
+# This Source Code Form is subject to the terms of the Mozilla Public
+# License, v. 2.0. If a copy of the MPL was not distributed with this
+# file, You can obtain one at http://mozilla.org/MPL/2.0/.
+#
+# This file incorporates work covered by the following license notice:
+#
+#   Licensed to the Apache Software Foundation (ASF) under one or more
+#   contributor license agreements. See the NOTICE file distributed
+#   with this work for additional information regarding copyright
+#   ownership. The ASF licenses this file to you under the Apache
+#   License, Version 2.0 (the "License"); you may not use this file
+#   except in compliance with the License. You may obtain a copy of
+#   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+#
+
+#
+# check - a perl script to check some files and directories if they exist
+# A first simple check if the SDK was built completely.
+#
+
+$return = 0;
+
+$SdkDir = "$ARGV[0]";
+$OperatingSystem = "$ARGV[1]";
+$ExePrefix = "$ARGV[2]";
+
+sub check_file
+{
+    my ($file) = @_;
+    return -e "$SdkDir/$file";
+}
+
+sub check_dir
+{
+    my ($dir) = @_;
+    return -d "$SdkDir/$dir";
+}
+
+print "Check for $OperatingSystem\n";
+
+if (-d "$SdkDir") {
+    # check binaries
+    print "check binaries: ";
+    if (check_dir("bin")) {
+        my @binarylist = ( "idlc","cppumaker","javamaker",
+               "unoidl-read", "unoidl-write",
+               "unoapploader", "uno-skeletonmaker" );
+    if ($ENV{SYSTEM_UCPP} eq "") {
+        push @binarylist,"ucpp";
+    }
+
+    foreach $i (@binarylist)
+    {
+        if (!check_file("bin/$i$ExePrefix")) {
+        $return++;
+        print "\nERROR: \"bin/$i$ExePrefix\" is missing\n";
+        } else {
+        print "+";
+        }
+    }
+
+    if ($OperatingSystem eq "windows") {
+        if (!check_file("bin/climaker.exe")) {
+        $return++;
+        print "\nERROR: \"bin/climaker.exe\" is missing\n";
+        } else {
+        print "+";
+        }
+    }
+    } else {
+        print "\nERROR: \"bin\" is missing\n";
+        $return++;
+    }
+    print "\n";
+
+    # packaging files
+    print "check packaging files: ";
+    if (check_dir("docs")) {
+    my @filelist = ( "install.html",
+             "sdk_styles.css","tools.html",
+             "images/arrow-1.gif", "images/arrow-3.gif",
+             "images/odk-footer-logo.gif",
+             "images/bg_table.png","images/bg_table2.png",
+             "images/bg_table3.png", "images/nav_down.png",
+             "images/nav_home.png","images/nav_left.png",
+             "images/nav_right.png","images/nav_up.png",
+             "images/sdk_head-1.png", "images/sdk_head-2.png",
+             "images/sdk_line-1.gif", "images/sdk_line-2.gif",
+             "images/nada.gif",
+             "images/arrow-2.gif", "images/bluball.gif",
+             "images/ooo-main-app_32.png");
+
+    foreach $i (@filelist)
+    {
+        if (!check_file("docs/$i")) {
+        $return++;
+        print "\nERROR: \"docs/$i\" is missing\n";
+        } else {
+        print "+";
+        }
+    }
+    } else {
+        print "\nERROR: \"docs\" is missing\n";
+        $return++;
+    }
+    print "\n";
+
+    #check configure files
+    print "check config files: ";
+    if ($OperatingSystem eq "windows") {
+    if (!check_file("setsdkenv_windows.bat")) {
+        print "\nERROR: \"setsdkenv_windows.bat\" is missing\n";
+        $return++;
+    }
+    if (!check_file("cfgWin.js")) {
+        print "\nERROR: \"cfgWin.js\" is missing\n";
+        $return++;
+    }
+    } else {
+    if (!check_file("configure.pl")) {
+        print "\nERROR: \"configure.pl\" is missing\n";
+        $return++;
+    }
+    if (!check_file("config.guess")) {
+        print "\nERROR: \"config.guess\" is missing\n";
+        $return++;
+    }
+    if (!check_file("config.sub")) {
+        print "\nERROR: \"config.sub\" is missing\n";
+        $return++;
+       }
+    if (!check_file("setsdkenv_unix")) {
+        print "\nERROR: \"setsdkenv_unix\" is missing\n";
+        $return++;
+    }
+    if (!check_file("setsdkenv_unix.sh.in")) {
+        print "\nERROR: \"setsdkenv_unix.sh.in\" is missing\n";
+        $return++;
+    }
+    }
+    print "\n";
+
+    #check setting files
+    print "check setting files: ";
+    if (check_dir("settings")) {
+    if (!check_file("settings/settings.mk")) {
+        print "\nERROR: \"settings/settings.mk\" is missing\n";
+        $return++;
+    }
+    if (!check_file("settings/std.mk")) {
+        print "\nERROR: \"settings/std.mk\" is missing\n";
+        $return++;
+    }
+    if (!check_file("settings/stdtarget.mk")) {
+        print "\nERROR: \"settings/stdtarget.mk\" is missing\n";
+        $return++;
+    }
+    } else {
+        print "\nERROR: \"settings\" is missing\n";
+        $return++;
+    }
+    print "\n";
+
+    #check cpp docu, it is only a first and simple check
+    # improvement required
+    if ($ENV{'DOXYGEN'} ne '') {
+        print "check cpp docu: ";
+        if (check_dir("docs/cpp/ref")) {
+            if (!check_file("docs/cpp/ref/index.html")) {
+                print "\nERROR: \"docs/cpp/ref/index.html\" is missing\n";
+                $return++;
+            }
+        } else {
+            print "\nERROR: \"docs/cpp/ref\" is missing\n";
+            $return++;
+        }
+        print "\n";
+    }
+
+    #check java docu, it is only a first and simple check
+    # improvement required
+    my $solar_java = $ENV{"ENABLE_JAVA"};
+    my $JDK = $ENV{"JDK"};
+    if (defined($solar_java) && $solar_java ne "" && (!defined($JDK) || $JDK ne "gcj")) {
+    print "check java docu: ";
+    if (check_dir("docs/java/ref")) {
+        if (!check_file("docs/java/ref/index.html")) {
+        print "\nERROR: \"docs/java/ref/index.html\" is missing\n";
+        $return++;
+        }
+
+        my @dir_list = ( "lib","lib/uno","lib/uno/helper","lib/uno/helper/class-use",
+                 "uno","uno/class-use","comp","comp/helper",
+                 "comp/helper/class-use");
+
+        foreach $i (@dir_list)
+        {
+        if (!check_dir("docs/java/ref/com/sun/star/$i")) {
+            $return++;
+            print "\nERROR: \"docs/java/ref/com/sun/star/$i\" is missing\n";
+        } else {
+            print "+";
+        }
+        }
+    } else {
+        print "\nERROR: \"docs/java/ref\" is missing\n";
+        $return++;
+    }
+    print "\n";
+    }
+
+    #check idl docu, it is only a first and simple check
+    # improvement required
+    if ($ENV{'DOXYGEN'} ne '') {
+        print "check idl docu: ";
+        if (check_dir("docs/idl/ref")) {
+        if (!check_file("docs/idl/ref/index.html")) {
+            print "\nERROR: \"docs/idl/ref/index.html\" is missing\n";
+            $return++;
+        }
+        if (!check_file("docs/idl/ref/classes.html")) {
+            print "\nERROR: \"docs/idl/ref/classes.html\" is missing\n";
+            $return++;
+        }
+        if (!check_file("docs/idl/ref/namespaces.html")) {
+            print "\nERROR: \"docs/idl/ref/namespaces.html\" is missing\n";
+            $return++;
+        }
+
+        my @idl_dirlist = ( "accessibility",
+                    "animations",
+                    "auth",
+                    "awt",
+                    "awt/tab",
+                    "awt/tree",
+                    "awt/grid",
+                    "beans",
+                    "bridge",
+                    "bridge/oleautomation",
+                    "chart",
+                    "chart2",
+                    "chart2/data",
+                    "configuration",
+                    "configuration/backend",
+                    "configuration/backend/xml",
+                    "configuration/bootstrap",
+                    "connection",
+                    "container",
+                    "cui",
+                    "datatransfer",
+                    "datatransfer/clipboard",
+                    "datatransfer/dnd",
+                    "deployment",
+                    "deployment/ui",
+                    "document",
+                    "drawing",
+                    "drawing/framework",
+                    "embed",
+                    "form",
+                    "form/binding",
+                    "form/component",
+                    "form/control",
+                    "form/inspection",
+                    "form/runtime",
+                    "form/submission",
+                    "form/validation",
+                    "formula",
+                    "frame",
+                    "frame/status",
+                    "gallery",
+                    "geometry",
+                    "graphic",
+                    "i18n",
+                    "image",
+                    "inspection",
+                    "io",
+                    "java",
+                    "lang",
+                    "ldap",
+                    "linguistic2",
+                    "loader",
+                    "logging",
+                    "mail",
+                    "media",
+                    "mozilla",
+                    "packages",
+                    "packages/manifest",
+                    "packages/zip",
+                    "plugin",
+                    "presentation",
+                    "reflection",
+                    "registry",
+                    "rendering",
+                    "report",
+                    "report/inspection",
+                    "resource",
+                    "scanner",
+                    "script",
+                    "script/browse",
+                    "script/provider",
+                    "sdb",
+                    "sdb/application",
+                    "sdb/tools",
+                    "sdbc",
+                    "sdbcx",
+                    "security",
+                    "sheet",
+                    "smarttags",
+                    "style",
+                    "svg",
+                    "system",
+                    "table",
+                    "task",
+                    "text",
+                    "text/fieldmaster",
+                    "text/textfield",
+                    "text/textfield/docinfo",
+                    "ucb",
+                    "ui",
+                    "ui/dialogs",
+                    "uno",
+                    "uri",
+                    "util",
+                    "view",
+                    "xforms",
+                    "xml",
+                    "xml/crypto",
+                    "xml/crypto/sax",
+                    "xml/csax",
+                    "xml/dom",
+                    "xml/dom/events",
+                    "xml/dom/views",
+                    "xml/input",
+                    "xml/sax",
+                    "xml/wrapper",
+                    "xml/xpath",
+                    "xsd" );
+
+        # Due to MSI limitations have to use SHORT_NAMES on windows so can't check
+        if ($OperatingSystem ne "windows") {
+        foreach $i (@idl_dirlist)
+        {
+            $i =~ s/\//_1_1/g;
+            if (!check_file("docs/idl/ref/namespacecom_1_1sun_1_1star_1_1$i.html")) {
+            $return++;
+            print "\nERROR: \"docs/idl/ref/namespacecom_1_1sun_1_1star_1_1$i.html\" is missing\n";
+            } else {
+            print "+";
+            }
+        }
+        }
+        } else {
+            print "\nERROR: \"docs/idl/ref\" is missing\n";
+            $return++;
+        }
+        print "\n";
+    }
+
+} else {
+    print "\nERROR: \"$SdkDir\" is missing\n";
+    $return++;
+}
+
+if( $return != 0 )
+{
+    print "ERROR\n";
+} else {
+    print "OK\n";
+}
+exit $return;