sys/lib/ghostscript/type1ops.ps

   1 %    Copyright (C) 1992, 1997, 1998, 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: type1ops.ps,v 1.4 2002/02/21 21:49:28 giles Exp $
  17 % type1ops.ps
  18 % Define the Type 1 and Type 2 font opcodes for use by Ghostscript utilities.
  19
  20 % Define the default value of lenIV.
  21 % Note that this expects the current font to be on the dictionary stack.
  22
  23 /lenIV { FontType 2 eq { -1 } { 4 } ifelse } def
  24
  25 % ---------------- Encoding ---------------- %
  26
  27 /Type1encode 70 dict
  28
  29         % Data types
  30
  31 dup /nulltype {
  32   pop ()
  33 } put
  34 dup /nametype {
  35   Type1encode exch get
  36 } put
  37 dup /stringtype {
  38 } put
  39 dup /integertype {
  40   dup dup -107 ge exch 107 le and {
  41     139 add (x) dup 0 4 -1 roll put
  42   } {
  43     dup dup -1131 ge exch 1131 le and {
  44       dup 0 ge { 16#f694 } { neg 16#fa94 } ifelse add
  45       (xx) dup dup 0 4 index -8 bitshift put
  46       1 4 -1 roll 255 and put
  47     } {
  48       (\377xxxx) 1 1 4 {
  49         dup 8 mul 32 sub 3 index exch bitshift 255 and
  50         2 index 3 1 roll put
  51       } for exch pop
  52     } ifelse
  53   } ifelse
  54 } put
  55
  56         % Operators
  57
  58 % Identical or similar in Type 1 and Type 2.
  59 /c_hstem 1 def   dup /hstem <01> put
  60 /c_vstem 3 def   dup /vstem <03> put
  61 /c_vmoveto 4 def   dup /vmoveto <04> put
  62 /c_rlineto 5 def   dup /rlineto <05> put
  63 /c_hlineto 6 def   dup /hlineto <06> put
  64 /c_vlineto 7 def   dup /vlineto <07> put
  65 /c_rrcurveto 8 def   dup /rrcurveto <08> put
  66 /c_callsubr 10 def   /s_callsubr <0a> def   dup /callsubr s_callsubr put
  67 /c_return 11 def   dup /return <0b> put
  68 /c_escape 12 def
  69   /ce_div 12 def   /s_div <0c0c> def   dup /div s_div put
  70 /c_endchar 14 def   /s_endchar <0e> def   dup /endchar s_endchar put
  71 /c_rmoveto 21 def   dup /rmoveto <15> put
  72 /c_hmoveto 22 def   dup /hmoveto <16> put
  73 /c_vhcurveto 30 def   dup /vhcurveto <1e> put
  74 /c_hvcurveto 31 def   dup /hvcurveto <1f> put
  75 % Only in Type 1.
  76 /c_closepath 9 def   dup /closepath <09> put
  77 /c_hsbw 13 def   /s_hsbw <0d> def   dup /hsbw s_hsbw put
  78   /ce_dotsection 0 def   /s_dotsection <0c06> def   dup /dotsection s_dotsection put
  79   /ce_vstem3 1 def   /s_vstem3 <0c01> def   dup /vstem3 s_vstem3 put
  80   /ce_hstem3 2 def   /s_hstem3 <0c02> def   dup /hstem3 s_hstem3 put
  81   /ce_seac 6 def   /s_seac <0c06> def   dup /seac s_seac put
  82   /ce_sbw 7 def   /s_sbw <0c07> def   dup /sbw s_sbw put
  83   /ce_callothersubr 16 def   /s_callothersubr <0c10> def   dup /callothersubr s_callothersubr put
  84   /ce_pop 17 def   /s_pop <0c11> def   dup /pop s_pop put
  85   /ce_setcurrentpoint 33 def   /s_setcurrentpoint <0c21> def   dup /setcurrentpoint s_setcurrentpoint put
  86   /s_setcurrentpoint_hmoveto s_setcurrentpoint <8b16> concatstrings def
  87 % Only in Type 2.
  88 dup /blend <10> put
  89 dup /hstemhm <12> put
  90 dup /hintmask <13> put
  91 dup /cntrmask <14> put
  92 dup /vstemhm <17> put
  93 dup /rcurveline <18> put
  94 dup /rlinecurve <19> put
  95 dup /vvcurveto <1a> put
  96 dup /hhcurveto <1b> put
  97 dup /callgsubr <1d> put
  98   dup /and <0c03> put
  99   dup /or <0c04> put
 100   dup /not <0c05> put
 101   dup /store <0c08> put
 102   dup /abs <0c09> put
 103   dup /add <0c0a> put
 104   dup /sub <0c0b> put
 105   dup /load <0c0d> put
 106   dup /neg <0c0c> put
 107   dup /eq <0c0f> put
 108   dup /drop <0c12> put
 109   dup /put <0c14> put
 110   dup /get <0c15> put
 111   dup /ifelse <0c16> put
 112   dup /random <0c17> put
 113   dup /mul <0c18> put
 114   dup /sqrt <0c1a> put
 115   dup /dup <0c1b> put
 116   dup /exch <0c1c> put
 117   dup /index <0c1d> put
 118   dup /roll <0c1e> put
 119   dup /hflex <0c22> put
 120   dup /flex <0c23> put
 121   dup /hflex1 <0c24> put
 122   dup /flex1 <0c25> put
 123
 124 readonly def
 125
 126 % ---------------- Decoding ---------------- %
 127
 128 /Type1decode 512 array
 129
 130 Type1encode {
 131   dup type /stringtype eq {
 132     dup length 1 eq { 0 get } { 1 get 256 add } ifelse
 133                 % stack: array key code
 134     exch 2 index 3 1 roll put
 135   } {
 136     pop pop
 137   } ifelse
 138 } forall
 139
 140 dup 12 {
 141   dup read pop dup Type1decode exch 256 add get dup null ne
 142     { exch pop }
 143     { pop 2 string dup 0 12 put dup 1 4 -1 roll put }
 144   ifelse
 145 } put
 146 dup 28 {                % Type 2 only
 147   dup read pop 128 xor 128 sub 8 bitshift
 148   1 index read pop add
 149 } put
 150 32 1 246 { 2 copy dup 139 sub put pop } for
 151 dup 247 { dup read pop 108 add } put
 152 dup 248 { dup read pop 364 add } put
 153 dup 249 { dup read pop 620 add } put
 154 dup 250 { dup read pop 876 add } put
 155 dup 251 { dup read pop 108 add neg } put
 156 dup 252 { dup read pop 364 add neg } put
 157 dup 253 { dup read pop 620 add neg } put
 158 dup 254 { dup read pop 876 add neg } put
 159 dup 255 {               % Different for Type 1 and Type 2
 160   dup read pop 128 xor 128 sub
 161   3 { 8 bitshift 1 index read pop add } repeat
 162   FontType 2 eq { 65536.0 div } if
 163 } put
 164
 165 readonly def
 166
 167 % ---------------- Procedures ---------------- %
 168
 169 % For these utilities, a CharString is represented by a sequence of
 170 % integers, reals, strings, and names, either in an array or on the stack.
 171 % Integers and reals represent themselves; strings are other data that
 172 % appears in the CharString; names are CharString operator names.
 173 % A CharString in an array is called a "charproc"; a CharString on
 174 % the stack is called a "charstack", and is delimited by a mark.
 175 % Individual elements are called "chartokens".
 176
 177 % ------ Encoding ------ %
 178
 179 % Get the string for a chartoken.
 180 % Note that this string may be overwritten by the next call.
 181 /chartoken_string {     % <chartoken> chartoken_string <string>
 182   dup type Type1encode exch get exec
 183 } bind def
 184 % Compute the length of a CharString.
 185 /chartoken_length {     % <chartoken> chartoken_length <length>
 186   chartoken_string length
 187 } bind def
 188 /charproc_length {      % <charproc> charproc_length <length>
 189   0 exch { chartoken_length add } forall
 190 } bind def
 191 /charstack_length {     % <charstack> charstack_length <charstack> <length>
 192   counttomark 0 exch -1 1 { index chartoken_length add } for
 193 } bind def
 194
 195 % Write a CharString to a file.  Normally this will be a NullEncode filter
 196 % writing on a string of the correct length.
 197 /chartoken_write {      % <file> <chartoken> chartoken_write -
 198   chartoken_string writestring
 199 } bind def
 200 /charproc_write {       % <file> <charproc> charproc_write -
 201   { 1 index exch chartoken_write } forall pop
 202 } bind def
 203 % Note that the arguments of charstack_write are backwards.
 204 /charstack_write {      % <charstack> <file> charstack_write -
 205   counttomark 1 sub -1 1 { index 1 index exch chartoken_write } for
 206   cleartomark
 207 } bind def
 208
 209 % Convert a charproc or charstack to an *un*encrypted CharString.
 210 /charproc_string {      % <charproc> charproc_string <string>
 211   mark exch aload pop charstack_string
 212 } bind def
 213 /charstack_string {     % <charstack> charstack_string <string>
 214   charstack_length lenIV 0 gt {
 215     lenIV add string
 216     dup dup length lenIV sub lenIV exch getinterval     % skip lenIV
 217   } {
 218     string
 219   } ifelse
 220   /NullEncode filter
 221   exch 1 index counttomark 1 add 2 roll
 222   charstack_write closefile
 223 %   lenIV 0 ge { 4330 exch dup .type1encrypt exch pop readonly } if
 224 } bind def
 225
 226 % ------ Decoding ------ %
 227
 228 % Decode a CharString (unencrypted).
 229 /charstack_read {       % <file> charstack_read <no-mark-charstack>
 230   { dup read not { pop exit } if
 231     Type1decode 1 index get dup null eq {
 232       pop 1 string dup 0 4 -1 roll put
 233     } {
 234       exch pop exec
 235     } ifelse exch
 236   } loop
 237 } bind def