gs1 [was GS1] (17jun21)

git-svn-id: svn://tug.org/texlive/trunk@59620 c570f23f-e606-0410-a88d-b1316a301751

19 files changed, 2182 insertions, 4 deletions

diff --git a/Master/texmf-dist/doc/latex/gs1/EANBarcode.tex b/Master/texmf-dist/doc/latex/gs1/EANBarcode.tex
new file mode 100644
index 00000000000..5990eb59e93
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/gs1/EANBarcode.tex
@@ -0,0 +1,66 @@
+%%
+%% This is file `EANBarcode.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% GS1.dtx  (with options: `test,EANBarcode')
+%% 
+%% EXPERIMENTAL CODE
+%% 
+%% This Work depends on the correct version of expl3 release.  If
+%% you'll update expl3 you may need a update of this this Work too.
+%% 
+%% Do not distribute this file without also distributing the
+%% source files specified above.
+%% 
+%% Do not distribute modified version of this file.
+%% 
+%% File: GS1.dtx Copyright (C) 2012-2017 Markus Kohm
+%%
+%% 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
+%%
+%%    http://www.latex-project.org/lppl.txt
+%%
+%% This file is part of the "GS1 bundle" (The Work in LPPL)
+%% and all files in that bundle must be distributed together.
+%%
+%% The released version of this bundle is available from CTAN.
+%%
+%% -------------------------------------------------------------------------
+\RequirePackage{expl3}[2017/05/29]
+\GetIdInfo$Id: GS1.dtx 23 2021-06-17 07:00:36Z mjk $
+  {GS1 code handler and barcode generator}
+\documentclass{article}
+\usepackage{GS1}
+\ExplSyntaxOn
+\msg_new:nnn { GS1/test } { function }
+  {
+    Something~is~wrong~with~function~#1
+    \msg_line_context:~~of~\c_sys_jobname_str.tex.
+  }
+\ExplSyntaxOff
+\begin{document}
+\raggedright
+\verb|\EANBarcode{ISBN 978-3-86541-459-5}|:
+      \EANBarcode{ISBN 978-3-86541-459-5}
+
+\verb|\EANBarcode[add_control]{ISBN 978-3-86541-459-}|:
+      \EANBarcode[add_control]{ISBN 978-3-86541-459-}
+
+\verb|\EANBarcode[ocrb=false]{ISBN 978-3-86541-459-5}|:
+\EANBarcode[ocrb=false]{ISBN 978-3-86541-459-5}
+
+\verb|\EANBarcode[code=EAN-8]{20123451}|:
+      \EANBarcode[code=EAN-8]{20123451}
+
+\verb|\EANBarcode[code=EAN-8,ocrb=false,add_control]{2012345}|:
+      \EANBarcode[code=EAN-8,ocrb=false,add_control]{2012345}
+
+\end{document}
+%% 
+%%
+%% End of file `EANBarcode.tex'.
diff --git a/Master/texmf-dist/doc/latex/gs1/EANControlDigit.tex b/Master/texmf-dist/doc/latex/gs1/EANControlDigit.tex
new file mode 100644
index 00000000000..ac7af68ac2b
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/gs1/EANControlDigit.tex
@@ -0,0 +1,60 @@
+%%
+%% This is file `EANControlDigit.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% GS1.dtx  (with options: `test,EANControlDigit')
+%% 
+%% EXPERIMENTAL CODE
+%% 
+%% This Work depends on the correct version of expl3 release.  If
+%% you'll update expl3 you may need a update of this this Work too.
+%% 
+%% Do not distribute this file without also distributing the
+%% source files specified above.
+%% 
+%% Do not distribute modified version of this file.
+%% 
+%% File: GS1.dtx Copyright (C) 2012-2017 Markus Kohm
+%%
+%% 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
+%%
+%%    http://www.latex-project.org/lppl.txt
+%%
+%% This file is part of the "GS1 bundle" (The Work in LPPL)
+%% and all files in that bundle must be distributed together.
+%%
+%% The released version of this bundle is available from CTAN.
+%%
+%% -------------------------------------------------------------------------
+\RequirePackage{expl3}[2017/05/29]
+\GetIdInfo$Id: GS1.dtx 23 2021-06-17 07:00:36Z mjk $
+  {GS1 code handler and barcode generator}
+\documentclass{article}
+\usepackage{GS1}
+\ExplSyntaxOn
+\msg_new:nnn { GS1/test } { function }
+  {
+    Something~is~wrong~with~function~#1
+    \msg_line_context:~~of~\c_sys_jobname_str.tex.
+  }
+\ExplSyntaxOff
+\begin{document}
+\begin{tabular}{ll}
+  \hline
+  Calculated & Known \\
+  \hline
+  501234567890-\EANControlDigit{501234567890} & 501234567890-0 \\
+  ISBN 978-3-86541-459-\EANControlDigit{ISBN 978-3-86541-459} & ISBN
+  978-3-86541-459-5 \\
+  EAN-8: 2012345\EANControlDigit{2012345} & EAN-8: 20123451 \\
+  \hline
+\end{tabular}
+\end{document}
+%% 
+%%
+%% End of file `EANControlDigit.tex'.
diff --git a/Master/texmf-dist/doc/latex/gs1/GS1.pdf b/Master/texmf-dist/doc/latex/gs1/GS1.pdf
new file mode 100644
index 00000000000..9cb7557730a
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/gs1/GS1.pdf
diff --git a/Master/texmf-dist/doc/latex/gs1/GSSetup.tex b/Master/texmf-dist/doc/latex/gs1/GSSetup.tex
new file mode 100644
index 00000000000..e0f2767af21
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/gs1/GSSetup.tex
@@ -0,0 +1,75 @@
+%%
+%% This is file `GSSetup.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% GS1.dtx  (with options: `test,GSSetup')
+%% 
+%% EXPERIMENTAL CODE
+%% 
+%% This Work depends on the correct version of expl3 release.  If
+%% you'll update expl3 you may need a update of this this Work too.
+%% 
+%% Do not distribute this file without also distributing the
+%% source files specified above.
+%% 
+%% Do not distribute modified version of this file.
+%% 
+%% File: GS1.dtx Copyright (C) 2012-2017 Markus Kohm
+%%
+%% 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
+%%
+%%    http://www.latex-project.org/lppl.txt
+%%
+%% This file is part of the "GS1 bundle" (The Work in LPPL)
+%% and all files in that bundle must be distributed together.
+%%
+%% The released version of this bundle is available from CTAN.
+%%
+%% -------------------------------------------------------------------------
+\RequirePackage{expl3}[2017/05/29]
+\GetIdInfo$Id: GS1.dtx 23 2021-06-17 07:00:36Z mjk $
+  {GS1 code handler and barcode generator}
+\documentclass{article}
+\usepackage{GS1}
+\ExplSyntaxOn
+\msg_new:nnn { GS1/test } { function }
+  {
+    Something~is~wrong~with~function~#1
+    \msg_line_context:~~of~\c_sys_jobname_str.tex.
+  }
+\ExplSyntaxOff
+\begin{document}
+\raggedright
+\verb|\EANBarcode{ISBN 978-3-86541-459-5}|:
+      \EANBarcode{ISBN 978-3-86541-459-5}
+
+\verb|\EANBarcode[add_control]{ISBN 978-3-86541-459-}|:
+      \EANBarcode[add_control]{ISBN 978-3-86541-459-}
+
+\verb|\EANBarcode[ocrb=false]{ISBN 978-3-86541-459-5}|:
+\EANBarcode[ocrb=false]{ISBN 978-3-86541-459-5}
+
+\verb|\EANBarcode[code=EAN-8]{20123451}|:
+      \EANBarcode[code=EAN-8]{20123451}
+
+\verb|\EANBarcode[code=EAN-8,ocrb=false,add_control]{2012345}|:
+      \EANBarcode[code=EAN-8,ocrb=false,add_control]{2012345}
+
+After \verb|\GSSetup{ocrb=false,add_control}|:
+            \GSSetup{ocrb=false,add_control}
+
+\verb|\EANBarcode[code=EAN-8]{2012345}|:
+      \EANBarcode[code=EAN-8]{2012345}
+
+\verb|\EANBarcode[code=EAN-8,ocrb,add_control=false]{20123451}|:
+      \EANBarcode[code=EAN-8,ocrb,add_control=false]{20123451}
+
+\end{document}
+%% 
+%%
+%% End of file `GSSetup.tex'.
diff --git a/Master/texmf-dist/doc/latex/gs1/GS_cut_EAN_control_digit.tex b/Master/texmf-dist/doc/latex/gs1/GS_cut_EAN_control_digit.tex
new file mode 100644
index 00000000000..d9de6d8852a
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/gs1/GS_cut_EAN_control_digit.tex
@@ -0,0 +1,71 @@
+%%
+%% This is file `GS_cut_EAN_control_digit.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% GS1.dtx  (with options: `test,GS.cut.EAN.control.digit')
+%% 
+%% EXPERIMENTAL CODE
+%% 
+%% This Work depends on the correct version of expl3 release.  If
+%% you'll update expl3 you may need a update of this this Work too.
+%% 
+%% Do not distribute this file without also distributing the
+%% source files specified above.
+%% 
+%% Do not distribute modified version of this file.
+%% 
+%% File: GS1.dtx Copyright (C) 2012-2017 Markus Kohm
+%%
+%% 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
+%%
+%%    http://www.latex-project.org/lppl.txt
+%%
+%% This file is part of the "GS1 bundle" (The Work in LPPL)
+%% and all files in that bundle must be distributed together.
+%%
+%% The released version of this bundle is available from CTAN.
+%%
+%% -------------------------------------------------------------------------
+\RequirePackage{expl3}[2017/05/29]
+\GetIdInfo$Id: GS1.dtx 23 2021-06-17 07:00:36Z mjk $
+  {GS1 code handler and barcode generator}
+\documentclass{article}
+\usepackage{GS1}
+\ExplSyntaxOn
+\msg_new:nnn { GS1/test } { function }
+  {
+    Something~is~wrong~with~function~#1
+    \msg_line_context:~~of~\c_sys_jobname_str.tex.
+  }
+\ExplSyntaxOff
+\begin{document}
+\raggedright
+\ExplSyntaxOn
+\seq_new:N \l_testa_seq
+\GS_set_code_digit_seq:Nn \l_testa_seq {ISBN 978-3-86541-459-5}
+With~control:~\seq_use:Nnnn \l_testa_seq { ,~ } { ,~} { ,~ }\\
+\GS_set_code_digit_seq:Nn \l_testb_seq {ISBN 978-3-86541-459}
+\GS_cut_EAN_control_digit:N \l_testa_seq
+\seq_map_inline:Nn \l_testa_seq
+  {
+    \seq_pop_left:NN \l_testb_seq \l_tmpa_tl
+    \tl_set:Nn \l_tmpb_tl { #1 }
+    \tl_if_eq:NNF \l_tmpa_tl \l_tmpb_tl
+      {
+        \tl_show:N \l_testa_seq
+        \tl_show:N \l_testb_seq
+        \msg_fatal:nnn { GS1/test } { function }
+          { \GS_cut_EAN_control_digit:N }
+      }
+  }
+Without~control:~\seq_use:Nnnn \l_testa_seq { ,~ } { ,~} { ,~ }\\
+\ExplSyntaxOff
+\end{document}
+%% 
+%%
+%% End of file `GS_cut_EAN_control_digit.tex'.
diff --git a/Master/texmf-dist/doc/latex/gs1/GS_set_EAN_control_digit.tex b/Master/texmf-dist/doc/latex/gs1/GS_set_EAN_control_digit.tex
new file mode 100644
index 00000000000..900e14a1c1c
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/gs1/GS_set_EAN_control_digit.tex
@@ -0,0 +1,68 @@
+%%
+%% This is file `GS_set_EAN_control_digit.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% GS1.dtx  (with options: `test,GS.set.EAN.control.digit')
+%% 
+%% EXPERIMENTAL CODE
+%% 
+%% This Work depends on the correct version of expl3 release.  If
+%% you'll update expl3 you may need a update of this this Work too.
+%% 
+%% Do not distribute this file without also distributing the
+%% source files specified above.
+%% 
+%% Do not distribute modified version of this file.
+%% 
+%% File: GS1.dtx Copyright (C) 2012-2017 Markus Kohm
+%%
+%% 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
+%%
+%%    http://www.latex-project.org/lppl.txt
+%%
+%% This file is part of the "GS1 bundle" (The Work in LPPL)
+%% and all files in that bundle must be distributed together.
+%%
+%% The released version of this bundle is available from CTAN.
+%%
+%% -------------------------------------------------------------------------
+\RequirePackage{expl3}[2017/05/29]
+\GetIdInfo$Id: GS1.dtx 23 2021-06-17 07:00:36Z mjk $
+  {GS1 code handler and barcode generator}
+\documentclass{article}
+\usepackage{GS1}
+\ExplSyntaxOn
+\msg_new:nnn { GS1/test } { function }
+  {
+    Something~is~wrong~with~function~#1
+    \msg_line_context:~~of~\c_sys_jobname_str.tex.
+  }
+\ExplSyntaxOff
+\begin{document}
+\ExplSyntaxOn
+\seq_new:N \l_testa_seq
+\GS_set_code_digit_seq:Nn \l_testa_seq {ISBN 978-3-86541-459-5}
+\seq_new:N \l_testb_tl
+\seq_pop_right:NN \l_testa_seq \l_testb_tl
+\GS_set_EAN_control_digit:N \l_testa_seq
+\tl_new:N \l_testa_tl
+\seq_get_right:NN \l_testa_seq \l_testa_tl
+Control~digit~should~be~ \tl_use:N \l_testb_tl {} ~
+\int_compare:nNnTF { \l_testa_tl } { = } { \l_testb_tl }
+  {
+    ~and~is~\tl_use:N \l_testa_tl .
+  }
+  {
+    ~but~it~\tl_use:N \t_testa_tl .
+    \msg_error:nnn { GS1/test } { function } { \GS_set_EAN_control_digit:N }
+  }
+\ExplSyntaxOff
+\end{document}
+%% 
+%%
+%% End of file `GS_set_EAN_control_digit.tex'.
diff --git a/Master/texmf-dist/doc/latex/gs1/GS_set_code_digit_seq.tex b/Master/texmf-dist/doc/latex/gs1/GS_set_code_digit_seq.tex
new file mode 100644
index 00000000000..1bb9dad5bbb
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/gs1/GS_set_code_digit_seq.tex
@@ -0,0 +1,86 @@
+%%
+%% This is file `GS_set_code_digit_seq.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% GS1.dtx  (with options: `test,GS.set.code.digit.seq')
+%% 
+%% EXPERIMENTAL CODE
+%% 
+%% This Work depends on the correct version of expl3 release.  If
+%% you'll update expl3 you may need a update of this this Work too.
+%% 
+%% Do not distribute this file without also distributing the
+%% source files specified above.
+%% 
+%% Do not distribute modified version of this file.
+%% 
+%% File: GS1.dtx Copyright (C) 2012-2017 Markus Kohm
+%%
+%% 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
+%%
+%%    http://www.latex-project.org/lppl.txt
+%%
+%% This file is part of the "GS1 bundle" (The Work in LPPL)
+%% and all files in that bundle must be distributed together.
+%%
+%% The released version of this bundle is available from CTAN.
+%%
+%% -------------------------------------------------------------------------
+\RequirePackage{expl3}[2017/05/29]
+\GetIdInfo$Id: GS1.dtx 23 2021-06-17 07:00:36Z mjk $
+  {GS1 code handler and barcode generator}
+\documentclass{article}
+\usepackage{GS1}
+\ExplSyntaxOn
+\msg_new:nnn { GS1/test } { function }
+  {
+    Something~is~wrong~with~function~#1
+    \msg_line_context:~~of~\c_sys_jobname_str.tex.
+  }
+\ExplSyntaxOff
+\begin{document}
+\ExplSyntaxOn
+\seq_new:N \l_testa_seq
+\seq_new:N \l_testb_seq
+
+\GS_set_code_digit_seq:Nn \l_testa_seq {ISBN 978-3-86541-459-5}
+Sequence~for~ISBN~978-3-86541-459-5~is:~
+\seq_use:Nnnn \l_testa_seq { ,~ } { ,~} { ,~ }
+
+\GS_set_code_digit_seq:Nn \l_testb_seq {9783865414595}
+\seq_map_inline:Nn \l_testa_seq
+  {
+    \seq_pop_left:NN \l_testb_seq \l_tmpa_tl
+    \tl_set:Nn \l_tmpb_tl { #1 }
+    \tl_if_eq:NNF \l_tmpa_tl \l_tmpb_tl
+      {
+        \tl_show:N l_testa_seq
+        \tl_show:N l_testb_seq
+        \msg_fatal:nnn { GS1/test } { function } { \GS_set_code_digit_seq:Nn }
+      }
+  }
+
+\GS_set_code_digit_seq:Nn \l_testa_seq {ISBN 978-3-86541-459-5}
+\seq_set_split:Nnn \l_testb_seq {,} {9,7,8,3,8,6,5,4,1,4,5,9,5}
+\seq_map_inline:Nn \l_testa_seq
+  {
+    \seq_pop_left:NN \l_testb_seq \l_tmpa_tl
+    \tl_set:Nn \l_tmpb_tl { #1 }
+    \tl_if_eq:NNF \l_tmpa_tl \l_tmpb_tl
+      {
+        \tl_show:N \l_testa_seq
+        \tl_show:N \l_testb_seq
+        \msg_fatal:nnn { GS1/test } { function } { \GS_set_code_digit_seq:Nn }
+      }
+  }
+
+\ExplSyntaxOff
+\end{document}
+%% 
+%%
+%% End of file `GS_set_code_digit_seq.tex'.
diff --git a/Master/texmf-dist/doc/latex/gs1/README b/Master/texmf-dist/doc/latex/gs1/README
new file mode 100644
index 00000000000..963e675af38
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/gs1/README
@@ -0,0 +1,25 @@
+$Id: README 1 2012-07-27 06:09:40Z mjk $
+============================================================================
+GS1 - l3-package for handling of GS1 codes of GS1 specification
+----------------------------------------------------------------------------
+Maintainer:	Markus Kohm
+E-Mail:		komascript at gmx info
+Abstract:	Currently the package is able to
+		- calculate control digits for EAN-8 and EAN-13
+		- generate bar code for EAN-8 and EAN-13
+Requires:	expl3  - stable packages of LaTeX3 kernel for LaTeX2e
+		xparse - definition of LaTeX2e user commands using LaTeX3
+		rule-D - see below
+License:        LPPL 1.3c or later
+State:          Author maintained
+============================================================================
+rule-D - l3-package simply providing LaTeX3 \rule functions
+----------------------------------------------------------------------------
+Maintainer:	Markus Kohm
+E-Mail:		komascript at gmx info
+Abstract:	Currently there's no \rule command in expl3, but GS1 needs
+		it.
+Requires:	expl3 - stable packages of LaTeX3 kernel for LaTeX2e
+License:	LPPL 1.3c or later
+State:		Author maintained
+============================================================================
diff --git a/Master/texmf-dist/doc/latex/gs1/int_set_to_EAN_control_digit.tex b/Master/texmf-dist/doc/latex/gs1/int_set_to_EAN_control_digit.tex
new file mode 100644
index 00000000000..907985809a6
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/gs1/int_set_to_EAN_control_digit.tex
@@ -0,0 +1,68 @@
+%%
+%% This is file `int_set_to_EAN_control_digit.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% GS1.dtx  (with options: `test,int.set.to.EAN.control.digit')
+%% 
+%% EXPERIMENTAL CODE
+%% 
+%% This Work depends on the correct version of expl3 release.  If
+%% you'll update expl3 you may need a update of this this Work too.
+%% 
+%% Do not distribute this file without also distributing the
+%% source files specified above.
+%% 
+%% Do not distribute modified version of this file.
+%% 
+%% File: GS1.dtx Copyright (C) 2012-2017 Markus Kohm
+%%
+%% 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
+%%
+%%    http://www.latex-project.org/lppl.txt
+%%
+%% This file is part of the "GS1 bundle" (The Work in LPPL)
+%% and all files in that bundle must be distributed together.
+%%
+%% The released version of this bundle is available from CTAN.
+%%
+%% -------------------------------------------------------------------------
+\RequirePackage{expl3}[2017/05/29]
+\GetIdInfo$Id: GS1.dtx 23 2021-06-17 07:00:36Z mjk $
+  {GS1 code handler and barcode generator}
+\documentclass{article}
+\usepackage{GS1}
+\ExplSyntaxOn
+\msg_new:nnn { GS1/test } { function }
+  {
+    Something~is~wrong~with~function~#1
+    \msg_line_context:~~of~\c_sys_jobname_str.tex.
+  }
+\ExplSyntaxOff
+\begin{document}
+\ExplSyntaxOn
+\seq_new:N \l_testa_seq
+\tl_new:N \l_control_tl
+\GS_set_code_digit_seq:Nn \l_testa_seq {ISBN 978-3-86541-459-5}
+\seq_pop_right:NN \l_testa_seq \l_control_tl
+\int_new:N \l_control_int
+\int_set_to_EAN_control_digit:NN \l_control_int \l_testa_seq
+Control~digit~should~be~\tl_use:N \l_control_tl{} ~
+\int_compare:nNnTF { \l_control_tl } { = } { \l_control_int }
+  {
+    ~and~is~\int_use:N \l_control_int .
+  }
+  {
+    ~but~it~\int_use:N \l_control_int .
+    \msg_error:nnn { GS1/test } { function }
+      { \int_set_to_EAN_control_digit:NN }
+  }
+\ExplSyntaxOff
+\end{document}
+%% 
+%%
+%% End of file `int_set_to_EAN_control_digit.tex'.
diff --git a/Master/texmf-dist/doc/latex/gs1/rule-D.pdf b/Master/texmf-dist/doc/latex/gs1/rule-D.pdf
new file mode 100644
index 00000000000..d228b0148dc
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/gs1/rule-D.pdf
diff --git a/Master/texmf-dist/source/latex/gs1/GS1.dtx b/Master/texmf-dist/source/latex/gs1/GS1.dtx
new file mode 100644
index 00000000000..a69bbf41e83
--- /dev/null
+++ b/Master/texmf-dist/source/latex/gs1/GS1.dtx
@@ -0,0 +1,1033 @@
+% \iffalse meta-comment
+%
+%% File: GS1.dtx Copyright (C) 2012-2017 Markus Kohm
+%%
+%% 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
+%%
+%%    http://www.latex-project.org/lppl.txt
+%%
+%% This file is part of the "GS1 bundle" (The Work in LPPL)
+%% and all files in that bundle must be distributed together.
+%%
+%% The released version of this bundle is available from CTAN.
+%%
+%% -------------------------------------------------------------------------
+%
+%<*driver|package|test>
+\RequirePackage{expl3}[2017/05/29]
+\GetIdInfo$Id: GS1.dtx 23 2021-06-17 07:00:36Z mjk $
+  {GS1 code handler and barcode generator}
+%</driver|package|test>
+%<*driver>
+\documentclass{l3doc}
+\begin{document}
+  \DocInput{\jobname.dtx}
+\end{document}
+%</driver>
+%<*test>
+\documentclass{article}
+\usepackage{GS1}
+\ExplSyntaxOn
+\msg_new:nnn { GS1/test } { function }
+  {
+    Something~is~wrong~with~function~#1
+    \msg_line_context:~~of~\c_sys_jobname_str.tex.
+  }
+\ExplSyntaxOff
+\begin{document}
+%</test>
+% \fi
+%
+% \title{^^A
+%   The \pkg{GS1}\thanks
+%     {^^A
+%       GS1 is a registered trademark of GS1 AISBL.  Nevertheless, GS1 AISBL
+%       neither has any rights on this package, nor is responsible for it in
+%       any kind.  The package's name should indicate only, that the package
+%       implements some aspects of GS1 codes.^^A
+%     }
+%   package\\
+%   GS1 Code Handler and Barcode Generator\thanks
+%     {^^A
+%       This file describes v\ExplFileVersion,
+%       last revised \ExplFileDate.^^A
+%     }^^A
+% }
+%
+% \author{^^A
+%   Markus Kohm\thanks
+%     {^^A
+%       E-mail: \href{mailto:komascript@gmx.info}{komascript@gmx.info}^^A
+%     }^^A
+% }
+%
+% \date{Released \ExplFileDate}
+%
+% \maketitle
+%
+% \begin{documentation}
+% \begin{abstract}
+% There are several barcode packages out in the world, but they either need
+% PStricks, or are restricted to EAN-13 barcodes.  And most of all, they are
+% all \LaTeXe.  I've decided to write a package, that supports several GS1
+% codes, and at almost the same time, I've decided to give L3 a chance.  So
+% I've started an experimental GS1 package using \pkg{expl3}.  Using
+% \pkg{expl3} was the main reason writing this package.
+% \end{abstract}
+%
+% \tableofcontents
+%
+% \section*{Preface}
+%
+% Design and implementation of this package based on
+% \begin{quote}\begin{description}
+% \item[GS1:] ``Allgemeine GS1 Spezifikation'', Version~12.0, Januar~2012,
+% Ausgabe~1.
+% \end{description}\end{quote}
+% This is the official GS1 specification for Germany, Austria and Switzerland.
+%
+% Currently only EAN-8 and EAN-13 codes and bar codes without extension have
+% been implemented.  Others may follow in future.
+%
+%
+% \section{L3 Functions and Variables for GS1 Codes}
+% \label{sec:doc:functions.and.variables}
+%
+% First of all: Please note, that the concept of private functions and
+% variables is not well defined in \TeX.  Several variables, that I'd have
+% made private in C++, haven't been declared to be private in this
+% implementation.  Maybe I should change this.
+%
+% You should also know, that several test files may be created from the
+% package source, and each of those may be used as an example for using the
+% code.  Nevertheless, \LaTeXe{} users will not need the following functions
+% and should continue reading with \autoref{sec:doc:latex2e}.
+%
+% \begin{function}{\GS_set_code_digit_seq:Nn}
+%   \begin{syntax}
+%     "\GS_set_code_digit_seq:Nn" \meta{GS1 sequence variable} \Arg{token list}
+%   \end{syntax}
+%   Makes a GS1 sequence, that consist in digits only, from a \meta{token
+%   list}.  To do so, only the tokens from 0 up to 9 of the \meta{token list}
+%   are set to the \meta{GS1 sequence variable}.  All other tokens are
+%   ignored.  So may, e.g., convert the string ``ISBN 978-3-86541-459-5'' into
+%   a GS1 sequence with the digits ``9783865414595'', where each digit is one
+%   item of the sequence.
+% \end{function}
+%
+% \begin{function}{\GS_cut_EAN_control_digit:N}
+%   \begin{syntax}
+%     "\GS_cut_EAN_control_digit:N" \meta{GS1 sequence variable}
+%   \end{syntax}
+%   The \meta{GS1 sequence variable} should store either a EAN-8 or EAN-13
+%   code with or without control digit.  If the code has seven or twelve
+%   digits, nothing happens.  If the code has eight or 13 digits, the last one
+%   will be removed.  All other cases result in an error message.
+% \end{function}
+%
+% \begin{function}{\GS_set_EAN_control_digit:N}
+%   \begin{syntax}
+%     "\GS_set_EAN_control_digit:N" \meta{GS1 sequence variable}
+%   \end{syntax}
+%   The \meta{GS1 sequence variable} should store either a EAN-8 or EAN-13
+%   code with or without control digit.  A new control digit will be
+%   calculated.  If the code has seven or twelve digits the new control digit
+%   will be added.  If the code has eight or 13 digits, the old control digit
+%   will be replaced by the new one.  All other cases result in an error
+%   message.
+% \end{function}
+%
+% \begin{function}{\int_set_to_EAN_control_digit:NN}
+%   \begin{syntax}
+%     "\int_set_to_EAN_control_digit:NN" \meta{integer variable} \meta{GS1 sequence variable}
+%   \end{syntax}
+%   Calculates the control digit of the \meta{GS1 sequence variable} using the
+%   EAN control digit algorithm and stores it into the \meta{integer
+%   variable}.  Note, that the \meta{GS1 sequence variable} may be a sequence
+%   of digits of any length not only seven digits for EAN-8 or twelve digits
+%   for EAN-13.
+% \end{function}
+%
+% \begin{function}{\GS_use_as_EAN_barcode:N}
+%   \begin{syntax}
+%     "\GS_use_as_EAN_barcode:N" \meta{GS1 sequence variable}
+%   \end{syntax}
+%   Prints an EAN-8 or EAN-13 bar code depending on
+%   \cs{l_GS_code_size_int}. Note, that the \meta{GS1 sequence variable} may
+%   have more than 8 resp. 13 items but not less!  Use \cs{EANBarcode} if you
+%   need a more save function.
+% \end{function}
+%
+%
+% \section{\LaTeXe{} User Interface for GS1 Codes}
+% \label{sec:doc:latex2e}
+%
+% This section describes the \LaTeXe-compatible user interface.  Note, that
+% the test files \file{EANControlDigit.tex}, \file{EANBarcode.tex},
+% \file{GSSetup.tex}, and the resulting PDF files may be used as examples of
+% the following commands.
+%
+% \begin{function}{\EANControlDigit}
+%   \begin{syntax}
+%     "\EANControlDigit"\Arg{string}
+%   \end{syntax}
+%   Only the digits of the \meta{string} will be used. All other tokens
+%   will be ignored.  If the \meta{string} has 7 or 8 digits, the control
+%   digit of an EAN-8 code will be calculated and output.  If the
+%   \meta{string} has 12 or 13 digits, the control digit of an EAN-13 code
+%   will be calculated and output.  If the \meta{string} has 8 or 13 digits
+%   the last digit will be ignored.  Any other number of digits will result in
+%   an error message.
+% \end{function}
+%
+% \begin{function}{\EANBarcode}
+%   \begin{syntax}
+%     "\EANBarcode"\oarg{options}\Arg{string}
+%   \end{syntax}
+%   Creates the EAN bar code corresponding with \meta{string}.  The optional
+%   argument \meta{options} may be used to use different settings from the
+%   defaults set by \cmd{\GSSetup}.  
+%
+%   Each digit of a EAN bar code is represented by seven modules.  Each module
+%   is either black or white.  A black module is a black, vertical line.  A
+%   white module is just a gap.  The seven modules start either with a black
+%   sequence of up to four modules, followed by a white sequence of up to four
+%   modules, followed by a black sequence of up to four modules, finished by a
+%   white sequence of up to four modules, or they start with a white sequence
+%   of up to four modules, followed by a black sequence of up to four modules,
+%   followed by a white sequence of up to four modules, finished by a black
+%   sequence of up to four modules.
+% \end{function}
+%
+% \begin{function}{\GSSetup}
+%   \begin{syntax}
+%     "\GSSetup" \Arg{options}
+%   \end{syntax}
+%   \meta{options} is a list of \meta{key}=\meta{value} pairs.  They are used
+%   to setup the default of several settings:
+%   \begin{description}
+%     \item[\texttt{ocrb=}\meta{boolean}]\hfill\\
+%       If \meta{boolean} is \texttt{true} the digits at the bottom of the bar
+%       code will be printed using OCR-b font ocrb/T1/m/n in 9pt.  Predefined
+%       default is |ocrb=true|.
+%     \item[\texttt{module\_width=}\meta{dimension expression}]\hfill\\
+%       This is the width of one module.  GS1 specifies a minimum module width
+%       of 0.264\,mm and a normal width of 0.33\,mm.  You should not set a
+%       width below the minimum!
+%     \item[\texttt{module\_height=}\meta{dimension expression}]\hfill\\
+%       This is the height of a black module.  GS1 specifies a normal bar code
+%       height of 21.31\,mm for EAN-8 and 25.01\,mm for EAN-13.  Both values
+%       are inclusive the digits at the bottom of the bar code.  Some marker
+%       modules are higher than the digit modules.
+%     \item[\texttt{code=}\meta{string}]\hfill\\
+%       The \meta{string} should either be \texttt{EAN-8} or \texttt{EAN-13}.
+%       The predefined default is |EAN-13|.  More types will be
+%       supported in future.
+%     \item[\texttt{scale=}\meta{floating point}]\hfill\\
+%       This is the scale factor for the bar code.  GS1 specifies scale classes
+%       from 0.8 up to 2.0 with steps of 0.05.  Factors less than 0.8
+%       shouldn't be used. \emph{Currently \texttt{scale} won't be used!}
+%     \item[\texttt{scale\_to\_font=}\meta{boolean}]\hfill\\
+%       Ignore \texttt{module_width} and instead set the module width
+%       depending on the width of digit 0 of the current font.  Note, that
+%       this will not scale the whole bar code but only the module width.  To
+%       scale the whole bar code, you should use \texttt{scale}.
+%     \item[\texttt{add\_control=}\meta{boolean}]\hfill\\
+%       Add the control digit to the GS1 code.  If there's already a control
+%       digit, replace it by the calculated one.  The predefined default is
+%       |add_control=false|.
+%    \end{description}
+% \end{function}
+%
+%
+% \section{Internal Functions and Variables}
+% \label{sec:doc:internal}
+%
+% You should not use or manipulate these! So, maybe it's better to stop
+% reading now.
+%
+% \begin{function}{\__GS_set_key_code:nn}
+%   \begin{syntax}
+%     "\__GS_set_key_code:nn" \Arg{token list} \Arg{integer expression}
+%   \end{syntax}
+%   Sets \cs{l_GS_code_type_tl} to \meta{token list} and
+%   \cs{l_GS_code_size_int} to value of \Arg{integer expression}.
+% \end{function}
+%
+% \begin{function}{\__GS_new_seq_c:cn}
+%   \begin{syntax}
+%     "\__GS_new_seq_c:cn" \Arg{sequence name} \Arg{token list}
+%   \end{syntax}
+%   Creates a sequence constant \cs{c__GS_\meta{sequence name}_seq}.  The
+%   value of the constant will be build by the tokens of the \meta{token
+%   list}.  These tokens should be either characters ``A'' or ``B'' for
+%   selection constants or digits 1--4 for module constants.
+% \end{function}
+%
+% \begin{function}{\__GS_modules:Nn, \__GS_modules:cn, \__GS_modules:NnN}
+%   \begin{syntax}
+%     "\__GS_modules:Nn" \meta{sequence variable} \Arg{dimension expression}
+%     "\__GS_modules:cn" \Arg{sequence variable name} \Arg{dimension expression}
+%     "\__GS_modules:NnN" \meta{sequence variable} \Arg{dimension expression} \meta{boolean variable}
+%   \end{syntax}
+%   Draws the modules given by the \meta{sequence variable} with height
+%   \Arg{dimension expression}. The arguments are:
+%   \begin{arguments}
+%   \item \meta{sequence variable} or \meta{sequence variable name}, each item
+%     of the sequence stays for a number of modules with the same color.
+%     \cs{l__GS_black_bool} signals, whether the (first) modules are black or
+%     white and will be reversed after every item.  Each module has the width
+%     \cs{l_GS_module_wd_dim}.
+%   \item \meta{dimension expression}, the height of the black modules. The
+%     modules will be raised by \cs{l_GS_module_ht_dim}.
+%   \item \meta{boolean variable}, \texttt{true} indicates, that the first
+%     module should be black. With \texttt{false}, the first module will be
+%     white.
+%   \end{arguments}
+% \end{function}
+%
+% \begin{function}{\__GS_modules_start_black:Nn}
+%   \begin{syntax}
+%     "\__GS_modules_start_black:Nn" \meta{sequence variable} \Arg{dimension expression}
+%   \end{syntax}
+%   Same like \cs{__GS_modules:NnN} \meta{sequence variable} \Arg{dimension
+%   expression} \cs{c_true_bool}.
+% \end{function}
+%
+% \begin{function}{\__GS_modules_start_white:Nn}
+%   \begin{syntax}
+%     "\__GS_modules_start_white:Nn" \meta{sequence variable} \Arg{dimension expression}
+%   \end{syntax}
+%   Same like \cs{__GS_modules:NnN} \meta{sequence variable} \Arg{dimension
+%   expression} \cs{c_false_bool}.
+% \end{function}
+%
+% \end{documentation}
+%
+% \begin{implementation}
+%
+% \section{\pkg{GS1} implementation}
+% \label{sec:implementation}
+%
+%    \begin{macrocode}
+%<@@=GS>
+%    \end{macrocode}
+%
+% The implementation has been done in two parts.  The first part is the L3
+% code with all the functions and variables.  The second part is the
+% \LaTeXe{} lookalike user interface.
+%
+% But before this, we just declare, what this is:
+%    \begin{macrocode}
+%<*package>
+\ProvidesExplPackage
+  {\ExplFileName}{\ExplFileDate}{\ExplFileVersion}{\ExplFileDescription}
+%    \end{macrocode}
+% and what it requires:
+%    \begin{macrocode}
+\RequirePackage{rule-D}
+%</package>
+%    \end{macrocode}
+%
+% \subsection{Implementation of Functions and Variables}
+% \label{sec:impl:functions.and.variables}
+%
+% \subsubsection{Constants}
+% \label{sec:impl:constants}
+%
+% \begin{macro}{\__GS_new_seq_c:cn}
+%   While this is an internal function, that should allow only some tokens at
+%   the arguments, it is declared \texttt{nopar}.
+%    \begin{macrocode}
+%<*package>
+\cs_new_nopar:Npn \@@_new_seq_c:cn #1#2
+  {
+    \seq_new:c {c@@_ #1 _seq}
+    \seq_set_split:Nnn \l_tmpa_seq {} {#2}
+    \seq_gset_eq:cN {c@@_ #1 _seq} \l_tmpa_seq
+  }
+%</package>
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{variable}{\c__GS_AB0_seq, \c__GS_AB1_seq, \c__GS_AB2_seq,
+%   \c__GS_AB3_seq, \c__GS_AB4_seq, \c__GS_AB5_seq, \c__GS_AB6_seq,
+%   \c__GS_AB7_seq, \c__GS_AB8_seq, \c__GS_AB9_seq}
+%   These constants represent the generation rules of the left side of an EAN-13
+%   barcode. See figure~5.2.1.3.1-1 of the GS1 specification.
+%    \begin{macrocode}
+%<*package>
+\@@_new_seq_c:cn {AB0} {AAAAAA}
+\@@_new_seq_c:cn {AB1} {AABABB}
+\@@_new_seq_c:cn {AB2} {AABBAB}
+\@@_new_seq_c:cn {AB3} {AABBBA}
+\@@_new_seq_c:cn {AB4} {ABAABB}
+\@@_new_seq_c:cn {AB5} {ABBAAB}
+\@@_new_seq_c:cn {AB6} {ABBBAA}
+\@@_new_seq_c:cn {AB7} {ABABAB}
+\@@_new_seq_c:cn {AB8} {ABABBA}
+\@@_new_seq_c:cn {AB9} {ABBABA}
+%</package>
+%    \end{macrocode}
+% \end{variable}
+%
+% \begin{variable}{\c__GS_A0_seq, \c__GS_A1_seq, \c__GS_A2_seq, \c__GS_A3_seq,
+%   \c__GS_A4_seq, \c__GS_A5_seq, \c__GS_A6_seq, \c__GS_A7_seq, \c__GS_A8_seq,
+%   \c__GS_A9_seq, \c__GS_B0_seq, \c__GS_B1_seq, \c__GS_B2_seq, \c__GS_B3_seq,
+%   \c__GS_B4_seq, \c__GS_B5_seq, \c__GS_B6_seq, \c__GS_B7_seq, \c__GS_B8_seq,
+%   \c__GS_B9_seq, \c__GS_margin_seq, \c__GS_separator_seq, \c__GS_special_seq,
+%   \c__GS_extra_margin_seq, \c__GS_extra_separator_seq}
+%   These constants represent the module sequences of digits and markers. See
+%   figure~5.2.1.2.1-1 and 5.2.1.2.2-1 of the GS1 specification. Note, that
+%   the module sequences of type C are same like type A but start with a black
+%   module instead of a white one.
+%    \begin{macrocode}
+%<*package>
+\@@_new_seq_c:cn {A0} {3211} % start white (C0 same but start with black)
+\@@_new_seq_c:cn {A1} {2221}
+\@@_new_seq_c:cn {A2} {2122}
+\@@_new_seq_c:cn {A3} {1411}
+\@@_new_seq_c:cn {A4} {1132}
+\@@_new_seq_c:cn {A5} {1231}
+\@@_new_seq_c:cn {A6} {1114}
+\@@_new_seq_c:cn {A7} {1312}
+\@@_new_seq_c:cn {A8} {1213}
+\@@_new_seq_c:cn {A9} {3112}
+\@@_new_seq_c:cn {B0} {1123} % start white
+\@@_new_seq_c:cn {B1} {1222}
+\@@_new_seq_c:cn {B2} {2212}
+\@@_new_seq_c:cn {B3} {1141}
+\@@_new_seq_c:cn {B4} {2311}
+\@@_new_seq_c:cn {B5} {1321}
+\@@_new_seq_c:cn {B6} {4111}
+\@@_new_seq_c:cn {B7} {2131}
+\@@_new_seq_c:cn {B8} {3121}
+\@@_new_seq_c:cn {B9} {2113}
+\@@_new_seq_c:cn {margin}         {111} % start black
+\@@_new_seq_c:cn {separator}    {11111} % start white
+\@@_new_seq_c:cn {special}     {111111} % start white
+\@@_new_seq_c:cn {extra_margin}   {112} % start black
+\@@_new_seq_c:cn {extra_separator} {11} % start white
+%</package>
+%    \end{macrocode}
+% \end{variable}
+%
+% There are some basic dimensions for the modules at the specification:
+% \begin{variable}{\c__GS_module_min_width_dim, \c__GS_module_norm_width_dim}
+%    \begin{macrocode}
+%<*package>
+\dim_const:Nn \c_@@_module_min_width_dim {0.264mm}
+\dim_const:Nn \c_@@_module_norm_width_dim {0.33mm}
+%</package>
+%    \end{macrocode}
+% \end{variable}
+%
+% \subsubsection{Settings and Variables}
+% \label{seq:impl.settings}
+%
+% These settings will influence the work of several of the user functions.
+% They are defined as keys of family \texttt{GS1}.
+%
+% \begin{variable}{ \l_GS_use_ocrb_bool, \l_GS_module_wd_dim,
+%   \l_GS_module_ht_dim, \l_GS_scale_fp, \l_GS_scale_to_font_bool,
+%   \l_GS_add_control_bool, \l_GS_code_type_tl, \l_GS_code_size_int }
+% \begin{macro}{\__GS_set_key_code:nn}
+%   Needed to set both \cmd{\l_GS_code_type_tl} and \cmd{\l_GS_code_size_int}
+%   with one key.  Together they are the type of code, to be handled.
+%    \begin{macrocode}
+%<*package>
+\cs_new_nopar:Npn \@@_set_key_code:nn #1#2
+  {
+    \tl_if_exist:NF \l_GS_code_type_tl { \tl_new:N \l_GS_code_type_tl }
+    \tl_set:Nn \l_GS_code_type_tl { #1 }
+    \int_if_exist:NF \l_GS_code_size_int { \int_new:N \l_GS_code_size_int }
+    \int_set:Nn \l_GS_code_size_int { #2 }
+  }
+%    \end{macrocode}
+% \end{macro}
+%    \begin{macrocode}
+\keys_define:nn { GS1 }
+  {
+    ocrb          .bool_set:N = \l_GS_use_ocrb_bool,
+    ocrb          .initial:n  = true,
+    module_width  .dim_set:N  = \l_GS_module_wd_dim,
+    module_width  .initial:V  = \c_@@_module_norm_width_dim,
+    module_height .dim_set:N  = \l_GS_module_ht_dim,
+    module_height .initial:V  = \c_zero_dim,
+    code          .choice:,
+    code / EAN-8  .code:n = { \@@_set_key_code:nn { EAN } {  8 } },
+    code / EAN8   .code:n = { \@@_set_key_code:nn { EAN } {  8 } },
+    code / EAN-13 .code:n = { \@@_set_key_code:nn { EAN } { 13 } },
+    code / EAN13  .code:n = { \@@_set_key_code:nn { EAN } { 13 } },
+    code          .initial:n = EAN-13,
+    scale         .fp_set:N   = \l_GS_scale_fp,
+    scale         .initial:n  = 1.0,
+    scale_to_font .bool_set:N = \l_GS_scale_to_font_bool,
+    scale_to_font .initial:n  = false,
+    add_control   .bool_set:N = \l_GS_add_control_bool,
+    add_control   .initial:n  = false,
+  }
+%</package>
+%    \end{macrocode}
+% \end{variable}
+%
+% Note: Later I'll define a \LaTeXe{} command to change the defaults of those
+% keys.  Additionally local changes of those keys may be done using the
+% optional argument of the \LaTeXe{} user commands. See
+% \autoref{sec:impl:user.interface} for more information.
+%
+% \begin{variable}{\l__GS_code_seq}
+%   This will be used later for several local GS1 sequences.  It is private
+%   and also shouldn't be used in global context.
+%    \begin{macrocode}
+%<*package>
+\seq_new:N \l_@@_code_seq
+%</package>
+%    \end{macrocode}
+% \end{variable}
+%
+% \subsubsection{Messages}
+% \label{seq:impl.messages}
+%
+% We need a message for not supported lengths of EAN codes, because currently
+% only EAN-8 and EAN-13 are supported, both with or without control
+% digit. This message will be used as an error message.
+%    \begin{macrocode}
+%<*package>
+\msg_new:nnnn { GS1 } { EAN-code-size }
+  {
+    #1~isn't~a~valid~EAN~code~\msg_line_context:.
+  }
+  {
+    The~given~code~is~neither~a~EAN-8~with~or~without~control~digit,\\
+    nor~a~EAN-13~with~or~without~control~digit.\\\\
+    The~GS1~module~currently~only~supports~EAN-8~and~EAN~13.
+  }
+%</package>
+%    \end{macrocode}
+%
+% Another message is only a warning message. It will be used whenever the used
+% module width would be less than the minimum module width given by the GS1
+% specification.
+%    \begin{macrocode}
+%<*package>
+\msg_new:nnn { GS1 } { module/minwidth }
+  {
+    Resulting~module~width~is~less~than~allowed~minimum~\msg_line_context:.\\\\
+    GS1~specification~declares~a~minimum~module~width~of~#2.\\
+    Currently~the~module~with~would~be~#1.\\
+    To~avoid~problems,~I'll~increase~module~width~to~#2.
+  }
+%</package>
+%    \end{macrocode}
+%
+% \subsubsection{Functions}
+% \label{seq:impl.functions}
+%
+% \begin{macro}{\GS_set_code_digit_seq:Nn}
+%   Convert a string into a code sequence ignoring all but digits.
+%    \begin{macrocode}
+%<*package>
+\cs_new_nopar:Npn \GS_set_code_digit_seq:Nn #1#2 
+  {
+    \seq_set_eq:NN #1 \c_empty_seq
+    \tl_map_inline:nn 
+      { #2 }
+      {
+        \tl_if_in:nnT
+          {0123456789}
+          {##1}
+          {
+            \seq_put_right:Nn #1 { ##1 }
+          }
+      }
+  }
+%</package>
+%    \end{macrocode}
+%
+% \TestFiles{GS_set_code_digit.tex}\UnitTested
+%    \begin{macrocode}
+%<*test&GS.set.code.digit.seq>
+\ExplSyntaxOn
+\seq_new:N \l_testa_seq
+\seq_new:N \l_testb_seq
+
+\GS_set_code_digit_seq:Nn \l_testa_seq {ISBN 978-3-86541-459-5}
+Sequence~for~ISBN~978-3-86541-459-5~is:~
+\seq_use:Nnnn \l_testa_seq { ,~ } { ,~} { ,~ }
+
+\GS_set_code_digit_seq:Nn \l_testb_seq {9783865414595}
+\seq_map_inline:Nn \l_testa_seq
+  {
+    \seq_pop_left:NN \l_testb_seq \l_tmpa_tl
+    \tl_set:Nn \l_tmpb_tl { #1 }
+    \tl_if_eq:NNF \l_tmpa_tl \l_tmpb_tl
+      { 
+        \tl_show:N l_testa_seq
+        \tl_show:N l_testb_seq
+        \msg_fatal:nnn { GS1/test } { function } { \GS_set_code_digit_seq:Nn } 
+      }
+  }
+
+\GS_set_code_digit_seq:Nn \l_testa_seq {ISBN 978-3-86541-459-5}
+\seq_set_split:Nnn \l_testb_seq {,} {9,7,8,3,8,6,5,4,1,4,5,9,5}
+\seq_map_inline:Nn \l_testa_seq
+  {
+    \seq_pop_left:NN \l_testb_seq \l_tmpa_tl
+    \tl_set:Nn \l_tmpb_tl { #1 }
+    \tl_if_eq:NNF \l_tmpa_tl \l_tmpb_tl
+      { 
+        \tl_show:N \l_testa_seq
+        \tl_show:N \l_testb_seq
+        \msg_fatal:nnn { GS1/test } { function } { \GS_set_code_digit_seq:Nn } 
+      }
+  }
+
+\ExplSyntaxOff
+%</test&GS.set.code.digit.seq>
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[updated = 2017-07-15]{\GS_cut_EAN_control_digit:N}
+%   \changes{v18}{2017/07/15}{replaced removed \cs{int_case:nnn} by
+%     \cs{int_case:nnF}}^^A
+%   EAN code sequences with control digit are either 8 or 13 digits.  To
+%   remove the control digit we just have to remove the right most digit from
+%   a 8 or 13 digits sequence.  7 or 12 digit sequences are already without
+%   control digit.  All other sequences are not supported.
+%    \begin{macrocode}
+%<*package>
+\cs_new_nopar:Npn \GS_cut_EAN_control_digit:N #1 
+  {
+    \int_case:nnF 
+      { \seq_count:N #1 }
+      {
+        {  7 } {  }
+        {  8 } { \seq_pop_right:NN #1 \l_tempa_tl }
+        { 12 } {  }
+        { 13 } { \seq_pop_right:NN #1 \l_tempa_tl }
+      }
+      {
+        \msg_error:nnn { GS1 } { EAN-code-size } { #1 } 
+      }
+  }
+%</package>
+%    \end{macrocode}
+%
+% \TestFiles{GS_cut_EAN_control_digit.tex}\UnitTested
+%    \begin{macrocode}
+%<*test&GS.cut.EAN.control.digit>
+\raggedright
+\ExplSyntaxOn
+\seq_new:N \l_testa_seq
+\GS_set_code_digit_seq:Nn \l_testa_seq {ISBN 978-3-86541-459-5}
+With~control:~\seq_use:Nnnn \l_testa_seq { ,~ } { ,~} { ,~ }\\
+\GS_set_code_digit_seq:Nn \l_testb_seq {ISBN 978-3-86541-459}
+\GS_cut_EAN_control_digit:N \l_testa_seq
+\seq_map_inline:Nn \l_testa_seq
+  {
+    \seq_pop_left:NN \l_testb_seq \l_tmpa_tl
+    \tl_set:Nn \l_tmpb_tl { #1 }
+    \tl_if_eq:NNF \l_tmpa_tl \l_tmpb_tl
+      { 
+        \tl_show:N \l_testa_seq
+        \tl_show:N \l_testb_seq
+        \msg_fatal:nnn { GS1/test } { function } 
+          { \GS_cut_EAN_control_digit:N } 
+      }
+  }
+Without~control:~\seq_use:Nnnn \l_testa_seq { ,~ } { ,~} { ,~ }\\
+\ExplSyntaxOff
+%</test&GS.cut.EAN.control.digit>
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\int_set_to_EAN_control_digit:NN}
+% Sets an integer to the control digit calculated with the EAN control digit
+% algorithm for a given code sequence.  Note, that the complete code
+% sequence will be used to calculate the control digit.  So, if you have a
+% EAN-8 or EAN-13 code sequence, you should cut of the control digit first.
+%    \begin{macrocode}
+%<*package>
+\cs_new_nopar:Npn \int_set_to_EAN_control_digit:NN #1#2
+  {
+    \int_zero:N #1
+    \seq_set_eq:NN \l_tmpa_seq #2
+    \bool_until_do:nn 
+      { \seq_if_empty_p:N \l_tmpa_seq }
+      {
+        \seq_pop_left:NN \l_tmpa_seq \l_tmpb_tl
+        \int_if_even:nTF 
+          { \seq_count:N \l_tmpa_seq }
+          { 
+            \int_add:Nn #1 { 3 * \l_tmpb_tl }
+          }
+          { 
+            \int_add:Nn #1 { \l_tmpb_tl } 
+          }
+      }
+    \int_set:Nn #1 { \int_mod:nn { 10 - \int_mod:nn { #1 } { 10 } } { 10 } }
+  }
+%</package>
+%    \end{macrocode}
+%
+% \TestFiles{int_set_to_EAN_control_digit.tex}\UnitTested
+%    \begin{macrocode}
+%<*test&int.set.to.EAN.control.digit>
+\ExplSyntaxOn
+\seq_new:N \l_testa_seq
+\tl_new:N \l_control_tl
+\GS_set_code_digit_seq:Nn \l_testa_seq {ISBN 978-3-86541-459-5}
+\seq_pop_right:NN \l_testa_seq \l_control_tl
+\int_new:N \l_control_int
+\int_set_to_EAN_control_digit:NN \l_control_int \l_testa_seq
+Control~digit~should~be~\tl_use:N \l_control_tl{} ~
+\int_compare:nNnTF { \l_control_tl } { = } { \l_control_int }
+  {
+    ~and~is~\int_use:N \l_control_int .
+  }
+  {
+    ~but~it~\int_use:N \l_control_int .
+    \msg_error:nnn { GS1/test } { function } 
+      { \int_set_to_EAN_control_digit:NN }
+  }
+\ExplSyntaxOff
+%</test&int.set.to.EAN.control.digit>
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\GS_set_EAN_control_digit:N}
+%   Add a new control digit to a EAN sequence
+%    \begin{macrocode}
+%<*package>
+\cs_new_nopar:Npn \GS_set_EAN_control_digit:N #1
+  {
+    \GS_cut_EAN_control_digit:N #1
+    \int_set_to_EAN_control_digit:NN \l_tmpa_int #1
+    \seq_put_right:NV #1 \l_tmpa_int
+  }
+%</package>
+%    \end{macrocode}
+%
+% \TestFiles{GS_set_EAN_control_digit.tex}\UnitTested
+%    \begin{macrocode}
+%<*test&GS.set.EAN.control.digit>
+\ExplSyntaxOn
+\seq_new:N \l_testa_seq
+\GS_set_code_digit_seq:Nn \l_testa_seq {ISBN 978-3-86541-459-5}
+\seq_new:N \l_testb_tl
+\seq_pop_right:NN \l_testa_seq \l_testb_tl
+\GS_set_EAN_control_digit:N \l_testa_seq
+\tl_new:N \l_testa_tl
+\seq_get_right:NN \l_testa_seq \l_testa_tl
+Control~digit~should~be~ \tl_use:N \l_testb_tl {} ~
+\int_compare:nNnTF { \l_testa_tl } { = } { \l_testb_tl }
+  {
+    ~and~is~\tl_use:N \l_testa_tl .
+  }
+  {
+    ~but~it~\tl_use:N \t_testa_tl .
+    \msg_error:nnn { GS1/test } { function } { \GS_set_EAN_control_digit:N }
+  }
+\ExplSyntaxOff
+%</test&GS.set.EAN.control.digit>
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\__GS_modules:Nn, \__GS_modules:NnN, \__GS_modules:cn,
+%   \__GS_modules_start_black:Nn, \__GS_modules_start_white:Nn} 
+%    \begin{macrocode}
+%<*package>
+\cs_new_nopar:Npn \@@_modules:Nn #1#2
+  {
+    \seq_map_inline:Nn #1
+      {
+        \bool_if:NTF \l_@@_black_bool
+          {
+            \bool_set_false:N \l_@@_black_bool
+            \hbox_set:Nn \l_tmpa_box { 0 }
+            \rule:nnn
+              { 
+                \dim_eval:n 
+                  { 
+                    \box_ht:N \l_tmpa_box + \l_GS_module_wd_dim / 2
+                    - \dim_eval:n { #2 } + \l_GS_module_ht_dim 
+                  } 
+              } 
+              { \dim_eval:n { \l_GS_module_wd_dim * ##1 } }
+              { \dim_eval:n { #2 } }
+          }
+          {
+            \bool_set_true:N \l_@@_black_bool
+            \hbox_to_wd:nn { \l_GS_module_wd_dim * ##1 } { }
+          }
+      }
+  }
+
+\cs_new_nopar:Npn \@@_modules:NnN #1#2#3
+  {
+    \bool_if_exist:NF \l_@@_black_bool { \bool_new:N \l_@@_black_bool }
+    \bool_set_eq:NN \l_@@_black_bool #3
+    \@@_modules:Nn #1 { #2 }
+  }
+
+\cs_new_nopar:Npn \@@_modules_start_black:Nn #1#2
+  {
+    \@@_modules:NnN #1 { #2 } \c_true_bool
+  }
+
+\cs_new_nopar:Npn \@@_modules_start_white:Nn #1#2
+  {
+    \@@_modules:NnN #1 { #2 } \c_false_bool
+  }
+
+\cs_generate_variant:Nn \@@_modules:Nn { c }
+%</package>  
+%    \end{macrocode}
+% \TestFiles{EANBarcode.tex}\UnitTested
+% \end{macro}
+%
+% \begin{macro}{\GS_use_as_EAN_barcode:N}
+%   Puts the digits, rules, and gaps for an EAN barcode into the input
+%   stream.
+%    \begin{macrocode}
+%<*package>
+\cs_new_nopar:Npn \GS_use_as_EAN_barcode:N #1
+  {
+    \seq_set_eq:NN \l_@@_code_seq #1
+
+    \int_compare:nNnTF { \l_GS_code_size_int } { = } { 8 } 
+      { 
+        \hbox_to_wd:nn { \l_GS_module_wd_dim * 7 } { }
+        \seq_set_eq:Nc \l_GS_system_seq { c_@@_AB0_seq }
+      }
+      {
+        \hbox_to_wd:nn { \l_GS_module_wd_dim * 11 } { }
+        \seq_pop_left:NN \l_@@_code_seq \l_tmpa_tl
+        \seq_set_eq:Nc \l_GS_system_seq { c_@@_AB \l_tmpa_tl _seq }
+        \hbox_overlap_left:n { \l_tmpa_tl }
+      }
+
+    \@@_modules_start_black:Nn \c_@@_margin_seq 
+      { \l_GS_module_ht_dim + \l_GS_module_wd_dim * 5 }
+
+    \int_step_inline:nnnn { 1 } { 1 }
+      { \int_div_truncate:nn { \l_GS_code_size_int } { 2 } }
+      {
+        \seq_pop_left:NN \l_@@_code_seq \l_tmpa_tl
+        \hbox_overlap_right:n { \l_tmpa_tl }
+        \seq_pop_left:NN \l_GS_system_seq \l_tmpb_tl
+        \@@_modules:cn { c_@@_ \l_tmpb_tl \l_tmpa_tl _seq } 
+          { \l_GS_module_ht_dim }
+      }
+    
+    \@@_modules_start_white:Nn \c_@@_separator_seq 
+      { \l_GS_module_ht_dim + \l_GS_module_wd_dim * 5 }
+
+    \int_step_inline:nnnn { 1 } { 1 }
+      { \int_div_truncate:nn { \l_GS_code_size_int } { 2 } }
+      {
+        \seq_pop_left:NN \l_@@_code_seq \l_tmpa_tl
+        \hbox_overlap_right:n { \l_tmpa_tl }
+        \@@_modules:cn { c_@@_A \l_tmpa_tl _seq } 
+          { \l_GS_module_ht_dim }
+      }
+
+    \@@_modules_start_black:Nn \c__GS_margin_seq 
+      { \l_GS_module_ht_dim + \l_GS_module_wd_dim * 5 }
+
+    \hbox_to_wd:nn { \l_GS_module_wd_dim * 7 } { }
+  }
+%</package>
+%    \end{macrocode}
+% \TestFiles{EANBarcode.tex}\UnitTested
+% \end{macro}
+%
+%
+% \subsection{Implementation of the User Interface}
+% \label{sec:impl:user.interface}
+%
+% For this, additional packages are needed:
+%    \begin{macrocode}
+%<*package>
+\RequirePackage{xparse}
+%    \end{macrocode}
+%
+% \begin{macro}{\EANControlDigit}
+%    \begin{macrocode}
+\NewDocumentCommand \EANControlDigit
+  { m }
+  {
+    \group_begin:
+      \GS_set_code_digit_seq:Nn \l_@@_code_seq { #1 }
+      \GS_cut_EAN_control_digit:N \l_@@_code_seq
+      \int_set_to_EAN_control_digit:NN \l_tmpa_int \l_@@_code_seq
+      \int_to_arabic:n { \l_tmpa_int }
+    \group_end:
+  }
+%</package>
+%    \end{macrocode}
+% \TestFiles{EANControlDigit.tex}\UnitTested
+%
+%    \begin{macrocode}
+%<*test&EANControlDigit>
+\begin{tabular}{ll}
+  \hline
+  Calculated & Known \\
+  \hline
+  501234567890-\EANControlDigit{501234567890} & 501234567890-0 \\
+  ISBN 978-3-86541-459-\EANControlDigit{ISBN 978-3-86541-459} & ISBN
+  978-3-86541-459-5 \\
+  EAN-8: 2012345\EANControlDigit{2012345} & EAN-8: 20123451 \\
+  \hline
+\end{tabular}
+%</test&EANControlDigit>
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\EANBarcode}
+%    \begin{macrocode}
+%<*package>
+\NewDocumentCommand \EANBarcode
+  { o m }
+  {
+    \group_begin:
+      \IfNoValueF{#1}{ \keys_set:nn { GS1 } { #1 } }
+      \dim_compare:nNnT { \l_GS_module_ht_dim } { = } { \c_zero_dim }
+        {
+          \int_compare:nNnTF { \l_GS_code_size_int } { = } { 8 }
+            { \dim_set:Nn \l_GS_module_ht_dim { 21.31 mm } }
+            { \dim_set:Nn \l_GS_module_ht_dim { 25.01 mm } }
+        }
+      \bool_if:nT \l_GS_use_ocrb_bool
+        {
+%    \end{macrocode}
+% \textsc{ToDo:} Use \pkg{fontspec} if available.
+%    \begin{macrocode}
+          \usefont{OT1}{ocrb}{m}{n}\fontsize{9}{9}\selectfont
+        }
+
+      \GS_set_code_digit_seq:Nn \l_@@_code_seq { #2 }
+
+      \bool_if:NT \l_GS_add_control_bool
+        {
+          \GS_set_EAN_control_digit:N \l_@@_code_seq
+        }
+
+      \int_compare:nNnT
+        { \seq_count:N \l__GS_code_seq } 
+        { > } 
+        { \l_GS_code_size_int }
+        {
+          \msg_error:nnn { GS1 } { EAN-code-size } { #2 }
+        }
+      \int_while_do:nNnn 
+        { \seq_count:N \l_@@_code_seq }
+        { < }
+        { \l_GS_code_size_int }
+        {
+          \seq_put_left:Nn \l_@@_code_seq { 0 }
+        }
+
+      \bool_if:NT \l_GS_scale_to_font_bool {
+        \hbox_set:Nn \l_tmpa_box { 0 }
+        \dim_set:Nn \l_GS_module_wd_dim { \box_wd:N \l_tmpa_box / 7 }
+      }
+
+     \dim_set:Nn \l_tmpa_dim
+       { \fp_to_decimal:N \l_GS_scale_fp \l_GS_module_wd_dim }
+
+     \dim_compare:nNnT 
+        { \l_tmpa_dim }
+        { < } 
+        { \c_@@_module_min_width_dim }
+        {
+          \msg_warning:nnxx { GS1 } { module/minwidth } 
+            { \dim_use:N \l_GS_module_wd_dim }
+            { \dim_use:N \c_@@_module_min_width_dim }
+          \dim_set:Nn \l_GS_module_wd_dim 
+          {
+            \c_@@_module_min_width_dim * 
+            100 / \fp_to_int:n { 100 * \l_GS_scale_fp }
+          }
+        }
+
+      \hbox_set:Nn \l_tmpa_box { \GS_use_as_EAN_barcode:N \l_@@_code_seq }
+      \box_scale:Nnn \l_tmpa_box
+        { \fp_to_int:n { 100 * \l_GS_scale_fp } / 100 }
+        { \fp_to_int:n { 100 * \l_GS_scale_fp } / 100 }
+      \box_use:N \l_tmpa_box
+    \group_end:
+  }
+%</package>
+%    \end{macrocode}
+% \TestFiles{EANBarcode.tex}\UnitTested
+%
+%    \begin{macrocode}
+%<*test&EANBarcode|GSSetup>
+\raggedright
+\verb|\EANBarcode{ISBN 978-3-86541-459-5}|: 
+      \EANBarcode{ISBN 978-3-86541-459-5}
+
+\verb|\EANBarcode[add_control]{ISBN 978-3-86541-459-}|:
+      \EANBarcode[add_control]{ISBN 978-3-86541-459-}
+
+\verb|\EANBarcode[ocrb=false]{ISBN 978-3-86541-459-5}|:
+\EANBarcode[ocrb=false]{ISBN 978-3-86541-459-5}
+
+\verb|\EANBarcode[code=EAN-8]{20123451}|:
+      \EANBarcode[code=EAN-8]{20123451}
+
+\verb|\EANBarcode[code=EAN-8,ocrb=false,add_control]{2012345}|:
+      \EANBarcode[code=EAN-8,ocrb=false,add_control]{2012345}
+
+%</test&EANBarcode|GSSetup>
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\GSSetup}
+%    \begin{macrocode}
+%<*package>
+\NewDocumentCommand \GSSetup
+  { m }
+  { \keys_set:nn { GS1 } { #1 } }
+%</package>
+%    \end{macrocode}
+%
+% \TestFiles{GSSetup.tex}\UnitTested
+%    \begin{macrocode}
+%<*test&GSSetup>
+After \verb|\GSSetup{ocrb=false,add_control}|:
+            \GSSetup{ocrb=false,add_control}
+
+\verb|\EANBarcode[code=EAN-8]{2012345}|:
+      \EANBarcode[code=EAN-8]{2012345}
+
+\verb|\EANBarcode[code=EAN-8,ocrb,add_control=false]{20123451}|:
+      \EANBarcode[code=EAN-8,ocrb,add_control=false]{20123451}
+
+%</test&GSSetup>
+%    \end{macrocode}
+% \end{macro}
+%
+% \iffalse
+%<*test>
+\end{document}
+%</test>
+% \fi
+% \end{implementation}
+%
+% \PrintIndex
+%
+\endinput
+%
+% end of file
+
+% \endinput
+% Local Variables:
+% mode: doctex
+% TeX-master: t
+% End:
diff --git a/Master/texmf-dist/source/latex/gs1/GS1.ins b/Master/texmf-dist/source/latex/gs1/GS1.ins
new file mode 100644
index 00000000000..22b68ee22b8
--- /dev/null
+++ b/Master/texmf-dist/source/latex/gs1/GS1.ins
@@ -0,0 +1,79 @@
+\iffalse meta-comment
+
+File: GS1.ins Copyright (C) 2012 Markus Kohm
+
+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
+
+    http://www.latex-project.org/lppl.txt
+
+This file is part of the "GS1 bundle" (The Work in LPPL)
+and all files in that bundle must be distributed together.
+
+The released version of this bundle is available from CTAN.
+
+$Id: GS1.ins 9 2012-08-01 09:31:32Z mjk $
+
+\fi
+
+\input l3docstrip.tex
+\askforoverwritefalse
+
+\preamble
+
+EXPERIMENTAL CODE
+
+This Work depends on the correct version of expl3 release.  If
+you'll update expl3 you may need a update of this this Work too.
+
+Do not distribute this file without also distributing the
+source files specified above.
+
+Do not distribute modified version of this file.
+
+\endpreamble
+% stop docstrip adding \endinput
+\postamble
+\endpostamble
+
+\keepsilent
+
+\generate{%
+  \file{GS1.sty}        {\from{GS1.dtx}         {package}}%
+  % A lot of test files, that may be used as an example too:
+  \file{GS_set_code_digit_seq.tex}
+    {%
+      \from{GS1.dtx} {test,GS.set.code.digit.seq}%
+    }%
+  \file{GS_cut_EAN_control_digit.tex}
+    {%
+      \from{GS1.dtx} {test,GS.cut.EAN.control.digit}%
+    }%
+  \file{int_set_to_EAN_control_digit.tex}
+    {%
+      \from{GS1.dtx} {test,int.set.to.EAN.control.digit}%
+    }%
+  \file{GS_set_EAN_control_digit.tex}
+    {%
+      \from{GS1.dtx} {test,GS.set.EAN.control.digit}%
+    }%
+  \file{EANControlDigit.tex}
+    {%
+      \from{GS1.dtx} {test,EANControlDigit}%
+    }%
+  \file{EANBarcode.tex}
+    {%
+      \from{GS1.dtx} {test,EANBarcode}%
+    }%
+  \file{GSSetup.tex}
+    {%
+      \from{GS1.dtx} {test,GSSetup}%
+    }%
+}
+\generate{%
+  \file{rule-D.sty}     {\from{rule-D.dtx}      {package}}%
+}
+
+\endbatchfile
diff --git a/Master/texmf-dist/source/latex/gs1/rule-D.dtx b/Master/texmf-dist/source/latex/gs1/rule-D.dtx
new file mode 100644
index 00000000000..98cd347dfeb
--- /dev/null
+++ b/Master/texmf-dist/source/latex/gs1/rule-D.dtx
@@ -0,0 +1,136 @@
+% \iffalse meta-comment
+%
+%% File: rule-D.dtx Copyright (C) 2017-2021 Markus Kohm
+%%
+%% 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
+%%
+%%    http://www.latex-project.org/lppl.txt
+%%
+%% This file is part of the "GS1 bundle" (The Work in LPPL)
+%% and all files in that bundle must be distributed together.
+%%
+%% The released version of this bundle is available from CTAN.
+%%
+%% -------------------------------------------------------------------------
+%
+%<*driver|package>
+\RequirePackage{expl3}[2019/01/17]
+\GetIdInfo$Id: rule-D.dtx 23 2021-06-17 07:00:36Z mjk $
+  {rule functions for LaTeX3}
+%</driver|package>
+%<*driver>
+\documentclass{l3doc}
+\begin{document}
+  \DocInput{\jobname.dtx}
+\end{document}
+%</driver>
+% \fi
+%
+% \title{^^A
+%   The \pkg{rule-D} Package\\
+%   Rule Functions\thanks
+%     {^^A
+%       This file describes v\ExplFileVersion,
+%       last revised \ExplFileDate.^^A
+%     }^^A
+% }
+%
+% \author{^^A
+%   Markus Kohm\thanks
+%     {^^A
+%       E-mail: \href{mailto:komascript@gmx.info}{komascript@gmx.info}^^A
+%     }^^A
+% }
+%
+% \date{Released \ExplFileDate}
+%
+% \maketitle
+%
+% \begin{documentation}
+%   At \LaTeXe{} you have command \cmd{\rule} to make horizontal and vertical
+%   rules and even boxes.  Currently there's no L3 command for this.  This
+%   module provides two new L3 functions for rules.  The ``-D'' in the module
+%   name indicates, that currently the implementation uses deprecated
+%   functions like \cmd{\tex_vrule:D}.  Nevertheless, the new rule functions
+%   aren't declared to be deprecated.
+%
+%   This package has been made only, because \pkg{GS1} needs such rule
+%   functions.  So maybe it's simply a helper package for \pkg{GS1}.
+%
+%
+% \begin{function}{\rule:nn , \rule:nnn}
+%   \begin{syntax}
+%     "\rule:nnn" \Arg{dimexpr_{raise}} \Arg{dimexpr_{width}}^^A
+% \Arg{dimexpr_{height}}
+%     "\rule:nn"  \Arg{dimexpr_{width}} \Arg{dimexpr_{height}}
+%   \end{syntax}
+%   Draw a rule of width \meta{dimexpr_{width}}, height
+%   \meta{dimexpr_{height}} and raise it by \meta{dimexpr_{raise}}. It the
+%   \meta{dimex_{raise}} has not been given, the rule will be drawn at the
+%   base line.
+% \end{function}
+%
+% \end{documentation}
+%
+% \begin{implementation}
+%
+% \section{\pkg{rule-D} implementation}
+% \label{sec:rule-D:implementation}
+%
+%    \begin{macrocode}
+%<*package>
+%<@@=rule>
+%    \end{macrocode}
+%
+% First of all we have to setup package information:
+%    \begin{macrocode}
+\ProvidesExplPackage
+  {rule-D} {\ExplFileDate} {\ExplFileVersion}
+  {experimental~L3~rule~functions}
+%    \end{macrocode}
+%
+% \begin{macro}[updated = 2021-06-17]{\rule:nn , \rule:nnn}
+%    \begin{macrocode}
+\cs_new:Npn \rule:nn #1#2
+  {
+    \rule:nnn { \c_zero_dim } { #1 } { #2 }
+  }
+\cs_new:Npn \rule:nnn #1#2#3
+  {
+%    \end{macrocode}
+% \changes{v23}{2021/06/17}{deprecated \cs{hbox_unpack_clear} replaced by
+%   \cs{hbox_unpack_drop}}
+% Following line is same like \cs{leavevmode}, but it's \LaTeX3 instead of
+% plain\TeX.
+%    \begin{macrocode}
+    \hbox_unpack_drop:N \c_empty_box
+    \hbox:n
+      {
+        \tex_vrule:D width \dim_eval:n { #2 }
+                     height \dim_eval:n { #1 + #3 } 
+                     depth -\dim_eval:n { #1 }
+      }
+  }
+%    \end{macrocode}
+% \end{macro}
+%
+%    \begin{macrocode}
+%</package>
+%    \end{macrocode}
+%
+% \end{implementation}
+%
+% \PrintIndex
+%
+\endinput
+%
+% end of file
+
+% \endinput
+% Local Variables:
+% mode: doctex
+% TeX-master: t
+% End:
diff --git a/Master/texmf-dist/tex/latex/gs1/GS1.sty b/Master/texmf-dist/tex/latex/gs1/GS1.sty
new file mode 100644
index 00000000000..223c9ce5c6d
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/gs1/GS1.sty
@@ -0,0 +1,355 @@
+%%
+%% This is file `GS1.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% GS1.dtx  (with options: `package')
+%% 
+%% EXPERIMENTAL CODE
+%% 
+%% This Work depends on the correct version of expl3 release.  If
+%% you'll update expl3 you may need a update of this this Work too.
+%% 
+%% Do not distribute this file without also distributing the
+%% source files specified above.
+%% 
+%% Do not distribute modified version of this file.
+%% 
+%% File: GS1.dtx Copyright (C) 2012-2017 Markus Kohm
+%%
+%% 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
+%%
+%%    http://www.latex-project.org/lppl.txt
+%%
+%% This file is part of the "GS1 bundle" (The Work in LPPL)
+%% and all files in that bundle must be distributed together.
+%%
+%% The released version of this bundle is available from CTAN.
+%%
+%% -------------------------------------------------------------------------
+\RequirePackage{expl3}[2017/05/29]
+\GetIdInfo$Id: GS1.dtx 23 2021-06-17 07:00:36Z mjk $
+  {GS1 code handler and barcode generator}
+\ProvidesExplPackage
+  {\ExplFileName}{\ExplFileDate}{\ExplFileVersion}{\ExplFileDescription}
+\RequirePackage{rule-D}
+\cs_new_nopar:Npn \__GS_new_seq_c:cn #1#2
+  {
+    \seq_new:c {c__GS_ #1 _seq}
+    \seq_set_split:Nnn \l_tmpa_seq {} {#2}
+    \seq_gset_eq:cN {c__GS_ #1 _seq} \l_tmpa_seq
+  }
+\__GS_new_seq_c:cn {AB0} {AAAAAA}
+\__GS_new_seq_c:cn {AB1} {AABABB}
+\__GS_new_seq_c:cn {AB2} {AABBAB}
+\__GS_new_seq_c:cn {AB3} {AABBBA}
+\__GS_new_seq_c:cn {AB4} {ABAABB}
+\__GS_new_seq_c:cn {AB5} {ABBAAB}
+\__GS_new_seq_c:cn {AB6} {ABBBAA}
+\__GS_new_seq_c:cn {AB7} {ABABAB}
+\__GS_new_seq_c:cn {AB8} {ABABBA}
+\__GS_new_seq_c:cn {AB9} {ABBABA}
+\__GS_new_seq_c:cn {A0} {3211} % start white (C0 same but start with black)
+\__GS_new_seq_c:cn {A1} {2221}
+\__GS_new_seq_c:cn {A2} {2122}
+\__GS_new_seq_c:cn {A3} {1411}
+\__GS_new_seq_c:cn {A4} {1132}
+\__GS_new_seq_c:cn {A5} {1231}
+\__GS_new_seq_c:cn {A6} {1114}
+\__GS_new_seq_c:cn {A7} {1312}
+\__GS_new_seq_c:cn {A8} {1213}
+\__GS_new_seq_c:cn {A9} {3112}
+\__GS_new_seq_c:cn {B0} {1123} % start white
+\__GS_new_seq_c:cn {B1} {1222}
+\__GS_new_seq_c:cn {B2} {2212}
+\__GS_new_seq_c:cn {B3} {1141}
+\__GS_new_seq_c:cn {B4} {2311}
+\__GS_new_seq_c:cn {B5} {1321}
+\__GS_new_seq_c:cn {B6} {4111}
+\__GS_new_seq_c:cn {B7} {2131}
+\__GS_new_seq_c:cn {B8} {3121}
+\__GS_new_seq_c:cn {B9} {2113}
+\__GS_new_seq_c:cn {margin}         {111} % start black
+\__GS_new_seq_c:cn {separator}    {11111} % start white
+\__GS_new_seq_c:cn {special}     {111111} % start white
+\__GS_new_seq_c:cn {extra_margin}   {112} % start black
+\__GS_new_seq_c:cn {extra_separator} {11} % start white
+\dim_const:Nn \c__GS_module_min_width_dim {0.264mm}
+\dim_const:Nn \c__GS_module_norm_width_dim {0.33mm}
+\cs_new_nopar:Npn \__GS_set_key_code:nn #1#2
+  {
+    \tl_if_exist:NF \l_GS_code_type_tl { \tl_new:N \l_GS_code_type_tl }
+    \tl_set:Nn \l_GS_code_type_tl { #1 }
+    \int_if_exist:NF \l_GS_code_size_int { \int_new:N \l_GS_code_size_int }
+    \int_set:Nn \l_GS_code_size_int { #2 }
+  }
+\keys_define:nn { GS1 }
+  {
+    ocrb          .bool_set:N = \l_GS_use_ocrb_bool,
+    ocrb          .initial:n  = true,
+    module_width  .dim_set:N  = \l_GS_module_wd_dim,
+    module_width  .initial:V  = \c__GS_module_norm_width_dim,
+    module_height .dim_set:N  = \l_GS_module_ht_dim,
+    module_height .initial:V  = \c_zero_dim,
+    code          .choice:,
+    code / EAN-8  .code:n = { \__GS_set_key_code:nn { EAN } {  8 } },
+    code / EAN8   .code:n = { \__GS_set_key_code:nn { EAN } {  8 } },
+    code / EAN-13 .code:n = { \__GS_set_key_code:nn { EAN } { 13 } },
+    code / EAN13  .code:n = { \__GS_set_key_code:nn { EAN } { 13 } },
+    code          .initial:n = EAN-13,
+    scale         .fp_set:N   = \l_GS_scale_fp,
+    scale         .initial:n  = 1.0,
+    scale_to_font .bool_set:N = \l_GS_scale_to_font_bool,
+    scale_to_font .initial:n  = false,
+    add_control   .bool_set:N = \l_GS_add_control_bool,
+    add_control   .initial:n  = false,
+  }
+\seq_new:N \l__GS_code_seq
+\msg_new:nnnn { GS1 } { EAN-code-size }
+  {
+    #1~isn't~a~valid~EAN~code~\msg_line_context:.
+  }
+  {
+    The~given~code~is~neither~a~EAN-8~with~or~without~control~digit,\\
+    nor~a~EAN-13~with~or~without~control~digit.\\\\
+    The~GS1~module~currently~only~supports~EAN-8~and~EAN~13.
+  }
+\msg_new:nnn { GS1 } { module/minwidth }
+  {
+    Resulting~module~width~is~less~than~allowed~minimum~\msg_line_context:.\\\\
+    GS1~specification~declares~a~minimum~module~width~of~#2.\\
+    Currently~the~module~with~would~be~#1.\\
+    To~avoid~problems,~I'll~increase~module~width~to~#2.
+  }
+\cs_new_nopar:Npn \GS_set_code_digit_seq:Nn #1#2
+  {
+    \seq_set_eq:NN #1 \c_empty_seq
+    \tl_map_inline:nn
+      { #2 }
+      {
+        \tl_if_in:nnT
+          {0123456789}
+          {##1}
+          {
+            \seq_put_right:Nn #1 { ##1 }
+          }
+      }
+  }
+\cs_new_nopar:Npn \GS_cut_EAN_control_digit:N #1
+  {
+    \int_case:nnF
+      { \seq_count:N #1 }
+      {
+        {  7 } {  }
+        {  8 } { \seq_pop_right:NN #1 \l_tempa_tl }
+        { 12 } {  }
+        { 13 } { \seq_pop_right:NN #1 \l_tempa_tl }
+      }
+      {
+        \msg_error:nnn { GS1 } { EAN-code-size } { #1 }
+      }
+  }
+\cs_new_nopar:Npn \int_set_to_EAN_control_digit:NN #1#2
+  {
+    \int_zero:N #1
+    \seq_set_eq:NN \l_tmpa_seq #2
+    \bool_until_do:nn
+      { \seq_if_empty_p:N \l_tmpa_seq }
+      {
+        \seq_pop_left:NN \l_tmpa_seq \l_tmpb_tl
+        \int_if_even:nTF
+          { \seq_count:N \l_tmpa_seq }
+          {
+            \int_add:Nn #1 { 3 * \l_tmpb_tl }
+          }
+          {
+            \int_add:Nn #1 { \l_tmpb_tl }
+          }
+      }
+    \int_set:Nn #1 { \int_mod:nn { 10 - \int_mod:nn { #1 } { 10 } } { 10 } }
+  }
+\cs_new_nopar:Npn \GS_set_EAN_control_digit:N #1
+  {
+    \GS_cut_EAN_control_digit:N #1
+    \int_set_to_EAN_control_digit:NN \l_tmpa_int #1
+    \seq_put_right:NV #1 \l_tmpa_int
+  }
+\cs_new_nopar:Npn \__GS_modules:Nn #1#2
+  {
+    \seq_map_inline:Nn #1
+      {
+        \bool_if:NTF \l__GS_black_bool
+          {
+            \bool_set_false:N \l__GS_black_bool
+            \hbox_set:Nn \l_tmpa_box { 0 }
+            \rule:nnn
+              {
+                \dim_eval:n
+                  {
+                    \box_ht:N \l_tmpa_box + \l_GS_module_wd_dim / 2
+                    - \dim_eval:n { #2 } + \l_GS_module_ht_dim
+                  }
+              }
+              { \dim_eval:n { \l_GS_module_wd_dim * ##1 } }
+              { \dim_eval:n { #2 } }
+          }
+          {
+            \bool_set_true:N \l__GS_black_bool
+            \hbox_to_wd:nn { \l_GS_module_wd_dim * ##1 } { }
+          }
+      }
+  }
+
+\cs_new_nopar:Npn \__GS_modules:NnN #1#2#3
+  {
+    \bool_if_exist:NF \l__GS_black_bool { \bool_new:N \l__GS_black_bool }
+    \bool_set_eq:NN \l__GS_black_bool #3
+    \__GS_modules:Nn #1 { #2 }
+  }
+
+\cs_new_nopar:Npn \__GS_modules_start_black:Nn #1#2
+  {
+    \__GS_modules:NnN #1 { #2 } \c_true_bool
+  }
+
+\cs_new_nopar:Npn \__GS_modules_start_white:Nn #1#2
+  {
+    \__GS_modules:NnN #1 { #2 } \c_false_bool
+  }
+
+\cs_generate_variant:Nn \__GS_modules:Nn { c }
+\cs_new_nopar:Npn \GS_use_as_EAN_barcode:N #1
+  {
+    \seq_set_eq:NN \l__GS_code_seq #1
+
+    \int_compare:nNnTF { \l_GS_code_size_int } { = } { 8 }
+      {
+        \hbox_to_wd:nn { \l_GS_module_wd_dim * 7 } { }
+        \seq_set_eq:Nc \l_GS_system_seq { c__GS_AB0_seq }
+      }
+      {
+        \hbox_to_wd:nn { \l_GS_module_wd_dim * 11 } { }
+        \seq_pop_left:NN \l__GS_code_seq \l_tmpa_tl
+        \seq_set_eq:Nc \l_GS_system_seq { c__GS_AB \l_tmpa_tl _seq }
+        \hbox_overlap_left:n { \l_tmpa_tl }
+      }
+
+    \__GS_modules_start_black:Nn \c__GS_margin_seq
+      { \l_GS_module_ht_dim + \l_GS_module_wd_dim * 5 }
+
+    \int_step_inline:nnnn { 1 } { 1 }
+      { \int_div_truncate:nn { \l_GS_code_size_int } { 2 } }
+      {
+        \seq_pop_left:NN \l__GS_code_seq \l_tmpa_tl
+        \hbox_overlap_right:n { \l_tmpa_tl }
+        \seq_pop_left:NN \l_GS_system_seq \l_tmpb_tl
+        \__GS_modules:cn { c__GS_ \l_tmpb_tl \l_tmpa_tl _seq }
+          { \l_GS_module_ht_dim }
+      }
+
+    \__GS_modules_start_white:Nn \c__GS_separator_seq
+      { \l_GS_module_ht_dim + \l_GS_module_wd_dim * 5 }
+
+    \int_step_inline:nnnn { 1 } { 1 }
+      { \int_div_truncate:nn { \l_GS_code_size_int } { 2 } }
+      {
+        \seq_pop_left:NN \l__GS_code_seq \l_tmpa_tl
+        \hbox_overlap_right:n { \l_tmpa_tl }
+        \__GS_modules:cn { c__GS_A \l_tmpa_tl _seq }
+          { \l_GS_module_ht_dim }
+      }
+
+    \__GS_modules_start_black:Nn \c__GS_margin_seq
+      { \l_GS_module_ht_dim + \l_GS_module_wd_dim * 5 }
+
+    \hbox_to_wd:nn { \l_GS_module_wd_dim * 7 } { }
+  }
+\RequirePackage{xparse}
+\NewDocumentCommand \EANControlDigit
+  { m }
+  {
+    \group_begin:
+      \GS_set_code_digit_seq:Nn \l__GS_code_seq { #1 }
+      \GS_cut_EAN_control_digit:N \l__GS_code_seq
+      \int_set_to_EAN_control_digit:NN \l_tmpa_int \l__GS_code_seq
+      \int_to_arabic:n { \l_tmpa_int }
+    \group_end:
+  }
+\NewDocumentCommand \EANBarcode
+  { o m }
+  {
+    \group_begin:
+      \IfNoValueF{#1}{ \keys_set:nn { GS1 } { #1 } }
+      \dim_compare:nNnT { \l_GS_module_ht_dim } { = } { \c_zero_dim }
+        {
+          \int_compare:nNnTF { \l_GS_code_size_int } { = } { 8 }
+            { \dim_set:Nn \l_GS_module_ht_dim { 21.31 mm } }
+            { \dim_set:Nn \l_GS_module_ht_dim { 25.01 mm } }
+        }
+      \bool_if:nT \l_GS_use_ocrb_bool
+        {
+          \usefont{OT1}{ocrb}{m}{n}\fontsize{9}{9}\selectfont
+        }
+
+      \GS_set_code_digit_seq:Nn \l__GS_code_seq { #2 }
+
+      \bool_if:NT \l_GS_add_control_bool
+        {
+          \GS_set_EAN_control_digit:N \l__GS_code_seq
+        }
+
+      \int_compare:nNnT
+        { \seq_count:N \l__GS_code_seq }
+        { > }
+        { \l_GS_code_size_int }
+        {
+          \msg_error:nnn { GS1 } { EAN-code-size } { #2 }
+        }
+      \int_while_do:nNnn
+        { \seq_count:N \l__GS_code_seq }
+        { < }
+        { \l_GS_code_size_int }
+        {
+          \seq_put_left:Nn \l__GS_code_seq { 0 }
+        }
+
+      \bool_if:NT \l_GS_scale_to_font_bool {
+        \hbox_set:Nn \l_tmpa_box { 0 }
+        \dim_set:Nn \l_GS_module_wd_dim { \box_wd:N \l_tmpa_box / 7 }
+      }
+
+     \dim_set:Nn \l_tmpa_dim
+       { \fp_to_decimal:N \l_GS_scale_fp \l_GS_module_wd_dim }
+
+     \dim_compare:nNnT
+        { \l_tmpa_dim }
+        { < }
+        { \c__GS_module_min_width_dim }
+        {
+          \msg_warning:nnxx { GS1 } { module/minwidth }
+            { \dim_use:N \l_GS_module_wd_dim }
+            { \dim_use:N \c__GS_module_min_width_dim }
+          \dim_set:Nn \l_GS_module_wd_dim
+          {
+            \c__GS_module_min_width_dim *
+            100 / \fp_to_int:n { 100 * \l_GS_scale_fp }
+          }
+        }
+
+      \hbox_set:Nn \l_tmpa_box { \GS_use_as_EAN_barcode:N \l__GS_code_seq }
+      \box_scale:Nnn \l_tmpa_box
+        { \fp_to_int:n { 100 * \l_GS_scale_fp } / 100 }
+        { \fp_to_int:n { 100 * \l_GS_scale_fp } / 100 }
+      \box_use:N \l_tmpa_box
+    \group_end:
+  }
+\NewDocumentCommand \GSSetup
+  { m }
+  { \keys_set:nn { GS1 } { #1 } }
+%% 
+%%
+%% End of file `GS1.sty'.
diff --git a/Master/texmf-dist/tex/latex/gs1/rule-D.sty b/Master/texmf-dist/tex/latex/gs1/rule-D.sty
new file mode 100644
index 00000000000..e5ee017e215
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/gs1/rule-D.sty
@@ -0,0 +1,56 @@
+%%
+%% This is file `rule-D.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% rule-D.dtx  (with options: `package')
+%% 
+%% EXPERIMENTAL CODE
+%% 
+%% This Work depends on the correct version of expl3 release.  If
+%% you'll update expl3 you may need a update of this this Work too.
+%% 
+%% Do not distribute this file without also distributing the
+%% source files specified above.
+%% 
+%% Do not distribute modified version of this file.
+%% 
+%% File: rule-D.dtx Copyright (C) 2017-2021 Markus Kohm
+%%
+%% 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
+%%
+%%    http://www.latex-project.org/lppl.txt
+%%
+%% This file is part of the "GS1 bundle" (The Work in LPPL)
+%% and all files in that bundle must be distributed together.
+%%
+%% The released version of this bundle is available from CTAN.
+%%
+%% -------------------------------------------------------------------------
+\RequirePackage{expl3}[2019/01/17]
+\GetIdInfo$Id: rule-D.dtx 23 2021-06-17 07:00:36Z mjk $
+  {rule functions for LaTeX3}
+\ProvidesExplPackage
+  {rule-D} {\ExplFileDate} {\ExplFileVersion}
+  {experimental~L3~rule~functions}
+\cs_new:Npn \rule:nn #1#2
+  {
+    \rule:nnn { \c_zero_dim } { #1 } { #2 }
+  }
+\cs_new:Npn \rule:nnn #1#2#3
+  {
+    \hbox_unpack_drop:N \c_empty_box
+    \hbox:n
+      {
+        \tex_vrule:D width \dim_eval:n { #2 }
+                     height \dim_eval:n { #1 + #3 }
+                     depth -\dim_eval:n { #1 }
+      }
+  }
+%% 
+%%
+%% End of file `rule-D.sty'.
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index bdcddeec323..83ee990e1f6 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -20,7 +20,7 @@ our %OPT;
 
 my @TLP_working = qw(
   12many 2up
-  Asana-Math ESIEEcv GS1 HA-prosper IEEEconf IEEEtran
+  Asana-Math ESIEEcv HA-prosper IEEEconf IEEEtran
     SIstyle SIunits Tabbing Type1fonts
   a0poster a2ping a4wide a5comb
     aaai-named aalok aastex abbr abc abnt abntex2 abraces abstract abstyles
@@ -371,7 +371,7 @@ my @TLP_working = qw(
     greekdates greektex greektonoi greenpoint gregoriotex
     grfext grffile grfpaste
     grid grid-system gridpapers gridset gridslides grotesq grundgesetze
-    gsemthesis gtl gtrlib-largetrees gtrcrd
+    gs1 gsemthesis gtl gtrlib-largetrees gtrcrd
     gu gudea guitar guitarchordschemes guitartabs guitlogo gzt
   h2020proposal hackthefootline hacm hagenberg-thesis halloweenmath
     handin handout hands hang hanging hanoi
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds
index f70d5b12520..55b611934f8 100755
--- a/Master/tlpkg/libexec/ctan2tds
+++ b/Master/tlpkg/libexec/ctan2tds
@@ -60,6 +60,7 @@ chomp (my $ctan_root = `tlpkginfo --ctan-root`);
  'Einfuehrung', "die 'skipping, use einfuehrung (lowercase)'",
  'FAQ-en',      "die 'skipping, obsolete'",
  'FiXme',       "die 'skipping, use fixme'",
+ 'GS1',         "die 'skipping, use gs1'",
  'GuIT',        "die 'skipping, use guitlogo'",
  'HA-prosper',  '&MAKEhaprosper',
  'IEEEtran',    "&MAKEIEEEtran",
@@ -594,7 +595,6 @@ chomp (my $ctan_root = `tlpkginfo --ctan-root`);
  'grnumalt',    "die 'skipping, nonfree'",
  'grtimes',     "die 'skipping, requires nonfree monotype times'",
  'grverb',      "die 'skipping, nonfree restriction on Crete U. Press'",
- 'gs1',         "die 'skipping, use GS1'",
  'gudea',	"&MAKEflatten",
  'guide-latex-fr', "die 'skipping, nonfree cc-nc-nd'",
  'guitbeamer',  "die 'skipping, nonfree'",
diff --git a/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc b/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc
index d786e9e9877..ee21edcdf5d 100644
--- a/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc
@@ -7,7 +7,6 @@ depend collection-pictures
 #
 depend 2up
 depend ESIEEcv
-depend GS1
 depend HA-prosper
 depend Tabbing
 depend a0poster
@@ -586,6 +585,7 @@ depend grid-system
 depend gridpapers
 depend gridset
 depend gridslides
+depend gs1
 depend guitlogo
 depend halloweenmath
 depend hackthefootline
diff --git a/Master/tlpkg/tlpsrc/gs1.tlpsrc b/Master/tlpkg/tlpsrc/gs1.tlpsrc
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/gs1.tlpsrc