From ed5640d8b587fbcfed7dd7967f3de04b37a76f26 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 11:06:44 +0200 Subject: Adding upstream version 4:7.4.7. Signed-off-by: Daniel Baumann --- odk/util/check.pl | 373 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 373 insertions(+) create mode 100644 odk/util/check.pl (limited to 'odk/util') 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; -- cgit v1.2.3