blob: bb887172a97ccd1dac458ef9011f27870a72cb94 (
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
|
% TSP-TEST.MEX
% test zestawu makr TSP
% Bogus/law Jackowski i Marek Ry/cko
% 24 lipca 1993 r., dotkni/ete 14 lutego 1997 r.
\input split
\input map
\input tsp
\prefixing
\def\wlaz
{%
Wlaz/l pies do kuchni
{i\nobreak} porwa/l mi/esa /cwier{/c,}
{a\nobreak} jaki/s kucharz g/lupi
zar/aba/l go na /smier{/c.}
{A\nobreak} drugi kucharz m/adr{y,}
co lito/s/c {w\nobreak} sercu mia/l
postawi/l mu nagrobek
{i\nobreak} taki napis da}
\edef\lista
{\wlaz{/l:} \wlaz{/l...}}
\def\test
#1% odst/ep zamiast spacji
#2% odst/ep mi/edzy literami
{%
\def\paramtest{#1#2}
\ifx\paramtest\empty\else
% odst/ep zamiast spacji:
\def\tspsp {#1}
% odst/ep mi/edzy literami:
\def\tsplet {#2}
\fi
\leftline{\tt \string\def\string\tspsp\{\tspsp\}\space\space
\string\def\string\tsplet\{\tsplet\}}
\vskip2pt
\expandafter\tsp\expandafter{\lista}
\vskip6pt
\message{.}
}
\font\xxx plr12 scaled \magstep1 \xxx
\baselineskip16.4pt
\vsize24.7cm
\nopagenumbers
\chardef\{"7B
\chardef\}"7D
\message{Prosz/e czeka/c.}
{\tenrm
\line{Test makra {\tt\string\tsp}\hss
1 maja 1996 r.}
\smallskip
\hrule
\vfill
}
\test {} {}% standard
\test {0.555em plus.2777em minus.111em} {.1em}%
\test {0.28em plus.1em minus.111em} {-.05em}%
\test {0.22em plus.1em minus.111em} {-.06em}%
\test {0.333em plus.167em minus.111em} {0em}%
\leftline{\tt zwyk/ly tekst:}\vskip2pt
\tsp {\lista}% bez u/zycia makra
\eject\end
|