1 files changed, 0 insertions, 60 deletions
diff --git a/gentrans2.pl b/gentrans2.pl
deleted file mode 100755
index 2c83b22..0000000
--- a/gentrans2.pl
+++ /dev/null
@@ -1,60 +0,0 @@
-#!/usr/bin/perl -p
-BEGIN { binmode(STDOUT, ":utf8");
-	binmode(STDIN, ":utf8");
-
-%specials = ('%' => 'percent',
-	     '-' => 'minus',
-	     '_' => 'underscore',
-	     '>' => 'greater',
-	     '<' => 'less',
-	     ',' => 'comma',
-	     '.' => 'period',
-	     '$' => 'dollar',
-	     '!' => 'exclam',
-	     '?' => 'question',
-	     '+' => 'plus',
-	     '/' => 'slash',
-	     '#' => 'numbersign',
-	     '@' => 'at',
-	     '|' => 'bar',
-	     '`' => 'grave',
-	     '~' => 'asciitilde',
-	     '^' => 'asciicircum',
-	     '(' => 'parenleft',
-	     ')' => 'parenright',
-	     '[' => 'bracketleft',
-	     ']' => 'bracketright',
-	     "'" => 'apostrophe',
-	     '\\' => 'backslash',
-	     ':' => 'colon',
-	     ';' => 'semicolon',
-	     '=' => 'equal',
-	     ' ' => 'space',
-);
-
-sub splitup {
-    my $arg=shift;
-    local $_;
-    my @out;
-    my $rv;
-    return "\{$arg\}" if length($arg) > 7;
-    @out=split //, $arg;
-    $rv="";
-    for (@out) {
-	$_ = $specials{$_} // $_;
-	$rv .= " <$_>";
-    }
-    return $rv;
-}
-
-}
-
-unless (/^#/) {
-    my $hold=$_;
-    s/<MM>/<Multi_key>/;
-    s({([][[:alnum:] _+:;%@>=`<,.^\$+#()?!/|'\\~-]+)})(splitup($1))e;
-    if (length($1) > 7) {
-	$_=$hold;
-	s/^<MM>/### <MM>/;
-    }
-}