\documentstyle[newdoc]{ltugboat}
%
%    \EnableCrossrefs
    \DisableCrossrefs    % use \DisableCrossrefs if the index is ready

   \RecordChanges
%   \OnlyDescription
%   \PageIndex
  \CodelineIndex

  \SelfDocumenting       % macro defined in ltugboat.sty

%  -------------------------------------------------
%^^A! aanwijzingen voor TUGboat-redactie in het Engels
%  define \dlqq so that we can give an example of "'
%  -------------------------------------------------
\makeatletter
\gdef\dlqq{{\setbox\tw@=\hbox{,}\setbox\z@=\hbox{''}%
  \dimen\z@=\ht\z@ \advance\dimen\z@-\ht\tw@
  \setbox\z@=\hbox{\lower\dimen\z@\box\z@}\ht\z@=\ht\tw@
  \dp\z@=\dp\tw@ \box\z@\kern-.04em}}
%+
%     Some extra definitions needed in the article
%-
\def\langvar{$\langle \it lang \rangle$}
\def\ttbs{\char'134}
\def\note#1{{\bf #1}}
%\def\note#1{}
\def\bsl{\protect\bslash}
%
\renewenvironment{theglossary}{%
    \glossary@prologue%
    \GlossaryParms \let\item\@idxitem \ignorespaces}%
   {}
%
\ifx\indefined\selectfont
\else
    \def\tensl{\shape{sl}\size{10}{12pt}\selectfont}
\fi
\makeatother
%
\setcounter{page}{1}
\def\rtitlex{The implementation of the {\sf ml} system}
\def\midrtitle{}
\def\PrelimDraftfooter{%
  \dlap{\kern\textheight\kern3pc
        \rlap{\hbox to \pagewd{\filename\hfil{\tensl printed \Now}}}
  }}

\begin{document}
  \DocInput{ml.doc}
\end{document}
