INTEGRATION: CWS iconswitching1 (1.1.2); FILE ADDED

2005/11/11 12:06:40 kendy 1.1.2.2: #i36518#
LGPL,SISSL -> LGPL
2005/07/21 15:47:34 kendy 1.1.2.1: #i36518#
Remove --with-icons configure switch, build with custom icons by default.
Create HiContrast icon set from the lch_*, sch_* etc. icons.

1 files changed, 126 insertions, 0 deletions

diff --git a/solenv/bin/hicontrast-to-theme.pl b/solenv/bin/hicontrast-to-theme.pl
new file mode 100644
index 000000000000..1df0e6aedfb7
--- /dev/null
+++ b/solenv/bin/hicontrast-to-theme.pl
@@ -0,0 +1,126 @@
+:
+    eval 'exec perl -S $0 ${1+"$@"}'
+        if 0;
+#*************************************************************************
+#
+#   OpenOffice.org - a multi-platform office productivity suite
+#
+#   $RCSfile: hicontrast-to-theme.pl,v $
+#
+#   $Revision: 1.2 $
+#
+#   last change: $Author: kz $ $Date: 2006-01-05 18:15:56 $
+#
+#   The Contents of this file are made available subject to
+#   the terms of GNU Lesser General Public License Version 2.1.
+#
+#
+#     GNU Lesser General Public License Version 2.1
+#     =============================================
+#     Copyright 2005 by Sun Microsystems, Inc.
+#     901 San Antonio Road, Palo Alto, CA 94303, USA
+#
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License version 2.1, as published by the Free Software Foundation.
+#
+#     This library is distributed in the hope that it will be useful,
+#     but WITHOUT ANY WARRANTY; without even the implied warranty of
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
+#
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+#     MA  02111-1307  USA
+#
+#*************************************************************************
+#
+# Create ordinary theme from HiContrast images.
+#
+
+use File::Copy;
+use File::Find;
+use File::Path;
+use File::Spec;
+
+( $src, $dst ) = @ARGV;
+
+if ( $src eq "" || $dst eq "" ) {
+    print STDERR "Usage: hicontrast-to-theme.pl src dest\n\n";
+    print STDERR "Create ordinary theme from HiContrast images.\n";
+    exit 1;
+}
+
+$dst = File::Spec->rel2abs( $dst );
+
+@hc_table = (
+    [ ".*_h.png",         "_h.png",    ".png" ],
+    [ ".*_sch.png",       "_sch.png",  ".png" ],
+    [ ".*_hc.png",        "_hc.png",   ".png" ],
+    [ "lch_.*.png",       "lch_",      "lc_" ],
+    [ "sch_.*.png",       "sch_",      "sc_" ],
+    [ "lch[0-9].*.png",   "lch",       "lc" ],
+    [ "sch[0-9].*.png",   "sch",       "sc" ],
+    [ "loh[0-9].*.png",   "loh",       "lo" ],
+    [ "lxh[0-9].*.png",   "lxh",       "lx" ],
+    [ "sxh[0-9].*.png",   "sxh",       "sx" ],
+    [ "avh[0-9].*.png",   "avh",       "av" ],
+    [ "avlh[0-9].*.png",  "avlh",      "avl" ],
+    [ "idh[0-9].*.png",   "idh",       "id" ],
+    [ "imh[0-9].*.png",   "imh",       "im" ],
+    [ "mih[0-9].*.png",   "mih",       "mi" ],
+    [ "tbh[0-9].*.png",   "tbh",       "tb" ],
+    [ "nah[0-9].*.png",   "nah",       "na" ],
+    [ "nch[0-9].*.png",   "nch",       "nc" ],
+    [ "nvh[0-9].*.png",   "nvh",       "nv" ],
+    [ "ouh[0-9].*.png",   "ouh",       "ou" ],
+    [ "ddh[0-9].*.png",   "ddh",       "dd" ],
+    [ "sfh[0-9].*.png",   "sfh",       "sf" ],
+    [ "srh[0-9].*.png",   "srh",       "sr" ],
+    [ "wrh[0-9].*.png",   "wrh",       "wr" ],
+    [ "alh[0-9].*.png",   "alh",       "al" ],
+    [ "ath[0-9].*.png",   "ath",       "at" ],
+    [ "bih[0-9].*.png",   "bih",       "bi" ],
+    [ "coh[0-9].*.png",   "coh",       "co" ],
+    [ "foh[0-9].*.png",   "foh",       "fo" ],
+    [ "fuh[0-9].*.png",   "fuh",       "fu" ],
+    [ "oph[0-9].*.png",   "oph",       "op" ],
+    [ "unh[0-9].*.png",   "unh",       "un" ],
+    [ "edh[0-9].*.png",   "edh",       "ed" ],
+    [ "cdh[0-9].*.png",   "cdh",       "cd" ],
+    [ "frh[0-9].*.png",   "frh",       "fr" ],
+    [ "fwh[0-9].*.png",   "fwh",       "fw" ],
+    [ "nuh[0-9].*.png",   "nuh",       "nu" ],
+    [ "prh[0-9].*.png",   "prh",       "pr" ],
+    [ "shh[0-9].*.png",   "shh",       "sh" ],
+    [ "trh[0-9].*.png",   "trh",       "tr" ],
+    [ "reh[0-9].*.png",   "reh",       "re" ],
+    [ "joh[0-9].*.png",   "joh",       "jo" ],
+    [ "fph[0-9].*.png",   "fph",       "fp" ],
+    [ "dah[0-9].*.png",   "dah",       "da" ]
+);
+
+sub copy_normalized {
+    $file = $_;
+    for $hc ( @hc_table ) {
+        ( $what, $from, $to ) = @$hc;
+        if ( $file =~ /$what/ ) {
+            my $dir = File::Spec->catdir( $dst, $File::Find::dir );
+
+            if ( ! -d $dir ) {
+                mkpath( $dir );
+            }
+
+            ( my $copy = $file ) =~ s/$from/$to/;
+            $copy = File::Spec->catfile( $dir, $copy );
+
+            copy( $file, $copy ) || die $!;
+
+            last;
+        }
+    }
+}
+
+chdir( $src );
+find( \&copy_normalized, '.' );