summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/expl3/l3tlp.sty
blob: 8c7dbfc9339002f430324d7d54a18e7d963e04b9 (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
%%
%% This is file `l3tlp.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% l3tlp.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: l3tlp.dtx Copyright (C) 1990-1998 LaTeX3 project
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{l3tlp}
          [1998/04/20 v1.0d L3 Experimental Token List Pointers]
\RequirePackage{l3basics}\par
 \let_new:NN\tlp_new:Nn\gdef:Npn
\def_long_new:Npn \tlp_clear:N #1{\tlp_set_eq:NN #1\c_empty_tlp}
\def_long_new:Npn \tlp_gclear:N #1{\tlp_gset_eq:NN #1\c_empty_tlp}
\def_new:Npn \tlp_clear:c {\exp_args:Nc \tlp_clear:N}
\def_new:Npn \tlp_gclear:c {\exp_args:Nc \tlp_gclear:N}
\let_new:NN \tlp_clear_new:N \tlp_clear:N
\def_long_new:Npn \tlp_clear_new:c {\exp_args:Nc \tlp_clear_new:N}
\let_new:NN \tlp_gclear_new:N \tlp_gclear:N
\def_long_new:Npn \tlp_gclear_new:c {\exp_args:Nc \tlp_gclear_new:N}
\def_long_new:Npn \tlp_put_left:Nn #1{\exp_after:NN
        \tlp_put_left:aux\exp_after:NN{#1}#1}
\def_new:Npn\tlp_put_left:No{\exp_args:NNo\tlp_put_left:Nn}
\def_long_new:Npn \tlp_gput_left:Nn {
 \pref_global:D
   \tlp_put_left:Nn}
\def_new:Npn\tlp_gput_left:No{\exp_args:NNo\tlp_gput_left:Nn}
\def_long_new:Npn \tlp_put_left:aux #1#2#3{\def:Npn #2{#3#1}
}
\def_long_new:Npn \tlp_put_right:Nn #1#2{\tlp_set:No #1{#1#2}}
\def_long_new:Npn \tlp_gput_right:Nn #1#2{\tlp_gset:No #1{#1#2}}
\def_new:Npn \tlp_gput_right:No {\exp_args:NNo \tlp_gput_right:Nn}
\def_new:Npn \tlp_gput_right:Nx {\exp_args:NNx \tlp_gput_right:Nn}
\def_new:Npn \tlp_put_right:cc {\exp_args:Ncc \tlp_put_right:Nn}
\def_new:Npn \tlp_put_right:No {\exp_args:NNo \tlp_put_right:Nn}
\def_new:Npn \tlp_put_right:Nx {\exp_args:Nnx \tlp_put_right:Nn}
 \def_new:Npn\tlp_set:Nn#1#2{\def:Npn#1{#2}}
 \def_new:Npn\tlp_set:Nx#1#2{\def:Npx#1{#2}}
 \def_new:Npn\tlp_gset:Nn#1#2{\gdef:Npn#1{#2}}
 \def_new:Npn\tlp_gset:Nx#1#2{\gdef:Npx#1{#2}}
 \let_new:NN\tlp_set:No\def:No
 \let_new:NN\tlp_gset:No\gdef:No
 \let_new:NN\tlp_set_eq:NN\let:NwN
 \let_new:NN\tlp_gset_eq:NN\glet:NN
\def_new:Npn \tlp_gset:Nc {
 \pref_global:D
   \tlp_set:Nc}
\def_new:Npn \tlp_set:Nc #1#2{\tlp_set:No #1{\cs:w#2\cs_end:}}
\def_new:Npn \tlp_empty_p:N #1{
  \if_meaning:NN#1\c_empty_tlp \c_true \else: \c_false \fi:}
\def_new:Npn \tlp_empty:NF #1{
 \if_meaning:NN#1\c_empty_tlp
    \exp_after:NN\use_none:nn
 \fi:
 \use:n}
\def_new:Npn \tlp_empty:NTF #1{
 \if_meaning:NN#1\c_empty_tlp
    \exp_after:NN\use_choice_i:nn
 \else:
    \exp_after:NN\use_choice_ii:nn
 \fi:}
\def_new:Npn \tlp_eq:NNF #1#2{
 \if_meaning:NN#1#2
    \exp_after:NN\use_none:nn
 \fi:
 \use:n}
\tlp_new:Nn \c_empty_tlp {}
\tlp_new:Nn \c_relax_tlp {\scan_stop:}

\tlp_new:Nn \g_tmpa_tlp{}
\tlp_new:Nn \g_tmpb_tlp{}

\tlp_new:Nn \l_testa_tlp {}
\tlp_new:Nn \l_testb_tlp {}
\tlp_new:Nn \g_testa_tlp {}
\tlp_new:Nn \g_testb_tlp {}

\tlp_new:Nn \l_tmpa_tlp{}
\tlp_new:Nn \l_tmpb_tlp{}
\def_new:Npn \tlp_to_str:N {\exp_after:NN\tlp_to_str:aux
    \token_to_meaning:N}
\def_new:Npn \tlp_to_str:aux #1>{}
\def_new:Npn\tlp_to_str:c{\exp_args:Nc\tlp_to_str:N}
%% 
%%
%% End of file `l3tlp.sty'.