intopdf (28sep20)

git-svn-id: svn://tug.org/texlive/trunk@56465 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 21 insertions, 69 deletions

diff --git a/Master/texmf-dist/tex/latex/intopdf/intopdf.sty b/Master/texmf-dist/tex/latex/intopdf/intopdf.sty
index 311ee82a403..42c0b6c3ab8 100644
--- a/Master/texmf-dist/tex/latex/intopdf/intopdf.sty
+++ b/Master/texmf-dist/tex/latex/intopdf/intopdf.sty
@@ -6,7 +6,7 @@
 %%
 %% intopdf.dtx  (with options: `package')
 %% 
-%% Copyright (C) 2018 by Marcel Krueger
+%% Copyright (C) 2020 by Marcel Krueger
 %%
 %% This file may be distributed and/or modified under the
 %% conditions of the LaTeX Project Public License, either
@@ -21,11 +21,11 @@
 \RequirePackage{expl3,xparse}
 \ProvidesExplPackage
   {intopdf}
-  {2019/05/28}
-  {0.2.1}
+  {2020/03/13}
+  {0.3.0}
   {Embed non-PDF files into PDF with hyperlink}
 
-\RequirePackage{hyperref}
+\RequirePackage{l3pdf,hyperref}
 \msg_new:nnnn{intopdf}{engine-unsupported}
   {Your~TeX~engine~is~not~supported~by~intopdf.}
   {To~use~intopdf,~you~have~to~use~pdfLaTeX~or~LuaLaTeX.}
@@ -34,74 +34,26 @@
   {pdftex}{
     \cs_new:Nn\__intopdf_escape_name:n{\pdfescapename{#1}}
     \cs_new:Nn\__intopdf_escape_string:n{(\pdfescapestring{#1})}
-    \cs_new:Nn\__intopdf_pdfobj:n{
-      \tex_immediate:D\pdftex_pdfobj:D{<<#1>>}
-    }
-    \cs_new:Nn\__intopdf_pdfstream_file:nn{
-      \tex_immediate:D\pdftex_pdfobj:D stream attr {#1} file {#2}
-    }
-    \cs_new:Nn\__intopdf_lastobj_ref:{
-      \c_space_tl
-      \int_use:N\pdftex_pdflastobj:D
-      \c_space_tl
-      0
-      \c_space_tl
-      R
-    }
-    \cs_new:Npn\__intopdf_annot:nnw#1#2{
-      \leavevmode
-      \pdftex_pdfstartlink:D attr{#1} user {#2}
-    }
-    \cs_new:Nn\__intopdf_annot_end:{
-      \pdftex_pdfendlink:D
-    }
   }
   {luatex}{
     \RequirePackage{pdftexcmds}
     \cs_new:Nn\__intopdf_escape_name:n{\pdf@escapename{#1}}
     \cs_new:Nn\__intopdf_escape_string:n{(\pdf@escapestring{#1})}
-    \cs_new:Nn\__intopdf_pdfobj:n{
-      \tex_immediate:D\luatex_pdfextension:D obj{<<#1>>}
-    }
-    \cs_new:Nn\__intopdf_pdfstream_file:nn{
-      \tex_immediate:D\luatex_pdfextension:D obj stream attr {#1} file {#2}
-    }
-    \cs_new:Nn\__intopdf_lastobj_ref:{
-      \c_space_tl
-      \luatex_pdffeedback:D lastobj
-      \c_space_tl
-      0
-      \c_space_tl
-      R
-    }
-    \cs_new:Npn\__intopdf_annot:nnw#1#2{
-      \leavevmode
-      \luatex_pdfextension:D startlink attr{#1} user {#2}
-    }
-    \cs_new:Nn\__intopdf_annot_end:{
-      \luatex_pdfextension:D endlink
-      \scan_stop:
-    }
   }
 }{
   \msg_critical:nn{intopdf}{engine-unsupported}
 }
-\cs_new:Nn\__intopdf_annot:nnn{
-  \__intopdf_annot:nnw{#1}{#2}
-  #3
-  \__intopdf_annot_end:
-}
 \cs_new_protected:Nn\intopdf_attach_link:nnnnn{
-  \__intopdf_pdfstream_file:nn{
-    /Subtype /\__intopdf_escape_name:n{#3}
-  }{#2}
-  \__intopdf_pdfobj:n{
+  \pdf_object_now:nx {fstream} { {
+    /Subtype /\__intopdf_escape_name:n { #3 }
+  } { #2 } }
+  \pdf_object_now:nx {dict} {
     /Type /Filespec
-    /F \__intopdf_escape_string:n{#1}
-    /EF << /F \__intopdf_lastobj_ref: >>
-    /Desc \__intopdf_escape_string:n{#4}
-  }%
-  \__intopdf_annot:nnn{
+    /F \__intopdf_escape_string:n { #1 }
+    /EF << /F~\pdf_object_last: >>
+    /Desc \__intopdf_escape_string:n { #4 }
+  }
+  \__pdf_backend_link_begin_user:nnw {
     \Hy@setpdfborder
     \tl_if_empty:NF\@pdfhighlight{
       /H\@pdfhighlight
@@ -111,17 +63,17 @@
     }
   }{
     /Subtype /Link
-  }{
-    \__intopdf_annot:nnn{}{
+  }
+    \__pdf_backend_link_begin_user:nnw { } {
       /Subtype /FileAttachment
-      /FS \__intopdf_lastobj_ref:
-      /F\c_space_tl 416
-      /CA\c_space_tl 0
+      /FS~\pdf_object_last:
+      /F~416
+      /CA~0
       /Contents \__intopdf_escape_string:n{#4}
-    }{
-      #5
     }
-  }
+      #5
+    \__pdf_backend_link_end:
+  \__pdf_backend_link_end:
 }
 \cs_new_protected:Npn \intopdf_attach_link:nnnn #1{
   \intopdf_attach_link:nnnnn{#1}{#1}