[Summary view] [Print] [Text view]

   1  #!/usr/bin/perl
   2  #
   3  # A script to convert a Unicode character map to
   4  # the C code
   5  #
   6  
   7  sub fromhex
   8  {
   9      return eval "0x".$_[0];
  10  }
  11  
  12  $inmap=0;
  13  
  14  while(<>)
  15  {
  16      if(/^CHARMAP/) {
  17          $inmap=1;
  18      } elsif(/^END CHARMAP/) {
  19          $inmap=0;
  20      } elsif($inmap
  21      && /^\s*\S+\s+\/x([0-9a-fA-F][0-9a-fA-F])\s+\<U([0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F])/) {
  22          $map[fromhex($1)]=fromhex($2);
  23      }
  24  }