diff options
author | Vladimir Glazounov <vg@openoffice.org> | 2004-12-23 08:43:35 +0000 |
---|---|---|
committer | Vladimir Glazounov <vg@openoffice.org> | 2004-12-23 08:43:35 +0000 |
commit | b5726439c149edbd57f65e81ce6403ab783e8c61 (patch) | |
tree | 145baf6a86403ab48e8d056c212d4a64d3209a97 /solenv/bin/leconvert.pl | |
parent | 1f2f4015712090dccbef1e2c74146ccaf89a32f5 (diff) |
INTEGRATION: CWS kso12 (1.1.2); FILE ADDED
2004/12/14 11:17:12 hjs 1.1.2.1: #i38726# handle dos lineend files for patching
Diffstat (limited to 'solenv/bin/leconvert.pl')
-rwxr-xr-x | solenv/bin/leconvert.pl | 126 |
1 files changed, 126 insertions, 0 deletions
diff --git a/solenv/bin/leconvert.pl b/solenv/bin/leconvert.pl new file mode 100755 index 000000000000..25ff9e6cc414 --- /dev/null +++ b/solenv/bin/leconvert.pl @@ -0,0 +1,126 @@ +: +eval 'exec perl -wS $0 ${1+"$@"}' + if 0; +#************************************************************************* +# +# $RCSfile: leconvert.pl,v $ +# +# $Revision: 1.2 $ +# +# last change: $Author: vg $ $Date: 2004-12-23 09:43:35 $ +# +# The Contents of this file are made available subject to the terms of +# either of the following licenses +# +# - GNU Lesser General Public License Version 2.1 +# - Sun Industry Standards Source License Version 1.1 +# +# Sun Microsystems Inc., October, 2000 +# +# GNU Lesser General Public License Version 2.1 +# ============================================= +# Copyright 2000 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 +# +# +# Sun Industry Standards Source License Version 1.1 +# ================================================= +# The contents of this file are subject to the Sun Industry Standards +# Source License Version 1.1 (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.openoffice.org/license.html. +# +# Software provided under this License is provided on an "AS IS" basis, +# WITHOUT WARRUNTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING, +# WITHOUT LIMITATION, WARRUNTIES THAT THE SOFTWARE IS FREE OF DEFECTS, +# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING. +# See the License for the specific provisions governing your rights and +# obligations concerning the Software. +# +# The Initial Developer of the Original Code is: Sun Microsystems, Inc.. +# +# Copyright: 2000 by Sun Microsystems, Inc. +# +# All Rights Reserved. +# +# Contributor(s): _______________________________________ +# +# +# +#************************************************************************* +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; +} + |