sys/lib/ghostscript/gs_il1_e.ps

   1 %    Copyright (C) 1993, 1994, 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: gs_il1_e.ps,v 1.4 2002/02/21 21:49:28 giles Exp $
  17 % Define the ISO Latin-1 encoding vector.
  18 % The first half is the same as the standard encoding,
  19 % except for minus instead of hyphen at code 055.
  20 /ISOLatin1Encoding
  21 StandardEncoding 0 45 getinterval aload pop
  22     /minus
  23 StandardEncoding 46 82 getinterval aload pop
  24 % NOTE: the following are missing in the Adobe documentation,
  25 % but appear in the displayed table:
  26 % macron at 0225, dieresis at 0230, cedilla at 0233, space at 0240.
  27 % This is an error in the Red Book, corrected in Adobe TN 5085.
  28 % \20x
  29     /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  30     /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  31     /dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent
  32     /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron
  33 % \24x
  34     /space /exclamdown /cent /sterling
  35         /currency /yen /brokenbar /section
  36     /dieresis /copyright /ordfeminine /guillemotleft
  37         /logicalnot /hyphen /registered /macron
  38     /degree /plusminus /twosuperior /threesuperior
  39         /acute /mu /paragraph /periodcentered
  40     /cedilla /onesuperior /ordmasculine /guillemotright
  41         /onequarter /onehalf /threequarters /questiondown
  42 % \30x
  43     /Agrave /Aacute /Acircumflex /Atilde
  44         /Adieresis /Aring /AE /Ccedilla
  45     /Egrave /Eacute /Ecircumflex /Edieresis
  46         /Igrave /Iacute /Icircumflex /Idieresis
  47     /Eth /Ntilde /Ograve /Oacute
  48         /Ocircumflex /Otilde /Odieresis /multiply
  49     /Oslash /Ugrave /Uacute /Ucircumflex
  50         /Udieresis /Yacute /Thorn /germandbls
  51 % \34x
  52     /agrave /aacute /acircumflex /atilde
  53         /adieresis /aring /ae /ccedilla
  54     /egrave /eacute /ecircumflex /edieresis
  55         /igrave /iacute /icircumflex /idieresis
  56     /eth /ntilde /ograve /oacute
  57         /ocircumflex /otilde /odieresis /divide
  58     /oslash /ugrave /uacute /ucircumflex
  59         /udieresis /yacute /thorn /ydieresis
  60 % Make an array on large systems, a packed array on small ones.
  61 256
  62 vmstatus exch pop exch pop
  63 100000 ge { array astore readonly } { packedarray } ifelse
  64 def
  65 1 ISOLatin1Encoding .registerencoding
  66 /ISOLatin1Encoding ISOLatin1Encoding .defineencoding