texlive[42468] Master/texmf-dist: media9 (8nov16)

[commits+karl at tug.org]

Revision: 42468
          http://tug.org/svn/texlive?view=revision&revision=42468
Author:   karl
Date:     2016-11-08 23:36:42 +0100 (Tue, 08 Nov 2016)
Log Message:
-----------
media9 (8nov16)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/latex/media9/ChangeLog
    trunk/Master/texmf-dist/doc/latex/media9/media9.pdf
    trunk/Master/texmf-dist/tex/latex/media9/media9.sty
    trunk/Master/texmf-dist/tex/latex/media9/pdfbase.sty

Modified: trunk/Master/texmf-dist/doc/latex/media9/ChangeLog
===================================================================
--- trunk/Master/texmf-dist/doc/latex/media9/ChangeLog	2016-11-08 22:36:28 UTC (rev 42467)
+++ trunk/Master/texmf-dist/doc/latex/media9/ChangeLog	2016-11-08 22:36:42 UTC (rev 42468)
@@ -1,3 +1,10 @@
+2016-11-08
+	* v0.70 : media9.sty
+	* v0.10 : pdfbase.sty
+	* fix: pdfbase.sty & pdftex: sometimes, incorrect page ressources
+	for marked content were written when using \pbs_pdfbdc:nn;
+	reported by _FrnchFrgg_
+
 2016-06-08
 	* v0.69 : media9.sty
 	* v0.9 : pdfbase.sty

Modified: trunk/Master/texmf-dist/doc/latex/media9/media9.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/tex/latex/media9/media9.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/media9/media9.sty	2016-11-08 22:36:28 UTC (rev 42467)
+++ trunk/Master/texmf-dist/tex/latex/media9/media9.sty	2016-11-08 22:36:42 UTC (rev 42468)
@@ -41,8 +41,8 @@
 \RequirePackage{atbegshi}
 \RequirePackage{atenddvi}
 
-\def\g at mix@date at tl{2016/06/08}
-\def\g at mix@version at tl{0.69}
+\def\g at mix@date at tl{2016/11/08}
+\def\g at mix@version at tl{0.70}
 
 \def\g at mix@liiikerneldate{2015/09/27}
 \def\g at mix@liiipkgdate{2015/09/27}

Modified: trunk/Master/texmf-dist/tex/latex/media9/pdfbase.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/media9/pdfbase.sty	2016-11-08 22:36:28 UTC (rev 42467)
+++ trunk/Master/texmf-dist/tex/latex/media9/pdfbase.sty	2016-11-08 22:36:42 UTC (rev 42468)
@@ -121,15 +121,22 @@
 
 \RequirePackage{expl3}
 \RequirePackage{l3keys2e}
-\RequirePackage{atbegshi}
 \RequirePackage{atenddvi}
 
-\def\g at pbs@date at tl{2016/06/08}
-\def\g at pbs@version at tl{0.9}
+\def\g at pbs@date at tl{2016/11/08}
+\def\g at pbs@version at tl{0.10}
 
 \ProvidesExplPackage{pdfbase}{\g at pbs@date at tl}{\g at pbs@version at tl}
 {driver independent access to low-level PDF features}
 
+\int_new:N\g at pbs@page at int %abs. page counter (zero based)
+
+%LaTeX2e wrapper
+\cs_new:Npn\pbs at seq@push at cx#1#2{
+  \seq_if_exist:cF{#1}{\seq_new:c{#1}}
+  \seq_gput_right:cx{#1}{#2}
+}
+
 %wrong image file type for Image XObject generation
 \msg_gset:nnn{pdfbase}{wrong~image~resource}{
   Image~resource~file\\~~'#1'\\has~wrong~type.\\\\
@@ -289,30 +296,31 @@
 
   \cs_new_nopar:Nn\pbs_pdfbdc:nn{
     \pdfliteral~page~{#1/rm at oc\int_use:N\g_pbs_oc_int\space BDC}
-    \tl_if_empty:NTF\g_pbs_ocmap_tl{
-      \tl_gset:Nx\g_pbs_ocmap_tl{/rm at oc\int_use:N\g_pbs_oc_int\space#2}
-    }{
-      \tl_gput_right:Nx\g_pbs_ocmap_tl{~/rm at oc\int_use:N\g_pbs_oc_int\space#2}
-    }
-    \pbs_zap_properties:
-    \group_begin:
-    \tl_set:Nx\l_pbs_temp_tl{\group_end:
-      \global\pdfpageresources{
-        \the\pdfpageresources
-        /Properties<<\g_pbs_ocmap_tl>>
-      }
-    }\l_pbs_temp_tl
+    \iow_shipout_x:Nx\@mainaux{\token_to_str:N\pbs at seq@push at cx{
+        pbs at props@\noexpand\the\g at pbs@page at int
+    }{/rm at oc\int_use:N\g_pbs_oc_int\space#2}}
     \int_gincr:N\g_pbs_oc_int
   }
-  \tl_new:N\g_pbs_ocmap_tl
 
   \cs_new_nopar:Nn\pbs_pdfemc:{\pdfliteral~page~{EMC}}
 
-  %modify output routine to strip /Properties<<...>> from \pdfpageresources
-  \AtBeginShipout{\tl_gclear:N\g_pbs_ocmap_tl}
+  %modify output routine to write /Properties<<...>> for current page
   \tl_gset:Nx\g_pbs_output_tl{\the\output}
   \global\output{
-    \g_pbs_output_tl \tl_if_blank:VT\g_pbs_ocmap_tl{\pbs_zap_properties:}
+    \pbs_zap_properties: %purge those from previous page
+    \group_begin:
+    \tl_set:Nx\l_pbs_temp_tl{\group_end:
+      \global\pdfpageresources{
+        \the\pdfpageresources
+        /Properties<<\seq_if_exist:cT{pbs at props@\the\g at pbs@page at int}{
+          \seq_use:cn{pbs at props@\the\g at pbs@page at int}{~}
+        }>>
+      }
+    }\l_pbs_temp_tl
+    \g_pbs_output_tl
+    \int_gincr:N\g at pbs@page at int
+    %purge from current page's properties, because they aren't needed any longer
+    \pbs_zap_properties:
   }
 }{
   %pgf + transparency related settings