test/test15-catcode.tex

   1 %#!luatex
   2
   3 \input luatexbase.sty
   4 \newluatexcatcodetable\CatcodeTablehoge
   5 \input luatexja.sty
   6 \newluatexcatcodetable\CatcodeTablepiyo
   7 \def\testcattable#1{\par\noindent{\tenbf \string#1}\par{%
   8 table: \the#1\quad\luatexcatcodetable#1
   9 U+FFFFF: \the\catcode"FFFFF\quad%"
  10 漢: \the\catcode`漢\quad ß: \the\catcode`ß\quad
  11 @: \the\catcode`@
  12 }}
  13 \chardef\zero0
  14
  15
  16 plain \TeX
  17
  18
  19 \testcattable{\zero}
  20 \testcattable{\CatcodeTableIniTeX}
  21 \testcattable{\CatcodeTableString}
  22 \testcattable{\CatcodeTableOther}
  23 \testcattable{\CatcodeTableLaTeX}
  24 \testcattable{\CatcodeTableLaTeXAtLetter}
  25 \testcattable{\CatcodeTableExpl}
  26 \testcattable{\CatcodeTablehoge}
  27 \testcattable{\CatcodeTablepiyo}
  28
  29 \bigskip
  30
  31 \par\noindent{\tenbf\tengt endlinecharが13でない場合}\par
  32 {\catcode13=12\spaceskip=20pt%
  33 \ltjsetparameter{autoxspacing=false}%
  34 {\endlinechar=`\A\catcode`\A=5
  35 %%%% {\endlinechar=`\A\catcode`\A=5% ではダメ
  36 %%%%（末尾の % のおかげで \catcode 代入が行末までに完結していない）
  37 あいうえお
  38 かきくけこ
  39 C
  40 B}%
  41 あいうえお
  42 かきくけこ
  43 C
  44 B}
  45
  46 {\spaceskip=20pt\ltjsetparameter{autoxspacing=false}%
  47 \endlinechar=`\A\catcode`\A=5
  48 あいうえお
  49 かきくけこ
  50 C
  51 B}
  52 \end