tlgs: rm gs8.62

git-svn-id: svn://tug.org/texlive/trunk@13058 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 0 insertions, 254 deletions

diff --git a/Master/tlpkg/tlgs/lib/pdf2dsc.ps b/Master/tlpkg/tlgs/lib/pdf2dsc.ps
deleted file mode 100644
index 97d47ba1c65..00000000000
--- a/Master/tlpkg/tlgs/lib/pdf2dsc.ps
+++ /dev/null
@@ -1,254 +0,0 @@
-%    Copyright (C) 1994, 1995, 1996, 1997, 1998 Aladdin Enterprises.  All rights reserved.

-% 

-% This software is provided AS-IS with no warranty, either express or

-% implied.

-% 

-% This software is distributed under license and may not be copied,

-% modified or distributed except as expressly authorized under the terms

-% of the license contained in the file LICENSE in this distribution.

-% 

-% For more information about licensing, please refer to

-% http://www.ghostscript.com/licensing/. For information on

-% commercial licensing, go to http://www.artifex.com/licensing/ or

-% contact Artifex Software, Inc., 101 Lucas Valley Road #110,

-% San Rafael, CA  94903, U.S.A., +1(415)492-9861.

-

-% $Id: pdf2dsc.ps 8546 2008-02-25 05:48:45Z alexcher $

-% pdf2dsc.ps

-% read pdf file and produce DSC "index" file.

-%

-% Input  file is named PDFname

-% Output file is named DSCname

-%

-% Run using:

-%  gs -dNODISPLAY -sPDFname=pdffilename -sDSCname=tempfilename pdf2dsc.ps

-% Then display the PDF file with

-%  gs tempfilename

-%

-% Modified by Jason McCarty, bug 688071

-%       Add PageLabels support.

-% Modified by Geoff Keating <geoffk@ozemail.com.au> 21/12/98:

-%	Add DocumentMedia, PageMedia comments

-%	Use inherited BoundingBox and Orientation

-%	Reformat, add new macro 'puts', generally clean up

-% Modified by Johannes Plass <plass@dipmza.physik.uni-mainz.de> 1996-11-05:

-%	Adds BoundingBox and Orientation if available.

-% Modified by rjl/lpd 9/19/96

-%	Updates for compatibility with modified pdf_*.ps code for handling

-%	  page ranges (i.e., partial files) better.

-% Modified by Geoff Keating <Geoff.Keating@anu.edu.au> 7/3/96:

-%	include Title and CreationDate DSC comments (these are displayed by

-%	  Ghostview);

-%	reduce the size of typical output files by a factor of about 3.

-% Modified by L. Peter Deutsch 3/18/96:

-%	Removes unnecessary and error-prone code duplicated from pdf_main.ps

-% Modified by L. Peter Deutsch for GS 3.33

-% Originally by Russell Lang  1995-04-26

-

-/PDFfile PDFname (r) file def

-/DSCfile DSCname (w) file def

-systemdict /.setsafe known { .setsafe } if

-

-/puts { DSCfile exch writestring } bind def

-/DSCstring 255 string def

-/MediaTypes 10 dict def

-

-   GS_PDF_ProcSet begin

-   pdfdict begin

-   PDFfile

-   pdfopen begin

-   /FirstPage where { pop } { /FirstPage 1 def } ifelse

-   /LastPage where { pop } { /LastPage pdfpagecount def } ifelse

-

-% scan through for media sizes, keep them in the dictionary

-   FirstPage 1 LastPage {

-      pdfgetpage /MediaBox pget pop   % MediaBox is a required attribute

-      aload pop 

-      3 -1 roll sub 3 1 roll exch sub exch

-      2 array astore 

-      aload 3 1 roll 10 string cvs exch 10 string cvs

-      (x) 3 -1 roll concatstrings concatstrings cvn

-      MediaTypes 3 1 roll exch put

-   } for

-

-% write header and prolog

-   (%!PS-Adobe-3.0\n) puts

-   Trailer /Info knownoget

-    {

-      dup /Title knownoget

-       {

-         (%%Title: ) puts

-         DSCfile exch write==

-       }

-      if

-      /CreationDate knownoget

-       {

-         (%%CreationDate: ) puts

-         DSCfile exch write==

-       }

-      if

-    }

-   if

-   % This is really supposed to be sorted by frequency of usage...

-   (%%DocumentMedia: )

-   MediaTypes { 

-      exch pop

-      1 index puts

-      (y) puts dup 1 get DSCstring cvs puts

-      (x) puts dup 0 get DSCstring cvs puts 

-      ( ) puts dup 0 get DSCstring cvs puts

-      ( ) puts 1 get DSCstring cvs puts 

-      ( 70 white ()\n) puts

-      pop (%%+ )

-   } forall

-   pop

-

-   (%%Pages: ) puts

-   LastPage FirstPage sub 1 add DSCstring cvs puts

-   (\n%%EndComments\n) puts

-   (%%BeginProlog\n) puts

-   (/Page null def\n/Page# 0 def\n/PDFSave null def\n) puts

-   (/DSCPageCount 0 def\n) puts

-   (/DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage } def\n) puts

-   (GS_PDF_ProcSet begin\npdfdict begin\n) puts

-   (%%EndProlog\n) puts

-   (%%BeginSetup\n) puts

-   DSCfile PDFname write==only

-   ( \(r\) file { DELAYSAFER { .setsafe } if } stopped pop\n) puts

-   ( pdfopen begin\n) puts

-   ( copy_trailer_attrs\n) puts

-   (%%EndSetup\n) puts

-

-   /.hasPageLabels false def % see "Page Labels" in the PDF Reference

-   Trailer /Root knownoget {

-     /PageLabels knownoget {

-       /PageLabels exch def

-       /.pageCounter 1 def

-       /.pageCounterType /D def

-       /.pagePrefix () def

-

-       % (TEXT)  .ToLower  (text)  -- convert text to lowercase -- only letters!

-       /.ToLower {

-         dup length 1 sub  -1 0 {

-           1 index exch 2 copy get 2#00100000 or put

-         } for

-       } def

-

-       % int  .CvAlpha  (int in alphabetic base 26)  -- convert a positive

-       % integer to base 26 in capital letters, with 1=A; i.e. A..Z, AA..AZ, ...

-       /.CvAlpha { % using cvrs seems futile since this isn't zero-based ...

-         [ exch % construct an array of ASCII values, in reverse

-         { % the remainder stays on the top of stack

-           dup 0 eq { pop exit } if % quit if the value is zero

-           dup 26 mod dup 0 eq { 26 add } if % so that the division is correct

-           dup 64 add 3 1 roll sub 26 idiv % save the ASCII value and iterate

-         } loop ]

-         dup length dup string 3 1 roll

-         dup -1 1 { % put the letters in a string

-           4 copy sub exch 4 -1 roll 1 sub get put

-         } for pop pop

-       } def

-

-       % int  .CvRoman  (int in capital Roman numerals)

-       % convert a positive integer to capital Roman numerals

-       % return a decimal string if >= 4000

-       /.CvRoman {

-         dup DSCstring cvs % start with the decimal representation

-         exch 4000 lt { % convert only if Roman numerals can represent this

-           dup length

-           [ [ () (I) (II) (III) (IV) (V) (VI) (VII) (VIII) (IX) ]

-             [ () (X) (XX) (XXX) (XL) (L) (LX) (LXX) (LXXX) (XC) ]

-             [ () (C) (CC) (CCC) (CD) (D) (DC) (DCC) (DCCC) (CM) ]

-             [ () (M) (MM) (MMM) ] ] % Roman equivalents

-           () % append the Roman equivalent of each decimal digit to this string

-           2 index  -1 1 {

-             2 index 1 index 1 sub get

-             5 index 5 index 4 -1 roll sub get

-             48 sub get concatstrings

-           } for

-           4 1 roll pop pop pop

-         } if

-       } def

-

-       /PageToString <<

-         /D { DSCstring cvs }

-         /R { .CvRoman }

-         /r { .CvRoman .ToLower }

-         /A { .CvAlpha }

-         /a { .CvAlpha .ToLower }

-       >> def

-       /.hasPageLabels true def

-     } if

-   } if

-

-   % process each page

-   FirstPage 1 LastPage {

-       (%%Page: ) puts

-

-       .hasPageLabels {

-         dup 1 sub PageLabels exch numoget dup null ne {

-           % page labels changed at this page, reset the values

-           dup /S known { dup /S get } { null } ifelse

-           /.pageCounterType exch def

-

-           dup /P known { dup /P get } { () } ifelse

-           /.pagePrefix exch def

-

-           dup /St known { /St get } { pop 1 } ifelse

-           /.pageCounter exch def

-         } { pop } ifelse

-

-         % output the page label

-         (\() .pagePrefix

-         .pageCounterType //null ne dup {

-           PageToString .pageCounterType known and

-         } if { % format the page number

-           .pageCounter dup 0 gt { % don't try to format nonpositive numbers

-             PageToString .pageCounterType get exec

-           } {

-             DSCstring cvs

-          } ifelse

-         } { () } ifelse

-         (\)) concatstrings concatstrings concatstrings puts

-

-         /.pageCounter .pageCounter 1 add def

-       } {

-         dup DSCstring cvs puts

-       } ifelse

-       ( ) puts

-       dup DSCstring cvs puts

-       (\n) puts

-

-       dup pdfgetpage

-       dup /MediaBox pget pop

-         (%%PageMedia: y) puts

-	 aload pop 3 -1 roll sub DSCstring cvs puts

-	 (x) puts exch sub DSCstring cvs puts

-	 (\n) puts

-       dup /CropBox pget {

-         (%%PageBoundingBox: ) puts

-         {DSCfile exch write=only ( ) puts} forall

-         (\n) puts

-       } if

-       /Rotate pget {

-         (%%PageOrientation: ) puts

-         90 div cvi 4 mod dup 0 lt {4 add} if

-         [(Portrait) (Landscape) (UpsideDown) (Seascape)] exch get puts

-         (\n) puts

-       } if

-

-       DSCfile exch DSCstring cvs writestring

-       ( DoPDFPage\n) puts

-    } for

-   currentdict pdfclose

-   end

-   end

-   end

-% write trailer

-(%%Trailer\n) puts

-(currentdict pdfclose\nend\nend\nend\n) puts

-(%%EOF\n) puts

-% close output file and exit

-DSCfile closefile

-quit

-% end of pdf2dsc.ps