summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/uptex/uptex-base/samples/console_io.tex
blob: d85050972da7ba77f9c28e8923586180779ca4df (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
%%
%% example:
%%   uptex "\def\cjk{jpn}\input" console_io.tex
%%   uptex "\def\cjk{sch}\input" console_io.tex
%%   uptex "\def\cjk{tch}\input" console_io.tex
%%   uptex "\def\cjk{kor}\input" console_io.tex
%%   uptex console_io.tex
%%   ptex "\def\cjk{jis}\input" console_io.tex
%%   ptex console_io.tex
%%   tex console_io.tex
%%

\def\@jpn{jpn}
\def\@sch{sch}
\def\@tch{tch}
\def\@kor{kor}
\def\@jis{jis}

\ifx\cjk\@jpn
 \font\upjpnrm = upjpnrm-h at 10.0pt
 \upjpnrm
\fi
\ifx\cjk\@sch
 \font\upschrm = upschrm-h at 10.0pt
 \upschrm
\fi
\ifx\cjk\@tch
 \font\uptchrm = uptchrm-h at 10.0pt
 \uptchrm
\fi
\ifx\cjk\@kor
 \font\upkorrm = upkorrm-h at 10.0pt
 \upkorrm
\fi
\ifx\cjk\@jis
 \font\jis = jis at 10.0pt
 \jis
\fi

\endlinechar=256\relax

\read16 to\currline
\currline
\immediate\write16{|\currline|}

\end