[latex3-commits] [git/LaTeX3-latex3-latex3] main: Correct sign for \c_log_iow (fixes #1105) (a98fde561)
Joseph Wright
joseph.wright at morningstar2.co.uk
Sun Jun 26 08:27:58 CEST 2022
Repository : https://github.com/latex3/latex3
On branch : main
Link : https://github.com/latex3/latex3/commit/a98fde5613d1278fe6fa81579158103daa474692
>---------------------------------------------------------------
commit a98fde5613d1278fe6fa81579158103daa474692
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date: Sun Jun 26 07:22:15 2022 +0100
Correct sign for \c_log_iow (fixes #1105)
>---------------------------------------------------------------
a98fde5613d1278fe6fa81579158103daa474692
l3kernel/CHANGELOG.md | 1 +
l3kernel/l3file.dtx | 2 +-
l3kernel/testfiles/m3file002.lvt | 14 +++++++++++++-
l3kernel/testfiles/m3file002.tlg | 10 ++++++++++
4 files changed, 25 insertions(+), 2 deletions(-)
diff --git a/l3kernel/CHANGELOG.md b/l3kernel/CHANGELOG.md
index 48077ec63..26aa33bee 100644
--- a/l3kernel/CHANGELOG.md
+++ b/l3kernel/CHANGELOG.md
@@ -15,6 +15,7 @@ this project uses date-based 'snapshot' version identifiers.
### Fixed
- Correct validity check performed by `\regex_show:N` (gh/1093)
+- Closing of file handles (issue \#1105)
## [2022-06-16]
diff --git a/l3kernel/l3file.dtx b/l3kernel/l3file.dtx
index a0bb1b214..f3fd30842 100644
--- a/l3kernel/l3file.dtx
+++ b/l3kernel/l3file.dtx
@@ -1552,7 +1552,7 @@
% \begin{macrocode}
\cs_new_protected:Npn \iow_close:N #1
{
- \int_compare:nT { - \c_log_iow < #1 < \c_term_iow }
+ \int_compare:nT { \c_log_iow < #1 < \c_term_iow }
{
\tex_immediate:D \tex_closeout:D #1
\prop_gremove:NV \g_@@_streams_prop #1
diff --git a/l3kernel/testfiles/m3file002.lvt b/l3kernel/testfiles/m3file002.lvt
index 9304f27d8..421565275 100644
--- a/l3kernel/testfiles/m3file002.lvt
+++ b/l3kernel/testfiles/m3file002.lvt
@@ -1,5 +1,5 @@
%
-% Copyright (C) 2014,2018-2021 The LaTeX Project
+% Copyright (C) 2014,2018-2022 The LaTeX Project
%
\documentclass{minimal}
@@ -63,4 +63,16 @@
\TYPE { | \tl_to_str:N \l_A_tl | }
}
+\TEST { Use~a~scratch~file~handle }
+ {
+ \iow_open:Nn \g_tmpa_iow { \jobname.tmp }
+ \int_show:N \g_tmpa_iow
+ \iow_now:Nn \g_tmpa_iow { baz }
+ \int_compare:nTF { \c_log_iow < \g_tmpa_iow < \c_term_iow }
+ { \TRUE } { \ERROR }
+ \iow_close:N \g_tmpa_iow
+ \int_compare:nTF { \c_log_iow < \g_tmpa_iow < \c_term_iow }
+ { \ERROR } { \FALSE }
+ }
+
\END
diff --git a/l3kernel/testfiles/m3file002.tlg b/l3kernel/testfiles/m3file002.tlg
index 6c4581d93..4ed83927b 100644
--- a/l3kernel/testfiles/m3file002.tlg
+++ b/l3kernel/testfiles/m3file002.tlg
@@ -17,3 +17,13 @@ TEST 2: Get a non-existent file
============================================================
|\q_no_value |
============================================================
+============================================================
+TEST 3: Use a scratch file handle
+============================================================
+\g_tmpa_iow=\write...
+> \g_tmpa_iow=3.
+<recently read> }
+l. ... }
+TRUE
+FALSE
+============================================================
More information about the latex3-commits
mailing list.