test/test35-lastnodechar.tex

   1  %#!luatex or euptex
   2
   3 \ifx\directlua\undefined\else
   4   \input luatexja.sty
   5   \def\lastnodechar{\numexpr\directlua{luatexja.pltx_composite_last_node_char()}}
   6 \fi
   7
   8 \setbox0=\hbox{あ
   9   \count255=\lastnodechar
  10   \immediate\write16{\the\count255}}% -> 12354
  11 \setbox0=\hbox{\unhbox0
  12   \count255=\lastnodechar
  13   \immediate\write16{\the\count255}}% -> 12354
  14 \setbox0=\hbox{。
  15   \unskip
  16   \count255=\lastnodechar
  17   \immediate\write16{\the\count255}}% -> 12290
  18 \setbox0=\hbox{\unhbox0
  19   \count255=\lastnodechar
  20   \immediate\write16{\the\count255}}% -> -1
  21
  22 \setbox0=\hbox{\tate 、%
  23   \unskip
  24   \count255=\lastnodechar
  25   \immediate\write16{\the\count255}}% -> 12289
  26 \setbox0=\hbox{\tate\unhbox0
  27   \count255=\lastnodechar
  28   \immediate\write16{\the\count255}}% -> 65041 (LuaTeX-ja), 12289 (e-upTeX)
  29
  30 \bye