[latex3-commits] [latex3/latex3] main: Implement \__kernel_iow_open:Nn (4cdb4f88a)

[github at latex-project.org]

Repository : https://github.com/latex3/latex3
On branch  : main
Link       : https://github.com/latex3/latex3/commit/4cdb4f88ac95f70228b9a8dfc282134bb866c415

>---------------------------------------------------------------

commit 4cdb4f88ac95f70228b9a8dfc282134bb866c415
Author: Victor Westerhuis <viccie30 at users.noreply.github.com>
Date:   Mon Mar 25 02:36:02 2024 +0100

    Implement \__kernel_iow_open:Nn
    
    This function was missed when \iow_shell_open:Nn was added in 8c2338d.


>---------------------------------------------------------------

4cdb4f88ac95f70228b9a8dfc282134bb866c415
 l3kernel/l3file.dtx | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/l3kernel/l3file.dtx b/l3kernel/l3file.dtx
index 3a4d1c06d..2075d852d 100644
--- a/l3kernel/l3file.dtx
+++ b/l3kernel/l3file.dtx
@@ -1687,16 +1687,21 @@
   {
     \__kernel_tl_set:Nx \l_@@_file_name_tl
       { \__kernel_file_name_sanitize:n {#2} }
+    \__kernel_iow_open:No #1 \l_@@_file_name_tl
+  }
+\cs_generate_variant:Nn \iow_open:Nn { NV , c , cV }
+\cs_new_protected:Npn \__kernel_iow_open:Nn #1#2
+  {
     \iow_close:N #1
     \seq_gpop:NNTF \g_@@_streams_seq \l_@@_stream_tl
-      { \@@_open_stream:NV #1 \l_@@_file_name_tl }
+      { \@@_open_stream:Nn #1 {#2} }
       {
         \@@_new:N #1
         \__kernel_tl_set:Nx \l_@@_stream_tl { \int_eval:n {#1} }
-        \@@_open_stream:NV #1 \l_@@_file_name_tl
+        \@@_open_stream:Nn #1 {#2}
       }
   }
-\cs_generate_variant:Nn \iow_open:Nn { NV , c , cV }
+\cs_generate_variant:Nn \__kernel_iow_open:Nn { No }
 \cs_new_protected:Npn \@@_open_stream:Nn #1#2
   {
     \tex_global:D \tex_chardef:D #1 = \l_@@_stream_tl \scan_stop: