ubi-utils: remove old ubi-utils

The utilities are unmaintained for long time, and many of them
do not even work, just compile, and no on complains about this.
This suggests they are unused and we can now safely kill them.

Signed-off-by: Artem Bityutskiy <Artem.Bityutskiy@nokia.com>

1 files changed, 0 insertions, 74 deletions

diff --git a/ubi-utils/old-utils/perl/ubicrc32.pl b/ubi-utils/old-utils/perl/ubicrc32.pl
deleted file mode 100755
index add5f9d..0000000
--- a/ubi-utils/old-utils/perl/ubicrc32.pl
+++ /dev/null
@@ -1,74 +0,0 @@
-#!/usr/bin/perl -w
-
-# Subroutine crc32(): Calculates the CRC on a given string.
-
-{
-    my @table = ();
-
-    # @brief Calculate CRC32 for a given string.
-    sub crc32
-    {
-	unless (@table) {
-	    # Initialize the CRC table
-	    my $poly = 0xEDB88320;
-	    @table = ();
-
-	    for my $i (0..255) {
-		my $c = $i;
-
-		for my $j (0..7) {
-		    $c = ($c & 1) ? (($c >> 1) ^ $poly) : ($c >> 1);
-		}
-		$table[$i] = $c;
-	    }
-	}
-	my $s = shift;		# string to calculate the CRC for
-	my $crc = shift;	# CRC start value
-
-	defined($crc)
-	    or $crc = 0xffffffff; # Default CRC start value
-
-	for (my $i = 0; $i < length($s); $i++) {
-	    $crc = $table[($crc ^ ord(substr($s, $i, 1))) & 0xff]
-		^ ($crc >> 8);
-	}
-	return $crc;
-    }
-}
-
-sub crc32_on_file
-{
-    my $file = shift;
-
-    my $crc32 = crc32('');
-    my $buf = '';
-    my $ret = 0;
-
-    while ($ret = read($file, $buf, 8192)) {
-	$crc32 = crc32($buf, $crc32);
-    }
-    defined($ret)
-	or return undef;
-    printf("0x%x\n", $crc32);
-}
-
-
-# Main routine: Calculate the CRCs on the given files and print the
-# results.
-
-{
-    if (@ARGV) {
-	while (my $path = shift) {
-	    my $file;
-	    open $file, "<", $path
-		or die "Error opening '$path'.\n";
-	    
-	    &crc32_on_file($file)
-		or die "Error reading from '$path'.\n";
-	    close $file;
-	}
-    } else {
-	&crc32_on_file(\*STDIN)
-	    or die "Error reading from stdin.\n";
-    }
-}