Gecko [ 122.154.134.11 ]

Name	Size	Permission
CIDFnmap	291 B	-rw-r--r--
FCOfontmap-PCLPS2	2.94 KB	-rw-r--r--
Fontmap	216 B	-rw-r--r--
Fontmap.GS	11.93 KB	-rw-r--r--
cidfmap	398 B	-rw-r--r--
cidfmap.GS	991 B	-rw-r--r--
gs_agl.ps	27.93 KB	-rw-r--r--
gs_btokn.ps	11.11 KB	-rw-r--r--
gs_cet.ps	1.77 KB	-rw-r--r--
gs_cff.ps	24 KB	-rw-r--r--
gs_cidcm.ps	16.97 KB	-rw-r--r--
gs_ciddc.ps	8.18 KB	-rw-r--r--
gs_cidfm.ps	4.53 KB	-rw-r--r--
gs_cidfn.ps	12.59 KB	-rw-r--r--
gs_cidtt.ps	5.37 KB	-rw-r--r--
gs_cmap.ps	17.31 KB	-rw-r--r--
gs_cspace.ps	6.79 KB	-rw-r--r--
gs_css_e.ps	4.83 KB	-rw-r--r--
gs_dbt_e.ps	2.23 KB	-rw-r--r--
gs_diskf.ps	7.4 KB	-rw-r--r--
gs_diskn.ps	6.75 KB	-rw-r--r--
gs_dpnxt.ps	4.66 KB	-rw-r--r--
gs_dps.ps	7.79 KB	-rw-r--r--
gs_dps1.ps	4.61 KB	-rw-r--r--
gs_dps2.ps	7.9 KB	-rw-r--r--
gs_dscp.ps	3.84 KB	-rw-r--r--
gs_epsf.ps	7.04 KB	-rw-r--r--
gs_fapi.ps	11.2 KB	-rw-r--r--
gs_fntem.ps	11.36 KB	-rw-r--r--
gs_fonts.ps	43.84 KB	-rw-r--r--
gs_frsd.ps	2.95 KB	-rw-r--r--
gs_icc.ps	3.2 KB	-rw-r--r--
gs_il1_e.ps	2.73 KB	-rw-r--r--
gs_img.ps	27.51 KB	-rw-r--r--
gs_init.ps	72.42 KB	-rw-r--r--
gs_l2img.ps	5.5 KB	-rw-r--r--
gs_lev2.ps	33.8 KB	-rw-r--r--
gs_ll3.ps	11.83 KB	-rw-r--r--
gs_mex_e.ps	3.9 KB	-rw-r--r--
gs_mgl_e.ps	2.14 KB	-rw-r--r--
gs_mro_e.ps	2.47 KB	-rw-r--r--
gs_pdf_e.ps	1.66 KB	-rw-r--r--
gs_pdfwr.ps	27.34 KB	-rw-r--r--
gs_res.ps	36 KB	-rw-r--r--
gs_resmp.ps	22.2 KB	-rw-r--r--
gs_setpd.ps	29.17 KB	-rw-r--r--
gs_statd.ps	13.24 KB	-rw-r--r--
gs_std_e.ps	3.16 KB	-rw-r--r--
gs_sym_e.ps	3.02 KB	-rw-r--r--
gs_trap.ps	2.96 KB	-rw-r--r--
gs_ttf.ps	77.36 KB	-rw-r--r--
gs_typ32.ps	4.25 KB	-rw-r--r--
gs_typ42.ps	2.08 KB	-rw-r--r--
gs_type1.ps	8.09 KB	-rw-r--r--
gs_wan_e.ps	1.64 KB	-rw-r--r--
opdfread.ps	138.44 KB	-rw-r--r--
pdf_base.ps	40.03 KB	-rw-r--r--
pdf_cslayer.ps	3.96 KB	-rw-r--r--
pdf_draw.ps	60.05 KB	-rw-r--r--
pdf_font.ps	59.32 KB	-rw-r--r--
pdf_main.ps	64.76 KB	-rw-r--r--
pdf_ops.ps	27.75 KB	-rw-r--r--
pdf_rbld.ps	14.7 KB	-rw-r--r--
pdf_sec.ps	15.54 KB	-rw-r--r--
xlatmap	1.75 KB	-rw-r--r--

Code Editor : gs_fapi.ps

%    Copyright (C) 2000 Artifex Software, Inc.  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: gs_fapi.ps 8954 2008-08-08 04:22:38Z ray $
% Redefine Font and CIDFont categories with FAPI-handeled fonts.

systemdict /.FAPIavailable known { .FAPIavailable } { false } ifelse not {
  (%END FAPI) .skipeof
} if

languagelevel 2 .setlanguagelevel

%====================================================================
% Redefine Font category with FAPIfontmap and CIDFont with FAPIfontmap :
15 dict begin    % a temporary dictionary for local binding.

/EmbedFontObjectsQuery mark
  /.EmbedFontObjects 0
.dicttomark def

/is_device_compatible_to_FAPI % - is_device_compatible_to_FAPI <bool>
{ currentdevice //EmbedFontObjectsQuery .getdeviceparams % <name> <value> ...
 dup mark eq {
 pop true
 } {
 exch pop exch pop 0 eq
 } ifelse
 % The code above assumes that only the requested parameter is rendered.
 % The commented-out code below may be useful for general case.
 % Keeping it for a while.
 % counttomark 2 idiv {
 % exch /.EmbedFontObjects eq {
 % counttomark 1 add 1 roll cleartomark
 % 0 eq exit
 % } if
 % } repeat
 % dup mark eq {
 % pop true
 % } if
} bind def

%----------------------------- Process FAPIconfig -----------------------

/Config
<<
 systemdict /FAPIconfig known {/FAPIconfig .systemvar} {(FAPIconfig)} ifelse .runlibfile
 /ServerOptions 2 dict
>> def
systemdict /.FAPIconfig //Config put

()
systemdict /UFST_SSdir .knownget {
  (UFST_SSdir=) exch concatstrings concatstrings
} if
systemdict /UFST_PlugIn .knownget {
  1 index length 0 ne {
    exch .filenamelistseparator concatstrings exch
  } if
  (UFST_PlugIn=) exch concatstrings concatstrings
} if
dup length 0 ne {
  //Config /ServerOptions get exch /UFST exch put
} { 
  pop
} ifelse

%------------------Copy the FontEmulationProcs here : -------------------

/FontEmulationProcs /ProcSet findresource {
  def
} forall

currentdict /super.complete_instance currentdict /complete_instance get put

%-----------FAPI-specific methods for category redefinition : -----------

/RefinePath % <FontDict> /key RefinePath <FontDict>
{ exch begin
 //Config exch get
 /Path exch
 Path false .file_name_combine not {
 exch
 (Can't combine paths ) print print ( and ) print =
 /RefinePath cvx /configurationerror signalerror
 } if
 def
 currentdict end
} bind def

/complete_instance % <font_name> <FontDict> <Options> complete_FAPI_Font <font_name> <FontDict>
{ //super.complete_instance exec
 dup /CIDFontName known { /CIDFontPath } { /FontPath } ifelse //RefinePath exec
} bind def

/IsMyRecord % <raw_record> -> <raw_record> bool
{ dup type /dicttype eq { dup /FAPI known } { false } ifelse
} bind def

/IsActive % <record> IsActive <bool>
{ pop //is_device_compatible_to_FAPI exec
} bind def

/FontRecordVirtualMethods //RecordVirtualMethodsStub dup length 2 add dict copy begin
 /IsActive //IsActive def
 /MakeInstance % <Name> <record> MakeInstance <Name> <Instance> <size>
 { currentglobal 3 1 roll true setglobal
 //FontOptions //complete_instance exec
 2 copy //GetSize exec
 4 3 roll setglobal
 } bind def
currentdict end def

/CIDFontRecordVirtualMethods //RecordVirtualMethodsStub dup length 3 add dict copy begin
 /GetCSI //TranslateCSI def
 /IsActive //IsActive def
 /MakeInstance % <Name> <record> MakeInstance <Name> <Instance> <size>
 { currentglobal 3 1 roll true setglobal
 //CIDFontOptions //complete_instance exec
 2 copy //GetSize exec
 4 3 roll setglobal
 } bind def
currentdict end def

/ReadFCOfontmap: % <path> ReadFCOfontmap: name dict ...
{ /fontfile exch def
 {
 currentfile =string readline not {
 pop exit
 } if
 dup length 0 ne {
 0 () /SubFileDecode filter
 dup token not {
 % A comment line
 closefile
 } {
 dup /EndFCOfontmap cvx eq {
 pop closefile exit
 } if
 exch dup token not {
 /ReadFCOfontmap: cvx /rangecheck signalerror
 } if
 exch dup token not {
 /StandardEncoding
 } {
 dup type /nametype ne {
 /ReadFCOfontmap: cvx /rangecheck signalerror
 } if
 } ifelse
 findencoding 
 exch dup token not {
 null
 } {
 dup type /nametype ne {
 /ReadFCOfontmap: cvx /rangecheck signalerror
 } if
 /Decoding findresource
 } ifelse 
 exch closefile % index name enc dec|null
 4 3 roll % name enc dec|null index 
 << /Path fontfile
 /FontType 1 
 /FAPI /UFST 
 /SubfontId counttomark 2 add -1 roll 
 /Decoding counttomark 2 add -1 roll
 dup null eq {
 pop pop
 } if
 /Encoding counttomark 2 add -1 roll
 >> % dup { exch == = } forall
 } ifelse
 } {
 pop
 } ifelse
 } loop
 currentdict /fontfile undef
} bind def

%----------------------------------The Redefintion---------------------

/MappedCategoryRedefiner /ProcSet findresource /Redefine get /Redefine exch def

% Redefine the /Font category :
4 dict begin
 /CategoryName /Font def
 /MapFileName systemdict /FAPIfontmap known {/FAPIfontmap .systemvar} {(FAPIfontmap)} ifelse def
 /VerifyMap { pop } bind def
 /PreprocessRecord % <map> <Name> <raw_record> PreprocessRecord <map> <Name> <record> <bool>
 { //IsMyRecord exec dup {
 pop dup /RecordVirtualMethods //FontRecordVirtualMethods put
 true
 } if
 } bind def
currentdict end Redefine

% Redefine the /CIDFont category :
4 dict begin
 /CategoryName /CIDFont def
 /MapFileName systemdict /FAPIcidfmap known {/FAPIcidfmap .systemvar} {(FAPIcidfmap)} ifelse def
 /VerifyMap { pop } bind def
 /PreprocessRecord % <map> <Name> <raw_record> PreprocessRecord <map> <Name> <record> <bool>
 { //IsMyRecord exec dup {
 pop dup /RecordVirtualMethods //CIDFontRecordVirtualMethods put
 true
 } if
 } bind def
currentdict end Redefine

%==================== A hook for buildfont* operators ====================

% The procedure .FAPIhook redirects PS fonts to FAPI on necessity.
% This depends on the following conditions :
%
% 1. If font dictionary has /FAPI entry, it is a font listed in FAPIconfig.FontPath,
%    and must be build with .FAPIrebuildfont, or a copy of a font, which was
%    built with .FAPIrebuildfont .
%
% 2. If the font dictionary has /PathLoad entry, and has no /FAPI entry,
%    it is an installed PS font, which is described in lib/fontmap or
%    in GS_FONTPATH. .loadfont inserts /PathLoad entry for this case
%    (see gs_fonts.ps).
%
%    Installed fonts are being loaded with GS font loader,
%    the they are passed to FAPI is same way as embedded fonts are.
%    We do so because UFST cannot read fonts, which don't
%    follow Type 1/42 file format strongly.
%
% 3. Executing .loadfont, we place /FAPI_hook_disable in the 0th
%    element of some procedure on the execution stack - see gs_fonts.ps .
%    If FAPI_hook finds /FAPI_hook_disable in there, 
%    it knows that it is called for a disk font during 
%    its internal definefont.
%
% 4. If font dictionary has no /FAPI entry, and has no /Path entry,
%    and if we are not in .loadfont context, it is an embedded font.
%
% 5. Two entries to be defined in lib/FAPIconfig to control the hooking of PS fonts :
%    HookDiskFonts and HookEmbeddedFonts .
%    They specify arrays of font types (integers) to be redirected with FAPI.
%    HookDiskFonts controls disk PS fonts (which fall into (2) and (3) ).
%    HookEmbeddedFonts controls fonts being embedded into documents.
%
% 7. We apply the operator .passtoFAPI for checking whether FAPI can handle a font. 
%    If so, we insert /FAPI entry into the font dictionary and convert it
%    with .FAPIrebuildfont . Otherwise the font is handled with the native GS font renderer.

/FAPI_hook_debug % <proc> FAPI_hook_debug -
FAPIDEBUG { {exec} } { {pop} } ifelse
bind def
 
/FAPI_hook_warn % <proc> FAPI_hook_debug -
QUIET { {pop} } { {exec} } ifelse
bind def
 
/FAPI_is_hook_disabled % - FAPI_is_hook_disabled <bool>
{ % checks whether execution stack contains packedarray started with /FAPI_hook_disable .
 /FAPI_hook_disable /MappedCategoryRedefiner /ProcSet findresource /execstack_lookup get exec
 null ne
} bind def

/FAPIhook_aux % <string|name> <font_dict> .FAPIhook <string|name> 
{ % name <>
 { (FAPIhook ) print 1 index = } //FAPI_hook_debug exec
 dup /FAPI known {
 { //PrintFontRef exec ( is mapped to FAPI=) print dup /FAPI get = } //FAPI_hook_warn exec
 true //.FAPIrebuildfont //ChooseDecoding exec
 } {
 dup /PathLoad known dup {
 { (PathLoad known for the font ) print //PrintFontRef exec (.) = } //FAPI_hook_debug exec
 } {
 pop //FAPI_is_hook_disabled exec dup
 { pop
 { (FAPIhook is in .loadfont context for the font ) print //PrintFontRef exec (.) = } //FAPI_hook_debug exec
 true
 } if
 } ifelse
 { /HookDiskFonts } { /HookEmbeddedFonts } ifelse
 //Config exch get % name <> [types]
 1 index //GetFontType exec //FindInArray exec % name <> bHook
 { { (Trying to render the font ) print //PrintFontRef exec ( with FAPI...) = } //FAPI_hook_debug exec
 //.FAPIpassfont {
 { //PrintFontRef exec ( is being rendered with FAPI=) print dup /FAPI get = } //FAPI_hook_warn exec
 false //.FAPIrebuildfont //ChooseDecoding exec
 } {
 { (Can't render ) print //PrintFontRef exec ( with FAPI, will do with native GS renderer.) = } //FAPI_hook_warn exec
 } ifelse
 } {
 { (The font ) print //PrintFontRef exec ( doesn't need to render with FAPI.) = } //FAPI_hook_debug exec
 } ifelse
 } ifelse
} bind def

/FAPIhook % <string|name> <font_dict> .FAPIhook <string|name> 
{ //is_device_compatible_to_FAPI exec
 { //FAPIhook_aux exec
 } {
 { (FAPIhook is disabled for the current device.) = } //FAPI_hook_debug exec
 } ifelse
} bind def

% ------------------ Redefine .buildfont* with FAPI : -----------------------

/.buildfont1
{ //.buildfont1 exec //FAPIhook exec
} bind % 'odef' is below.

/.buildfont2
{ //.buildfont2 exec //FAPIhook exec
} bind % 'odef' is below.

/.buildfont42
{ //.buildfont42 exec //FAPIhook exec
} bind % 'odef' is below.

/.buildfont9
{ //.buildfont9 exec //FAPIhook exec
} bind % 'odef' is below.

/.buildfont10
{ //.buildfont10 exec //FAPIhook exec
} bind % 'odef' is below.

/.buildfont11
{ //.buildfont11 exec //FAPIhook exec
} bind % 'odef' is below.

end % the temporary dictionary for local binding.
odef odef odef odef odef odef

.setlanguagelevel

%END FAPI

${this.title}

Code Editor : gs_fapi.ps