%% %% This is file `test-regs-plain.tex', %% generated with the docstrip utility. %% %% The original source files were: %% %% luatexbase-regs.dtx (with options: `testplain') %% %% Written in 2009, 2010 by Manuel Pegourie-Gonnard and Elie Roux. %% %% This work is under the CC0 license. %% See source file 'luatexbase-regs.dtx' for details. %% \input luatexbase-regs.sty \def\checkregister#1{% \edef\newregister{\expandafter\noexpand\csname new#1\endcsname}% \edef\locregister{\expandafter\noexpand\csname loc#1\endcsname}% \count0 1 \loop \newregister\dummy \locregister\dummy \ifnum\count0<30000 \advance\count0 1 \repeat} \checkregister{count} \checkregister{dimen} \checkregister{skip} \checkregister{muskip} \checkregister{box} \checkregister{toks} \checkregister{marks} \count0 1 \loop \ifnum\count0<100 \csname newinsert\endcsname\dummy \advance\count0 1 \repeat \globcountblk \dummy{3000} \globdimenblk \dummy{3000} \globskipblk \dummy{3000} \globmuskipblk\dummy{3000} \globboxblk \dummy{3000} \globtoksblk \dummy{3000} \globmarksblk \dummy{3000} \loccountblk \dummy{1000} \locdimenblk \dummy{1000} \locskipblk \dummy{1000} \locmuskipblk \dummy{1000} \locboxblk \dummy{1000} \loctoksblk \dummy{1000} \locmarksblk \dummy{1000} \bye \endinput %% %% End of file `test-regs-plain.tex'.