home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / Resource / Init / gs_fapi.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  11.2 KB  |  345 lines
  1. %    Copyright (C) 2000 Artifex Software, Inc.  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_fapi.ps 8954 2008-08-08 04:22:38Z ray $
  17. % Redefine Font and CIDFont categories with FAPI-handeled fonts.
  18.  
  19. systemdict /.FAPIavailable known { .FAPIavailable } { false } ifelse not {
  20.   (%END FAPI) .skipeof
  21. } if
  22.  
  23. languagelevel 2 .setlanguagelevel
  24.  
  25. %====================================================================
  26. % Redefine Font category with FAPIfontmap and CIDFont with FAPIfontmap :
  27. 15 dict begin    % a temporary dictionary for local binding.
  28.  
  29. /EmbedFontObjectsQuery mark
  30.   /.EmbedFontObjects 0
  31. .dicttomark def
  32.  
  33. /is_device_compatible_to_FAPI    % - is_device_compatible_to_FAPI <bool>
  34. { currentdevice //EmbedFontObjectsQuery .getdeviceparams               % <mark> <name> <value> ...
  35.   dup mark eq {
  36.     pop true
  37.   } {
  38.     exch pop exch pop 0 eq
  39.   } ifelse
  40.   % The code above assumes that only the requested parameter is rendered.
  41.   % The commented-out code below may be useful for general case.
  42.   % Keeping it for a while.
  43.   % counttomark 2 idiv {
  44.   %   exch /.EmbedFontObjects eq {
  45.   %     counttomark 1 add 1 roll cleartomark
  46.   %     0 eq exit
  47.   %   } if
  48.   % } repeat
  49.   % dup mark eq {
  50.   %   pop true
  51.   % } if
  52. } bind def
  53.  
  54. %----------------------------- Process FAPIconfig -----------------------
  55.  
  56. /Config
  57. <<
  58.   systemdict /FAPIconfig known {/FAPIconfig .systemvar} {(FAPIconfig)} ifelse .runlibfile
  59.   /ServerOptions 2 dict
  60. >> def
  61. systemdict /.FAPIconfig //Config put
  62.  
  63. ()
  64. systemdict /UFST_SSdir .knownget {
  65.   (UFST_SSdir=) exch concatstrings concatstrings
  66. } if
  67. systemdict /UFST_PlugIn .knownget {
  68.   1 index length 0 ne {
  69.     exch .filenamelistseparator concatstrings exch
  70.   } if
  71.   (UFST_PlugIn=) exch concatstrings concatstrings
  72. } if
  73. dup length 0 ne {
  74.   //Config /ServerOptions get exch /UFST exch put
  75. } { 
  76.   pop
  77. } ifelse
  78.  
  79. %------------------Copy the FontEmulationProcs here : -------------------
  80.  
  81. /FontEmulationProcs /ProcSet findresource {
  82.   def
  83. } forall
  84.  
  85. currentdict /super.complete_instance currentdict /complete_instance get put
  86.  
  87. %-----------FAPI-specific methods for category redefinition : -----------
  88.  
  89. /RefinePath      % <FontDict> /key RefinePath <FontDict>
  90. { exch begin
  91.   //Config exch get
  92.   /Path exch
  93.   Path false .file_name_combine not {
  94.     exch
  95.     (Can't combine paths ) print print ( and ) print =
  96.     /RefinePath cvx /configurationerror signalerror
  97.   } if
  98.   def
  99.   currentdict end
  100. } bind def
  101.  
  102. /complete_instance  % <font_name> <FontDict> <Options> complete_FAPI_Font <font_name> <FontDict>
  103. { //super.complete_instance exec
  104.   dup /CIDFontName known { /CIDFontPath } { /FontPath } ifelse //RefinePath exec
  105. } bind def
  106.  
  107. /IsMyRecord      % <raw_record> -> <raw_record> bool
  108. { dup type /dicttype eq { dup /FAPI known } { false } ifelse
  109. } bind def
  110.  
  111. /IsActive       % <record> IsActive <bool>
  112. { pop //is_device_compatible_to_FAPI exec
  113. } bind def
  114.  
  115. /FontRecordVirtualMethods //RecordVirtualMethodsStub dup length 2 add dict copy begin
  116.   /IsActive //IsActive def
  117.   /MakeInstance   % <Name> <record> MakeInstance <Name> <Instance> <size>
  118.   { currentglobal 3 1 roll true setglobal
  119.     //FontOptions //complete_instance exec
  120.     2 copy //GetSize exec
  121.     4 3 roll setglobal
  122.   } bind def
  123. currentdict end def
  124.  
  125. /CIDFontRecordVirtualMethods //RecordVirtualMethodsStub dup length 3 add dict copy begin
  126.   /GetCSI //TranslateCSI def
  127.   /IsActive //IsActive def
  128.   /MakeInstance   % <Name> <record> MakeInstance <Name> <Instance> <size>
  129.   { currentglobal 3 1 roll true setglobal
  130.     //CIDFontOptions //complete_instance exec
  131.     2 copy //GetSize exec
  132.     4 3 roll setglobal
  133.   } bind def
  134. currentdict end def
  135.  
  136. /ReadFCOfontmap:   % <path> ReadFCOfontmap: name dict ...
  137. { /fontfile exch def
  138.   {
  139.     currentfile =string readline not {
  140.       pop exit
  141.     } if
  142.     dup length 0 ne {
  143.       0 () /SubFileDecode filter
  144.       dup token not {
  145.         % A comment line
  146.         closefile
  147.       } {
  148.         dup /EndFCOfontmap cvx eq {
  149.           pop closefile exit
  150.         } if
  151.         exch dup token not {
  152.           /ReadFCOfontmap: cvx /rangecheck signalerror
  153.         } if
  154.         exch dup token not {
  155.           /StandardEncoding
  156.         } {
  157.           dup type /nametype ne {
  158.             /ReadFCOfontmap: cvx /rangecheck signalerror
  159.           } if
  160.         } ifelse
  161.         findencoding                  
  162.         exch dup token not {
  163.           null
  164.         } {
  165.           dup type /nametype ne {
  166.             /ReadFCOfontmap: cvx /rangecheck signalerror
  167.           } if
  168.           /Decoding findresource
  169.         } ifelse                     
  170.         exch closefile                 % index name enc dec|null
  171.         4 3 roll                       % name enc dec|null index 
  172.         << /Path fontfile
  173.            /FontType 1 
  174.            /FAPI /UFST 
  175.            /SubfontId counttomark 2 add -1 roll 
  176.            /Decoding  counttomark 2 add -1 roll
  177.            dup null eq {
  178.              pop pop
  179.            } if
  180.            /Encoding  counttomark 2 add -1 roll
  181.         >> % dup { exch == = } forall
  182.       } ifelse
  183.     } {
  184.       pop
  185.     } ifelse
  186.   } loop
  187.   currentdict /fontfile undef
  188. } bind def
  189.  
  190.  
  191. %----------------------------------The Redefintion---------------------
  192.  
  193. /MappedCategoryRedefiner /ProcSet findresource /Redefine get /Redefine exch def
  194.  
  195. % Redefine the /Font category :
  196. 4 dict begin
  197.   /CategoryName /Font def
  198.   /MapFileName systemdict /FAPIfontmap known {/FAPIfontmap .systemvar} {(FAPIfontmap)} ifelse def
  199.   /VerifyMap  { pop } bind def
  200.   /PreprocessRecord  % <map> <Name> <raw_record> PreprocessRecord <map> <Name> <record> <bool>
  201.   { //IsMyRecord exec dup {
  202.       pop dup /RecordVirtualMethods //FontRecordVirtualMethods put
  203.       true
  204.     } if
  205.   } bind def
  206. currentdict end Redefine
  207.  
  208. % Redefine the /CIDFont category :
  209. 4 dict begin
  210.   /CategoryName /CIDFont def
  211.   /MapFileName systemdict /FAPIcidfmap known {/FAPIcidfmap .systemvar} {(FAPIcidfmap)} ifelse def
  212.   /VerifyMap  { pop } bind def
  213.   /PreprocessRecord  % <map> <Name> <raw_record> PreprocessRecord <map> <Name> <record> <bool>
  214.   { //IsMyRecord exec dup {
  215.       pop dup /RecordVirtualMethods //CIDFontRecordVirtualMethods put
  216.       true
  217.     } if
  218.   } bind def
  219. currentdict end Redefine
  220.  
  221. %==================== A hook for buildfont* operators ====================
  222.  
  223. % The procedure .FAPIhook redirects PS fonts to FAPI on necessity.
  224. % This depends on the following conditions :
  225. %
  226. % 1. If font dictionary has /FAPI entry, it is a font listed in FAPIconfig.FontPath,
  227. %    and must be build with .FAPIrebuildfont, or a copy of a font, which was
  228. %    built with .FAPIrebuildfont .
  229. %
  230. % 2. If the font dictionary has /PathLoad entry, and has no /FAPI entry,
  231. %    it is an installed PS font, which is described in lib/fontmap or
  232. %    in GS_FONTPATH. .loadfont inserts /PathLoad entry for this case
  233. %    (see gs_fonts.ps).
  234. %
  235. %    Installed fonts are being loaded with GS font loader,
  236. %    the they are passed to FAPI is same way as embedded fonts are.
  237. %    We do so because UFST cannot read fonts, which don't
  238. %    follow Type 1/42 file format strongly.
  239. %
  240. % 3. Executing .loadfont, we place /FAPI_hook_disable in the 0th
  241. %    element of some procedure on the execution stack - see gs_fonts.ps .
  242. %    If FAPI_hook finds /FAPI_hook_disable in there, 
  243. %    it knows that it is called for a disk font during 
  244. %    its internal definefont.
  245. %
  246. % 4. If font dictionary has no /FAPI entry, and has no /Path entry,
  247. %    and if we are not in .loadfont context, it is an embedded font.
  248. %
  249. % 5. Two entries to be defined in lib/FAPIconfig to control the hooking of PS fonts :
  250. %    HookDiskFonts and HookEmbeddedFonts .
  251. %    They specify arrays of font types (integers) to be redirected with FAPI.
  252. %    HookDiskFonts controls disk PS fonts (which fall into (2) and (3) ).
  253. %    HookEmbeddedFonts controls fonts being embedded into documents.
  254. %
  255. % 7. We apply the operator .passtoFAPI for checking whether FAPI can handle a font. 
  256. %    If so, we insert /FAPI entry into the font dictionary and convert it
  257. %    with .FAPIrebuildfont . Otherwise the font is handled with the native GS font renderer.
  258.  
  259. /FAPI_hook_debug   % <proc> FAPI_hook_debug -
  260. FAPIDEBUG { {exec} } { {pop} } ifelse
  261. bind def
  262.  
  263. /FAPI_hook_warn   % <proc> FAPI_hook_debug -
  264. QUIET { {pop} } { {exec} } ifelse
  265. bind def
  266.  
  267. /FAPI_is_hook_disabled     % - FAPI_is_hook_disabled <bool>
  268. { % checks whether execution stack contains packedarray started with /FAPI_hook_disable .
  269.   /FAPI_hook_disable /MappedCategoryRedefiner /ProcSet findresource /execstack_lookup get exec
  270.   null ne
  271. } bind def
  272.  
  273. /FAPIhook_aux  %      <string|name> <font_dict> .FAPIhook <string|name> <font>
  274. {                                                     % name <<font>>
  275.   { (FAPIhook ) print 1 index = } //FAPI_hook_debug exec
  276.   dup /FAPI known {
  277.     { //PrintFontRef exec ( is mapped to FAPI=) print dup /FAPI get = } //FAPI_hook_warn exec
  278.     true //.FAPIrebuildfont //ChooseDecoding exec
  279.   } {
  280.     dup /PathLoad known dup {
  281.       { (PathLoad known for the font ) print //PrintFontRef exec (.) = } //FAPI_hook_debug exec
  282.     } {
  283.       pop //FAPI_is_hook_disabled exec dup
  284.       { pop
  285.         { (FAPIhook is in .loadfont context for the font ) print //PrintFontRef exec (.) = } //FAPI_hook_debug exec
  286.         true
  287.       } if
  288.     } ifelse
  289.     { /HookDiskFonts } { /HookEmbeddedFonts } ifelse
  290.     //Config exch get                                  % name <<font>> [types]
  291.     1 index //GetFontType exec //FindInArray exec      % name <<font>> bHook
  292.     { { (Trying to render the font ) print //PrintFontRef exec ( with FAPI...) = } //FAPI_hook_debug exec
  293.       //.FAPIpassfont {
  294.         { //PrintFontRef exec ( is being rendered with FAPI=) print dup /FAPI get = } //FAPI_hook_warn exec
  295.         false //.FAPIrebuildfont //ChooseDecoding exec
  296.       } {
  297.         { (Can't render ) print //PrintFontRef exec ( with FAPI, will do with native GS renderer.) = } //FAPI_hook_warn exec
  298.       } ifelse
  299.     } {
  300.       { (The font ) print //PrintFontRef exec ( doesn't need to render with FAPI.) = } //FAPI_hook_debug exec
  301.     } ifelse
  302.   } ifelse
  303. } bind def
  304.  
  305. /FAPIhook  %      <string|name> <font_dict> .FAPIhook <string|name> <font>
  306. { //is_device_compatible_to_FAPI exec
  307.   { //FAPIhook_aux exec
  308.   } {
  309.     { (FAPIhook is disabled for the current device.) = } //FAPI_hook_debug exec
  310.   } ifelse
  311. } bind def
  312.  
  313. % ------------------ Redefine .buildfont* with FAPI : -----------------------
  314.  
  315. /.buildfont1
  316. { //.buildfont1 exec //FAPIhook exec
  317. } bind % 'odef' is below.
  318.  
  319. /.buildfont2
  320. { //.buildfont2 exec //FAPIhook exec
  321. } bind % 'odef' is below.
  322.  
  323. /.buildfont42
  324. { //.buildfont42 exec //FAPIhook exec
  325. } bind % 'odef' is below.
  326.  
  327. /.buildfont9
  328. { //.buildfont9 exec //FAPIhook exec
  329. } bind % 'odef' is below.
  330.  
  331. /.buildfont10
  332. { //.buildfont10 exec //FAPIhook exec
  333. } bind % 'odef' is below.
  334.  
  335. /.buildfont11
  336. { //.buildfont11 exec //FAPIhook exec
  337. } bind % 'odef' is below.
  338.  
  339. end % the temporary dictionary for local binding.
  340. odef odef odef odef odef odef
  341.  
  342. .setlanguagelevel
  343.  
  344. %END FAPI
  345.