home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OpenStep (Enterprise)
/
OpenStepENTCD.toast
/
OEDEPLOY
/
USER.Z
/
Start
< prev
next >
Wrap
Text File
|
1996-09-09
|
8KB
|
125 lines
%!PS-Adobe-3.0 Resource-File
%%BeginResource: file (CID/Start)
%%Title: (CID/Start)
%%Version: 0.402
%%Copyright: ------------------------------------------------------------
%%Copyright: Copyright 1990-1994 Adobe Systems Incorporated.
%%Copyright: All rights reserved.
%%Copyright:
%%Copyright: Patents Pending
%%Copyright:
%%Copyright: NOTICE: All information contained herein is the property
%%Copyright: of Adobe Systems Incorporated. Many of the intellectual
%%Copyright: and technical concepts contained herein are proprietary
%%Copyright: to Adobe, are protected as trade secrets, and are made
%%Copyright: available only to Adobe licensees for their internal use.
%%Copyright: Any reproduction or dissemination of this software is
%%Copyright: strictly forbidden unless prior written permission is
%%Copyright: obtained from Adobe.
%%Copyright:
%%Copyright: PostScript and Display PostScript are trademarks of
%%Copyright: Adobe Systems Incorporated which may be registered in
%%Copyright: certain jurisdictions.
%%Copyright: ------------------------------------------------------------
%%EndComments
lib_level2{(FS/Level2CID)}{(FS/Level1CID)}ifelse cid_PrependRoot run
(PGF/Start)cid_PrependRoot run
lib_extensions begin false lib_vmSaveState end
userdict begin/cid_extensions 63 dict def cid_extensions begin
/cid_fileNameString 256 string def/cid_fileName()def/cid_fileDescriptor 0 def
/cid_fileIsOpen false def/cid_charDataString 16384 string def/cid_sstr1 256
string def/cid_sstr2 256 string def/cid_sstr3 256 string def/cid_sstrx 1
string readonly def lib_level2{true setglobal}if/cid_IsComposedFont{dup type
/stringtype ne{cid_sstr1 cvs}if dup length string copy/cid_s1 exch def{cid_s1
(--)search{exch pop cid_IsCompatible{cid_s1 cid_s3[cid_s2]true exit}if}{pop}
ifelse//false cid_s1 length dup/cid_s4 exch def 2 sub -1 0{dup cid_s1 exch 1
getinterval dup(-)eq exch(.)eq or{dup cid_s1 exch 1 add dup cid_s4 exch sub
getinterval exch cid_s1 exch 0 exch getinterval cid_IsCompatible{not exit}if}{
pop}ifelse}for{cid_s1 cid_s3[cid_s2]true exit}if cid_s1 false exit}loop}bind
def/CIDInit_Simple 15 dict begin/begincmap{}def/usecmap{pop}bind def/def{//def
currentdict/CIDSystemInfo known{currentdict/CMapName known{CMapName
currentdict/CMap lib_defineresource pop end end currentfile closefile}if
currentdict/CIDFontName known{CIDFontName currentdict/CIDFont
lib_defineresource end end currentfile closefile}if}if}bind//def currentdict
end/ProcSet lib_defineresource pop/cid_GetCIDSystemInfo{2 copy resourcestatus{
pop 2 eq}{true}ifelse{lib_extensions begin true lib_vmSaveState end
/CIDInit_TMP/CIDInit/ProcSet lib_findresource/ProcSet lib_defineresource pop
/CIDInit/CIDInit_Simple/ProcSet lib_findresource/ProcSet lib_defineresource
pop 2 copy lib_findresource 3 1 roll undefineresource/CIDInit/CIDInit_TMP
/ProcSet lib_findresource/ProcSet lib_defineresource pop lib_extensions begin
lib_vmRestoreState end}{lib_findresource}ifelse}bind def/cid_IsCompatible{
/cid_s2 exch def/cid_s3 exch def mark{cid_s2/CIDFont resourcestatus{pop pop
cid_s3/CMap resourcestatus{pop pop cid_s3/CMap cid_GetCIDSystemInfo
/CIDSystemInfo get begin Registry Ordering end lib_extensions/lib_nativeMode
get{cid_s2/CIDFont lib_findresource}{cid_s2/CIDFont cid_GetCIDSystemInfo}
ifelse/CIDSystemInfo get begin Ordering eq exch Registry eq and end}{//false}
ifelse}{//false}ifelse}stopped{cleartomark//false}{exch pop}ifelse}bind def
/cid_StringIsTemplate{count 2 lt{/cid_StringIsTemplate errordict
/stackunderflow get exec stop}if 2 copy type/stringtype ne exch type
/stringtype ne or{/cid_StringIsTemplate errordict/typecheck get exec stop}if 2
copy length exch length(*?\\){}forall 0 0 cid_StringIsTemplateBody}bind def
/cid_StringIsTemplateBody{{6 index 2 index eq{5 index 1 index eq exit}if exch
dup 1 add 3 1 roll 8 index exch get dup 6 index eq{pop 6 index 2 index eq{true
exit}if{9 copy cid_StringIsTemplateBody{true exit}if dup 1 add exch 6 index eq
{false exit}if}loop exit}{dup 5 index eq{pop dup 1 add exch 6 index eq{false
exit}if}{dup 4 index eq{pop exch dup 1 add 3 1 roll dup 8 index eq{pop dup 6
index eq exit}if 8 index exch get}if exch dup 1 add 3 1 roll dup 8 index eq{
pop pop false exit}if 10 index exch get ne{false exit}if}ifelse}ifelse}loop
mark 11 2 roll cleartomark}bind def/cid_CIDKeyedFontsForall{lib_extensions
begin false lib_vmSaveState end cid_extensions begin/cid_s12 exch def{2 index
(fonts/*)cid_StringIsTemplate{true exit}if 2 index(%*fonts/*)
cid_StringIsTemplate{true exit}if false exit}loop{/cid_s7 exch def
/cid_FOR_PROC_ORIG exch def(fonts/)search pop/cid_FOR_PREFIX exch def pop
/cid_FOR_TEMPLATE_ORIG exch def/CompatibleFonts/ProcSet findresource
/currentenable get exec{cid_FOR_TEMPLATE_ORIG{dup/CompatibleFont
/CompatibleFonts/ProcSet findresource/currentexception get exec not
FontDirectory 2 index known not and{cid_s12{lib_extensions begin/lib_dstr4
cid_FOR_PREFIX lib_Strcpy(fonts/)lib_Strcat exch lib_Strcat lib_Strget end}if
/cid_FOR_PROC_ORIG load end exec cid_extensions begin}{pop}ifelse}cid_sstr1
/CompatibleFont resourceforall}if false lib_extensions begin/cid_deviceCheck
cid_FOR_PREFIX lib_Strcpy(*)/CIDFont getresfilename lib_Strcat lib_Strget end{
pop pop true exit}cid_sstr1 filenameforall{/cid_s10 0(*){pop 1 add}cid_sstr1
/CMap resourceforall array 0(*){cvn 3 copy put pop 1 add}cid_sstr1/CMap
resourceforall pop lib_extensions begin 0 1 2 index length 1 sub{2 copy get
/CMap resourcestatus{pop pop 2 copy get/CMap cid_GetCIDSystemInfo}{null}ifelse
3 copy put pop pop}for end def/cid_s9 0(*){pop 1 add}cid_sstr1/CIDFont
resourceforall array 0(*){cvn 3 copy put pop 1 add}cid_sstr1/CIDFont
resourceforall pop lib_extensions begin 0 1 2 index length 1 sub{2 copy get
/CIDFont resourcestatus{pop pop 2 copy get/CIDFont lib_nativeMode{
lib_findresource}{cid_GetCIDSystemInfo}ifelse}{null}ifelse 3 copy put pop pop}
for end def cid_s9{dup null ne{/cid_s11 exch def cid_s10{dup null ne{dup
/CIDSystemInfo get begin Registry Ordering end cid_s11/CIDSystemInfo get begin
Ordering eq exch Registry eq and end{lib_extensions begin/lib_dstr3 cid_s11
/CIDFontName get lib_Strcpy(-)lib_Strcat exch/CMapName get lib_Strcat
lib_Strget FontDirectory 1 index known not cid_s12 or exch dup
cid_FOR_TEMPLATE_ORIG cid_StringIsTemplate 3 -1 roll and{cid_s12{/lib_dstr4
cid_FOR_PREFIX lib_Strcpy(fonts/)lib_Strcat exch lib_Strcat lib_Strget}if end
/cid_FOR_PROC_ORIG load end exec cid_extensions begin}{pop end}ifelse}{pop}
ifelse}{pop}ifelse}forall}{pop}ifelse}forall}if}{pop pop pop}ifelse end
lib_extensions begin lib_vmRestoreState end}bind def/cid_InitCIDFontCache{dup
/cid_cidFontCacheLast exch 1 sub def/cid_cidFontCache exch array def
cid_cidFontCache 0 1 cid_cidFontCacheLast{2 copy 20 dict begin/cid_filename
128 string def/cid_filenameLength 0 def/cid_fileDescriptor null def/cid_map[]
def currentdict end put pop}for pop/cid_mapSize 1000 def}bind def 5
cid_InitCIDFontCache end end lib_extensions begin lib_vmRestoreState true
lib_vmSaveState end/CIDInit/ProcSet cid_execresfile userdict begin lib_level2
not{/findfont{/Font lib_findresource}bind def}if lib_extensions/lib_nativeMode
get not{/composefont{/CIDInit/ProcSet lib_findresource begin lib_extensions
begin false lib_vmSaveState end cid_composefont lib_extensions begin
lib_vmRestoreState end end}bind def}if/filenameforall{cid_extensions begin 3
copy/cid_s7 exch def/cid_s6 exch def/cid_s5 exch def end//filenameforall
cid_extensions begin cid_s5/cid_s6 load cid_s7 true/cid_CIDKeyedFontsForall
load end exec}bind def/status{count 1 lt{/status errordict/stackunderflow get
exec stop}if dup type/stringtype eq{cid_extensions begin cid_sstrx search{exch
pop exch pop}if dup dup(fonts/*)cid_StringIsTemplate exch(%*%fonts/*)
cid_StringIsTemplate or end{dup//status{5 -1 roll pop true}{lib_extensions
begin true lib_vmSaveState end(fonts/)search pop pop pop cid_extensions begin
cid_IsComposedFont end lib_extensions begin lib_vmRestoreState end{pop pop pop
0 0 0 0 true}{/CompatibleFonts/ProcSet findresource begin dup currentenable
exch/CompatibleFont currentexception not and end{/CompatibleFont
resourcestatus dup{pop pop pop 0 0 0 0 true}if}{pop false}ifelse}ifelse}ifelse
}{//status}ifelse}{//status}ifelse}bind def end lib_extensions begin
lib_vmRestoreState end
%%EndResource
%%EOF