1 files changed, 0 insertions, 95 deletions
diff --git a/contrib/syslinux/syslinux-4.03/utils/keytab-lilo b/contrib/syslinux/syslinux-4.03/utils/keytab-lilo
deleted file mode 100755
index 9e34160..0000000
--- a/contrib/syslinux/syslinux-4.03/utils/keytab-lilo
+++ /dev/null
@@ -1,95 +0,0 @@
-#!/usr/bin/perl
-
-eval { use bytes; };
-eval { binmode STDOUT; };
-
-$DEFAULT_MAP = "us";
-$DEFAULT_EXT = ".kmap";
-
-sub usage
-{
-    print STDERR
-      "usage: $0 [ -p old_code=new_code ] ...\n".
-      (" "x(8+length $0))."[path]default_layout[.kmap] ] ".
-      "[path]kbd_layout[.kmap]\n";
-    exit 1;
-}
-
-
-while ($ARGV[0] eq "-p") {
-    shift(@ARGV);
-    &usage unless $ARGV[0] =~ /=/;
-    $table[eval($`)] = eval($');
-    shift(@ARGV);
-}
-&usage unless defined $ARGV[0];
-load_map("def",defined $ARGV[1] ? $ARGV[0] : undef);
-load_map("kbd",defined $ARGV[1] ? $ARGV[1] : $ARGV[0]);
-&build_table("plain","shift","ctrl","altgr","shift_ctrl",
-  "altgr_ctrl","alt","shift_alt","ctrl_alt");
-for ($i = 0; $i < 256; $i++) {
-    printf("%c",$table[$i] ? $table[$i] : $i) || die "print: $!";
-}
-close STDOUT || die "close: $!";
-
-
-sub load_map
-{
-    local ($pfx,$map) = @_;
-    local ($empty,$current);
-
-    $map = $DEFAULT_MAP unless defined $map;
-    $map .= $DEFAULT_EXT unless $map =~ m|/[^/]+\.[^/]+$|;
-    if (!open(FILE,"loadkeys -m $map |")) {
-	print STDERR "loadkeys -m $map: $!\n";
-	exit 1;
-    }
-    undef $current;
-    $empty = 1;
-    while (<FILE>) {
-	chop;
-	if (/^(static\s+)?u_short\s+(\S+)_map\[\S*\]\s+=\s+{\s*$/) {
-	    die "active at beginning of map" if defined $current;
-	    $current = $pfx.":".$2;
-	    next;
-	}
-	undef $current if /^};\s*$/;
-	next unless defined $current;
-	s/\s//g;
-	$map{$current} .= $_;
-	$empty = 0;
-    }
-    close FILE;
-    return unless $empty;
-    print STDERR "Keymap is empty\n";
-    exit 1;
-}
-
-
-sub build_table
-{
-    local (@maps) = @_;
-    local (@tmp);
-
-    $set = 0;
-    for $map (@maps) {
-	$code = $set;
-	for (split(",",$map{"def:".$map})) {
-	    die "bad map entry $_ (def, map $map)" unless /^0x\S\S(\S\S)$/;
-	    $tmp[$code] = hex $1 unless $tmp[$code];
-	    $code++;
-	}
-	$set += 256;
-    }
-    $set = 0;
-    for $map (@maps) {
-	$code = $set;
-	for (split(",",$map{"kbd:".$map})) {
-	    die "bad map entry $_ (kbd, map $map)" unless /^0x\S\S(\S\S)$/;
-	    $table[$tmp[$code]] = hex $1 unless $table[$tmp[$code]];
-	    $code++;
-	}
-	$set += 256;
-    }
-    $table[0] = 0;
-}