diff options
author | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2022-11-27 04:11:08 +0000 |
---|---|---|
committer | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2022-11-27 04:11:08 +0000 |
commit | 641523caae5f95691407e52d350ec6be833b6373 (patch) | |
tree | cacebf34a0b38a8689310e9eb874e9f16687bbdf /Master/tlpkg/tlgs/lib | |
parent | c46d016a0c497ab7f44424f32d8133cd0df67d38 (diff) |
gs: recover gs 9.56.1
git-svn-id: svn://tug.org/texlive/trunk@65113 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlgs/lib')
-rw-r--r-- | Master/tlpkg/tlgs/lib/pdf_info.ps | 160 | ||||
-rw-r--r-- | Master/tlpkg/tlgs/lib/viewcmyk.ps | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlgs/lib/viewjpeg.ps | 3 | ||||
-rw-r--r-- | Master/tlpkg/tlgs/lib/viewpbm.ps | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlgs/lib/viewpcx.ps | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlgs/lib/viewraw.ps | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlgs/lib/viewrgb.ps | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlgs/lib/zugferd.ps | 2 |
8 files changed, 2 insertions, 173 deletions
diff --git a/Master/tlpkg/tlgs/lib/pdf_info.ps b/Master/tlpkg/tlgs/lib/pdf_info.ps index 2a5f5796658..35951e9a736 100644 --- a/Master/tlpkg/tlgs/lib/pdf_info.ps +++ b/Master/tlpkg/tlgs/lib/pdf_info.ps @@ -527,164 +527,6 @@ systemdict /.sort known not { } ifelse } bind def -/NEWPDF where {/NEWPDF get}{false}ifelse -{ - /knownoget - { - 2 copy known { - get - true - }{ - pop pop false - } ifelse - }bind def - - /PDFContext << >> .PDFInit def - {File (r) file PDFContext .PDFStream} stopped not - { - - PDFContext .PDFInfo - File - () = ( ) print print ( has ) print - dup /NumPages get dup =print 10 mod 1 eq { ( page.\n) } { ( pages\n) } ifelse = flush - - /DumpXML where {/DumpXML get}{//false}ifelse - { - (\n*** DumpXML is no longer supported. ***\n\n) print - }if - - dup /Title knownoget { (Title: ) print write-doc-string () = flush } if - dup /Author knownoget { (Author: ) print write-doc-string () = flush } if - dup /Subject knownoget { (Subject: ) print write-doc-string () = flush } if - dup /Keywords knownoget { (Keywords: ) print write-doc-string () = flush } if - dup /Creator knownoget { (Creator: ) print write-doc-string () = flush } if - dup /Producer knownoget { (Producer: ) print write-doc-string () = flush } if - dup /CreationDate knownoget { (CreationDate: ) print write-doc-string () = flush } if - dup /ModDate knownoget { (ModDate: ) print write-doc-string () = flush } if - dup /Trapped knownoget { (Trapped: ) print write-doc-string () = flush } if - (\n) print flush - - /EmbeddedFonts 10 dict def - /UnEmbeddedFonts 10 dict def - /FontNumbers 10 dict def - - /NumPages get 0 1 3 -1 roll 1 sub - { - dup - PDFContext exch .PDFPageInfoExt exch - DumpMediaSizes { - (Page ) print 1 add =print - dup /UserUnit knownoget {( UserUnit: ) print =print} if - dup /MediaBox knownoget {( MediaBox: ) print ==only} if - dup /CropBox knownoget {( CropBox: ) print ==only} if - dup /BleedBox knownoget {( BleedBox: ) print ==only} if - dup /TrimBox knownoget {( TrimBox: ) print ==only} if - dup /ArtBox knownoget {( ArtBox: ) print ==only} if - dup /Rotate knownoget not {0}if ( Rotate = ) print =print - dup /Annots knownoget {{( Page contains Annotations) print} if} if - dup /UsesTransparency knownoget {{( Page uses transparency features) print} if} if - dup /Spots knownoget { - (\n Page Spot colors: ) = - {( ) print (') print 256 string cvs print (') =} forall - } if - (\n) print flush - (\n) print flush - } - { - pop - } ifelse - - /Fonts knownoget - { - { - dup /ObjectNum known - { - %% Fonts with an ObjectNumber may have been previously referenced on another page - dup /ObjectNum get - dup FontNumbers exch known - { - pop - %% found the ObjectNumber in the FontNumbers dictionary so we've seen this one. - //false - } - { - %% Not seen before, add the number to the array and process this font - FontNumbers exch dup put - //true - }ifelse - }{ - %% Fonts without an ObjectNumber are defined inline and so must be unique - //true - } ifelse - { - % First time we've seen the font - dup /Descendants known - { - dup /BaseFont get - EmbeddedFonts exch dup put % We class the Type 0 font as 'embedded', but it's really the descendant which is embedded or not. - dup /Descendants get - 1 index /BaseFont get - 2 index /Embedded get - { - EmbeddedFonts exch dup put - } - { - UnEmbeddedFonts exch dup put - }ifelse - pop - } - { - dup /BaseFont get - 1 index /Embedded get - { - EmbeddedFonts exch dup put - } - { - UnEmbeddedFonts exch dup put - } ifelse - }ifelse - pop - } - { - pop - } ifelse - }forall - } if - } for - - /DumpFontsUsed where {/DumpFontsUsed get}{//false}ifelse - { - [ - UnEmbeddedFonts {pop} forall - /ShowEmbeddedFonts where {/ShowEmbeddedFonts get}{//false}ifelse - { - EmbeddedFonts {pop} forall - } if - ] - dup length 0 gt { - { 100 string cvs exch 100 string cvs exch lt } .sort - (\nFont or CIDFont resources used (plain name and ASCIIHEX string representation):) = - { 128 string cvs dup print ( ) print (<) print 128 string cvs {16 8 string cvrs print} forall (>) print (\n) print} forall - } if - } - { - [ - DumpFontsNeeded - { - UnEmbeddedFonts {pop} forall - } if - ] - dup length 0 gt { - { 100 string cvs exch 100 string cvs exch lt } .sort - (\nFonts Needed that are not embedded \(system fonts required\):) = - { ( ) print 128 string cvs dup print ( ) print (<) print {16 8 string cvrs print} forall (>) print (\n) print} forall - } if - }ifelse - } if - PDFContext .PDFClose -} -{ - enum-pdfs -} ifelse +enum-pdfs end quit diff --git a/Master/tlpkg/tlgs/lib/viewcmyk.ps b/Master/tlpkg/tlgs/lib/viewcmyk.ps index 33c5bdceb15..e8034e53346 100644 --- a/Master/tlpkg/tlgs/lib/viewcmyk.ps +++ b/Master/tlpkg/tlgs/lib/viewcmyk.ps @@ -56,8 +56,6 @@ cleartomark (Usage: gs -- viewcmyk.ps filename.cmyk width\n) print ( e.g.: gs -- viewcmyk.ps my.cmyk 2550\n) print flush - (From version 9.50 you must supply permissions for this program to read the input file(s)\n) print flush - (either by using -dNOSAFER or by supplying --permit-file-read=<filename>\n) = flush } ifelse } { pop diff --git a/Master/tlpkg/tlgs/lib/viewjpeg.ps b/Master/tlpkg/tlgs/lib/viewjpeg.ps index 54453fe4d83..71cb5d44131 100644 --- a/Master/tlpkg/tlgs/lib/viewjpeg.ps +++ b/Master/tlpkg/tlgs/lib/viewjpeg.ps @@ -35,9 +35,6 @@ % Usage example: % (jpeg-6/testimg.jpg) viewJPEG -% From version 9.50 you must supply permissions for this program -% to read the input file(s) either by using -dNOSAFER or by -% supplying --permit-file-read=<filename> /languagelevel where {pop languagelevel 2 lt}{true} ifelse { (JPEG needs PostScript Level 2!\n) print flush stop diff --git a/Master/tlpkg/tlgs/lib/viewpbm.ps b/Master/tlpkg/tlgs/lib/viewpbm.ps index 143a056a68a..c8d3f86bc84 100644 --- a/Master/tlpkg/tlgs/lib/viewpbm.ps +++ b/Master/tlpkg/tlgs/lib/viewpbm.ps @@ -327,8 +327,6 @@ ( e.g.: gs [-dSCALE=#.#] [-dFITPAGE] [--] viewpbm.ps my.ppm another.ppm\n) print flush ( also -dTAG option can be used to show the pseudo-color tag image from a\n) print flush ( P7 RGB_TAG PAM file created by the bitrgbtags device.\n) print flush - (From version 9.50 you must supply permissions for this program to read the input file(s)\n) print flush - (either by using -dNOSAFER or by supplying --permit-file-read=<filename>\n) = flush } ifelse } diff --git a/Master/tlpkg/tlgs/lib/viewpcx.ps b/Master/tlpkg/tlgs/lib/viewpcx.ps index 0b549ad90fe..76bfdfae6eb 100644 --- a/Master/tlpkg/tlgs/lib/viewpcx.ps +++ b/Master/tlpkg/tlgs/lib/viewpcx.ps @@ -183,8 +183,6 @@ { cleartomark (Usage: gs -- viewpcx.ps filename.pcx ...\n) print ( e.g.: gs -- viewpcx.ps my.pcx another.pcx\n) print flush - (From version 9.50 you must supply permissions for this program to read the input file(s)\n) print flush - (either by using -dNOSAFER or by supplying --permit-file-read=<filename>\n) = flush } ifelse } diff --git a/Master/tlpkg/tlgs/lib/viewraw.ps b/Master/tlpkg/tlgs/lib/viewraw.ps index 85438ffa103..dee86e02300 100644 --- a/Master/tlpkg/tlgs/lib/viewraw.ps +++ b/Master/tlpkg/tlgs/lib/viewraw.ps @@ -181,8 +181,6 @@ cleartomark (Usage: gs -- viewraw filename.raw width\n) print ( e.g.: gs -- viewraw my.raw 2550\n) print flush - (From version 9.50 you must supply permissions for this program to read the input file(s)\n) print flush - (either by using -dNOSAFER or by supplying --permit-file-read=<filename>\n) = flush } ifelse } { pop diff --git a/Master/tlpkg/tlgs/lib/viewrgb.ps b/Master/tlpkg/tlgs/lib/viewrgb.ps index c2c34fec635..ab2f6d82c4a 100644 --- a/Master/tlpkg/tlgs/lib/viewrgb.ps +++ b/Master/tlpkg/tlgs/lib/viewrgb.ps @@ -143,8 +143,6 @@ ( e.g.: gs -- viewrgb.ps my.rgb 2550\n) print flush ( -dSCALE=### sets specific scaling \(default = 1.0\)) = flush ( -dBITS=# sets the BitsPerComponent \(1, 2, 8, 12] \(default = 1\)) = flush - (From version 9.50 you must supply permissions for this program to read the input file(s)\n) print flush - (either by using -dNOSAFER or by supplying --permit-file-read=<filename>\n) = flush } ifelse } { pop diff --git a/Master/tlpkg/tlgs/lib/zugferd.ps b/Master/tlpkg/tlgs/lib/zugferd.ps index d20c39edc0c..97d33d4d2b4 100644 --- a/Master/tlpkg/tlgs/lib/zugferd.ps +++ b/Master/tlpkg/tlgs/lib/zugferd.ps @@ -455,7 +455,7 @@ ZUGFeRDVersion (2p1) eq { [ /_objdef {FSDict} /type /dict /OBJ pdfmark % Fill in the required dictionary elements [ {FSDict} << - /Type /Filespec + /Type /FileSpec /F ZUGFeRDDocumentFileName /UF ZUGFeRDDocumentFileName SimpleUTF16BE /Desc (ZUGFeRD electronic invoice) |