#!/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
      }
   }
}