aboutsummaryrefslogtreecommitdiff
path: root/xorg-server/fonts.src/terminus-font/ucstoany.pl
diff options
context:
space:
mode:
authormarha <marha@users.sourceforge.net>2010-02-28 15:18:22 +0000
committermarha <marha@users.sourceforge.net>2010-02-28 15:18:22 +0000
commit03ca670131e8e32c2aad3e5718dcebf37925072a (patch)
treef3b03b9ea659509ba08f67ba1f88d4e9a8699904 /xorg-server/fonts.src/terminus-font/ucstoany.pl
parent65fbbe1531c1e09cd40014374fdd93cff3a1d33a (diff)
downloadvcxsrv-03ca670131e8e32c2aad3e5718dcebf37925072a.tar.gz
vcxsrv-03ca670131e8e32c2aad3e5718dcebf37925072a.tar.bz2
vcxsrv-03ca670131e8e32c2aad3e5718dcebf37925072a.zip
Added terminus-font-4.30
Diffstat (limited to 'xorg-server/fonts.src/terminus-font/ucstoany.pl')
-rw-r--r--xorg-server/fonts.src/terminus-font/ucstoany.pl245
1 files changed, 245 insertions, 0 deletions
diff --git a/xorg-server/fonts.src/terminus-font/ucstoany.pl b/xorg-server/fonts.src/terminus-font/ucstoany.pl
new file mode 100644
index 000000000..fbe14221d
--- /dev/null
+++ b/xorg-server/fonts.src/terminus-font/ucstoany.pl
@@ -0,0 +1,245 @@
+#!/usr/bin/perl
+
+push @ARGV, "";
+
+if ($ARGV[0] eq "--help")
+{
+print STDERR <<EOT;
+usage: ucstoany.pl [-f [+u|-u]]|[+f [+g|-g]] [+o|-o NAME] [+b]
+ [+[CHAR]] [--] INPUT REGISTRY ENCODING [TABLE...]
+
+-f Filter mode - discard characters with unicode FFFF.
+ This is the default.
+ +u Encode characters with index >= 32 with their unicodes.
+ Default for ISO10646-1 output.
+ -u Encode all characters with their indexes (FFFF counts).
+ Default for any other output.
+
++f Fillout mode - encode with unicodes, emit characters
+ with unicode FFFF as the default character.
+ +g Exchange the characters in range 00...1F with these at
+ C0...DF. Default for 8-pixel wide fonts with 256...512
+ characters starting with 00A3.
+ -g Do not exchange. Default for all other fonts.
+
++o Output to INPUT-REGISTRY-ENCODING (using the same name
+ as ucs2any, but preserving the INPUT directory).
+-o NAME Output to NAME.
+
++b Use binary mode for output (the default is text mode).
+ No effect on POSIX systems.
+
++[CHAR] Set the default character to CHAR (decimal value). If
+ no CHAR is specified, the one from INPUT is used.
+
+-- Terminate the option list.
+
+INPUT Any BDF file.
+
+TABLE An unicode table. Each line must either be blank or
+ contain exactly one hexadecimal unicode consisting of
+ maximum 4 digits. If no TABLE(s) are specified, the
+ standard input is read.
+
+If no output is specified, the standard output is used.
+
+If no default character is specified, 65533 (FFFD) is used for
+unicode and fillout modes, 46 (period) for index mode.
+
+Any options not specified in the above order are treated as
+non-option arguments.
+EOT
+ exit 0;
+}
+
+if ($ARGV[0] eq "--version")
+{
+print STDERR <<EOT;
+ucstoany.pl 0.1.1, Copyright (C) 2008 Dimitar Toshkov Zhekov
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of the GNU General Public License as
+published by the Free Software Foundation; either version 2 of
+the License, or (at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+Report bugs to jimmy\@is-vn.bg
+EOT
+ exit 0;
+}
+
+if ($ARGV[0] eq "+f")
+{
+ $control = 0;
+ shift @ARGV;
+
+ if ($ARGV[0] eq "+g")
+ {
+ $exchange = 1;
+ shift @ARGV;
+ }
+ elsif ($ARGV[0] eq "-g")
+ {
+ $exchange = 0;
+ shift @ARGV;
+ }
+}
+else
+{
+ $exchange = 0;
+ if($ARGV[0] eq "-f") { shift @ARGV; }
+
+ if ($ARGV[0] eq "+u")
+ {
+ $control = 32;
+ shift @ARGV;
+ }
+ elsif ($ARGV[0] eq "-u")
+ {
+ $control = 65536;
+ shift @ARGV;
+ }
+}
+
+if ($ARGV[0] eq "+o")
+{
+ $output = "";
+ shift @ARGV;
+}
+elsif ($ARGV[0] eq "-o")
+{
+ shift @ARGV;
+ $#ARGV > 0 || die("$0: -o requires an argument\n");
+ $output = $ARGV[0];
+ shift @ARGV;
+}
+elsif ($ARGV[0] =~ /^-o(.*)$/)
+{
+ $output = $1;
+ shift @ARGV;
+}
+
+if ($ARGV[0] eq "+b")
+{
+ $binary = 1;
+ shift @ARGV;
+}
+else
+{
+ $binary = 0;
+ if ($ARGV[0] eq "-b") { shift @ARGV; }
+}
+
+if ($ARGV[0] =~ /\+\s*([0-9]*)\s*$/)
+{
+ $default = $1;
+ shift @ARGV;
+}
+
+if ($ARGV[0] eq '--') { shift @ARGV; }
+elsif ($ARGV[0] =~ /^([-+][0-9a-z])$/) { print STDERR "$0: suspicuous $1, use -- to terminate the option list\n"; }
+pop @ARGV;
+
+if ($#ARGV == 2) { $ARGV[3] = "-"; }
+elsif ($#ARGV < 2) { die("$0: invalid arguments, try --help\n"); }
+
+open(BDF, "<$ARGV[0]") || die("$0: $ARGV[0]: $!\n");
+
+while (<BDF>)
+{
+ $header .= $_;
+ last if /^CHARS\s/;
+}
+
+while (<BDF>)
+{
+ if (/^STARTCHAR\s+(.+)$/) { $startchar = $1; }
+ elsif (/^ENCODING\s+(.+)$/) { $encoding = $1; }
+ $buffer .= $_;
+ if (/^ENDCHAR$/)
+ {
+ $startchar ne "" || die("$0: $ARGV[0]: ENDCHAR without STARTCHAR\n");
+ $encoding ne "" || die("$0: $ARGV[0]: no ENCODING for $startchar\n");
+ $bitmap{$encoding} = $buffer;
+ $buffer = $startchar = $encoding = "";
+ }
+ elsif (!defined($exchange) && /^BBX\s+([0-9]+)/ && $1 != 8) { $exchange = 0; }
+}
+
+close BDF;
+
+$charset = "-$ARGV[1]-$ARGV[2]";
+if (!defined($control)) { $control = ($charset =~ /^-iso10646-1$/i) ? 32 : 65536; }
+
+$chars = 0;
+for ($index = 3; $index <= $#ARGV; $index++)
+{
+ open(UNI, "<$ARGV[$index]") || die("$0: $ARGV[$index]: $!\n");
+ while (<UNI>)
+ {
+ next if /^\s*$/;
+ /^([0-9a-fA-F]{1,4})$/ || die("$0: $ARGV[$index]: invalid unicode $_\n");
+ push @unimap, hex($1);
+ if (!$control || hex($1) != 65535) { $chars++; }
+ }
+ close UNI;
+}
+$chars > 0 || die("$0: empty unicode table(s)\n");
+
+if (!defined($exchange)) { $exchange = $chars >= 256 && $chars <= 512 && $unimap[0] != 65533; }
+if ($exchange)
+{
+ @unimap >= 0xE0 || die("$0: not enough characters for exchange\n");
+ for ($index = 0x00; $index < 0x20; $index++)
+ {
+ $_ = $unimap[$index];
+ $unimap[$index] = $unimap[$index + 0xC0];
+ $unimap[$index + 0xC0] = $_;
+ }
+}
+
+if (!defined($default)) { $default = $control == 65536 ? 46 : 65533; }
+elsif ($default eq "")
+{
+ $header =~ /^DEFAULT_CHAR\s(.+)$/m || die("$0: $ARGV[0]: unable to obtain DEFAULT_CHAR\n");
+ $default = $1;
+}
+
+if (!defined($output)) { $output = "-"; }
+elsif ($output eq "") { if ($ARGV[0] =~ /^(.*).bdf$/) { $output = "$1$charset.bdf" ; } else { $output = "$ARGV[0]$charset"; } }
+
+$header =~ s/^(FONT\s.*)-.*-.*$/$1$charset/m || die("$0: $output: unable to change FONT registry-encoding\n");
+$header =~ s/^(CHARSET_REGISTRY\s).*$/$1"$ARGV[1]"/m || die("$0: $output: unable to change CHARSET_REGISTRY\n");
+$header =~ s/^(CHARSET_ENCODING\s).*$/$1"$ARGV[2]"/m || die("$0: $output: unable to change CHARSET_ENCODING\n");
+$header =~ s/^(DEFAULT_CHAR\s).*$/$1$default/m || die("$0: $output: unable to change DEFAULT_CHAR\n");
+$header =~ s/^(CHARS\s).*$/$1$chars/m || die("$0: $output: unable to change CHARS\n");
+
+sub int { $int = $!; }
+sub bye
+{
+ close OUT;
+ $output ne "-" && unlink($output) != 1 && print STDERR "$0: $output: $!\n";
+ die("@_");
+}
+
+open(OUT, ">$output") || die("$0: $output: $!\n");
+$SIG{INT} = 'int';
+if ($binary) { binmode(OUT) || bye("$0: $output: $!\n"); }
+print OUT $header;
+
+for ($index = 0; $index < @unimap; $index++)
+{
+ $_ = $unimap[$index];
+ $encoding = $index >= $control ? $_ : $index;
+ if ($_ == 65535) { if ($control) { next; } else { $_ = $default ; } }
+ $bitmap{$_} =~ s/^(ENCODING\s).*$/$1$encoding/m || bye("$0: $output: unable to change encoding for $_\n");
+ print OUT $bitmap{$_};
+}
+
+print OUT $buffer;
+close OUT || bye("$0: $output: $!\n");
+defined($int) && bye("$0: $int\n");