X-Git-Url: https://gerrit.opnfv.org/gerrit/gitweb?a=blobdiff_plain;f=rubbos%2Fapp%2Ftomcat-connectors-1.2.32-src%2Ftools%2Flineends.pl;fp=rubbos%2Fapp%2Ftomcat-connectors-1.2.32-src%2Ftools%2Flineends.pl;h=0000000000000000000000000000000000000000;hb=c0b7206652b2852bc574694e7ba07ba1c2acdc00;hp=8a8b6666ea7be629c93dac5f2f3c408c98fff0f4;hpb=b6d3d6e668b793220f2d3af1bc3e828553dc3fe6;p=bottlenecks.git

diff --git a/rubbos/app/tomcat-connectors-1.2.32-src/tools/lineends.pl b/rubbos/app/tomcat-connectors-1.2.32-src/tools/lineends.pl
deleted file mode 100755
index 8a8b6666..00000000
--- a/rubbos/app/tomcat-connectors-1.2.32-src/tools/lineends.pl
+++ /dev/null
@@ -1,165 +0,0 @@
-#!/usr/bin/perl
-
-# 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
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-#
-#  Heuristically converts line endings to the current OS's preferred format
-#  
-#  All existing line endings must be identical (e.g. lf's only, or even
-#  the accedental cr.cr.lf sequence.)  If some lines end lf, and others as
-#  cr.lf, the file is presumed binary.  If the cr character appears anywhere
-#  except prefixed to an lf, the file is presumed binary.  If there is no 
-#  change in the resulting file size, or the file is binary, the conversion 
-#  is discarded.
-#  
-#  Todo: Handle NULL stdin characters gracefully.
-#
-
-use IO::File;
-use File::Find;
-
-# The ignore list is '-' seperated, with this leading hyphen and
-# trailing hyphens in ever concatinated list below.
-$ignore = "-";
-
-# Image formats
-$ignore .= "gif-jpg-jpeg-png-ico-bmp-";
-
-# Archive formats
-$ignore .= "tar-gz-z-zip-jar-war-bz2-tgz-";
-
-# Many document formats
-$ignore .= "eps-psd-pdf-ai-";
-
-# Some encodings
-$ignore .= "ucs2-ucs4-";
-
-# Some binary objects
-$ignore .= "class-so-dll-exe-obj-a-o-lo-slo-sl-dylib-";
-
-# Some build env files
-$ignore .= "mcp-xdc-ncb-opt-pdb-ilk-sbr-";
-
-$preservedate = 1;
-
-$forceending = 0;
-
-$givenpaths = 0;
-
-$notnative = 0;
-
-while (defined @ARGV[0]) {
-    if (@ARGV[0] eq '--touch') {
-        $preservedate = 0;
-    }
-    elsif (@ARGV[0] eq '--nocr') {
-        $notnative = -1;
-    }
-    elsif (@ARGV[0] eq '--cr') {
-        $notnative = 1;
-    }
-    elsif (@ARGV[0] eq '--force') {
-        $forceending = 1;
-    }
-    elsif (@ARGV[0] eq '--FORCE') {
-        $forceending = 2;
-    }
-    elsif (@ARGV[0] =~ m/^-/) {
-        die "What is " . @ARGV[0] . " supposed to mean?\n\n" 
-	  . "Syntax:\t$0 [option()s] [path(s)]\n\n" . <<'OUTCH'
-Where:	paths specifies the top level directory to convert (default of '.')
-	options are;
-
-	  --cr     keep/add one ^M
-	  --nocr   remove ^M's
-	  --touch  the datestamp (default: keeps date/attribs)
-	  --force  mismatched corrections (unbalanced ^M's)
-	  --FORCE  all files regardless of file name!
-
-OUTCH
-    }
-    else {
-        find(\&totxt, @ARGV[0]);
-	print "scanned " . @ARGV[0] . "\n";
-	$givenpaths = 1;
-    }
-    shift @ARGV;
-}
-
-if (!$givenpaths) {
-    find(\&totxt, '.');
-    print "did .\n";
-}
-
-sub totxt {
-        $oname = $_;
-	$tname = '.#' . $_;
-        if (!-f) {
-            return;
-        }
-	@exts = split /\./;
-	if ($forceending < 2) {
-            while ($#exts && ($ext = pop(@exts))) {
-                if ($ignore =~ m|-$ext-|i) {
-                    return;
-                }
-	    }
-        }
-	@ostat = stat($oname);
-        $srcfl = new IO::File $oname, "r" or die;
-	$dstfl = new IO::File $tname, "w" or die;
-        binmode $srcfl; 
-	if ($notnative) {
-            binmode $dstfl;
-	} 
-	undef $t;
-        while (<$srcfl>) { 
-            if (s/(\r*)\n$/\n/) {
-		$n = length $1;
-		if (!defined $t) { 
-		    $t = $n; 
-		}
-		if (!$forceending && (($n != $t) || m/\r/)) {
-		    print "mismatch in " .$oname. ":" .$n. " expected " .$t. "\n";
-		    undef $t;
-		    last;
-		}
-	        elsif ($notnative > 0) {
-                    s/\n$/\r\n/; 
-                }
-            }
-	    print $dstfl $_; 
-	}
-	if (defined $t && (tell $srcfl == tell $dstfl)) {
-	    undef $t;
-	}
-	undef $srcfl;
-	undef $dstfl;
-	if (defined $t) {
-            unlink $oname or die;
-            rename $tname, $oname or die;
-            @anames = ($oname);
-            if ($preservedate) {
-                utime $ostat[9], $ostat[9], @anames;
-            }
-            chmod $ostat[2] & 07777, @anames;
-            chown $ostat[5], $ostat[6], @anames;
-            print "Converted file " . $oname . " to text in " . $File::Find::dir . "\n"; 
-	}
-	else {
-	    unlink $tname or die;
-	}
-}