texlive[43945] Master/texmf-dist: morewrites (20apr17)
commits+karl at tug.org
commits+karl at tug.org
Thu Apr 20 23:10:32 CEST 2017
Revision: 43945
http://tug.org/svn/texlive?view=revision&revision=43945
Author: karl
Date: 2017-04-20 23:10:32 +0200 (Thu, 20 Apr 2017)
Log Message:
-----------
morewrites (20apr17)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/latex/morewrites/morewrites.pdf
trunk/Master/texmf-dist/doc/latex/morewrites/primargs.pdf
trunk/Master/texmf-dist/source/latex/morewrites/morewrites.dtx
trunk/Master/texmf-dist/tex/latex/morewrites/morewrites.sty
Modified: trunk/Master/texmf-dist/doc/latex/morewrites/morewrites.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/latex/morewrites/primargs.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/source/latex/morewrites/morewrites.dtx
===================================================================
--- trunk/Master/texmf-dist/source/latex/morewrites/morewrites.dtx 2017-04-20 21:10:21 UTC (rev 43944)
+++ trunk/Master/texmf-dist/source/latex/morewrites/morewrites.dtx 2017-04-20 21:10:32 UTC (rev 43945)
@@ -26,7 +26,7 @@
% \title{The \textsf{morewrites} package: \\
% Always room for a new \tn{write}}
% \author{Bruno Le Floch}
-% \date{2017/04/10}
+% \date{2017/04/20}
%
% \maketitle
% \tableofcontents
@@ -35,13 +35,10 @@
%
% \section{\pkg{morewrites} documentation}
%
-% This \LaTeX{} package is a solution for the errors
-% \begin{itemize}
-% \item \enquote{no room for a new \tn{write}},
-% \item \enquote{no room for a new \tn{read}},
-% \end{itemize}
-% which occur when a document reserves too many streams to write data
-% to various auxiliary files or read from them.
+% This \LaTeX{} package is a solution for the error
+% \enquote{no room for a new \tn{write}},
+% which occurs when a document reserves too many streams to write data
+% to various auxiliary files.
% It is in principle possible to rewrite other packages so that they
% are less greedy on resources, but that is often unpractical for the
% end-user. Instead, \pkg{morewrites} hooks at the lowest level (\TeX{}
@@ -49,7 +46,7 @@
%
% Simply add the line |\usepackage{morewrites}| near the beginning of
% your \LaTeX{} file's preamble: the \enquote{no room for a new
-% \tn{write}/\tn{read}} error should vanish. If it does not, please
+% \tn{write}} error should vanish. If it does not, please
% contact me so that I can correct the problem. This can be done by
% posting a question on the \url{tex.stackexchange.com} question and
% answers website, logging an issue on GitHub
@@ -85,7 +82,7 @@
% \end{syntax}
% Sets to (at least) \meta{integer} the number of \tn{write} streams
% allocated to the inner workings of \pkg{morewrites}. By default
-% this is zero but increasing this value may speed up
+% this is zero but increasing this value to 10 (or so) may speed up
% \pkg{morewrites}.
% \end{function}
%
@@ -101,15 +98,14 @@
% remaining.
% \end{function}
%
-% \begin{function}[updated = 2015-08-01]{\newread, \newwrite}
-% These macros are redefined by \pkg{morewrites}.
-% Since \pkg{morewrites} allows more than~$16$ read/write streams, it
-% removes the corresponding restrictions in \tn{newread} and
-% \tn{newwrite}.
+% \begin{function}[updated = 2015-08-01]{\newwrite}
+% This macro is redefined by \pkg{morewrites}. Since \pkg{morewrites}
+% allows more than~$16$ write streams, it removes the corresponding
+% restrictions in \tn{newwrite}.
% \begin{texnote}
-% The revised \tn{newread} and \tn{newwrite} allocate stream
-% numbers starting at $19$. This might break some
-% code that expects stream numbers to be less than $16$.
+% The revised \tn{newwrite} allocate stream numbers starting at
+% $19$. This might break some code that expects stream numbers to
+% be less than $16$.
% \end{texnote}
% \end{function}
%
@@ -119,10 +115,10 @@
% appropriate action.
% \end{function}
%
-% \begin{function}[updated = 2015-08-01]{\openin, \read, \readline, \closein, \openout, \write, \closeout}
-% These seven primitives are altered by \pkg{morewrites} so that they
+% \begin{function}[updated = 2017-04-20]{\openout, \write, \closeout}
+% These three primitives are altered by \pkg{morewrites} so that they
% accept stream numbers outside the normal range $[0,15]$ and
-% open/read/write/close files as appropriate.
+% open/write/close files as appropriate.
% \begin{texnote}
% System calls using \tn{write}|18| are detected and forwarded to the engine.
% \end{texnote}
@@ -158,7 +154,7 @@
\RequirePackage {expl3} [2017/03/18]
\RequirePackage {primargs} [2017/04/10]
\ProvidesExplPackage
- {morewrites} {2017/04/10} {} {Always room for a new write}
+ {morewrites} {2017/04/20} {} {Always room for a new write}
% \end{macrocode}
%
% Quit early under \LuaTeX{}.
@@ -180,13 +176,15 @@
% \subsection{Overview of relevant \TeX{} facts}
%
% The aim of the \pkg{morewrites} package is to lift \TeX{}'s
-% restriction of only having $16$ files open for reading at the same
-% time, and the same restriction for writing. This requires patching
-% the primitives \tn{openin}, \tn{read}, \tn{readline}, \tn{closein},
-% \tn{immediate}, \tn{openout}, \tn{write}, \tn{closeout}, and
-% \tn{shipout}, and the macros \tn{newread} and \tn{newwrite} present
-% in plain \TeX{} and \LaTeXe{}.
+% restriction of only having $16$ files open for writing at the same
+% time. This requires patching the primitives \tn{immediate},
+% \tn{openout}, \tn{write}, \tn{closeout}, and \tn{shipout}, and the
+% macro \tn{newwrite} present in plain \TeX{} and \LaTeXe{}.
%
+% Note that doing the same for \tn{read} streams is impossible due to
+% the \tn{ifeof} primitive: that primitive cannot be replaced by a macro
+% without breaking nesting of conditionals.
+%
% The \pkg{morewrites} package should be loaded as early as possible, so
% that any package loaded later uses the redefined macros instead of the
% primitives. However, the format (plain \TeX{} or \LaTeXe{}) and the
@@ -194,27 +192,21 @@
% \pkg{morewrites}, and their interaction must be carefully monitored.
%
% Henceforth, ``\TeX{} stream'' will refer to stream numbers in the
-% range $[0,15]$ provided to \TeX{}'s read/write primitives, while
+% range $[0,15]$ provided to \TeX{}'s write primitives, while
% ``user stream'' will denote stream numbers in $[0,15]\cup[19,\infty)$
-% manipulated by the redefined \tn{openin}, \tn{read}, \tn{readline},
-% \tn{closein}, \tn{openout}, \tn{write}, \tn{closeout}, \tn{newread},
+% manipulated by the redefined \tn{openout}, \tn{write}, \tn{closeout},
% and \tn{newwrite}. A user stream in $[0,15]$ (reserved by \LaTeXe{}
% or allocated by \pkg{expl3}) is mapped to the same \TeX{} stream
% number, while a user stream in $[19,\infty)$ is mapped to a \TeX{}
-% stream according to the property lists (with integer keys and values)
-% \cs{l_@@_read_prop} and \cs{l_@@_write_prop}. Stream numbers $16$,
+% stream according to the property list (with integer keys and values)
+% \cs{l_@@_write_prop}. Stream numbers $16$,
% $17$ and $18$ are unused because \tn{write}16 is often used to write
% to the terminal, and \tn{write}18 sends its argument to a shell.
%
-% The primitives \tn{openin}, \tn{read}, \tn{readline}, \tn{closein},
-% \tn{openout}, \tn{write}, and \tn{closeout} expect to be followed by
-% an \meta{integer}, normally in the range $[0,15]$, then some further
-% arguments.
+% The primitives \tn{openout}, \tn{write}, and \tn{closeout} expect to
+% be followed by an \meta{integer}, normally in the range $[0,15]$, then
+% some further arguments.
% \begin{quote}
-% \tn{openin} \meta{integer} \meta{equals} \meta{file name} \\
-% \tn{read} \meta{integer} \texttt{to} \meta{control sequence} \\
-% \tn{readline} \meta{integer} \texttt{to} \meta{control sequence} \\
-% \tn{closein} \meta{integer} \\
% \tn{openout} \meta{integer} \meta{equals} \meta{file name} \\
% \tn{write} \meta{integer} \meta{filler} \meta{general text} \\
% \tn{closeout} \meta{integer}
@@ -246,7 +238,7 @@
% assignment of the form \tn{toks}|0=|\meta{general text}.
% \end{itemize}
%
-% The \pkg{morewrites} package redefines these seven control sequences
+% The \pkg{morewrites} package redefines these three control sequences
% to expect a user stream number rather than a \TeX{} stream number as
% the \meta{integer}, then map such a user stream to a \TeX{} stream to
% call the primitive with the appropriate argument. The primitive
@@ -253,22 +245,18 @@
% \tn{immediate} must also be redefined to detect \tn{openout},
% \tn{write}, and \tn{closeout} and make them immediate, while still
% working with other primitives that can be made immediate. Finally,
-% \tn{newread} and \tn{newwrite} must be patched to allocate stream
-% numbers beyond $15$.
+% \tn{newwrite} must be patched to allocate stream numbers beyond $15$.
%
% A few comments on the behaviour of primitives concerning the
-% \meta{integer} (\TeX{} stream). The primitives \tn{openin} and
-% \tn{openout} trigger errors if the \meta{integer} is not in $[0,15]$.
-% The primitives \tn{read} and \tn{readline} prompt the user for input
-% if the \TeX{} stream is closed or beyond $[0,15]$, with no explicit
-% prompt if the stream number is negative. The primitive \tn{write}
-% outputs to the log if the \meta{integer} is negative, and to the
-% terminal if the \TeX{} stream is closed or greater than $15$, with the
-% exception of \tn{write}|18| which runs code in a shell. The
-% primitives \tn{closein} and \tn{closeout} trigger errors if the
-% \meta{integer} is not in $[0,15]$ and silently do nothing if the
-% \TeX{} stream is not open, with the exception of \tn{closeout}|18|
-% which causes a segfault at least in some versions.
+% \meta{integer} (\TeX{} stream). The \tn{openout} primitive trigger
+% errors if the \meta{integer} is not in $[0,15]$. The primitive
+% \tn{write} outputs to the log if the \meta{integer} is negative, and
+% to the terminal if the \TeX{} stream is closed or greater than $15$,
+% with the exception of \tn{write}|18| which runs code in a shell. The
+% \tn{closeout} primitive triggers an error if the \meta{integer} is not
+% in $[0,15]$ and silently do nothing if the \TeX{} stream is not open,
+% with the exception of \tn{closeout}|18| which causes a segfault at
+% least in some versions.
%
% By default, \tn{openout}, \tn{write} and \tn{closeout} are recorded in
% a whatsit node in the current list, and will be performed when the box
@@ -276,9 +264,9 @@
% \emph{i.e.}, at \enquote{shipout} time. In particular, the
% \meta{general text} for the \tn{write} primitive is expanded at
% shipout time. This behaviour may be modified by putting
-% \tn{immediate} before any of these three primitives to force
-% \TeX{} to perform the action immediately instead of recording it in a
-% whatsit node.
+% \tn{immediate} before any of these three primitives to force \TeX{} to
+% perform the action immediately instead of recording it in a whatsit
+% node.
%
% Since the \tn{openout}, \tn{write}, and \tn{closeout} primitives
% operate at \tn{shipout} time, we will have to hook into this primitive
@@ -285,10 +273,10 @@
% too. It expects to be followed by a box specification, for instance
% \tn{box}\meta{integer} or \tn{hbox}\Arg{material to typeset}.
%
-% Finally, the \tn{newread} and \tn{newwrite} macros expect one token as
-% their argument, and define this token (with \tn{chardef}) to be an
-% integer corresponding to the first available (\TeX{}) read/write
-% stream. This must be extended to allocate higher (user) streams.
+% Finally, the \tn{newwrite} macro expects one token as its argument,
+% and defines this token (with \tn{chardef}) to be an integer
+% corresponding to the first available (\TeX{}) write stream. This must
+% be extended to allocate higher (user) streams.
%
% \subsection{Preliminaries}
%
@@ -300,12 +288,8 @@
% \@@_tex_openout:w ,
% \@@_tex_write:w ,
% \@@_tex_closeout:w ,
-% \@@_tex_openin:w ,
-% \@@_tex_read:w ,
-% \@@_tex_readline:w ,
-% \@@_tex_closein:w ,
% }
-% Aliases for the read- and write-related primitives, to avoid
+% Aliases for the write-related primitives, to avoid
% having |:D| throughout the code.
% \begin{macrocode}
\cs_new_eq:NN \@@_tex_immediate:w \tex_immediate:D
@@ -312,20 +296,14 @@
\cs_new_eq:NN \@@_tex_openout:w \tex_openout:D
\cs_new_eq:NN \@@_tex_write:w \tex_write:D
\cs_new_eq:NN \@@_tex_closeout:w \tex_closeout:D
-\cs_new_eq:NN \@@_tex_openin:w \tex_openin:D
-\cs_new_eq:NN \@@_tex_read:w \tex_read:D
-\cs_new_eq:NN \@@_tex_readline:w \etex_readline:D
-\cs_new_eq:NN \@@_tex_closein:w \tex_closein:D
% \end{macrocode}
% \end{macro}
%
-% \begin{macro}[aux]{\@@_tex_newread:N, \@@_tex_newwrite:N}
-% Copy \tn{newread} and \tn{newwrite} but making sure that they are
-% not \tn{outer}. These copies will not be affected by redefinitions
-% of \tn{newread} and \tn{newwrite} later on.
+% \begin{macro}[aux]{\@@_tex_newwrite:N}
+% Copy \tn{newwrite} but making sure that it is
+% not \tn{outer}. This copy will not be affected by redefinitions
+% of \tn{newwrite} later on.
% \begin{macrocode}
-\exp_args:NNf \cs_new_protected:Npn \@@_tex_newread:N
- { \exp_args:NNc \exp_after:wN \exp_stop_f: { newread } }
\exp_args:NNf \cs_new_protected:Npn \@@_tex_newwrite:N
{ \exp_args:NNc \exp_after:wN \exp_stop_f: { newwrite } }
% \end{macrocode}
@@ -377,19 +355,17 @@
% \end{variable}
%
% ^^A todo: populate \g_@@_write_seq because we don't use \newwrite; this should be done in \morewritessetup
-% \begin{variable}[aux]{\g_@@_read_seq, \g_@@_write_seq}
+% \begin{variable}[aux]{\g_@@_write_seq}
% Keep track of \TeX{} stream numbers managed by \pkg{morewrites} that
% are currently not in use as user streams.
% \begin{macrocode}
-\seq_new:N \g_@@_read_seq
\seq_new:N \g_@@_write_seq
% \end{macrocode}
% \end{variable}
%
-% \begin{variable}[aux]{\g_@@_read_prop, \g_@@_write_prop}
+% \begin{variable}[aux]{\g_@@_write_prop}
% Map user streams to \TeX{} streams.
% \begin{macrocode}
-\prop_new:N \g_@@_read_prop
\prop_new:N \g_@@_write_prop
% \end{macrocode}
% \end{variable}
@@ -421,8 +397,7 @@
% \end{variable}
%
% \begin{variable}[aux]{\l_@@_tstr_token}
-% This token is given as an argument to \cs{@@_tex_newread:N} or
-% \cs{@@_tex_newwrite:N}.
+% This token is given as an argument to \cs{@@_tex_newwrite:N}.
% \begin{macrocode}
\cs_new_eq:NN \l_@@_tstr_token ?
% \end{macrocode}
@@ -612,11 +587,10 @@
% The goal is to go from a user stream \cs{l_@@_user_int} to a \TeX{}
% stream \cs{l_@@_tstr_tl} (it defaults to the user stream). Streams
% less than $19$ are not managed by \pkg{morewrites}: actual \TeX{}
-% streams in $[0,15]$; negative for writing to \texttt{log} and
-% reading without prompt; $16$, $17$ for writing to terminal and
-% reading with prompt; $18$ for shell escape. Larger stream numbers
-% are looked up in the property list |#1|, either \cs{g_@@_read_prop}
-% or \cs{g_@@_write_prop}. If present, use the corresponding value as
+% streams in $[0,15]$; negative for writing to \texttt{log}; $16$,
+% $17$ for writing to terminal; $18$ for shell escape. Larger stream
+% numbers are looked up in the property list |#1|, namely
+% \cs{g_@@_write_prop}. If present, use the corresponding value as
% the \TeX{} stream, otherwise run the \texttt{false} branch.
% \begin{macrocode}
\cs_new_protected:Npn \@@_user_to_tstr:NTF #1
@@ -696,98 +670,16 @@
% \end{macrocode}
% \end{macro}
%
-% \subsection{Reading}
-%
-% \begin{macro}[aux]{\@@_openin:w}
-% Set \cs{l_@@_user_int} to a user stream then convert it to a \TeX{}
-% stream \cs{l_@@_tstr_tl} and call the primitive. If the user stream
-% is closed (not associated to any \TeX{} stream), the \texttt{false}
-% branch of \cs{@@_user_to_tstr:NTF} is taken. Then get a stream from
-% \cs{g_@@_read_seq} (\TeX{} streams managed by \pkg{morewrites} but
-% not in use) or use the copy of \tn{newread} as a fallback. Store
-% the new mapping from user stream to \TeX{} stream into
-% \cs{g_@@_read_prop}.
-% \begin{macrocode}
-\cs_new_protected:Npn \@@_openin:w
- {
- \@@_get_user:n
- {
- \@@_user_to_tstr:NTF \g_@@_read_prop { }
- {
- \seq_pop:NNF \g_@@_read_seq \l_@@_tstr_tl
- {
- \@@_tex_newread:N \l_@@_tstr_token
- \tl_set:NV \l_@@_tstr_tl \l_@@_tstr_token
- }
- \prop_gput:NVV \g_@@_read_prop \l_@@_user_int \l_@@_tstr_tl
- }
- \@@_tex_openin:w \l_@@_tstr_tl \exp_stop_f:
- }
- }
-% \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}[aux]{\@@_read:w, \@@_readline:w}
-% Set \cs{l_@@_user_int} to a user stream and convert it to a \TeX{}
-% stream \cs{l_@@_tstr_tl} then call the primitive. Nothing needs to
-% be done for streams not managed by \pkg{morewrites} or for user
-% streams that do not correspond to any \TeX{} stream, as the
-% primitive will simply read user input from the terminal as \TeX{}
-% would do.
-% \begin{macrocode}
-\cs_new_protected:Npn \@@_read:w
- {
- \@@_get_user:n
- {
- \@@_user_to_tstr:NTF \g_@@_read_prop { } { }
- \@@_tex_read:w \l_@@_tstr_tl \exp_stop_f:
- }
- }
-\cs_new_protected:Npn \@@_readline:w
- {
- \@@_get_user:n
- {
- \@@_user_to_tstr:NTF \g_@@_read_prop { } { }
- \@@_tex_readline:w \l_@@_tstr_tl \exp_stop_f:
- }
- }
-% \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}[aux]{\@@_closein:w}
-% There is slightly more work than for |read| and |readline| because
-% closing a user stream managed by \pkg{morewrites} means removing it
-% from the mapping and putting it back in the list of available
-% streams. To avoid useless work, only do this if there was indeed a
-% non-trivial mapping between user and \TeX{} stream.
-% \begin{macrocode}
-\cs_new_protected:Npn \@@_closein:w
- {
- \@@_get_user:n
- {
- \@@_user_to_tstr:NTF \g_@@_read_prop { } { }
- \int_compare:nNnF { \l_@@_tstr_tl } = { \l_@@_user_int }
- {
- \prop_gremove:NV \g_@@_read_prop \l_@@_user_int
- \seq_gput_left:NV \g_@@_read_seq \l_@@_tstr_tl
- }
- \@@_tex_closein:w \l_@@_tstr_tl \exp_stop_f:
- }
- }
-% \end{macrocode}
-% \end{macro}
-%
% \subsection{Writing}
%
-% Writing is much harder than reading for several reasons.
+% We can hold on to material while a file is being written and only
+% write it in one go once the file closes, to avoid using a stream
+% throughout.
%
-% Contrarily to reading, it is possible to hold on to material while a
-% file is being written and only write it in one go once the file
-% closes, to avoid using a stream throughout. At any given time, each
-% user stream may point to an open \TeX{} stream, given in
-% \cs{g_@@_write_prop} (like we did for reading), or may point to a
-% token list that will eventually be written to a file whose file name
-% is stored in \cs{g_@@_write_file_prop}, or may be closed.
+% At any given time, each user stream may point to an open \TeX{}
+% stream, given in \cs{g_@@_write_prop}, or may point to a token list
+% that will eventually be written to a file whose file name is stored in
+% \cs{g_@@_write_file_prop}, or may be closed.
%
% When a user stream points to a token list rather than a \TeX{} stream,
% any material to be written must be written to our temporary file and
@@ -921,17 +813,24 @@
\cs_new_protected:Npn \@@_openout_now:n #1
{
\@@_closeout_now:
- \seq_pop:NNTF \g_@@_write_seq \l_@@_tstr_tl
+ \int_compare:nNnTF { \l_@@_user_int } < { 19 }
{
- \prop_gput:NVV \g_@@_write_prop \l_@@_user_int \l_@@_tstr_tl
- \@@_tex_immediate:w \@@_tex_openout:w \l_@@_tstr_tl \exp_stop_f:
+ \@@_tex_immediate:w \@@_tex_openout:w \l_@@_user_int
= \tl_to_str:n {#1} \scan_stop:
}
{
- \@@_empty_file:n {#1}
- \prop_gput:NVx \g_@@_write_file_prop \l_@@_user_int
- { \tl_to_str:n {#1} }
- \tl_gclear_new:c { \@@_user_tl_name:n { \l_@@_user_int } }
+ \seq_gpop:NNTF \g_@@_write_seq \l_@@_tstr_tl
+ {
+ \prop_gput:NVV \g_@@_write_prop \l_@@_user_int \l_@@_tstr_tl
+ \@@_tex_immediate:w \@@_tex_openout:w \l_@@_tstr_tl \exp_stop_f:
+ = \tl_to_str:n {#1} \scan_stop:
+ }
+ {
+ \@@_empty_file:n {#1}
+ \prop_gput:NVx \g_@@_write_file_prop \l_@@_user_int
+ { \tl_to_str:n {#1} }
+ \tl_gclear_new:c { \@@_user_tl_name:n { \l_@@_user_int } }
+ }
}
}
% \end{macrocode}
@@ -1239,6 +1138,7 @@
\GXTorg at shipout
\AtBegShi at OrgShipout
\AtBeginShipoutOriginalShipout
+ \minidocument at orig@shipout
\shipout
}
{
@@ -1262,9 +1162,12 @@
% \begin{macrocode}
\cs_new_protected:Npn \@@_close_all:
{
- \prop_map_function:NN \g_@@_write_prop
+ \prop_map_inline:Nn \g_@@_write_prop
+ { \@@_tex_immediate:w \@@_tex_closeout:w ##2 \scan_stop: }
+ \prop_gclear:N \g_@@_write_prop
+ \prop_map_function:NN \g_@@_write_file_prop
\@@_closeout_now:nn
- \prop_gclear:N \g_@@_write_prop
+ \prop_gclear:N \g_@@_write_file_prop
}
% \end{macrocode}
% \end{macro}
@@ -1291,40 +1194,20 @@
%
% \subsubsection{Modified \tn{newwrite}}
%
-% \begin{variable}[aux]{\g_@@_alloc_read_int, \g_@@_alloc_write_int}
-% Counters to allocate user streams. Initialized to $18$ so that the
+% \begin{variable}[aux]{\g_@@_alloc_write_int}
+% Counter to allocate user streams. Initialized to $18$ so that the
% first user stream allocated by \pkg{morewrites} is $19$. Indeed,
% $18$ is reserved for shell commands and packages may expect $16$ or
% $17$ to write to the terminal.
% \begin{macrocode}
-\int_new:N \g_@@_alloc_read_int
-\int_set:Nn \g_@@_alloc_read_int { 18 }
\int_new:N \g_@@_alloc_write_int
\int_set:Nn \g_@@_alloc_write_int { 18 }
% \end{macrocode}
% \end{variable}
%
-% \begin{macro}[aux]{\@@_newread:N}
-% Reimplementation of \tn{newread} but protected and using a counter
-% \cs{g_@@_alloc_read_int} instead of what \TeX{}/\LaTeXe{} use.
-% \begin{macrocode}
-\cs_new_protected:Npn \@@_newread:N #1
- {
- \int_gincr:N \g_@@_alloc_read_int
- \int_set_eq:NN \allocationnumber \g_@@_alloc_read_int
- \cs_undefine:N #1
- \int_const:Nn #1 { \allocationnumber }
- \wlog
- {
- \token_to_str:N #1
- = \token_to_str:N \read \int_use:N \allocationnumber
- }
- }
-% \end{macrocode}
-% \end{macro}
-%
% \begin{macro}[aux]{\@@_newwrite:N}
-% Same as for \tn{newread}.
+% Reimplementation of \tn{newwrite} but protected and using a counter
+% \cs{g_@@_alloc_write_int} instead of what \TeX{}/\LaTeXe{} use.
% \begin{macrocode}
\cs_new_protected:Npn \@@_newwrite:N #1
{
@@ -1386,16 +1269,8 @@
% \end{macro}
%
% \begin{macro}[updated = 2015-08-01]
-% {
-% \openin, \read, \readline, \closein, \newread,
-% \immediate, \openout, \write, \closeout, \newwrite
-% }
+% {\immediate, \openout, \write, \closeout, \newwrite}
% \begin{macrocode}
-\cs_gset_eq:NN \openin \@@_openin:w
-\cs_gset_eq:NN \read \@@_read:w
-\cs_gset_eq:NN \readline \@@_readline:w
-\cs_gset_eq:NN \closein \@@_closein:w
-\cs_gset_eq:NN \newread \@@_newread:N
\cs_gset_eq:NN \immediate \@@_immediate:w
\cs_gset_eq:NN \openout \@@_openout:w
\cs_gset_eq:NN \write \@@_write:w
Modified: trunk/Master/texmf-dist/tex/latex/morewrites/morewrites.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/morewrites/morewrites.sty 2017-04-20 21:10:21 UTC (rev 43944)
+++ trunk/Master/texmf-dist/tex/latex/morewrites/morewrites.sty 2017-04-20 21:10:32 UTC (rev 43945)
@@ -22,7 +22,7 @@
\RequirePackage {expl3} [2017/03/18]
\RequirePackage {primargs} [2017/04/10]
\ProvidesExplPackage
- {morewrites} {2017/04/10} {} {Always room for a new write}
+ {morewrites} {2017/04/20} {} {Always room for a new write}
\sys_if_engine_luatex:T
{
\cs_new_protected:Npn \morewritessetup #1 { }
@@ -35,12 +35,6 @@
\cs_new_eq:NN \__morewrites_tex_openout:w \tex_openout:D
\cs_new_eq:NN \__morewrites_tex_write:w \tex_write:D
\cs_new_eq:NN \__morewrites_tex_closeout:w \tex_closeout:D
-\cs_new_eq:NN \__morewrites_tex_openin:w \tex_openin:D
-\cs_new_eq:NN \__morewrites_tex_read:w \tex_read:D
-\cs_new_eq:NN \__morewrites_tex_readline:w \etex_readline:D
-\cs_new_eq:NN \__morewrites_tex_closein:w \tex_closein:D
-\exp_args:NNf \cs_new_protected:Npn \__morewrites_tex_newread:N
- { \exp_args:NNc \exp_after:wN \exp_stop_f: { newread } }
\exp_args:NNf \cs_new_protected:Npn \__morewrites_tex_newwrite:N
{ \exp_args:NNc \exp_after:wN \exp_stop_f: { newwrite } }
\cs_generate_variant:Nn \prop_gpop:NnNT { NV }
@@ -49,9 +43,7 @@
\tl_new:N \l__morewrites_internal_tl
\cs_new_eq:NN \__morewrites_tmp:w ?
\int_new:N \g__morewrites_later_int
-\seq_new:N \g__morewrites_read_seq
\seq_new:N \g__morewrites_write_seq
-\prop_new:N \g__morewrites_read_prop
\prop_new:N \g__morewrites_write_prop
\prop_new:N \g__morewrites_write_file_prop
\tl_new:N \l__morewrites_code_tl
@@ -180,51 +172,6 @@
\cs_generate_variant:Nn \__morewrites_collect_gput_right:N { c }
\cs_new:Npn \__morewrites_user_tl_name:n #1
{ g__morewrites_iow_ \int_eval:n {#1} _tl }
-\cs_new_protected:Npn \__morewrites_openin:w
- {
- \__morewrites_get_user:n
- {
- \__morewrites_user_to_tstr:NTF \g__morewrites_read_prop { }
- {
- \seq_pop:NNF \g__morewrites_read_seq \l__morewrites_tstr_tl
- {
- \__morewrites_tex_newread:N \l__morewrites_tstr_token
- \tl_set:NV \l__morewrites_tstr_tl \l__morewrites_tstr_token
- }
- \prop_gput:NVV \g__morewrites_read_prop \l__morewrites_user_int \l__morewrites_tstr_tl
- }
- \__morewrites_tex_openin:w \l__morewrites_tstr_tl \exp_stop_f:
- }
- }
-\cs_new_protected:Npn \__morewrites_read:w
- {
- \__morewrites_get_user:n
- {
- \__morewrites_user_to_tstr:NTF \g__morewrites_read_prop { } { }
- \__morewrites_tex_read:w \l__morewrites_tstr_tl \exp_stop_f:
- }
- }
-\cs_new_protected:Npn \__morewrites_readline:w
- {
- \__morewrites_get_user:n
- {
- \__morewrites_user_to_tstr:NTF \g__morewrites_read_prop { } { }
- \__morewrites_tex_readline:w \l__morewrites_tstr_tl \exp_stop_f:
- }
- }
-\cs_new_protected:Npn \__morewrites_closein:w
- {
- \__morewrites_get_user:n
- {
- \__morewrites_user_to_tstr:NTF \g__morewrites_read_prop { } { }
- \int_compare:nNnF { \l__morewrites_tstr_tl } = { \l__morewrites_user_int }
- {
- \prop_gremove:NV \g__morewrites_read_prop \l__morewrites_user_int
- \seq_gput_left:NV \g__morewrites_read_seq \l__morewrites_tstr_tl
- }
- \__morewrites_tex_closein:w \l__morewrites_tstr_tl \exp_stop_f:
- }
- }
\cs_new_protected:Npn \__morewrites_immediate:w
{ \primargs_read_x_token:N \__morewrites_immediate_auxii: }
\cs_new_protected:Npn \__morewrites_immediate_auxii:
@@ -278,17 +225,24 @@
\cs_new_protected:Npn \__morewrites_openout_now:n #1
{
\__morewrites_closeout_now:
- \seq_pop:NNTF \g__morewrites_write_seq \l__morewrites_tstr_tl
+ \int_compare:nNnTF { \l__morewrites_user_int } < { 19 }
{
- \prop_gput:NVV \g__morewrites_write_prop \l__morewrites_user_int \l__morewrites_tstr_tl
- \__morewrites_tex_immediate:w \__morewrites_tex_openout:w \l__morewrites_tstr_tl \exp_stop_f:
+ \__morewrites_tex_immediate:w \__morewrites_tex_openout:w \l__morewrites_user_int
= \tl_to_str:n {#1} \scan_stop:
}
{
- \__morewrites_empty_file:n {#1}
- \prop_gput:NVx \g__morewrites_write_file_prop \l__morewrites_user_int
- { \tl_to_str:n {#1} }
- \tl_gclear_new:c { \__morewrites_user_tl_name:n { \l__morewrites_user_int } }
+ \seq_gpop:NNTF \g__morewrites_write_seq \l__morewrites_tstr_tl
+ {
+ \prop_gput:NVV \g__morewrites_write_prop \l__morewrites_user_int \l__morewrites_tstr_tl
+ \__morewrites_tex_immediate:w \__morewrites_tex_openout:w \l__morewrites_tstr_tl \exp_stop_f:
+ = \tl_to_str:n {#1} \scan_stop:
+ }
+ {
+ \__morewrites_empty_file:n {#1}
+ \prop_gput:NVx \g__morewrites_write_file_prop \l__morewrites_user_int
+ { \tl_to_str:n {#1} }
+ \tl_gclear_new:c { \__morewrites_user_tl_name:n { \l__morewrites_user_int } }
+ }
}
}
\cs_new_protected:Npn \__morewrites_write:w
@@ -463,6 +417,7 @@
\GXTorg at shipout
\AtBegShi at OrgShipout
\AtBeginShipoutOriginalShipout
+ \minidocument at orig@shipout
\shipout
}
{
@@ -478,9 +433,12 @@
}
\cs_new_protected:Npn \__morewrites_close_all:
{
- \prop_map_function:NN \g__morewrites_write_prop
+ \prop_map_inline:Nn \g__morewrites_write_prop
+ { \__morewrites_tex_immediate:w \__morewrites_tex_closeout:w ##2 \scan_stop: }
+ \prop_gclear:N \g__morewrites_write_prop
+ \prop_map_function:NN \g__morewrites_write_file_prop
\__morewrites_closeout_now:nn
- \prop_gclear:N \g__morewrites_write_prop
+ \prop_gclear:N \g__morewrites_write_file_prop
}
\cs_new_protected:Npn \__morewrites_close_all_at_end:nw #1#2 \@@end
{
@@ -490,22 +448,8 @@
\@@end
}
\AtEndDocument { \__morewrites_close_all_at_end:nw { 5 } }
-\int_new:N \g__morewrites_alloc_read_int
-\int_set:Nn \g__morewrites_alloc_read_int { 18 }
\int_new:N \g__morewrites_alloc_write_int
\int_set:Nn \g__morewrites_alloc_write_int { 18 }
-\cs_new_protected:Npn \__morewrites_newread:N #1
- {
- \int_gincr:N \g__morewrites_alloc_read_int
- \int_set_eq:NN \allocationnumber \g__morewrites_alloc_read_int
- \cs_undefine:N #1
- \int_const:Nn #1 { \allocationnumber }
- \wlog
- {
- \token_to_str:N #1
- = \token_to_str:N \read \int_use:N \allocationnumber
- }
- }
\cs_new_protected:Npn \__morewrites_newwrite:N #1
{
\int_gincr:N \g__morewrites_alloc_write_int
@@ -541,11 +485,6 @@
file .code:n = \__morewrites_set_file:n {#1} ,
file .initial:n = \c_sys_jobname_str .mw
}
-\cs_gset_eq:NN \openin \__morewrites_openin:w
-\cs_gset_eq:NN \read \__morewrites_read:w
-\cs_gset_eq:NN \readline \__morewrites_readline:w
-\cs_gset_eq:NN \closein \__morewrites_closein:w
-\cs_gset_eq:NN \newread \__morewrites_newread:N
\cs_gset_eq:NN \immediate \__morewrites_immediate:w
\cs_gset_eq:NN \openout \__morewrites_openout:w
\cs_gset_eq:NN \write \__morewrites_write:w
More information about the tex-live-commits
mailing list