home *** CD-ROM | disk | FTP | other *** search
/ OpenStep (Enterprise) / OpenStepENTCD.toast / OEDEPLOY / USER.Z / CompatibleFonts < prev    next >
Encoding:
Text File  |  1996-09-09  |  6.3 KB  |  100 lines
  1. %!PS-Adobe-3.0 Resource-ProcSet
  2. %%BeginResource: ProcSet (CompatibleFonts)
  3. %%Title: (ProcSet/CompatibleFonts)
  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. systemdict/languagelevel known{currentglobal false setglobal}if 15 dict begin
  26. /haveEE/CIDProductSupport/ProcSet 2 copy resourcestatus{pop pop findresource
  27. dup/cfeewrite known exch dup/cfeeread known exch dup/ProductCFNames known exch
  28. /ProductCCIDFNames known and and and}{pop pop false}ifelse def//haveEE{
  29. /CIDProductSupport/ProcSet findresource dup/cfeewrite get/cfeewrite exch def
  30. dup/cfeeread get/cfeeread exch def dup/ProductCFNames get/ProductCFNames exch
  31. def/ProductCCIDFNames get/ProductCCIDFNames exch def}{/cfeewrite{pop pop}bind
  32. def/cfeeread{pop//false}bind def/ProductCFNames 0 dict def/ProductCCIDFNames 0
  33. dict def}ifelse/TransformPath{}bind def/NVdata 3 dict def NVdata begin//haveEE
  34. {0//cfeeread not{(CF/Global)//TransformPath exec dup status{pop pop pop pop
  35. deletefile}{pop}ifelse(CF/CompatibleCIDFont)//TransformPath exec dup status{
  36. pop pop pop pop deletefile}{pop}ifelse(CF/CompatibleFont)//TransformPath exec
  37. dup status{pop pop pop pop deletefile}{pop}ifelse 0 true//cfeewrite}if}if
  38. (CF/Global)//TransformPath exec dup status{pop pop pop pop mark exch dup{run}
  39. stopped{systemdict/languagelevel known{true setglobal}if cleartomark true}{dup
  40. type/dicttype eq{/Global exch def cleartomark false}{cleartomark true}ifelse}
  41. ifelse}{pop true}ifelse{/Global 1 dict def Global/enable//haveEE{1//cfeeread
  42. not}{//true}ifelse put}if(CF/CompatibleCIDFont)//TransformPath exec dup status
  43. {pop pop pop pop mark exch dup{run}stopped{systemdict/languagelevel known{true
  44. setglobal}if cleartomark true}{dup type/dicttype eq{/CompatibleCIDFont exch
  45. def cleartomark false}{cleartomark true}ifelse}ifelse}{pop true}ifelse{
  46. /CompatibleCIDFont//ProductCCIDFNames length 20 add dict def//haveEE{
  47. CompatibleCIDFont begin//ProductCCIDFNames{//cfeeread{//true def}{pop}ifelse}
  48. forall end}if}if(CF/CompatibleFont)//TransformPath exec dup status{pop pop pop
  49. pop mark exch dup{run}stopped{systemdict/languagelevel known{true setglobal}if
  50. cleartomark true}{dup type/dicttype eq{/CompatibleFont exch def cleartomark
  51. false}{cleartomark true}ifelse}ifelse}{pop true}ifelse{/CompatibleFont
  52. //ProductCFNames length 20 add dict def//haveEE{CompatibleFont begin
  53. //ProductCFNames{//cfeeread{//true def}{pop}ifelse}forall end}if}if end
  54. /scratch 32 string def/writeNV{{dup/Global eq{pop(CF/Global)//TransformPath
  55. exec(w){file}stopped{systemdict/languagelevel known{true setglobal}if pop pop}
  56. {dup(1 dict dup /enable )writestring dup//NVdata/Global get/enable get{(true)}
  57. {(false)}ifelse writestring dup( put
  58. )writestring closefile}ifelse exit}if dup/CompatibleFont eq{pop//NVdata
  59. /CompatibleFont get length dup 0 gt{(CF/CompatibleFont)//TransformPath exec(w)
  60. {file}stopped{systemdict/languagelevel known{true setglobal}if pop pop pop}{
  61. exch 10 add 10//scratch cvrs 1 index exch writestring dup( dict dup
  62. begin
  63. )writestring dup//NVdata/CompatibleFont get{{//scratch cvs 1 index(/)
  64. writestring writestring dup( true def
  65. )writestring dup}{pop}ifelse}forall(end
  66. )writestring closefile}ifelse}{pop}ifelse exit}if dup/CompatibleCIDFont eq{pop
  67. //NVdata/CompatibleCIDFont get length dup 0 gt{(CF/CompatibleCIDFont)
  68. //TransformPath exec(w){file}stopped{systemdict/languagelevel known{true
  69. setglobal}if pop pop pop}{exch 10 add 10//scratch cvrs 1 index exch
  70. writestring dup( dict dup
  71. begin
  72. )writestring dup//NVdata/CompatibleCIDFont get{{//scratch cvs 1 index(/)
  73. writestring writestring dup( true def
  74. )writestring dup}{pop}ifelse}forall(end
  75. )writestring closefile}ifelse}{pop}ifelse exit}if pop exit}loop}bind def 5
  76. dict dup begin/Version(0.402)def/currentenable{//NVdata/Global get/enable get}
  77. bind executeonly def/setenable{count 0 eq{/setenable errordict/stackunderflow
  78. get exec}if dup type/booleantype ne{/setenable errordict/typecheck get exec}if
  79. dup//NVdata/Global get exch/enable exch put vmstatus pop pop 0 eq{//haveEE{1
  80. exch not//cfeewrite}{pop}ifelse/Global//writeNV exec}{pop}ifelse}bind
  81. executeonly def/currentexception{count 2 lt{/currentexception errordict
  82. /stackunderflow get exec}if 2 copy type dup/nametype ne exch/stringtype ne and
  83. exch type dup/nametype ne exch/stringtype ne and or{/currentexception
  84. errordict/typecheck get exec}if dup dup/CompatibleFont ne exch
  85. /CompatibleCIDFont ne and{/currentexception errordict/rangecheck get exec}if
  86. //NVdata exch get exch 2 copy known{get}{pop pop false}ifelse}bind executeonly
  87. def/setexception{count 3 lt{/setexception errordict/stackunderflow get exec}if
  88. 3 copy type/booleantype ne exch type dup/nametype ne exch/stringtype ne and or
  89. exch type dup/nametype ne exch/stringtype ne and or{/setexception errordict
  90. /typecheck get exec}if 1 index dup/CompatibleFont ne exch/CompatibleCIDFont ne
  91. and{/setexception errordict/rangecheck get exec}if 3 copy pop resourcestatus{
  92. pop pop exch systemdict/languagelevel known not{//NVdata 1 index get dup 4
  93. index known not{dup dup length exch maxlength eq{dup maxlength 10 add dict
  94. copy//NVdata exch 2 index exch put}{pop}ifelse}{pop}ifelse}if 3 copy//NVdata 1
  95. index get 4 2 roll put vmstatus pop pop 0 eq{//writeNV exec/CompatibleFont eq{
  96. //ProductCFNames}{//ProductCCIDFNames}ifelse 3 -1 roll 2 copy known//haveEE
  97. and{get exch//cfeewrite}{pop pop pop}ifelse}{pop pop pop pop}ifelse}{pop pop
  98. pop}ifelse}bind executeonly def end end/CompatibleFonts exch/ProcSet
  99. defineresource pop systemdict/languagelevel known{setglobal}if
  100.