#!/usr/bin/perl
  #
  # A script to convert a Unicode character map to
  # the C code
  #
  
  sub fromhex
  {
  	return eval "0x".$_[0];
  }
  
  $inmap=0;
  
  while(<>)
  {
  	if(/^CHARMAP/) {
  		$inmap=1;
  	} elsif(/^END CHARMAP/) {
  		$inmap=0;
  	} elsif($inmap
  	&& /^\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])/) {
  		$map[fromhex($1)]=fromhex($2);
  	}
  }