%% %% This is file `luatexbase-regs.sty', %% generated with the docstrip utility. %% %% The original source files were: %% %% luatexbase-regs.dtx (with options: `texpackage') %% %% See the aforementioned source file(s) for copyright and licensing information. %% \begingroup\catcode61\catcode48\catcode32=10\relax% = and space \catcode123 1 % { \catcode125 2 % } \catcode 35 6 % # \toks0\expandafter{\expandafter\endlinechar\the\endlinechar}% \edef\x{\endlinechar13}% \def\y#1 #2 {% \toks0\expandafter{\the\toks0 \catcode#1 \the\catcode#1}% \edef\x{\x \catcode#1 #2}}% \y 13 5 % carriage return \y 61 12 % = \y 32 10 % space \y 123 1 % { \y 125 2 % } \y 35 6 % # \y 64 11 % @ (letter) \y 10 12 % new line ^^J \y 33 12 % ! \y 36 3 % $ $ (in etex.sty) \y 39 12 % ' \y 40 12 % ( \y 41 12 % ) \y 42 12 % * (in etex.sty) \y 43 12 % + (in etex.sty) \y 44 12 % , (in etex.sty) \y 45 12 % - \y 46 12 % . \y 47 12 % / \y 58 12 % : \y 60 12 % < (in etex.sty) \y 62 12 % > (in etex.sty) \y 91 12 % [ \y 93 12 % ] \y 94 7 % ^ \y 96 12 % ` \toks0\expandafter{\the\toks0 \relax\noexpand\endinput}% \edef\y#1{\noexpand\expandafter\endgroup% \noexpand\ifx#1\relax \edef#1{\the\toks0}\x\relax% \noexpand\else \noexpand\expandafter\noexpand\endinput% \noexpand\fi}% \expandafter\y\csname luatexbase@regs@sty@endinput\endcsname% \begingroup \expandafter\ifx\csname ProvidesPackage\endcsname\relax \def\x#1[#2]{\immediate\write16{Package: #1 #2}} \else \let\x\ProvidesPackage \fi \expandafter\endgroup \x{luatexbase-regs}[2011/05/24 v0.4 Registers allocation for LuaTeX] \begingroup\expandafter\expandafter\expandafter\endgroup \expandafter\ifx\csname RequirePackage\endcsname\relax \input ifluatex.sty \else \RequirePackage{ifluatex} \fi \ifluatex\else \begingroup \expandafter\ifx\csname PackageError\endcsname\relax \def\x#1#2#3{\begingroup \newlinechar10 \errhelp{#3}\errmessage{Package #1 error: #2}\endgroup} \else \let\x\PackageError \fi \expandafter\endgroup \x{luatexbase-regs}{LuaTeX is required for this package. Aborting.}{% This package can only be used with the LuaTeX engine^^J% (command `lualatex' or `luatex').^^J% Package loading has been stopped to prevent additional errors.} \expandafter\luatexbase@regs@sty@endinput% \fi \begingroup\expandafter\expandafter\expandafter\endgroup \expandafter\ifx\csname RequirePackage\endcsname\relax \else \RequirePackage{etex}[1998/03/26] \fi \begingroup\expandafter\expandafter\expandafter\endgroup \expandafter\ifx\csname et@xins\endcsname\relax \begingroup \expandafter\ifx\csname PackageWarningNoLine\endcsname\relax \def\x#1#2{\begingroup\newlinechar10 \immediate\write16{Package #1 warning: #2}\endgroup} \else \let\x\PackageWarningNoLine \fi \expandafter\endgroup \x{luatexbase-regs}{etex macros not loaded!^^J% Registers allocation scheme will not be extended.} \else \ifnum\count270=32768 \count270=65536 \fi \ifnum\count271=32768 \count271=65536 \fi \ifnum\count272=32768 \count272=65536 \fi \ifnum\count273=32768 \count272=65536 \fi \ifnum\count273=32768 \count273=65536 \fi \ifnum\count274=32768 \count274=65536 \fi \ifnum\count275=32768 \count275=65536 \fi \ifnum\count276=32768 \count276=65536 \fi \begingroup \toks0{} \def\@namedef #1{\expandafter \def\csname#1\endcsname} \def\@outerdef#1{\expandafter\outer\expandafter\def\csname#1\endcsname} \def\def@globbox #1#2{\@outerdef{#1}{\et@xglob 4 \box #2}} \def\def@locbox #1#2{\@namedef {#1}{\et@xloc 4 \box #2}} \def\def@globmarks #1#2{\@outerdef{#1}{\et@xglob 6 \marks #2}} \def\def@locmarks #1#2{\@namedef {#1}{\et@xloc 6 \marks #2}} \def\def@et@xgblk#1#2{\@namedef{#1}##1##2##3##4% {\et@xchkblk ##1##2{##4}% {\allocationnumber=\count 26##1 \global \advance \count 26##1 by ##4% \global #2##3=\allocationnumber \wlog {\string ##3=\string ##2blk{\number ##4} at \the \allocationnumber}% }% }} \def\def@et@xlblk#1#2{\@namedef{#1}##1##2##3##4% {\et@xchkblk ##1##2{##4}% {\advance \count 27##1 by -##4% \allocationnumber=\count 27##1 #2##3=\allocationnumber \wlog {\string ##3=\string ##2blk{\number ##4} at \the \allocationnumber \space (local)% }% }% }} \def\alt@globbox #1#2{\@namedef{#1}{\et@xglob 4\box #2}} \def\alt@locbox #1#2{\@namedef{#1}{\et@xloc 4\box #2}} \def\alt@globmarks #1#2{\@namedef{#1}{\et@xglob 6\marks #2}} \def\alt@locmarks #1#2{\@namedef{#1}{\et@xloc 6\marks #2}} \def\alt@et@xgblk#1#2{\@namedef{#1}##1##2##3##4% {\et@xchkblk##1##2{##4}% {\allocationnumber\count26##1% \global\advance\count26##1by##4% \global#2##3\allocationnumber \wlog{\string##3=\string##2blk{\number##4} at \the\allocationnumber}% }% }} \def\alt@et@xlblk#1#2{\@namedef{#1}##1##2##3##4% {\et@xchkblk##1##2{##4}% {\advance\count27##1-##4% \allocationnumber\count27##1% #2##3\allocationnumber \et@xwlog{\string##3=\string##2blk{\number##4} at \the\allocationnumber\space(local)}% }% }} \def\check@def#1{% \csname def@#1\endcsname{test@#1}\mathchardef \expandafter\ifx\csname test@#1\expandafter\endcsname \csname #1\endcsname \expandafter\let\csname #1\endcsname\relax \toks0\expandafter{\the\toks0\csname def@#1\endcsname{#1}\chardef} \else \csname alt@#1\endcsname{test@#1}\mathchardef \expandafter\ifx\csname test@#1\expandafter\endcsname \csname #1\endcsname \toks0\expandafter{\the\toks0\csname alt@#1\endcsname{#1}\chardef} \else \expandafter\show\csname BAD#1\endcsname \fi \fi} \check@def{globbox} \check@def{locbox} \check@def{globmarks} \check@def{locmarks} \check@def{et@xgblk} \check@def{et@xlblk} \expandafter \endgroup \the\toks0 \expandafter\let\csname newcount\endcsname\globcount \expandafter\let\csname newdimen\endcsname\globdimen \expandafter\let\csname newskip\endcsname\globskip \expandafter\let\csname newbox\endcsname\globbox \fi \luatexbase@regs@sty@endinput% \endinput %% %% End of file `luatexbase-regs.sty'.