1 files changed, 68 insertions, 0 deletions
diff --git a/Master/xemtex/gslib/unprot.ps b/Master/xemtex/gslib/unprot.ps
new file mode 100644
index 00000000000..712eff6064e
--- /dev/null
+++ b/Master/xemtex/gslib/unprot.ps
@@ -0,0 +1,68 @@
+%    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