/usr/bin/unifontchojung is in unifont-bin 1:8.0.01-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 | #!/usr/bin/perl
#
# This script searches for Unicode code points in a Unifont .hex file
# that contain only initial consonant + vowel, with no final consonant.
# This allows concentrating on this combination during font development.
#
# Author: Paul Hardy, March 2012
#
# Copyright (C) 2012, 2013 Paul Hardy
#
# LICENSE:
#
# 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.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
#
@chojung = (
'AC00:','AC1C:','AC38:','AC54:','AC70:','AC8C:','ACA8:','ACC4:',
'ACE0:','ACFC:','AD18:','AD34:','AD50:','AD6C:','AD88:','ADA4:',
'ADC0:','ADDC:','ADF8:','AE14:','AE30:','AE4C:','AE68:','AE84:',
'AEA0:','AEBC:','AED8:','AEF4:','AF10:','AF2C:','AF48:','AF64:',
'AF80:','AF9C:','AFB8:','AFD4:','AFF0:','B00C:','B028:','B044:',
'B060:','B07C:','B098:','B0B4:','B0D0:','B0EC:','B108:','B124:',
'B140:','B15C:','B178:','B194:','B1B0:','B1CC:','B1E8:','B204:',
'B220:','B23C:','B258:','B274:','B290:','B2AC:','B2C8:','B2E4:',
'B300:','B31C:','B338:','B354:','B370:','B38C:','B3A8:','B3C4:',
'B3E0:','B3FC:','B418:','B434:','B450:','B46C:','B488:','B4A4:',
'B4C0:','B4DC:','B4F8:','B514:','B530:','B54C:','B568:','B584:',
'B5A0:','B5BC:','B5D8:','B5F4:','B610:','B62C:','B648:','B664:',
'B680:','B69C:','B6B8:','B6D4:','B6F0:','B70C:','B728:','B744:',
'B760:','B77C:','B798:','B7B4:','B7D0:','B7EC:','B808:','B824:',
'B840:','B85C:','B878:','B894:','B8B0:','B8CC:','B8E8:','B904:',
'B920:','B93C:','B958:','B974:','B990:','B9AC:','B9C8:','B9E4:',
'BA00:','BA1C:','BA38:','BA54:','BA70:','BA8C:','BAA8:','BAC4:',
'BAE0:','BAFC:','BB18:','BB34:','BB50:','BB6C:','BB88:','BBA4:',
'BBC0:','BBDC:','BBF8:','BC14:','BC30:','BC4C:','BC68:','BC84:',
'BCA0:','BCBC:','BCD8:','BCF4:','BD10:','BD2C:','BD48:','BD64:',
'BD80:','BD9C:','BDB8:','BDD4:','BDF0:','BE0C:','BE28:','BE44:',
'BE60:','BE7C:','BE98:','BEB4:','BED0:','BEEC:','BF08:','BF24:',
'BF40:','BF5C:','BF78:','BF94:','BFB0:','BFCC:','BFE8:','C004:',
'C020:','C03C:','C058:','C074:','C090:','C0AC:','C0C8:','C0E4:',
'C100:','C11C:','C138:','C154:','C170:','C18C:','C1A8:','C1C4:',
'C1E0:','C1FC:','C218:','C234:','C250:','C26C:','C288:','C2A4:',
'C2C0:','C2DC:','C2F8:','C314:','C330:','C34C:','C368:','C384:',
'C3A0:','C3BC:','C3D8:','C3F4:','C410:','C42C:','C448:','C464:',
'C480:','C49C:','C4B8:','C4D4:','C4F0:','C50C:','C528:','C544:',
'C560:','C57C:','C598:','C5B4:','C5D0:','C5EC:','C608:','C624:',
'C640:','C65C:','C678:','C694:','C6B0:','C6CC:','C6E8:','C704:',
'C720:','C73C:','C758:','C774:','C790:','C7AC:','C7C8:','C7E4:',
'C800:','C81C:','C838:','C854:','C870:','C88C:','C8A8:','C8C4:',
'C8E0:','C8FC:','C918:','C934:','C950:','C96C:','C988:','C9A4:',
'C9C0:','C9DC:','C9F8:','CA14:','CA30:','CA4C:','CA68:','CA84:',
'CAA0:','CABC:','CAD8:','CAF4:','CB10:','CB2C:','CB48:','CB64:',
'CB80:','CB9C:','CBB8:','CBD4:','CBF0:','CC0C:','CC28:','CC44:',
'CC60:','CC7C:','CC98:','CCB4:','CCD0:','CCEC:','CD08:','CD24:',
'CD40:','CD5C:','CD78:','CD94:','CDB0:','CDCC:','CDE8:','CE04:',
'CE20:','CE3C:','CE58:','CE74:','CE90:','CEAC:','CEC8:','CEE4:',
'CF00:','CF1C:','CF38:','CF54:','CF70:','CF8C:','CFA8:','CFC4:',
'CFE0:','CFFC:','D018:','D034:','D050:','D06C:','D088:','D0A4:',
'D0C0:','D0DC:','D0F8:','D114:','D130:','D14C:','D168:','D184:',
'D1A0:','D1BC:','D1D8:','D1F4:','D210:','D22C:','D248:','D264:',
'D280:','D29C:','D2B8:','D2D4:','D2F0:','D30C:','D328:','D344:',
'D360:','D37C:','D398:','D3B4:','D3D0:','D3EC:','D408:','D424:',
'D440:','D45C:','D478:','D494:','D4B0:','D4CC:','D4E8:','D504:',
'D520:','D53C:','D558:','D574:','D590:','D5AC:','D5C8:','D5E4:',
'D600:','D61C:','D638:','D654:','D670:','D68C:','D6A8:','D6C4:',
'D6E0:','D6FC:','D718:','D734:','D750:','D76C:','D788:','D7A4:'
);
$nextchojung = shift(@chojung); # get first code point to find
while (<>) {
if (substr($nextchojung, 0, 5) eq substr($_, 0, 5)) {
print or die ("Cannot print to stdout.\n"); # this is one of the syllables we're seeking; print it
# Now get next Hangul Syllable to find; if no more, exit.
if ($#chojung < 0) {
exit;
}
else {
$nextchojung = shift(@chojung); # get next code point to find
}
}
}
|