home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / APPS / gs403osk.tgz / gs403osk.tar / gs_res.ps < prev    next >
Text File  |  1996-10-12  |  16KB  |  551 lines
  1. %    Copyright (C) 1994, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Initialization file for Level 2 resource machinery.
  19. % When this is run, systemdict is still writable,
  20. % but everything defined here goes into level2dict.
  21.  
  22. level2dict begin
  23.  
  24. (BEGIN RESOURCES) VMDEBUG
  25.  
  26. % We keep track of (global) instances with another entry in the resource
  27. % dictionary, an Instances dictionary.  For categories with implicit
  28. % instances, the values in Instances are the same as the keys;
  29. % for other categories, the values are [instance status size].
  30.  
  31. % Note that the dictionary that defines a resource category is stored
  32. % in global memory.  The PostScript manual says that each category must
  33. % manage global and local instances separately.  However, objects in
  34. % global memory other than systemdict can't reference objects in local memory.
  35. % This means that the resource category dictionary, which would otherwise be
  36. % the obvious place to keep track of the instances, can't be used to keep
  37. % track of local instances.  Instead, we define a dictionary in local VM
  38. % called localinstancedict, in which the key is the category name and
  39. % the value is the analogue of Instances for local instances.
  40.  
  41. % We don't currently implement automatic resource unloading.
  42. % When and if we do, it should be hooked to the garbage collector.
  43. % However, Ed Taft of Adobe says their interpreters don't implement this
  44. % either, so we aren't going to worry about it for a while.
  45.  
  46. currentglobal false setglobal systemdict begin
  47.   /localinstancedict 5 dict def
  48. end true setglobal
  49. /.emptydict 0 dict readonly def
  50. setglobal
  51.  
  52. % Resource category dictionaries have the following keys (those marked with
  53. % * are optional):
  54. %   Standard, defined in the Red Book:
  55. %       Category (name)
  56. %       *InstanceType (name)
  57. %       DefineResource
  58. %       UndefineResource
  59. %       FindResource
  60. %       ResourceStatus
  61. %       ResourceForAll
  62. %       *ResourceFileName
  63. %   Additional, specific to our implementation:
  64. %       Instances (dictionary)
  65. %       .LocalInstances
  66. %           - .LocalInstances <dict>
  67. %       .GetInstance
  68. %           <key> .GetInstance <instance> -true-
  69. %           <key> .GetInstance -false-
  70. %       .CheckResource
  71. %           <value> .CheckResource <ok>
  72. %       .DoLoadResource
  73. %           <key> .DoLoadResource - (may give an error)
  74. %       .LoadResource
  75. %           <key> .LoadResource - (may give an error)
  76. %       .ResourceFile
  77. %           <key> .ResourceFile <file> -true-
  78. %           <key> .ResourceFile <key> -false-
  79. % All the above procedures expect that the top dictionary on the d-stack
  80. % is the resource dictionary.
  81.  
  82. % Define enough of the Category category so we can define other categories.
  83. % The dictionary we're about to create will become the Category
  84. % category definition dictionary.
  85.  
  86. 12 dict begin
  87.  
  88.         % Standard entries
  89.  
  90. /Category /Category def
  91. /InstanceType /dicttype def
  92.  
  93. /DefineResource
  94.     { dup .CheckResource
  95.        { dup /Category 3 index cvlit .growput readonly
  96.          dup [ exch 0 -1 ] exch
  97.          Instances 4 2 roll put
  98.        }
  99.        { /typecheck signalerror
  100.        }
  101.       ifelse
  102.     } bind def
  103. /FindResource       % (redefined below)
  104.     { Instances exch get 0 get
  105.     } bind def
  106.  
  107.         % Additional entries
  108.  
  109. /Instances 25 dict def
  110. Instances /Category [currentdict 0 -1] put
  111.  
  112. /.LocalInstances 0 dict def
  113. /.GetInstance
  114.     { Instances exch .knownget
  115.     } bind def
  116. /.CheckResource
  117.     { dup gcheck currentglobal and
  118.        { /DefineResource /FindResource /ResourceForAll /ResourceStatus
  119.          /UndefineResource }
  120.        { 2 index exch known and }
  121.       forall exch pop
  122.     } bind def
  123.  
  124. Instances end begin % for the base case of findresource
  125.  
  126. (END CATEGORY) VMDEBUG
  127.  
  128. % Define the resource operators.  I don't see how we can possibly restore
  129. % the stacks after an error, since the procedure may have popped and
  130. % pushed elements arbitrarily....
  131.  
  132. mark
  133. /defineresource     % <key> <instance> <category> defineresource <instance>
  134.     { /Category findresource dup begin
  135.       /InstanceType known
  136.        { dup type InstanceType ne
  137.           { dup type /packedarraytype eq InstanceType /arraytype eq and
  138.         not { /typecheck signalerror } if
  139.           } if
  140.        } if
  141.       /DefineResource load stopped end { stop } if
  142.     }
  143. /findresource       % <key> <category> findresource <instance>
  144.     { dup /Category eq
  145.        { pop //Category 0 get } { /Category findresource } ifelse
  146.       begin
  147.       /FindResource load stopped end { stop } if
  148.     }
  149. /resourceforall     % <template> <proc> <scratch> <category> resourceforall -
  150.     { /Category findresource begin
  151.       /ResourceForAll load stopped end { stop } if
  152.     }
  153. /resourcestatus     % <key> <category> resourcestatus <status> <size> true
  154.             % <key> <category> resourcestatus false
  155.     { /Category findresource begin
  156.       /ResourceStatus load stopped end { stop } if
  157.     }
  158. /undefineresource   % <key> <category> undefineresource -
  159.     { /Category findresource begin
  160.       /UndefineResource load stopped end { stop } if
  161.     }
  162. end     % Instances of Category
  163. counttomark 2 idiv { bind odef } repeat pop
  164.  
  165. % Define the Generic category.
  166.  
  167. /Generic mark
  168.  
  169.         % Standard entries
  170.  
  171. % We're still running in Level 1 mode, so dictionaries won't expand.
  172. % Leave room for the /Category entry.
  173. /Category null
  174.  
  175. /DefineResource
  176.     { dup .CheckResource
  177.        { dup [ exch 0 -1 ] exch
  178.          currentglobal
  179.           { false setglobal 2 index UndefineResource    % remove local def if any
  180.         true setglobal
  181.         Instances dup //.emptydict eq
  182.          { pop 3 dict /Instances 1 index def
  183.          }
  184.         if
  185.           }
  186.           { .LocalInstances dup //.emptydict eq
  187.              { pop 3 dict localinstancedict Category 2 index put
  188.          }
  189.         if
  190.           }
  191.          ifelse
  192.          4 2 roll .growput
  193.        }
  194.        { /typecheck signalerror
  195.        }
  196.       ifelse
  197.     } bind
  198. /UndefineResource
  199.     {  { dup 2 index .knownget
  200.           { dup 1 get 1 ge
  201.          { dup 0 null put 1 2 put pop pop }
  202.          { pop exch .undef }
  203.         ifelse
  204.           }
  205.           { pop pop
  206.           }
  207.          ifelse
  208.        }
  209.       currentglobal
  210.        { 2 copy Instances exch exec
  211.        }
  212.       if .LocalInstances exch exec
  213.     } bind
  214. /FindResource
  215.     { dup ResourceStatus
  216.        { pop 1 gt           % not in VM
  217.           { .DoLoadResource
  218.           }
  219.          if
  220.          .GetInstance pop       % can't fail
  221.          0 get
  222.        }
  223.        { /undefinedresource signalerror
  224.        }
  225.       ifelse
  226.     } bind
  227. /ResourceStatus
  228.     { dup .GetInstance
  229.        { exch pop dup 1 get exch 2 get true }
  230.        { .ResourceFile
  231.           { closefile 2 -1 true }
  232.           { pop false }
  233.          ifelse
  234.        }
  235.       ifelse
  236.     } bind
  237. /ResourceForAll
  238.     { % **************** Doesn't present instance groups in
  239.       % **************** the correct order yet.
  240.       % We construct a new procedure so we don't have to use
  241.       % static resources to hold the iteration state.
  242.       3 packedarray     % template, proc, scratch
  243.       { exch pop    % stack contains: key, {template, proc, scratch}
  244.         2 copy 0 get .stringmatch
  245.          { 1 index type dup /stringtype eq exch /nametype eq or
  246.         { 2 copy 2 get cvs
  247.           exch 1 get 3 -1 roll pop
  248.         }
  249.         { 1 get
  250.         }
  251.            ifelse exec
  252.          }
  253.          { pop pop
  254.          }
  255.         ifelse
  256.       } /exec cvx 3 packedarray cvx
  257.       % We must pop the resource dictionary off the dict stack
  258.       % when doing the actual iteration, and restore it afterwards.
  259.       currentglobal .LocalInstances length 0 eq or not
  260.        {        % We must do local instances, and do them first.
  261.          /forall cvx 1 index currentdict 3 packedarray cvx
  262.          .LocalInstances 3 1 roll end exec begin
  263.        }
  264.       if
  265.       Instances exch
  266.       /forall cvx currentdict 2 packedarray cvx
  267.       end exec begin
  268.     } bind
  269.  
  270.         % Additional entries
  271.  
  272. % Unfortunately, we can't create the real Instances dictionary now,
  273. % because if someone copies the Generic category (which pp. 95-96 of the
  274. % 2nd Edition Red Book says is legitimate), they'll wind up sharing
  275. % the Instances.  Instead, we have to create Instances on demand,
  276. % just like the entry in localinstancedict.
  277. % We also have to prevent anyone from creating instances of Generic itself.
  278. /Instances //.emptydict
  279.  
  280. /.LocalInstances
  281.     { localinstancedict Category .knownget not { //.emptydict } if
  282.     } bind
  283. /.GetInstance
  284.     { currentglobal
  285.        { Instances exch .knownget }
  286.        { .LocalInstances 1 index .knownget
  287.           { exch pop true }
  288.           { Instances exch .knownget }
  289.          ifelse
  290.        }
  291.       ifelse
  292.     } bind
  293. /.CheckResource
  294.     { pop true
  295.     } bind
  296. /.DoLoadResource
  297.     { dup vmstatus pop exch pop exch
  298.       .LoadResource
  299.       vmstatus pop exch pop exch sub
  300.       1 index .GetInstance not
  301.        { pop /undefinedresource signalerror }   % didn't load
  302.       if
  303.       dup 1 1 put
  304.       2 3 -1 roll put
  305.     } bind
  306. /.LoadResource
  307.     { dup .ResourceFile
  308.        { exch pop currentglobal
  309.           { run }
  310.           { true setglobal { run } stopped false setglobal { stop } if }
  311.          ifelse
  312.        }
  313.        { /undefinedresource signalerror
  314.        }
  315.      ifelse
  316.     } bind
  317. /.ResourceFile
  318.     { currentdict /ResourceFileName known
  319.        { mark 1 index 100 string { ResourceFileName }
  320.          .internalstopped
  321.           { cleartomark false }
  322.           { exch pop findlibfile
  323.          { exch pop exch pop true }
  324.          { false }
  325.         ifelse
  326.           }
  327.          ifelse
  328.        }
  329.        { false }
  330.       ifelse
  331.     } bind
  332.  
  333. .dicttomark
  334. /Category defineresource pop
  335.  
  336. % Fill in the rest of the Category category.
  337. /Category /Category findresource dup
  338. /Generic /Category findresource begin
  339.  { /FindResource /ResourceForAll /ResourceStatus /UndefineResource /.ResourceFile }
  340.  { dup load put dup } forall
  341. pop readonly pop end
  342.  
  343. (END GENERIC) VMDEBUG
  344.  
  345. % Define the fixed categories.
  346.  
  347. mark
  348.     % Things other than types
  349.  /ColorSpaceFamily
  350.    mark colorspacedict { pop } forall .packtomark
  351.  /Emulator
  352.    mark EMULATORS { cvn } forall .packtomark
  353.  /Filter
  354.    mark filterdict { pop } forall .packtomark
  355.  /IODevice
  356.     % Loop until the .getiodevice gets a rangecheck.
  357.    errordict /rangecheck 2 copy get
  358.    errordict /rangecheck { pop stop } put   % pop the command
  359.    mark 0 { {dup .getiodevice exch 1 add} loop} .internalstopped
  360.    pop pop pop .packtomark
  361.    4 1 roll put
  362.    .clearerror
  363.     % Types
  364.  /setcolorrendering where
  365.   { pop /ColorRenderingType
  366.      {1}
  367.   } if
  368. buildfontdict 0 known
  369.   { /FMapType
  370.      {2 3 4 5 6 7 8}
  371.   } if
  372.  /FontType
  373.    [ buildfontdict { pop } forall ]
  374.  /FormType
  375.    {1}
  376.  /HalftoneType
  377.    {1 2 3 4 5}
  378.  /ImageType
  379.    {1}
  380.  /PatternType
  381.    {1}          % should check for Pattern color space
  382. counttomark 2 idiv
  383.  { mark
  384.  
  385.         % Standard entries
  386.  
  387.    /DefineResource
  388.     { /invalidaccess signalerror } bind
  389.    /UndefineResource
  390.     { /invalidaccess signalerror } bind
  391.    /FindResource
  392.     { Instances exch get } bind
  393.    /ResourceStatus
  394.     { Instances exch known { 0 0 true } { false } ifelse } bind
  395.    /ResourceForAll
  396.     /Generic /Category findresource /ResourceForAll get
  397.  
  398.         % Additional entries
  399.  
  400.    counttomark 2 add -1 roll
  401.    dup length dict dup begin exch { dup def } forall end readonly
  402.    /Instances exch
  403.    /.LocalInstances % used by ResourceForAll
  404.     0 dict def
  405.  
  406.    .dicttomark /Category defineresource pop
  407.  } repeat pop
  408.  
  409. (END FIXED) VMDEBUG
  410.  
  411. % Define the other built-in categories.
  412.  
  413. /.definecategory    % <name> -mark- <key1> ... <valuen> .definecategory -
  414.  { counttomark 2 idiv 2 add     % Instances, Category
  415.    /Generic /Category findresource dup maxlength 3 -1 roll add
  416.    dict .copydict begin
  417.    counttomark 2 idiv { def } repeat pop    % pop the mark
  418.    currentdict end /Category defineresource pop
  419.  } bind def
  420.  
  421. /ColorRendering mark /InstanceType /dicttype .definecategory
  422. /ColorSpace mark /InstanceType /arraytype .definecategory
  423. /Form mark /InstanceType /dicttype .definecategory
  424. /Halftone mark /InstanceType /dicttype .definecategory
  425. /Pattern mark /InstanceType /dicttype .definecategory
  426. /ProcSet mark /InstanceType /dicttype .definecategory
  427.  
  428. (END MISC) VMDEBUG
  429.  
  430. % Define the Encoding category.
  431.  
  432. /Encoding mark
  433.  
  434. /InstanceType /arraytype
  435.  
  436. % Handle already-registered encodings, including lazily loaded encodings
  437. % that aren't loaded yet.
  438.  
  439. /Instances mark
  440.   EncodingDirectory
  441.    { dup length 256 eq { [ exch 0 -1 ] } { pop [null 2 -1] } ifelse
  442.    } forall
  443. .dicttomark
  444.  
  445. /.ResourceFileDict mark
  446.   EncodingDirectory
  447.    { dup length 256 eq { pop pop } { 0 get } ifelse
  448.    } forall
  449. .dicttomark
  450.  
  451. /ResourceFileName
  452.  { exch dup .ResourceFileDict exch .knownget
  453.     { exch pop exch copy }
  454.     { exch pop /undefinedresource signalerror }
  455.    ifelse
  456.  } bind
  457.  
  458. .definecategory         % Encoding
  459.  
  460. /.findencoding { /Encoding findresource } bind def
  461. /findencoding /.findencoding load odef
  462. /.defineencoding
  463.  { 2 copy /Encoding defineresource pop
  464.    //EncodingDirectory 3 1 roll put
  465.  } bind def
  466.  
  467. (END ENCODING) VMDEBUG
  468.  
  469. % Define the Font category.
  470.  
  471. /Font mark
  472.  
  473. /InstanceType /dicttype
  474.  
  475. /DefineResource
  476.     { 2 copy //definefont exch pop
  477.       /Generic /Category findresource /DefineResource get exec
  478.     } bind
  479. /UndefineResource
  480.     { dup //undefinefont
  481.       /Generic /Category findresource /UndefineResource get exec
  482.     } bind
  483. /FindResource
  484.     { dup ResourceStatus
  485.        { pop 1 gt { .DoLoadResource } if }
  486.        { .DoLoadResource }
  487.       ifelse
  488.       .GetInstance pop 0 get
  489.     } bind
  490.  
  491. /.LoadResource
  492.     { //findfont exec pop
  493.     } bind
  494.  
  495. /Instances FontDirectory length 2 mul dict
  496.  
  497. .definecategory         % Font
  498.  
  499. % Redefine font "operators".
  500. /.definefontmap
  501.  { /Font /Category findresource /Instances get
  502.    dup 3 index known
  503.     { pop
  504.     }
  505.     { 2 index
  506.         % Make sure we create the array in global VM.
  507.       .currentglobal true .setglobal
  508.       [null 2 -1] exch .setglobal
  509.       .growput
  510.     }
  511.    ifelse
  512.    //.definefontmap exec
  513.  } bind def
  514.  
  515. % Make sure the old definitions are still in systemdict so that
  516. % they will get bound properly.
  517. systemdict begin
  518.   /.origdefinefont /definefont load def
  519.   /.origundefinefont /undefinefont load def
  520.   /.origfindfont /findfont load def
  521. end
  522. /definefont
  523.     { /Font defineresource } bind odef
  524. /undefinefont
  525.     { /Font undefineresource } bind odef
  526. /findfont
  527.     { /Font findresource } bind def % Must be a procedure, not an operator
  528.  
  529. % Remove initialization utilities.
  530. currentdict /.definecategory .undef
  531. currentdict /.emptydict .undef
  532.  
  533. end             % level2dict
  534.  
  535. % Arrange to convert encodings to resources when we switch to Level 2.
  536.  
  537. /.ressetll /.setlanguagelevel load def
  538. /.setlanguagelevel
  539.  { dup .ressetll 2 eq
  540.     { //systemdict /.setlanguagelevel //systemdict /.ressetll get put
  541.       //systemdict /.ressetll undef
  542.       EncodingDirectory
  543.        { dup length 256 eq
  544.       { /Encoding defineresource pop }
  545.       { pop pop }
  546.      ifelse
  547.        } forall
  548.     }
  549.    if
  550.  } bind def
  551.