blob: 3db8ed5adbbc80161344c139b9b75fceea5ec2fa (
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 `l3toks.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% l3toks.dtx (with options: `package,trace')
%%
%%
%% EXPERIMENTAL CODE
%%
%% Do not distribute this file without also distributing the
%% source files specified above.
%%
%% Do not distribute a modified version of this file.
%%
%%
%% File: l3toks.dtx Copyright (C) 1990-1998 LaTeX3 project
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{l3toks}
[1998/05/14 v1.0g L3 Experimental Token Registers]
\RequirePackage{l3expan}\par
\def_new:Npn \toks_new:N {}
\let:NN \toks_new:N \newtoks % nick from LaTeX for the moment
\def_new:Npn \toks_clear:N #1{#1\c_empty_toks
}
\def_new:Npn \toks_gclear:N {
\pref_global:D
\toks_clear:N}
\let_new:NN \toks_use:N \the_internal:D
\def_new:Npn \toks_use_clear:N#1{
\exp_after:NN
\toks_clear:N
\exp_after:NN
#1
\toks_use:N#1}
\def_new:Npn \toks_use_gclear:N{
\pref_global:D
\toks_use_clear:N}
\def_new:Npn \toks_put_left:Nn #1{\exp_after:NN\toks_put_left_aux:w
\toks_use:N #1\q_stop #1}
\def_new:Npn \toks_gput_left:Nn {
\pref_global:D
\toks_put_left:Nn}
\def_long_new:Npn \toks_put_left_aux:w #1\q_stop #2#3{#2{#3#1}
}
\def_long_new:Npn \toks_put_right:Nn #1#2{#1\exp_after:NN{\toks_use:N #1#2}
}
\def_new:Npn \toks_gput_right:Nn {
\pref_global:D
\toks_put_right:Nn}
\def_new:Npn \toks_gput_right:Nx {\exp_args:Nnx\toks_gput_right:Nn}
\let_new:NN \toks_set:Nn\use_noop:
\def_new:Npn \toks_set:No {\exp_args:NNo \toks_set:Nn}
\def_new:Npn \toks_set:Nx {\exp_args:NNx \toks_set:Nn}
\let_new:NN \toks_gset:Nn\pref_global:D
\def_new:Npn \toks_gset:No {\exp_args:NNo \toks_gset:Nn}
\def_new:Npn \toks_gset:Nx {\exp_args:NNx \toks_gset:Nn}
\let_new:NN \toks_set_eq:NN \use_noop:
\let_new:NN \toks_gset_eq:NN \pref_global:D
\def_new:Npn\toks_empty:NTF#1{
\tlp_set:No\l_testa_tlp{\toks_use:N#1}
\tlp_empty:NTF\l_testa_tlp}
\tex_toksdef:D \l_tmpa_toks = 255
\toks_new:N \l_tmpb_toks
\toks_new:N \l_tmpc_toks
\toks_new:N \g_tmpa_toks
\toks_new:N \g_tmpb_toks
\toks_new:N \g_tmpc_toks
\toks_new:N \c_empty_toks
%%
%%
%% End of file `l3toks.sty'.
|