%    Copyright (C) 1990, 1991, 1992, 1993, 1994 Aladdin Enterprises.  All rights reserved.% % This file is part of Aladdin Ghostscript.% % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author% or distributor accepts any responsibility for the consequences of using it,% or for whether it serves any particular purpose or works at all, unless he% or she says so in writing.  Refer to the Aladdin Ghostscript Free Public% License (the "License") for full details.% % Every copy of Aladdin Ghostscript must include a copy of the License,% normally in a plain ASCII text file named PUBLIC.  The License grants you% the right to copy, modify and redistribute Aladdin Ghostscript, but only% under certain conditions described in the License.  Among other things, the% License requires that the copyright notice and this notice be preserved on% all copies. % Initialization file for Level 2 functions.% When this is run, systemdict is still writable,% but everything defined here goes into level2dict. level2dict begin % ------ Miscellaneous ------ % (<<) cvn /mark load def(>>) cvn /.dicttomark load odef/currentsystemparams { mark .currentsystemparams .dicttomark } odef/currentuserparams { mark .currentuserparams .dicttomark } odef/deviceinfo { currentdevice getdeviceprops .dicttomark } odef/languagelevel 2 def/realtime /usertime load def% When running in Level 2 mode, this interpreter is supposed to be% compatible with PostScript version 2010 (I think)./version (2010) def % If binary tokens are supported by this interpreter,% set an appropriate default binary object format./setobjectformat where { pop   currentsystemparams dup   /RealFormat get (IEEE) eq { 1 } { 3 } ifelse   exch /ByteOrder get { 1 add } if   setobjectformat } if % ------ Virtual memory ------ % /currentglobal /currentshared load def/gcheck /scheck load def/setglobal /setshared load def% We can make the global dictionaries very small, because they auto-expand./globaldict currentdict /shareddict .knownget not { 4 dict } if def/GlobalFontDirectory SharedFontDirectory def % ------ IODevices ------ % /.getdevparams where { pop /currentdevparams { .getdevparams .dicttomark } odef } if/.putdevparams where { pop /setdevparams { mark { } forall counttomark 2 add -1 roll .putdevparams } odef } if % ------ Job control ------ % serverdict begin % We could protect the job information better, but we aren't attempting% (currently) to protect ourselves against maliciousness. /.jobsave null def		% top-level save object/.jobsavelevel 0 def		% save depth of job (0 if .jobsave is null,				% 1 otherwise)/.adminjob true def		% status of current unencapsulated job /exitserver { true exch startjob not { /exitserver /invalidaccess signalerror } if } bind def end		% serverdict %**************** The definition of startjob is not complete yet, since% it doesn't clear the exec stack, doesn't reset stdin/stdout,% doesn't run the job under its own control, and doesn't reset% other aspects of the interpreter./startjob { vmstatus pop pop serverdict /.jobsavelevel get eq   1 index .checkpassword 0 gt and    { .checkpassword count 2 roll count 2 sub { pop } repeat      cleardictstack      serverdict /.jobsave get dup null eq { pop } { restore } ifelse      exch       {	% unencapsulated job	 serverdict /.jobsave null put	 serverdict /.jobsavelevel 0 put	 serverdict /.adminjob 3 -1 roll 1 gt put       }       {	% encapsulated job	 serverdict /.jobsave save put	 serverdict /.jobsavelevel 1 put	 userdict /quit /stop load put	 pop       }      ifelse true    }    { pop pop false    }   ifelse } odef % ------ Compatibility ------ % % In Level 2 mode, the following replace the definitions that gs_statd.ps% installs in statusdict and serverdict.% Note that statusdict must be allocated in local VM.% We don't bother with many of these yet, and the ones defined in terms% of currentsystemparams are cavalier about allocating a dictionary% in order to retrieve a single element from it.... /.dict1 { exch mark 3 1 roll .dicttomark } bind def currentglobal false setglobal 25 dict exch setglobal begincurrentsystemparams /buildtime 1 index /BuildTime get def/byteorder 1 index /ByteOrder get def/checkpassword { .checkpassword 0 gt } bind def/defaulttimeouts { currentsystemparams dup   /JobTimeout .knownget not { 0 } if   exch /WaitTimeout .knownget not { 0 } if   currentpagedevice /ManualFeedTimeout .knownget not { 0 } if } bind defdup /DoStartPage known { /dostartpage { currentsystemparams /DoStartPage get } bind def   /setdostartpage { /DoStartPage .dict1 setsystemparams } bind def } ifdup /StartupMode known { /dosysstart { currentsystemparams /StartupMode get 0 ne } bind def   /setdosysstart { { 1 } { 0 } ifelse /StartupMode .dict1 setsystemparams } bind def } if%****** Setting jobname is supposed to set userparams.JobName, too./jobname { currentuserparams /JobName get } bind def/jobtimeout { currentuserparams /JobTimeout get } bind def%manualfeed%manualfeedtimeout/margins { currentpagedevice /Margins .knownget { exch } { [0 0] } ifelse } bind def%pagecount%pagestackorder/printername { currentsystemparams /PrinterName .knownget not { () } if exch copy } bind def%/ramsize { currentsystemparams /RamSize get } bind def/realformat 1 index /RealFormat get def /.setpagedevice where { pop   /setdefaulttimeouts    { exch mark /ManualFeedTimeout 3 -1 roll      /Policies mark /ManualFeedTimeout 0 .dicttomark      .dicttomark setpagedevice      /WaitTimeout exch mark /JobTimeout 5 2 roll .dicttomark setsystemparams    } bind def   /setmargins    { exch 2 array astore /Margins .dict1 setpagedevice    } bind def }if%setpagestackorderdup /PrinterName known { /setprintername { /PrinterName .dict1 setsystemparams } bind def } ifcurrentuserparams /WaitTimeout known { /waittimeout { currentuserparams /WaitTimeout get } bind def } if /.setpagedevice where { pop    /.setpagesize { 2 array astore /PageSize .dict1 setpagedevice } bind def   /setpageparams    {	% We don't actually set the orientation yet.	%currentpagedevice /Orientation known not { pop 0 } if      mark /PageSize 6 -2 roll      4 index 1 ne { exch } if 2 array astore      /Orientation 5 -1 roll	pop pop %      /Margins 7 -1 roll 0 2 array astore .dicttomark setpagedevice    } bind def }if pop		% currentsystemparams % Flag the current dictionary so it will be swapped when we% change language levels.  (See zmisc2.c for more information.)/statusdict currentdict def currentdict end/statusdict exch def % ------ Color spaces ------ % % Define the setcolorspace procedures./colorspacedict mark  /DeviceGray { pop 0 setgray } bind  /DeviceRGB { pop 0 0 0 setrgbcolor } bind  /setcmykcolor where   { pop /DeviceCMYK { pop 0 0 0 1 setcmykcolor } bind   } if  /.setcieaspace where   { pop /CIEBasedA { 1 get .setcieaspace } bind   } if  /.setcieabcspace where   { pop /CIEBasedABC { 1 get .setcieabcspace } bind   } if  /.setseparationspace where   { pop /Separation { dup 2 get setcolorspace .setseparationspace } bind   } if  /.setindexedspace where   { pop /Indexed { dup 1 get setcolorspace .setindexedspace } bind   } if  /.setpatternspace where   { pop /Pattern      { dup length 1 gt { dup 1 get setcolorspace } if        .setpatternspace      } bind   } if.dicttomark def /.devcs [/DeviceGray /DeviceRGB /DeviceCMYK] readonly def/currentcolorspace { .currentcolorspace dup type /integertype eq    { //.devcs exch 1 getinterval    } if } odefcurrentdict /.devcs undef /setcolorspace { dup type /nametype eq { 1 array astore } if   dup //colorspacedict 1 index 0 get get exec   .setcolorspace } odef % Initialize the CIE rendering dictionary if necessary.% The most common CIE files seem to assume the "calibrated RGB color space"% described on p. 189 of the PostScript Language Reference Manual,% 2nd Edition; we simply invert this transformation back to RGB./setcolorrendering where { pop mark   /ColorRenderingType 1   /MatrixLMN    [ 3.24063 -0.96893  0.05571     -1.53721  1.87576 -0.20402     -0.49863  0.04152  1.05700    ]   /EncodeLMN [{0 max 0.45 exp} bind dup dup]   /WhitePoint [0.9505 1 1.0890]   /TransformPQR [ { 4 { exch pop } repeat } dup dup ]   .dicttomark setcolorrendering } if % ------ Painting ------ % % A straightforward definition of execform that doesn't actually% do any caching./execform { dup /Implementation known not    { dup /FormType get 1 ne { /rangecheck signalerror } if      dup /Implementation null put readonly    } if   gsave dup /Matrix get concat   dup /BBox get aload pop   exch 3 index sub exch 2 index sub rectclip   dup /PaintProc get exec   grestore } odef /makepattern { currentglobal    { false setglobal .buildpattern true setglobal }    { .buildpattern }   ifelse   exch dup length 1 add dict copy   dup /Implementation 4 -1 roll put   readonly } odef /setpattern { currentcolorspace 0 get /Pattern ne    { [ /Pattern currentcolorspace ] setcolorspace } if   setcolor } odef end				% level2dict