🚀 go-pugleaf

I have received many requests for software that allows including Macintosh
and other PostScript illustrations in TeX output. So here it comes, in
3 parts.

dvi2ps.c    A translator from TeX dvi output to PostScript.  This version
            fixes trivial bugs (use of tolower under Berkeley) and trivial
            changes in the processing of \special inclusions. I've included
            it in its entirety because of popular demand.

findfile.c
findfile.h
commands.h  all used by above.

Makefile    cheapo version
dvi2ps.1    n/troff version of the man page, courtesy bur@iro.udem.cdn

tex.ps      The header file used by dvi2ps.  This version modified to
            be more portable and to behave itself properly wrt PostScript
            illustrations.  Overrides some definitions from the LaserPrep
            file below.
LaserPrep.uu  uuencoded version of LaserPrep.ps  The header file needed for
            Macintosh illustrations, with all the patches that made it here.
            I have broken so many mailers and it has been damaged by so many
            other mailers that I had to choose that route.

Bugs you don't report won't get fixed.

In the queue: including troff preprocessor (pic, grap, S, ideal, ...) output
in TeX documents, and posting the software we have here for doing inclusions
in troff documents.

Jean-Francois Lamy
AI Group, Dept of Computer Science     CSNet: lamy@ai.toronto.edu
University of Toronto		       EAN:   lamy@ai.toronto.cdn
Toronto, ON, Canada M5S 1A4	       UUCP:  lamy@utai.uucp
-------------------------------------------------------------------------------
#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
#	dvi2ps.l
#	Makefile
#	tex.ps
#	commands.h
#	findfile.h
# This archive created: Sun Nov 30 19:04:41 1986
export PATH; PATH=/bin:$PATH
if test -f 'dvi2ps.l'
then
	echo shar: will not over-write existing file "'dvi2ps.l'"
else
cat << \SHAR_EOF > 'dvi2ps.l'
.TH DVI2PS 1 "14 November 1986"
.SH NAME
dvi2ps \- convert a DVI file to PostScript
.SH SYNOPSIS
.B dvi2ps
.RB [ \-a
.IR pxldir ]
.RB [ \-c ]
.RB [ \-d ]
.RB [ \-f
.IR n ]
.RB [ \-h ]
.RB [ \-i
.IR file ]
.RB [ \-m
.IR n ]
.if n .ti +0.5i
.RB [ \-n
.IR n ]
.RB [ \-o
.IR str ]
.RB [ \-p ]
.RB [ \-q ]
.if t .ti +0.5i
.RB [ \-r ]
.RB [ \-s ]
.RB [ \-t
.IR n ]
.RB [ \-w ]
.if n .ti +0.5i
\fIdvifile\fP[\fB.dvi\fP]
.SH DESCRIPTION
This program converts a DVI file to PostScript, and writes the result
to standard output.  The result requires a small amount of PostScript
source to precede it to the printer, before it can be successfully printed.
(By default, that PostScript code is prepended to the output.)
.SH OPTIONS
.IP "\fB\-a \fIpxldir"
specify different area for PXL files.
Directory
.I pxldir
is searched
for all PXL files, instead of the default directory.
.IP \fB\-c
create an output file in the spool directory.
This is fairly Apollo-specific, and may be disabled at other
sites.  When given, the output is directed to a file with
a unique name, created in a spool directory.
.IP \fB\-d
select debugging output (you probably don't want to).
.IP "\fB\-f \fIn"
specify a starting page number
(this is a TeX page number \- \\count0).
.IP \fB\-h
do not copy the standard header file.
This option prevents the standard PostScript header file being
prepended to the output.
.IP "\fB\-i \fIfile"
copy the named file to the output.
The contents of the file named will be copied to the output
after the standard header file has been copied.
.TP
\fB\-m0\fP | \fB\-mh\fP | \fB\-m1\fP | \fB\-m2\fP | \fB\-m3\fP | \fB\-m4\fP
specify a magstep to use to print the document.  This overrides
whatever might be in the DVI file.
.IP "\fB\-m \fIn"
specify a magnification to use to print the document.  This should
probably be one of the magic numbers 1000, 1095, 1200, 1440, 1728,
or 2074, but no checking is done.  Note: if your site does not have the
complete set of 300 dpi fonts, this option might be disabled.
.IP "\fB\-n \fIn"
specify the number of copies to print.
.IP "\fB\-o \fIstr"
specify a printing option.
Valid options are
.BR letter ,
.BR note ,
.BR legal ,
.BR landscape ,
.BR envelope ,
and
.BR manualfeed .
This argument may be repeated several times.
.B envelope
is a variant of
.B landscape
that selects manual feed and does proper positioning for regular envelopes.
.IP \fB\-p
do not preload font information.
Occasionally there may be insufficent memory to hold the
information about all of the fonts in the system.  Portions
of the document may be converted by including the
.B \-p
option on the command line.  This will prevent the preloading of
all fonts into the system and instead use demand loading of
the font tables. 
.IP \fB\-q
be quiet.
Don't chatter about pages converted, etc.
.IP \fB\-r
stack pages in reverse order.  
Normally, the DVI pages are processed in reverse order, with the
result that they are stacked in the correct order in the output
tray.  This option reverses that.
.IP \fB\-s
turn on printing of statistics.
Some versions of
.I dvi2ps
will optionally print statistics about
font usage and some other information that is generally only 
interesting to developers.  On these systems,
.B \-s
turns on
the statistics printing.
.IP "\fB\-t \fIn"
specify an ending page number.
.IP \fB\-w
Don't print out warnings.
.SH NOTES
This is a `bare bones' DVI-to-PostScript program.  Minimal error
checking is done.

Not all fonts are available in the resolution needed to display on the 
laser printer;  when a missing font is encountered,
.I dvi2ps
will continue 
to process your DVI file, and will log a warning message. Gaps will 
appear in the document where the missing characters should have been.

It can take up to 60 seconds for the first page to be output.  After a
head of steam has been built up, it can roll along at 5-10 seconds
per page.

.SH PostScript ILLUSTRATIONS

This program supports use of the \fB\\special\fP command in TeX to include
special PostScript code for graphics, etc.  Specifying
\fB\\special{psfile=foo.ps}\fP in the TeX source will result in the contents
of file
.I foo.ps
(assumed to contain PostScript code) being copied 
into the output at that point.  For most included graphics, the
user's (0,0) point will be set to the point of the \fB\\special\fP command
with
.I x
and
.I y
coordinates increasing up and to the right and in units
of PostScript points (72/inch) \(em thus you must explicitly leave space
above the \fB\\special\fP command for most graphics.  For graphics produced by 
Apple Macintoshes (i.e., MacDraw, MacPaint, etc.), the top left corner of 
the drawing will be at the point of the \fB\\special\fP command; in this case
you must leave the required space below the \fB\\special\fP.

The \fB\\special\fP string can contain any number of the following 
.I keyword=value
pairs, separated by blanks:
.ta 10n
.TP 24n
\fIKeyword	Value Type
(dimensions in points: 72 pt = 1 in)
.TP
psfile	string   
\- PostScript file to include
.PD 0
.TP
hsize	dimension
\- maximum horizontal size (for clipping)
.TP
vsize	dimension
\- maximum vertical size (for clipping). Use negative values to specify a
clipping region below the current position.
.TP
hoffset	dimension
\- amount to shift right
.TP
voffset	dimension
\- amount to shift up
.TP
hscale	number
\- scale factor in x-dimension
.TP
vscale	number
\- scale factor in y-dimension
.TP
rotation	number
\- counter-clockwise rotation angle
.PD
.DT
.PP
Thus:
.ce
\fB\\special{psfile=foo.ps hoffset=72 hscale=0.9 vscale=0.9}\fP
will shift the graphics produced by file
.I foo.ps
right by
1", and will draw it at 0.9 normal size.

.B hsize
and
.B vsize
are given relative to the (0,0) point of the
drawing and are unaffected by offsets and scales.

Offsets are given relative to the point of the \fB\\special\fP command,
and are unaffected by scales.

If Macintosh drawings are to be included, the proper LaserPrep file
must be downloaded to the printer, either permanently or as another
header file in addition to the standard
.I tex.ps
header file.
.SH FILES
.PD 0
.TP 2.2i
*.dvi
TeX DeVice Independent output file
.TP
/usr/lib/tex/fonts/*.*pxl
default area for PXL files (TeX font rasters)
.TP
/usr/lib/tex/ps/tex.ps
PostScript support code
.PD
.SH "SEE ALSO"
tex(1)
.SH BUGS
There is likely a limit to the size of documents that can be printed (at 
least, on the Apple LaserWriter).  If you get VMerrors reported when 
printing, use the
.B \-f
and
.B \-t
options, to select a range of pages.
The exact limit is unknown, but is probably well in excess of 50 pages
for `normal' documents, decreasing with number of different fonts used,
size of fonts, etc.

.SH AUTHORS
Mark Senn wrote the early versions of this program for the
BBN BitGraph.  Stephan Bechtolsheim, Bob Brown, Richard
Furuta, James Schaad and Robert Wells improved it.  Norm
Hutchinson ported the program to the Sun.  Neal Holtz ported
it to the Apollo, and then to produce PostScript.
Scott Jones added intelligent font substitution.
Jean-Francois Lamy fixed the interface for PostScript illustrations.

(PostScript is a trademark of Adobe Systems, Inc.)
SHAR_EOF
fi # end of overwriting check
if test -f 'Makefile'
then
	echo shar: will not over-write existing file "'Makefile'"
else
cat << \SHAR_EOF > 'Makefile'
# The following file and directory specifications may need changing at
# your site:
#
# where are the bitmaps stored?
FONTAREA=/usr/lib/tex/fonts
#
# where is the header file to be found?
# (Here, the ps directory under lib/tex is in fact a link to where all ps
#  files are kept.  You must create a directory or a link yourself)
HDRFILE=/usr/lib/tex/ps/tex.ps
#
# where is the software to be installed
BINAREA=/usr/local
#
# an Apollo-specific spool file
SPOOLFILE=/usr/spool/laserwriter/apollo
#

CFLAGS = -DFONTAREA=\"${FONTAREA}\" -DHDRFILE=\"${HDRFILE}\" \
         -DSPOOLFILE=\"${SPOOLFILE}\" -O

all: dvi2ps

dvi2ps:	dvi2ps.o findfile.o
	cc ${CFLAGS} -o dvi2ps dvi2ps.o findfile.o

install: all
	install -s -m 755 dvi2ps ${BINAREA}/dvi2ps
	cp tex.ps ${HDRFILE}

#
# The following may be useful if you are trying to run this as a
# printcap filter
#

applef:	applef.c
	${CC} -o applef ${CFLAGS} applef.c

dvipsf:	dvipsf.c
	${CC} -o dvipsf ${CFLAGS} dvipsf.c
SHAR_EOF
fi # end of overwriting check
if test -f 'tex.ps'
then
	echo shar: will not over-write existing file "'tex.ps'"
else
cat << \SHAR_EOF > 'tex.ps'
%! $Header: tex.ps,v 1.5 86/11/27 10:30:54 lamy Exp $
%
% for use by dvi2ps Version 2.11 or later.
%
% a start (Ha!) at a TeX mode for PostScript.
% The following defines procedures assumed and used by program "dvi2ps"
% and must be downloaded or sent as a header file for all TeX jobs.
%
% Original author: 
%      Neal Holtz, Carleton University, Ottawa, Canada
%      <holtz@cascade.carleton.cdn>
%      <holtz%cascade.carleton.cdn@relay.cs.net>
%      June, 1985   Last Modified: Aug 25/85
%
% PostScript illustration support:
%      Jean-Francois Lamy, AI group, University of Toronto, Canada
%      lamy@ai.toronto.edu, lamy@ai.toronto.cdn
%
% $Log:	tex.ps,v $
% Revision 1.5  86/11/27  10:30:54  lamy
% Mixing Mac and other PostScript illustrations now possible.
% vsize positive now means "above current point".
% 
% Revision 1.4  86/10/30  12:43:24  lamy
% Now uses the rotate operator for landscape and envelope modes.
% Used to be convoluted, non portable code to avoid round-off errors
% that do not seem to be present on any of our printers.
% 
% Revision 1.3  86/10/30  12:27:50  lamy
% Fixed bug in @bop1 that caused top lines to be clipped when using proc.sty
%
% 86-07-17 jfl
%   Added envelope keyword definition.  Same as landscape but positioned
%   so that an envelope inserted upside down is printed correctly
%   This reduces the occurence of paper jams.
%
% 86-06-23  JF Lamy, U. of Toronto <lamy@ai.toronto.edu, lamy@utai.uucp>
%   Updated to support the Macintosh LaserWriter driver version 3.x
%   instead of 1.1.  Added rotation of illustrations.
% 
% oystr 12-Feb-1986
%   Changed @dc macro to check for badly formed bits in character
%   definitions.  Can get a <> bit map if a character is not actually
%   in the font file.  This is absolutely guaranteed to drive the
%   printer nuts - it will appear that you can no longer define a
%   new font, although the built-ins will still be there.
%

% To convert this file into a downloaded file instead of a header
% file, uncomment all of the lines beginning with %-%

%-%0000000 			% Server loop exit password
%-%serverdict begin exitserver
%-%  systemdict /statusdict known
%-%  {statusdict begin 9 0 3 setsccinteractive /waittimeout 300 def end}
%-% if

/TeXDict 200 dict def   % define a working dictionary
TeXDict begin           % start using it.

                        % units are in "dots" (300/inch)
/Resolution 300 def
/Inch  {Resolution mul} def  % converts inches to internal units

/PageCounter statusdict begin pagecount end def  % so we can report # pages printed

/Mtrx 6 array def

%%%%%%%%%%%%%%%%%%%%% Page setup (user) options %%%%%%%%%%%%%%%%%%%%%%%%

% dvi2ps will output coordinates in the TeX system ([0,0] 1" down and in
% from top left, with y +ive downward).  The default PostScript system
% is [0,0] at bottom left, y +ive up.  The Many Matrix Machinations in
% the following code are an attempt to reconcile that. The intent is to
% specify the scaling as 1 and have only translations in the matrix to
% properly position the text.  Caution: the default device matrices are
% *not* the same in all PostScript devices; that should not matter in most 
% of the code below (except for lanscape mode -- in that, rotations of
% -90 degrees resulted in the the rotation matrix [ e 1 ]
%                                                 [ 1 e ]
% where the "e"s were almost exactly but not quite zeros.
%


/@letter
  { letter initmatrix
    72 Resolution div dup neg scale          % set scaling to 1.
    310 -3005 translate      % move origin to top (these are not exactly 1"
    Mtrx currentmatrix pop   % and -10" because margins aren't set exactly right)
  } def
        % note mode is like letter, except it uses less VM
/@note
  { note initmatrix
    72 Resolution div dup neg scale          % set scaling to 1.
    310 -3005 translate                      % move origin to top
    Mtrx currentmatrix pop
  } def

/@landscape
  { letter initmatrix
    72 Resolution div dup neg scale          % set scaling to 1.
    -90 rotate                    % it would be nice to be able to do this
%    Mtrx currentmatrix 0 0.0 put % but instead we have to do things 
%                                 % like this because what should be zero
%    Mtrx 1 -1.0 put      %  terms aren't (and text comes out wobbly)
%    Mtrx 2 1.0 put       % Fie!  This likely will not work on QMS printers
%    Mtrx 3 0.0 put       % (nor on others where the device matrix is not like
%    Mtrx  setmatrix      %  like it is on the LaserWriter).
    300 310  translate    % move origin to top
    Mtrx currentmatrix pop
  } def

/@legal
  { legal initmatrix
    72 Resolution div dup neg scale          % set scaling to 1.
    295 -3880 translate                      % move origin to top
    Mtrx currentmatrix pop
  } def

/@manualfeed
   { statusdict /manualfeed true put
   } def
        % n @copies -   set number of copies
/@envelope
  { statusdict /manualfeed true put
    letter initmatrix
    72 Resolution div dup neg scale          
    -90 rotate 
%    Mtrx currentmatrix 0 0.0 put             
%    Mtrx 1 -1.0 put                          
%    Mtrx 2 1.0 put                           
%    Mtrx 3 0.0 put                           
%    Mtrx  setmatrix                          
    450 1275 translate % upper right corner of regular envelope
                       % when fed manually
    300 310  translate
    Mtrx currentmatrix pop
  } def


/@copies
   { /#copies exch def
   } def

%%%%%%%%%%%%%%%%%%%% Procedure Defintions %%%%%%%%%%%%%%%%%%%%%%%%%%

/@newfont       % id @newfont -         -- initialize a new font dictionary
  { /newname exch def
    pop
    newname 7 dict def          % allocate new font dictionary
    newname load begin
        /FontType 3 def
        /FontMatrix [1 0 0 -1 0 0] def
        /FontBBox [0 0 1 1] def
        /BitMaps 128 array def
        /BuildChar {CharBuilder} def
        /Encoding 128 array def
        0 1 127 {Encoding exch /.undef put} for
        end
    newname newname load definefont pop
  } def


% the following is the only character builder we need.  it looks up the
% char data in the BitMaps array, and paints the character if possible.
% char data  -- a bitmap descriptor -- is an array of length 6, of 
%          which the various slots are:

/ch-image {ch-data 0 get} def   % the hex string image
/ch-width {ch-data 1 get} def   % the number of pixels across
/ch-height {ch-data 2 get} def  % the number of pixels tall
/ch-xoff  {ch-data 3 get} def   % number of pixels below origin
/ch-yoff  {ch-data 4 get} def   % number of pixels to left of origin
/ch-tfmw  {ch-data 5 get} def   % spacing to next character

/CharBuilder    % fontdict ch Charbuilder -     -- image one character
  { /ch-code exch def           % save the char code
    /font-dict exch def         % and the font dict.
    /ch-data font-dict /BitMaps get ch-code get def     % get the bitmap descriptor for char
    ch-data null eq not
      { ch-tfmw   0   ch-xoff neg   ch-yoff neg   ch-width ch-xoff sub   ch-height ch-yoff sub
            setcachedevice
        ch-width ch-height true [1 0  0 1  ch-xoff ch-yoff]
            {ch-image} imagemask
      }
    if
  } def


/@sf            % fontdict @sf -        -- make that the current font
  { setfont() pop
  } def

                % in the following, the font-cacheing mechanism requires that
                % a name unique in the particular font be generated

/@dc            % char-data ch @dc -    -- define a new character bitmap
  { /ch-code exch def
% ++oystr 12-Feb-86++
    dup 0 get
    length 2 lt
      { pop [ <00> 1 1 0 0 8.00 ] } % replace <> with null
    if
% --oystr 12-Feb-86--
    /ch-data exch def
    currentfont /BitMaps get ch-code ch-data put
    currentfont /Encoding get ch-code 
       dup (   ) cvs cvn   % generate a unique name simply from the character code
       put
  } def

/@bop0           % n @bop0 -        -- begin the char def section of a new page
  { 
  } def

/@bop1           % n @bop1 -        -- begin a brand new page
  { pop
    erasepage initgraphics 
    Mtrx setmatrix
    0 0 moveto
    /SaveImage save def
  } def

/@eop           % - @eop -              -- end a page
  { showpage 
    SaveImage restore
  } def

/@start         % - @start -            -- start everything
  { @note                             % (there is not much to do)
  } def

/@end           % - @end -              -- done the whole shebang
  { end
  } def

/p              % x y p -               -- move to position
  { moveto
  } def

/r              % x r -                 -- move right
  { 0 rmoveto
  } def

/s              % string s -            -- show the string
  { show
  } def

/c              % ch c -                -- show the character (code given)
  { c-string exch 0 exch put
    c-string show
  } def

/c-string ( ) def

/ru             % dx dy ru -   -- set a rule (rectangle)
  { /dy exch neg def    % because dy is height up from bottom
    /dx exch def
    /x currentpoint /y exch def def   % remember current point
    newpath x y moveto
    dx 0 rlineto
    0 dy rlineto
    dx neg 0 rlineto
    closepath fill
    x y moveto
  } def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%     the \special command junk
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%   The structure of the PostScript produced by dvi2ps for \special is:
%         @beginspecial
%           - any number of @hsize, @hoffset, @hscale, etc., commands
%         @setspecial
%           - the users file of PostScript commands
%         @endspecial

% The @beginspecial command recognizes whether the Macintosh Laserprep
% has been loaded or not, and redfines some Mac commands if so.
% The @setspecial handles the users shifting, scaling, clipping commands


% The following are user settable options from the \special command.

/@SpecialDefaults
  { 
    /hsi 72 8.5 mul def  % 8.5 Inch def
    /vsi 72 11 mul def   % 11 Inch def
    /hof 0 def
    /vof 0 def
    /hsc 1 def
    /vsc 1 def
    /rotat 0 def
    /CLIP false def
  } def

%       d @hsize -      specify a horizontal clipping dimension
%                       these 2 are executed before the MacDraw initializations
/@hsize {/hsi exch def /CLIP true def} def
/@vsize {/vsi exch def /CLIP true def} def
%       d @hoffset -    specify a shift for the drwgs
/@hoffset {/hof exch def} def
/@voffset {/vof exch def} def
%       s @hscale -     set scale factor
/@hscale {/hsc exch def} def
/@vscale {/vsc exch def} def
%       r @rotation -   set rotation angle
/@rotation {/rotat exch def} def

/@setclipper
  {
    CLIP
      { newpath 0 0 moveto hsi 0 rlineto 0 vsi rlineto hsi neg 0 rlineto 
        closepath clip }
    if
  } def

% this will be invoked as the result of a \special command (for the
% inclusion of PostScript graphics).  The basic idea is to change all
% scaling and graphics back to defaults, but to shift the origin
% to the current position on the page (left margin?)

/@beginspecial          % - @beginspecial -     -- enter special mode
  { gsave /SpecialSave save def
          % the following magic incantation establishes the current point as
          % the users origin, and reverts back to default scalings, rotations
    currentpoint transform initgraphics itransform translate
    @SpecialDefaults    % setup default offsets, scales, sizes
    @MacSetUp           % fix up Mac stuff 
  } def

/@setspecial    % to setup user specified offsets, scales, sizes (for clipping)
  {
   hof vof translate
   @setclipper
   hsc vsc scale 
   rotat rotate
  } def

/@endspecial            % - @endspecial -       -- leave special mode
  { 
    SpecialSave restore
    grestore
  } def

% - @MacSetUp -   turn-off/fix-up all the LaserPrep stuff that might hurt us

/@MacSetUp
  { userdict /md known  % if md is defined
      { userdict /md get type /dicttype eq      % and if it is a dictionary
         { /MacDrwgs true def
           md begin                             % then redefine some stuff
              
	      /txpose{
		 1 -1 scale  % make y coordinates relative to top of figure
	      } bind def

              % ignore Mac page breaks
              /cp {pop pop} bind def

           end }
        if }
    if    
  } def

end                     % revert to previous dictionary
SHAR_EOF
fi # end of overwriting check
if test -f 'commands.h'
then
	echo shar: will not over-write existing file "'commands.h'"
else
cat << \SHAR_EOF > 'commands.h'
/*
 *
 * $Revision: 1.1 $
 * $Log:	commands.h,v $
 * Revision 1.1  83/11/23  10:56:00  mds
 * Initial revision
 * 
 *
 */
#define  SETC_000    0
#define  SETC_001    1
#define  SETC_002    2
#define  SETC_003    3
#define  SETC_004    4
#define  SETC_005    5
#define  SETC_006    6
#define  SETC_007    7
#define  SETC_008    8
#define  SETC_009    9
#define  SETC_010   10
#define  SETC_011   11
#define  SETC_012   12
#define  SETC_013   13
#define  SETC_014   14
#define  SETC_015   15
#define  SETC_016   16
#define  SETC_017   17
#define  SETC_018   18
#define  SETC_019   19
#define  SETC_020   20
#define  SETC_021   21
#define  SETC_022   22
#define  SETC_023   23
#define  SETC_024   24
#define  SETC_025   25
#define  SETC_026   26
#define  SETC_027   27
#define  SETC_028   28
#define  SETC_029   29
#define  SETC_030   30
#define  SETC_031   31
#define  SETC_032   32
#define  SETC_033   33
#define  SETC_034   34
#define  SETC_035   35
#define  SETC_036   36
#define  SETC_037   37
#define  SETC_038   38
#define  SETC_039   39
#define  SETC_040   40
#define  SETC_041   41
#define  SETC_042   42
#define  SETC_043   43
#define  SETC_044   44
#define  SETC_045   45
#define  SETC_046   46
#define  SETC_047   47
#define  SETC_048   48
#define  SETC_049   49
#define  SETC_050   50
#define  SETC_051   51
#define  SETC_052   52
#define  SETC_053   53
#define  SETC_054   54
#define  SETC_055   55
#define  SETC_056   56
#define  SETC_057   57
#define  SETC_058   58
#define  SETC_059   59
#define  SETC_060   60
#define  SETC_061   61
#define  SETC_062   62
#define  SETC_063   63
#define  SETC_064   64
#define  SETC_065   65
#define  SETC_066   66
#define  SETC_067   67
#define  SETC_068   68
#define  SETC_069   69
#define  SETC_070   70
#define  SETC_071   71
#define  SETC_072   72
#define  SETC_073   73
#define  SETC_074   74
#define  SETC_075   75
#define  SETC_076   76
#define  SETC_077   77
#define  SETC_078   78
#define  SETC_079   79
#define  SETC_080   80
#define  SETC_081   81
#define  SETC_082   82
#define  SETC_083   83
#define  SETC_084   84
#define  SETC_085   85
#define  SETC_086   86
#define  SETC_087   87
#define  SETC_088   88
#define  SETC_089   89
#define  SETC_090   90
#define  SETC_091   91
#define  SETC_092   92
#define  SETC_093   93
#define  SETC_094   94
#define  SETC_095   95
#define  SETC_096   96
#define  SETC_097   97
#define  SETC_098   98
#define  SETC_099   99
#define  SETC_100  100
#define  SETC_101  101
#define  SETC_102  102
#define  SETC_103  103
#define  SETC_104  104
#define  SETC_105  105
#define  SETC_106  106
#define  SETC_107  107
#define  SETC_108  108
#define  SETC_109  109
#define  SETC_110  110
#define  SETC_111  111
#define  SETC_112  112
#define  SETC_113  113
#define  SETC_114  114
#define  SETC_115  115
#define  SETC_116  116
#define  SETC_117  117
#define  SETC_118  118
#define  SETC_119  119
#define  SETC_120  120
#define  SETC_121  121
#define  SETC_122  122
#define  SETC_123  123
#define  SETC_124  124
#define  SETC_125  125
#define  SETC_126  126
#define  SETC_127  127
#define  SET1          128
#define  SET2          129
#define  SET3          130
#define  SET4          131
#define  SET_RULE      132
#define  PUT1          133
#define  PUT2          134
#define  PUT3          135
#define  PUT4          136
#define  PUT_RULE      137
#define  NOP           138
#define  BOP           139
#define  EOP           140
#define  PUSH          141
#define  POP           142
#define  RIGHT1        143
#define  RIGHT2        144
#define  RIGHT3        145
#define  RIGHT4        146
#define  W0            147
#define  W1            148
#define  W2            149
#define  W3            150
#define  W4            151
#define  X0            152
#define  X1            153
#define  X2            154
#define  X3            155
#define  X4            156
#define  DOWN1         157
#define  DOWN2         158
#define  DOWN3         159
#define  DOWN4         160
#define  Y0            161
#define  Y1            162
#define  Y2            163
#define  Y3            164
#define  Y4            165
#define  Z0            166
#define  Z1            167
#define  Z2            168
#define  Z3            169
#define  Z4            170
#define  FONT_00    171
#define  FONT_01    172
#define  FONT_02    173
#define  FONT_03    174
#define  FONT_04    175
#define  FONT_05    176
#define  FONT_06    177
#define  FONT_07    178
#define  FONT_08    179
#define  FONT_09    180
#define  FONT_10    181
#define  FONT_11    182
#define  FONT_12    183
#define  FONT_13    184
#define  FONT_14    185
#define  FONT_15    186
#define  FONT_16    187
#define  FONT_17    188
#define  FONT_18    189
#define  FONT_19    190
#define  FONT_20    191
#define  FONT_21    192
#define  FONT_22    193
#define  FONT_23    194
#define  FONT_24    195
#define  FONT_25    196
#define  FONT_26    197
#define  FONT_27    198
#define  FONT_28    199
#define  FONT_29    200
#define  FONT_30    201
#define  FONT_31    202
#define  FONT_32    203
#define  FONT_33    204
#define  FONT_34    205
#define  FONT_35    206
#define  FONT_36    207
#define  FONT_37    208
#define  FONT_38    209
#define  FONT_39    210
#define  FONT_40    211
#define  FONT_41    212
#define  FONT_42    213
#define  FONT_43    214
#define  FONT_44    215
#define  FONT_45    216
#define  FONT_46    217
#define  FONT_47    218
#define  FONT_48    219
#define  FONT_49    220
#define  FONT_50    221
#define  FONT_51    222
#define  FONT_52    223
#define  FONT_53    224
#define  FONT_54    225
#define  FONT_55    226
#define  FONT_56    227
#define  FONT_57    228
#define  FONT_58    229
#define  FONT_59    230
#define  FONT_60    231
#define  FONT_61    232
#define  FONT_62    233
#define  FONT_63    234
#define  FNT1          235
#define  FNT2          236
#define  FNT3          237
#define  FNT4          238
#define  XXX1          239
#define  XXX2          240
#define  XXX3          241
#define  XXX4          242
#define  FNT_DEF1      243
#define  FNT_DEF2      244
#define  FNT_DEF3      245
#define  FNT_DEF4      246
#define  PRE           247
#define  POST          248
#define  POST_POST     249
SHAR_EOF
fi # end of overwriting check
if test -f 'findfile.h'
then
	echo shar: will not over-write existing file "'findfile.h'"
else
cat << \SHAR_EOF > 'findfile.h'
/* findfile.h
 * Copyright 1985 Massachusetts Institute of Technology
 */

extern int findfile();
/* int findfile(dirvec,dirveclen,area, name, mag, s, nname, nmag)
 *     char *dirvec[],*area,*name,*s,*nname;
 *     int dirveclen,mag,*nmag;
 */

SHAR_EOF
fi # end of overwriting check
#	End of shell archive
exit 0