summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex-dev/base/lthooks.ltx
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex-dev/base/lthooks.ltx')
-rw-r--r--Master/texmf-dist/tex/latex-dev/base/lthooks.ltx1091
1 files changed, 0 insertions, 1091 deletions
diff --git a/Master/texmf-dist/tex/latex-dev/base/lthooks.ltx b/Master/texmf-dist/tex/latex-dev/base/lthooks.ltx
deleted file mode 100644
index e214c4d6ccb..00000000000
--- a/Master/texmf-dist/tex/latex-dev/base/lthooks.ltx
+++ /dev/null
@@ -1,1091 +0,0 @@
-%%
-%% This is file `lthooks.ltx',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% lthooks.dtx (with options: `2ekernel')
-%%
-%% This is a generated file.
-%%
-%% Copyright 2020 Frank Mittelbach
-%%
-%% This file was generated from file(s) of the LaTeX `lthooks Bundle'.
-%% --------------------------------------------------------------------------
-%%
-%% It may be distributed and/or modified under the
-%% conditions of the LaTeX Project Public License, either version 1.3c
-%% of this license or (at your option) any later version.
-%% The latest version of this license is in
-%% http://www.latex-project.org/lppl.txt
-%% and version 1.3c or later is part of all distributions of LaTeX
-%% version 2005/12/01 or later.
-%%
-%% This file may only be distributed together with a copy of the LaTeX
-%% `lthooks Bundle'. You may however distribute the `lthooks Bundle'
-%% without such generated files.
-%%
-%% The newest sources can be found below
-%%
-%% https://github.com/FrankMittelbach/fmitex/
-%%
-%% where one can also log issues in case there are any.
-%%
-%%
-%% File: lthooks.dtx (C) Copyright 2020 Frank Mittelbach, LaTeX Team
-\providecommand\lthooksversion{v0.9b}
-\providecommand\lthooksdate{2020/07/19}
-
-
-
-
-
-
-\ExplSyntaxOn
-\bool_new:N \g__hook_debug_bool
-\cs_new_eq:NN \__hook_debug:n \use_none:n
-\cs_new_protected:Npn \hook_debug_on:
- {
- \bool_gset_true:N \g__hook_debug_bool
- \__hook_debug_gset:
- }
-\cs_new_protected:Npn \hook_debug_off:
- {
- \bool_gset_false:N \g__hook_debug_bool
- \__hook_debug_gset:
- }
-\cs_new_protected:Npn \__hook_debug_gset:
- {
- \cs_gset_protected:Npx \__hook_debug:n ##1
- { \bool_if:NT \g__hook_debug_bool {##1} }
- }
-
-\cs_new_eq:NN \__hook_str_compare:nn \__str_if_eq:nn
-\tl_new:N \l__hook_return_tl
-\tl_new:N \l__hook_tmpa_tl
-\tl_new:N \l__hook_tmpb_tl
-\seq_new:N \g__hook_all_seq
-\tl_new:N \g__hook_removal_list_tl
-\tl_new:N \l__hook_cur_hook_tl
-\prop_new:N \g__hook_code_temp_prop
-\tl_new:N \g__hook_hook_curr_name_tl
-\seq_new:N \g__hook_name_stack_seq
-\cs_new_eq:NN \__hook_tmp:w ?
-\cs_generate_variant:Nn \tl_gremove_once:Nn { Nx }
-\scan_new:N \s__hook_mark
-
-\cs_new_protected:Npn \hook_new:n #1
- {
- \exp_args:Nx \__hook_new:n
- { \__hook_parse_label_default:nn {#1} { top-level } }
- }
-\cs_new_protected:Npn \__hook_new:n #1 {
- \hook_if_exist:nTF {#1}
- { \ErrorHookExists }
- { \seq_gput_right:Nn \g__hook_all_seq {#1}
- \tl_new:c { g__hook_#1_code_tl }
- \__hook_declare:n {#1}
- \clist_new:c {g__hook_#1_labels_clist}
- \tl_new:c { g__hook_#1_reversed_tl }
- \__hook_provide_legacy_interface:n {#1}
- }
-}
-
-\cs_new_protected:Npn \__hook_declare:n #1
- {
- \__hook_if_exist:nF {#1}
- {
- \prop_new:c { g__hook_#1_code_prop }
- \tl_new:c { g__hook_#1_next_code_tl }
- \prop_new:c { g__hook_#1_rules_prop } % only for debugging
- }
- }
-
-\cs_new_protected:Npn \hook_new_reversed:n #1 {
- \hook_new:n {#1}
- \tl_gset:cn { g__hook_#1_reversed_tl } { - }
-}
-
-\cs_new_protected:Npn \hook_new_pair:nn #1#2 {
- \hook_new:n {#1} \hook_new_reversed:n {#2}
-}
-
-\cs_new_protected:Npn \__hook_provide_legacy_interface:n #1
- {
- \debug_suspend:
- \tl_if_exist:cT { @#1hook }
- {
- \tl_if_empty:cF { @#1hook }
- {
- \__hook_gput_code:nxv {#1}
- { \__hook_parse_label_default:Vn \c_novalue_tl { legacy } }
- { @#1hook }
- }
- }
- \tl_gset:co{@#1hook}{\cs:w g__hook_#1_code_tl\cs_end:}
- \debug_resume:
- }
-\cs_new:Npn \__hook_parse_label_default:nn #1 #2
- {
- \tl_if_novalue:nTF {#1}
- { \__hook_currname_or_default:n {#2} }
- { \tl_trim_spaces_apply:nN {#1} \__hook_parse_dot_label:nn {#2} }
- }
-\cs_generate_variant:Nn \__hook_parse_label_default:nn { V }
-\cs_new:Npn \__hook_parse_dot_label:nn #1 #2
- {
- \tl_if_empty:nTF {#1}
- {
- \msg_expandable_error:nnn { hooks } { empty-label } {#2}
- #2
- }
- {
- \str_if_eq:nnTF {#1} { . }
- { \__hook_currname_or_default:n {#1} }
- { \__hook_parse_dot_label:nw {#2} #1 ./ \s__hook_mark }
- }
- }
-\cs_new:Npn \__hook_parse_dot_label:nw #1 #2 ./ #3 \s__hook_mark
- {
- \tl_if_empty:nTF {#2}
- { \__hook_parse_dot_label_aux:nw {#1} #3 \s__hook_mark }
- {
- \tl_if_empty:nTF {#3}
- {#2}
- { \__hook_parse_dot_label_cleanup:w #2 ./ #3 \s__hook_mark }
- }
- }
-\cs_new:Npn \__hook_parse_dot_label_cleanup:w #1 ./ \s__hook_mark {#1}
-\cs_new:Npn \__hook_parse_dot_label_aux:nw #1 #2 ./ \s__hook_mark
- { \__hook_currname_or_default:n {#1} / #2 }
-\cs_new:Npn \__hook_currname_or_default:n #1
- {
- \tl_if_empty:NTF \g__hook_hook_curr_name_tl
- {
- \tl_if_empty:NTF \@currname
- {#1}
- { \@currname }
- }
- { \g__hook_hook_curr_name_tl }
- }
-
-\cs_new_protected:Npn \hook_gput_code:nnn #1 #2
- {
- \exp_args:Nxx \__hook_gput_code:nnn
- { \__hook_parse_label_default:nn {#1} { top-level } }
- { \__hook_parse_label_default:nn {#2} { top-level } }
- }
-\cs_new_protected:Npn \__hook_gput_code:nnn #1 #2 #3
- {
- \__hook_if_marked_removal:nnTF {#1} {#2}
- { \__hook_unmark_removal:nn {#1} {#2} }
- {
- \hook_if_exist:nTF {#1}
- {
- \__hook_hook_gput_code_do:nnn {#1} {#2} {#3}
- \__hook_update_hook_code:n {#1}
- }
- { \__hook_try_declaring_generic_hook:nnn {#1} {#2} {#3} }
- }
- }
-\cs_generate_variant:Nn \__hook_gput_code:nnn { nxv }
-\cs_new_protected:Npn \__hook_hook_gput_code_do:nnn #1 #2 #3
- {
- \__hook_debug:n{\iow_term:x{****~ Add~ to~
- \hook_if_exist:nF {#1} { undeclared~ }
- hook~ #1~ (#2)
- \on@line\space <-~ \tl_to_str:n{#3}} }
- \prop_get:cnNTF { g__hook_#1_code_prop } {#2} \l__hook_return_tl
- {
- \prop_gput:cno { g__hook_#1_code_prop } {#2}
- { \l__hook_return_tl #3 }
- }
- { \prop_gput:cnn { g__hook_#1_code_prop } {#2} {#3} }
- }
-\cs_new_protected:Npn \__hook_gput_undeclared_hook:nnn #1 #2 #3
- {
- \__hook_declare:n {#1}
- \__hook_hook_gput_code_do:nnn {#1} {#2} {#3}
- }
-\cs_new_protected:Npn \__hook_try_declaring_generic_hook:nnn #1
- {
- \__hook_try_declaring_generic_hook:nNNnn {#1}
- \hook_gput_code:nnn \__hook_gput_undeclared_hook:nnn
- }
-\cs_new_protected:Npn \__hook_try_declaring_generic_next_hook:nn #1
- {
- \__hook_try_declaring_generic_hook:nNNnn {#1}
- \hook_gput_next_code:nn \__hook_gput_next_do:nn
- }
-\cs_new_protected:Npn \__hook_try_declaring_generic_hook:nNNnn #1
- {
- \__hook_if_file_hook:wTF #1 / / \s__hook_mark
- {
- \exp_args:Ne \__hook_try_declaring_generic_hook_split:nNNnn
- { \exp_args:Ne \__hook_file_hook_normalise:n {#1} }
- }
- { \__hook_try_declaring_generic_hook_split:nNNnn {#1} }
- }
-\cs_new_protected:Npn \__hook_try_declaring_generic_hook_split:nNNnn #1 #2 #3
- {
- \__hook_try_declaring_generic_hook:wnTF #1 / / / \scan_stop: {#1}
- { #2 }
- { #3 } {#1}
- }
-\prg_new_protected_conditional:Npnn \__hook_try_declaring_generic_hook:wn
- #1 / #2 / #3 / #4 \scan_stop: #5 { TF }
- {
- \tl_if_empty:nTF {#2}
- { \prg_return_false: }
- {
- \prop_if_in:NnTF \c__hook_generics_prop {#1}
- {
- \hook_if_exist:nF {#5} { \hook_new:n {#5} }
- \prop_if_in:NnTF \c__hook_generics_reversed_ii_prop {#2}
- { \tl_gset:cn { g__hook_#5_reversed_tl } { - } }
- {
- \prop_if_in:NnT \c__hook_generics_reversed_iii_prop {#3}
- { \tl_gset:cn { g__hook_#5_reversed_tl } { - } }
- }
- \prg_return_true:
- }
- { \prg_return_false: }
- }
- }
-\prg_new_conditional:Npnn \__hook_if_file_hook:w
- #1 / #2 / #3 \s__hook_mark { TF }
- {
- \str_if_eq:nnTF {#1} { file }
- {
- \bool_lazy_or:nnTF
- { \tl_if_empty_p:n {#3} }
- { \str_if_eq_p:nn {#3} { / } }
- { \prg_return_false: }
- {
- \prop_if_in:NnTF \c__hook_generics_file_prop {#2}
- { \prg_return_true: }
- { \prg_return_false: }
- }
- }
- { \prg_return_false: }
- }
-\cs_new:Npn \__hook_file_hook_normalise:n #1
- { \__hook_strip_double_slash:n {#1} }
-\cs_new:Npn \__hook_strip_double_slash:n #1
- { \__hook_strip_double_slash:w #1 // \s__hook_mark }
-\cs_new:Npn \__hook_strip_double_slash:w #1 // #2 \s__hook_mark
- {
- \tl_if_empty:nTF {#2}
- {#1}
- { \__hook_strip_double_slash:w #1 / #2 \s__hook_mark }
- }
-
-\prop_const_from_keyval:Nn \c__hook_generics_prop
- {env=,file=,package=,class=,include=}
-\prop_const_from_keyval:Nn \c__hook_generics_reversed_ii_prop {after=,end=}
-\prop_const_from_keyval:Nn \c__hook_generics_reversed_iii_prop {after=}
-\prop_const_from_keyval:Nn \c__hook_generics_file_prop {before=,after=}
-
-\cs_new_eq:NN \__hook_update_hook_code:n \use_none:n
-
-\cs_new_protected:Npn \hook_gremove_code:nn #1 #2
- {
- \exp_args:Nxx \__hook_gremove_code:nn
- { \__hook_parse_label_default:nn {#1} { top-level } }
- { \__hook_parse_label_default:nn {#2} { top-level } }
- }
-\cs_new_protected:Npn \__hook_gremove_code:nn #1 #2
- {
- \__hook_if_exist:nTF {#1}
- {
- \str_if_eq:nnTF {#2} {*}
- {
- \prop_gclear:c { g__hook_#1_code_prop }
- \clist_gclear:c { g__hook_#1_labels_clist } % for debugging only
- }
- {
- \prop_get:cnNTF { g__hook_#1_code_prop } {#2} \l__hook_return_tl
- { \__hook_gremove_code_do:nn }
- { \__hook_mark_removal:nn }
- {#1} {#2}
- }
- \hook_if_exist:nT {#1}
- { \__hook_update_hook_code:n {#1} }
- }
- { \__hook_mark_removal:nn {#1} {#2} }
- }
-\cs_new_protected:Npn \__hook_gremove_code_do:nn #1 #2
- {
- \prop_gremove:cn { g__hook_#1_code_prop } {#2}
- \exp_args:Nco \clist_gremove_all:Nn
- { g__hook_#1_labels_clist } { \tl_to_str:n {#2} } % for debugging only
- }
-
-\cs_new_protected:Npn \__hook_mark_removal:nn #1 #2
- {
- \tl_gput_right:Nx \g__hook_removal_list_tl
- { \__hook_removal_tl:nn {#1} {#2} }
- }
-\cs_new_protected:Npn \__hook_unmark_removal:nn #1 #2
- {
- \tl_gremove_once:Nx \g__hook_removal_list_tl
- { \__hook_removal_tl:nn {#1} {#2} }
- }
-\prg_new_protected_conditional:Npnn \__hook_if_marked_removal:nn #1 #2 { TF }
- {
- \exp_args:NNx \tl_if_in:NnTF \g__hook_removal_list_tl
- { \__hook_removal_tl:nn {#1} {#2} }
- { \prg_return_true: } { \prg_return_false: }
- }
-\cs_new:Npn \__hook_removal_tl:nn #1 #2
- { & \tl_to_str:n {#2} $ \tl_to_str:n {#1} $ }
-
-\prop_new:c {g__hook_??_rules_prop}
-\prop_new:c {g__hook_??_code_prop}
-\prop_new:c {g__hook_??_code_tl}
-\tl_new:c {g__hook_??_reversed_tl}
-
-\cs_new_protected:Npn \__hook_debug_gset_rule:nnnn #1#2#3#4
- {
- \prop_gremove:cn{g__hook_#1_rules_prop}{#2|#4}
- \prop_gremove:cn{g__hook_#1_rules_prop}{#4|#2}
- \str_case_e:nnF {#3}
- {
- {before} { \prop_gput:cnn {g__hook_#1_rules_prop}{#2|#4}{<} }
- {after} { \prop_gput:cnn {g__hook_#1_rules_prop}{#4|#2}{<} }
- {incompatible-error} { \prop_gput:cnn {g__hook_#1_rules_prop}{#2|#4}{xE} }
- {incompatible-warning} { \prop_gput:cnn {g__hook_#1_rules_prop}{#2|#4}{xW} }
- {removes} { \prop_gput:cnn {g__hook_#1_rules_prop}{#2|#4}{->} }
- {unrelated}{ \prop_gremove:cn {g__hook_#1_rules_prop}{#2|#4}
- \prop_gremove:cn {g__hook_#1_rules_prop}{#4|#2} }
- }
- { \ERRORunknownrule }
- }
-\cs_new_protected:Npn \hook_gset_rule:nnnn #1#2#3#4
- {
- \use:x
- {
- \__hook_gset_rule:nnnn
- { \__hook_parse_label_default:nn {#1} { top-level } }
- { \__hook_parse_label_default:nn {#2} { top-level } }
- {#3}
- { \__hook_parse_label_default:nn {#4} { top-level } }
- }
- }
-\cs_new_protected:Npn \__hook_gset_rule:nnnn #1#2#3#4
- {
- \__hook_declare:n {#1}
- \__hook_rule_gclear:nnn {#1} {#2} {#4}
- \debug_suspend:
- \cs_if_exist_use:cTF { __hook_rule_#3_gset:nnn }
- {
- {#1} {#2} {#4}
- \__hook_update_hook_code:n {#1}
- }
- { \ERRORunknownrule }
- \debug_resume:
- \__hook_debug_gset_rule:nnnn {#1} {#2} {#3} {#4} % for debugging
- }
-\cs_new_protected:Npn \__hook_rule_before_gset:nnn #1#2#3
- {
- \tl_gset:cx { g__hook_#1_rule_ \__hook_label_pair:nn {#2} {#3} _tl }
- { \__hook_label_ordered:nnTF {#2} {#3} { < } { > } }
- }
-\cs_new_eq:cN { __hook_rule_<_gset:nnn } \__hook_rule_before_gset:nnn
-\cs_new_protected:Npn \__hook_rule_after_gset:nnn #1#2#3
- {
- \tl_gset:cx { g__hook_#1_rule_ \__hook_label_pair:nn {#3} {#2} _tl }
- { \__hook_label_ordered:nnTF {#3} {#2} { < } { > } }
- }
-\cs_new_eq:cN { __hook_rule_>_gset:nnn } \__hook_rule_after_gset:nnn
-\cs_new_protected:Npn \__hook_rule_removes_gset:nnn #1#2#3
- {
- \tl_gset:cx { g__hook_#1_rule_ \__hook_label_pair:nn {#2} {#3} _tl }
- { \__hook_label_ordered:nnTF {#2} {#3} { -> } { <- } }
- }
-\cs_new_protected:cpn { __hook_rule_incompatible-error_gset:nnn } #1#2#3
- { \tl_gset:cn { g__hook_#1_rule_ \__hook_label_pair:nn {#2} {#3} _tl } { xE } }
-\cs_new_protected:cpn { __hook_rule_incompatible-warning_gset:nnn } #1#2#3
- { \tl_gset:cn { g__hook_#1_rule_ \__hook_label_pair:nn {#2} {#3} _tl } { xW } }
-\cs_new_protected:Npn \__hook_rule_unrelated_gset:nnn #1#2#3 { }
-\cs_new_protected:Npn \__hook_rule_gclear:nnn #1#2#3
- { \cs_undefine:c { g__hook_#1_rule_ \__hook_label_pair:nn {#2} {#3} _tl } }
-\cs_new:Npn \__hook_label_pair:nn #1#2
- {
- \if_case:w \__hook_str_compare:nn {#1} {#2} \exp_stop_f:
- #1 | #1 % 0
- \or: #1 | #2 % +1
- \else: #2 | #1 % -1
- \fi:
- }
-\prg_new_conditional:Npnn \__hook_label_ordered:nn #1#2 { TF }
- {
- \if_int_compare:w \__hook_str_compare:nn {#1} {#2} > 0 \exp_stop_f:
- \prg_return_true:
- \else
- \prg_return_false:
- \fi:
- }
-\cs_new:Npn \__hook_if_label_case:nnnnn #1#2
- {
- \cs:w use_
- \if_case:w \__hook_str_compare:nn {#1} {#2}
- i \or: ii \else: iii \fi: :nnn
- \cs_end:
- }
-
-\cs_new_protected:Npn \__hook_initialize_all: {
- \cs_gset_eq:NN \__hook_update_hook_code:n \__hook_initialize_hook_code:n
- \__hook_debug:n { \prop_gclear:N \g__hook_used_prop }
- \seq_map_inline:Nn \g__hook_all_seq
- {
- \__hook_update_hook_code:n {##1}
- }
- \__hook_debug:n
- { \iow_term:x{^^JAll~ initialized~ (non-empty)~ hooks:}
- \prop_map_inline:Nn \g__hook_used_prop
- { \iow_term:x{^^J~ ##1~ ->~
- \exp_not:v {g__hook_##1_code_tl}~ }
- }
- }
- \cs_gset_eq:NN \hook_use:n \__hook_use_initialized:n
- \cs_gset_eq:NN \__hook_preamble_hook:n \use_none:n
-}
-
-\cs_new_protected:Npn \__hook_initialize_hook_code:n #1 {
- \__hook_debug:n{ \iow_term:x{^^JUpdate~ code~ for~ hook~
- '#1' \on@line :^^J} }
- \hook_if_exist:nT {#1}
- {
- \prop_if_empty:cTF {g__hook_#1_code_prop}
- { \tl_gset:co {g__hook_#1_code_tl}
- {\cs:w g__hook_#1_next_code_tl \cs_end: } }
- {
- \__hook_if_reversed:nTF {#1}
- { \cs_set_eq:NN \__hook_tl_gput:NV \tl_gput_left:NV
- \cs_set_eq:NN \__hook_clist_gput:NV \clist_gput_left:NV }
- { \cs_set_eq:NN \__hook_tl_gput:NV \tl_gput_right:NV
- \cs_set_eq:NN \__hook_clist_gput:NV \clist_gput_right:NV }
- \prop_gset_eq:Nc \g__hook_code_temp_prop { g__hook_#1_code_prop }
- \__hook_initialize_single:ccccn
- { g__hook_#1_code_prop } { g__hook_#1_code_tl }
- { g__hook_#1_next_code_tl } { g__hook_#1_labels_clist }
- {#1}
- \prop_gset_eq:cN { g__hook_#1_code_prop } \g__hook_code_temp_prop
- \__hook_debug:n{ \exp_args:NNx \prop_gput:Nnn \g__hook_used_prop {#1}{} }
- }
- }
-}
-
-\prop_new:N\g__hook_used_prop
-
-\cs_new:Npn \__hook_tl_csname:n #1 { l__hook_label_#1_tl }
-\cs_new:Npn \__hook_seq_csname:n #1 { l__hook_label_#1_seq }
-
-\seq_new:N \l__hook_labels_seq
-\int_new:N \l__hook_labels_int
-\tl_new:N \l__hook_front_tl
-\tl_new:N \l__hook_rear_tl
-\tl_new:c { \__hook_tl_csname:n { 0 } }
-
-\cs_new_protected:Npn \__hook_initialize_single:NNNNn #1#2#3#4#5 {
- \debug_suspend:
- \seq_clear:N \l__hook_labels_seq
- \int_zero:N \l__hook_labels_int
- \tl_set:Nn \l__hook_cur_hook_tl {#5}
- \prop_map_inline:Nn #1
- {
- \int_incr:N \l__hook_labels_int
- \seq_put_right:Nn \l__hook_labels_seq {##1}
- \tl_set:cn { \__hook_tl_csname:n {##1} }{0} % the counter k for number of
- % j before k rules
- \seq_clear_new:c { \__hook_seq_csname:n {##1} } % sequence of successors to k
- % i.e., k before j rules (stores
- % the names of the j's)
- }
- \prop_map_inline:Nn #1
- {
- \prop_map_inline:Nn #1
- {
- \__hook_if_label_case:nnnnn {##1} {####1}
- { \prop_map_break: }
- { \__hook_apply_label_pair:nnn {##1} {####1} }
- { \__hook_apply_label_pair:nnn {####1} {##1} }
- {#5}
- }
- }
- \__hook_debug:n { \__hook_debug_label_data:N #1 }
- \tl_set:Nn \l__hook_rear_tl { 0 }
- \tl_set:cn { \__hook_tl_csname:n { 0 } } { 0 } % really {l__hook_label_ \l__hook_rear_tl _tl}
- \seq_map_inline:Nn \l__hook_labels_seq
- {
- \int_compare:nNnT { \cs:w \__hook_tl_csname:n {##1} \cs_end: } = 0
- {
- \tl_set:cn { \__hook_tl_csname:n { \l__hook_rear_tl } }{##1}
- \tl_set:Nn \l__hook_rear_tl {##1}
- }
- }
- \tl_set_eq:Nc \l__hook_front_tl { \__hook_tl_csname:n { 0 } }
- \tl_gclear:N #2
- \clist_gclear:N #4
- \bool_while_do:nn { ! \str_if_eq_p:Vn \l__hook_front_tl { 0 } }
- {
- \int_decr:N \l__hook_labels_int
- \prop_get:NVN #1 \l__hook_front_tl \l__hook_return_tl
- \__hook_tl_gput:NV #2 \l__hook_return_tl
- \__hook_clist_gput:NV #4 \l__hook_front_tl
- \__hook_debug:n{ \iow_term:x{Handled~ code~ for~ \l__hook_front_tl} }
- \seq_map_inline:cn { \__hook_seq_csname:n { \l__hook_front_tl } }
- {
- \tl_set:cx { \__hook_tl_csname:n {##1} }
- { \int_eval:n { \cs:w \__hook_tl_csname:n {##1} \cs_end: - 1 } }
- \int_compare:nNnT { \cs:w \__hook_tl_csname:n {##1} \cs_end: } = 0
- {
- \tl_set:cn { \__hook_tl_csname:n { \l__hook_rear_tl } } {##1}
- \tl_set:Nn \l__hook_rear_tl {##1}
- }
- }
- \tl_set_eq:Nc \l__hook_front_tl { \__hook_tl_csname:n { \l__hook_front_tl } }
- }
- \int_compare:nNnF \l__hook_labels_int = 0
- {
- \iow_term:x{====================}
- \iow_term:x{Error:~ label~ rules~ are~ incompatible:}
- \__hook_debug_label_data:N #1
- \iow_term:x{====================}
- }
- \tl_gput_right:Nn #2 {#3}
- \debug_resume:
-}
-\cs_generate_variant:Nn \__hook_initialize_single:NNNNn {cccc}
-
-\cs_new:Npn \__hook_tl_gput:NV {\ERROR}
-\cs_new:Npn \__hook_clist_gput:NV {\ERROR}
-
-\cs_new_protected:Npn \__hook_apply_label_pair:nnn #1#2#3
- {
- \__hook_label_if_exist_apply:nnnF {#1} {#2} {#3}
- {
- \__hook_label_if_exist_apply:nnnF {#1} {#2} { ?? } { }
- }
- }
-\cs_new_protected:Npn \__hook_label_if_exist_apply:nnnF #1#2#3
- {
- \if_cs_exist:w g__hook_ #3 _rule_ #1 | #2 _tl \cs_end:
- \__hook_apply_rule:nnn {#1} {#2} {#3}
- \exp_after:wN \use_none:n
- \else:
- \use:nn
- \fi:
- }
-
-\cs_new_protected:Npn \__hook_apply_rule:nnn #1#2#3
- {
- \cs:w __hook_apply_
- \cs:w g__hook_#3_reversed_tl \cs_end: rule_
- \cs:w g__hook_ #3 _rule_ #1 | #2 _tl \cs_end: :nnn \cs_end:
- {#1} {#2} {#3}
- }
-\cs_new_protected:cpn { __hook_apply_rule_<:nnn } #1#2#3
- {
- \__hook_debug:n { \__hook_msg_pair_found:nnn {#1} {#2} {#3} }
- \tl_set:cx { \__hook_tl_csname:n {#2} }
- { \int_eval:n{ \cs:w \__hook_tl_csname:n {#2} \cs_end: + 1 } }
- \seq_put_right:cn{ \__hook_seq_csname:n {#1} }{#2}
- }
-\cs_new_protected:cpn { __hook_apply_rule_>:nnn } #1#2#3
- {
- \__hook_debug:n { \__hook_msg_pair_found:nnn {#1} {#2} {#3} }
- \tl_set:cx { \__hook_tl_csname:n {#1} }
- { \int_eval:n{ \cs:w \__hook_tl_csname:n {#1} \cs_end: + 1 } }
- \seq_put_right:cn{ \__hook_seq_csname:n {#2} }{#1}
- }
-\cs_new_protected:cpn { __hook_apply_rule_xE:nnn } #1#2#3
- {
- \__hook_debug:n { \__hook_msg_pair_found:nnn {#1} {#2} {#3} }
- \msg_error:nnnnnn { hooks } { labels-incompatible }
- {#1} {#2} {#3} { 1 }
- \use:c { __hook_apply_rule_->:nnn } {#1} {#2} {#3}
- \use:c { __hook_apply_rule_<-:nnn } {#1} {#2} {#3}
- }
-\cs_new_protected:cpn { __hook_apply_rule_xW:nnn } #1#2#3
- {
- \__hook_debug:n { \__hook_msg_pair_found:nnn {#1} {#2} {#3} }
- \msg_warning:nnnnnn { hooks } { labels-incompatible }
- {#1} {#2} {#3} { 0 }
- }
-\cs_new_protected:cpn { __hook_apply_rule_->:nnn } #1#2#3
- {
- \__hook_debug:n
- {
- \__hook_msg_pair_found:nnn {#1} {#2} {#3}
- \iow_term:x{--->~ Drop~ '#2'~ code~ from~
- \iow_char:N \\ g__hook_ \l__hook_cur_hook_tl _code_prop ~ because~ of~ '#1' }
- }
- \prop_gput:cnn { g__hook_ \l__hook_cur_hook_tl _code_prop } {#2} { }
- }
-\cs_new_protected:cpn { __hook_apply_rule_<-:nnn } #1#2#3
- {
- \__hook_debug:n
- {
- \__hook_msg_pair_found:nnn {#1} {#2} {#3}
- \iow_term:x{--->~ Drop~ '#1'~ code~ from~
- \iow_char:N \\ g__hook_ \l__hook_cur_hook_tl _code_prop ~ because~ of~ '#2' }
- }
- \prop_gput:cnn { g__hook_ \l__hook_cur_hook_tl _code_prop } {#1} { }
- }
-
-\cs_new_eq:cc { __hook_apply_-rule_<:nnn } { __hook_apply_rule_>:nnn }
-\cs_new_eq:cc { __hook_apply_-rule_>:nnn } { __hook_apply_rule_<:nnn }
-\cs_new_eq:cc { __hook_apply_-rule_<-:nnn } { __hook_apply_rule_<-:nnn }
-\cs_new_eq:cc { __hook_apply_-rule_->:nnn } { __hook_apply_rule_->:nnn }
-\cs_new_eq:cc { __hook_apply_-rule_xE:nnn } { __hook_apply_rule_xE:nnn }
-\cs_new_eq:cc { __hook_apply_-rule_xW:nnn } { __hook_apply_rule_xW:nnn }
-
-\cs_new_protected:Npn \__hook_msg_pair_found:nnn #1#2#3
- {
- \iow_term:x{~ \str_if_eq:nnTF {#3} {??} {default} {~normal} ~
- rule~ \__hook_label_pair:nn {#1} {#2}:~
- \use:c { g__hook_#3_rule_ \__hook_label_pair:nn {#1} {#2} _tl } ~ found}
- }
-
-\cs_new_protected:Npn \__hook_debug_label_data:N #1 {
- \iow_term:x{Code~ labels~ for~ sorting:}
- \iow_term:x{~ \seq_use:Nnnn\l__hook_labels_seq {~and~}{,~}{~and~} } % fix name!
- \iow_term:x{^^J Data~ structure~ for~ label~ rules:}
- \prop_map_inline:Nn #1
- {
- \iow_term:x{~ ##1~ =~ \tl_use:c{ \__hook_tl_csname:n {##1} }~ ->~
- \seq_use:cnnn{ \__hook_seq_csname:n {##1} }{~->~}{~->~}{~->~}
- }
- }
- \iow_term:x{}
-}
-
-\cs_new_protected:Npn \hook_log:n #1
- {
- \exp_args:Nx \__hook_log:n
- { \__hook_parse_label_default:nn {#1} { top-level } }
- }
-\cs_new_protected:Npn \__hook_log:n #1
- {
- \iow_term:x{^^JThe~ hook~ '#1':}
- \hook_if_exist:nF {#1}
- { \iow_term:x {~Hook~ is~ not~ declared!} }
- \__hook_if_exist:nTF {#1}
- {
- \iow_term:x{~Code~ chunks:}
- \prop_if_empty:cTF {g__hook_#1_code_prop}
- { \iow_term:x{\@spaces ---} }
- {
- \prop_map_inline:cn {g__hook_#1_code_prop}
- { \iow_term:x{\@spaces ##1~ ->~ \tl_to_str:n{##2} } }
- }
- \iow_term:x{~Extra~ code~ next~ invocation:}
- \iow_term:x{\@spaces
- \tl_if_empty:cTF { g__hook_#1_next_code_tl }
- {---} {->~ \str_use:c{g__hook_#1_next_code_tl} } }
- \iow_term:x{~Rules:}
- \prop_if_empty:cTF {g__hook_#1_rules_prop}
- { \iow_term:x{\@spaces ---} }
- { \prop_map_inline:cn {g__hook_#1_rules_prop}
- { \iow_term:x{\@spaces ##1~ with~ relation~ ##2} }
- }
- \hook_if_exist:nT {#1}
- { \iow_term:x { ~Execution~ order
- \prop_if_empty:cTF {g__hook_#1_rules_prop}
- { \__hook_if_reversed:nT {#1}
- { ~ (after~ reversal) }
- }
- { ~ (after~
- \__hook_if_reversed:nT {#1} {reversal~ and~}
- applying~ rules)
- }
- :
- }
- \iow_term:x { \@spaces
- \clist_if_empty:cTF{g__hook_#1_labels_clist}
- {not~ set~ yet}
- { \clist_use:cnnn {g__hook_#1_labels_clist}
- { ,~ } { ,~ } { ,~ } }
- }
- }
- }
- { \iow_term:n { ~The~hook~is~empty. } }
- \iow_term:n { }
- }
-
-\cs_new_protected:Npn \hook_gput_next_code:nn #1
- {
- \exp_args:Nx \__hook_gput_next_code:nn
- { \__hook_parse_label_default:nn {#1} { top-level } }
- }
-\cs_new_protected:Npn \__hook_gput_next_code:nn #1 #2
- {
- \__hook_declare:n {#1}
- \hook_if_exist:nTF {#1}
- { \__hook_gput_next_do:nn {#1} {#2} }
- { \__hook_try_declaring_generic_next_hook:nn {#1} {#2} }
- }
-\cs_new_protected:Npn \__hook_gput_next_do:nn #1 #2
- {
- \tl_gput_right:cn { g__hook_#1_next_code_tl }
- { #2 \tl_gclear:c { g__hook_#1_next_code_tl } }
- }
-\cs_new_protected:Npn \hook_use:n #1
- {
- \tl_if_exist:cTF { g__hook_#1_code_tl }
- {
- \__hook_preamble_hook:n {#1}
- \cs:w g__hook_#1_code_tl \cs_end:
- }
- { \__hook_use:wn #1 / \s__hook_mark {#1} }
- }
-\cs_new:Npn \__hook_use_initialized:n #1
- {
- \tl_if_exist:cTF { g__hook_#1_code_tl }
- { \cs:w g__hook_#1_code_tl \cs_end: }
- { \__hook_use:wn #1 / \s__hook_mark {#1} }
- }
-\cs_new_protected:Npn \__hook_preamble_hook:n #1
- { \__hook_initialize_hook_code:n {#1} }
-\cs_new:Npn \__hook_use:wn #1 / #2 \s__hook_mark #3
- {
- \str_if_eq:nnTF {#1} { file }
- { \__hook_try_file_hook:n {#3} }
- { } % Hook doesn't exist
- }
-\cs_new_protected:Npn \__hook_try_file_hook:n #1
- {
- \__hook_if_file_hook:wTF #1 / / \s__hook_mark
- {
- \exp_args:Ne \__hook_if_exist_use:n
- { \exp_args:Ne \__hook_file_hook_normalise:n {#1} }
- }
- { \__hook_if_exist_use:n {#1} } % file/ generic hook (e.g. file/before)
- }
-\cs_new_protected:Npn \__hook_if_exist_use:n #1
- {
- \tl_if_exist:cT { g__hook_#1_code_tl }
- {
- \__hook_preamble_hook:n {#1}
- \cs:w g__hook_#1_code_tl \cs_end:
- }
- }
-\cs_new_protected:Npn \hook_use_once:n #1
- {
- \tl_if_exist:cT { g__hook_#1_code_tl }
- {
- \clist_gput_left:Nn \g__hook_execute_immediately_clist {#1}
- \hook_use:n {#1}
- }
- }
-
-\prg_new_conditional:Npnn \hook_if_empty:n #1 { p , T , F , TF }
- {
- \__hook_if_exist:nTF {#1}
- {
- \bool_lazy_and:nnTF
- { \prop_if_empty_p:c { g__hook_#1_code_prop } }
- { \tl_if_empty_p:c { g__hook_#1_next_code_tl } }
- { \prg_return_true: }
- { \prg_return_false: }
- }
- { \prg_return_true: }
- }
-
-\prg_new_conditional:Npnn \hook_if_exist:n #1 { p , T , F , TF }
- {
- \tl_if_exist:cTF { g__hook_#1_code_tl }
- { \prg_return_true: }
- { \prg_return_false: }
- }
-
-\prg_new_conditional:Npnn \__hook_if_exist:n #1 { p , T , F , TF }
- {
- \prop_if_exist:cTF { g__hook_#1_code_prop }
- { \prg_return_true: }
- { \prg_return_false: }
- }
-\prg_new_conditional:Npnn \__hook_if_reversed:n #1 { p , T , F , TF }
- {
- \if_int_compare:w \cs:w g__hook_#1_reversed_tl \cs_end: 1 < 0 \exp_stop_f:
- \prg_return_true:
- \else:
- \prg_return_false:
- \fi:
- }
-
-\clist_new:N \g__hook_execute_immediately_clist
-\msg_new:nnnn { hooks } { labels-incompatible }
- {
- Labels~`#1'~and~`#2'~are~incompatible
- \str_if_eq:nnF {#3} {??} { ~in~hook~`#3' } .~
- \int_compare:nNnT {#4} = { 1 }
- { The~code~for~both~labels~will~be~dropped. }
- }
- {
- LaTeX~found~two~incompatible~labels~in~the~same~hook.~
- This~indicates~an~incompatibility~between~packages.
- }
-\msg_new:nnn { hooks } { empty-label }
- { Empty~code~label~\msg_line_context:.~Using~`#1'~instead. }
-
-\NewDocumentCommand \NewHook { m }{ \hook_new:n {#1} }
-\NewDocumentCommand \NewReversedHook { m }{ \hook_new_reversed:n {#1} }
-\NewDocumentCommand \NewMirroredHookPair { mm }{ \hook_new_pair:nn {#1}{#2} }
-
-\NewDocumentCommand \AddToHook { m o +m }
- {
- \clist_if_in:NnTF \g__hook_execute_immediately_clist {#1}
- {#3}
- { \hook_gput_code:nnn {#1} {#2} {#3} }
- }
-
-\NewDocumentCommand \AddToHookNext { m +m }
- { \hook_gput_next_code:nn {#1} {#2} }
-
-\NewDocumentCommand \RemoveFromHook { m o }
- { \hook_gremove_code:nn {#1} {#2} }
-\str_if_eq:VnTF \@currname { lthooks }
- {
- \seq_gpush:Nn \g__hook_name_stack_seq { lthooks }
- \cs_set_protected:Npn \__hook_tmp:w #1 #2 #3
- {
- \quark_if_recursion_tail_stop:n {#1}
- \seq_gput_right:Nn \g__hook_name_stack_seq { }
- \__hook_tmp:w
- }
- \exp_after:wN \__hook_tmp:w
- \@currnamestack
- \q_recursion_tail \q_recursion_tail
- \q_recursion_tail \q_recursion_stop
- }
- { \seq_gpush:Nn \g__hook_name_stack_seq { } }
-\cs_new_protected:Npn \__hook_curr_name_push:n #1
- {
- \seq_gpush:Nn \g__hook_name_stack_seq {#1}
- \tl_gset:Nn \g__hook_hook_curr_name_tl {#1}
- }
-\cs_new_protected:Npn \__hook_curr_name_pop:
- {
- \seq_gpop:NN \g__hook_name_stack_seq \l__hook_return_tl
- \seq_get:NNTF \g__hook_name_stack_seq \l__hook_return_tl
- { \tl_gset_eq:NN \g__hook_hook_curr_name_tl \l__hook_return_tl }
- { \ERROR_should_not_happen }
- }
-\NewDocumentCommand \DeclareDefaultHookLabel { m }
- {
- \seq_gpop:NN \g__hook_name_stack_seq \l__hook_return_tl
- \__hook_curr_name_push:n {#1}
- }
-\tl_gput_left:Nn \@pushfilename { \__hook_curr_name_push:n { } }
-\tl_gput_left:Nn \@popfilename { \__hook_curr_name_pop: }
-\newcommand \UseHook { \hook_use:n }
-\cs_new_protected:Npn \UseOneTimeHook { \hook_use_once:n }
-
-\cs_new_protected:Npn \ShowHook { \hook_log:n }
-
-\cs_new_protected:Npn \DebugHookOn { \hook_debug_on: }
-\cs_new_protected:Npn \DebugHookOff { \hook_debug_off: }
-
-\NewDocumentCommand \DeclareHookRule { m m m m }
-{ \hook_gset_rule:nnnn {#1}{#2}{#3}{#4} }
-
-\NewDocumentCommand \DeclareDefaultHookRule { m m m }
- { \hook_gset_rule:nnnn {??}{#1}{#2}{#3} }
-\@onlypreamble\DeclareDefaultHookRule
-\NewDocumentCommand \ClearHookRule { m m m }
-{ \hook_gset_rule:nnnn {#1}{#2}{unrelated}{#3} }
-\NewExpandableDocumentCommand \IfHookExistTF { m }
- { \hook_if_exist:nTF {#1} }
-\NewExpandableDocumentCommand \IfHookEmptyTF { m }
- { \hook_if_empty:nTF {#1} }
-
-\renewcommand\AtBeginDocument{\AddToHook{begindocument}}
-
-\renewcommand\AtEndDocument {\AddToHook{enddocument}}
-
-\begingroup
- \def\@currname{}
- \NewHook{begindocument}
- \NewHook{enddocument}
- \NewHook{rmfamily}
- \NewHook{sffamily}
- \NewHook{ttfamily}
- \NewHook{defaultfamily}
- \NewHook{documentclass}
-\endgroup
-\let\begin\relax % avoid redeclaration message
-\DeclareRobustCommand*\begin[1]{%
- \UseHook{env/#1/before}%
- \@ifundefined{#1}%
- {\def\reserved@a{\@latex@error{Environment~#1~undefined}\@eha}}%
- {\def\reserved@a{\def\@currenvir{#1}%
- \edef\@currenvline{\on@line}%
- \@execute@begin@hook{#1}%
- \csname #1\endcsname}}%
- \@ignorefalse
- \begingroup\@endpefalse\reserved@a}
-\def\@execute@begin@hook #1{%
- \expandafter\ifx\csname #1\endcsname\document
- \endgroup
- \gdef\@execute@begin@hook##1{\UseHook{env/##1/begin}}%
- \__hook_initialize_all:
- \@execute@begin@hook{#1}%
- \else
- \UseHook{env/#1/begin}%
- \fi
-}
-\@namedef{end~}#1{%
- \UseHook{env/#1/end}%
- \csname end#1\endcsname\@checkend{#1}%
- \expandafter\endgroup\if@endpe\@doendpe\fi
- \UseHook{env/#1/after}%
- \if@ignore\@ignorefalse\ignorespaces\fi}%
-\@namedef{end~}#1{%
-\romannumeral
-\IfHookEmptyTF{env/#1/end}%
- {\expandafter\z@}%
- {\z@\UseHook{env/#1/end}}%
-\csname end#1\endcsname\@checkend{#1}%
-\expandafter\endgroup\if@endpe\@doendpe\fi
-\UseHook{env/#1/after}%
-\if@ignore\@ignorefalse\ignorespaces\fi}%
-\newcommand\AtBeginEnvironment[1] {\AddToHook{env/#1/begin}}
-\newcommand\AtEndEnvironment[1] {\AddToHook{env/#1/end}}
-\newcommand\BeforeBeginEnvironment[1]{\AddToHook{env/#1/before}}
-\newcommand\AfterEndEnvironment[1] {\AddToHook{env/#1/after}}
-\ExplSyntaxOff
-\NewHook{begindocument/end}
-
-\def\document{%
- \@kernel@after@env@document@begin
- \@expl@sys@load@backend@@
- \ifx\@unusedoptionlist\@empty\else
- \@latex@warning@no@line{Unused global option(s):^^J%
- \@spaces[\@unusedoptionlist]}%
- \fi
- \@colht\textheight
- \@colroom\textheight \vsize\textheight
- \columnwidth\textwidth
- \@clubpenalty\clubpenalty
- \if@twocolumn
- \advance\columnwidth -\columnsep
- \divide\columnwidth\tw@ \hsize\columnwidth \@firstcolumntrue
- \fi
- \hsize\columnwidth \linewidth\hsize
- \begingroup\@floatplacement\@dblfloatplacement
- \makeatletter\let\@writefile\@gobbletwo
- \global \let \@multiplelabels \relax
- \@input{\jobname.aux}%
- \endgroup
- \if@filesw
- \immediate\openout\@mainaux\jobname.aux
- \immediate\write\@mainaux{\relax}%
- \fi
- \process@table
- \let\glb@currsize\@empty % Force math initialization.
- \normalsize
- \everypar{}%
- \ifx\normalsfcodes\@empty
- \ifnum\sfcode`\.=\@m
- \let\normalsfcodes\frenchspacing
- \else
- \let\normalsfcodes\nonfrenchspacing
- \fi
- \fi
- \ifx\document@default@language\m@ne
- \chardef\document@default@language\language
- \fi
- \@noskipsecfalse
- \let \@refundefined \relax
- \UseOneTimeHook{begindocument}%
- \@kernel@after@begindocument
- \ifdim\topskip<1sp\global\topskip 1sp\relax\fi
- \global\@maxdepth\maxdepth
- \global\let\@begindocumenthook\@undefined
- \ifx\@listfiles\@undefined
- \global\let\@filelist\relax
- \global\let\@addtofilelist\@gobble
- \fi
- \gdef\do##1{\global\let ##1\@notprerr}%
- \@preamblecmds
- \global\let \@nodocument \relax
- \global\let\do\noexpand
- \UseOneTimeHook{begindocument/end}%
- \ignorespaces}
-\let\@kernel@after@begindocument\@empty
-\edef \@kernel@after@env@document@begin{%
- \let\expandafter\noexpand\csname
- g__hook_env/document/begin_code_tl\endcsname
- \noexpand\@empty}
-\let\@kernel@hook@begindocument\@empty
-\NewHook{enddocument/afterlastpage}
-\NewHook{enddocument/afteraux}
-\NewHook{enddocument/info}
-\NewHook{enddocument/end}
-
-\def\enddocument{%
- \UseHook{enddocument}%
- \@kernel@after@enddocument
- \@checkend{document}%
- \clearpage
- \UseHook{enddocument/afterlastpage}%
- \@kernel@after@enddocument@afterlastpage
- \begingroup
- \if@filesw
- \immediate\closeout\@mainaux
- \let\@setckpt\@gobbletwo
- \let\@newl@bel\@testdef
- \@tempswafalse
- \makeatletter \@@input\jobname.aux
- \fi
- \UseHook{enddocument/afteraux}%
- \UseHook{enddocument/info}%
- \endgroup
- \UseHook{enddocument/end}%
- \deadcycles\z@\@@end}
-\let\@kernel@after@enddocument\@empty
-\let\@kernel@after@enddocument@afterlastpage\@empty
-\def\@enddocument@kernel@warnings{%
- \ifdim \font@submax >\fontsubfuzz\relax
- \@font@warning{Size substitutions with differences\MessageBreak
- up to \font@submax\space have occurred.\@gobbletwo}%
- \fi
- \@defaultsubs
- \@refundefined
- \if@filesw
- \ifx \@multiplelabels \relax
- \if@tempswa
- \@latex@warning@no@line{Label(s) may have changed.
- Rerun to get cross-references right}%
- \fi
- \else
- \@multiplelabels
- \fi
- \fi
-}
-\AddToHook{enddocument/info}[kernel/filelist]{\@dofilelist}
-\AddToHook{enddocument/info}[kernel/warnings]{\@enddocument@kernel@warnings}
-\DeclareHookRule{enddocument/info}{kernel/filelist}{before}{kernel/warnings}
-\expandafter\let\csname ver@atveryend.sty\endcsname\fmtversion
-\newcommand\AfterLastShipout {\AddToHook{enddocument/afterlastpage}}
-\newcommand\AtVeryEndDocument {\AddToHook{enddocument/afteraux}}
-\newcommand\AtEndAfterFileList{\AddToHook{enddocument/info}}
-\newcommand\AtVeryVeryEnd {\AddToHook{enddocument/end}}
-
-\ExplSyntaxOn
-\newcommand\BeforeClearDocument[1]
- { \AtEndDocument{#1}
- \@DEPRECATED{BeforeClearDocument \tl_to_str:n{#1}}
- }
-\cs_new:Npn\@DEPRECATED #1
- {\iow_term:x{======~DEPRECATED~USAGE~#1~==========}}
-\ExplSyntaxOff
-
-
-
-\endinput
-%%
-%% End of file `lthooks.ltx'.