Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!utcsri!utegc!lamy From: lamy@ai.toronto.edu Newsgroups: comp.text Subject: dvi2ps/PostScript package (part 1) Message-ID: <8612010045.AA09556@ephemeral.ai.toronto.edu> Date: Sun, 30-Nov-86 19:52:19 EST Article-I.D.: ephemera.8612010045.AA09556 Posted: Sun Nov 30 19:52:19 1986 Date-Received: Sun, 30-Nov-86 21:34:05 EST Organization: University of Toronto, AI group Lines: 1009 Checksum: 48814 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 % % % 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 % 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