home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2002 February / INTERNET88.ISO / pc / software / windows / bits / pdf995 / data1.cab / Program_Executable_Files / res / ps2ascii.ps < prev    next >
Encoding:
Text File  |  2001-12-08  |  44.8 KB  |  1,511 lines
  1. %    Copyright (C) 1991, 1995, 1996, 1998, 1999 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of GNU Ghostscript.
  4. % 
  5. % GNU 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 GNU General Public License for full details.
  10. % 
  11. % Everyone is granted permission to copy, modify and redistribute GNU
  12. % Ghostscript, but only under the conditions described in the GNU General
  13. % Public License.  A copy of this license is supposed to have been given
  14. % to you along with GNU 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. % $RCSfile: ps2ascii.ps,v $ $Revision: 1.2.2.1 $
  20. % Extract the ASCII text from a PostScript file.  Nothing is displayed.
  21. % Instead, ASCII information is written to stdout.  The idea is similar to
  22. % Glenn Reid's `distillery', only a lot more simple-minded, and less robust.
  23.  
  24. % If SIMPLE is defined, just the text is written, with a guess at line
  25. % breaks and word spacing.  If SIMPLE is not defined, lines are written
  26. % to stdout as follows:
  27. %
  28. %    F <height> <width> (<fontname>)
  29. %        Indicate the font height and the width of a space.
  30. %
  31. %    P
  32. %        Indicate the end of the page.
  33. % 
  34. %    S <x> <y> (<string>) <width>
  35. %        Display a string.
  36. %
  37. % <width> and <height> are integer dimensions in units of 1/720".
  38. % <x> and <y> are integer coordinates, in units of 1/720", with the origin
  39. %   at the lower left.
  40. % <string> and <fontname> are strings represented with the standard
  41. %   PostScript escape conventions.
  42.  
  43. % If COMPLEX is defined, the following additional types of lines are
  44. % written to stdout.
  45. %
  46. %    C <r> <g> <b>
  47. %        Indicate the current color.
  48. %
  49. %    I <x> <y> <width> <height>
  50. %        Note the presence of an image.
  51. %
  52. %    R <x> <y> <width> <height>
  53. %        Fill a rectangle.
  54. %
  55. % <r>, <g>, and <b> are RGB values expressed as integers between 0 and 1000.
  56. %
  57. % Note that future versions of this program (in COMPLEX mode) may add
  58. %   other output elements, so programs parsing the output should be
  59. %   prepared to ignore elements that they do not recognize.
  60.  
  61. % Note that this code will only work in all cases if systemdict is writable
  62. % and if `binding' the definitions of operators defined as procedures
  63. % is deferred.  For this reason, it is normally invoked with
  64. %    gs -q -dNODISPLAY -dNOBIND -dWRITESYSTEMDICT ps2ascii.ps
  65.  
  66. % Thanks to:
  67. %    J Greely <jgreely@cis.ohio-state.edu> for improvements to this code;
  68. %    Jerry Whelan <jerryw@abode.ccd.bnl.gov> for motivating other improvements;
  69. %    David M. Jones <dmjones@theory.lcs.mit.edu> for improvements noted below.
  70.  
  71. %%  Additional modifications by David M. Jones
  72. %%  (dmjones@theory.lcs.mit.edu), December 23, 1997
  73. %%  
  74. %%  (a) Rewrote forall loop at the end of .show.write.  This fixes a
  75. %%      stack leakage problem, but the changes are more significant
  76. %%      than that.  
  77. %% 
  78. %%      .char.map includes the names of all characters in the
  79. %%      StandardEncoding, ISOLatin1Encoding, OT1Encoding and
  80. %%      T1Encoding vectors.  Thus, if the Encoding vector for the
  81. %%      current font contains a name that is not in .char.map, it's
  82. %%      redundant to check if the Encoding vector is equal to one of
  83. %%      the known vectors.  Previous versions of ps2ascii would give
  84. %%      up at this point, and substitute an asterisk (*) for the
  85. %%      character.  I've taken the liberty of instead using the
  86. %%      OT1Encoding vector to translate the character, on the grounds
  87. %%      that in the cases I'm most interested in, a font without a
  88. %%      useful Encoding vector was most likely created by a DVI to PS
  89. %%      converter such as dvips or DVILASER (and OT1Encoding is
  90. %%      largely compatible with StandardEncoding anyway).  [Note that
  91. %%      this does not make my earlier changes to support dvips (see
  92. %%      fix (a) under my 1996 changes) completely obsolete, since
  93. %%      there's additional useful information I can extract in that
  94. %%      case.]
  95. %%      
  96. %%      Overall, this should provide better support for some documents
  97. %%      (e.g, DVILASER documents will no longer be translated into a
  98. %%      series of *'s) without breaking any other documents any worse
  99. %%      than they already were broken.
  100. %% 
  101. %%  (b) Fixed two bugs in dvips.df-tail: (1) changed "dup 127" to "dup
  102. %%      128" to fix fencepost error, and (2) gave each font it's own
  103. %%      FontName rather than having all fonts share the same name.
  104. %%  
  105. %%  (c) Added one further refinement to the heuristic for detecting
  106. %%      paragraph breaks: do not ever start a new paragraph after a
  107. %%      line ending in a hyphen.
  108. %% 
  109. %%  (d) Added a bunch of missing letters from the T1Encoding,
  110. %%      OT1Encoding and ISOLatin1Encoding vectors to .letter.chars to
  111. %%      improve hyphen-elimination algorithm.  This still won't help
  112. %%      if there's no useful Encoding vector.
  113. %% 
  114. %%  NOTE: A better solution to the problem of missing Encoding vectors
  115. %%  might be to redefine definefont to check whether the Encoding
  116. %%  vector is sensible and, if not, replace it by a default.  This
  117. %%  would alleviate the need for constant tests in the .show.write
  118. %%  loop, as well as automatically solving the problem noted in fix
  119. %%  (d) above, and the similar problem with .break.chars.  This should
  120. %%  be investigated.  Also, the hyphen-elimination algorithm really
  121. %%  needs to be looked at carefully and rethought.
  122.  
  123. %%* Modifications to ps2ascii.ps by David M. Jones
  124. %%* (dmjones@theory.lcs.mit.edu), June 25-July 8, 1996
  125.  
  126. %%* Modifications:
  127. %%* 
  128. %%* (a) added code to give better support for dvips files by providing
  129. %%*     FontBBox's, FontName's and Encoding vectors for downloaded
  130. %%*     bitmap fonts.  This is done by using dvips's start-hook to
  131. %%*     overwrite the df-tail and D procedures that dvips uses to
  132. %%*     define its Type 3 bitmap fonts.  Thus, this change should
  133. %%*     provide better support for dvips-generated PS files without
  134. %%*     affecting the handling of other documents.
  135. %%* 
  136. %%* (b) Fixed two bugs that could potentially affect any PS file, not
  137. %%*     just those created by dvips: (1) added missing "get" operator
  138. %%*     in .show.write and (2) fixed bug that caused a hyphen at the
  139. %%*     end of a line to be replaced by a space rather than begin
  140. %%*     deleted.  Note that the first bug was a source of stack
  141. %%*     leakage, causing ps2ascii to run out of operand stack space
  142. %%*     occasionally.
  143. %%* 
  144. %%*     Search for "%%* BF" to find these modifications.
  145. %%*     
  146. %%* (c) Improved the heuristic for determining whether a line break
  147. %%*     has occurred and whether a line break represents a paragraph
  148. %%*     break.  Previously, any change in the vertical position caused
  149. %%*     a line break; now a line break is only registered if the
  150. %%*     change is larger than the height of the current font.  This
  151. %%*     means that superscripts, subscripts, and such things as
  152. %%*     shifted accents generated by TeX won't cause line breaks.
  153. %%*     Paragraph-recognition is now done by comparing the indentation
  154. %%*     of the new line to the indentation of the previous line and by
  155. %%*     comparing the vertical distance between the new line and the
  156. %%*     previous line to the vertical distance between the previous
  157. %%*     line and its predecessor.
  158. %%*     
  159. %%* (d) Added a hook for renaming the files where stdout and stderr
  160. %%*     go.
  161. %%* 
  162. %%* In general, my additions or changes to the code are described in
  163. %%* comments beginning with "%%*".  However, there are numerous other
  164. %%* places where I have either re-formatted code or added comments to
  165. %%* the code while I was trying to understand it.  These are usually
  166. %%* not specially marked.
  167. %%* 
  168.  
  169. /QUIET true def
  170. systemdict wcheck { systemdict } { userdict } ifelse begin
  171. /.max where { pop } { /.max { 2 copy lt { exch } if pop } bind def } ifelse
  172. /COMPLEX dup where { pop true } { false } ifelse def
  173. /SIMPLE dup where { pop true } { false } ifelse def
  174. /setglobal where
  175.  { pop currentglobal /setglobal load true setglobal }
  176.  { { } }
  177. ifelse
  178.  
  179. % Define a way to store and retrieve integers that survives save/restore.
  180. /.i.string0 (0               ) def
  181. /.i.string .i.string0 length string def
  182. /.iget { cvi } bind def
  183. /.iput { exch //.i.string exch copy cvs pop } bind def
  184. /.inew { //.i.string0 dup length string copy } bind def
  185.  
  186. % We only want to redefine operators if they are defined already.
  187.  
  188. /codef { 1 index where { pop def } { pop pop } ifelse } def
  189.  
  190. % Redefine the end-of-page operators.
  191.  
  192. /erasepage { } codef
  193. /copypage { SIMPLE { (\014) } { (P\n) } ifelse //print } codef
  194. /showpage { copypage erasepage initgraphics } codef
  195.  
  196. % Redefine the fill operators to detect rectangles.
  197.  
  198. /.orderrect    % <llx> <lly> <urx> <ury> .orderrect <llx> <lly> <w> <h>
  199.  {    % Ensure llx <= urx, lly <= ury.
  200.    1 index 4 index lt { 4 2 roll } if
  201.    dup 3 index lt { 3 1 roll exch } if
  202.    exch 3 index sub exch 2 index sub
  203.  } odef
  204. /.fillcomplex
  205.  {    % Do a first pass to see if the path is all rectangles in
  206.     % the output coordinate system.  We don't worry about overlapping
  207.     % rectangles that might be partially not filled.
  208.     % Stack: mark llx0 lly0 urx0 ury0 ... true mark x0 y0 ...
  209.    mark true mark
  210.     % Add a final moveto so we pick up any trailing unclosed subpath.
  211.    0 0 itransform moveto
  212.     { .coord counttomark 2 gt
  213.        { counttomark 4 gt { .fillcheckrect } { 4 2 roll pop pop }  ifelse }
  214.       if
  215.     }
  216.     { .coord }
  217.     { cleartomark not mark exit }
  218.     { counttomark -2 roll 2 copy counttomark 2 roll .fillcheckrect }
  219.    pathforall cleartomark
  220.     { .showcolor counttomark 4 idiv
  221.        { counttomark -4 roll .orderrect
  222.      (R ) //print .show==4
  223.        }
  224.       repeat pop
  225.     }
  226.     { cleartomark
  227.     }
  228.    ifelse
  229.  } odef
  230. /.fillcheckrect
  231.  {    % Check whether the current subpath is a rectangle.
  232.     % If it is, add it to the list of rectangles being accumulated;
  233.     % if not exit the .fillcomplex loop.
  234.     % The subpath has not been closed.
  235.     % Stack: as in .fillcomplex, + newx newy
  236.    counttomark 10 eq { 9 index 9 index 4 2 roll } if
  237.    counttomark 12 ne { cleartomark not mark exit } if
  238.    12 2 roll
  239.     % Check for the two possible forms of rectangles:
  240.     %    x0 y0  x0 y1  x1 y1  x1 y0  x0 y0
  241.     %    x0 y0  x1 y0  x1 y1  x0 y1  x0 y0
  242.    9 index 2 index eq 9 index 2 index eq and
  243.    10 index 9 index eq
  244.     {    % Check for first form.
  245.       7 index 6 index eq and 6 index 5 index eq and 3 index 2 index eq and
  246.     }
  247.     {    % Check for second form.
  248.       9 index 8 index eq and
  249.       8 index 7 index eq and 5 index 4 index eq and 4 index 3 index eq and
  250.     }
  251.    ifelse not { cleartomark not mark exit } if
  252.     % We have a rectangle.
  253.    pop pop pop pop 4 2 roll pop pop 8 4 roll
  254.  } odef
  255. /eofill { COMPLEX { .fillcomplex } if newpath } codef
  256. /fill { COMPLEX { .fillcomplex } if newpath } codef
  257. /rectfill { gsave newpath .rectappend fill grestore } codef
  258. /ueofill { gsave newpath uappend eofill grestore } codef
  259. /ufill { gsave newpath uappend fill grestore } codef
  260.  
  261. % Redefine the stroke operators to detect rectangles.
  262.  
  263. /rectstroke
  264.  { gsave newpath
  265.    dup type dup /arraytype eq exch /packedarraytype eq or
  266.     { dup length 6 eq { exch .rectappend concat } { .rectappend } ifelse }
  267.     { .rectappend }
  268.    ifelse stroke grestore
  269.  } codef
  270. /.strokeline    % <fromx> <fromy> <tox> <toy> .strokeline <tox> <toy>
  271.         % Note: fromx and fromy are in output coordinates;
  272.         % tox and toy are in user coordinates.
  273.  { .coord 2 copy 6 2 roll .orderrect
  274.     % Add in the line width.  Assume square or round caps.
  275.    currentlinewidth 2 div dup .dcoord add abs 1 max 5 1 roll
  276.    4 index add 4 1 roll 4 index add 4 1 roll
  277.    4 index sub 4 1 roll 5 -1 roll sub 4 1 roll
  278.    (R ) //print .show==4
  279.  } odef
  280. /.strokecomplex
  281.  {    % Do a first pass to see if the path is all horizontal and vertical
  282.     % lines in the output coordinate system.
  283.     % Stack: true mark origx origy curx cury
  284.    true mark null null null null
  285.     { .coord 6 2 roll pop pop pop pop 2 copy }
  286.     { .coord 1 index 4 index eq 1 index 4 index eq or
  287.        { 4 2 roll pop pop }
  288.        { cleartomark not mark exit }
  289.       ifelse
  290.     }
  291.     { cleartomark not mark exit }
  292.     { counttomark -2 roll 2 copy counttomark 2 roll
  293.       1 index 4 index eq 1 index 4 index eq or
  294.        { pop pop 2 copy }
  295.        { cleartomark not mark exit }
  296.       ifelse
  297.     }
  298.    pathforall cleartomark
  299.    0 currentlinewidth .dcoord 0 eq exch 0 eq or and
  300.     % Do the second pass to write out the rectangles.
  301.     % Stack: origx origy curx cury
  302.     { .showcolor null null null null
  303.        { 6 2 roll pop pop pop pop 2 copy .coord }
  304.        { .strokeline }
  305.        { }
  306.        { 3 index 3 index .strokeline }
  307.       pathforall pop pop pop pop
  308.     }
  309.    if
  310.  } odef
  311. /stroke { COMPLEX { .strokecomplex } if newpath } codef
  312. /ustroke
  313.  { gsave newpath
  314.    dup length 6 eq { exch uappend concat } { uappend } ifelse
  315.    stroke grestore
  316.  } codef
  317.  
  318. % The image operators must read the input and note the dimensions.
  319. % Eventually we should redefine these to detect 1-bit-high all-black images,
  320. % since this is how dvips does underlining (!).
  321.  
  322. /.noteimagerect        % <width> <height> <matrix> .noteimagerect -
  323.  { COMPLEX
  324.     { gsave setmatrix itransform 0 0 itransform
  325.       grestore .coord 4 2 roll .coord .orderrect
  326.       (I ) //print .show==4
  327.     }
  328.     { pop pop pop
  329.     }
  330.    ifelse
  331.  } odef
  332. /colorimage where
  333.  { pop /colorimage
  334.     { 1 index
  335.        { dup 6 add index 1 index 6 add index 2 index 5 add index }
  336.        { 6 index 6 index 5 index }
  337.       ifelse .noteimagerect gsave nulldevice //colorimage grestore
  338.     } codef
  339.  } if
  340. /.noteimage        % Arguments as for image[mask]
  341.  { dup type /dicttype eq
  342.     { dup /Width get 1 index /Height get 2 index /ImageMatrix get }
  343.     { 4 index 4 index 3 index }
  344.    ifelse .noteimagerect
  345.  } odef
  346. /image { .noteimage gsave nulldevice //image grestore } codef
  347. /imagemask { .noteimage gsave nulldevice //imagemask grestore } codef
  348.  
  349. % Output the current color if necessary.
  350. /.color.r .inew def
  351.   .color.r -1 .iput        % make sure we write the color at the beginning
  352. /.color.g .inew def
  353. /.color.b .inew def
  354. /.showcolor
  355.  { COMPLEX
  356.     { currentrgbcolor
  357.       1000 mul round cvi
  358.       3 1 roll 1000 mul round cvi
  359.       exch 1000 mul round cvi
  360.         % Stack: b g r
  361.       dup //.color.r .iget eq
  362.       2 index //.color.g .iget eq and
  363.       3 index //.color.b .iget eq and
  364.        { pop pop pop
  365.        }
  366.        { (C ) //print
  367.      dup //.color.r exch .iput .show==only
  368.          ( ) //print dup //.color.g exch .iput .show==only
  369.          ( ) //print dup //.color.b exch .iput .show==only
  370.      (\n) //print
  371.        }
  372.       ifelse
  373.     }
  374.    if
  375.  } bind def
  376.  
  377. % Redefine `show'.
  378.  
  379. % Set things up so our output will be in tenths of a point, with origin at
  380. % lower left.  This isolates us from the peculiarities of individual devices.
  381.  
  382. /.show.ident.matrix matrix def
  383. /.show.ident {        % - .show.ident <scale> <matrix>
  384. %   //.show.ident.matrix defaultmatrix
  385. %               % Assume the original transformation is well-behaved.
  386. %   0.1 0 2 index dtransform abs exch abs .max /.show.scale exch def
  387. %   0.1 dup 3 -1 roll scale
  388.   gsave initmatrix
  389.         % Assume the original transformation is well-behaved...
  390.   0.1 0 dtransform abs exch abs .max
  391.   0.1 dup scale .show.ident.matrix currentmatrix
  392.         % ... but undo any rotation into landscape orientation.
  393.   dup 0 get 0 eq {
  394.     1 get dup abs div 90 mul rotate
  395.     .show.ident.matrix currentmatrix
  396.   } if
  397.   grestore
  398. } bind def
  399.  
  400. /.coord {        % <x> <y> .coord <x'> <y'>
  401.   transform .show.ident exch pop itransform
  402.   exch round cvi exch round cvi
  403. } odef
  404.  
  405. /.dcoord {        % <dx> <dy> .coord <dx'> <dy'>
  406.         % Transforming distances is trickier, because
  407.         % the coordinate system might be rotated.
  408.    .show.ident pop 3 1 roll
  409.    exch 0 dtransform
  410.     dup mul exch dup mul add sqrt
  411.      2 index div round cvi
  412.    exch 0 exch dtransform
  413.     dup mul exch dup mul add sqrt
  414.      3 -1 roll div round cvi
  415. } odef
  416.  
  417. % Remember the current X, Y, and height.
  418. /.show.x .inew def
  419. /.show.y .inew def
  420. /.show.height .inew def
  421.  
  422. % Remember the last character of the previous string; if it was a
  423. % hyphen preceded by a letter, we didn't output the hyphen.
  424.  
  425. /.show.last (\000) def
  426.  
  427. % Remember the current font.
  428. /.font.name 130 string def
  429. /.font.name.length .inew def
  430. /.font.height .inew def
  431. /.font.width .inew def
  432.  
  433. %%* Also remember indentation of current line and previous vertical
  434. %%* skip
  435.  
  436. /.show.indent .inew def
  437. /.show.dy     .inew def
  438.  
  439. % We have to redirect stdout somehow....
  440.  
  441. /.show.stdout { (%stdout) (w) file } bind def
  442.  
  443. % Make sure writing will work even if a program uses =string.
  444. /.show.string =string length string def
  445. /.show.=string =string length string def
  446. /.show==only
  447.  { //=string //.show.=string copy pop
  448.    dup type /stringtype eq
  449.     { dup length //.show.string length le
  450.        { dup rcheck { //.show.string copy } if
  451.        } if
  452.     } if
  453.    .show.stdout exch write==only
  454.    //.show.=string //=string copy pop
  455.  } odef
  456. /.show==4
  457.  { 4 -1 roll .show==only ( ) //print
  458.    3 -1 roll .show==only ( ) //print
  459.    exch .show==only ( ) //print
  460.    .show==only (\n) //print
  461.  } odef
  462.  
  463. /.showwidth    % Same as stringwidth, but disable COMPLEX so that
  464.         % we don't try to detect rectangles during BuildChar.
  465.  { COMPLEX
  466.     { /COMPLEX false def stringwidth /COMPLEX true def }
  467.     { stringwidth }
  468.    ifelse
  469.  } odef
  470.  
  471. /.showfont    % <string> .showfont <string>
  472.  { gsave
  473.     % Try getting the height and width of the font from the FontBBox.
  474.      currentfont /FontBBox .knownget not { {0 0 0 0} } if
  475.      aload pop      % llx lly urx ury
  476.      exch 4 -1 roll % lly ury urx llx
  477.      sub            % lly ury dx
  478.      3 1 roll exch  % dx ury lly
  479.      sub            % dx dy
  480.      2 copy .max 0 ne
  481.       { currentfont /FontMatrix get dtransform
  482.       }
  483.       {    pop pop
  484.     % Fonts produced by dvips, among other applications, have
  485.     % BuildChar procedures that bomb out when given unexpected
  486.     % characters, and there is no way to determine whether a given
  487.     % character will do this.  So for Type 1 fonts, we measure a
  488.     % typical character ('X'); for others, we punt.
  489.     currentfont /FontType get 1 eq
  490.      { (X) .showwidth pop dup 1.3 mul
  491.      }
  492.      {    % No safe way to get the character size.  Punt.
  493.        0 0
  494.      }
  495.     ifelse
  496.       }
  497.      ifelse .dcoord exch
  498.      currentfont /FontName .knownget not { () } if
  499.      dup type /stringtype ne { //.show.string cvs } if
  500.    grestore
  501.     % Stack: height width fontname
  502.    SIMPLE
  503.     { pop pop //.show.height exch .iput }
  504.     { 2 index //.font.height .iget eq
  505.       2 index //.font.width .iget eq and
  506.       1 index //.font.name 0 //.font.name.length .iget getinterval eq and
  507.        { pop pop pop
  508.        }
  509.        { (F ) //print
  510.      3 -1 roll dup //.font.height exch .iput .show==only ( ) //print
  511.          exch dup //.font.width exch .iput .show==only ( ) //print
  512.      dup length //.font.name.length exch .iput
  513.          //.font.name cvs .show==only (\n) //print
  514.        }
  515.       ifelse
  516.     }
  517.    ifelse
  518.  } odef
  519.  
  520. % Define the letters -- characters which, if they occur followed by a hyphen
  521. % at the end of a line, cause the hyphen and line break to be ignored.
  522. /.letter.chars 100 dict def
  523. mark
  524.   65 1 90 { dup 32 add } for
  525.     counttomark
  526.         { StandardEncoding exch get .letter.chars exch dup put }
  527.     repeat
  528. pop
  529.  
  530. %%* Add the rest of the letters from the [O]T1Encoding and
  531. %%* ISOLatin1Encoding vectors
  532.  
  533. mark
  534.     /AE
  535.     /Aacute
  536.     /Abreve
  537.     /Acircumflex
  538.     /Adieresis
  539.     /Agrave
  540.     /Aogonek
  541.     /Aring
  542.     /Atilde
  543.     /Cacute
  544.     /Ccaron
  545.     /Ccedilla
  546.     /Dcaron
  547.     /Eacute
  548.     /Ecaron
  549.     /Ecircumflex
  550.     /Edieresis
  551.     /Egrave
  552.     /Eng
  553.     /Eogonek
  554.     /Eth
  555.     /Gbreve
  556.     /Germandbls 
  557.     /IJ
  558.     /Iacute
  559.     /Icircumflex
  560.     /Idieresis
  561.     /Idot
  562.     /Igrave
  563.     /Lacute
  564.     /Lcaron
  565.     /Lslash
  566.     /Nacute
  567.     /Ncaron
  568.     /Ntilde
  569.     /OE
  570.     /Oacute
  571.     /Ocircumflex
  572.     /Odieresis
  573.     /Ograve
  574.     /Ohungarumlaut
  575.     /Oslash
  576.     /Otilde
  577.     /Racute
  578.     /Rcaron
  579.     /Sacute
  580.     /Scaron
  581.     /Scedilla
  582.     /Tcaron
  583.     /Tcedilla
  584.     /Thorn
  585.     /Uacute
  586.     /Ucircumflex
  587.     /Udieresis
  588.     /Ugrave
  589.     /Uhungarumlaut
  590.     /Uring
  591.     /Yacute
  592.     /Ydieresis
  593.     /Zacute
  594.     /Zcaron
  595.     /Zdot
  596.     /aacute
  597.     /abreve
  598.     /acircumflex
  599.     /adieresis
  600.     /ae
  601.     /agrave
  602.     /aogonek
  603.     /aring
  604.     /atilde
  605.     /cacute
  606.     /ccaron
  607.     /ccedilla
  608.     /dbar
  609.     /dcaron
  610.     /dotlessi
  611.     /dotlessj
  612.     /eacute
  613.     /ecaron
  614.     /ecircumflex
  615.     /edieresis
  616.     /egrave
  617.     /eng
  618.     /eogonek
  619.     /eth
  620.     /exclamdown
  621.     /ff
  622.     /ffi
  623.     /ffl
  624.     /fi
  625.     /fl
  626.     /gbreve
  627.     /germandbls
  628.     /iacute
  629.     /icircumflex
  630.     /idieresis
  631.     /igrave
  632.     /ij
  633.     /lacute
  634.     /lcaron
  635.     /lslash
  636.     /nacute
  637.     /ncaron
  638.     /ntilde
  639.     /oacute
  640.     /ocircumflex
  641.     /odieresis
  642.     /oe
  643.     /ograve
  644.     /ohungarumlaut
  645.     /oslash
  646.     /otilde
  647.     /questiondown
  648.     /racute
  649.     /rcaron
  650.     /sacute
  651.     /scaron
  652.     /scedilla
  653.     /section
  654.     /sterling
  655.     /tcaron
  656.     /tcedilla
  657.     /thorn
  658.     /uacute
  659.     /ucircumflex
  660.     /udieresis
  661.     /ugrave
  662.     /uhungarumlaut
  663.     /uring
  664.     /yacute
  665.     /ydieresis
  666.     /zacute
  667.     /zcaron
  668.     /zdot
  669. counttomark
  670.     { .letter.chars exch dup put }
  671. repeat
  672. pop
  673.  
  674. % Define a set of characters which, if they occur at the start of a line,
  675. % are taken as indicating a paragraph break.
  676. /.break.chars 50 dict def
  677. mark
  678.     /bullet /dagger /daggerdbl /periodcentered /section
  679.     counttomark
  680.         { .break.chars exch dup put }
  681.     repeat
  682. pop
  683.  
  684. % Define character translation to ASCII.
  685. % We have to do this for the entire character set.
  686.  
  687. /.char.map 500 dict def
  688.  
  689. /.chars.def { counttomark 2 idiv { .char.map 3 1 roll put } repeat pop } def
  690.  
  691. % Encode the printable ASCII characters.
  692.  
  693. mark 32 1 126
  694.  { 1 string dup 0 4 -1 roll put
  695.    dup 0 get StandardEncoding exch get exch
  696.  }
  697. for .chars.def
  698.  
  699.         % Encode accents.
  700. mark
  701.     /acute      (')
  702.     /caron      (^)
  703.     /cedilla    (,)
  704.     /circumflex (^)
  705.     /dieresis   (")
  706.     /grave      (`)
  707.     /ring       (*)
  708.     /tilde      (~)
  709. .chars.def
  710.  
  711.         % Encode the ISO accented characters.
  712. mark 192 1 255
  713.  { ISOLatin1Encoding exch get =string cvs
  714.    dup 0 1 getinterval 1 index dup length 1 sub 1 exch getinterval
  715.    .char.map 2 index known .char.map 2 index known and
  716.     { .char.map 3 -1 roll get .char.map 3 -1 roll get concatstrings
  717.       .char.map 3 1 roll put
  718.     }
  719.     { pop pop pop
  720.     }
  721.    ifelse
  722.  }
  723. for .chars.def
  724.  
  725. % Encode the remaining standard and ISO alphabetic characters.
  726.  
  727. mark
  728.   /AE (AE) /Eth (DH) /OE (OE) /Thorn (Th)
  729.   /ae (ae) /eth (dh)
  730.   /ffi (ffi) /ffl (ffl) /fi (fi) /fl (fl)
  731.   /germandbls (ss) /oe (oe) /thorn (th)
  732. .chars.def
  733.  
  734. % Encode the other standard and ISO characters.
  735.  
  736. mark
  737.   /brokenbar (|) /bullet (*) /copyright ((C)) /currency (#)
  738.   /dagger (#) /daggerdbl (##) /degree (o) /divide (/) /dotaccent (.)
  739.   /dotlessi (i)
  740.   /ellipsis (...) /emdash (--) /endash (-) /exclamdown (!)
  741.   /florin (f) /fraction (/)
  742.   /guillemotleft (<<) /guillemotright (>>)
  743.   /guilsinglleft (<) /guilsinglright (>) /hungarumlaut ("") /logicalnot (~)
  744.   /macron (_) /minus (-) /mu (u) /multiply (*)
  745.   /ogonek (,) /onehalf (1/2) /onequarter (1/4) /onesuperior (1)
  746.   /ordfeminine (-a) /ordmasculine (-o)
  747.   /paragraph (||) /periodcentered (*) /perthousand (o/oo) /plusminus (+-)
  748.   /questiondown (?) /quotedblbase (") /quotedblleft (") /quotedblright (")
  749.   /quotesinglbase (,) /quotesingle (') /registered ((R))
  750.   /section ($) /sterling (#)
  751.   /threequarters (3/4) /threesuperior (3) /trademark ((TM)) /twosuperior (2)
  752.   /yen (Y)
  753. .chars.def
  754.  
  755. % Encode a few common Symbol characters.
  756.  
  757. mark
  758.   /asteriskmath (*) /copyrightsans ((C)) /copyrightserif ((C))
  759.   /greaterequal (>=) /lessequal (<=) /registersans ((R)) /registerserif ((R))
  760.   /trademarksans ((TM)) /trademarkserif ((TM))
  761. .chars.def
  762.  
  763. %%* Add a few characters from StandardEncoding and ISOLatin1Encoding
  764. %%* that were missing.
  765.  
  766. mark
  767.     /cent           (c)
  768.     /guilsinglleft  (<)
  769.     /guilsinglright (>)
  770.     /breve          (*)
  771.     /Lslash         (L/)
  772.     /lslash         (l/)
  773. .chars.def
  774.  
  775. %%* Define the OT1Encoding and T1Encoding vectors for use with dvips
  776. %%* files.  Unfortunately, there's no way of telling what font is
  777. %%* really being used within a dvips document, so we can't provide an
  778. %%* appropriate encoding for each individual font.  Instead, we'll
  779. %%* just provide support for the two most popular text encodings, the
  780. %%* OT1 and T1 encodings, and just accept the fact that any font not
  781. %%* using one of those encodings will be rendered as gibberish.
  782. %%* 
  783. %%* OT1 is Knuth's 7-bit encoding for the CMR text fonts, while T1
  784. %%* (aka the Cork encoding) is the 8-bit encoding used by the DC
  785. %%* fonts, a preliminary version of the proposed Extended Computer
  786. %%* Modern fonts.  Unfortunately, T1 is not a strict extension of OT1;
  787. %%* they differ in positions 8#000 through 8#040, 8#074, 8#076, 8#134,
  788. %%* 8#137, 8#173, 8#174, 8#175 and 8#177, so we can't use the same
  789. %%* vector for both.
  790. %%* 
  791. %%* Of course, we also can't reliably tell the difference between an
  792. %%* OT1-encoded font and a T1-encoded font based on the information in
  793. %%* a dvips-created PostScript file.  As a best-guess solution, we'll
  794. %%* use the T1 encoding if the font contains any characters in
  795. %%* positions above 8#177 and the OT1 encoding if it doesn't.
  796.  
  797. /T1Encoding  256 array def
  798.  
  799. /OT1Encoding 256 array def
  800.  
  801. %%* T1Encoding shares a lot with StandardEncoding, so let's start
  802. %%* there.
  803.  
  804. StandardEncoding T1Encoding copy pop
  805.  
  806. /OT1.encode {
  807.     counttomark
  808.     2 idiv
  809.       { OT1Encoding 3 1 roll put }
  810.     repeat
  811.     cleartomark
  812. } def
  813.  
  814. /T1.encode {
  815.     counttomark
  816.     2 idiv
  817.       { T1Encoding 3 1 roll put }
  818.     repeat
  819.     cleartomark
  820. } def
  821.  
  822. mark
  823.     8#000 /grave
  824.     8#001 /acute
  825.     8#002 /circumflex
  826.     8#003 /tilde
  827.     8#004 /dieresis
  828.     8#005 /hungarumlaut
  829.     8#006 /ring
  830.     8#007 /caron
  831.  
  832.     8#010 /breve
  833.     8#011 /macron
  834.     8#012 /dotaccent
  835.     8#013 /cedilla
  836.     8#014 /ogonek
  837.     8#015 /quotesinglbase
  838.     8#016 /guilsinglleft
  839.     8#017 /guilsinglright
  840.  
  841.     8#020 /quotedblleft
  842.     8#021 /quotedblright
  843.     8#022 /quotedblbase
  844.     8#023 /guillemotleft
  845.     8#024 /guillemotright
  846.     8#025 /endash
  847.     8#026 /emdash
  848.     8#027 /cwm
  849.  
  850.     8#030 /perthousandzero
  851.     8#031 /dotlessi
  852.     8#032 /dotlessj
  853.     8#033 /ff
  854.     8#034 /fi
  855.     8#035 /fl
  856.     8#036 /ffi
  857.     8#037 /ffl
  858.  
  859. %%  8#040 through 8#176 follow StandardEncoding
  860.  
  861.     8#177 /hyphen
  862. T1.encode
  863.  
  864. mark
  865.     8#200 /Abreve
  866.     8#201 /Aogonek
  867.     8#202 /Cacute
  868.     8#203 /Ccaron
  869.     8#204 /Dcaron
  870.     8#205 /Ecaron
  871.     8#206 /Eogonek
  872.     8#207 /Gbreve
  873.     8#210 /Lacute
  874.     8#211 /Lcaron
  875.     8#212 /Lslash
  876.     8#213 /Nacute
  877.     8#214 /Ncaron
  878.     8#215 /Eng
  879.     8#216 /Ohungarumlaut
  880.     8#217 /Racute
  881.     8#220 /Rcaron
  882.     8#221 /Sacute
  883.     8#222 /Scaron
  884.     8#223 /Scedilla
  885.     8#224 /Tcaron
  886.     8#225 /Tcedilla
  887.     8#226 /Uhungarumlaut
  888.     8#227 /Uring
  889.     8#230 /Ydieresis
  890.     8#231 /Zacute
  891.     8#232 /Zcaron
  892.     8#233 /Zdot
  893.     8#234 /IJ
  894.     8#235 /Idot
  895.     8#236 /dbar
  896.     8#237 /section
  897.     8#240 /abreve
  898.     8#241 /aogonek
  899.     8#242 /cacute
  900.     8#243 /ccaron
  901.     8#244 /dcaron
  902.     8#245 /ecaron
  903.     8#246 /eogonek
  904.     8#247 /gbreve
  905.     8#250 /lacute
  906.     8#251 /lcaron
  907.     8#252 /lslash
  908.     8#253 /nacute
  909.     8#254 /ncaron
  910.     8#255 /eng
  911.     8#256 /ohungarumlaut
  912.     8#257 /racute
  913.     8#260 /rcaron
  914.     8#261 /sacute
  915.     8#262 /scaron
  916.     8#263 /scedilla
  917.     8#264 /tcaron
  918.     8#265 /tcedilla
  919.     8#266 /uhungarumlaut
  920.     8#267 /uring
  921.     8#270 /ydieresis
  922.     8#271 /zacute
  923.     8#272 /zcaron
  924.     8#273 /zdot
  925.     8#274 /ij
  926.     8#275 /exclamdown
  927.     8#276 /questiondown
  928.     8#277 /sterling
  929.  
  930.     8#300 /Agrave
  931.     8#301 /Aacute
  932.     8#302 /Acircumflex
  933.     8#303 /Atilde
  934.     8#304 /Adieresis
  935.     8#305 /Aring
  936.     8#306 /AE
  937.     8#307 /Ccedilla
  938.     8#310 /Egrave
  939.     8#311 /Eacute
  940.     8#312 /Ecircumflex
  941.     8#313 /Edieresis
  942.     8#314 /Igrave
  943.     8#315 /Iacute
  944.     8#316 /Icircumflex
  945.     8#317 /Idieresis
  946.     8#320 /Eth
  947.     8#321 /Ntilde
  948.     8#322 /Ograve
  949.     8#323 /Oacute
  950.     8#324 /Ocircumflex
  951.     8#325 /Otilde
  952.     8#326 /Odieresis
  953.     8#327 /OE
  954.     8#330 /Oslash
  955.     8#331 /Ugrave
  956.     8#332 /Uacute
  957.     8#333 /Ucircumflex
  958.     8#334 /Udieresis
  959.     8#335 /Yacute
  960.     8#336 /Thorn
  961.     8#337 /Germandbls 
  962.  
  963.     8#340 /agrave
  964.     8#341 /aacute
  965.     8#342 /acircumflex
  966.     8#343 /atilde
  967.     8#344 /adieresis
  968.     8#345 /aring
  969.     8#346 /ae
  970.     8#347 /ccedilla
  971.     8#350 /egrave
  972.     8#351 /eacute
  973.     8#352 /ecircumflex
  974.     8#353 /edieresis
  975.     8#354 /igrave
  976.     8#355 /iacute
  977.     8#356 /icircumflex
  978.     8#357 /idieresis
  979.     8#360 /eth
  980.     8#361 /ntilde
  981.     8#362 /ograve
  982.     8#363 /oacute
  983.     8#364 /ocircumflex
  984.     8#365 /otilde
  985.     8#366 /odieresis
  986.     8#367 /oe
  987.     8#370 /oslash
  988.     8#371 /ugrave
  989.     8#372 /uacute
  990.     8#373 /ucircumflex
  991.     8#374 /udieresis
  992.     8#375 /yacute
  993.     8#376 /thorn
  994.     8#377 /germandbls
  995.  
  996. T1.encode
  997.  
  998. %%* Now copy OT1Encoding into T1Encoding and make a few changes.
  999.  
  1000. T1Encoding OT1Encoding copy pop
  1001.  
  1002. mark
  1003.     8#000 /Gamma
  1004.     8#001 /Delta
  1005.     8#002 /Theta
  1006.     8#003 /Lambda
  1007.     8#004 /Xi
  1008.     8#005 /Pi
  1009.     8#006 /Sigma
  1010.     8#007 /Upsilon
  1011.  
  1012.     8#010 /Phi
  1013.     8#011 /Psi
  1014.     8#012 /Omega
  1015.     8#013 /ff
  1016.     8#014 /fi
  1017.     8#015 /fl
  1018.     8#016 /ffi
  1019.     8#017 /ffl
  1020.  
  1021.     8#020 /dotlessi
  1022.     8#021 /dotlessj
  1023.     8#022 /grave
  1024.     8#023 /acute
  1025.     8#024 /caron
  1026.     8#025 /breve
  1027.     8#026 /macron
  1028.     8#027 /ring
  1029.  
  1030.     8#030 /cedilla
  1031.     8#031 /germandbls
  1032.     8#032 /ae
  1033.     8#033 /oe
  1034.     8#034 /oslash
  1035.     8#035 /AE
  1036.     8#036 /OE
  1037.     8#037 /Oslash
  1038.  
  1039.     8#040 /polishslash
  1040.  
  1041.     8#042 /quotedblright
  1042.  
  1043.     8#074 /exclamdown
  1044.     8#076 /questiondown
  1045.  
  1046.     8#134 /quotedblleft
  1047.     8#137 /dotaccent
  1048.  
  1049.     8#173 /endash
  1050.     8#174 /emdash
  1051.     8#175 /hungarumlaut
  1052.     8#177 /dieresis
  1053. OT1.encode
  1054.  
  1055. %%* And add a few characters from the OT1Encoding
  1056.  
  1057. mark
  1058.     /Gamma              (\\Gamma )
  1059.     /Delta              (\\Delta )
  1060.     /Theta              (\\Theta )
  1061.     /Lambda             (\\Lambda )
  1062.     /Xi                 (\\Xi )
  1063.     /Pi                 (\\Pi )
  1064.     /Sigma              (\\Sigma )
  1065.     /Upsilon            (\\Upsilon )
  1066.  
  1067.     /Phi                (\\Phi )
  1068.     /Psi                (\\Psi )
  1069.     /Omega              (\\Omega )
  1070.  
  1071.     /dotlessj           (j)
  1072.     /ff                 (ff)
  1073.  
  1074.     /cwm                ()
  1075.  
  1076.     /perthousandzero    (0)
  1077.  
  1078.     /polishslash        ()
  1079.  
  1080.     /Abreve             (A*)
  1081.     /Aogonek            (A,)
  1082.     /Cacute             (C')
  1083.     /Ccaron             (C^)
  1084.     /Dcaron             (D^)
  1085.     /Ecaron             (E^)
  1086.     /Eogonek            (E,)
  1087.     /Gbreve             (G*)
  1088.     /Lacute             (L')
  1089.     /Lcaron             (L^)
  1090.     /Nacute             (N')
  1091.     /Ncaron             (N^)
  1092.     /Eng                (NG)
  1093.     /Ohungarumlaut      (O"")
  1094.     /Racute             (R')
  1095.     /Rcaron             (R^)
  1096.     /Sacute             (S')
  1097.     /Scaron             (S^)
  1098.     /Scedilla           (S,)
  1099.     /Tcaron             (T^)
  1100.     /Tcedilla           (T,)
  1101.     /Uhungarumlaut      (U"")
  1102.     /Uring              (U*)
  1103.     /Ydieresis          (Y")
  1104.     /Zacute             (Z')
  1105.     /Zcaron             (Z^)
  1106.     /Zdot               (Z.)
  1107.     /IJ                 (IJ)
  1108.     /Idot               (I.)
  1109.     /dbar               (d-)
  1110.     /abreve             (a*)
  1111.     /aogonek            (a,)
  1112.     /cacute             (c')
  1113.     /ccaron             (c^)
  1114.     /dcaron             (d^)
  1115.     /ecaron             (e^)
  1116.     /eogonek            (e,)
  1117.     /gbreve             (g*)
  1118.     /lacute             (l')
  1119.     /lcaron             (l^)
  1120.     /nacute             (n')
  1121.     /ncaron             (n^)
  1122.     /eng                (ng)
  1123.     /ohungarumlaut      (o"")
  1124.     /racute             (r')
  1125.     /rcaron             (r^)
  1126.     /sacute             (s')
  1127.     /scaron             (s^)
  1128.     /scedilla           (s,)
  1129.     /tcaron             (t^)
  1130.     /tcedilla           (t,)
  1131.     /uhungarumlaut      (u"")
  1132.     /uring              (u*)
  1133.     /zacute             (z')
  1134.     /zcaron             (z^)
  1135.     /zdot               (z.)
  1136.     /ij                 (ij)
  1137.     /Germandbls         (SS)
  1138. .chars.def
  1139.  
  1140. %%* We extend the df-tail command to stick in an Encoding vector (see
  1141. %%* above for a discussion of the T1 and OT1 encodings), put in a
  1142. %%* FontName (which will just be dvips's name for the font, i.e., Fa,
  1143. %%* Fb, etc.) and give each font a separate FontBBox instead of
  1144. %%* letting them all share a single one.
  1145.  
  1146. /dvips.df-tail      % id numcc maxcc df-tail
  1147.   {
  1148.     /nn 9 dict N
  1149.     nn begin
  1150.         %%  
  1151.         %%  Choose an encoding based on the highest position occupied.
  1152.         %%  
  1153.         dup 128 gt { T1Encoding } { OT1Encoding } ifelse
  1154.         /Encoding X
  1155.         /FontType 3 N
  1156.         %%
  1157.         %%  It's ok for all the fonts to share a FontMatrix, but they
  1158.         %%  need to have separate FontBBoxes
  1159.         %%
  1160.     /FontMatrix fntrx N
  1161.     /FontBBox [0 0 0 0] N
  1162.         string /base X
  1163.         array /BitMaps X
  1164.         %%
  1165.         %%  And let's throw in a FontName for good measure
  1166.         %%
  1167.         dup (    ) cvs
  1168.         %%  
  1169.         %%  Make sure each font gets it own private FontName.  -- dmj,
  1170.         %%  12/23/97
  1171.         %%  
  1172.         dup length string copy
  1173.         /FontName X
  1174.         /BuildChar {CharBuilder} N
  1175.     end
  1176.     dup { /foo setfont }
  1177.        2 array copy cvx N
  1178.     load
  1179.        0 nn put
  1180.     /ctr 0 N
  1181.     [
  1182. } def
  1183.  
  1184. %%* This is functionally equivalent to dvips's /D procedure, but it
  1185. %%* also calculates the Font Bounding Box while defining the
  1186. %%* characters.
  1187.  
  1188. /dvips.D   % char-data ch D - : define character bitmap in current font
  1189. {
  1190.     /cc X                           % char-data
  1191.     dup type /stringtype ne {]} if  % char-data
  1192.  
  1193.     /ch-data X
  1194.     nn /base get cc ctr put     % (adds ctr to cc'th position of BASE)
  1195.     nn /BitMaps get
  1196.     ctr
  1197.     ch-data                     % BitMaps ctr char-data
  1198.     sf 1 ne {
  1199.        dup dup length 1 sub dup 2 index S get sf div put
  1200.     } if
  1201.     put                         % puts char-data into BitMaps at index ctr
  1202.     /ctr ctr 1 add N
  1203. %%  
  1204. %%  Make sure the Font Bounding Box encloses the Bounding Box of the
  1205. %%  current character
  1206. %%
  1207.     nn /FontBBox get        % BB
  1208.  
  1209.     dup                     % calculate new llx
  1210.     dup 0 get
  1211.     ch-xoff
  1212.     min
  1213.     0 exch put
  1214.  
  1215.     dup                     % calculate new lly
  1216.     dup 1 get
  1217.     ch-yoff ch-height sub
  1218.     min
  1219.     1 exch put
  1220.  
  1221.     dup                     % calculate new urx
  1222.     dup 2 get
  1223.     ch-dx ch-width add
  1224.     max
  1225.     2 exch put
  1226.  
  1227.     dup 3 get               % calculate new ury
  1228.     ch-yoff
  1229.     max
  1230.     3 exch put
  1231.  
  1232. } def
  1233.  
  1234. %%* Define start-hook to replace df-tail and D by our versions.
  1235. %%* Unfortunately, the user can redefine start-hook and thus bypass
  1236. %%* these changes, but I don't see an obvious way around that.
  1237.  
  1238. userdict /start-hook {
  1239.     TeXDict /df-tail /dvips.df-tail load bind put
  1240.     TeXDict /D       /dvips.D       load bind put
  1241. } put
  1242.  
  1243. %%* Introduce a symbolic constant for hyphens.  (Need to make
  1244. %%* allowance for hyphen being in different place?)
  1245.  
  1246. /.hyphen 45 def
  1247.  
  1248. % Write out a string.  If it ends in a letter and a hyphen,
  1249. % don't write the hyphen, and set .show.last to a hyphen;
  1250. % otherwise, set .show.last to the character (or \000 if it was a hyphen).
  1251. /.show.write    % <string>
  1252.  {
  1253.     dup length 1 ge
  1254.         { dup dup length 1 sub get      % string last_char
  1255.           dup .hyphen eq                % string last_char hyphen?
  1256.             {                           % string last_char
  1257.                 1 index length 1 gt
  1258.                     { 1 index dup length 2 sub get }
  1259.                     { //.show.last 0 get }
  1260.                 ifelse                  % string last_char prev-char
  1261.                 currentfont /Encoding get exch get  % look up prev-char
  1262.                 //.letter.chars exch known          % is it a letter?
  1263.                     { % Remove the hyphen           % string last_char
  1264.                         exch                        % last_char string
  1265.                         dup length 1 sub            % last_char string len-1
  1266.                         0 exch getinterval          % last_char string-1
  1267.                         exch                        % string-1 last_char
  1268.                     }
  1269.                     { pop 0 }                       % string 0
  1270.                 ifelse
  1271.             }
  1272.           if
  1273.           //.show.last 0 3 -1 roll put              % store last_char
  1274.                                                     % in .show.last
  1275.                                                     % If .show.last ==
  1276.                                                     % hyphen, then
  1277.                                                     % last char of
  1278.                                                     % previous string
  1279.                                                     % was a hyphen
  1280.         }
  1281.     if                                          % string
  1282.     { % begin forall                            % c
  1283.         dup                                     % c c
  1284.         currentfont /Encoding get               % c c vec
  1285.         exch get                                % c name
  1286.         dup //.char.map exch known              % c name bool
  1287.           { exch pop }
  1288.           { pop OT1Encoding exch get }
  1289.         ifelse                                  % name
  1290.         //.char.map exch get                    % translation
  1291.         .show.stdout exch writestring
  1292.     }
  1293.     forall
  1294. } odef
  1295.  
  1296. /.showstring1 {                 % string
  1297.     currentpoint .coord         % string x y
  1298.     3 -1 roll dup .showwidth    % x y string dx dy
  1299.     1 index                     % x y string dx dy dx
  1300.     0 rmoveto                   % x y string dx dy
  1301.     .dcoord pop                 % x y string width
  1302.     SIMPLE
  1303.       {                         % x y string width
  1304.         2 index                 % x y string width y
  1305.         //.show.y .iget         % x y string width y old.y
  1306.         %%* 
  1307.         %%* Replaced test "has y changed" by "has y changed by more
  1308.         %%* than the current font height" so that subscripts and
  1309.         %%* superscripts won't cause line/paragraph breaks
  1310.         %%* 
  1311.          sub abs dup            % x y string width dy dy
  1312.          //.show.height .iget
  1313.          gt
  1314.          {                      % x y string width dy
  1315.  
  1316.             %%* Vertical position has changed by more than the font
  1317.             %%* height, so we now try to figure out whether we've
  1318.             %%* started a new paragraph or merely a new line, using a
  1319.             %%* variety of heuristics.
  1320.  
  1321.             %%* If any of the following is true, we start a new
  1322.             %%* paragraph:
  1323.  
  1324.             %%* (a) the current vertical shift is more than 1.1 times
  1325.             %%*     the previous vertical shift, where 1.1 is an
  1326.             %%*     arbitrarily chosen factor that could probably be
  1327.             %%*     refined.
  1328.  
  1329.             dup                 % x y string width dy dy
  1330.             //.show.dy .iget 1.1 mul
  1331.             gt
  1332.             exch
  1333.  
  1334.             %%* Save the new vertical shift
  1335.  
  1336.             //.show.dy exch .iput
  1337.  
  1338.             %%* (b) The vertical shift is more than 1.3 times the
  1339.             %%*     "size" of the current font.  I've removed this
  1340.             %%*     test since it's not really very useful.
  1341.  
  1342. %%*            //.show.dy .iget
  1343. %%*            //.show.height .iget 1.4 mul
  1344. %%*            gt                          % x y string width bool
  1345. %%*            .show.height .iget 0 gt and % only perform test if font
  1346. %%*                                        % height is nonzero
  1347. %%*            or
  1348.  
  1349.             %%* (c) the first character of the new line is one of the
  1350.             %%*     .break.chars
  1351.  
  1352.             2 index length      % x y string width newpar? len
  1353.             0 gt                % x y string width newpar? len>0?
  1354.               {
  1355.                 2 index 0 get   % x y string width newpar? s
  1356.                 currentfont /Encoding get
  1357.                 exch get        % x y string width newpar? s_enc
  1358.                 //.break.chars exch known { pop true } if
  1359.               }
  1360.             if                  % x y string width newpar?
  1361.  
  1362.             %%* (d) The indentation of the new line is greater than
  1363.             %%*     the indentation of the previous line.
  1364.  
  1365.             4 index
  1366.             //.show.indent .iget
  1367.             gt
  1368.             or
  1369.  
  1370.             %%* HOWEVER, if the line ends in a hyphen, we do NOT begin
  1371.             %%* a new paragraph (cf. comment at end of BF2).  --dmj,
  1372.             %%* 12/23/97
  1373.  
  1374.             //.show.last 0 get .hyphen ne
  1375.             and
  1376.  
  1377.             % newpar?
  1378.               { (\n\n) }        % Paragraph
  1379.               {                 % Line
  1380.                                 %%* 
  1381.                                 %%* BF2: If last character on a line is
  1382.                                 %%* a hyphen, we omit the hyphen and
  1383.                                 %%* run the lines together.  Of
  1384.                                 %%* course, this will fail if a word
  1385.                                 %%* with an explicit hyphen (e.g.,
  1386.                                 %%* X-ray) is split across two lines.
  1387.                                 %%* Oh, well.  (What should we do
  1388.                                 %%* about a hyphen that ends a
  1389.                                 %%* "paragraph"?  Perhaps that should
  1390.                                 %%* inhibit a paragraph break.)
  1391.                                 %%*
  1392.                 //.show.last 0 get .hyphen eq
  1393.                     { ()  }
  1394.                     { ( ) }
  1395.                 ifelse          % x y string width char
  1396.               }
  1397.             ifelse
  1398.             //print
  1399.  
  1400.             //.show.y 3 index .iput % x y string width
  1401.             //.show.x 4 index .iput % x y string width
  1402.             //.show.indent 4 index .iput
  1403.          }
  1404.          {                      % x y string width dy
  1405.                   % If the word processor split a hyphenated word within
  1406.                   % the same line, put out the hyphen now.
  1407.             pop
  1408.             //.show.last 0 get .hyphen eq { (-) //print } if
  1409.          }
  1410.         ifelse
  1411.                                 %%* 
  1412.                                 %%* If have moved more than 1 point to
  1413.                                 %%* the right, interpret it as a
  1414.                                 %%* space?  This need to be looked at
  1415.                                 %%* more closely.
  1416.                                 %%* 
  1417.         3 index                     % x y string width x
  1418.         //.show.x .iget 10 add gt   % x y string width bool
  1419.             { ( ) //print }
  1420.         if
  1421.                                     % x y string width
  1422.         4 1 roll                    % width x y string
  1423.         .show.write pop             % width x
  1424.         add //.show.x exch .iput    % <empty>
  1425.       }
  1426.       { (S ) //print .show==4 }
  1427.     ifelse
  1428. } odef
  1429.  
  1430. /.showstring
  1431.  { dup () eq { pop } { .showstring1 } ifelse
  1432.  } bind def
  1433.  
  1434. % Redefine all the string display operators.
  1435.  
  1436. /show {
  1437.     .showfont
  1438.     .showcolor
  1439.     .showstring
  1440. } codef
  1441.  
  1442. % We define all the other operators in terms of .show1.
  1443.  
  1444. /.show1.string ( ) def
  1445. /.show1 { //.show1.string exch 0 exch put //.show1.string .showstring } odef
  1446. /ashow
  1447.  { .showfont .showcolor
  1448.    { .show1 2 copy rmoveto } forall
  1449.    pop pop
  1450.  } codef
  1451. /awidthshow
  1452.  { .showfont .showcolor
  1453.     { dup .show1 4 index eq { 4 index 4 index rmoveto } if
  1454.       2 copy rmoveto
  1455.     }
  1456.    forall
  1457.    pop pop pop pop pop
  1458.  } codef
  1459. /widthshow
  1460.  { .showfont .showcolor
  1461.    //.show1.string 0 4 -1 roll put
  1462.     { //.show1.string search not { exit } if
  1463.       .showstring .showstring
  1464.       2 index 2 index rmoveto
  1465.     } loop
  1466.    .showstring pop pop
  1467.  } codef
  1468. /kshow
  1469.  { .showfont .showcolor
  1470.     %**************** Should construct a closure, in case the procedure
  1471.     %**************** affects the o-stack.
  1472.     { .show1 dup exec } forall pop
  1473.  } codef
  1474.  
  1475. % We don't really do the right thing with the Level 2 show operators,
  1476. % but we do something semi-reasonable.
  1477. /xshow { pop show } codef
  1478. /yshow { pop show } codef
  1479. /xyshow { pop show } codef
  1480. /glyphshow
  1481.  { currentfont /Encoding .knownget not { {} } if
  1482.    0 1 2 index length 1 sub
  1483.     {        % Stack: glyph encoding index
  1484.       2 copy get 3 index eq { exch pop exch pop null exit } if
  1485.     }
  1486.    for null eq { (X) dup 0 4 -1 roll put show } { pop } ifelse
  1487.  } codef
  1488.  
  1489. end
  1490.  
  1491. % Bind the operators we just defined, and all the others if we didn't
  1492. % do it before.  Also reenable 'bind' for future files.
  1493.  
  1494. .bindoperators
  1495. NOBIND currentdict systemdict ne and
  1496.  { systemdict begin .bindoperators end }
  1497. if
  1498. NOBIND
  1499.  { /bind /.bind load def }
  1500. if
  1501.  
  1502. % Make systemdict read-only if it wasn't already.
  1503.  
  1504. systemdict wcheck { systemdict readonly pop } if
  1505.  
  1506. % Restore the current local/global VM mode.
  1507.  
  1508. exec
  1509.  
  1510.  
  1511.