summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/tagpdf/tagpdf-checks-code.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/tagpdf/tagpdf-checks-code.sty')
-rw-r--r--Master/texmf-dist/tex/latex/tagpdf/tagpdf-checks-code.sty330
1 files changed, 175 insertions, 155 deletions
diff --git a/Master/texmf-dist/tex/latex/tagpdf/tagpdf-checks-code.sty b/Master/texmf-dist/tex/latex/tagpdf/tagpdf-checks-code.sty
index 6d224c4164a..d11f1fdda2f 100644
--- a/Master/texmf-dist/tex/latex/tagpdf/tagpdf-checks-code.sty
+++ b/Master/texmf-dist/tex/latex/tagpdf/tagpdf-checks-code.sty
@@ -1,188 +1,208 @@
-\ProvidesExplPackage {tagpdf-checks-code} {2019/07/02} {0.61}
+%%
+%% This is file `tagpdf-checks-code.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% tagpdf-checks.dtx (with options: `checks')
+%%
+%% Copyright (C) 2019 Ulrike Fischer
+%%
+%% It may be distributed and/or modified under the conditions of
+%% the LaTeX Project Public License (LPPL), either version 1.3c of
+%% this license or (at your option) any later version. The latest
+%% version of this license is in the file:
+%%
+%% https://www.latex-project.org/lppl.txt
+%%
+%% This file is part of the "tagpdf bundle" (The Work in LPPL)
+%% and all files in that bundle must be distributed together.
+%%
+%% File: tagpdf-checks.dtx
+\ProvidesExplPackage {tagpdf-checks-code} {2021/02/23} {0.80}
{part of tagpdf - code related to checks and messages}
-%messages
+\msg_new:nnn { tag } {mc-nested} { nested~marked~content~found~-~mcid~#1 }
+\msg_new:nnn { tag } {mc-tag-missing} { required~tag~missing~-~mcid~#1 }
+\msg_new:nnn { tag } {mc-label-unknown} { label~#1~unknown~-~rerun }
+\msg_new:nnn { tag } {mc-used-twice} { mc~#1~has~been~already~used }
+\msg_new:nnn { tag } {mc-not-open} { there~is~no~mc~to~end~at~#1 }
-% mc
-\msg_new:nnn {uftag} {mc-nested} { nested~marked~content~found~-~mcid~#1 }
-\msg_new:nnn {uftag} {mc-tag-missing} { required~tag~missing~-~mcid~#1 }
-\msg_new:nnn {uftag} {mc-label-unknown} { label~#1~unknown~-~rerun }
-\msg_new:nnn {uftag} {mc-used-twice} { mc~#1~has~been~already~used }
-\msg_new:nnn {uftag} {mc-not-open} { there~is~no~mc~to~end~at~#1 }
+\msg_new:nnn { tag } {struct-no-objnum} { objnum~missing~for~structure~#1 }
+\msg_new:nnn { tag } {struct-faulty-nesting} { there~is~no~open~structure~on~the~stack }
+\msg_new:nnn { tag } {struct-missing-tag} { a~structure~must~have~a~tag! }
+\msg_new:nnn { tag } {struct-show-closing} { closing~structure~#1~tagged~\prop_item:cn{g__tag_struct_#1_prop}{S} }
+\msg_new:nnn { tag } {struct-used-twice} { structure~with~label~#1~has~already~been~used}
+\msg_new:nnn { tag } {struct-label-unknown} { structure~with~label~#1~is~unknown~rerun}
-% structures
-\msg_new:nnn {uftag} {struct-no-objnum} { objnum~missing~for~structure~#1 }
-\msg_new:nnn {uftag} {struct-faulty-nesting} { there~is~no~open~structure~on~the~stack }
-\msg_new:nnn {uftag} {struct-missing-tag} { a~structure~must~have~a~tag! }
-\msg_new:nnn {uftag} {struct-show-closing} { closing~structure~#1~tagged~\prop_item:cn{g__uftag_struct_#1_prop}{S} }
-\msg_new:nnn {uftag} {struct-used-twice} { structure~with~label~#1~has~already~been~used}
-\msg_new:nnn {uftag} {struct-label-unknown} { structure~with~label~#1~is~unknown~rerun}
+\msg_new:nnn { tag } {attr-unknown} { attribute~#1~is~unknown}
-% attributes
-\msg_new:nnn {uftag} {attr-unknown} { attribute~#1~is~unknown}
+\msg_new:nnn { tag } {role-missing} { tag~#1~has~no~role~assigned }
+\msg_new:nnn { tag } {role-unknown} { role~#1~is~not~known }
+\msg_new:nnn { tag } {role-unknown-tag} { tag~#1~is~not~known }
+\msg_new:nnn { tag } {role-new-tag} { adding~new~tag~#1~mapped~to~role~#2 }
+\msg_new:nnn { tag } {tree-mcid-index-wrong} {something~is~wrong~with~the~mcid}
-%Roles
-\msg_new:nnn {uftag} {role-missing} { tag~#1~has~no~role~assigned }
-\msg_new:nnn {uftag} {role-unknown} { role~#1~is~not~known }
-\msg_new:nnn {uftag} {role-unknown-tag} { tag~#1~is~not~known }
-\msg_new:nnn {uftag} {role-new-tag} { adding~new~tag~#1~mapped~to~role~#2 }
+\msg_new:nnn { tag } {obj-write-num} {write~obj~#1~to~pdf}
+\msg_new:nnn { tag } {sys-no-interwordspace} {engine~#1~doesn't~support~the~interword~spaces}
-% trees
-\msg_new:nnn {uftag} {tree-mcid-index-wrong} {something~is~wrong~with~the~mcid}
-% obj
-\msg_new:nnn {uftag} {obj-write-num} {write~obj~#1~to~pdf}
-
-
-%checks
-%structures
+\cs_new:Nn \__tag_check_structure_has_tag:n %#1 struct num %_protected?
+ {
+ \prop_if_in:cnF { g__tag_struct_#1_prop }
+ {S}
+ {
+ \msg_error:nn { tag } {struct-missing-tag}
+ }
+ }
-\cs_new:Nn \__uftag_check_structure_has_tag:n %#1 struct num
- {
- \prop_if_in:cnF { g__uftag_struct_#1_prop }
- {S}
- {
- \msg_error:nn {uftag} {struct-missing-tag}
- }
- }
+\cs_new:Nn \__tag_check_structure_tag:N %_protected?
+ {
+ \prop_if_in:NoF \g__tag_role_tags_prop {#1}
+ {
+ \msg_warning:nnx { tag } {role-unknown-tag} {#1}
+ }
+ }
-\cs_new:Nn \__uftag_check_structure_tag:N
- {
- \prop_if_in:NoF \g__uftag_role_tags_prop {#1}
- {
- \msg_warning:nnx {uftag} {role-unknown-tag} {#1}
- }
- }
+\cs_new_protected:Nn \__tag_check_info_closing_struct:n %#1 struct num
+ {
+ \msg_info:nnn { tag } {struct-show-closing} {#1}
+ }
-\cs_new:Nn \__uftag_check_info_closing_struct:n %#1 struct num
- {
- \msg_info:nnn {uftag} {struct-show-closing} {#1}
- }
+\cs_generate_variant:Nn \__tag_check_info_closing_struct:n {o,x}
-\cs_generate_variant:Nn \__uftag_check_info_closing_struct:n {o,x}
+\cs_new_protected:Nn \__tag_check_no_open_struck:
+ {
+ \msg_error:nn { tag } {struct-faulty-nesting}
+ }
-\cs_new:Nn \__uftag_check_no_open_struck:
- {
- \msg_error:nn {uftag} {struct-faulty-nesting}
- }
+\cs_new_protected:Nn \__tag_check_struct_used:n %#1 label
+ {
+ \prop_get:cnNT
+ {g__tag_struct_\__tag_ref_value:enn{tagpdfstruct-#1}{tagstruct}{unknown}_prop}
+ {P}
+ \l_tmpa_tl
+ {
+ \msg_warning:nnn { tag } {struct-used-twice} {#1}
+ }
+ }
-\cs_new:Nn \__uftag_check_struct_used:n %#1 label
- {
- \prop_get:cnNT
- {g__uftag_struct_\zref@extractdefault{tagpdfstruct-#1}{tagstruct}{unknown}_prop}
- {P}
- \l_tmpa_tl
- { \msg_warning:nnn {uftag} {struct-used-twice} {#1} }
- }
-%roles
+\cs_new_protected:Nn \__tag_check_add_tag_role:nn %#1 tag, #2 role
+ {
+ \tl_if_empty:nTF {#2}
+ {
+ \msg_warning:nnn { tag } {role-missing} {#1}
+ }
+ {
+ \prop_get:NnNTF \g__tag_role_tags_prop {#2} \l_tmpa_tl
+ {
+ \msg_info:nnnn { tag } {role-new-tag} {#1} {#2}
+ }
+ {
+ \msg_warning:nnn { tag } {role-unknown} {#2}
+ }
+ }
+ }
-\cs_new:Nn \__uftag_check_add_tag_role:nn %#1 tag, #2 role
- {
- \tl_if_empty:nTF {#2}
+\cs_new_protected:Nn \__tag_check_mc_if_nested:
{
- \msg_warning:nnn {uftag} {role-missing} {#1}
+ \__tag_mc_if_in:T
+ {
+ \msg_warning:nnx { tag } {mc-nested} { \__tag_get_mc_abs_cnt: }
+ }
}
+
+\cs_new_protected:Nn \__tag_check_mc_if_open:
{
- \prop_get:NnNF \g__uftag_role_tags_prop {#2} \l_tmpa_tl
- {
- \msg_warning:nnn {uftag} {role-unknown} {#2}
- }
- {
- \msg_info:nnnn {uftag} {role-new-tag} {#1} {#2}
- }
+ \__tag_mc_if_in:F
+ {
+ \msg_warning:nnx { tag } {mc-not-open} { \__tag_get_mc_abs_cnt: }
+ }
}
- }
-
-%mc
-\cs_new:Nn \__uftag_check_mc_if_nested:
- {
- \__uftag_mc_if_in:T
- {
- \msg_warning:nnx {uftag} {mc-nested} { \__uftag_get_mc_abs_cnt: }
- }
- }
-
-\cs_new:Nn \__uftag_check_mc_if_open:
- {
- \__uftag_mc_if_in:F
- {
- \msg_warning:nnx {uftag} {mc-not-open} { \__uftag_get_mc_abs_cnt: }
- }
- }
-
-\cs_new:Nn \__uftag_check_mc_tag:N
- {
- \tl_if_empty:NT #1
- {
- \msg_error:nnx {uftag} {mc-tag-missing} { \__uftag_get_mc_abs_cnt: }
- }
- \prop_if_in:NoF \g__uftag_role_tags_prop {#1}
- {
- \msg_warning:nnx {uftag} {role-unknown-tag} {#1}
- }
- }
-
-\seq_new:N \g__uftag_check_mc_used_seq
-\cs_new:Nn \__uftag_check_mc_used:n
- {
- \seq_if_in:NnTF \g__uftag_check_mc_used_seq {#1}
- {
- \msg_warning:nnn {uftag} {mc-used-twice} {#1}
- }
- {
- \seq_gput_right:Nx \g__uftag_check_mc_used_seq {#1}
- }
- }
-
-
-
-\cs_new:Nn \__uftag_check_show_MCID_by_page:
- {
- \tl_set:Nx \l__uftag_tmpa_tl
+
+\cs_new:Nn \__tag_check_mc_tag:N %protected??
{
- \zref@extractdefault
- {LastPage} {abspage} {-1}
+ \tl_if_empty:NT #1
+ {
+ \msg_error:nnx { tag } {mc-tag-missing} { \__tag_get_mc_abs_cnt: }
+ }
+ \prop_if_in:NoF \g__tag_role_tags_prop {#1}
+ {
+ \msg_warning:nnx { tag } {role-unknown-tag} {#1}
+ }
}
- \int_step_inline:nnnn {1}{1}
+
+\seq_new:N \g__tag_check_mc_used_seq
+\cs_new_protected:Nn \__tag_check_mc_used:n
{
- \l__uftag_tmpa_tl
+ \seq_if_in:NnTF \g__tag_check_mc_used_seq {#1}
+ {
+ \msg_warning:nnn { tag } {mc-used-twice} {#1}
+ }
+ {
+ \seq_gput_right:Nx \g__tag_check_mc_used_seq {#1}
+ }
}
+
+\cs_new_protected:Nn \__tag_check_show_MCID_by_page:
{
- \seq_clear:N \l_tmpa_seq
- \int_step_inline:nnnn {1}{1}
- {
- \zref@extractdefault
- {LastPage} {tagmcabs} {-1}
- }
- {
- \int_compare:nT
- {
- \zref@extractdefault
- {mcid-####1} {tagabspage} {-1}
- = ##1
- }
- {
- \seq_gput_right:Nx \l_tmpa_seq
+ \tl_set:Nx \l__tag_tmpa_tl
{
- Page##1-####1-\zref@extractdefault
- {mcid-####1} {tagmcid} {-1}
+ \__tag_ref_value_lastpage:nn
+ {abspage}
+ {-1}
+ }
+ \int_step_inline:nnnn {1}{1}
+ {
+ \l__tag_tmpa_tl
+ }
+ {
+ \seq_clear:N \l_tmpa_seq
+ \int_step_inline:nnnn
+ {1}
+ {1}
+ {
+ \__tag_ref_value_lastpage:nn
+ {tagmcabs}
+ {-1}
+ }
+ {
+ \int_compare:nT
+ {
+ \__tag_ref_value:enn
+ {mcid-####1}
+ {tagabspage}
+ {-1}
+ =
+ ##1
+ }
+ {
+ \seq_gput_right:Nx \l_tmpa_seq
+ {
+ Page##1-####1-
+ \__tag_ref_value:enn
+ {mcid-####1}
+ {tagmcid}
+ {-1}
+ }
+ }
+ }
+ \seq_show:N \l_tmpa_seq
}
- }
- }
- \seq_show:N \l_tmpa_seq
}
- }
-\cs_new:Nn \__uftag_check_record_pdfobj_num:n
- {
- \int_compare:nT { \l__uftag_loglevel_int >= 3 }
- {
- \msg_info:nnx {uftag} {obj-write-num} {#1}
- }
- }
+\cs_new:Nn \__tag_check_record_pdfobj_num:n %protected?
+ {
+ \int_compare:nT { \l__tag_loglevel_int >= 3 }
+ {
+ \msg_info:nnx { tag } {obj-write-num} {#1}
+ }
+ }
-\endinput
+%%
+%%
+%% End of file `tagpdf-checks-code.sty'.