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;
while(<>) {
  if (/\s*(".{2,4})?\(CHARACTER H (\w+)$/) {
    $h=hex $2;
    if ($h < 0xac00 or $h > 0xd7a3) {
      $c=$2;
      #$cc=hex $2; print "\n$2 ";
    } else {
      $c=0;
    }
  }
  elsif ($c && /^\s+\(SELECTFONT D (\d+)\)$/) {
    if ($1 < 6) {
      $f=($1)*256;
    }
    else {
      $c=0;
    }
  }
  elsif ($c && /^\s+\(SETCHAR H (.+)\)$/) { print $c," ",$f+(hex $1),"\n";}
}
print "\n";
@


1.1.1.1
log
@Import
@
text
@@
