diff options
author | marha <marha@users.sourceforge.net> | 2009-10-11 18:59:59 +0000 |
---|---|---|
committer | marha <marha@users.sourceforge.net> | 2009-10-11 18:59:59 +0000 |
commit | e4bc1b2bff00254f5782928d5b7b15b4db2e774c (patch) | |
tree | 9bcc1cad2fa55b8ae22d94cfbaf2a2487041fcd8 /xorg-server/fonts.src/font-util/bdftruncate.pl | |
parent | 026bf5d0c0bbcc109bfe2b2c58fc930a2e42753e (diff) | |
download | vcxsrv-e4bc1b2bff00254f5782928d5b7b15b4db2e774c.tar.gz vcxsrv-e4bc1b2bff00254f5782928d5b7b15b4db2e774c.tar.bz2 vcxsrv-e4bc1b2bff00254f5782928d5b7b15b4db2e774c.zip |
Updated following packages:
encodings-1.0.3
font-adobe-75dpi-1.0.1
font-adobe-100dpi-1.0.1
font-adobe-utopia-75dpi-1.0.2
font-adobe-utopia-100dpi-1.0.2
font-adobe-utopia-type1-1.0.2
font-alias-1.0.2
font-arabic-misc-1.0.1
font-bh-75dpi-1.0.1
font-bh-100dpi-1.0.1
font-bh-lucidatypewriter-75dpi-1.0.1
font-bh-lucidatypewriter-100dpi-1.0.1
font-bh-ttf-1.0.1
font-bh-type1-1.0.1
font-bitstream-75dpi-1.0.1
font-bitstream-100dpi-1.0.1
font-bitstream-speedo-1.0.1
font-bitstream-type1-1.0.1
font-cronyx-cyrillic-1.0.1
font-cursor-misc-1.0.1
font-daewoo-misc-1.0.1
font-dec-misc-1.0.1
font-ibm-type1-1.0.1
font-isas-misc-1.0.1
font-jis-misc-1.0.1
font-micro-misc-1.0.1
font-misc-cyrillic-1.0.1
font-misc-ethiopic-1.0.1
font-misc-meltho-1.0.1
font-misc-misc-1.1.0
font-mutt-misc-1.0.1
font-schumacher-misc-1.1.0
font-screen-cyrillic-1.0.2
font-sony-misc-1.0.1
font-sun-misc-1.0.1
font-util-1.1.0
font-winitzki-cyrillic-1.0.1
font-xfree86-type1-1.0.2
libXfont-1.4.1
mkfontscale-1.0.7
Diffstat (limited to 'xorg-server/fonts.src/font-util/bdftruncate.pl')
-rw-r--r-- | xorg-server/fonts.src/font-util/bdftruncate.pl | 77 |
1 files changed, 0 insertions, 77 deletions
diff --git a/xorg-server/fonts.src/font-util/bdftruncate.pl b/xorg-server/fonts.src/font-util/bdftruncate.pl deleted file mode 100644 index 0df06e5c9..000000000 --- a/xorg-server/fonts.src/font-util/bdftruncate.pl +++ /dev/null @@ -1,77 +0,0 @@ -#!/usr/bin/perl -# -# bdftruncate.pl -- Markus Kuhn <http://www.cl.cam.ac.uk/~mgk25/> -# -# This Perl script allows you to generate from an ISO10646-1 encoded -# BDF font other ISO10646-1 BDF fonts in which all characters above -# a threshold code value are stored unencoded. -# -# $ucs-fonts: bdftruncate.pl,v 1.7 2004-11-28 18:41:13+00 mgk25 Rel $ - -# Subroutine to identify whether the ISO 10646/Unicode character code -# ucs belongs into the East Asian Wide (W) or East Asian FullWidth -# (F) category as defined in Unicode Technical Report #11. -sub iswide ($) { - my $ucs = shift(@_); - - return ($ucs >= 0x1100 && - ($ucs <= 0x115f || # Hangul Jamo - ($ucs >= 0x2e80 && $ucs <= 0xa4cf && - ($ucs & ~0x0011) != 0x300a && $ucs != 0x303f) || # CJK .. Yi - ($ucs >= 0xac00 && $ucs <= 0xd7a3) || # Hangul Syllables - ($ucs >= 0xf900 && $ucs <= 0xfaff) || # CJK Comp. Ideographs - ($ucs >= 0xfe30 && $ucs <= 0xfe6f) || # CJK Comp. Forms - ($ucs >= 0xff00 && $ucs <= 0xff5f) || # Fullwidth Forms - ($ucs >= 0xffe0 && $ucs <= 0xffe6) || - ($ucs >= 0x20000 && $ucs <= 0x2ffff))); -} - -# parse options -if ($ARGV[0] eq '-w' || $ARGV[0] eq '+w') { - $removewide = $ARGV[0] eq '-w'; - shift @ARGV; -} - -print STDERR <<End if $#ARGV != 0; - -Usage: bdftruncate.pl [+w|-w] threshold <source.bdf >destination.bdf - -Example: - - bdftruncate.pl 0x3200 <6x13.bdf >6x13t.bdf - -will generate the file 6x13t.bdf in which all glyphs with codes ->= 0x3200 will only be stored unencoded (i.e., ENCODING -1). -Option -w removes East Asian Wide and East Asian FullWidth characters -(default if threshold <= 0x3200), and option +w keeps them. - -End - -exit 1 if $#ARGV != 0; - -# read threshold value from command line -$threshold = $ARGV[0]; -if ($threshold =~ /^(0[xX]|U[+-]?)([0-9a-fA-F]+)$/) { - $threshold = hex($2); -} elsif (!($threshold =~ /^[0-9]+$/)) { - die("Illegal threshold '$threshold'!\n"); -} -$removewide = $threshold <= 0x3200 unless defined $removewide; - -# filter file -while (<STDIN>) { - if (/^ENCODING\s+(-?\d+)/ && - ($1 >= $threshold || ($removewide && iswide($1)))) { - print "ENCODING -1\n"; - } elsif (/^STARTFONT/) { - print; - print "COMMENT AUTOMATICALLY GENERATED FILE. DO NOT EDIT!\n"; - printf("COMMENT In this version of the font file, all characters >= " . - "U+%04X are\nCOMMENT not encoded to keep XFontStruct small.\n", - $threshold); - } else { - s/^COMMENT\s+\"(.*)\"$/COMMENT $1/; - s/^COMMENT\s+\$[I]d: (.*)\$\s*$/COMMENT Derived from $1\n/; - print; - } -} |