blob: 5d720303c7010a43f522774d01f1d7c1dc078089 (
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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
%%
%% This is file `localtst.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% localloc.dtx (with options: `test')
%%
%% 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'.
%%
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname ProvidesPackage\endcsname\relax
\else
\NeedsTeXFormat{LaTeX2e}
\ProvidesFile{localtst.tex}%
[1995/09/24 v1.1b %
Additional LaTeX Kernel Macros (local allocation)]
\fi
\edef\FORMAT{%
\expandafter\ifx\csname documentstyle\endcsname\relax 0%
\else\expandafter\ifx\csname documentclass\endcsname\relax
1\else 2\fi\fi}
\immediate\write16{=====>>> You are using %
\ifcase\FORMAT plainTeX\or LaTeX 2.09\or LaTeX 2e\else ??\fi}
\ifcase\FORMAT
\input localloc.sty\relax \or
\documentstyle[localloc]{article}\begin{document}\or
\documentclass{article}\usepackage{localloc}\begin{document}\fi
\tracingstats=1
\def\Message#1{\immediate\write16{#1}}
\def\RegVal#1{\the\csname test#1\endcsname}
\def\ShowSet#1{\if l#1local\else global\fi:
\RegVal{i#1} \RegVal{ii#1}/\RegVal{iii#1}
\RegVal{iv#1}}
\def\ShowAll#1{\Message{#1 -- \ShowSet{g} -- \ShowSet{l}}}
\def\ShowIns{\Message{Insertions:
\the\testinsi, \the\testinsii, \the\testinsiii}}
\chardef\testig=0 \chardef\testil=0
\chardef\testiig=0 \chardef\testiil=0
\chardef\testiiig=0 \chardef\testiiil=0
\chardef\testivg=0 \chardef\testivl=0
\chardef\testinsii=0 \chardef\testinsiii=0
\newinsert\testinsi
{\count0=\testinsi \advance\count0 -2
\loop\csname newbox\endcsname\testig
\ifnum\testig<\count0\repeat}
\newbox\testig \lnewbox\testil
\ShowAll{Level 0}
\begingroup
\lnewbox\testiil \newbox\testiig
\ShowAll{Level 1}
\begingroup
\newbox\testivg \lnewbox\testivl
\ShowAll{Level 2}\ShowIns
\endgroup
\lnewbox\testiiil \newbox\testiiig
\ShowAll{Level 1b}
\csname newinsert\endcsname\testinsii
\ShowIns
\begingroup
\newbox\testivg \lnewbox\testivl
\ShowAll{Level 2}
\endgroup
\ShowAll{Level 1b}
\endgroup
\newinsert\testinsiii
\ShowAll{Level 0}\ShowIns
\begingroup
\lnewbox\testiil \newbox\testiig
\lnewbox\testiiil \newbox\testiiig
\ShowAll{Level 1}
\begingroup
\newbox\testivg \lnewbox\testivl
\newbox\testvg \lnewbox\testvl
\ShowAll{Level 2}\ShowIns
\endgroup
\ShowAll{Level 1}
\endgroup
\ShowAll{Level 0}
\end{document}
%% \CharacterTable
%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%% Digits \0\1\2\3\4\5\6\7\8\9
%% Exclamation \! Double quote \" Hash (number) \#
%% Dollar \$ Percent \% Ampersand \&
%% Acute accent \' Left paren \( Right paren \)
%% Asterisk \* Plus \+ Comma \,
%% Minus \- Point \. Solidus \/
%% Colon \: Semicolon \; Less than \<
%% Equals \= Greater than \> Question mark \?
%% Commercial at \@ Left bracket \[ Backslash \\
%% Right bracket \] Circumflex \^ Underscore \_
%% Grave accent \` Left brace \{ Vertical bar \|
%% Right brace \} Tilde \~}
%%
\endinput
%%
%% End of file `localtst.tex'.
|
