Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!csd4.csd.uwm.edu!cs.utexas.edu!uunet!mcsun!ukc!cam-cl!cet1
From: cet1@cl.cam.ac.uk (C.E. Thompson)
Newsgroups: comp.lang.postscript
Subject: Re: Building A PostScript Toolset
Message-ID: <882@scaup.cl.cam.ac.uk>
Date: 7 Sep 89 10:59:20 GMT
References: <1989Aug30.184607.21647@agate.uucp> <1139@adobe.UUCP> <653@windy.dsir.govt.nz>
Sender: news@cl.cam.ac.uk
Reply-To: cet1@cl.cam.ac.uk (C.E. Thompson)
Organization: U of Cambridge Comp Lab, UK
Lines: 21

In article <653@windy.dsir.govt.nz> SRWMCLN@windy.dsir.govt.nz (Clive Nicolson) writes:
>Your third version of the "create dictionary once" problem seems to be trying
>to "put" into a readonly array (procedure), you might known how to do this when
>the memory protection is off on one of your PostScript interpreters, but I
>dont know how to do it other than by something like:
>
>/procname [/READONLY .....] .... put cvx def

Procedures created by {...} are readonly only if there has been a
previous "true setpacking". I suppose that there ought to be code like
the following round the example:

    systemdict /setpacking known 
      {/savepacking currentpacking def  false setpacking} if
    ....
    systemdict /setpacking known 
      {savepacking setpacking} if

I think that the version using "cvx" is probably cleaner, though!

Chris Thompson (cet1@uk.ac.cam.phx)