home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / gnu / gs-2.6.1.4-bin.lha / lib / ghostscript / ps2ascii.ps < prev    next >
Encoding:
Text File  |  1994-02-22  |  11.9 KB  |  392 lines
  1. %    Copyright (C) 1991, 1992, 1993 Aladdin Enterprises.  All rights reserved.
  2. %
  3. % This file is part of Ghostscript.
  4. %
  5. % Ghostscript is distributed in the hope that it will be useful, but
  6. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  7. % to anyone for the consequences of using it or for whether it serves any
  8. % particular purpose or works at all, unless he says so in writing.  Refer
  9. % to the Ghostscript General Public License for full details.
  10. %
  11. % Everyone is granted permission to copy, modify and redistribute
  12. % Ghostscript, but only under the conditions described in the Ghostscript
  13. % General Public License.  A copy of this license is supposed to have been
  14. % given to you along with Ghostscript so you can know your rights and
  15. % responsibilities.  It should be in a file named COPYING.  Among other
  16. % things, the copyright notice and this notice must be preserved on all
  17. % copies.
  18.  
  19. % Extract the ASCII text from a PostScript file.  Nothing is displayed.
  20. % Instead, ASCII information is written to stdout.  If SIMPLE is defined,
  21. % just the text is written, with a guess at line breaks and word spacing.
  22. % If SIMPLE is not defined, lines are written to stdout as follows:
  23. %
  24. %    F <height> <width> (<fontname>)
  25. %        indicate font height and width of a space
  26. %
  27. %    S <x> <y> (<string>) <width>
  28. %        display a string
  29. %
  30. %    P
  31. %        end of page
  32. % 
  33. % <height> is an integer expressed in tenths of a point
  34. % <width> is an integer in tenths of a point.
  35. % <x> and <y> are integer coordinates, in tenths of a point, with origin
  36. %   at lower left.
  37. % <string> and <fontname> are strings represented with the standard
  38. %   PostScript escape conventions.
  39. % The idea is similar to Glenn Reid's `distillery', only a lot more
  40. % simple-minded, and less robust.
  41.  
  42. % Note that this code will only work in all cases if systemdict is writable
  43. % and if `binding' the definitions of operators defined as procedures
  44. % is deferred.  For this reason, it is normally invoked with
  45. %    gs -q -dNODISPLAY -dNOBIND -dWRITESYSTEMDICT ps2ascii.ps
  46.  
  47. % Thanks to J Greely <jgreely@cis.ohio-state.edu> for improvements
  48. % to this code.
  49.  
  50. /QUIET true def
  51. systemdict wcheck { systemdict } { userdict } ifelse begin
  52. /SIMPLE dup where { pop true } { false } ifelse def
  53.  
  54. % Disable the display operators.
  55.  
  56. /eofill { newpath } odef
  57. /erasepage { } odef
  58. /fill { newpath } odef
  59. /stroke { newpath } odef
  60.  
  61. % The image operators must read the input, but do nothing.
  62.  
  63. /colorimage { gsave nulldevice //colorimage grestore } odef
  64. /image { gsave nulldevice //image grestore } odef
  65. /imagemask { gsave nulldevice //imagemask grestore } odef
  66.  
  67. % Redefine the end-of-page operators.
  68.  
  69. /copypage { SIMPLE { (\014) } { (P\n) } ifelse //print } odef
  70. /showpage { copypage erasepage initgraphics } odef
  71.  
  72. % Redefine `show'.
  73.  
  74. % Set things up so our output will be in tenths of a point, with origin at
  75. % lower left.  This isolates us from the peculiarities of individual devices.
  76.  
  77. /.show.ident.matrix matrix def
  78. /.show.ident
  79. % { //.show.ident.matrix defaultmatrix
  80. %        % Assume the original transformation is well-behaved.
  81. %   0.1 0 2 index dtransform abs exch abs max /.show.scale exch def
  82. %   0.1 dup 3 -1 roll scale
  83.  { gsave initmatrix
  84.         % Assume the original transformation is well-behaved.
  85.    0.1 0 dtransform abs exch abs max /.show.scale exch def
  86.    0.1 dup scale .show.ident.matrix currentmatrix
  87.    grestore
  88.  } bind def
  89. /.coord
  90.  { transform .show.ident itransform
  91.    exch round cvi exch round cvi
  92.  } odef
  93. /.dcoord
  94.  {        % Transforming distances is trickier, because
  95.         % the coordinate system might be rotated.
  96.    .show.ident pop
  97.    exch 0 dtransform
  98. %     dup 0 ne { dup mul exch dup mul add sqrt } { pop abs } ifelse
  99. dup mul exch dup mul add sqrt
  100.      .show.scale div round cvi
  101.    exch 0 exch dtransform
  102. %     exch dup 0 ne { dup mul exch dup mul add sqrt } { pop abs } ifelse
  103. dup mul exch dup mul add sqrt
  104.      .show.scale div round cvi
  105.  } odef
  106.  
  107. % Define a way to store and retrieve integers that survives save/restore.
  108. /.i.string (                ) def
  109. /.iget { cvi } bind def
  110. /.iput { exch //.i.string exch copy cvs pop } bind def
  111. /.inew { //.i.string length string dup 3 -1 roll .iput } bind def
  112. /.show.x 0 .inew def
  113. /.show.y 0 .inew def
  114. /.show.height 1000 .inew def
  115. % Remember the last character of the previous string; if it was a
  116. % hyphen preceded by a letter, we didn't output the hyphen.
  117. /.show.last (\000) def
  118.  
  119. % Make sure writing will work even if a program uses =string.
  120. /.show.string =string length string def
  121. /.show.=string =string length string def
  122. /.show==only
  123.  { //=string //.show.=string copy pop
  124.    dup type /stringtype eq
  125.     { dup length //.show.string length le
  126.        { dup rcheck { //.show.string copy } if
  127.        } if
  128.     } if
  129.    //.stdout exch write==only
  130.    //.show.=string //=string copy pop
  131.  } odef
  132.  
  133. /.showfont
  134. %(following comments are from J Greely)
  135. %old code - This didn't work right for me with all fonts.
  136. %
  137. % { 0 currentfont /FontBBox get dup 3 get exch 1 get sub
  138. %   currentfont /FontMatrix get dtransform dtransform
  139. %   exch abs exch abs max round
  140. %   (F ) //print //.stdout exch write==only (\n) //print
  141. % } odef
  142. %
  143. %unfortunately, my way bombs on one of my test files in
  144. %--%show_continue--(?!).  It's from dvi2ps, which molests
  145. %the fonts in some way. --jgreely
  146.  { gsave
  147.     % If we can't get the height and width of the font from
  148.     % the FontBBox, we just measure some characters.
  149.      currentfont /FontBBox .knownget not { {0 0 0 0} } if
  150.      aload pop exch 4 -1 roll sub 3 1 roll exch sub
  151.      2 copy max 0 ne
  152.       { currentfont /FontMatrix get dtransform
  153.       }
  154.       {    % Unfortunately, charpath is broken in some versions,
  155.     % so we use stringwidth and fudge.
  156.     (X) stringwidth pop dup 1.3 mul
  157.       }
  158.      ifelse .dcoord exch
  159.      currentfont /FontName .knownget not { () } if
  160.      dup type /nametype eq { //.show.string cvs } if
  161.    grestore
  162.     % Stack: height width fontname
  163.    SIMPLE
  164.     { pop pop //.show.height exch .iput }
  165.     { (F ) //print 3
  166.        { 2 index .show==only ( ) //print 3 -1 roll } repeat
  167.       pop pop pop (\n) //print
  168.     }
  169.    ifelse
  170.  } odef
  171.  
  172. % Define the letters -- characters which, if they occur followed by a hyphen
  173. % at the end of a line, cause the hyphen and line break to be ignored.
  174. /.letter.chars 100 dict def
  175. mark
  176.   65 1 90 { dup 32 add } for
  177. counttomark { StandardEncoding exch get .letter.chars exch dup put } repeat
  178. pop
  179.  
  180. % Define a set of characters which, if they occur at the start of a line,
  181. % are taken as indicating a paragraph break.
  182. /.break.chars 50 dict def
  183. mark
  184.   /bullet /dagger /daggerdbl /periodcentered /section
  185. counttomark { .break.chars exch dup put } repeat
  186. pop
  187.  
  188. % Define character translation to ASCII.
  189. % We have to do this for the entire character set.
  190. /.char.map 500 dict def
  191. /.chars.def { counttomark 2 idiv { .char.map 3 1 roll put } repeat pop } def
  192.     % Encode the printable ASCII characters.
  193. mark 32 1 126
  194.  { 1 string dup 0 4 -1 roll put
  195.    dup 0 get StandardEncoding exch get exch
  196.  }
  197. for .chars.def
  198.     % Encode accents.
  199. mark
  200.   /acute (') /caron (^) /cedilla (,) /circumflex (^)
  201.   /dieresis (") /grave (`) /ring (*) /tilde (~)
  202. .chars.def
  203.     % Encode the ISO accented characters.
  204. mark 192 1 255
  205.  { ISOLatin1Encoding exch get =string cvs
  206.    dup 0 1 getinterval 1 index dup length 1 sub 1 exch getinterval
  207.    .char.map 2 index known .char.map 2 index known and
  208.     { .char.map 3 -1 roll get .char.map 3 -1 roll get concatstrings
  209.       .char.map 3 1 roll put
  210.     }
  211.     { pop pop pop
  212.     }
  213.    ifelse
  214.  }
  215. for .chars.def
  216.     % Encode the remaining standard and ISO alphabetic characters.
  217. mark
  218.   /AE (AE) /Eth (DH) /OE (OE) /Thorn (Th)
  219.   /ae (ae) /eth (dh)
  220.   /ffi (ffi) /ffl (ffl) /fi (fi) /fl (fl)
  221.   /germandbls (ss) /oe (oe) /thorn (th)
  222. .chars.def
  223.     % Encode the other standard and ISO characters.
  224. mark
  225.   /brokenbar (|) /bullet (*) /copyright ((C)) /currency (#)
  226.   /dagger (#) /daggerdbl (##) /degree (o) /divide (/) /dotaccent (.)
  227.   /dotlessi (i)
  228.   /ellipsis (...) /emdash (--) /endash (-) /exclamdown (!)
  229.   /florin (f) /fraction (/)
  230.   /guillemotleft (<<) /guillemotright (>>)
  231.   /guilsingleft (<) /guilsingright (>) /hungarumlaut ("") /logicalnot (~)
  232.   /macron (_) /minus (-) /mu (u) /multiply (*)
  233.   /ogonek (,) /onehalf (1/2) /onequarter (1/4) /onesuperior (1)
  234.   /ordfeminine (-a) /ordmasculine (-o)
  235.   /paragraph (||) /periodcentered (*) /perthousand (o/oo) /plusminus (+-)
  236.   /questiondown (?) /quotedblbase (") /quotedblleft (") /quotedblright (")
  237.   /quotesinglbase (,) /quotesingle (') /registered ((R))
  238.   /section ($) /sterling (#)
  239.   /threequarters (3/4) /threesuperior (3) /trademark ((TM)) /twosuperior (2)
  240.   /yen (Y)
  241. .chars.def
  242.     % Encode a few common Symbol characters.
  243. mark
  244.   /asteriskmath (*) /copyrightsans ((C)) /copyrightserif ((C))
  245.   /greaterequal (>=) /lessequal (<=) /registersans ((R)) /registerserif ((R))
  246.   /trademarksans ((TM)) /trademarkserif ((TM))
  247. .chars.def
  248.  
  249. % Write out a string.  If it ends in a letter and a hyphen,
  250. % don't write the hyphen, and set .show.last to a hyphen;
  251. % otherwise, set .show.last to the character (or \000 if it was a hyphen).
  252. /.show.write    % <string>
  253.  { dup length 1 ge
  254.     { dup dup length 1 sub get
  255.       dup 45 eq        % hyphen
  256.        { 1 index length 1 gt
  257.           { 1 index dup length 2 sub get }
  258.       { //.show.last 0 get }
  259.      ifelse
  260.      currentfont /Encoding get exch get
  261.      //.letter.chars exch known
  262.       {    % Remove the hyphen
  263.         exch dup length 1 sub 0 exch getinterval exch
  264.       }
  265.       { pop 0
  266.       }
  267.      ifelse
  268.        }
  269.       if
  270.       //.show.last 0 3 -1 roll put
  271.     }
  272.    if
  273.     { dup currentfont /Encoding get exch get
  274.       dup //.char.map exch .knownget
  275.        { //.stdout exch writestring pop pop
  276.        }
  277.        { currentfont /Encoding dup StandardEncoding eq
  278.      exch ISOLatin1Encoding eq or
  279.       {    % Untranslated character in standard encoding
  280.         pop //.stdout exch write
  281.       }
  282.       {    % Character in non-standard encoding, substitute
  283.         pop pop //.stdout (*) writestring
  284.       }
  285.      ifelse
  286.        }
  287.       ifelse
  288.     }
  289.    forall
  290.  } odef
  291. /.showstring
  292.  { currentpoint .coord
  293.    3 -1 roll dup stringwidth 1 index 0 rmoveto
  294.    .dcoord pop
  295.     % Stack: x y string width
  296.    SIMPLE
  297.     { 2 index //.show.y .iget ne
  298.        {    % Try to figure out whether we have a line break
  299.         % or a paragraph break.
  300.      2 index //.show.y .iget sub abs
  301.      //.show.height .iget 1.3 mul ge
  302.      2 index length 0 gt
  303.       { 2 index 0 get currentfont /Encoding get exch get
  304.         //.break.chars exch known { pop true } if
  305.       }
  306.      if
  307.       { (\n\n)    % Paragraph
  308.       }
  309.       { ( )        % Line
  310.       }
  311.      ifelse //print
  312.      //.show.y 3 index .iput
  313.          //.show.x 4 index .iput
  314.        }
  315.        {    % If the word processor split a hyphenated word within
  316.         % the same line, put out the hyphen now.
  317.      //.show.last 0 get 45 eq { (-) //print } if
  318.        }
  319.       ifelse
  320.       3 index //.show.x .iget 10 add gt
  321.        { ( ) //print
  322.        }
  323.       if
  324.       4 1 roll .show.write pop add //.show.x exch .iput
  325.     }
  326.     { (S ) //print
  327.       4 -1 roll .show==only ( ) //print
  328.       3 -1 roll .show==only ( ) //print
  329.       exch .show==only ( ) //print
  330.       .show==only (\n) //print
  331.     }
  332.    ifelse
  333.  } odef
  334.      
  335. /show
  336.  { .showfont .showstring
  337.  } odef
  338.  
  339. % Redefine the other string display operators in terms of `show'.
  340.  
  341. /.show1.string ( ) def
  342. /.show1 { //.show1.string exch 0 exch put //.show1.string .showstring } odef
  343. /ashow
  344.  { .showfont
  345.    { .show1 2 copy rmoveto } forall
  346.    pop pop
  347.  } odef
  348. /awidthshow
  349.  { .showfont
  350.     { dup .show1 4 index eq { 4 index 4 index rmoveto } if
  351.       2 copy rmoveto
  352.     }
  353.    forall
  354.    pop pop pop pop pop
  355.  } odef
  356. /widthshow
  357.  { .showfont
  358.    //.show1.string 0 4 -1 roll put
  359.     { //.show1.string search not { exit } if
  360.       .showstring .showstring
  361.       2 index 2 index rmoveto
  362.     } loop
  363.    .showstring pop pop
  364.  } odef
  365. /kshow
  366.  { .showfont
  367.    { .show1 dup exec } forall pop
  368.  } odef
  369.  
  370. % Redirect the printing operators.
  371.  
  372. /.stdout (_temp_.out) (w) file def
  373. /.stderr (_temp_.err) (w) file def
  374. /print { //.stdout exch writestring } odef
  375.  
  376. end
  377.  
  378. % Bind the operators we just defined, and all the others if we didn't
  379. % do it before.  Also reenable 'bind' for future files.
  380.  
  381. .bindoperators
  382. NOBIND currentdict systemdict ne and
  383.  { systemdict begin .bindoperators end }
  384. if
  385. NOBIND
  386.  { /bind /.bind load def }
  387. if
  388.  
  389. % Make systemdict read-only if it wasn't already.
  390.  
  391. systemdict wcheck { systemdict readonly pop } if
  392.