[latex3-commits] [git/LaTeX3-latex3-latex3] main: Re-introduce use of shipout/firstpage hook (d72115a86)
Joseph Wright
joseph.wright at morningstar2.co.uk
Fri May 7 19:13:15 CEST 2021
Repository : https://github.com/latex3/latex3
On branch : main
Link : https://github.com/latex3/latex3/commit/d72115a86b478aeadefdcb3c2e3cea8e07f083f5
>---------------------------------------------------------------
commit d72115a86b478aeadefdcb3c2e3cea8e07f083f5
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date: Fri May 7 18:11:53 2021 +0100
Re-introduce use of shipout/firstpage hook
The reason this shows oddly in the 2e test suite is
that we deliberately disable \AtBeginDvi there. We
therefore should also clear the shipout/firstpage hook to allow other code (like here) to use it without
disturbing the test suite.
>---------------------------------------------------------------
d72115a86b478aeadefdcb3c2e3cea8e07f083f5
l3backend/l3backend-basics.dtx | 9 +-
l3kernel/testfiles/m3peek001.ptex.tlg | 2 +-
l3kernel/testfiles/m3peek001.uptex.tlg | 2 +-
l3kernel/testfiles/m3peek001.xetex.tlg | 219 --------------------------------
l3kernel/testfiles/m3peek002.ptex.tlg | 2 +-
l3kernel/testfiles/m3peek002.uptex.tlg | 2 +-
l3kernel/testfiles/m3peek002.xetex.tlg | 226 ---------------------------------
l3kernel/testfiles/m3text003.ptex.tlg | 2 +-
l3kernel/testfiles/m3text003.uptex.tlg | 2 +-
l3kernel/testfiles/m3text003.xetex.tlg | 2 +-
10 files changed, 15 insertions(+), 453 deletions(-)
diff --git a/l3backend/l3backend-basics.dtx b/l3backend/l3backend-basics.dtx
index 446178138..f480a7757 100644
--- a/l3backend/l3backend-basics.dtx
+++ b/l3backend/l3backend-basics.dtx
@@ -156,7 +156,14 @@
% most up-to-date method,
% \begin{macrocode}
\cs_if_exist:NTF \@ifl at t@r
- { \cs_new_eq:NN \__kernel_backend_first_shipout:n \AtBeginDvi }
+ {
+ \@ifl at t@r \fmtversion { 2020-10-01 }
+ {
+ \cs_new_protected:Npn \__kernel_backend_first_shipout:n #1
+ { \hook_gput_code:nnn { shipout / firstpage } { l3backend } {#1} }
+ }
+ { \cs_new_eq:NN \__kernel_backend_first_shipout:n \AtBeginDvi }
+ }
{ \cs_new_eq:NN \__kernel_backend_first_shipout:n \use:n }
% \end{macrocode}
% \end{macro}
diff --git a/l3kernel/testfiles/m3peek001.ptex.tlg b/l3kernel/testfiles/m3peek001.ptex.tlg
index f7bf7f172..b3b44f405 100644
--- a/l3kernel/testfiles/m3peek001.ptex.tlg
+++ b/l3kernel/testfiles/m3peek001.ptex.tlg
@@ -6,7 +6,7 @@ TEST 1: peek after
============================================================
the letter l
the letter g
-begin-group character {
+the character [
the letter g
============================================================
============================================================
diff --git a/l3kernel/testfiles/m3peek001.uptex.tlg b/l3kernel/testfiles/m3peek001.uptex.tlg
index f7bf7f172..b3b44f405 100644
--- a/l3kernel/testfiles/m3peek001.uptex.tlg
+++ b/l3kernel/testfiles/m3peek001.uptex.tlg
@@ -6,7 +6,7 @@ TEST 1: peek after
============================================================
the letter l
the letter g
-begin-group character {
+the character [
the letter g
============================================================
============================================================
diff --git a/l3kernel/testfiles/m3peek001.xetex.tlg b/l3kernel/testfiles/m3peek001.xetex.tlg
deleted file mode 100644
index f7bf7f172..000000000
--- a/l3kernel/testfiles/m3peek001.xetex.tlg
+++ /dev/null
@@ -1,219 +0,0 @@
-This is a generated file for the LaTeX (2e + expl3) validation system.
-Don't change this file in any respect.
-Author: Will Robertson
-============================================================
-TEST 1: peek after
-============================================================
-the letter l
-the letter g
-begin-group character {
-the letter g
-============================================================
-============================================================
-TEST 2: peek_meaning
-============================================================
-TRUE
-!
-FALSE
-!
-TRUE
--
-FALSE
-!
-TRUE
-!
-TRUE
-!
-TRUE
--
-TRUE
--
-============================================================
-TRUE
-!
-FALSE
-!
-TRUE
--
-FALSE
-!
-TRUE
-!
-TRUE
-!
-TRUE
--
-TRUE
--
-============================================================
-============================================================
-TEST 3: peek_meaning again
-============================================================
-TRUE
-!
-FALSE
-!
-TRUE
-?
-============================================================
-============================================================
-TEST 4: peek_charcode
-============================================================
-TRUE
-!
-FALSE
-!
-TRUE
--
-FALSE
-!
-TRUE
-!
-TRUE
-!
-TRUE
--
-TRUE
--
-============================================================
-TRUE
-!
-FALSE
-!
-TRUE
--
-FALSE
-!
-TRUE
-!
-TRUE
-!
-TRUE
--
-TRUE
--
-============================================================
-============================================================
-TEST 5: peek_charcode again
-============================================================
-TRUE
-!
-TRUE
-!
-TRUE
-?
-============================================================
-============================================================
-TEST 6: peek_catcode
-============================================================
-TRUE
-?
-FALSE
-?
-TRUE
--
-FALSE
-?
-TRUE
-?
-TRUE
-?
-TRUE
--
-TRUE
--
-============================================================
-TRUE
-?
-FALSE
-?
-TRUE
--
-FALSE
-?
-TRUE
-?
-TRUE
-?
-TRUE
--
-TRUE
--
-============================================================
-============================================================
-TEST 7: peek_catcode again
-============================================================
-TRUE
-!
-FALSE
-!
-TRUE
-?
-============================================================
-============================================================
-TEST 8: Peek in alignment
-============================================================
-LaTeX Font Info: External font `cmex10' loaded for size
-(Font) <7> on input line ....
-LaTeX Font Info: External font `cmex10' loaded for size
-(Font) <5> on input line ....
-TRUE
-FALSE
-TRUE
-FALSE
-TRUE
-FALSE
-============================================================
-============================================================
-TEST 9: Peek N type
-============================================================
-TRUE
-TRUE
-FALSE
-FALSE
-FALSE
-FALSE
-FALSE
-FALSE
-============================================================
-============================================================
-TEST 10: peek collect
-============================================================
-|AAAABC||
-|ABC||
-||A|
-| |.|
-||{a}b|
-|\c_group_begin_token \c_group_begin_token \c_group_begin_token |\a |
-|\c_group_end_token \c_group_end_token \c_group_end_token |\a |
-|AAAA|BC|
-|A|BC|
-|A||
-| |.|
-||{a}b|
-|\c_group_begin_token \c_group_begin_token \c_group_begin_token |\a |
-|\c_group_end_token \c_group_end_token \c_group_end_token |\a |
-|AAAA|BC|
-|A|BC|
-||A|
-| |.|
-||{a}b|
-|\c_group_begin_token \c_group_begin_token \c_group_begin_token |\a |
-|\c_group_end_token \c_group_end_token \c_group_end_token |\a |
-============================================================
-============================================================
-TEST 11: peek_remove_spaces
-============================================================
-> \c_space_tl .
-<recently read> }
-l. ... }
-> }.
-<recently read> }
-l. ... }
-> the character .
-<recently read>
-l. ... }
-> blank space *.
-<recently read> *
-l. ... }
-============================================================
diff --git a/l3kernel/testfiles/m3peek002.ptex.tlg b/l3kernel/testfiles/m3peek002.ptex.tlg
index 48aaab89f..a553260a8 100644
--- a/l3kernel/testfiles/m3peek002.ptex.tlg
+++ b/l3kernel/testfiles/m3peek002.ptex.tlg
@@ -14,7 +14,7 @@ l. ... }
l. ... }
\outer macro:->
\long\outer macro:->
-begin-group character {
+the character [
\long\outer macro:->
============================================================
============================================================
diff --git a/l3kernel/testfiles/m3peek002.uptex.tlg b/l3kernel/testfiles/m3peek002.uptex.tlg
index 48aaab89f..a553260a8 100644
--- a/l3kernel/testfiles/m3peek002.uptex.tlg
+++ b/l3kernel/testfiles/m3peek002.uptex.tlg
@@ -14,7 +14,7 @@ l. ... }
l. ... }
\outer macro:->
\long\outer macro:->
-begin-group character {
+the character [
\long\outer macro:->
============================================================
============================================================
diff --git a/l3kernel/testfiles/m3peek002.xetex.tlg b/l3kernel/testfiles/m3peek002.xetex.tlg
deleted file mode 100644
index 48aaab89f..000000000
--- a/l3kernel/testfiles/m3peek002.xetex.tlg
+++ /dev/null
@@ -1,226 +0,0 @@
-This is a generated file for the LaTeX (2e + expl3) validation system.
-Don't change this file in any respect.
-Author: Bruno Le Floch
-============================================================
-TEST 1: peek after with outer macro
-============================================================
-> \a=\outer macro:
-->.
-<recently read> \a
-l. ... }
-> \b=\long\outer macro:
-->.
-<recently read> \b
-l. ... }
-\outer macro:->
-\long\outer macro:->
-begin-group character {
-\long\outer macro:->
-============================================================
-============================================================
-TEST 2: peek_meaning with outer macro
-============================================================
-FALSE
-?
-FALSE
-?
-FALSE
-?
-FALSE
-?
-FALSE
-?
-FALSE
-?
-FALSE
-?
-FALSE
-?
-============================================================
-F1
-?
-F2
-?
-F3
-?
-F4
-?
-============================================================
-============================================================
-TEST 3: peek_charcode with outer macro
-============================================================
-FALSE
-?
-FALSE
-?
-FALSE
-?
-FALSE
-?
-FALSE
-?
-FALSE
-?
-FALSE
-?
-FALSE
-?
-============================================================
-F1
-?
-F2
-?
-F3
-?
-F4
-?
-============================================================
-============================================================
-TEST 4: peek_catcode with outer macro
-============================================================
-FALSE
-?
-FALSE
-?
-FALSE
-?
-FALSE
-?
-FALSE
-?
-FALSE
-?
-FALSE
-?
-FALSE
-?
-============================================================
-F1
-?
-F2
-?
-F3
-?
-F4
-?
-============================================================
-============================================================
-TEST 5: Peek charcode for bgroup/egroup/space
-============================================================
-TRUE
-TRUE
-TRUE
-TRUE
-TRUE
-TRUE
-FALSE
-TRUE
-TRUE
-FALSE
-TRUE
-TRUE
-TRUE
-TRUE
-TRUE
-============================================================
-============================================================
-TEST 6: Peek charcode for implicit tokens
-============================================================
-TRUE
-TRUE
-TRUE
-TRUE
-TRUE
-TRUE
-FALSE
-FALSE
-TRUE
-FALSE
-TRUE
-FALSE
-TRUE
-FALSE
-FALSE
-TRUE
-============================================================
-TRUE
-TRUE
-TRUE
-FALSE
-FALSE
-FALSE
-FALSE
-TRUE
-TRUE
-TRUE
-TRUE
-FALSE
-FALSE
-FALSE
-FALSE
-TRUE
-============================================================
-============================================================
-TEST 7: Peek active characters vs control sequences
-============================================================
-FALSE
-FALSE
-FALSE
-FALSE
-FALSE
-FALSE
-FALSE
-FALSE
-FALSE
-FALSE
-TRUE
-TRUE
-FALSE
-FALSE
-TRUE
-TRUE
-FALSE
-FALSE
-============================================================
-TRUE
-TRUE
-TRUE
-TRUE
-FALSE
-FALSE
-TRUE
-TRUE
-TRUE
-TRUE
-FALSE
-FALSE
-TRUE
-TRUE
-FALSE
-FALSE
-FALSE
-FALSE
-============================================================
-============================================================
-TEST 8: Peek N type with outer macro
-============================================================
-TRUE
-FALSE
-TRUE
-============================================================
-============================================================
-TEST 9: Peek ignore space test space
-============================================================
-FALSE
-|\l_test_token |
-TRUE
-|\l_test_token |
-FALSE
-|\l_test_token |
-FALSE
-|\l_test_token |
-TRUE
-||
-FALSE
-|\l_test_token |
-============================================================
diff --git a/l3kernel/testfiles/m3text003.ptex.tlg b/l3kernel/testfiles/m3text003.ptex.tlg
index 9c8522253..bdfb7da14 100644
--- a/l3kernel/testfiles/m3text003.ptex.tlg
+++ b/l3kernel/testfiles/m3text003.ptex.tlg
@@ -3,7 +3,7 @@ Don't change this file in any respect.
Author: Joseph Wright
Defining \l__hook_label_kernel/filelist_seq on line ...
Defining \l__hook_label_kernel/warnings_seq on line ...
-Defining \l__hook_label_l3backend-dvips_seq on line ...
+Defining \l__hook_label_l3backend_seq on line ...
No file m3text003.aux.
LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line ....
LaTeX Font Info: ... okay on input line ....
diff --git a/l3kernel/testfiles/m3text003.uptex.tlg b/l3kernel/testfiles/m3text003.uptex.tlg
index 9c8522253..bdfb7da14 100644
--- a/l3kernel/testfiles/m3text003.uptex.tlg
+++ b/l3kernel/testfiles/m3text003.uptex.tlg
@@ -3,7 +3,7 @@ Don't change this file in any respect.
Author: Joseph Wright
Defining \l__hook_label_kernel/filelist_seq on line ...
Defining \l__hook_label_kernel/warnings_seq on line ...
-Defining \l__hook_label_l3backend-dvips_seq on line ...
+Defining \l__hook_label_l3backend_seq on line ...
No file m3text003.aux.
LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line ....
LaTeX Font Info: ... okay on input line ....
diff --git a/l3kernel/testfiles/m3text003.xetex.tlg b/l3kernel/testfiles/m3text003.xetex.tlg
index 8c810a1f3..86b41930d 100644
--- a/l3kernel/testfiles/m3text003.xetex.tlg
+++ b/l3kernel/testfiles/m3text003.xetex.tlg
@@ -3,7 +3,7 @@ Don't change this file in any respect.
Author: Joseph Wright
Defining \l__hook_label_kernel/filelist_seq on line ...
Defining \l__hook_label_kernel/warnings_seq on line ...
-Defining \l__hook_label_l3backend-xetex_seq on line ...
+Defining \l__hook_label_l3backend_seq on line ...
No file m3text003.aux.
LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line ....
LaTeX Font Info: ... okay on input line ....
More information about the latex3-commits
mailing list.