head     1.1;
branch   1.1.1;
access   ;
symbols  INIT:1.1.1.1 VENDOR:1.1.1;
locks    ; strict;
comment  @# @;


1.1
date     2004.08.10.16.05.55;  author wkpark;  state Exp;
branches 1.1.1.1;
next     ;

1.1.1.1
date     2004.08.10.16.05.55;  author wkpark;  state Exp;
branches ;
next     ;


desc
@@



1.1
log
@Initial revision
@
text
@#!/usr/bin/perl
$c=0;
#$foff=$ARGV[0];
$foff=6; # sixth font
while(<STDIN>) {
  if (/\s*(".{4})?\(CHARACTER H (\w+)/) {
    $h=hex $2;
    if ($h >= 0xac00 && $h <=0xd7a3) {
      if ($c) {print "\n"};
      $c=1;
    } else {
      $c=0;
    }
  }
  elsif ($c && /^\s+\(SELECTFONT D (\d+)\)$/) { $f=($1-$foff)*256; }
  elsif ($c && /^\s+\(SETCHAR H (.+)\)$/) { print $f+(hex $1)," ";}
}

print "\n";
@


1.1.1.1
log
@Import
@
text
@@
