summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex3/xor/xo-alloc.sty
blob: fe85bf2bbbf1ce2e4d52615fc48ca8e9a9f71f6d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
%%
%% This is file `xo-alloc.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% xo-alloc.dtx  (with options: `package,progress')
%% 
%% Not for distribution
%% 
%% (C) Copyright 1999-2000 Frank Mittelbach, David Carlisle, Chris Rowley
%% All rights reserved.
%% 
%% Not for general distribution. In its present form it is not allowed
%% to put this package onto CD or an archive without consulting the
%% the authors.
%%
%% (C) Copyright 1999-2000 Frank Mittelbach, David Carlisle, Chris Rowley
%% All rights reserved.
%%
%% Not for general distribution. In its present form it is not allowed
%% to put this package onto CD or an archive without consulting the
%% the authors.
%%
\def\@tempa#1: #2.dtx,v #3 #4 #5 #6 #7${
  \ProvidesPackage{#2}[#4 #3 #5 #6]}
\@tempa$Id: xo-alloc.dtx,v 1.4 2000/08/11 07:13:34 latex3 Exp $
\IgnoreWhiteSpace
\chardef\@kludgeins="FC\relax
\global\dimen\@kludgeins \maxdimen
\global\count\@kludgeins 1000
\global\dimen\@kludgeins\z@
\global\skip\@kludgeins\z@
\global\setbox\@kludgeins\box\voidb@x
\insc@unt"FC\relax
\def\newcount{\alloc@0\count\countdef\@kludgeins}
\def\newdimen{\alloc@1\dimen\dimendef\@kludgeins}
\def\newskip{\alloc@2\skip\skipdef\@kludgeins}
\def\newtoks{\alloc@5\toks\toksdef\insc@unt}
\def\newinsert#1{\global\advance\insc@unt \m@ne
  \ch@ck4\insc@unt\box
  \ch@ck5\insc@unt\toks
  \allocationnumber\insc@unt
  \global\chardef#1\allocationnumber
  \wlog{\string#1=\string\insert\the\allocationnumber}}
\newinsert\bx@A
\newinsert\bx@B
\newinsert\bx@C
\newinsert\bx@D
\newinsert\bx@E
\newinsert\bx@F
\newinsert\bx@G
\newinsert\bx@H
\newinsert\bx@I
\newinsert\bx@J
\newinsert\bx@K
\newinsert\bx@L
\newinsert\bx@M
\newinsert\bx@N
\newinsert\bx@O
\newinsert\bx@P
\newinsert\bx@Q
\newinsert\bx@R
\def\@allocating@next#1#2{
  \ifx#2\@empty
    \xdef#2{\noexpand\@elt\csname bx@\the\insc@unt\endcsname}
    \expandafter\newinsert\csname bx@\the\insc@unt\endcsname
  \fi
  \expandafter\@xnext #2\@@#1#2}

\endinput
%%
%% End of file `xo-alloc.sty'.