sys/lib/ghostscript/gs_iso_e.ps

   1 %    Copyright (C) 1993, 1994 Aladdin Enterprises.  All rights reserved.
   2 %
   3 % This file is part of Aladdin Ghostscript.
   4 %
   5 % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
   6 % or distributor accepts any responsibility for the consequences of using it,
   7 % or for whether it serves any particular purpose or works at all, unless he
   8 % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
   9 % License (the "License") for full details.
  10 %
  11 % Every copy of Aladdin Ghostscript must include a copy of the License,
  12 % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13 % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14 % under certain conditions described in the License.  Among other things, the
  15 % License requires that the copyright notice and this notice be preserved on
  16 % all copies.
  17
  18 % $Id: gs_iso_e.ps $
  19 % Define the ISO Latin-1 encoding vector.
  20 % The first half is the same as the standard encoding,
  21 % except for minus instead of hyphen at code 055.
  22 /ISOLatin1Encoding
  23 StandardEncoding 0 45 getinterval aload pop
  24     /minus
  25 StandardEncoding 46 82 getinterval aload pop
  26 % NOTE: the following are missing in the Adobe documentation,
  27 % but appear in the displayed table:
  28 % macron at 0225, dieresis at 0230, cedilla at 0233, space at 0240.
  29 % This is an error in the Red Book, corrected in Adobe TN 5085.
  30 % \20x
  31     /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  32     /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  33     /dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent
  34     /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron
  35 % \24x
  36     /space /exclamdown /cent /sterling
  37         /currency /yen /brokenbar /section
  38     /dieresis /copyright /ordfeminine /guillemotleft
  39         /logicalnot /hyphen /registered /macron
  40     /degree /plusminus /twosuperior /threesuperior
  41         /acute /mu /paragraph /periodcentered
  42     /cedilla /onesuperior /ordmasculine /guillemotright
  43         /onequarter /onehalf /threequarters /questiondown
  44 % \30x
  45     /Agrave /Aacute /Acircumflex /Atilde
  46         /Adieresis /Aring /AE /Ccedilla
  47     /Egrave /Eacute /Ecircumflex /Edieresis
  48         /Igrave /Iacute /Icircumflex /Idieresis
  49     /Eth /Ntilde /Ograve /Oacute
  50         /Ocircumflex /Otilde /Odieresis /multiply
  51     /Oslash /Ugrave /Uacute /Ucircumflex
  52         /Udieresis /Yacute /Thorn /germandbls
  53 % \34x
  54     /agrave /aacute /acircumflex /atilde
  55         /adieresis /aring /ae /ccedilla
  56     /egrave /eacute /ecircumflex /edieresis
  57         /igrave /iacute /icircumflex /idieresis
  58     /eth /ntilde /ograve /oacute
  59         /ocircumflex /otilde /odieresis /divide
  60     /oslash /ugrave /uacute /ucircumflex
  61         /udieresis /yacute /thorn /ydieresis
  62 % Make an array on large systems, a packed array on small ones.
  63 256
  64 vmstatus exch pop exch pop
  65 100000 ge { array astore readonly } { packedarray } ifelse
  66 def
  67 1 ISOLatin1Encoding .registerencoding
  68 /ISOLatin1Encoding ISOLatin1Encoding .defineencoding