<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">%% 
%% This is file `localloc.sty',
%% generated with the docstrip utility.
%% 
%% The original source files were:
%% 
%% localloc.dtx  (with options: `package')
%% 
%% This is a file of the `localloc' package reimplementing 
%% plain-TeX's and LaTeX's basic allocation macros to allow 
%% local allocation of registers. 
%% 
%% -- Copyright (C) 1991-1995 Bernd Raichle. All rights reserved -- 
%% 
%% This package is distributed in the hope that it will be useful, 
%% but WITHOUT ANY WARRANTY; without even the implied warranty of 
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 
%% 
%% 
%% IMPORTANT NOTICE: 
%% 
%% Copying of this file is authorized only if either 
%% (1) you make absolutely no changes to your copy, including name, or 
%% (2) if you do make changes, you name it something other than 
%% localloc.dtx, localloc.doc, localloc.tex, or localloc.sty. 
%% 
%% For error reports see original source file `localloc.dtx'. 
%% 
\expandafter\ifx\csname lnewcount\endcsname\relax
\else \expandafter\endinput \fi
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname ProvidesPackage\endcsname\relax
\else
  \NeedsTeXFormat{LaTeX2e}
  \ProvidesPackage{localloc}%
    [1995/09/24 v1.1b %
     Additional LaTeX Kernel Macros (local allocation)]
\fi
\expandafter\chardef\csname lcllc@at\endcsname=\catcode`\@
\catcode`\@=11 % \makeatletter
\def\lcllc@cnvmutocnt#1{\expandafter\lcllc@delmukey\the#1}
\begingroup \catcode`\M=12 \catcode`\U=12 \catcode`\.=12
  \lowercase{\endgroup
\def\lcllc@delmukey#1.#2MU{#1}}
\countdef\count@ptr    = 10
\countdef\dimen@ptr    = 11
\countdef\skip@ptr     = 12
\countdef\muskip@ptr   = 13
\countdef\box@ptr      = 14
\countdef\toks@ptr     = 15
\countdef\read@ptr     = 16
\countdef\write@ptr    = 17
\countdef\mathfam@ptr  = 18
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname newlanguage\endcsname\relax
  \csname newcount\endcsname\language@ptr
\else
  \countdef\language@ptr = 19
\fi
\newmuskip\count@limit  \count@limit  = \the\insc@unt mu
\newmuskip\dimen@limit  \dimen@limit  = \the\insc@unt mu
\newmuskip\skip@limit   \skip@limit   = \the\insc@unt mu
\newmuskip\box@limit    \box@limit    = \the\insc@unt mu
\newmuskip\muskip@limit \muskip@limit = 256mu
\newmuskip\toks@limit   \toks@limit   = 256mu
\newmuskip\cclvi@mu     \cclvi@mu     = 256mu
\newmuskip\xvi@mu       \xvi@mu       = 16mu
\def\newcount  {\alloc@\count@ptr  \count@limit \count  1\countdef }
\def\newdimen  {\alloc@\dimen@ptr  \dimen@limit \dimen  1\dimendef }
\def\newskip   {\alloc@\skip@ptr   \skip@limit  \skip   1\skipdef  }
\def\newmuskip {\alloc@\muskip@ptr \muskip@limit\muskip 0\muskipdef}
\def\newbox    {\alloc@\box@ptr    \box@limit   \box    1\chardef  }
\def\newtoks   {\alloc@\toks@ptr   \toks@limit  \toks   0\toksdef  }
\def\newread   {\alloc@\read@ptr   \xvi@mu      \read   0\chardef  }
\def\newwrite  {\alloc@\write@ptr  \xvi@mu      \write  0\chardef  }
\def\newfam    {\alloc@\mathfam@ptr\xvi@mu      \fam    0\chardef  }
\def\newlanguage{\alloc@\lang@ptr  \cclvi@mu   \language0\chardef  }
\def\lnewcount {\lalloc@\count@ptr \count@limit \count  1\countdef }
\def\lnewdimen {\lalloc@\dimen@ptr \dimen@limit \dimen  1\dimendef }
\def\lnewskip  {\lalloc@\skip@ptr  \skip@limit  \skip   1\skipdef  }
\def\lnewmuskip{\lalloc@\muskip@ptr\muskip@limit\muskip 0\muskipdef}
\def\lnewbox   {\lalloc@\box@ptr   \box@limit   \box    1\chardef  }
\def\lnewtoks  {\lalloc@\toks@ptr  \toks@limit  \toks   0\toksdef  }
\def\lcllc@insnums{}
\def\lcllc@checkins#1{%
  \begingroup
    \def\do##1.{%
      \ifnum##1=\allocationnumber
        \advance\allocationnumber#1\relax
        \noexpand\lcllc@checkins{#1}%
      \fi}%
    \edef\x{\endgroup \lcllc@insnums}%
  \x}
\def\alloc@#1#2#3#4{%
  \allocationnumber#1%
  \advance\allocationnumber\@ne
  \ifnum#4=\@ne \lcllc@checkins\@ne \fi
  \global#1\allocationnumber
  \ch@ck#1#2#3%
  \lcllc@def\global{}#3}
\def\lalloc@#1#2#3#4{%
  \allocationnumber\lcllc@cnvmutocnt#2%
  \advance\allocationnumber\m@ne
  \ifnum#4=\@ne \lcllc@checkins\m@ne \fi
  #2\the\allo</pre></body></html>