home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.2 / Openstep-4.2-Intel-User.iso / NextLibrary / PS2Resources / CID / Start
Encoding:
Text File  |  1997-03-29  |  8.1 KB  |  125 lines
  1. %!PS-Adobe-3.0 Resource-File
  2. %%BeginResource: file (CID/Start)
  3. %%Title: (CID/Start)
  4. %%Version: 0.402
  5. %%Copyright: ------------------------------------------------------------
  6. %%Copyright: Copyright 1990-1994 Adobe Systems Incorporated.
  7. %%Copyright: All rights reserved.
  8. %%Copyright: 
  9. %%Copyright: Patents Pending
  10. %%Copyright: 
  11. %%Copyright: NOTICE: All information contained herein is the property
  12. %%Copyright: of Adobe Systems Incorporated. Many of the intellectual
  13. %%Copyright: and technical concepts contained herein are proprietary
  14. %%Copyright: to Adobe, are protected as trade secrets, and are made
  15. %%Copyright: available only to Adobe licensees for their internal use.
  16. %%Copyright: Any reproduction or dissemination of this software is
  17. %%Copyright: strictly forbidden unless prior written permission is
  18. %%Copyright: obtained from Adobe.
  19. %%Copyright: 
  20. %%Copyright: PostScript and Display PostScript are trademarks of
  21. %%Copyright: Adobe Systems Incorporated which may be registered in
  22. %%Copyright: certain jurisdictions.
  23. %%Copyright: ------------------------------------------------------------
  24. %%EndComments
  25. lib_level2{(FS/Level2CID)}{(FS/Level1CID)}ifelse cid_PrependRoot run
  26. (PGF/Start)cid_PrependRoot run
  27.  lib_extensions begin false lib_vmSaveState end
  28. userdict begin/cid_extensions 63 dict def cid_extensions begin
  29. /cid_fileNameString 256 string def/cid_fileName()def/cid_fileDescriptor 0 def
  30. /cid_fileIsOpen false def/cid_charDataString 16384 string def/cid_sstr1 256
  31. string def/cid_sstr2 256 string def/cid_sstr3 256 string def/cid_sstrx 1
  32. string readonly def lib_level2{true setglobal}if/cid_IsComposedFont{dup type
  33. /stringtype ne{cid_sstr1 cvs}if dup length string copy/cid_s1 exch def{cid_s1
  34. (--)search{exch pop cid_IsCompatible{cid_s1 cid_s3[cid_s2]true exit}if}{pop}
  35. ifelse//false cid_s1 length dup/cid_s4 exch def 2 sub -1 0{dup cid_s1 exch 1
  36. getinterval dup(-)eq exch(.)eq or{dup cid_s1 exch 1 add dup cid_s4 exch sub
  37. getinterval exch cid_s1 exch 0 exch getinterval cid_IsCompatible{not exit}if}{
  38. pop}ifelse}for{cid_s1 cid_s3[cid_s2]true exit}if cid_s1 false exit}loop}bind
  39. def/CIDInit_Simple 15 dict begin/begincmap{}def/usecmap{pop}bind def/def{//def
  40. currentdict/CIDSystemInfo known{currentdict/CMapName known{CMapName
  41. currentdict/CMap lib_defineresource pop end end currentfile closefile}if
  42. currentdict/CIDFontName known{CIDFontName currentdict/CIDFont
  43. lib_defineresource end end currentfile closefile}if}if}bind//def currentdict
  44. end/ProcSet lib_defineresource pop/cid_GetCIDSystemInfo{2 copy resourcestatus{
  45. pop 2 eq}{true}ifelse{lib_extensions begin true lib_vmSaveState end
  46. /CIDInit_TMP/CIDInit/ProcSet lib_findresource/ProcSet lib_defineresource pop
  47. /CIDInit/CIDInit_Simple/ProcSet lib_findresource/ProcSet lib_defineresource
  48. pop 2 copy lib_findresource 3 1 roll undefineresource/CIDInit/CIDInit_TMP
  49. /ProcSet lib_findresource/ProcSet lib_defineresource pop lib_extensions begin
  50. lib_vmRestoreState end}{lib_findresource}ifelse}bind def/cid_IsCompatible{
  51. /cid_s2 exch def/cid_s3 exch def mark{cid_s2/CIDFont resourcestatus{pop pop
  52. cid_s3/CMap resourcestatus{pop pop cid_s3/CMap cid_GetCIDSystemInfo
  53. /CIDSystemInfo get begin Registry Ordering end lib_extensions/lib_nativeMode
  54. get{cid_s2/CIDFont lib_findresource}{cid_s2/CIDFont cid_GetCIDSystemInfo}
  55. ifelse/CIDSystemInfo get begin Ordering eq exch Registry eq and end}{//false}
  56. ifelse}{//false}ifelse}stopped{cleartomark//false}{exch pop}ifelse}bind def
  57. /cid_StringIsTemplate{count 2 lt{/cid_StringIsTemplate errordict
  58. /stackunderflow get exec stop}if 2 copy type/stringtype ne exch type
  59. /stringtype ne or{/cid_StringIsTemplate errordict/typecheck get exec stop}if 2
  60. copy length exch length(*?\\){}forall 0 0 cid_StringIsTemplateBody}bind def
  61. /cid_StringIsTemplateBody{{6 index 2 index eq{5 index 1 index eq exit}if exch
  62. dup 1 add 3 1 roll 8 index exch get dup 6 index eq{pop 6 index 2 index eq{true
  63. exit}if{9 copy cid_StringIsTemplateBody{true exit}if dup 1 add exch 6 index eq
  64. {false exit}if}loop exit}{dup 5 index eq{pop dup 1 add exch 6 index eq{false
  65. exit}if}{dup 4 index eq{pop exch dup 1 add 3 1 roll dup 8 index eq{pop dup 6
  66. index eq exit}if 8 index exch get}if exch dup 1 add 3 1 roll dup 8 index eq{
  67. pop pop false exit}if 10 index exch get ne{false exit}if}ifelse}ifelse}loop
  68. mark 11 2 roll cleartomark}bind def/cid_CIDKeyedFontsForall{lib_extensions
  69. begin false lib_vmSaveState end cid_extensions begin/cid_s12 exch def{2 index
  70. (fonts/*)cid_StringIsTemplate{true exit}if 2 index(%*fonts/*)
  71. cid_StringIsTemplate{true exit}if false exit}loop{/cid_s7 exch def
  72. /cid_FOR_PROC_ORIG exch def(fonts/)search pop/cid_FOR_PREFIX exch def pop
  73. /cid_FOR_TEMPLATE_ORIG exch def/CompatibleFonts/ProcSet findresource
  74. /currentenable get exec{cid_FOR_TEMPLATE_ORIG{dup/CompatibleFont
  75. /CompatibleFonts/ProcSet findresource/currentexception get exec not
  76. FontDirectory 2 index known not and{cid_s12{lib_extensions begin/lib_dstr4
  77. cid_FOR_PREFIX lib_Strcpy(fonts/)lib_Strcat exch lib_Strcat lib_Strget end}if
  78. /cid_FOR_PROC_ORIG load end exec cid_extensions begin}{pop}ifelse}cid_sstr1
  79. /CompatibleFont resourceforall}if false lib_extensions begin/cid_deviceCheck
  80. cid_FOR_PREFIX lib_Strcpy(*)/CIDFont getresfilename lib_Strcat lib_Strget end{
  81. pop pop true exit}cid_sstr1 filenameforall{/cid_s10 0(*){pop 1 add}cid_sstr1
  82. /CMap resourceforall array 0(*){cvn 3 copy put pop 1 add}cid_sstr1/CMap
  83. resourceforall pop lib_extensions begin 0 1 2 index length 1 sub{2 copy get
  84. /CMap resourcestatus{pop pop 2 copy get/CMap cid_GetCIDSystemInfo}{null}ifelse
  85. 3 copy put pop pop}for end def/cid_s9 0(*){pop 1 add}cid_sstr1/CIDFont
  86. resourceforall array 0(*){cvn 3 copy put pop 1 add}cid_sstr1/CIDFont
  87. resourceforall pop lib_extensions begin 0 1 2 index length 1 sub{2 copy get
  88. /CIDFont resourcestatus{pop pop 2 copy get/CIDFont lib_nativeMode{
  89. lib_findresource}{cid_GetCIDSystemInfo}ifelse}{null}ifelse 3 copy put pop pop}
  90. for end def cid_s9{dup null ne{/cid_s11 exch def cid_s10{dup null ne{dup
  91. /CIDSystemInfo get begin Registry Ordering end cid_s11/CIDSystemInfo get begin
  92. Ordering eq exch Registry eq and end{lib_extensions begin/lib_dstr3 cid_s11
  93. /CIDFontName get lib_Strcpy(-)lib_Strcat exch/CMapName get lib_Strcat
  94. lib_Strget FontDirectory 1 index known not cid_s12 or exch dup
  95. cid_FOR_TEMPLATE_ORIG cid_StringIsTemplate 3 -1 roll and{cid_s12{/lib_dstr4
  96. cid_FOR_PREFIX lib_Strcpy(fonts/)lib_Strcat exch lib_Strcat lib_Strget}if end
  97. /cid_FOR_PROC_ORIG load end exec cid_extensions begin}{pop end}ifelse}{pop}
  98. ifelse}{pop}ifelse}forall}{pop}ifelse}forall}if}{pop pop pop}ifelse end
  99. lib_extensions begin lib_vmRestoreState end}bind def/cid_InitCIDFontCache{dup
  100. /cid_cidFontCacheLast exch 1 sub def/cid_cidFontCache exch array def
  101. cid_cidFontCache 0 1 cid_cidFontCacheLast{2 copy 20 dict begin/cid_filename
  102. 128 string def/cid_filenameLength 0 def/cid_fileDescriptor null def/cid_map[]
  103. def currentdict end put pop}for pop/cid_mapSize 1000 def}bind def 5
  104. cid_InitCIDFontCache end end lib_extensions begin lib_vmRestoreState true
  105. lib_vmSaveState end/CIDInit/ProcSet cid_execresfile userdict begin lib_level2
  106. not{/findfont{/Font lib_findresource}bind def}if lib_extensions/lib_nativeMode
  107. get not{/composefont{/CIDInit/ProcSet lib_findresource begin lib_extensions
  108. begin false lib_vmSaveState end cid_composefont lib_extensions begin
  109. lib_vmRestoreState end end}bind def}if/filenameforall{cid_extensions begin 3
  110. copy/cid_s7 exch def/cid_s6 exch def/cid_s5 exch def end//filenameforall
  111. cid_extensions begin cid_s5/cid_s6 load cid_s7 true/cid_CIDKeyedFontsForall
  112. load end exec}bind def/status{count 1 lt{/status errordict/stackunderflow get
  113. exec stop}if dup type/stringtype eq{cid_extensions begin cid_sstrx search{exch
  114. pop exch pop}if dup dup(fonts/*)cid_StringIsTemplate exch(%*%fonts/*)
  115. cid_StringIsTemplate or end{dup//status{5 -1 roll pop true}{lib_extensions
  116. begin true lib_vmSaveState end(fonts/)search pop pop pop cid_extensions begin
  117. cid_IsComposedFont end lib_extensions begin lib_vmRestoreState end{pop pop pop
  118. 0 0 0 0 true}{/CompatibleFonts/ProcSet findresource begin dup currentenable
  119. exch/CompatibleFont currentexception not and end{/CompatibleFont
  120. resourcestatus dup{pop pop pop 0 0 0 0 true}if}{pop false}ifelse}ifelse}ifelse
  121. }{//status}ifelse}{//status}ifelse}bind def end lib_extensions begin
  122. lib_vmRestoreState end
  123. %%EndResource
  124. %%EOF
  125.