diff options
author | Jeremy Katz <katzj@redhat.com> | 2003-11-18 20:21:01 +0000 |
---|---|---|
committer | Jeremy Katz <katzj@redhat.com> | 2003-11-18 20:21:01 +0000 |
commit | 378d0c72fb368a40b5a4631c01cfc32bdd057932 (patch) | |
tree | ae4fde2abe76b204a46837c666df5651cadf425f /utils | |
parent | 6c429e82239555c7785a4b18f3536af773d8a9c9 (diff) | |
download | anaconda-378d0c72fb368a40b5a4631c01cfc32bdd057932.tar.gz anaconda-378d0c72fb368a40b5a4631c01cfc32bdd057932.tar.xz anaconda-378d0c72fb368a40b5a4631c01cfc32bdd057932.zip |
this isn't used anymore
Diffstat (limited to 'utils')
-rwxr-xr-x | utils/uniqkanji.pl | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/utils/uniqkanji.pl b/utils/uniqkanji.pl deleted file mode 100755 index fe8391290..000000000 --- a/utils/uniqkanji.pl +++ /dev/null @@ -1,44 +0,0 @@ -#!/usr/bin/perl - -print STDERR "Scanning message and help files and surveys which multibyte chars are used...\n"; - -while (<>) { - &entry_kanji($_); -} - -print STDERR "\n$count unique chars\n"; - -$fillzero = 0; -$charset = 0; -$jismode = $bigfivemode = 0; - -print STDERR "Spit out the list of characters being used in the input.\n"; - -foreach $i (sort(keys(%usedkanji))) -{ - print chr($i / 256) . chr($i % 256) . "\n"; -} - - -sub entry_kanji -{ - local($line) = @_; - local($i, $len, $c, $kchar); - - $len = length($line); - - for ($i = 0; $i < $len; $i++) { - $line =~ s/^(.)//; - $c = ord($1); - if ($c >= 0xa0 && $c <= 0xff) { - $line =~ s/^(.)//; - $kchar = $c * 256 + ord($1); - $i++; - if (!$usedkanji{$kchar}) { - $usedkanji{$kchar} = 1; - printf(STDERR "%04x ", $kchar); - $count++; - } - } - } -} |