diff options
Diffstat (limited to 'Master/texmf-dist/tex/plain/gustlib/map/tsp-tst.mex')
-rw-r--r-- | Master/texmf-dist/tex/plain/gustlib/map/tsp-tst.mex | 68 |
1 files changed, 68 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/plain/gustlib/map/tsp-tst.mex b/Master/texmf-dist/tex/plain/gustlib/map/tsp-tst.mex new file mode 100644 index 00000000000..bb887172a97 --- /dev/null +++ b/Master/texmf-dist/tex/plain/gustlib/map/tsp-tst.mex @@ -0,0 +1,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 |