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


1.2
date	2008.07.02.11.51.23;	author wkpark;	state Exp;
branches;
next	1.1;

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.2
log
@update scripts
@
text
@#!/usr/bin/perl

sub parseSfd(@@) {
  my $map='';
  my $name='';
  for $_ (@@_) {
    if (/^(\d+)\s+(.*)/) {
      if ($name) {
         $fontmap{$name} = $map;
      }
      $name=$1;
      $map=$2;
      $map=~ s/\\$/ /;
    } elsif (/^\s+(.*)/) {$dummy=$1;$dummy=~s/\\$/ /;$map.=$dummy;}
  }
  $fontmap{$name} = $map;
}

parseSfd(<STDIN>);

$fontname=$ARGV[0];

#@@list=('00','01','02','03','04','05');
#@@list=('10','11','12','13','14','15','16','17');
@@list=('20','21','22','23','24','25','26','27','28','29','30',
'31','32','33','34','35','36','37','38');

$enc=0;
for $X (@@list) {
   @@map=split(/\s+/,$fontmap{$X});
   #print STDERR $fontmap{$X},"\n";
   $fn=sprintf $fontname."%02d",$X;
   open(SFD,$fn) or die "can't open a sfd";
   $i=0;
   while(<SFD>) {
      if (/^StartChar: \.notdef/) { $char=0;}
      elsif (/^StartChar: /) { $char=1;}
      elsif ($char && /^EndChar: /) { $char=0; print;}
      elsif ($char && /^Encoding: /) {
         $enc= $map[$i++];
         if ($enc) {
            $name=sprintf "%04X",$enc;
            printf "StartChar: uni$name\n";
            $enc= hex $enc;
            print "Encoding: ",$enc," ",$enc,"\n";
            $enc++;
         } else {
            $char=0;
         }
      }
      elsif (/^(Ligature:|EndChars|EndSplineFont)/) {}
#      elsif (/^(HStem:|VStem:)/) {}
      elsif ($char) { print $_;}
   }
   close(SFD);
}
@


1.1
log
@Initial revision
@
text
@d42 5
a46 4
         printf "StartChar: uni$enc\n";
         $enc= hex $enc;
         print "Encoding: ",$enc," ",$enc,"\n";
         $enc++;
@


1.1.1.1
log
@Import
@
text
@@
