From b16b9e4656e7199c2aec74a4c8ebc7a875d3ba73 Mon Sep 17 00:00:00 2001 From: Mike Gabriel Date: Mon, 2 Feb 2015 15:02:49 +0100 Subject: massive reduction of unneeded files --- nx-X11/programs/xterm/unicode/convmap.pl | 177 ------------------------------- 1 file changed, 177 deletions(-) delete mode 100644 nx-X11/programs/xterm/unicode/convmap.pl (limited to 'nx-X11/programs/xterm/unicode/convmap.pl') diff --git a/nx-X11/programs/xterm/unicode/convmap.pl b/nx-X11/programs/xterm/unicode/convmap.pl deleted file mode 100644 index aa85b6fb7..000000000 --- a/nx-X11/programs/xterm/unicode/convmap.pl +++ /dev/null @@ -1,177 +0,0 @@ -#!/usr/bin/perl -# Generate keysym2ucs.c file -# -# $XFree86: xc/programs/xterm/unicode/convmap.pl,v 1.5 2000/01/24 22:22:05 dawes Exp $ - -sub utf8 ($) { - my $c = shift(@_); - - if ($c < 0x80) { - return sprintf("%c", $c); - } elsif ($c < 0x800) { - return sprintf("%c%c", 0xc0 | ($c >> 6), 0x80 | ($c & 0x3f)); - } elsif ($c < 0x10000) { - return sprintf("%c%c%c", - 0xe0 | ($c >> 12), - 0x80 | (($c >> 6) & 0x3f), - 0x80 | ( $c & 0x3f)); - } elsif ($c < 0x200000) { - return sprintf("%c%c%c%c", - 0xf0 | ($c >> 18), - 0x80 | (($c >> 12) & 0x3f), - 0x80 | (($c >> 6) & 0x3f), - 0x80 | ( $c & 0x3f)); - } elsif ($c < 0x4000000) { - return sprintf("%c%c%c%c%c", - 0xf8 | ($c >> 24), - 0x80 | (($c >> 18) & 0x3f), - 0x80 | (($c >> 12) & 0x3f), - 0x80 | (($c >> 6) & 0x3f), - 0x80 | ( $c & 0x3f)); - - } elsif ($c < 0x80000000) { - return sprintf("%c%c%c%c%c%c", - 0xfe | ($c >> 30), - 0x80 | (($c >> 24) & 0x3f), - 0x80 | (($c >> 18) & 0x3f), - 0x80 | (($c >> 12) & 0x3f), - 0x80 | (($c >> 6) & 0x3f), - 0x80 | ( $c & 0x3f)); - } else { - return utf8(0xfffd); - } -} - -$unicodedata = "UnicodeData-Latest.txt"; - -# read list of all Unicode names -if (!open(UDATA, $unicodedata) && !open(UDATA, "$unicodedata")) { - die ("Can't open Unicode database '$unicodedata':\n$!\n\n" . - "Please make sure that you have downloaded the file\n" . - "ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData-Latest.txt\n"); -} -while () { - if (/^([0-9,A-F]{4});([^;]*);([^;]*);([^;]*);([^;]*);([^;]*);([^;]*);([^;]*);([^;]*);([^;]*);([^;]*);([^;]*);([^;]*);([^;]*);([^;]*)$/) { - $name{hex($1)} = $2; - } else { - die("Syntax error in line '$_' in file '$unicodedata'"); - } -} -close(UDATA); - -# read mapping (from http://wsinwp07.win.tue.nl:1234/unicode/keysym.map) -open(LIST, ") { - if (/^0x([0-9a-f]{4})\s+U([0-9a-f]{4})\s*(\#.*)?$/){ - $keysym = hex($1); - $ucs = hex($2); - $keysym_to_ucs{$keysym} = $ucs; - } elsif (/^\s*\#/ || /^\s*$/) { - } else { - die("Syntax error in 'list' in line\n$_\n"); - } -} -close(LIST); - -# read entries in keysymdef.h -open(LIST, ") { - if (/^\#define\s+XK_([A-Za-z_0-9]+)\s+0x([0-9a-fA-F]+)\s*(\/.*)?$/) { - next if /\/\* deprecated \*\//; - $keysymname = $1; - $keysym = hex($2); - $keysym_to_keysymname{$keysym} = $keysymname; - } -} -close(LIST); - -print < UTF-8 conversion will hopefully one day be provided - * by Xlib via XmbLookupString() and should ideally not have to be - * done in X applications. But we are not there yet. - * - * We allow to represent any UCS character in the range U+00000000 to - * U+00FFFFFF by a keysym value in the range 0x01000000 to 0x01ffffff. - * This admittedly does not cover the entire 31-bit space of UCS, but - * it does cover all of the characters up to U+10FFFF, which can be - * represented by UTF-16, and more, and it is very unlikely that higher - * UCS codes will ever be assigned by ISO. So to get Unicode character - * U+ABCD you can directly use keysym 0x1000abcd. - * - * NOTE: The comments in the table below contain the actual character - * encoded in UTF-8, so for viewing and editing best use an editor in - * UTF-8 mode. - * - * Author: Markus G. Kuhn , University of Cambridge, June 1999 - * - * Special thanks to Richard Verhoeven for preparing - * an initial draft of the mapping table. - * - * This software is in the public domain. Share and enjoy! - */ - -#include - -struct codepair { - unsigned short keysym; - unsigned short ucs; -} keysymtab[] = { -EOT - -for $keysym (sort {$a <=> $b} keys(%keysym_to_keysymname)) { - $ucs = $keysym_to_ucs{$keysym}; - next if $keysym >= 0xf000 || $keysym < 0x100; - if ($ucs) { - printf(" { 0x%04x, 0x%04x }, /*%28s %s %s */\n", - $keysym, $ucs, $keysym_to_keysymname{$keysym}, utf8($ucs), - defined($name{$ucs}) ? $name{$ucs} : "???" ); - } else { - printf("/* 0x%04x %39s ? ??? */\n", - $keysym, $keysym_to_keysymname{$keysym}); - } -} - -print <= 0x0020 && keysym <= 0x007e) || - (keysym >= 0x00a0 && keysym <= 0x00ff)) - return keysym; - - /* also check for directly encoded 24-bit UCS characters */ - if ((keysym & 0xff000000) == 0x01000000) - return keysym & 0x00ffffff; - - /* binary search in table */ - while (max >= min) { - mid = (min + max) / 2; - if (keysymtab[mid].keysym < keysym) - min = mid + 1; - else if (keysymtab[mid].keysym > keysym) - max = mid - 1; - else { - /* found it */ - return keysymtab[mid].ucs; - } - } - - /* no matching Unicode value found */ - return -1; -} -EOT -- cgit v1.2.3