summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/epsf/fndbadps
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-09 00:56:57 +0000
committerKarl Berry <karl@freefriends.org>2006-01-09 00:56:57 +0000
commitf07bb53970ee2ecc53f81a206a3d3a67ef665e4a (patch)
tree6f57a1d62971db79e5ff023bdfd83b22cb971dc9 /Master/texmf-dist/doc/generic/epsf/fndbadps
parent007f67a693e4d031fd3d792df8e4d5f43e2cb2e7 (diff)
doc 6
git-svn-id: svn://tug.org/texlive/trunk@85 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/generic/epsf/fndbadps')
-rwxr-xr-xMaster/texmf-dist/doc/generic/epsf/fndbadps18
1 files changed, 18 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/generic/epsf/fndbadps b/Master/texmf-dist/doc/generic/epsf/fndbadps
new file mode 100755
index 00000000000..bf91a717111
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/epsf/fndbadps
@@ -0,0 +1,18 @@
+#!/bin/sh
+# Find forbidden PostScript operators in the files specified
+# on stdin.
+# [21-May-1999] -- update with extended list for PostScript Level 3,
+# from pp. 802--803 of the PostScript Language Reference
+# Manual, 3rd edition, 1999.
+# [29-Jun-1996] -- update to show matching bad operator
+# [23-Oct-1992]
+
+# Level 2 list (19 operators):
+# /banddevice|grestoreall|nulldevice|setpageparams|copypage|initclip|quit|setsccbatch|erasepage|initgraphics|renderbands|setscreen|exitserver|initmatrix|setdevice|settransfer|framedevice|note|setmatrix/
+
+# Level 3 list (36 operators):
+nawk '
+/^%/ {next}
+match($0,/[^A-Za-z](banddevice|clear|cleardictstack|copypage|erasepage|executive|exitserver|framedevice|grestoreall|initclip|initgraphics|initmatrix|nulldevice|quit|renderbands|setblackgeneration|setcolorrendering|setcolorscreen|setcolortransfer|setflat|setglobal|setgstate|sethalftone|setmatrix|setoverprint|setpagedevice|setscreen|setshared|setsmoothness|settransfer|setundercolorremoval|startjob|statusdict|undefinefont|undefineresource|userdict)[^A-Za-z]/) {
+ print FILENAME ":" NR ": " $0 ": [" substr($0,RSTART,RLENGTH) "] illegal in EPS file"
+}' $*