1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
|
% Copyright (C) 1991, 1992 Aladdin Enterprises. All rights reserved.
%
% This file is part of GNU Ghostscript.
%
% GNU 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 GNU Ghostscript General Public License for full details.
%
% 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
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
|