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

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

print "EndChars\nEndSplineFont\n";
@


1.1
log
@Initial revision
@
text
@d15 3
a17 3
            printf "StartChar: glyph%05d\n",$enc;
            print "Encoding: ",$enc," ",$enc,"\n";
            $enc++;
d28 1
@


1.1.1.1
log
@Import
@
text
@@
