home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / gnu / gs-2.6.1.4-src.lha / src / amiga / gs-2.6.1.4 / ps2ascii.ps < prev    next >
Text File  |  1994-01-27  |  12KB  |  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.   /