summaryrefslogtreecommitdiff
path: root/info/examples/tip/samplepa.tip
blob: 814f2694059a4e946b16552b2ee4ac7afb404951 (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
% This macro source file is from the four volume series
% "TeX in Practice" by Stephan von Bechtolsheim, published
% 1993 by Springer-Verlag, New York.
% Copyright 1993 Stephan von Bechtolsheim.
% No warranty or liability is assumed.
% This macro may be copied freely if no fees other than
% media cost or shipping charges are charged and as long
% as this copyright and the following source code itself
% is not changed. Please see the series for further information.
%
% Version: 1.0
% Date: May 1, 1993
%
%
% This source code is documented in 27.1.3.3, p. III-402.
% Original source in file "macros7.TEX", starting line 309.
\wlog{L: "samplepa.tip" ["macros7.TEX," l. 309, p. III-402]}%
% This file DOES belong to format "texip."
\catcode`\@ = 11
\newcount\@SampleParCounter
\newcount\@SampleParSentenceCounter
\@SampleParCounter = 1
\def\SamplePar #1#2{%
    \@SampleParSentenceCounter = 0
    Identification of this paragraph: {\it #1}.
    {\it Sample paragraph~\the\@SampleParCounter,
    with~#2 sentences}. So here we go,
    and when you check the number of sentences, then note
    that these first two sentences do {\it not\/} count.
    \loop
        \advance\@SampleParSentenceCounter by 1
        This is one of the many sentences this macro
        generates, to be more specific it is sentence
        number~\the\@SampleParSentenceCounter\space of~#2.
        \ifnum\@SampleParSentenceCounter < #2
    \repeat
    \par
    \global\advance\@SampleParCounter by 1
}
\catcode`\@ = 12