From c46a8cff75c54bb399a1879724c1ae8a37b13d66 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 12 Jan 2006 23:55:26 +0000 Subject: expl3 git-svn-id: svn://tug.org/texlive/trunk@897 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/expl3/l3toks.sty | 73 ++++++++++++++++++++++++++++ 1 file changed, 73 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/expl3/l3toks.sty (limited to 'Master/texmf-dist/tex/latex/expl3/l3toks.sty') diff --git a/Master/texmf-dist/tex/latex/expl3/l3toks.sty b/Master/texmf-dist/tex/latex/expl3/l3toks.sty new file mode 100644 index 00000000000..3db8ed5adbb --- /dev/null +++ b/Master/texmf-dist/tex/latex/expl3/l3toks.sty @@ -0,0 +1,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'. -- cgit v1.2.3