%    Copyright (C) 1991, 1992, 1994 Aladdin Enterprises.  All rights reserved.
%
% This file is part of Ghostscript.
%
% Ghostscript is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
% to anyone for the consequences of using it or for whether it serves any
% particular purpose or works at all, unless he says so in writing.  Refer
% to the Ghostscript General Public License for full details.
%
% Everyone is granted permission to copy, modify and redistribute
% Ghostscript, but only under the conditions described in the Ghostscript
% General Public License.  A copy of this license is supposed to have been
% given to you along with Ghostscript so you can know your rights and
% responsibilities.  It should be in a file named COPYING.  Among other
% things, the copyright notice and this notice must be preserved on all
% copies.

% pfbtogs.ps
% Convert a PFB file to a Ghostscript font.

% A .pfb file is a sequence of packets.  Each packet starts with byte
% 0x80.  The second byte in the packet gives the type of packet: 1
% means it's a packet of ascii data which should be sent out as is
% (except for translating \r to the appropriate end-of-line
% character(s)); 2 means it's a packet of binary data (which may be
% translated into hex); 3 means EOF.  For types 1 and 2, the type byte
% is followed by four bytes giving the length of the packet, least
% significant first.

/envPFB 20 dict def
envPFB begin

% ------ Packet writing routines ------ %

   /pfbtext		% str ->
     {  { (\r) search
           { ofile exch writestring pop
	     ofile (\n) writestring
	   }
	   { ofile exch writestring exit
	   }
	  ifelse
	} loop
     } def

   /pfbbinary		% str ->
    {  { dup length 30 gt
          { dup 0 30 getinterval ofile exch writehexstring
	    ofile (\n) writestring
	    dup length 30 sub 30 exch getinterval
	  }
	  { ofile exch writehexstring exit
	  }
	 ifelse
       } loop ofile (\n) writestring
     } def

   /pfbcopy		% count proc ->
    { exch		% proc count
       { dup bufsize min
         buf 0 3 -1 roll getinterval
	 2 index exec
	 bufsize sub dup 0 le { exit } if
       } loop pop pop
    } def

% ------ The main program ------ %

   /bufsize 30000 def
   /buf bufsize string def

   /pfbtogs		% infilename outfilename pfbtogs ->
    { /psname exch def
      /pfbname exch def

      pfbname (r) file /ifile exch def
      /packet 6 string def
      ifile packet readstring
       { dup length 6 eq { 0 get 128 eq } { pop false } ifelse }
       { pop false }
      ifelse
      not { (Not a valid .PFB file.\n) print flush stop } if

      ifile 0 setfileposition
      psname (w) file /ofile exch def

       { ifile packet readstring
         not { exit } if
	 (packet: ) print packet { ( ) print =only } forall (\n) print flush
	 packet 5 get 256 mul packet 4 get add
	 256 mul packet 3 get add 256 mul packet 2 get add
	 packet 1 get 1 sub
	  { { { ifile exch readstring pop pfbtext } pfbcopy }
	    { { ifile exch readstring pop pfbbinary } pfbcopy }
	    { exit }
	  } exch get exec
       } loop

      ofile closefile
      ifile closefile

    } bind def

end

% Enter the main program in the current dictionary.
/pfbtogs
 { envPFB begin   pfbtogs end
 } bind def

% If the program was invoked from the command line, run it now.
shellarguments { pfbtogs } if