summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/cweb-latex/contrib/cweb-hy/nodoc.tex
blob: fe9e4b8658a36e00348edc04355e52501ff11d35 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
% File nodoc.tex
% By Enrique Mel\'endez, <UEI0560130010@eurociber.es> April, 14, 1999.
% Freely distributable under, f. i. GNU.
% I do this for fun, but if you use it, I would like no know how it performs
% Please, keep the author notice.
% Put \include nodoc.tex  as the very first line of your documents.
% No responsibility.  Usde this at your own risk.  (That is, it may not work
% as you intended, but I never designed it to.)


\makeatletter
\ifx\section\undefined
    \makeatother
    \expandafter\endinput
\else

% Things we suppress are `only preamble'
% documentclass
\let\n@documentclass\documentclass
\def\documentclass{\@ifnextchar[\@documentclass@{\@documentclass@[]}}
\def\@documentclass@[#1]#2{\relax}

% usepackage
\let\n@usepackage\usepackage
\def\usepackage{\@ifnextchar[\@usepackage@{\@usepackage@[]}}
\def\@usepackage@[#1]#2{\relax}
% The following 4 should be allowed to change.  I don't know how.
% author
\let\n@author\author
\def\author#1{\gdef \@author{#1}%\relax
}
% date
\let\n@date\date
\def\date#1{\relax}
% title
\let\n@title\title
\def\title#1{\gdef \@title{#1}%\relax
}
% maketitle
\let\n@maketitle\maketitle
\def\maketitle{%
  \vskip 2em%
  \begin{center}%
  \let \footnote \thanks
    {\LARGE \@title \par}%
    \vskip 1.5em%
    {\large
      \lineskip .5em%
      \begin{tabular}[t]{c}%
        \@author
      \end{tabular}\par}%
    \vskip 1em%
    {\large \@date}%
  \end{center}%
  \par
  \vskip 1.5em
  \global\let\@title\@empty
  \global\let\@author\@empty
  \global\let\title\relax
  \global\let\author\relax
%\relax
}
\def\pagestyle#1{\relax}
\def\thispagestyle#1{\relax}
\renewenvironment{titlepage}
    {%
      \if@twocolumn
        \@restonecoltrue\onecolumn
      \else
        \@restonecolfalse\newpage
      \fi
      \thispagestyle{empty}%
      %\setcounter{page}\@ne
    }%
    {\if@restonecol\twocolumn \else \newpage \fi
     %\if@twoside\else
        %\setcounter{page}\@ne
     %\fi
    }
% tableofcontents
\let\n@tableofcontents\tableofcontents
\def\tableofcontents{\relax}
% The begindocument, where we rebind some of the above
\let\@document@=\document
\def\document{\endgroup\relax%
\let\document\@document@%
\let\documentclass\n@documentclass%
\let\usepackage\n@usepackage%
}
% The enddocument, where some more things are rebound
\let\@enddoc@=\enddocument
\def\enddocument{%
\let\tableofcontents\n@tableofcontents%
\let\maketitle\n@maketitle
\let\title\n@title
\let\author\n@author
\let\date\n@date
\let\enddocument\@enddoc@%
\begingroup}
\fi

%% Borrowed from LaTeX general format.
\def\@ifnextchar#1#2#3{%
  \let\reserved@d=#1%
  \def\reserved@a{#2}\def\reserved@b{#3}%
  \futurelet\@let@token\@ifnch}
\def\@ifnch{%
  \ifx\@let@token\@sptoken
    \let\reserved@c\@xifnch
  \else
    \ifx\@let@token\reserved@d
      \let\reserved@c\reserved@a
    \else
      \let\reserved@c\reserved@b
    \fi
  \fi
  \reserved@c}
\def\:{\let\@sptoken= } \:  % this makes \@sptoken a space token
\def\:{\@xifnch} \expandafter\def\: {\futurelet\@let@token\@ifnch}

\makeatother