% Take this file and do a "cat <file-name> | psh | psh | psh | psh | psh"...
% It writes itself out...
%
% It handles dictionaries as well as canvases.  For canvases,
% it writes out &canvas_x and puts a mapping of that &canvas_x into
% the userdict.
%
% Dictionaries only go one deep.  After that, they turn into
% &dict_x just like canvases.
%
% Not as clean as I would like
%  
% NeWS-print 0.996
% Written by Josh Siegel
% Munged by Don Hopkins

systemdict begin

/Externals 512 dict def
/ExternalsBack 512 dict def
Externals /Count 0 put

/string-magic 
        dictbegin
            (\b) 0 get (\\b) def
            (\f) 0 get (\\f) def
            (\n) 0 get (\\n) def
            (\r) 0 get (\\r) def
            (\t) 0 get (\\t) def
            (\() 0 get (\\\() def
            (\)) 0 get (\\\)) def
            (\\) 0 get (\\\\) def
        dictend
def

/fixstring { 
    10 dict
    begin
	/len 0 def
        /out 1 index length 3 mul string def
        {
            dup string-magic exch known {
                string-magic exch get
	    } {
	        cvis
            } ifelse
	    out len 2 index putinterval
	    /len exch length len add def
        } forall
        out 0 len getinterval dup length string copy
    end
} def

/stringer { % proc => string
    dup type cvlit
    {
        /arraytype {
	  pause
	  /arraylvl arraylvl 1 add store
	  dup xcheck {
            /the_string the_string ( {\n) append store
            {
                stringer
            } forall
            /the_string the_string ( }\n) append store
	  } {
            /the_string the_string ( [\n) append store
            {
                stringer
            } forall
            /the_string the_string ( ]\n) append store
	  } ifelse
	  /arraylvl arraylvl 1 sub store
        }
        /nametype {
            dup xcheck {
                the_string (% %) sprintf
                /the_string exch store
            } {
                the_string (% /%) sprintf
		/the_string exch store
            } ifelse
        }
        /operatortype {
            255 string cvs dup length 2 sub 1 exch getinterval
            the_string ( ) append exch append /the_string exch store
        }
        /stringtype {
            fixstring
            the_string (% \(%\)) sprintf
            /the_string exch store
        }
	/marktype {
	    (mark ) % [ DANGER! ]
	}
        /booleantype /integertype /realtype /nulltype {
            the_string (% %) sprintf
            /the_string exch store
        }
	/Default {
	  dup type /dicttype ne dictlvl 0 ne or arraylvl 0 ne or {
	    ExternalsBack 1 index known {
	      ExternalsBack exch get % name
	    } {
	      Externals begin Count /Count Count 1 add def end % obj count
	      1 index type (&%_%) sprintf % obj name
	      Externals 1 index 3 index put % obj name
	      ExternalsBack 3 -1 roll 2 index put % name
	    } ifelse
	    the_string ( //) append exch append /the_string exch store
	  } {
	    /dictlvl dictlvl 1 add store
            /the_string the_string ( dictbegin\n) append store
            {   pause
		/the_string the_string (\t) append store
%		exch 255 string cvs stringer stringer
		exch stringer stringer
%		exch dup type /nametype eq {255 string cvs} if
%		stringer stringer
		/the_string the_string ( def\n) append store
            } forall
            /the_string the_string ( dictend \n) append store
	    /dictlvl dictlvl 1 sub store
	  } ifelse
	} def
    } case
} def
% wrap the function up

/wrapper { % obj => string
    10 dict 
    begin
	/dictlvl 0 def
	/arraylvl 0 def
	/the_string () def
        stringer the_string
    end
} def

end % systemdict

[1 2 3 [4 5 6 10 dict] {this is a func} 10 dict ] wrapper print