summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/expl3/l3toks.sty
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'.