% -*- Mode:Text -*- 

%----------------------------------------------------------------
		% SHIP SCHEMATICS FILE
% Read line-by-line a file (typically generated by awk) listing
% the schematics sheets to be entered in the current appendix;
% the file must contain no blank lines.
% Process each sheet line with the macro \processspecs.
% Typically, this will input a verbatim file or make a \special for
% a PostScript file, and correspondingly will make an entry
% in the appropriate table of contents.

\newread\sors
\newif\ifnoEOF

\def\shipspecs#1{
{\onecolumn
\openin\sors=#1
\def\noEOFtest{\if\par\buffer\noEOFfalse\else\noEOFtrue\fi}
\loop \read\sors to\buffer\noEOFtest
      \ifnoEOF\expandafter\processspecs\buffer
\repeat
\closein\sors
\twocolumn}
}
%----------------------------------------------------------------


