% Copyright (C) 1989, 1990, 1991 Aladdin Enterprises. All rights reserved.
% Distributed by Free Software Foundation, Inc.
% This file is part of Ghostscript.
% Ghostscript is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY. No author or distributor accepts responsibility
% to anyone for the consequences of using it or for whether it serves any
% particular purpose or works at all, unless he says so in writing. Refer
% to the Ghostscript General Public License for full details.
% Everyone is granted permission to copy, modify and redistribute
% Ghostscript, but only under the conditions described in the Ghostscript
% General Public License. A copy of this license is supposed to have been
% given to you along with Ghostscript so you can know your rights and
% responsibilities. It should be in a file named COPYING. Among other
% things, the copyright notice and this notice must be preserved on all
% This file provides a dummy 'statusdict' and 'serverdict',
% and a few of the other LaserWriter operators, for the benefit of
% PostScript programs that think they are running on a LaserWriter.
% Define various paper formats. These are mostly dummies for now.
% Only letter, note, and legal are defined in the Adobe manual.
/letter {statusdict begin 0 setpagetype end} def
/note {statusdict begin 1 setpagetype end} def
/11x17 {} def % 11x17 portrait
/ledger {} def % 11x17 landscape
%%%%%% The following items were suggested by a user as useful.
/sethardwareiomode {pop} def
/setsoftwareiomode {pop} def
/setallowjobreset {pop} def
/defaultpaperfamily 0 def
/setdefaultpaperfamily {pop} def
/setdefaultpapertray {pop} def
/defaulttrayswitch false def
/setdefaulttrayswitch {pop} def
% Tray and format selection
/paperfamily 0 def % 0 is US, 1 is European
/setpapertray {statusdict exch /papertray exch put} def
/trayswitch false def % paperout feeds from another tray
/papersize {/letter true} def % <name of paper size>, <short-edge-first-p>
/appletalktype (LaserWriter) def
%%%%%% The following items are defined in the PostScript Language
%%%%%% Reference Manual, First Edition.
/checkpassword {statusdict begin .password eq end} def
/defaulttimeouts {statusdict begin .timeouts aload pop end} def
/idlefonts {statusdict begin mark .idlefonts aload pop end} def
/manualfeedtimeout 60 def
/margins {statusdict begin .topmargin .leftmargin end} def
/pagestackorder {false} def
/printererror {pop pop} def
/printername {statusdict begin .printername exch copy end} def
/product (Ghostscript) def
/revision revision def % revision is defined in systemdict
/sccbatch {pop 9600 0} def
/sccinteractive {pop 9600 0} def
/setdefaulttimeouts {statusdict begin .timeouts astore pop end} def
/setdostartpage {statusdict exch /dostartpage exch put} def
/seteescratch {pop pop} def
/setidlefonts {] statusdict exch /.idlefonts exch put} def
/setjobtimeout {statusdict exch /jobtimeout exch put} def
{statusdict begin /.leftmargin exch def /.topmargin exch def end} def
/setpagetype {statusdict exch /pagetype exch put} def
{statusdict exch /.password exch put true}
{dup length string copy statusdict exch /printername exch put} def
/setsccbatch {pop pop pop} def
/setsccinteractive {pop pop pop} def
% The following contents of serverdict are a complete guess,
% based on some observed LaserWriter boilerplate.
% The Red Book implies that something like the following is
% an appropriate definition of exitserver.
/exitserver { clear stop } def
% However, this interacts badly with Ghostscript's present error handler,
% so we override it with the following less appropriate definition.
/exitserver { clear cleardictstack } def