diff options
author | Karl Berry <karl@freefriends.org> | 2009-06-09 23:31:15 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-06-09 23:31:15 +0000 |
commit | 215b9a864d5829070bdc66ba736986eb72e5143e (patch) | |
tree | fe0882c81fc4ec945cee4b512f72eaa21ea5f791 /Master/texmf-dist/tex/latex/expl3/l3precom.sty | |
parent | df90ec06321940c2f066b05e12f1b5ab099105da (diff) |
expl3 1407 (9jun09)
git-svn-id: svn://tug.org/texlive/trunk@13686 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/expl3/l3precom.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/expl3/l3precom.sty | 74 |
1 files changed, 37 insertions, 37 deletions
diff --git a/Master/texmf-dist/tex/latex/expl3/l3precom.sty b/Master/texmf-dist/tex/latex/expl3/l3precom.sty index 39bf566c3f8..c8a07a52680 100644 --- a/Master/texmf-dist/tex/latex/expl3/l3precom.sty +++ b/Master/texmf-dist/tex/latex/expl3/l3precom.sty @@ -15,7 +15,7 @@ %% Do not distribute a modified version of this file. %% %% -%% File: l3precom.dtx Copyright (C) 1990-2006 Frank Mittelbach, LaTeX3 project +%% File: l3precom.dtx Copyright (C) 1990-2006,2009 Frank Mittelbach, LaTeX3 project %% %% It may be distributed and/or modified under the conditions of the %% LaTeX Project Public License (LPPL), either version 1.3c of this @@ -33,7 +33,7 @@ %% %% The development version of the bundle can be found at %% -%% http://www.latex-project.org/cgi-bin/cvsweb.cgi/ +%% http://www.latex-project.org/svnroot/experimental/trunk/ %% %% for those people who are interested. %% @@ -48,7 +48,7 @@ %% %% ----------------------------------------------------------------------- \RequirePackage{l3names} -\GetIdInfo$Id: l3precom.dtx 621 2007-09-01 20:14:19Z morten $ +\GetIdInfo$Id: l3precom.dtx 1362 2009-05-28 20:19:21Z joseph $ {L3 Experimental precompilation module} \ProvidesExplPackage {\filename}{\filedate}{\fileversion}{\filedescription} @@ -57,83 +57,83 @@ \RequirePackage{l3seq} \RequirePackage{l3int} \iow_new:N\c_cs_dump_stream -\tlp_new:Nn\g_cs_dump_name_tlp{} +\tl_new:Nn\g_cs_dump_name_tl{} \seq_new:N\g_cs_dump_seq -\def_new:Npn\cs_record_name:N#1{ +\cs_new_nopar:Npn\cs_record_name:N#1{ \seq_gput_left:Nn \g_cs_trace_seq#1 \seq_gput_left:Nn \g_cs_dump_seq#1} -\def_new:Npn\cs_record_name:c{\exp_args:Nc\cs_record_name:N} -\def_new:Npn\cs_dump:{ -\iow_expanded_term:n{Precompiling~style~into~(\g_cs_dump_name_tlp)} -\iow_open:Nn\c_cs_dump_stream{\g_cs_dump_name_tlp} -\iow_expanded:Nn\c_cs_dump_stream +\cs_generate_variant:Nn \cs_record_name:N {c} +\cs_new_nopar:Npn\cs_dump:{ +\iow_term:x{Precompiling~style~into~(\g_cs_dump_name_tl)} +\iow_open:Nn\c_cs_dump_stream{\g_cs_dump_name_tl} +\iow_now:Nx\c_cs_dump_stream {\group_begin: -\tex_catcode:D`\token_to_string:N\*=11\scan_stop: -\token_to_string:N\CodeStart +\tex_catcode:D`\token_to_str:N\*=11\scan_stop: +\token_to_str:N\ExplSyntaxOn } \seq_map_inline:Nn \g_cs_dump_seq {\tex_message:D{.} -\iow_expanded:Nn\c_cs_dump_stream - {\exp_not:n{\gdef:Npn ##1} - {\tlp_to_str:N##1}} +\iow_now:Nx\c_cs_dump_stream + {\exp_not:n{\cs_gset_nopar:Npn ##1} + {\tl_to_str:N##1}} } -\iow_expanded:Nn \c_cs_dump_stream {\exp_not:n{\num_gset:Nn +\iow_now:Nx \c_cs_dump_stream {\exp_not:n{\num_gset:Nn \g_gen_sym_num} {\num_use:N\g_gen_sym_num}^^J \exp_not:n{\num_gset:Nn \g_ggen_sym_num} {\num_use:N\g_ggen_sym_num}} -\iow_expanded:Nn +\iow_now:Nx \c_cs_dump_stream {\group_end:} \iow_close:N\c_cs_dump_stream \tex_message:D{~finished} } -\def_new:Npn\cs_load_dump:n#1{ +\cs_new_nopar:Npn\cs_load_dump:n#1{ \file_not_found:nTF{#1.cmp} -{\tlp_gset:Nn\g_cs_dump_name_tlp{#1.cmp}} +{\tl_gset:Nn\g_cs_dump_name_tl{#1.cmp}} {\input{#1.cmp} -\let:NN\cs_dump:\fi: +\cs_set_eq:NN\cs_dump:\fi: \if_false:}} \num_new:N\g_gen_sym_num \num_gset:Nn\g_gen_sym_num{0} \num_new:N\g_ggen_sym_num \num_gset:Nn\g_ggen_sym_num{0} -\def_new:Npn\cs_gen_sym:N#1{ +\cs_new_nopar:Npn\cs_gen_sym:N#1{ \num_gincr:N\g_gen_sym_num -\tlp_set:Nc#1{l*\tex_romannumeral:D\num_use:N\g_gen_sym_num} -\exp_after:NN\cs_record_name:N#1 -\exp_after:NN\tlp_clear_new:N#1} -\def_new:Npn\cs_ggen_sym:N#1{ +\tl_set:Nc#1{l*\tex_romannumeral:D\num_use:N\g_gen_sym_num} +\exp_after:wN\cs_record_name:N#1 +\exp_after:wN\tl_clear_new:N#1} +\cs_new_nopar:Npn\cs_ggen_sym:N#1{ \num_gincr:N\g_ggen_sym_num -\tlp_set:Nc#1{g*\tex_romannumeral:D\num_use:N\g_ggen_sym_num} -\exp_after:NN\cs_record_name:N#1 -\exp_after:NN\tlp_clear_new:N#1} +\tl_set:Nc#1{g*\tex_romannumeral:D\num_use:N\g_ggen_sym_num} +\exp_after:wN\cs_record_name:N#1 +\exp_after:wN\tl_clear_new:N#1} \seq_new:N\g_cs_trace_seq \seq_new:N\g_register_trace_seq -\def:Npn\cs_record_meaning:N#1{ +\cs_set_nopar:Npn\cs_record_meaning:N#1{ \seq_gput_left:Nn \g_cs_trace_seq#1} -\def:Npn\register_record_name:N#1{ +\cs_set_nopar:Npn\register_record_name:N#1{ \seq_gput_left:Nn \g_register_trace_seq#1} -\def_new:Npn\dumpLaTeXstate#1{ - \iow_expanded_term:n{Dumping~commands~into~(#1.dmp)} +\cs_new_nopar:Npn\dumpLaTeXstate#1{ + \iow_term:x{Dumping~commands~into~(#1.dmp)} \iow_open:Nn\c_cs_dump_stream{#1.dmp} \seq_map_inline:Nn \g_cs_trace_seq {\tex_message:D{.} - \iow_expanded:Nn\c_cs_dump_stream - {\token_to_string:N##1~ + \iow_now:Nx\c_cs_dump_stream + {\token_to_str:N##1~ \token_to_meaning:N##1} } \tex_message:D{~registers} \seq_map_inline:Nn \g_register_trace_seq {\tex_message:D{.} - \iow_expanded:Nn\c_cs_dump_stream - {\token_to_string:N##1 - \the_internal:D##1} + \iow_now:Nx\c_cs_dump_stream + {\token_to_str:N##1 + \toks_use:N##1} } \tex_message:D{~finished} } |