1 files changed, 0 insertions, 59 deletions
diff --git a/loader/simplemot b/loader/simplemot
deleted file mode 100755
index 467020be0..000000000
--- a/loader/simplemot
+++ /dev/null
@@ -1,59 +0,0 @@
-#!/usr/bin/perl
-
-$inone = 0;
-$intran = 0;
-$total = 0;
-while (<>) {
-    if (!$inone && /^msgid/) {
-	chop;
-	$str = substr($_, 7, length($_) - 8);
-	$inone = 1;
-    } elsif ($inone && /^"/) {
-	chop;
-	$str .= substr($_, 1, length($_) - 2);
-    } elsif ($inone) {
-	$inone = 0;
-
-	$str =~ s/\\n/\n/g;
-	$str =~ s/\\t/\t/g;
-	$str =~ s/\\"/"/g;
-
-	# the string is complete -- calculate a hash
-	$sum = 0;
-	$xor = 0;
-	for ($i = 0; $i < length($str); $i++) {
-	    $char = ord(substr($str, $i, 1));
-	    $sum += $char;
-	    $xor ^= $char;
-	}
-
-	$total = ($sum << 16) | (($xor & 0xFF) << 8) | (length($str) & 0xFF);
-    }
-
-    if (!$intran && /^msgstr/) {
-	chop;
-	$tran = substr($_, 8, length($_) - 9);
-	$intran = 1;
-    } elsif ($intran && /^"/) {
-	chop;
-	$tran .= substr($_, 1, length($_) - 2);
-    } elsif ($intran) {
-	$intran = 0;
-
-	$tran =~ s/\\n/\n/g;
-	$tran =~ s/\\t/\t/g;
-	$tran =~ s/\\"/"/g;
-
-	if (!$total && $str) {
-	    print STDERR "Missing string for $tran";
-	    exit 1
-	} elsif ($str && $tran) {
-	    print pack("Nn", $total, length($tran));
-	    print $tran;
-
-	    #if ($tran < 60) {
-		#printf STDERR ("0x%x %s\n", $total, $tran);
-	    #}
-	}
-    }
-}