home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Actualizar / Impressora_PDF / converter.exe / GPLGS / winmaps.ps < prev    next >
Text File  |  2002-02-22  |  4KB  |  107 lines
  1. %    Copyright (C) 1993 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: winmaps.ps,v 1.4 2002/02/21 21:49:28 giles Exp $
  17. % winmaps.ps - make maps between PostScript encodings and Windows
  18. % character sets.
  19.  
  20. % Define the two Windows encodings.
  21.  
  22. /ANSIEncoding
  23.   ISOLatin1Encoding 256 array copy
  24.   dup 16#90 /.notdef put
  25.   16#93 1 16#9f { 2 copy /.notdef put pop } for
  26. def
  27.  
  28. /OEMEncoding [
  29.   /.notdef /.notdef /.notdef /heart /diamond /club /spade /bullet
  30.     8 { /.notdef } repeat
  31.   /.notdef /.notdef /.notdef /.notdef /paragraph /section /.notdef /.notdef
  32.     /arrowup /arrowdown /arrowright /arrowleft /.notdef /arrowboth /.notdef /.notdef
  33.   StandardEncoding 32 96 getinterval aload pop
  34.   /Ccedilla /udieresis /eacute /acircumflex /adieresis /agrave /aring /ccedilla
  35.     /ecircumflex /edieresis /egrave /idieresis /igrave /Adieresis /Aring
  36.   /Eacute /ae /AE /ocircumflex /odieresis /ograve /ucircumflex /ugrave
  37.     /ydieresis /Odieresis /Udieresis /cent /sterling /yen /.notdef /florin
  38.   /aacute /iacute /oacute /uacute /ntilde /Ntilde /ordfeminine /ordmasculine
  39.     /questiondown /.notdef /logicalnot /onehalf /onequarter /exclamdown /guillemotleft /guillemotright
  40.   48 { /.notdef } repeat
  41.   /alpha /beta /Gamma /Pi /Sigma /sigma /mu /tau
  42.     /Phi /Theta /Omega /delta /infinity /phi /element /intersection
  43.   /equivalence /plusminus /greaterequal /lessequal /integraltp /integralbt /divide /.notdef
  44.     /degree /dotmath /periodcentered /radical /.notdef /twosuperior /.notdef /.notdef
  45. ] def
  46.  
  47. % Utility procedures
  48.  
  49. /invertencoding        % <array> invertencoding <dict>
  50.  { 256 dict exch dup length 1 sub -1 0
  51.     {    % stack: dict array index
  52.       2 copy get /.notdef ne
  53.        { 2 copy get exch 3 index 3 1 roll put }
  54.        { pop }
  55.       ifelse
  56.     } for
  57.    pop
  58.  } def
  59.  
  60. /pmarray 256 array def
  61. /printmap        % <chars> <decode> printmap -
  62.  { mark 3 1 roll exch
  63.     { 2 copy known { 1 index exch get } { pop 0 } ifelse exch
  64.     }
  65.    forall pop
  66.    pmarray 0 counttomark 2 sub getinterval astore
  67.    ([) print dup length =only 0 exch (] = {\n  ) exch
  68.     { exch print =only
  69.       1 add 15 and dup 0 eq { (,\n  ) } { (, ) } ifelse
  70.     }
  71.    forall pop pop (\n};\n) print pop
  72.  } def
  73.  
  74. /decodeStd StandardEncoding invertencoding def
  75. /decodeISO ISOLatin1Encoding
  76.     % Remove the redundant characters
  77.   dup length array copy
  78.   [8#222 8#225 8#230 8#233 8#240] { 2 copy /.notdef put pop } forall
  79. invertencoding def
  80. /decodeSym SymbolEncoding invertencoding def
  81.  
  82. /decodeANSI ANSIEncoding invertencoding def
  83. /decodeOEM OEMEncoding invertencoding def
  84.  
  85. % Construct the map from Symbol to OEM.
  86.  
  87. (\nprivate const byte far_data gs_map_symbol_to_oem) print
  88. SymbolEncoding decodeOEM printmap
  89.  
  90. % Construct the map from ISOLatin1 to OEM.
  91.  
  92. (\nprivate const byte far_data gs_map_iso_to_oem) print
  93. ISOLatin1Encoding decodeOEM printmap
  94.  
  95. % Construct the map from Standard to ISOLatin1.
  96.  
  97. (\nprivate const byte far_data gs_map_std_to_iso) print
  98. StandardEncoding decodeISO printmap
  99.  
  100. % Construct the map from ISOLatin1 to Standard.
  101. % The Windows driver doesn't need this, but the X11 driver does.
  102.  
  103. (\nprivate const byte far_data gs_map_iso_to_std) print
  104. ISOLatin1Encoding decodeStd printmap
  105.  
  106. quit
  107.