Subversion Repositories planix.SVN

%    Copyright (C) 1992, 1997, 1998, 1999 Aladdin Enterprises.  All rights reserved.

% 

% This software is provided AS-IS with no warranty, either express or

% implied.

% 

% This software is distributed under license and may not be copied,

% modified or distributed except as expressly authorized under the terms

% of the license contained in the file LICENSE in this distribution.

% 

% For more information about licensing, please refer to

% http://www.ghostscript.com/licensing/. For information on

% commercial licensing, go to http://www.artifex.com/licensing/ or

% contact Artifex Software, Inc., 101 Lucas Valley Road #110,

% San Rafael, CA  94903, U.S.A., +1(415)492-9861.

% $Id: type1ops.ps,v 1.4 2002/02/21 21:49:28 giles Exp $

% type1ops.ps

% Define the Type 1 and Type 2 font opcodes for use by Ghostscript utilities.

% Define the default value of lenIV.

% Note that this expects the current font to be on the dictionary stack.

/lenIV { FontType 2 eq { -1 } { 4 } ifelse } def

% ---------------- Encoding ---------------- %

/Type1encode 70 dict

	% Data types

dup /nulltype {

  pop ()

} put

dup /nametype {

  Type1encode exch get

} put

dup /stringtype {

} put

dup /integertype {

  dup dup -107 ge exch 107 le and {

    139 add (x) dup 0 4 -1 roll put

  } {

    dup dup -1131 ge exch 1131 le and {

      dup 0 ge { 16#f694 } { neg 16#fa94 } ifelse add

      (xx) dup dup 0 4 index -8 bitshift put

      1 4 -1 roll 255 and put

    } {

      (\377xxxx) 1 1 4 {

	dup 8 mul 32 sub 3 index exch bitshift 255 and

	2 index 3 1 roll put

      } for exch pop

    } ifelse

  } ifelse

} put

	% Operators

% Identical or similar in Type 1 and Type 2.

/c_hstem 1 def   dup /hstem <01> put

/c_vstem 3 def   dup /vstem <03> put

/c_vmoveto 4 def   dup /vmoveto <04> put

/c_rlineto 5 def   dup /rlineto <05> put

/c_hlineto 6 def   dup /hlineto <06> put

/c_vlineto 7 def   dup /vlineto <07> put

/c_rrcurveto 8 def   dup /rrcurveto <08> put

/c_callsubr 10 def   /s_callsubr <0a> def   dup /callsubr s_callsubr put

/c_return 11 def   dup /return <0b> put

/c_escape 12 def

  /ce_div 12 def   /s_div <0c0c> def   dup /div s_div put

/c_endchar 14 def   /s_endchar <0e> def   dup /endchar s_endchar put

/c_rmoveto 21 def   dup /rmoveto <15> put

/c_hmoveto 22 def   dup /hmoveto <16> put

/c_vhcurveto 30 def   dup /vhcurveto <1e> put

/c_hvcurveto 31 def   dup /hvcurveto <1f> put

% Only in Type 1.

/c_closepath 9 def   dup /closepath <09> put

/c_hsbw 13 def   /s_hsbw <0d> def   dup /hsbw s_hsbw put

  /ce_dotsection 0 def   /s_dotsection <0c06> def   dup /dotsection s_dotsection put

  /ce_vstem3 1 def   /s_vstem3 <0c01> def   dup /vstem3 s_vstem3 put

  /ce_hstem3 2 def   /s_hstem3 <0c02> def   dup /hstem3 s_hstem3 put

  /ce_seac 6 def   /s_seac <0c06> def	dup /seac s_seac put

  /ce_sbw 7 def   /s_sbw <0c07> def   dup /sbw s_sbw put

  /ce_callothersubr 16 def   /s_callothersubr <0c10> def   dup /callothersubr s_callothersubr put

  /ce_pop 17 def   /s_pop <0c11> def   dup /pop s_pop put

  /ce_setcurrentpoint 33 def   /s_setcurrentpoint <0c21> def   dup /setcurrentpoint s_setcurrentpoint put

  /s_setcurrentpoint_hmoveto s_setcurrentpoint <8b16> concatstrings def

% Only in Type 2.

dup /blend <10> put

dup /hstemhm <12> put

dup /hintmask <13> put

dup /cntrmask <14> put

dup /vstemhm <17> put

dup /rcurveline <18> put

dup /rlinecurve <19> put

dup /vvcurveto <1a> put

dup /hhcurveto <1b> put

dup /callgsubr <1d> put

  dup /and <0c03> put

  dup /or <0c04> put

  dup /not <0c05> put

  dup /store <0c08> put

  dup /abs <0c09> put

  dup /add <0c0a> put

  dup /sub <0c0b> put

  dup /load <0c0d> put

  dup /neg <0c0c> put

  dup /eq <0c0f> put

  dup /drop <0c12> put

  dup /put <0c14> put

  dup /get <0c15> put

  dup /ifelse <0c16> put

  dup /random <0c17> put

  dup /mul <0c18> put

  dup /sqrt <0c1a> put

  dup /dup <0c1b> put

  dup /exch <0c1c> put

  dup /index <0c1d> put

  dup /roll <0c1e> put

  dup /hflex <0c22> put

  dup /flex <0c23> put

  dup /hflex1 <0c24> put

  dup /flex1 <0c25> put

readonly def

% ---------------- Decoding ---------------- %

/Type1decode 512 array

Type1encode {

  dup type /stringtype eq {

    dup length 1 eq { 0 get } { 1 get 256 add } ifelse

		% stack: array key code

    exch 2 index 3 1 roll put

  } {

    pop pop

  } ifelse

} forall

dup 12 {

  dup read pop dup Type1decode exch 256 add get dup null ne

    { exch pop }

    { pop 2 string dup 0 12 put dup 1 4 -1 roll put }

  ifelse

} put

dup 28 {		% Type 2 only

  dup read pop 128 xor 128 sub 8 bitshift

  1 index read pop add

} put

32 1 246 { 2 copy dup 139 sub put pop } for

dup 247 { dup read pop 108 add } put

dup 248 { dup read pop 364 add } put

dup 249 { dup read pop 620 add } put

dup 250 { dup read pop 876 add } put

dup 251 { dup read pop 108 add neg } put

dup 252 { dup read pop 364 add neg } put

dup 253 { dup read pop 620 add neg } put

dup 254 { dup read pop 876 add neg } put

dup 255 {		% Different for Type 1 and Type 2

  dup read pop 128 xor 128 sub

  3 { 8 bitshift 1 index read pop add } repeat

  FontType 2 eq { 65536.0 div } if

} put

readonly def

% ---------------- Procedures ---------------- %

% For these utilities, a CharString is represented by a sequence of

% integers, reals, strings, and names, either in an array or on the stack.

% Integers and reals represent themselves; strings are other data that

% appears in the CharString; names are CharString operator names.

% A CharString in an array is called a "charproc"; a CharString on

% the stack is called a "charstack", and is delimited by a mark.

% Individual elements are called "chartokens".

% ------ Encoding ------ %

% Get the string for a chartoken.

% Note that this string may be overwritten by the next call.

/chartoken_string {	% <chartoken> chartoken_string <string>

  dup type Type1encode exch get exec

} bind def

% Compute the length of a CharString.

/chartoken_length {	% <chartoken> chartoken_length <length>

  chartoken_string length

} bind def

/charproc_length {	% <charproc> charproc_length <length>

} bind def

/charstack_length {	% <charstack> charstack_length <charstack> <length>

  counttomark 0 exch -1 1 { index chartoken_length add } for

} bind def

% Write a CharString to a file.  Normally this will be a NullEncode filter

% writing on a string of the correct length.

/chartoken_write {	% <file> <chartoken> chartoken_write -

  chartoken_string writestring

} bind def

/charproc_write {	% <file> <charproc> charproc_write -

  { 1 index exch chartoken_write } forall pop

} bind def

% Note that the arguments of charstack_write are backwards.

/charstack_write {	% <charstack> <file> charstack_write -

  counttomark 1 sub -1 1 { index 1 index exch chartoken_write } for

  cleartomark

} bind def

% Convert a charproc or charstack to an *un*encrypted CharString.

/charproc_string {	% <charproc> charproc_string <string>

  mark exch aload pop charstack_string

} bind def

/charstack_string {	% <charstack> charstack_string <string>

  charstack_length lenIV 0 gt {

    lenIV add string

    dup dup length lenIV sub lenIV exch getinterval	% skip lenIV

  } {

    string

  } ifelse

  /NullEncode filter

  exch 1 index counttomark 1 add 2 roll

  charstack_write closefile

%   lenIV 0 ge { 4330 exch dup .type1encrypt exch pop readonly } if

} bind def

% ------ Decoding ------ %

% Decode a CharString (unencrypted).

/charstack_read {	% <file> charstack_read <no-mark-charstack>

  { dup read not { pop exit } if

    Type1decode 1 index get dup null eq {

      pop 1 string dup 0 4 -1 roll put

    } {

      exch pop exec

    } ifelse exch

  } loop

} bind def