[latex3-commits] [git/LaTeX3-latex3-latex3] master: Add support for fstream writing to dvips (fixes #710) (07754d14a)

[Joseph Wright]

Repository : https://github.com/latex3/latex3
On branch  : master
Link       : https://github.com/latex3/latex3/commit/07754d14a5c2e4ee16ca1d2f49156ade04756c15

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

commit 07754d14a5c2e4ee16ca1d2f49156ade04756c15
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Thu May 21 13:32:38 2020 +0100

    Add support for fstream writing to dvips (fixes #710)


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

07754d14a5c2e4ee16ca1d2f49156ade04756c15
 l3backend/CHANGELOG.md      |  3 +++
 l3backend/l3backend-pdf.dtx | 21 +++++++++++++++++++--
 2 files changed, 22 insertions(+), 2 deletions(-)

diff --git a/l3backend/CHANGELOG.md b/l3backend/CHANGELOG.md
index ffd7ae74c..b7f667426 100644
--- a/l3backend/CHANGELOG.md
+++ b/l3backend/CHANGELOG.md
@@ -6,6 +6,9 @@ this project uses date-based 'snapshot' version identifiers.
 
 ## [Unreleased]
 
+### Fixed
+- `\__pdf_backend_object_write_fstream:nn` with `dvips` backend (issue #710)
+
 ## [2020-05-05]
 
 ### Added
diff --git a/l3backend/l3backend-pdf.dtx b/l3backend/l3backend-pdf.dtx
index 95d1cc653..31e9e83a1 100644
--- a/l3backend/l3backend-pdf.dtx
+++ b/l3backend/l3backend-pdf.dtx
@@ -134,8 +134,9 @@
 % \begin{macro}{\@@_backend_object_write:nn, \@@_backend_object_write:nx}
 % \begin{macro}
 %   {
-%     \@@_backend_object_write_array:nn ,
-%     \@@_backend_object_write_dict:nn  ,
+%     \@@_backend_object_write_array:nn   ,
+%     \@@_backend_object_write_dict:nn    ,
+%     \@@_backend_object_write_fstream:nn ,
 %     \@@_backend_object_write_stream:nn
 %   }
 % \begin{macro}{\@@_backend_object_write_stream:nnn}
@@ -173,6 +174,22 @@
     \@@_backend_pdfmark:x
       { #1 << \exp_not:n {#2} >> /PUT }
   }
+\cs_new_protected:Npn \@@_backend_object_write_fstream:nn #1#2
+  {
+    \exp_args:Nx
+      \@@_backend_object_write_fstream:nnn {#1} #2
+  }
+\cs_new_protected:Npn \@@_backend_object_write_fstream:nnn #1#2#3
+  {
+    \__kernel_backend_postscript:n
+      { 
+        [nobreak]~
+        SDict ~ begin ~
+        mark ~ #1 ~ << #2 >> /PUT ~ pdfmark ~
+        mark ~ #1 ~ ( #3 )~ ( r )~ file ~ /PUT ~ pdfmark ~
+        end
+      }
+  }
 \cs_new_protected:Npn \@@_backend_object_write_stream:nn #1#2
   {
     \exp_args:Nx