%% 
%% This is file `newdoc.sty' generated
%% on <1991/1/20> with the docstrip utility (v1.1k). 
%% 
%% The original source file was `newdoc.doc'.
%% 
%% 
%% Copyright (C) 1989,1990,1991 by Frank Mittelbach. All rights reserved. 
%% 
%% IMPORTANT NOTICE: 
%% 
%% You are not allowed to change this file. You may however copy this file 
%% to a file with a different name and then change the copy. 
%% 
%% You are NOT ALLOWED to distribute this file alone. You are NOT ALLOWED 
%% to take money for the distribution or use of this file (or a changed 
%% version) except for a nominal charge for copying etc. 
%% 
%% You are allowed to distribute this file under the condition that it is 
%% distributed together with all files mentioned in readme.mz1. 
%% 
%% If you receive only some of these files from someone, complain! 
%% 
%% However, if these files are distributed by established suppliers as part 
%% of a complete TeX distribution, and the structure of the distribution 
%% would make it difficult to distribute the whole set of files, *those 
%% parties* are allowed to distribute only some of the files provided that 
%% it is made clear that the user will get a complete distribution-set upon 
%% request to that supplier (not me). 
%% Notice that this permission is not granted to the end user. 
%% 
%% 
%% Error Reports in case of UNCHANGED versions to 
%% 
%% F. Mittelbach 
%% Eichenweg 29 
%% D-6500 Mainz 1 
%% Federal Republic of Germany 
%% Bitnet: <PZF5HZ@RUIPC1E> 
%% 
%% Please do not request updates from me. Distribution is done only 
%% through Mail-Servers and TeX organisations. 
%% 

%% \CheckSum{110}
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
%%
\input{doc.sty}
\begingroup
  \lccode`\~=`\^^M
  \lowercase{%
    \gdef\verb{\begingroup
    \tt
    \let~\verb@err
    \catcode`\^^M\active
    \let\do\@makeother \dospecials
    \@ifstar\@sverb{\@vobeyspaces \frenchspacing \@sverb}}}
\endgroup
\def\verb@err{\endgroup\@latexerr{\string\verb\space
                   command ended by end of line.}\@ehc}%
\def\@sverb#1{%
  \catcode`#1\active
  \lccode`\~`#1%
  \lowercase{\let~\endgroup}%
  \leavevmode\null}
\def\DoNotIndex{\begingroup \MakePrivateLetters
    \catcode`\\12
    \do@not@index}
\def\macro{%
   \ifnum\macro@level=\z@ \begingroup \fi
   \catcode`\\12
   \MakePrivateLetters \m@cro@}

\long\def\do@not@index#1{\endgroup
    \addto@hook\index@excludelist{#1,}}

\newtoks\index@excludelist

\index@excludelist{}

\begingroup
\catcode`\|=0%
\catcode`\\=12
|gdef|ifnot@excluded{|expandafter
     |expanded@notin|expandafter{|expandafter
     \|macro@namepart,}{|the|index@excludelist}}
|endgroup

\long\def\addto@hook#1#2{#1\expandafter{\the#1#2}}

\def\expanded@notin#1#2{%
 \def\in@@##1#1##2##3\in@@{%
  \ifx\expanded@notin##2}%
 \expandafter\in@@#2#1\expanded@notin\in@@}

\let\exclude@test\relax % unnecessary now
\def\MakeShortVerb#1{\expandafter
  \xdef\csname cc\string#1\endcsname{\the\catcode`#1}%
  \begingroup
  \catcode`\~\active
  \lccode`\~`#1%
  \lowercase{%
    \global\expandafter\let
       \csname ac\string#1\endcsname~%
    \gdef~{\verb~}}%
  \endgroup
  \global\catcode`#1\active
}

\def\DeleteShortVerb#1{%
  \global\catcode`#1\csname cc\string#1\endcsname
  \ifnum\catcode`#1=\active
   \begingroup
   \catcode`\~\active
   \lccode`\~`#1%
   \lowercase{%
    \global\expandafter\let\expandafter~%
       \csname ac\string#1\endcsname}%
  \endgroup
  \fi}

\def\MakeShortverb{\typeout{Switch to \string\MakeShortVerb\space
                            syntax}\MakeShortVerb}
\def\DeleteShortverb{\typeout{Switch to \string\DeleteShortVerb\space
                            syntax}\DeleteShortVerb}

\endinput
%% 
%% End of file `newdoc.sty'.
