"Fossies" - the Fresh Open Source Software Archive

Member "ttf2pt1-3.4.4/scripts/frommap" (19 Apr 2000, 370 Bytes) of package /linux/misc/old/ttf2pt1-3.4.4.tgz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file.

    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 }