>>>>> "Jean-Marc" == Jean-Marc Lasgouttes <[EMAIL PROTECTED]> writes:

>>>>> "nbecker" == nbecker  <[EMAIL PROTECTED]> writes:
    nbecker> --Multipart_Thu_Mar_25_11:45:05_1999-1 Content-Type:
    nbecker> text/plain; charset=US-ASCII

    nbecker> This small file causes TeX capacity exceeded (on unix - not a
    nbecker> small TeX) when run under LyX - but the same exported TeX
    nbecker> file works fine.

    Jean-Marc> Hello,

    Jean-Marc> Unfortunately I could not test for this problem, since your file needs
    Jean-Marc> iom.sty, which I certainly do not have...

Sorry.

%Memo for Comsat by N. Becker 11/29/88
%Will make a cover page with Memorandum, task code, date, from, to,
%subject at the top.  Below will be cover text.  At the bottom will
%be the distribution list.  No other text will appear on this page,
%and the next page will be numbered 1.
%
%Usage: Before any other printable text,
%       Set to, from, subject, date, taskcode, and distr. list using
%       macros \setto{}, \setfrom{}, \setsubject{}, \setdate{},
%       \settaskcode{}, and \setdistr{}.  Each of these is optional!
%       The date will default to \today.  Others will simply not be
%       present if not specified.  Text on the cover is set by
%       \setcover{}.
%       inputs to \setdistr{} are delimited by \\ like:
%       \setdist{me\\you\\anyoneelseyoucanthinkof}
%       The page will be produced by the macro \makecover.
%added 12/13:
%       if \setcover is used only cover text will be on first page,
%       remaining text will be forced to subsequent pages.  If
%       \setcover is not used text will not be forced to subsequent
%       pages.
%added 10/9/90:
%       The text for distribution header is defined by the macro
%       \Distribution.  The default is `cc:'.
\newif\iftoset
\newif\iffromset
\newif\ifrevisionset
\newif\ifsubjectset
\newif\iftaskcodeset
\newif\ifdistrset
\newif\ifcoverset
\newif\ifdocnumset
\newif\iftaskanddocset
\newif\iftaskordocset

\def\setto#1{\def\totext{#1}\tosettrue}
\def\setfrom#1{\def\fromtext{#1}\fromsettrue}
\def\setrevision#1{\def\revisiontext{#1}\revisionsettrue}
\def\setsubject#1{\def\subjecttext{#1}\subjectsettrue}
\def\settaskcode#1{\def\tasktext{#1}\taskcodesettrue}
\def\setdate#1{\def\datetext{#1}}
\setdate{\today}
\def\setdistr#1{\def\distlist{#1}\distrsettrue}
\def\setdocnum#1{\def\docnum{#1}\docnumsettrue}

%makecover
\def\makecover{\setcounter{page}{0}\thispagestyle{empty}\maketop\maketofrom\makecovertext%
\ifdistrset\makedist\fi\ifcoverset\clearpage\fi}

%maketop
\def\maketop{
\iftaskcodeset\ifdocnumset\taskanddocsettrue\fi\fi
\iftaskcodeset\taskordocsettrue\else\typeout{iom::Warning taskcode not set}\fi
\ifdocnumset\taskordocsettrue\else\typeout{iom::Warning docnumber not set}\fi
\hfill\begin{tabular}[b]{@{}c@{}}
{\huge\bf MEMORANDUM}
\iftaskordocset\\\fi
\iftaskanddocset\tasktext\hfill\docnum\else
\iftaskcodeset\tasktext\else\ifdocnumset\docnum\fi\fi\fi
\end{tabular}
\bigskip}

\newlength{\subboxwidth}
\newlength{\subboxrest}
%maketofrom
\def\maketofrom{\ifsubjectset\settowidth{\subboxwidth}{Subject: \hspace{2\tabcolsep}}
\setlength{\subboxrest}{\textwidth}
\addtolength{\subboxrest}{-\subboxwidth}
\fi\begin{flushleft}\begin{tabular}{@{}lp{\subboxrest}@{}}
\iftoset To: &\totext\\ \fi
\iffromset From:  &\fromtext\\ \fi
Date: &\datetext\\
\ifrevisionset Revision: &\revisiontext\\ \fi
\ifsubjectset Subject: &\subjecttext\fi
\end{tabular}\end{flushleft}
\hrule\par\bigskip\par}

%makecovertext
\long\def\setcover#1{\def\covertext{#1}\coversettrue}
\def\makecovertext{\covertext}
\def\covertext{}% initialization

%makedist
\def\Distribution{cc:}
\def\makedist{\begin{table}[b]
\def\\{\cr&}
\halign{##\hfil&\quad##\hfil\cr \Distribution&\distlist\cr}
\end{table}}

Reply via email to