% Copyright (C) 1991, 1992, 1998 Aladdin Enterprises. All rights reserved. % % This program is free software; you can redistribute it and/or modify it % under the terms of the GNU General Public License as published by the % Free Software Foundation; either version 2 of the License, or (at your % option) any later version. % % This program is distributed in the hope that it will be useful, but % WITHOUT ANY WARRANTY; without even the implied warranty of % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General % Public License for more details. % % You should have received a copy of the GNU General Public License along % with this program; if not, write to the Free Software Foundation, Inc., % 59 Temple Place, Suite 330, Boston, MA, 02111-1307. % $Id: unprot.ps,v 1.2.6.1.2.1 2003/04/12 14:02:39 giles 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 def end % 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