INTEGRATION: CWS nowrapcmd1 (1.1.2); FILE ADDED

2007/10/14 05:16:12 vq 1.1.2.2: #i82202# Fix typo.
2007/10/07 16:28:19 vq 1.1.2.1: #i82202# Add needed NOWRAPCMD changes.

1 files changed, 184 insertions, 0 deletions

diff --git a/solenv/bin/slfl.pl b/solenv/bin/slfl.pl
new file mode 100755
index 000000000000..2763f4b943f3
--- /dev/null
+++ b/solenv/bin/slfl.pl
@@ -0,0 +1,184 @@
+:
+eval 'exec perl -wS $0 ${1+"$@"}'
+    if 0;
+#*************************************************************************
+#
+#   OpenOffice.org - a multi-platform office productivity suite
+#
+#   $RCSfile: slfl.pl,v $
+#
+#   $Revision: 1.2 $
+#
+#   last change: $Author: kz $ $Date: 2007-12-12 15:33:08 $
+#
+#   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
+#
+#*************************************************************************
+# 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" );
+