Category : DeskTop Publishing in the 1990's
Archive   : GS252PM.ZIP
Filename : UNPROT.PS

% Copyright (C) 1991, 1992 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
% copies.

% Disable all access checks. This is useful for printing out
% eexec-encrypted Type 1 fonts, and similar purposes.

systemdict wcheck not
{ (Please restart Ghostscript with the -dWRITESYSTEMDICT switch.\n) print
stop
} if

systemdict begin
/readonly. /readonly load def
/executeonly. /executeonly load def
/noaccess. /noaccess load def
/readonly { } odef
/readonly.. /readonly load def
/executeonly { } odef
/executeonly.. /executeonly load def
/noaccess { } odef
/noaccess.. /noaccess load def
end

% Disable the access checks.

/unprot
{ systemdict begin
/readonly /readonly.. load def
/executeonly /executeonly.. load def
/noaccess /noaccess.. load def
end
} bind def

% Re-enable the access checks.

/reprot
{ systemdict begin
/readonly /readonly. load def
/executeonly /executeonly. load def
/noaccess /noaccess. load def
end
} bind def