print(...)
tex.print('\\par ', ...)
end}}
-\unless\ifdefined\ltjgetwd \def\ltjgetwd#1{\wd#1}\fi
+\unless\ifdefined\ltjgetwd \let\ltjgetwd\wd\fi
\def\dumplist#1{\par\noindent\leavevmode
-{\dimen0=\ltjgetwd{#1}}%
+{\dimen0=\ltjgetwd#1}%
\hbox to 0.2\hsize{\copy#1\hss}%
\vbox{\hsize=0.6\hsize\sixtt\baselineskip=7.2pt\sixgt\let\\=\relax
\directlua{print('======')
print('======')}\hrule}%
}
+\catcode`_=12
%\tracingonline=1\tracingoutput=1\showboxdepth=3\showboxbreadth=100
\head{JA--JA (penなし)}
\setbox0=\hbox{\rmlh あa}\dumplist0
+\setbox0=\hbox{\rmlh あ(}\dumplist0
+
+\setbox0=\hbox{\rmlh あ)}\dumplist0
+
\setbox0=\hbox{\rmlh いa}\dumplist0
\setbox0=\hbox{\rmlh うa}\dumplist0
\setbox0=\hbox{\rmlh aあ}\dumplist0
+\setbox0=\hbox{\rmlh (あ}\dumplist0
+
+\setbox0=\hbox{\rmlh )あ}\dumplist0
+
\setbox0=\hbox{\rmlh aい}\dumplist0
\setbox0=\hbox{\rmlh aう}\dumplist0