summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/tagpdf/tagpdf-mc-code-generic.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/tagpdf/tagpdf-mc-code-generic.sty')
-rw-r--r--Master/texmf-dist/tex/latex/tagpdf/tagpdf-mc-code-generic.sty24
1 files changed, 20 insertions, 4 deletions
diff --git a/Master/texmf-dist/tex/latex/tagpdf/tagpdf-mc-code-generic.sty b/Master/texmf-dist/tex/latex/tagpdf/tagpdf-mc-code-generic.sty
index a26fd0fa3ad..85c4f453300 100644
--- a/Master/texmf-dist/tex/latex/tagpdf/tagpdf-mc-code-generic.sty
+++ b/Master/texmf-dist/tex/latex/tagpdf/tagpdf-mc-code-generic.sty
@@ -1,4 +1,4 @@
-\ProvidesExplPackage {tagpdf-mc-code-generic} {2019/01/04} {0.50}
+\ProvidesExplPackage {tagpdf-mc-code-generic} {2019/03/20} {0.60}
{part of tagpdf - code related to marking chunks - generic mode}
% for the label system
@@ -13,6 +13,18 @@
% it will contain key-value of type "abspagenum=max mcid on this page"
\__uftag_prop_new:N \g__uftag_MCID_byabspage_prop
+%to test nesting mc:
+\bool_new:N \g__uftag_in_mc_bool
+
+\prg_new_conditional:Nnn \__uftag_mc_if_in: {p,T,F,TF}
+ {
+ \bool_if:NTF \g__uftag_in_mc_bool
+ { \prg_return_true: }
+ { \prg_return_false: }
+ }
+
+\prg_new_eq_conditional:NNn \uftag_mc_if_in: \__uftag_mc_if_in: {p,T,F,TF}
+
% this are the low level mc command.
% they insert literals and so a are specific to generic mode
@@ -122,6 +134,7 @@
% keyval definitions for the user commands:
\tl_new:N \l__uftag_mc_key_tag_tl
+\tl_new:N \g__uftag_mc_key_tag_tl %for "outside" queries
\tl_new:N \l__uftag_mc_key_properties_tl
%Attention! definitions are different in luamode.
% tag and raw are expanded as \directlua in lua does it too.
@@ -131,6 +144,7 @@
{
%%????????? \pdfescapename??
\tl_set:Nx \l__uftag_mc_key_tag_tl { #1 }
+ \tl_gset:Nx \g__uftag_mc_key_tag_tl { #1 }
},
raw .code:n =
{
@@ -207,7 +221,7 @@
{ \g__uftag_struct_stack_current_tl }
}
-\cs_new:Nn \uftag_mc_begin:n
+\cs_new_protected:Nn \uftag_mc_begin:n
{
\group_begin:
\__uftag_check_mc_if_nested:
@@ -232,14 +246,15 @@
\group_end:
}
-\cs_new:Nn \uftag_mc_end:
+\cs_new_protected:Nn \uftag_mc_end:
{
\__uftag_check_mc_if_open:
\bool_gset_false:N \g__uftag_in_mc_bool
+ \tl_gset:Nn \g__uftag_mc_key_tag_tl { }
\__uftag_mc_emc:
}
-\cs_new:Nn \uftag_mc_use:n %#1: label name
+\cs_new_protected:Nn \uftag_mc_use:n %#1: label name
{
\tl_set:Nx \l_tmpa_tl { \zref@extractdefault{tagpdf-#1}{tagmcabs}{} }
\tl_if_empty:NTF\l_tmpa_tl
@@ -265,5 +280,6 @@
}
}
+\cs_new:Nn \__uftag_get_data_mc_tag: { \g__uftag_mc_key_tag_tl }
\endinput