%    Copyright (C) 1991, 1992, 1998 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. % $Id: unprot.ps,v 1.1 2000/03/09 08:40:40 lpd Exp $% Disable all access checks.  This is useful for printing out% eexec-encrypted Type 1 fonts, and similar purposes. systemdict wcheck { /protdict systemdict def } { (Please restart Ghostscript with the -dWRITESYSTEMDICT switch.\n) print   (Some access checks will remain active if you do not do this.\n) print   flush   /protdict userdict def }ifelse % The procedures we're about to define will go in systemdict,% so they must be allocated in global VM. .currentglobal true .setglobal protdict 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 defend % Disable the access checks. /unprot { protdict begin   /readonly /readonly.. load def   /executeonly /executeonly.. load def   /noaccess /noaccess.. load def   end } bind def % Re-enable the access checks. /reprot { protdict begin   /readonly /readonly. load def   /executeonly /executeonly. load def   /noaccess /noaccess. load def   end } bind def .setglobal