sys/lib/ghostscript/pcharstr.ps

   1 %    Copyright (C) 1990, 1992, 1997, 1999 Aladdin Enterprises.  All rights reserved.
   2 %
   3 % This software is provided AS-IS with no warranty, either express or
   4 % implied.
   5 %
   6 % This software is distributed under license and may not be copied,
   7 % modified or distributed except as expressly authorized under the terms
   8 % of the license contained in the file LICENSE in this distribution.
   9 %
  10 % For more information about licensing, please refer to
  11 % http://www.ghostscript.com/licensing/. For information on
  12 % commercial licensing, go to http://www.artifex.com/licensing/ or
  13 % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14 % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15
  16 % $Id: pcharstr.ps,v 1.4 2002/02/21 21:49:28 giles Exp $
  17 % pcharstr.ps
  18 % Print the CharStrings and Subrs (if present) from a Type 1 font,
  19 % in either a PostScript-like or a C-compatible form,
  20 % depending on whether CSFormat is defined as /PS or /C.
  21
  22 % Load the Type 1 utilities.
  23 (type1ops.ps) runlibfile
  24
  25 % Define the printing procedures for PostScript-like output.
  26 /pcs_ps_dict mark
  27   /, {( ) print}
  28   /charname {==only}
  29   /csbegin {}
  30   /beginchars {(%---------------- CharStrings\n) print}
  31   /charbegin {==only}
  32   /char1 {( ) print ==only}
  33   /endchars {}
  34   /beginsubrs {(%---------------- Subrs\n) print}
  35   /subrbegin {=only}
  36   /endsubrs {}
  37   /beginboxes {(%---------------- Encoding & metrics\n) print}
  38   /notdefbox {}
  39   /boxbegin {=only ( ) print}
  40   /boxend {(\n) print}
  41   /endboxes {(%----------------\n) print}
  42 .dicttomark readonly def
  43
  44 % Define the printing procedures for C-like output.
  45 /pcs_c_dict mark
  46   /, {(, ) print}
  47   /charname {(") print =only (") print}
  48   /csbegin {counttomark =only ,}
  49   /beginchars {(\nconstdata int CSCharData[] = {\n) print}
  50   /charbegin {pop}
  51   /char1 {=only ,}
  52   /endchars {
  53     (-1\n};\nconstdata char *CSCharNames[] = {\n) print
  54     CharStrings {pop charname ,} forall (0\n};\n) print
  55   }
  56   /beginsubrs {(\nconstdata int CSSubrs[] = {\n) print}
  57   /subrbegin {pop}
  58   /endsubrs {(-1\n};\n) print}
  59   /beginboxes {(\nconstdata type1_box CSboxes[] = {\n) print}
  60   /notdefbox {(  {""},\n) print}
  61   /boxbegin {pop (  {) print}
  62   /boxend {(},) =}
  63   /endboxes {(  {0}\n};\n) print}
  64 .dicttomark readonly def
  65
  66 /printcs
  67  { dup type /stringtype eq
  68     { printcs1 (\n) print }
  69     { ( ) print == }
  70    ifelse
  71  } bind def
  72 /printcs1
  73  { save exch
  74    lenIV 0 ge {
  75      4330 exch dup length string .type1decrypt exch pop
  76      dup length lenIV sub lenIV exch getinterval
  77    } if
  78    0 () /SubFileDecode filter
  79    mark exch charstack_read csbegin
  80    counttomark 1 sub -1 0 { index char1 } for
  81    cleartomark restore
  82  } bind def
  83
  84 /printfont
  85  { pcs_ps_dict
  86    /CSFormat where { pop CSFormat /C eq { pop pcs_c_dict } if } if
  87    begin
  88    currentfont begin Private begin 10 dict begin
  89
  90         % Print the CharStrings and Subrs
  91
  92    beginchars
  93    CharStrings { exch charbegin printcs } forall
  94    endchars
  95    /Subrs where
  96     { pop       % the dictionary
  97       beginsubrs
  98       0 1 Subrs length 1 sub
  99        { dup subrbegin
 100          Subrs exch get printcs
 101        } for
 102       endsubrs
 103     } if
 104
 105         % Print the bounding boxes
 106
 107    gsave nulldevice FontMatrix matrix invertmatrix concat
 108    beginboxes
 109    0 1 Encoding length 1 sub
 110     { dup Encoding exch get dup /.notdef eq
 111        { pop pop notdefbox
 112        }
 113        { 1 index boxbegin charname ,
 114          ( ) dup 0 4 -1 roll put
 115          newpath 0 0 moveto false charpath
 116          pathbbox ({) print 4 -1 roll =only ,
 117          3 -1 roll =only , exch =only , =only (}) print
 118          boxend
 119        }
 120       ifelse
 121     } for
 122    endboxes
 123    grestore
 124
 125    end end end end
 126  } bind def