Hi,
I have submitted a patch for review:
https://gerrit.libreoffice.org/4239
To pull it, you can do:
git pull ssh://gerrit.libreoffice.org:29418/core refs/changes/39/4239/1
solenv/bin: remove unreferenced obsoleted scripts
Change-Id: I68e23ef543f4e26f617d9860681273234ec9174c
---
D solenv/bin/_mkout
D solenv/bin/addsym-mingw.sh
D solenv/bin/chrel.sed
D solenv/bin/cleandiff.pl
D solenv/bin/concat-deps.pl
D solenv/bin/convertlinks.pl
D solenv/bin/gen_userfeedback_VCL_names.pl
D solenv/bin/genmap
D solenv/bin/getcsym.awk
D solenv/bin/langwrap
D solenv/bin/leconvert.pl
D solenv/bin/licinserter.pl
D solenv/bin/make_ext_update_info.pl
D solenv/bin/makedepn
D solenv/bin/makemani.pl
D solenv/bin/mapgen.pl
D solenv/bin/mkdir.pl
D solenv/bin/mkout.pl
D solenv/bin/packager.pl
D solenv/bin/patch_sanitizer.pl
D solenv/bin/remangle32to64.pl
D solenv/bin/rmdir.pl
D solenv/bin/rpm-wrapper
D solenv/bin/slfl.pl
D solenv/bin/striplanguagetags.sh
D solenv/bin/touch.pl
D solenv/bin/unxmap-to-macosx-explist.awk
27 files changed, 0 insertions(+), 2,947 deletions(-)
diff --git a/solenv/bin/_mkout b/solenv/bin/_mkout
deleted file mode 100755
index 3737310..0000000
--- a/solenv/bin/_mkout
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/bin/sh -e
-#
-# 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 .
-#
-if [ -z "$1" ]; then
- exit 1;
-fi
-mkdir -p "$1"/bin
-mkdir -p "$1"/inc
-mkdir -p "$1"/lib
-mkdir -p "$1"/misc
-mkdir -p "$1"/obj
-mkdir -p "$1"/slb
-mkdir -p "$1"/slo
diff --git a/solenv/bin/addsym-mingw.sh b/solenv/bin/addsym-mingw.sh
deleted file mode 100755
index bdbba7a..0000000
--- a/solenv/bin/addsym-mingw.sh
+++ /dev/null
@@ -1,52 +0,0 @@
-#!/bin/bash
-
-#
-# 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 .
-#
-
-# This script is needed in the process of generating exported
-# symbols list out of map files on MinGW
-# The magic generating the regular expression from the temporary
-# mapfile containing only star and question mark symbols
-#
-# The script has to be called as follows:
-# nm -gx <file>.o | addsym-mingw.sh <file-with-wildcard-symbols>
<temporary-file-where-to-write-the-search-expression-to>
-# See tg_shl.mk for an example of how to use the script
-#
-# Replace every * with .* and every ? with . to get awk expression
-# Remove whitespaces and comments in expression
-# Put ^ at the beginning of every expression
-# Put $ at the beginning of every expression
-# Connect them all on one line, separated by |
-# Remove | at the end of this regular expression because the last end
-# of line was also replaced by |
-
-if [ -s $1 ]
-then
-cat $1 | sed 's#*#.*#g
-s#?#.#g
-s#;.*##g
-s# ##g
-s# ##g
-s#^#^#
-s#$#$#' | tr '\n' '|' | sed "s#|\$##" >$2
-
-# Please note that the awk expression expects to get the output of 'nm -gP'!
-awk -v SYMBOLSREGEXP="`cat $2`" '
-match (substr ($1,2) ,SYMBOLSREGEXP) > 0 { print substr ($1,2) ";" }'
-fi
-
diff --git a/solenv/bin/chrel.sed b/solenv/bin/chrel.sed
deleted file mode 100644
index 19455b0..0000000
--- a/solenv/bin/chrel.sed
+++ /dev/null
@@ -1,2 +0,0 @@
-s/\(\.\.\/\)\{2,4\}/..\//g
-s/\(\.\.\\\)\{2,4\}/..\\/g
diff --git a/solenv/bin/cleandiff.pl b/solenv/bin/cleandiff.pl
deleted file mode 100644
index 85e8f0f..0000000
--- a/solenv/bin/cleandiff.pl
+++ /dev/null
@@ -1,36 +0,0 @@
-:
-eval 'exec perl -wS $0 ${1+"$@"}'
- if 0;
-#
-# 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 .
-#
-
-while (<>)
-{
- next if /^Only in/ ;
- next if /^diff -rc / ;
- next if /^diff -ru / ;
- next if /^Common sub/ ;
-
- if ( /^---/ || /^\*\*\*/ || /^\+\+\+/ )
- {
- s/\\/\//g;
- }
-
- print ;
-}
-
diff --git a/solenv/bin/concat-deps.pl b/solenv/bin/concat-deps.pl
deleted file mode 100755
index 97dfc28..0000000
--- a/solenv/bin/concat-deps.pl
+++ /dev/null
@@ -1,89 +0,0 @@
-#! /usr/bin/env perl
-#
-# 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/.
-#
-
-# reads a list of dependency files from a file, opens and
-# concatenates them, while eliding duplicate nop rules.
-use File::Spec;
-
-sub read_depfiles($)
-{
- my $name = shift;
- my $depfh;
- my @files;
- open ($depfh, $name) || die "Can't open list of dependencies: $name: $!";
- while (<$depfh>) {
- push @files, split(/\s+/, $_);
- }
- close ($depfh);
-
-# print STDERR "dep files: " . join ("'", @files) . "\n";
- return @files;
-}
-
-my @depfiles = read_depfiles (shift @ARGV);
-
-my %rules;
-print "# concatenated, reduced dependencies generated by solenv/bin/concat-deps.pl\n";
-print "# generated with \$(SRCDIR) = $ENV{SRCDIR}\n";
-print "# generated with \$(OUTDIR) = $ENV{OUTDIR}\n";
-
-my $boost_path = $ENV{OUTDIR} . '/inc/boost/';
-
-for my $fname (@depfiles) {
- my $fileh;
-
- next if ($fname eq '');
- open ($fileh, $fname) || die "Can't open $fname: $!\n";
-
- my $last = '';
- my $rule_count = 0;
- my $with_boost_count = 0;
- while (<$fileh>) {
- # canonicalise path
- m/^(\s*)([^\s\n:]*)(.*\n?)$/;
- my $pre = $1;
- my $path = $2;
- my $post = $3;
- $rule_count++ if ($post =~ m/:/);
- if (length($path) > 0 && index($path,$ENV{SRCDIR}) == 0) {
- $path = File::Spec->rel2abs($2);
- if (index($path,$ENV{OUTDIR}) == 0) {
- my $solverpath = substr($path, length($ENV{OUTDIR}));
- if ($solverpath =~ m|/inc/boost/|) {
- if ($with_boost_count != $rule_count || !($post =~ m/\\/)) {
- $path = '$(OUTDIR)/inc/boost/deliver.log';
- $with_boost_count = $rule_count;
- } else { # elide it
- $path = ''; $pre = ''; $post = '';
- }
- } else {
- $path = "\$(OUTDIR)" . $solverpath;
- }
- } else {
- $path = "\$(SRCDIR)" . substr($path, length($ENV{SRCDIR}));
- }
- }
- $line = "$pre$path$post";
-
- if ($line eq "\n") {
- if ($last =~ /^(.*):\s*$/) {
- if (defined $rules{$1}) {
- $last = '';
- next;
- }
- $rules{$1} = 1;
- }
- }
- print $last;
- $last = $line;
- }
- print "$last\n"; # in case of missing newline
-
- close ($fileh);
-}
diff --git a/solenv/bin/convertlinks.pl b/solenv/bin/convertlinks.pl
deleted file mode 100644
index 96a4528..0000000
--- a/solenv/bin/convertlinks.pl
+++ /dev/null
@@ -1,138 +0,0 @@
-#
-# 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 .
-#
-
-#
-# convertlinks - a perl script to make hrefs to
-# http://api.openoffice.org/common/ref relativ.
-#
-
-use File::Find;
-
-# for the convenience of &wanted calls, including -eval statements:
-use vars qw/*name *dir/;
-*name = *File::Find::name;
-*dir = *File::Find::dir;
-@files = ();
-
-if($#ARGV == 1)
-{
- $pattern = "www";
-} else
-{
- $pattern = $ARGV[2];
-}
-
-find(\&wanted, "$ARGV[0]");
-
-$return = 1;
-
-foreach $i (@files)
-{
- next if( $i->{directory} =~ /.*common((\/|\\)ref(.*))/ ||
- $i->{directory} =~ /.*cpp((\/|\\)ref(.*))/ ||
- $i->{directory} =~ /.*java((\/|\\)ref(.*))/ );
-
- open ( FILEIN, $i->{filename} ) || die "could not open $i->{filename} for reading";
-
- $relPath = ".";
- $relToSource = ".";
- if( $i->{directory} =~ /.*$pattern((\/|\\)(.*))/ )
- {
- $relPath = $3;
- $relPath =~ s#\w+#\.\.#go;
- if($pattern eq "examples")
- {
- $relPath = "\.\.\/$relPath";
- }
- if($pattern eq "www")
- {
- $relToSource = "\.\.\/$relPath";
- } else
- {
- $relToSource = $relPath;
- }
- } else
- {
- if($pattern eq "examples")
- {
- $relPath = "\.\.";
- }
- if($pattern eq "www")
- {
- $relToSource = "\.\.";
- } else
- {
- $relToSource = $relPath;
- }
- }
-
- @lines = <FILEIN>;
- close( FILEIN );
- open( FILEOUT, ">$i->{filename}.tmp" ) || die "could not open $i->{filename} for writing";
- foreach $_ (@lines)
- {
- # change the refenreces to the index in dependency of UDK or ODK
- if("$ARGV[1]" eq "udk_" | "$ARGV[1]" eq "odk_")
- {
- s#((\")(index.html\"))#$2$ARGV[1]$3#go;
- s#((\/|\")(faq.html\"))#$2$ARGV[1]$3#go;
- s#((\/|\")(bylaws.html\"))#$2$ARGV[1]$3#go;
- }
-
- s#((http:\/\/api\.openoffice\.org\/)(common\/ref[^\"]+))#$relPath\/$3#go;
-
s#((http:\/\/api\.openoffice\.org\/unbranded-source\/)(.*)(examples\/examples.html))#$relToSource\/$4#go;
-
- if($pattern eq "examples")
- {
- # change the links for the C++/Java examples in the ODK
-
s#((http:\/\/api\.openoffice\.org\/source\/browse\/api\/odk\/examples\/)(java\/*))#$3#go;
-
s#((http:\/\/api\.openoffice\.org\/source\/browse\/api\/odk\/examples\/)(cpp\/*))#$3#go;
-
s#((http:\/\/api\.openoffice\.org\/source\/browse\/api\/odk\/examples\/)(basic\/*))#$3#go;
-
s#((http:\/\/api\.openoffice\.org\/source\/browse\/api\/odk\/examples\/)(OLE\/*))#$3#go;
-
- # change link api specific stuff
- s#((http:\/\/api\.openoffice\.org\/)(design_guide.html))#$relPath\/www\/$3#go;
- s#(http:\/\/api\.openoffice\.org\/index.html)#$relPath\/www\/odk_index.html#go;
-
- # change the links for the C++ examples in the UDK
-
s#((http:\/\/udk\.openoffice\.org\/source\/browse\/udk\/product\/examples\/)(cpp\/*))#$3#go;
-
- # change the links to udk.openoffice.org to relativ links
- s#(http:\/\/udk\.openoffice\.org\/index.html)#$relPath\/www\/udk_index.html#go;
- s#((http:\/\/udk\.openoffice\.org)(\/*))#$relPath\/www$3#go;
-
- # change the link to tutorial
-
s#((http:\/\/api\.openoffice\.org\/)(basic\/man\/tutorial\/tutorial.pdf))#$relPath\/www\/$3#go;
- }
- print FILEOUT $_;
- }
- close FILEOUT;
- chmod 0666, $i->{filename};
- rename "$i->{filename}.tmp", $i->{filename} || die "could not rename $i->{filename}.tmp to
$i->{filename}";
- $return = 0;
-}
-
-exit $return;
-
-sub wanted {
- %file = (
- directory => $dir,
- filename => $name
- );
- push @files, {%file} if /^.*\.html\z/s;
-}
diff --git a/solenv/bin/gen_userfeedback_VCL_names.pl b/solenv/bin/gen_userfeedback_VCL_names.pl
deleted file mode 100644
index 002fd50..0000000
--- a/solenv/bin/gen_userfeedback_VCL_names.pl
+++ /dev/null
@@ -1,186 +0,0 @@
-:
-eval 'exec perl -wS $0 ${1+"$@"}'
- if 0;
-#
-# 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 .
-#
-#
-# pushids - push HID.LST and *.win files for userexperience feedback
-#
-
-use lib ("$ENV{SOLARENV}/bin/modules", "$ENV{COMMON_ENV_TOOLS}/modules");
-
-use Carp;
-
-sub parse_info($$);
-
-if ( @ARGV != 3 )
-{
- print "usage: $ARGV[0] <path tp hid.lst> <path to *.win files> <output file>\n";
- print "example: $ARGV[0] ./hid.lst global/win common/misc/UserFeedbackNames.csv\n\n";
- die "invalid params";
-}
-
-my ($hid, $winpath, $outfile) = @ARGV;
-
-my @names;
-
-open HID, "<$hid" or die "can't open file $filename $! $^E";
-for (<HID>) {
- chop;
- my ($longname, $ID) = split " +";
- next if ( ! $ID );
- $upperlongname = $longname;
- $upperlongname =~ tr/a-z/A-Z/;
- $undeclared_hids{$upperlongname} = $longname;
-
- if ( exists $hids{$upperlongname} && ( $hids{$upperlongname} != $ID ) )
- {
- print STDERR "warn: unclear definition of longname: $longname = $hids{$upperlongname} or
$ID\n";
- }
- $hids{$upperlongname} = $ID;
-
- if ( exists $revhids{ $ID } && ( $revhids{ $ID } ne $upperlongname ) )
- {
- print STDERR "warn: two longnames have the same ID: $longname and $revhids{$ID} share ID
$ID\n";
- }
- $revhids{$ID} = $upperlongname;
-}
-
-close HID;
-
-undef @revhids;
-
-#Add Active
-$hids{"ACTIVE"} = 0;
-
-my %dialogs = ();
-
-foreach ( glob("$winpath/*win") ) {
- $filename = $_;
- open WIN, "< $filename" or die "can't open file $filename $! $^E";
- my $parentinfo = "";
- my @dialog = ();
- my $parentshortname = "";
-
- for ( <WIN> ) {
- chop;
-
- s/^ +//;
- s/ +/ /g;
-
- next if /^ *'/;
- next if /^ *$/;
-
- my $ID = "";
- my $iteminfo;
- my ($shortname, $longname) = split " +";
-
- $shortname = "" if ( !$shortname );
- $longname = "" if ( !$longname );
-
- # fake a correct entry if only *active is given and overwrite the attempt to declare it
differently
- if ( $shortname =~ /\*active/i )
- {
- $longname = "Active";
- }
-
-
-# find UNO Names
- if ( $longname =~ /^(.uno:|http|private:factory|service:|macro:|.HelpId:)/i || $longname =~
s/^sym://i )
- {
- $ID = $longname;
- $longname = "";
- }
- else
- {
- my $upperlongname = $longname;
- $upperlongname =~ tr/a-z/A-Z/;
- if ( $shortname !~ /^[\+\*]/ && !exists $hids{$upperlongname} )
- {
- print STDERR "warn: Longname not in hid.lst: $filename $longname\n";
- }
- if ( exists $hids{$upperlongname} )
- {
- $ID = $hids{$upperlongname};
- }
- delete $undeclared_hids{$upperlongname};
- }
-
- $iteminfo = "$shortname $longname $ID";
- $iteminfo =~ s/^\*//;
- $iteminfo =~ s/^\+//;
-
-# find start of deklaration
- if ( $shortname =~ s/^\+// )
- {
- # copy existing dialog
- if ( exists $dialogs{ $longname } )
- {
- my @old = @{$dialogs{ $longname }};
- my ($oldshort, $oldlong, $oldID ) = split ( " ", shift @old );
- $iteminfo = "$shortname $oldlong $oldID";
-
- $parentinfo = $iteminfo;
- $parentshortname = $shortname;
- $dialogs{ $parentshortname } = \@dialog;
- @dialog = (); # break the link
- push ( @{$dialogs{ $parentshortname }}, $iteminfo );
- push @names, " $parentinfo";
-
- for ( @old )
- {
- push @names, "$parentinfo $_";
- }
- }
- else
- { # fake new dialog instead
- $shortname = "*".$shortname;
- }
- }
- if ( $shortname =~ s/^\*// )
- {
- $parentinfo = $iteminfo;
- $parentshortname = $shortname;
- $dialogs{ $parentshortname } = \@dialog;
- @dialog = (); # break the link
- push ( @{$dialogs{ $parentshortname }}, $iteminfo );
- push @names, " $parentinfo";
- }
- else
- {
- push ( @{$dialogs{ $parentshortname }}, $iteminfo );
- push @names, "$parentinfo $iteminfo";
- }
-
- }
- close WIN;
-}
-
-for ( keys %undeclared_hids ) {
- $iteminfo = "$undeclared_hids{$_} $undeclared_hids{$_} $hids{$_}";
- push @names, " $iteminfo";
-}
-
-#----------------------------------------------------------------------------
-# write to files
-
-open HIDS, ">$outfile" or die "can't open file $filename $! $^E";
-print HIDS join "\n", @names;
-print HIDS "\n";
-close HIDS;
-
diff --git a/solenv/bin/genmap b/solenv/bin/genmap
deleted file mode 100755
index 78d67bf..0000000
--- a/solenv/bin/genmap
+++ /dev/null
@@ -1 +0,0 @@
-less $2
diff --git a/solenv/bin/getcsym.awk b/solenv/bin/getcsym.awk
deleted file mode 100644
index d167e3c..0000000
--- a/solenv/bin/getcsym.awk
+++ /dev/null
@@ -1,25 +0,0 @@
-#
-# 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 .
-#
-
-BEGIN { global_found = "false" }
-/[ \t]*#/ { sub("#.*", "") }
-/[ \t]*local:/ { global_found = "false" }
-/[ \t]*}/ { global_found = "false" }
-/^[ \t]*$/ { next }
-global_found == "true" { print $0 }
-/[ \t]*global:/ { global_found = "true" }
diff --git a/solenv/bin/langwrap b/solenv/bin/langwrap
deleted file mode 100755
index 09113e8..0000000
--- a/solenv/bin/langwrap
+++ /dev/null
@@ -1,142 +0,0 @@
-#!/usr/bin/perl -w
-#
-# 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 .
-#
-# langwrap - language wrapper for building resources
-#
-
-use Getopt::Std;
-
-###### globals ######
-
-$is_debug = 0;
-$nfield = 0;
-@LoL = ();
-@command = ();
-
-###### main ######
-
-# Version
-print "langwrap -- Version: 1.2\n";
-
-# Options
-&check_options();
-
-# parse command file
-&parse_commandfile($opt_c);
-
-# create list with command lines
-&create_commands();
-
-# finally execute commands
-foreach $cmd (@command) {
- if ($is_debug) {
- print $cmd . "\n";
- } else {
- system($cmd);
- $res = $? >> 8;
- if ($res) {
- print "langwrap: command execution failed with exitcode $res.\n";
- exit($res);
- }
- }
-}
-
-exit(0);
-
-###### routines ######
-
-### parse_commandfile()
-sub parse_commandfile {
- my($file) = shift;
- my(@field);
-
- open(COMMAND, "<$file") or die "can´t open $file";
-
- while (<COMMAND>) {
- $line = $_;
- chomp($line);
- if ( ($line =~ //) || ($line =~ /^\r/) || ($line =~ /^#/) ) {
- next;
- }
-
- @field = split " ", $line;
- push @LoL, [@field];
- if (!$nfield) {
- $nfield = $#field + 1;
- } else {
- if ( $nfield != ($#field + 1) ) {
- print "langwrap: error in <cmdfile>: every row must ";
- print "have the same # of columns.\n";
- exit(3);
- }
- }
- }
-
- close(COMMAND);
-}
-
-### create_command()
-sub create_commands() {
- my($cmd, $cmdline, $arg_string, $ntempl);
-
- $cmd = shift @ARGV;
- $arg_string = join(" ", @ARGV);
- # just count the number of templates
- $ntempl = ($arg_string =~ s/@\d+@/$&/eg);
- if ( $ntempl >= $nfield ) {
- print "lnagwrap: # of templates > # of fields in <cmdfile>.\n";
- exit(4);
- }
-
- # create command lines
- for $i (0..$#LoL) {
- $cmdline = $arg_string;
- $cmdline =~ s/@(\d+)@/$LoL[$i][$1]/eg;
- push @command, $cmd . " " . $cmdline;
- }
-}
-
-### check_options()
-sub check_options {
-
- if ( !getopts('c:') ) {
- &usage();
- }
-
- if ( !$opt_c ) {
- &usage();
- }
-
- if ( ! -r $opt_c ) {
- print "langwrap: $opt_c is not a readable file.\n";
- exit(2);
- }
-
- if ( $#ARGV < 1 ) {
- print "langwrap: empty <template_string>.\n";
- &usage();
- }
-}
-
-### usage()
-sub usage {
- print "Usage: langwrap -c cmdfile tool <template_string>\n";
- print "<template_string> is of form: ...\@1\@ .... \@2\@...\n";
- print "with \@<n>\@ template #n\n";
- exit(1);
-}
diff --git a/solenv/bin/leconvert.pl b/solenv/bin/leconvert.pl
deleted file mode 100644
index 0433305..0000000
--- a/solenv/bin/leconvert.pl
+++ /dev/null
@@ -1,82 +0,0 @@
-:
-eval 'exec perl -wS $0 ${1+"$@"}'
- if 0;
-#
-# 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 .
-#
-my $target_format = "";
-my @filelist;
-#my $debug=1;
-my $debug=0;
-
-parameter_parse(@ARGV);
-print "@filelist\n" if ( $debug );
-foreach my $onefile ( @filelist ) {
- convert_file( $onefile );
-}
-
-
-sub convert_file
-{
- my $filename = shift;
- if ( $target_format eq "dos" ) {
- $lineend = "\r\n";
- } else {
- $lineend = "\n";
- }
- open INFILE, "$filename"or die "ERROR: Couldn\'t open $filename for reading.\n";
- my @lines = <INFILE>;
- close INFILE;
-
- foreach my $oneline ( @lines ) {
- $oneline =~ s/\r*\n*$/$lineend/;
- }
-
- open OUTFILE, ">$filename" or die "ERROR: Couldn\'t open $filename for writing.\n";
- syswrite OUTFILE, join "", @lines;
- close OUTFILE;
-
-}
-
-sub parameter_parse
-{
- if ( $target_format eq "" ) {
- $target_format = shift ;
- usage() if ( $target_format ne "unix" && $target_format ne "dos" );
- usage() if ( $#_ == -1 );
- }
- foreach my $param ( @_ ) {
- if ( $param =~ "^@" ) {
- my $filename = $param;
- $filename =~ s/^@//;
- open CMDFILE, "$filename" or die "ERROR: Couldn\'t open $filename for reading.\n";
- my @filelist = <CMDFILE>;
- close CMDFILE;
- parameter_parse( @filelist );
- } else {
- push @filelist, $param;
- }
- }
-}
-
-sub usage
-{
- print "Convert text files to the desired lineend convention:\n";
- print "$0 <unix|dos> <FILE|\@filelist> [more files/lists]\n";
- exit 1;
-}
-
diff --git a/solenv/bin/licinserter.pl b/solenv/bin/licinserter.pl
deleted file mode 100644
index f95a396..0000000
--- a/solenv/bin/licinserter.pl
+++ /dev/null
@@ -1,129 +0,0 @@
-:
-eval 'exec perl -wS $0 ${1+"$@"}'
- if 0;
-#
-# 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 .
-#
-
-#
-# licinserter.pl - create license entries in extension description.xml
-#
-
-use File::Basename;
-
-my $langswitch;
-
-sub usage()
-{
- print STDERR "\nCreate extension descriptions with license-text entries\n";
- print STDERR "matching the language activated.\n";
- print STDERR "\nUsage:\n";
- print STDERR "\t$0 [--langsplit] infile \"naming pattern\" destination\n\n";
- print STDERR "\nExample:\n\n";
- print STDERR "$0 description.xml dir/license_xxx.txt outdir/description.xml\n\n";
- print STDERR "Creates \"someoutdir/description.xml\" with the license file entries
like\n\"dir/license_en.US.txt\" ";
- print STDERR "for all languages found in the WITH_LANG environment\nvariable\n\n\n";
- print STDERR "Example2:\n\n";
- print STDERR "$0 --langsplit description.xml dir/license_xxx.txt someoutdir\n\n";
- print STDERR "Creates \"someoutdir/<language>/description.xml\" with one license file
entry\n\"somedir/license_<language>.txt\" ";
- print STDERR "for all languages found in the WITH_LANG\nenvironment variable.\n\nNOTE: when
using --langsplit \"destination\" needs to be a directory\n";
-}
-
-if ( $ARGV[0] =~ /^-/ ) {
- $langswitch = shift @ARGV;
- if ( $langswitch ne "--langsplit" ) {
- usage();
- exit 1;
- }
- if ( ! -d $ARGV[2] ) {
- print STDERR "\nERROR - $ARGV[2] is not directory\n";
- usage();
- exit 2;
- }
-}
-
-if ( $#ARGV != 2 ) {
- print "zzz\n";
- usage();
- exit 1;
-}
-
-open INFILE,$ARGV[0] or die "oops - no such file $ARGV[0]!\n";
-
-my @inlines = <INFILE>;
-close INFILE;
-
-chomp @inlines;
-
-# Empty or unset WITH_LANG environment variable is set to default en-US.
-# When WITH_LANG is set but does not contain en-US then that is prepended.
-my $WithLang = $ENV{WITH_LANG};
-if ( ! defined $WithLang || $WithLang eq "")
-{
- $WithLang = "en-US";
-}
-elsif ($WithLang !~ /\ben-US\b/)
-{
- $WithLang = "en-US " . $WithLang;
-}
-
-
-if ( $langswitch eq "" ) {
- my @outlines;
- foreach my $i (@inlines) {
- if ( $i =~ /license-text/ ) {
- my $ii;
- my $name;
- foreach my $code ( split(/\s+/,$WithLang) ) {
- $ii = $i;
- $name = $ARGV[1];
- $name =~ s/xxx/$code/;
- $ii =~ s/isocode/$code/g;
- $ii =~ s?licensefile?$name?g;
- push @outlines, "$ii\n";
- }
- } else {
- push @outlines, "$i\n";
- }
- }
- open OUTFILE, ">$ARGV[2]" or die "ooops - can't open $ARGV[2] for writing\n";
- print OUTFILE @outlines;
- close OUTFILE or die "ooops - can't write to $ARGV[2]\n";
-} else {
- my @outlines;
- my $outname = basename($ARGV[0],());
- foreach my $code ( split(/\s+/,$ENV{WITH_LANG}) ) {
- @outlines=();
- foreach my $i (@inlines) {
- if ( $i =~ /license-text/ ) {
- my $name;
- my $ii = $i;
- $name = $ARGV[1];
- $name =~ s/xxx/$code/;
- $ii =~ s/isocode/$code/g;
- $ii =~ s?licensefile?$name?g;
- push @outlines, "$ii\n";
- } else {
- push @outlines, "$i\n";
- }
- }
- mkdir "$ARGV[2]/$code";
- open OUTFILE, ">$ARGV[2]/$code/$outname" or die "ooops - can't open
$ARGV[2]/$code/$outname for writing\n";
- print OUTFILE @outlines;
- close OUTFILE or die "ooops - can't write to $ARGV[2]/$code/$outname\n";
- }
-}
diff --git a/solenv/bin/make_ext_update_info.pl b/solenv/bin/make_ext_update_info.pl
deleted file mode 100644
index f8a9325..0000000
--- a/solenv/bin/make_ext_update_info.pl
+++ /dev/null
@@ -1,604 +0,0 @@
-:
-eval 'exec perl -wS $0 ${1+"$@"}'
- if 0;
-#
-# 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 .
-#
-
-#here the definition for d would be written into dependencies. The reason is that when the event
handler
-#for the element is called, we can only find out the namespace but not the prefix. So we cannot
-#distinguish if the namespace is used because the element was prefixed or because it uses the
default
-#namespace.
-use warnings;
-use strict;
-
-use XML::Parser;
-use Getopt::Long;
-use Carp;
-
-sub getUpdateInfoFileName($);
-sub writeUpdateInformationData($);
-sub findAttribute($$);
-sub getNotDefPrefs($$$);
-sub collectPrefixes($$$$);
-sub determineNsDefinitions($$$);
-sub determineNsDefinitionForItem($$$);
-
-my $inDescription = 0;
-my $inDependencies = 0;
-my $inIdentifier = 0;
-my $inVersion = 0;
-my $descNS = "http://openoffice.org/extensions/description/2006";;
- my $indent;
-my $identifier;
-my $version;
-
-#contains prefixes and the corresponding namespaces which are used in the <dependencies>
-#element and all children of the description.xml
-my @usedNsInDependencies;
-
-#Maps prefix to namespaces which are valid in <dependencies>. That is, they are
-#either defined in <dependencies> or in the hirarchy above <dependencies>
-my %validPrefsInDep;
-#Contains the prefixes which are defined in <dependencies>
-my @newPrefsInDep;
-#Contains the prefixes/namespaces which need to be defined in <dependencies> but which are
currently
-#not. For example a prefix is defined in the parent and is used in a child of <dependencies>
-my %notDefInDep;
-
-#prefix used in start and end element
-my $prefix;
-
-#The default namespace valid in <dependencies>
-my $defNsInDep;
-#The prefix which we use for the default namespace used in <dependencies>
-my $generatedPrefix;
-
-my $helptext =
-"make_ext_update_info.pl produces an update information file for an extension. ".
-"It will use a dummy URL as URL for the extension update unless a URL has been ".
-"provided with the --update_url option. The name of the update ".
-"information file, which must be provided with the --out switch, should be formed ".
-"according to this scheme: \n\n".
-"extension_identifier.update.xml\n\n".
-"extension_identifier should correspond to the extension identifier. In some cases ".
-"this may not be possible because the identifier may contain characters which are not ".
-"allowd in file names.\n\n".
-"usage:\n".
-"perl make_ext_update_info.pl [--help][--update_url url] --out update_information_file
description.xml \n\n".
-"Options: \n".
-"--help - prints the help message and exits \n".
-"--out file - the update information file to be written including the path \n".
-"--update-url url - inserts the url under the <update-download> element. It may be necessary to
enclose the urls in quotes in case they contain characters such as \"?\". ".
-"It can be used multiple times\n\n";
-
-#handling of arguments
-my $help = 0;
-my $out;
-my @update_urls;
-if (!GetOptions('help|?' => \$help,
- 'out=s' => \$out,
- 'update-url=s'=> \@update_urls))
-{
- print $helptext;
- exit -1;
-}
-my $cArgs = scalar @ARGV;
-die "You need to provide a description.xml\n\n$helptext" if $cArgs ==0;
-die "You need to provide the name of the update information file ".
- "with the --out switch.\n" unless ($out);
-die "Too many arguments. \n\n$helptext" if $cArgs > 1;
-print $helptext if $help;
-
-
-#open the update information file for writing
-my $FH;
-open $FH, "> $out" or die $!;
-
-#write the xml header and root element
-print $FH '<?xml version="1.0" encoding="UTF-8"?>', "\n";
-print $FH '<description xmlns="http://openoffice.org/extensions/update/2006";', "\n";
-print $FH ' xmlns:xlink="http://www.w3.org/1999/xlink";>', "\n";
-
-#obtain from description.xml the data for the update information
-writeUpdateInformationData($ARGV[0]);
-#We will die if there is no <version> or <identifier> in the description.xml
-die "Error: The description.xml does not contain a <identifier> element.\n" unless $identifier;
-die "Error: The description.xml does not contain a <version> element. \n" unless $version;
-
-#write the write the update-download element and the children.
-#the indention of <update-download> corresponds to that of <version>
-print $FH ' 'x$indent, '<update-download>', "\n";
-#check if update-urls have been provided through --update-url option
-if (scalar @update_urls)
-{
- my $urlIndent = $indent > 8 ? 8 : 2 * $indent;
- #use provided urls
- for (@update_urls)
- {
- print $FH ' 'x$urlIndent, '<src xlink:href="'.$_.'" />', "\n";
- }
-}
-else
-{
- #use dummy update url
- print $FH ' 'x8, '<src xlink:href="http://extensions.openoffice.org/testarea/dummy.oxt"; />',
"\n";
-}
-print $FH ' 'x$indent, '</update-download>', "\n";
-
-print $FH '</description>', "\n";
-close $FH;
-
-exit 0;
-
-
-
-sub start_handler
-{
- my $parser = shift;
- my $name = shift;
-
- if ($name eq "description"
- && $descNS eq $parser->namespace($name))
- {
- $inDescription = 1;
- }
- elsif ($inDescription
- && $name eq "version"
- && $descNS eq $parser->namespace($name))
- {
- $inVersion = 1;
- $version = 1;
- $indent = $parser->current_column();
- print $FH " "x$indent, $parser->original_string();
- }
- elsif ($inDescription
- && $name eq "identifier"
- && $descNS eq $parser->namespace($name))
- {
- $inIdentifier = 1;
- $identifier = 1;
- print $FH " "x$parser->current_column(), $parser->original_string();
- }
- elsif ($inDescription
- && $name eq "dependencies"
- && $descNS eq $parser->namespace($name))
- {
- $inDependencies = 1;
- my $dep = $parser->original_string();
- #add the additional namespace definitions, which we have discovered during the first
- #parsing
- #cut of the closing > or /> from the start element, so we can append the namespace
definitions
- $dep =~ /(\s*<.*) ((\s*\/>)|(\s*>))/x;
- my $dep1 = $1;
- $dep1.= " xmlns:".$_.'="'.$notDefInDep{$_}.'"' for (keys %notDefInDep);
- $dep1.= $2;
- print $FH " "x$parser->current_column(), $dep1;
- }
- elsif ($inDependencies)
- {
- #$prefix is global because we need to use it in the end element as well.
- $prefix = "";
- my $fullString;
- my $orig = $parser->original_string();
- #Split up the string so we can insert the prefix for the element.
- # <OpenOffice.org-minimal-version>
- # <d:OpenOffice.org-minimal-version>
- $orig=~/(\s*<)(.*?)\s/x;
- #in $2 is the element name, look for the prefix
- if ($2 !~/(.*?):/ && $parser->namespace($name)) {
- #no prefix, that is element uses default namespace.
- #Now check if the default namespace in <dependencies> is the same as the one in this
- #element. If not, then the default ns was defined "after" <dependencies>. Because all
- #children of <dependencies> are copied into the update information, so will this
default
- #namespace definition. Hence this element will have the same default namespace in the
- #update information.
- my $defNsDep = $validPrefsInDep{"#default"};
- #we must have #default, see the if statement above
- my $defNsCur = $parser->expand_ns_prefix("#default");
-
- if ($defNsDep eq $defNsCur) {
- #Determine if there is in <dependency> a prefix defined (only valid there and need
not
- #directly defined in this element). If there is no prefix defined then we will
- #add a new definition to <dependencies>.
- for (keys %validPrefsInDep) {
- if (($validPrefsInDep{$_} eq $defNsDep) && $_ ne "#default") {
- $prefix = $_; last;
- }
- }
- if (! $prefix) {
- #If there was no prefix, we will add new prefix definition to <dependency>
- #Which prefix this is has been determined during the first parsing.
- for (keys %notDefInDep) {
- if (($notDefInDep{$_} eq $defNsCur) && $_ ne "#default") {
- $prefix = $_; last;
- }
- }
- }
- #die if we have no prefix
- confess "No prefix defined for default namespace " unless $prefix;
- #get the full part after <
- $orig=~/(\s*<)(.*)/x;
- $fullString= $1.$prefix.":".$2;
- }
-
- }
- $fullString = $orig unless $fullString;
-
- # We record anything within <dependencies> </dependencies>.
- print $FH $fullString;
- }
-}
-
-sub end_handler
-{
- my $parser = shift;
- my $name = shift;
-
- if ($name eq "description"
- && $descNS eq $parser->namespace($name))
- {
- $inDescription = 0;
- }
- elsif ($inDescription
- && $name eq "version"
- && $descNS eq $parser->namespace($name))
- {
- $inVersion = 0;
- print $FH $parser->original_string(), "\n";
- }
- elsif ($inDescription
- && $name eq "identifier"
- && $descNS eq $parser->namespace($name))
- {
- $inIdentifier = 0;
- print $FH $parser->original_string(), "\n";
- }
- elsif($inDescription
- && $name eq "dependencies"
- && $descNS eq $parser->namespace($name))
- {
- $inDependencies = 0;
- print $FH $parser->original_string(), "\n";
- }
- elsif ($inDependencies)
- {
- my $orig = $parser->original_string();
- #$orig is empty if we have tags like this: <name />
- if ($orig && $prefix) {
- $orig=~/(\s*<\/)(.*)/x;
- $orig= $1.$prefix.":".$2;
- }
- print $FH $orig;
- }
-}
-
-#We write the complete content between start and end tags of
-# <identifier>, <version>, <dependencies>
-sub default_handler
-{
- my $parser = shift;
- my $name = shift;
- if ($inIdentifier || $inVersion) {
- print $FH $parser->original_string();
- } elsif ($inDependencies) {
- print $FH $parser->original_string();
- }
-
-} # End of default_handler
-
-#sax handler used for the first parsing to recognize the used prefixes in <dependencies > and its
-#children and to find out if we need to define a new prefix for the current default namespace.
-sub start_handler_infos
-{
- my $parser = shift;
- my $name = shift;
- if ($name eq "description"
- && $descNS eq $parser->namespace($name)) {
- $inDescription = 1;
- }
- elsif ($inDescription
- && $name eq "dependencies"
- && $descNS eq $parser->namespace($name)) {
- $inDependencies = 1;
- #build the map of prefix/namespace which are valid in <dependencies>
- my @cur = $parser->current_ns_prefixes();
- for (@cur) {
- $validPrefsInDep{$_} = $parser->expand_ns_prefix($_);
- }
- #remember the prefixes defined in <dependencies>
- @newPrefsInDep = $parser->new_ns_prefixes();
-
- collectPrefixes($parser, $name, \@_, \@usedNsInDependencies);
- return if $generatedPrefix;
-
- #determine if need to create a new prefix for the current element if it uses a default ns.
- #Split up the string so we can see if there is a prefix used
- # <OpenOffice.org-minimal-version>
- # <d:OpenOffice.org-minimal-version>
- my $orig = $parser->original_string();
- $orig=~/(\s*<)(.*?)\s/x;
- #in $2 is the element name, look for the prefix
- if ($2 !~/(.*?):/ && $parser->namespace($name)) {
- #no prefix, that is element uses default namespace.
- #Now check if the default namespace in <dependencies> is the same as the one in this
- #element. If not, then the default ns was defined "after" <dependencies>. Because all
- #children of <dependencies> are copied into the update information, so will this
default
- #namespace definition. Hence this element will have the same default namespace in the
- #update information.
- my $defNsDep = $validPrefsInDep{"#default"};
- #we must have #default, see the if statement above
- my $defNsCur = $parser->expand_ns_prefix("#default");
-
- if ($defNsDep eq $defNsCur) {
- #Determine if there is in <dependency> a prefix defined (only valid there and need
not
- #directly defined in this element). If there is no prefix defined then we will
- #add a new definition to <dependencies>.
- for (keys %validPrefsInDep) {
- if (($validPrefsInDep{$_} eq $defNsDep) && $_ ne "#default") {
- $prefix = $_; last;
- }
- }
-
- if (! $prefix) {
-
- #define a new prefix
- #actually there can be only onle prefix, which is the case when the element
- #uses the same default namespace as <dependencies> otherwise, the default
- #namespace was redefined by the children of <dependencies>. These are
completely
- #copied and still valid in the update information file
- $generatedPrefix = "a";
- $defNsInDep = $defNsDep;
- }
- }
- }
-
- }
- elsif ($inDependencies) {
- determineNsDefinitions($parser, $name, \@_);
- collectPrefixes($parser, $name, \@_, \@usedNsInDependencies);
- }
-}
-#sax handler used for the first parsing to recognize the used prefixes in <dependencies > and its
-#children
-sub end_handler_infos
-{
- my $parser = shift;
- my $name = shift;
-
- if ($name eq "description"
- && $descNS eq $parser->namespace($name)) {
- $inDescription = 0;
- }
- elsif($inDescription
- && $name eq "dependencies"
- && $descNS eq $parser->namespace($name)) {
- $inDependencies = 0;
- }
-}
-
-sub writeUpdateInformationData($)
-{
- my $desc = shift;
- {
- #parse description xml to collect information about all used
- #prefixes and names within <dependencies>
-
- my $parser = new XML::Parser(ErrorContext => 2,
- Namespaces => 1);
- $parser->setHandlers(Start => \&start_handler_infos,
- End => \&end_handler_infos);
-
- $parser->parsefile($desc);
-
-
- }
- #remove duplicates in the array containing the prefixes
- if ($generatedPrefix) {
- my %hashtmp;
- @usedNsInDependencies = grep(!$hashtmp{$_}++, @usedNsInDependencies);
-
- #check that the prefix for the default namespace in <dependencies> does not clash
- #with any other prefixes
- my $clash;
- do {
- $clash = 0;
- for (@usedNsInDependencies) {
- if ($_ eq $generatedPrefix) {
- $generatedPrefix++;
- $clash = 1; last;
- }
- }
- } while ($clash);
- $notDefInDep{$generatedPrefix} = $defNsInDep;
- }
- #if $notDefInDep contains the prefix #default then we need to add the generated prefix as well
-
- #add the special prefix for the default namespace into the map of prefixes that will be
- #added to the <dependencies> element in the update information file
-
-
- ($inDependencies, $inDescription) = (0,0);
- {
- my $parser = new XML::Parser(ErrorContext => 2,
- Namespaces => 1);
- $parser->setHandlers(
- Start => \&start_handler,
- End => \&end_handler,
- Default => \&default_handler);
- $parser->parsefile($desc);
- }
-}
-
-# param 1: name of the attribute we look for
-# param 2: array of name value pairs, the first subscript is the attribute and the second
-# is the value.
-sub findAttribute($$)
-{
- my ($name, $args_r) = @_;
- my @args = @{$args_r};
- my $value;
- while (my $attr = shift(@args))
- {
- if ($attr eq $name) {
- $value = shift(@args);
- die "href attribut has no valid URL" unless $value;
- last;
- } else { # shift away the following value for the attribute
- shift(@args);
- }
- }
- return $value;
-}
-
-#collect the prefixes used in an xml element
-#param 1: parser,
-#param 2: element name,
-#param 3: array of name and values of attributes
-#param 4: out parameter, the array containing the prefixes
-sub collectPrefixes($$$$)
-{
- my $parser = shift;
- my $name = shift;
- my $attr_r = shift;
- my $out_r = shift;
- #get the prefixes which are currently valid
- my @cur = $parser->current_ns_prefixes();
- my %map_ns;
- #get the namespaces for the prefixes
- for (@cur) {
- if ($_ eq '#default') {
- next;
- }
- my $ns = $parser->expand_ns_prefix($_);
- $map_ns{$ns} = $_;
- }
- #investigat ns of element
- my $pref = $map_ns{$parser->namespace($name)};
- push(@{$out_r}, $pref) if $pref;
- #now go over the attributes
-
- while (my $attr = shift(@{$attr_r})) {
- my $ns = $parser->namespace($attr);
- if (! $ns) {
- shift(@{$attr_r});
- next;
- }
- $pref = $map_ns{$ns};
- push( @{$out_r}, $pref) if $pref;
- shift(@{$attr_r});
- }
- #also add newly defined prefixes
- my @newNs = $parser->new_ns_prefixes();
- for (@newNs) {
- if ($_ eq '#default') {
- next;
- }
- push (@{$out_r}, $_);
- }
-}
-
-#The function is called for each child element of dependencies. It finds out the prefixes
-#which are used by the children and which are defined by the parents of <dependencies>. These
-#would be lost when copying the children of <dependencies> into the update information file.
-#Therefore these definitions are collected so that they then can be written in the <dependencies>
-#element of the update information file.
-#param 1: parser
-#param 2: namsepace
-#param 3: the @_ received in the start handler
-sub determineNsDefinitions($$$)
-{
- my ($parser, $name, $attr_r) = @_;
- my @attr = @{$attr_r};
-
- determineNsDefinitionForItem($parser, $name, 1);
-
- while (my $attr = shift(@attr)) {
- determineNsDefinitionForItem($parser, $attr, 0);
- shift @attr;
- }
-}
-
-#do not call this function for the element that does not use a prefix
-#param 1: parser
-#param 2: name of the element or attribute
-#param 3: 1 if called for an elment name and 0 when called for attribue
-sub determineNsDefinitionForItem($$$)
-{
- my ($parser, $name) = @_;
- my $ns = $parser->namespace($name);
- if (! $ns) {
- return;
- }
- #If the namespace was not kwown in <dependencies> then it was defined in one of its children
- #or in this element. Then we are done since this namespace definition is copied into the
- #update information.
- my $bNsKnownInDep;
- for ( keys %validPrefsInDep) {
- if ( $validPrefsInDep{$_} eq $ns) {
- $bNsKnownInDep = 1;
- last;
- }
- }
- #If the namespace of the current element is known in <dependencies> then check if the same
- #prefix is used. If not, then the prefix was defined in one of the children of <dependencies>
- #and was assigned the same namespace. Because we copy of children into the update information,
- #this definition is also copied.
- if ($bNsKnownInDep) {
- #create a map of currently valid prefix/namespace
- my %curPrefToNs;
- my @curNs = $parser->current_ns_prefixes();
- for (@curNs) {
- $curPrefToNs{$_} = $parser->expand_ns_prefix($_);
- }
- #find the prefix used in <dependencies> to define the namespace of the current element
- my $validDepPref;
- for (keys %validPrefsInDep) {
- if ($validPrefsInDep{$_} eq $ns) {
- #ignore #default
- next if $_ eq "#default";
- $validDepPref = $_;
- last;
- }
- }
- #find the prefix defined in the current element used for the namespace of the element
- my $curPref;
- for (keys %curPrefToNs) {
- if ($curPrefToNs{$_} eq $ns) {
- #ignore #default
- next if $_ eq "#default";
- $curPref = $_;
- last;
- }
- }
- if ($curPref && $validDepPref && ($curPref eq $validDepPref)) {
- #If the prefixes and ns are the same, then the prefix definition of <dependencies> or
its
- #parent can be used. However, we need to find out which prefixed are NOT defined in
- #<dependencies> so we can add them to it when we write the update information.
- my $bDefined = 0;
- for (@newPrefsInDep) {
- if ($curPref eq $_) {
- $bDefined = 1;
- last;
- }
- }
- if (! $bDefined) {
- $notDefInDep{$curPref} = $ns;
- }
- }
- }
-}
diff --git a/solenv/bin/makedepn b/solenv/bin/makedepn
deleted file mode 100755
index 4b90fd1..0000000
--- a/solenv/bin/makedepn
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/bin/sh -e
-#
-# 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 .
-#
-if [ -z "$1" ]; then
- exit 1;
-fi
-infile=`echo "$1" | sed 's/^@//'`
-for i in `cat "$infile"`; do
- i=`echo "$i" | fgrep -- "-O:" | awk -F: '{print $2}'`
- if [ ! -z "$i" ]; then
- echo "#" > "$i"
- exit 0;
- fi;
-done
-exit 1
diff --git a/solenv/bin/makemani.pl b/solenv/bin/makemani.pl
deleted file mode 100644
index 94c5f7f..0000000
--- a/solenv/bin/makemani.pl
+++ /dev/null
@@ -1,95 +0,0 @@
-#! /usr/bin/perl -w
- eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
- if 0; #$running_under_some_shell
-#
-# 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 .
-#
-
-use strict;
-use File::Find ();
-use Cwd qw (cwd);
-
-my @findlist;
-
-# Set the variable $File::Find::dont_use_nlink if you're using AFS,
-# since AFS cheats.
-
-# for the convenience of &wanted calls, including -eval statements:
-use vars qw/*name *dir *prune/;
-*name = *File::Find::name;
-*dir = *File::Find::dir;
-*prune = *File::Find::prune;
-
-sub wanted;
-
-
-
-sub wanted {
- /^.*\.xc(s|u)\z/s
- && ( push @findlist, $name );
-}
-
-sub usage
-{
- print STDERR "\n$0 - append *.xcu file entries to .oxt manifest.xml\n\n";
- print STDERR "usage: $0 <static_part> <start dir> <search dir> <destination dir>\n\n";
- print STDERR " static part - file containig all other content for mainfest.xml\n";
- print STDERR " start dir - directory to change to before starting search\n";
- print STDERR " out dir - destination directory to write manifes.xml to\n\n";
- exit 1;
-}
-
-if ( $#ARGV != 3 ) { usage(); };
-
-my $manifest_head = $ARGV[0];
-my $start_dir = $ARGV[1];
-my $dynamic_dir = $ARGV[2];
-my $out_dir = $ARGV[3];
-
-# Traverse desired filesystems
-my $work_dir = cwd();
-chdir $start_dir or die "$0: ERROR - cannot change directory to \"$start_dir\"\n";
-File::Find::find({wanted => \&wanted}, $dynamic_dir);
-chdir $work_dir or die "$0: ERROR - oops... cannot change dir to where i came from!\n";
-
-open (HEAD, "$manifest_head") or die "$0: ERROR - Cannot open $manifest_head\n";
-my @headlines = <HEAD>;
-close HEAD;
-chomp @headlines;
-chomp @findlist;
-
-my @bodylines;
-my @taillines = ("</manifest:manifest>");
-
-foreach my $i (@findlist) {
- if ($i =~ m/^.*\.xcu\z/s) {
- push @bodylines, " <manifest:file-entry
manifest:media-type=\"application/vnd.sun.star.configuration-data\"";
- } else {
- push @bodylines, " <manifest:file-entry
manifest:media-type=\"application/vnd.sun.star.configuration-schema\"";
- }
- push @bodylines, " manifest:full-path=\"$i\"/>";
-}
-
-open (MANIOUT,">$out_dir/manifest.xml") or die "$0: ERROR - cannot open \"$out_dir/manifest.xml\"
for writing.\n";
-binmode MANIOUT;
-
-foreach my $j (@headlines, @bodylines, @taillines) {
- print MANIOUT "$j\n";
-}
-
-close MANIOUT;
-
diff --git a/solenv/bin/mapgen.pl b/solenv/bin/mapgen.pl
deleted file mode 100644
index d336e63..0000000
--- a/solenv/bin/mapgen.pl
+++ /dev/null
@@ -1,196 +0,0 @@
-:
-eval 'exec perl -wS $0 ${1+"$@"}'
- if 0;
-#
-# 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 .
-#
-
-#
-# mapgen - generate a map file for Unix libraries
-#
-
-#use File::Path;
-#use File::Copy;
-
-#### script id #####
-
-( $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/;
-print "$script_name -- version: 1.6\n";
-print "Multi Platform Enabled Edition\n";
-
-#########################
-# #
-# Globale Variablen #
-# #
-#########################
-
-$dump_file = '';
-$flt_file = '';
-$map_file = '';
-$first_string = '';
-$tab = ' ';
-
-#### main ####
-
-&get_options;
-if (!(open (DUMP_FILE, $dump_file))) {
- &print_error("Unable open $dump_file");
-};
-if (!(open (FLT_FILE, $flt_file))) {
- close DUMP_FILE;
- &print_error("Unable open $flt_file");
-};
-unlink $map_file;
-if (!(open (MAP_FILE, ">>$map_file"))) {
- close DUMP_FILE;
- close FLT_FILE;
- &print_error("Unable open $map_file");
-};
-
-if ($ENV{OS} eq 'SOLARIS') {
- &gen_sol;
-} elsif ($ENV{OS} eq 'LINUX') {
- &gen_lnx;
-} else {
- &print_error ('Environment not set!!');
-};
-
-close DUMP_FILE;
-close FLT_FILE;
-close MAP_FILE;
-
-#### end of main procedure ####
-
-#########################
-# #
-# Procedures #
-# #
-#########################
-
-#
-# Generate a map file for solaris
-#
-sub gen_sol {
- my %symbols = ();
- foreach (<DUMP_FILE>) {
- next if
(!(/\s*(\S+)\s*\|\s*(\S+)\s*\|\s*(\S+)\s*\|\s*(\S+)\s*\|\s*(\S+)\s*\|\s*(\S+)\s*\|\s*(\S+)\s*\|\s*(\S+)\s*/));
- next if (($7 =~ /UNDEF/) || ($7 =~ /ABS/));
- next if ($5 eq 'LOCL');
- $symbols{$8}++;
- };
- &filter_symbols(\%symbols);
-};
-
-#
-# Generate a map file for linux
-#
-sub gen_lnx {
- my %symbols = ();
- foreach (<DUMP_FILE>) {
- next if (!(/^\S+ [A|B|C|D|G|I|N|R|S|T|U|V|W|-|\?|-] (\S+)/));
- $symbols{$1}++;
- };
- &filter_symbols(\%symbols);
-}
-
-#
-# Filter symbols with filters from $flt_file
-#
-sub filter_symbols {
- my $symbols = shift;
- my $env_section = '';
- my @filters = ();
- my @filtered_symbols = ();
- while (<FLT_FILE>) {
- s/\r//;
- s/\n//;
- $env_section = '1' and next if ((/^# SOLARIS #$/) && ($ENV{OS} eq 'SOLARIS'));
- $env_section = '1' and next if ((/^# LINUX #$/) && ($ENV{OS} eq 'LINUX'));
- $env_section = '1' and next if ((/^# FREEBSD #$/) && ($ENV{OS} eq 'FREEBSD'));
- $env_section = '1' and next if ((/^# NETBSD #$/) && ($ENV{OS} eq 'NETBSD'));
- $env_section = '1' and next if ((/^# OPENBSD #$/) && ($ENV{OS} eq 'OPENBSD'));
- $env_section = '1' and next if ((/^# DRAGONFLY #$/) && ($ENV{OS} eq 'DRAGONFLY'));
- last if ($env_section && ((/^# SOLARIS #$/) || (/^# FREEBSD #$/) || (/^# LINUX #$/) ||
(/^# NETBSD #$/) || (/^# OPENBSD #$/) (/^# DRAGONFLY #$/)));
- next if (!$_ || /^#/);
- push(@filters, $_);
- };
- foreach my $symbol (keys %$symbols) {
- my $export = '-';
- foreach my $filter_str (@filters) {
- my $add = substr ($filter_str, 0, 1);
- my $filter = substr($filter_str, 1);
- if ($symbol =~ /$filter/) {
- $export = $add;
- };
- };
- if ($export eq '+') {
- push(@filtered_symbols, $symbol);
- };
- };
- &write_mapfile(\@filtered_symbols);
-};
-
-#
-# Write a map file
-#
-sub write_mapfile {
- my $symbols = shift;
- print MAP_FILE $first_string . " {\n$tab" . "global:\n";
- foreach (@$symbols) {
- print MAP_FILE "$tab$tab$_\;\n";
- };
- print MAP_FILE "$tab" . "local:\n$tab\*\;\n}\;";
-};
-
-#
-# Get all options passed
-#
-sub get_options {
-
-$dump_file = '';
-$flt_file = '';
-$map_file = '';
- my ($arg);
- &usage() && exit(0) if ($#ARGV == -1);
- while ($arg = shift @ARGV) {
- $arg =~ /^-d$/ and $dump_file = shift @ARGV and next;
- $arg =~ /^-f$/ and $flt_file = shift @ARGV and next;
- $arg =~ /^-m$/ and $map_file = shift @ARGV and next;
- $arg =~ /^-h$/ and &usage and exit(0);
- $arg =~ /^--help$/ and &usage and exit(0);
- $arg =~ /^-s$/ and $first_string = shift @ARGV and next;
- };
- if (!$dump_file ||
- !$flt_file ||
- !$first_string ||
- !$map_file) {
- &usage;
- exit(1);
- };
-};
-
-sub print_error {
- my $message = shift;
- print STDERR "\nERROR: $message\n";
- exit(1)
-};
-
-sub usage {
- print STDERR "\nmapgen:\n";
- print STDERR "Syntax: mapgen -d dump_file -s first_string -f filter_file -m map_file
[-h|--help]\n";
-};
-
diff --git a/solenv/bin/mkdir.pl b/solenv/bin/mkdir.pl
deleted file mode 100644
index a3bf010..0000000
--- a/solenv/bin/mkdir.pl
+++ /dev/null
@@ -1,82 +0,0 @@
-: # -*- perl -*-
-eval 'exec perl -wS $0 ${1+"$@"}'
- if 0;
-
-#
-# 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 .
-#
-#
-# mkdir - a perl script to substitute mkdir -p
-# accepts "/", ":", and "\" as delimiters of subdirectories
-# options -p (for compatibility)
-# -mode mode
-#
-
-use Cwd;
-
-$currdir = cwd;
-
-$MODE = 00777 ;
-
-while ( $#ARGV >= 0 ) {
- if ( $ARGV[0] eq "-mode" ) {
- $MODE = oct $ARGV[1] ;
- shift @ARGV ;
- shift @ARGV ;
- }
- elsif ( $ARGV[0] eq "-p" ) {
- shift @ARGV ;
- # -p does not do anything, it's supported just for compatibility
- }
- else {
-
- $ARGV[0] =~ s?\\|:?/?g ;
- @SUBDIRS = split "/", $ARGV[0] ;
-
- # absolute path UNIX
- if ( $SUBDIRS[0] eq "" ) {
- chdir '/' ;
- shift @SUBDIRS ;
- }
- # absolute path WINDOWS
- if ( $#SUBDIRS > 1 ) {
- if ( $SUBDIRS[1] eq "" ) {
- if ( $SUBDIRS[0] =~ /\w/ ) {
- chdir "$SUBDIRS[0]:\\" ;
- shift @SUBDIRS ;
- shift @SUBDIRS ;
- } ;
- } ;
- }
-
- while (@SUBDIRS) {
- if ( -e $SUBDIRS[0] ) {
- if ( ! -d $SUBDIRS[0] ) {
- die "file exists\n"
- }
- }
- else {
- mkdir $SUBDIRS[0], $MODE or die "Can't create directory $SUBDIRS[0]"
- }
- chdir $SUBDIRS[0] or die "Can't cd to $SUBDIRS[0]" ;
- shift @SUBDIRS ;
- } ;
-
- shift @ARGV ;
- } ;
- chdir $currdir;
-}
diff --git a/solenv/bin/mkout.pl b/solenv/bin/mkout.pl
deleted file mode 100755
index 3b5b6ec..0000000
--- a/solenv/bin/mkout.pl
+++ /dev/null
@@ -1,147 +0,0 @@
-:
-eval 'exec perl -wS $0 ${1+"$@"}'
- if 0;
-#
-# 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 .
-#
-
-#
-# mkout.pl - create output tree
-#
-
-use Cwd;
-use Getopt::Std;
-use File::Path;
-
-#### script id #####
-
-( $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/;
-
-#### globals ####
-
-$is_debug = 0;
-
-$base_dir = 0; # path to module base directory
-$dir_mode = 0755; # default directory creation mode
-
-$envpath = 0; # platform/product combination
-$opt_r = 0; # create 'remote' subdirs
-
-%sub_dirs = (
-# dirname remote(yes/no)
- 'bin' => 1,
- 'class' => 0,
- 'inc' => 0,
- 'lib' => 1,
- 'misc/logs' => 1,
- 'obj' => 1,
- 'res' => 1,
- 'slb' => 1,
- 'slo' => 1,
- 'srs' => 1
- );
-
-#### main ####
-
-parse_options();
-init_globals();
-create_dirs();
-
-exit(0);
-
-#### subroutines #####
-
-sub parse_options {
- my $rc;
-
- $rc = getopts('r');
-
- if ( !$rc || $#ARGV > 0 ) {
- usage();
- exit(1);
- }
- $envpath = $ARGV[0] if defined($ARGV[0]);
-}
-
-sub init_globals {
- my $umask;
- $base_dir = get_base();
- print "Base_Diri=$base_dir\n" if $is_debug;
-
- $umask = umask();
- if ( defined($umask) ) {
- $dir_mode = 0777 - $umask;
- }
- $envpath = $ENV{INPATH} unless $envpath;
-
- if ( !$envpath ) {
- print_error("can't determine platform/environment");
- exit(3);
- }
- print "Platform/Environment: $envpath\n" if $is_debug;
-}
-
-sub get_base {
- # a module base dir contains a subdir 'prj'
- # which in turn contains a file 'd.lst'
- my (@field, $base, $dlst);
- my $path = cwd();
-
- @field = split(/\//, $path);
-
- while ( $#field != -1 ) {
- $base = join('/', @field);
- $dlst = $base . '/prj/d.lst';
- last if -e $dlst;
- pop @field;
- }
-
- if ( $#field == -1 ) {
- print_error("can't determine module");
- exit(2);
- }
- else {
- return $base;
- }
-}
-
-sub create_dirs {
- foreach $dir ( keys %sub_dirs ) {
- $path = $base_dir . '/' . $envpath . '/' . $dir;
- if ( $opt_r && $sub_dirs{$dir} ) {
- $path .= "/remote";
- }
- eval { mkpath($path, 0, $dir_mode) };
- if ( $@ ) {
- print_error( "$@" );
- }
- print "Create path: $path\n" if $is_debug;
- }
-}
-
-sub print_error {
- my $message = shift;
-
- print STDERR "$script_name: ERROR: $message\n";
-}
-
-sub usage {
- print STDERR "Usage:\n$script_name [-r] [platform/environment]\n";
- print STDERR "Options:\n -r create 'remote' directories\n";
-}
-
-# vim: set ts=4 shiftwidth=4 expandtab syntax=perl:
diff --git a/solenv/bin/packager.pl b/solenv/bin/packager.pl
deleted file mode 100644
index d8ccd00..0000000
--- a/solenv/bin/packager.pl
+++ /dev/null
@@ -1,51 +0,0 @@
-#
-# 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 .
-#
-
-use lib ("$ENV{SOLARENV}/bin/modules");
-
-use Cwd;
-use packager::check;
-use packager::files;
-use packager::globals;
-use packager::work;
-
-####################################
-# Main program
-####################################
-
-packager::check::check_environment();
-packager::check::check_packlist();
-packager::check::check_parameter();
-
-packager::work::set_global_variable();
-
-my $packagelist = packager::files::read_file($packager::globals::packlistname);
-
-my $targets = packager::work::create_package_todos($packagelist);
-
-packager::work::execute_system_calls($targets);
-
-if ( $packager::globals::logging )
-{
- packager::files::save_file($packager::globals::logfilename, \@packager::globals::logfileinfo);
- print "Log file written: $packager::globals::logfilename\n";
-}
-
-####################################
-# End main program
-####################################
diff --git a/solenv/bin/patch_sanitizer.pl b/solenv/bin/patch_sanitizer.pl
deleted file mode 100644
index 81c83ce..0000000
--- a/solenv/bin/patch_sanitizer.pl
+++ /dev/null
@@ -1,117 +0,0 @@
-:
-eval 'exec perl -wS $0 ${1+"$@"}'
- if 0;
-#
-# 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 .
-#
-
-use utf8;
-use warnings;
-use strict;
-
-# command line arguments
-my $oldpatchfile = shift;
-my $newpatchfile = shift;
-my $sortedfile = shift;
-
-show_help() unless defined $oldpatchfile and defined $newpatchfile and defined $sortedfile;
-
-my %oldpatchfile = parse_patch($oldpatchfile);
-my %newpatchfile = parse_patch($newpatchfile);
-
-open SORTEDPATCH, "> $sortedfile";
-
-foreach my $file (sort (keys %newpatchfile)) {
- print SORTEDPATCH $file."\t";
- if (defined($oldpatchfile{$file})) {
- if ( (join '', @{$oldpatchfile{$file}{'data'}}) eq (join '',
@{$newpatchfile{$file}{'data'}}) ) {
- # patch data for the file hasn't been modified, use the header from
- # the old patch, to reduce noise (keep the old timestamps)
- print SORTEDPATCH $oldpatchfile{$file}{'origtimestamp'}."\n";
- print SORTEDPATCH $oldpatchfile{$file}{'patchedfilename'}."\t";
- print SORTEDPATCH $oldpatchfile{$file}{'patchedtimestamp'}."\n";
- print SORTEDPATCH @{$oldpatchfile{$file}{'data'}};
- next;
- }
- }
- # either file wasn't patched before, or the patchset changed, so use the new
- # values for it..
- print SORTEDPATCH $newpatchfile{$file}{'origtimestamp'}."\n";
- print SORTEDPATCH $newpatchfile{$file}{'patchedfilename'}."\t";
- print SORTEDPATCH $newpatchfile{$file}{'patchedtimestamp'}."\n";
- print SORTEDPATCH @{$newpatchfile{$file}{'data'}};
-}
-close SORTEDPATCH;
-
-###############
-# Helper subs
-###############
-sub show_help {
- print "Usage: $0 oldpatch newpatch outputfilename\n";
- print "oldpatch and newpatch can be the very same file\n";
- print "will output a sanitized form of newpatch to outputfilename\n";
- print "if outputfilename is '-', the patch will be printed to stdout\n";
- print "sanitized means: It will avoid all unnecessary changes\n";
- exit 1;
-}
-sub parse_patch {
- my $patchfile = shift;
- my $patchtype;
- my $pfirst;
- my $psecond;
-
- my %hunks = ();
- my $origfilename;
- open PATCHFILE, "< $patchfile" or die "Cannot open file $patchfile $!";
- my @patchfile = <PATCHFILE>;
- close PATCHFILE;
- return %hunks if ( $#patchfile == -1 );
- if ( $patchfile[0] =~ /^---/ ) {
- $patchtype = "unified";
- $pfirst = '^--- [^\*]*$';
- $psecond = '^\+\+\+ [^\*]*$';
- } elsif ( $patchfile[0] =~ /^\*\*\*/ ) {
- $patchtype = "content";
- $pfirst = '^\*\*\* [^\*]*$';
- $psecond = '^--- .*\t.*$';
- } else {
- die "unknown patch format\n";
- }
-
- foreach (@patchfile) {
- if ( /$pfirst/ ) {
- my $timestamp;
- # extract the filename, to be able to compare the old
- # with the new file...
- ($origfilename, $timestamp) = split(/\t/, $_, 2);
- chomp $timestamp;
- # ideally convert the timestamp to iso-format...
- $hunks{$origfilename}{'origtimestamp'} = $timestamp;
- next;
- } elsif ( $_ =~ /$psecond/ ) {
- my ($filename, $timestamp) = split(/\t/, $_, 2);
- chomp $timestamp;
- # ideally convert the timestamp to iso-format...
- $hunks{$origfilename}{'patchedfilename'} = $filename;
- $hunks{$origfilename}{'patchedtimestamp'} = $timestamp;
- next;
- }
- push (@{$hunks{$origfilename}{'data'}}, $_);
-
- }
- return %hunks;
-}
diff --git a/solenv/bin/remangle32to64.pl b/solenv/bin/remangle32to64.pl
deleted file mode 100644
index 68ac7ab..0000000
--- a/solenv/bin/remangle32to64.pl
+++ /dev/null
@@ -1,310 +0,0 @@
-#!/usr/bin/perl -w /* -*- indent-tabs-mode: nil -*- */
-
-#
-# 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/.
-#
-
-# Change MSVC mangled C++ names from 32-bit form to the corresponding
-# 64-bit form. Each line of input can contain at most one mangled
-# name.
-
-# Based on experimentation with MSVC2008 and the following web pages:
-
-# http://www.geoffchappell.com/viewer.htm?doc=studies/msvc/language/decoration/index.htm
-# Thorough but incomplete. Still, describes details the below sources
-# don't mention.
-
-# http://cvs.winehq.com/cvsweb/wine/dlls/msvcrt/undname.c
-# Wine's __unDname function, presumably the most complete, although
-# not really written to act as "documentation"
-
-# http://mearie.org/documents/mscmangle/
-# Relatively complete but a bit badly structured and terse.
-
-# http://en.wikipedia.org/wiki/Microsoft_Visual_C%2B%2B_Name_Mangling
-# seems to be mostly a ripoff on the mearie.org page
-
-# Example transformation:
-# ??0ORealDynamicLoader@salhelper@@IAE@PAPAV01@ABVOUString@rtl@@1PAX2@Z =>
-# ??0ORealDynamicLoader@salhelper@@IEAA@PEAPEAV01@AEBVOUString@rtl@@1PEAX2@Z
-
-# It should be relatively easy to remove the modification parts of the
-# below code and use the regex for some other task on MSVC mangled
-# names.
-
-# The regular expression below accepts also nonsensical mangled names,
-# so it should not be used to verify correctness of mangled names.
-
-use strict;
-
-my @opstack = ();
-
-sub parse_number($)
-{
- my ($num) = @_;
-
- return $num + 1 if ($num eq '0' || ($num ge '1' && $num le '9'));
-
- $num =~ tr/ABCDEFGHIJKLMNOP@/0123456789ABCDEF /;
- hex($num);
-}
-
-sub format_number($)
-{
- my ($num) = @_;
-
- return $num - 1 if ($num <= 10);
-
- $num = sprintf("%X", $num);
- $num =~ tr/0123456789ABCDEF/ABCDEFGHIJKLMNOP/;
- $num.'@';
-}
-
-sub double_thunk($$)
-{
- my ($number, $position) = @_;
-
- my $bytes = parse_number($number);
- $bytes *= 2;
- push(@opstack, 'r '.($position - length($number)).' '.length($number).' '.format_number($bytes));
-}
-
-while (<>)
- {
- m/
- # Named subpattern definitions. I use names of the form
- # __CamelCase__ for the named subpatters so that they are easier
- # to see.
- (?(DEFINE)
- (?<__Number__>
- \?? ([0-9] | [A-P]+@)
- )
- (?<__32BitChecksum__>
- [A-P]{8}@
- )
- (?<__CallingConvention__>
- (?:
- [AB]
- |
- [C-L]
- (?{ push(@opstack, 'r '.(pos()-1).' 1 A cdecl'); })
- )
- )
- (?<__StringLiteralText__>
- (?:
- [_a-zA-Z0-9]
- |
- \?\$[A-P][A-P]
- |
- \?[0-9A-Za-z]
- ){1,20}
- )
- (?<__Identifier__>
- [_a-zA-Z\$][_a-zA-Z0-9\$]*@
- )
- (?<__ArgsZTerminated__>
- (?&__DataTypeInArgs__)+ @? Z
- )
- (?<__ArgsNonZTerminated__>
- (?&__DataTypeInArgs__)+ @?
- )
- (?<__TemplateName__>
- (?&__Identifier__) (?&__ArgsNonZTerminated__)
- )
- (?<__Class__>
- (?:
- [0-9]
- |
- \?\$ (?&__TemplateName__)
- |
- (?&__Identifier__)
- )+@
- )
- (?<__DataTypeCommon__>
- (?:
- # extended types like _int64, bool and wchar_t
- _[D-NW]
- |
- # simple types
- [C-KMNOXZ]
- |
- # class, struct, union, cointerface
- [TUVY] (?&__Class__)
- |
- # references
- [AB]
- (?{ push(@opstack, 'i '.pos().' E reference'); })
- (?&__ModifiedType__)
- |
- # pointers
- [QRS]
- (?{ push(@opstack, 'i '.pos().' E pointer'); })
- (?&__ModifiedType__)
- |
- P
- (?:
- # function pointer
- 6 (?&__CallingConvention__) (?&__DataTypeNotInArgs__) (?&__ArgsZTerminated__)
- |
- # other pointer
- (?{ push(@opstack, 'i '.pos().' E pointer'); })
- (?&__ModifiedType__)
- )
- |
- W 4 (?&__Class__)
- |
- [0-9]
- |
- \$ (?:
- [0DQ] (?&__Number__)
- |
- F (?&__Number__){2}
- |
- G (?&__Number__){3}
- |
- \$ [ABCD] (?&__DataTypeNotInArgs__)
- )
- )
- )
- (?<__ModifiedType__>
- [ABCD]
- (?:
- # multidimensional array
- Y (?&__Number__)+
- )?
- (?&__DataTypeNotInArgs__)
- )
- (?<__DataTypeInArgs__>
- (?:
- (?&__DataTypeCommon__)
- |
- # template parameter
- \? (?&__Number__)
- )
- )
- (?<__DataTypeNotInArgs__>
- (?:
- (?&__DataTypeCommon__)
- |
- \? (?&__ModifiedType__)
- )
- )
- )
-
- # All mangled names start with a question mark
- \?
- (?:
- # Ctors, dtors, operators etc have separate a priori defined
- # special mangled names like the very simple ?0 for constructor
- # and ?_R16789 for "RTTI Base Class Descriptor at (6,7,8,9)"
- # whatever that might mean.
- (
- \?
- ([0-9A-Z]
- |
- _(?:
- # C is for string literals, see below
- # R is RTTI, see immediately below
- [0-9ABD-QS-Z]
- |
- R0(?&__DataTypeNotInArgs__)
- |
- R1(?&__Number__){4}
- |
- R[234]
- |
- _(?:
- E
- )
- )
- )
- )?
- (?&__Class__)
-
- (?:
- # Static members and normal variables
- [0-5]
- (?&__DataTypeNotInArgs__)
- [ABCD]
- |
- # Compiler-generated static
- [67]
- [ABCD]
- (?:
- @
- |
- (?&__Class__)
- )
- |
- # Non-static Methods, implicit 'this'
- [ABEFIJMNQRUV]
- [AB]
- (?{ push(@opstack, 'i '.(pos()-1).' E this'); })
- (?&__CallingConvention__)
- (?:
- @
- |
- (?&__DataTypeNotInArgs__)
- )
- (?&__ArgsZTerminated__)
- |
- # Static methods
- [CDKLST]
- (?&__CallingConvention__)
- (?:
- @
- |
- (?&__DataTypeNotInArgs__)
- )
- (?&__ArgsZTerminated__)
- |
- # Thunks
- [GHOPWX]
- ((?&__Number__))
- (?{ double_thunk($^N, pos()); })
- [AB]
- (?{ push(@opstack, 'i '.(pos()-1).' E this'); })
- (?&__CallingConvention__)
- (?:
- @
- |
- (?&__DataTypeNotInArgs__)
- )
- (?&__ArgsZTerminated__)
- |
- # Functions
- [YZ]
- (?&__CallingConvention__)
- (?:
- @
- |
- (?&__DataTypeNotInArgs__)
- )
- (?&__ArgsZTerminated__)
- |
- # Template
- \$ (?&__Identifier__) (?&__ArgsNonZTerminated__)
- )
- |
- # pooled string literals
- \?_C\@_[01](?&__Number__)(?&__32BitChecksum__)(?&__StringLiteralText__)@
- )
- /x;
-
- while (my $op = pop(@opstack))
- {
- # print STDERR "op=$op\n";
- my @a = split (' ', $op);
- if ($a[0] eq 'i') {
- substr($_,$a[1],0) = $a[2];
- } elsif ($a[0] eq 'r') {
- substr($_,$a[1],$a[2]) = $a[3];
- }
- }
-
- print;
- }
diff --git a/solenv/bin/rmdir.pl b/solenv/bin/rmdir.pl
deleted file mode 100644
index 301cada..0000000
--- a/solenv/bin/rmdir.pl
+++ /dev/null
@@ -1,37 +0,0 @@
-:
-eval 'exec perl -wS $0 ${1+"$@"}'
- if 0;
-#
-# 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 .
-#
-
-my $r_code=0;
-if ( ! defined $ARGV[0] || "$ARGV[0]" eq "" ) {
- print STDERR "Nothing to delete\n";
- exit 1;
-}
-while ( defined $ARGV[0] ) {
-if ( rmdir $ARGV[0] ) {
-# exit 0;
-} else {
- print STDERR "ERROR removing $ARGV[0]: $!\n";
- $r_code = 1;
-}
-shift @ARGV;
-}
-exit $r_code;
-
diff --git a/solenv/bin/rpm-wrapper b/solenv/bin/rpm-wrapper
deleted file mode 100755
index 98a55da..0000000
--- a/solenv/bin/rpm-wrapper
+++ /dev/null
@@ -1,40 +0,0 @@
-#!/bin/bash
-#
-# 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 .
-#
-
-# At least on v20z-so3, when /so/env/bt_linux_libc2.11/DEV300/bin/rpm is called
-# and internally looks for a ld-linux.so.2, it picks up
-# /lib/tls/i686/cmov/ld-linux.so.2 and SIGSEGVs. This is prevented by
-# adding /so/env/bt_linux_libc2.11/DEV300/lib to the LD_LIBRARY_PATH, thus
-# picking up the ld-linux.so.2 from there:
-
-set -e
-if [ "$OUTPATH" = "unxlngi6" ]
-then
-LD_LIBRARY_PATH=${LD_LIBRARY_PATH:+${LD_LIBRARY_PATH}:}${LIBRARY_PATH?} \
- ${BUILD_TOOLS?}/rpmbuild "$@"
-else
-if [ "$OUTPATH" = "unxlngx6" ]
-then
-LD_LIBRARY_PATH=${LD_LIBRARY_PATH:+${LD_LIBRARY_PATH}:}${LIBRARY_PATH?} \
- ${BUILD_TOOLS?}/rpmbuild "$@"
-else
-LD_LIBRARY_PATH=${LD_LIBRARY_PATH:+${LD_LIBRARY_PATH}:}${COMPATH?}/lib \
- ${BUILD_TOOLS?}/rpm "$@"
-fi
-fi
diff --git a/solenv/bin/slfl.pl b/solenv/bin/slfl.pl
deleted file mode 100644
index 4ea4221..0000000
--- a/solenv/bin/slfl.pl
+++ /dev/null
@@ -1,167 +0,0 @@
-:
-eval 'exec perl -wS $0 ${1+"$@"}'
- if 0;
-#
-# 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 .
-#
-# Description: Wrapper script to change '/' to '\' in command-line
-# arguments.
-
-#---------------------------------------------------------------------------
-# external modules
-use Text::ParseWords;
-
-# global vars
-@params = ();
-
-#---------------------------------------------------------------------------
-# procedures
-
-
-#----------------------------------------------------------
-# Function name: WinFormat
-# Description: Format variables to Windows Format.
-# Arguments: 1. Variable (string) with one token
-# Return value: Reformatted String
-#----------------------------------------------------------
-sub WinFormat {
- my $variable = shift @_;
-
- $variable =~ s!(.)/!$1\\!g; # Replace all but the leading slashes with backslashes
-
- if ( defined $debug ) {
- print(STDERR "WinFormat:\nresult:$variable\n");
- }
-
- return $variable;
-}
-
-#----------------------------------------------------------
-# Function name: replace_cyg
-# Description: Process all arguments and change them to Windows Format.
-# Arguments: Reference to array with arguments
-# Return value: -
-#----------------------------------------------------------
-sub replace_cyg {
- my $args = shift;
- my( @cmd_file, @cmd_temp );
- my $atchars;
- foreach my $para ( @$args ) {
- if ( $para =~ "^@" ) {
- # it's a command file
- if ( defined $debug ) {
- print(STDERR "----------------------------\n");
- }
- ;
- # Workaround, iz28717, keep number of @'s.
- $para =~ s/(^\@+)//;
- $atchars = $1;
- $filename = $para;
- if ( defined $debug ) {
- print(STDERR "filename = $filename \n");
- }
- ;
- # open this command file for reading
- open(CMD, "$filename");
- while ( <CMD> ) {
- # Remove DOS lineendings. Bug in Cygwin / Perl?
- $_ =~ s/\r//g;
- # Remove lineendings and trailing spaces. ( Needed by &parse_line )
- $_ =~ s/\n$//g;
- $_ =~ s/\s+$//g;
- # Fill all tokens into array
- @cmd_temp = &parse_line('\s+', 1, $_ );
- if ( $#cmd_temp > -1 ) {
- push( @cmd_file, @cmd_temp);
- }
- }
- close(CMD);
- # reformat all tokens
- replace_cyg(\@cmd_file);
- if ( defined $debug ) {
- print(STDERR "Tokens processed:\n");
- }
- ;
- foreach $i (@cmd_file) {
- if ( defined $debug ) {
- print(STDERR "!".$i."!\n");
- }
- ;
- }
- # open this filename for writing (truncate) Textmode?
- open(CMD, '>', $filename);
- # write all tokens back into this file
- print(CMD join(' ', @cmd_file));
- close(CMD);
- # convert '@filename' to dos style
- $para = WinFormat( $para );
- if ( defined $debug ) {
- print(STDERR "----------------------------\n");
- }
- ;
- if ( (defined $debug_light) or (defined $debug) ) {
- print(STDERR "\nParameter in File:".join(' ', @cmd_file).":\n");
- }
- $para = $atchars.$para;
- } else {
- # it's just a parameter
- if ( defined $debug ) {
- print(STDERR "\nParameter:---${para}---\n");
- }
- ;
- # If $tmp1 is empty then $para is a parameter.
- my $is_no_para = 1;
- # remove .exe and convert to lower case
- $shortcommand = lc $command ;
- $shortcommand =~ s/\.exe$//;
- $shortcommand =~ /([^\/]+$)/;
- $shortcommand = $1;
- if ( $is_no_para ) {
- $para = WinFormat($para);
- }
- if ( defined $debug ) {
- print(STDERR "Converted line:${para}:\n" );
- }
- } # else
- } # foreach loop
-}
-
-
-#---------------------------------------------------------------------------
-# main
-@params = @ARGV;
-
-$command = shift(@params);
-
-while ( $command =~ /^-/ )
-{
- if ( $command eq "-dbg" ) {
- $debug="true";
- }
- elsif ( $command eq "-ldbg" ) {
- $debug_light="true";
- }
-
- $command = shift(@params);
-}
-
-if ( (defined $debug_light) or (defined $debug) ) { print( STDERR "Command: $command\n" ); }
-
-replace_cyg(\@params);
-if ( (defined $debug_light) or (defined $debug) ) { print(STDERR
"\n---------------------\nExecute: $command @params\n----------------\n");};
-exec( "$command", @params) or die( "\nError: slfl.pl: executing $command failed!\n" );
-
diff --git a/solenv/bin/striplanguagetags.sh b/solenv/bin/striplanguagetags.sh
deleted file mode 100755
index 0df4b0b..0000000
--- a/solenv/bin/striplanguagetags.sh
+++ /dev/null
@@ -1,74 +0,0 @@
-#!/usr/bin/env bash
-#
-# 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/.
-#
-
-# take a .zip containing a flat hierarchy of odf files and strip out the
-# language and country tags in each of them and repack it all up
-# should convert templates so that documents based on them use
-# the default-document-language rather than the hardcoded lang-tag
-#
-# All a bit hacky, but it should work
-
-if [ -z "$CALLXSLTPROC" ]; then
- echo "$0: \$CALLXSLTPROC not defined!"
- echo "$0: Apparently we are not called from the build process, bailing out."
- exit 1
-fi
-
-tempfoo=`basename $0`
-
-XSL=`mktemp /tmp/${tempfoo}.XXXXXX`
-if [ $? -ne 0 ]; then
- echo "$0: Can't create temp file, exiting..."
- exit 1
-fi
-
-# On Windows, xsltproc is a non-Cygwin program, so we can't pass
-# a Cygwin /tmp path to it
-[ "$COM" == MSC ] && XSL=`cygpath -m -s $XSL`
-
-WRKDIR=`mktemp -d /tmp/${tempfoo}.XXXXXX`
-if [ $? -ne 0 ]; then
- echo "$0: Can't create temp dir, exiting..."
- exit 1
-fi
-
-cat > $XSL << EOF
-<?xml version="1.0" encoding="UTF-8"?>
-<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform";
xmlns:fo="http://www.w3.org/1999/XSL/Format"; version="1.0">
-
-<xsl:template match="node()|@*">
- <xsl:copy>
- <xsl:apply-templates select="@*|node()"/>
- </xsl:copy>
-</xsl:template>
-
-<xsl:template match="@fo:language"/>
-<xsl:template match="@fo:country"/>
-<xsl:template match="@fo:script"/>
-<xsl:template match="@number:rfc-language-tag"/>
-<xsl:template match="@style:rfc-language-tag"/>
-<xsl:template match="@table:rfc-language-tag"/>
-<xsl:template match="@style:rfc-language-tag-asian"/>
-<xsl:template match="@style:rfc-language-tag-complex"/>
-
-</xsl:stylesheet>
-EOF
-
-unzip -q $1 -d $WRKDIR
-pushd $WRKDIR
-for a in *; do
- unzip -qc $a styles.xml > styles.tmp
- eval "$CALLXSLTPROC -o styles.xml $XSL styles.tmp"
- zip -qr $a styles.xml
- rm styles.xml styles.tmp
-done
-popd
-zip -qrj $1 $WRKDIR
-rm -rf $WRKDIR
-rm -f $XSL
diff --git a/solenv/bin/touch.pl b/solenv/bin/touch.pl
deleted file mode 100644
index fb39097..0000000
--- a/solenv/bin/touch.pl
+++ /dev/null
@@ -1,33 +0,0 @@
-:
-eval 'exec perl -wS $0 ${1+"$@"}'
- if 0;
-#
-# 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 .
-#
-#
-# workaround for broken 4nt
-# internal touch command
-#
-
-foreach my $filename (@ARGV) {
- open KKK, ">>$filename" or die "ERROR: cannot open $filename!\n";
- $size=(stat($filename))[7];
- print KKK "x";
- truncate KKK, $size;
- close KKK;
-}
-
diff --git a/solenv/bin/unxmap-to-macosx-explist.awk b/solenv/bin/unxmap-to-macosx-explist.awk
deleted file mode 100644
index b8ae5ac..0000000
--- a/solenv/bin/unxmap-to-macosx-explist.awk
+++ /dev/null
@@ -1,54 +0,0 @@
-#
-# 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 .
-#
-
-# Generate an exported symbols list out of a map file (as use on Linux/Solaris) in order to
-# build shared libraries on Mac OS X
-#
-# The below code fails may fail with 'perverted' mapfiles (using a strange line layout etc.)
-
-# Skip 'SECTION_NAME {' lines
-/^[\t ]*.*[\t ]*\{/ { next }
-
-# Skip 'global:' or 'local:' lines
-/global:/ || /local:/ { next }
-
-# Skip '*;' lines
-/^[\t ]*\*;[\t ]*/ { next }
-
-# Skip section end '}?;' lines
-/^[\t ]*\}[\t ]*.*[;]*/ { next }
-
-# Skip comment or empty lines
-/^[\t ]*#.*/ || /^[\t ]*$/ || /^$/ { next }
-
-# Echo all lines containing symbol names and prefix them with '_'
-# because symbols on Mac OS X start always with '__'
-{
- # There may appear multiple symbols in one line
- # e.g. "sym1; sym2; # and finally a comment"
- # take this into account
- for (i = 1; i <= NF ; i++) {
- if ($i !~ /^[\t ]*#.*/) { # as long as the current field doesn't start with '#'
- gsub(/[\t ;]/, "", $i) # Remove leading spaces and trailing ';'
- printf("_%s\n",$i)
- }
- else { # ignore everything after a '#' (comment) sign
- break
- }
- }
-}
--
To view, visit https://gerrit.libreoffice.org/4239
To unsubscribe, visit https://gerrit.libreoffice.org/settings
Gerrit-MessageType: newchange
Gerrit-Change-Id: I68e23ef543f4e26f617d9860681273234ec9174c
Gerrit-PatchSet: 1
Gerrit-Project: core
Gerrit-Branch: master
Gerrit-Owner: Matúš Kukan <matus.kukan@gmail.com>
Context
- [PATCH] solenv/bin: remove unreferenced obsoleted scripts · via Code Review
Privacy Policy |
Impressum (Legal Info) |
Copyright information: Unless otherwise specified, all text and images
on this website are licensed under the
Creative Commons Attribution-Share Alike 3.0 License.
This does not include the source code of LibreOffice, which is
licensed under the Mozilla Public License (
MPLv2).
"LibreOffice" and "The Document Foundation" are
registered trademarks of their corresponding registered owners or are
in actual use as trademarks in one or more countries. Their respective
logos and icons are also subject to international copyright laws. Use
thereof is explained in our
trademark policy.