From 70c32b2936f7dac3a0898faafe7c554c3bedeae9 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 30 Jun 2020 03:02:38 +0000 Subject: CTAN sync 202006300302 --- macros/latex/contrib/langsci-avm/README | 11 +- .../langsci-avm/include/smallcaps-standalone.pdf | Bin 4596 -> 0 bytes macros/latex/contrib/langsci-avm/langsci-avm.dtx | 508 +++-- macros/latex/contrib/langsci-avm/langsci-avm.ins | 20 +- macros/latex/contrib/langsci-avm/langsci-avm.pdf | Bin 101999 -> 113978 bytes macros/latex/contrib/metastr/README.txt | 2 +- macros/latex/contrib/metastr/metastr.dtx | 303 ++- macros/latex/contrib/metastr/metastr.pdf | Bin 327624 -> 332920 bytes macros/latex/contrib/pdftexcmds/README.md | 19 - macros/latex/contrib/pdftexcmds/pdftexcmds.dtx | 2243 -------------------- macros/latex/contrib/pdftexcmds/pdftexcmds.pdf | Bin 384670 -> 0 bytes macros/latex/contrib/qrbill/README.md | 14 +- macros/latex/contrib/qrbill/doc/qrbill.pdf | Bin 71638 -> 0 bytes macros/latex/contrib/qrbill/qrbill-vocab.csv | 14 + macros/latex/contrib/qrbill/qrbill.dtx | 1123 ++++++++++ macros/latex/contrib/qrbill/qrbill.ins | 57 + macros/latex/contrib/qrbill/qrbill.pdf | Bin 0 -> 72627 bytes macros/latex/contrib/qrbill/qrbill_swiss-cross.pdf | Bin 0 -> 1153 bytes .../latex/contrib/qrbill/source/qrbill-vocab.csv | 14 - macros/latex/contrib/qrbill/source/qrbill.dtx | 1083 ---------- macros/latex/contrib/qrbill/source/qrbill.ins | 57 - .../contrib/qrbill/source/qrbill_swiss-cross.pdf | Bin 1153 -> 0 bytes 22 files changed, 1858 insertions(+), 3610 deletions(-) delete mode 100644 macros/latex/contrib/langsci-avm/include/smallcaps-standalone.pdf delete mode 100644 macros/latex/contrib/pdftexcmds/README.md delete mode 100644 macros/latex/contrib/pdftexcmds/pdftexcmds.dtx delete mode 100644 macros/latex/contrib/pdftexcmds/pdftexcmds.pdf delete mode 100644 macros/latex/contrib/qrbill/doc/qrbill.pdf create mode 100644 macros/latex/contrib/qrbill/qrbill-vocab.csv create mode 100644 macros/latex/contrib/qrbill/qrbill.dtx create mode 100644 macros/latex/contrib/qrbill/qrbill.ins create mode 100644 macros/latex/contrib/qrbill/qrbill.pdf create mode 100644 macros/latex/contrib/qrbill/qrbill_swiss-cross.pdf delete mode 100644 macros/latex/contrib/qrbill/source/qrbill-vocab.csv delete mode 100644 macros/latex/contrib/qrbill/source/qrbill.dtx delete mode 100644 macros/latex/contrib/qrbill/source/qrbill.ins delete mode 100644 macros/latex/contrib/qrbill/source/qrbill_swiss-cross.pdf (limited to 'macros/latex/contrib') diff --git a/macros/latex/contrib/langsci-avm/README b/macros/latex/contrib/langsci-avm/README index d08baf1fac..80c60efd2c 100644 --- a/macros/latex/contrib/langsci-avm/README +++ b/macros/latex/contrib/langsci-avm/README @@ -8,16 +8,13 @@ as an update to, and serves the same purpose as, Christopher Manning’s avm package, but shares no code base with that package. langsci-avm was developed at Language Science Press to help in the -production of scientific texts in linguistics, in particular an -upcoming HPSG handbook. +production of scientific texts in linguistics. Copyright (C) 2020 by Felix Kopecky, Language Science Press -This work consists of the file langsci-avm.dtx & - include/smallcaps-standalone.pdf. +This work consists of the file langsci-avm.dtx and the derived files langsci-avm.ins, - langsci-avm.pdf, - langsci-avm.sty. + langsci-avm.pdf. It may be distributed and/or modified under the conditions of the LaTeX Project Public License (LPPL), either version 1.3c of this @@ -27,7 +24,7 @@ of this license is at . This work is ``maintained'' (per LPPL maintenance status) by Felix Kopecky . -The development version of the bundle can be found at +The development version can be found at https://github.com/langsci/langsci-avm diff --git a/macros/latex/contrib/langsci-avm/include/smallcaps-standalone.pdf b/macros/latex/contrib/langsci-avm/include/smallcaps-standalone.pdf deleted file mode 100644 index 4b19ef7c3c..0000000000 Binary files a/macros/latex/contrib/langsci-avm/include/smallcaps-standalone.pdf and /dev/null differ diff --git a/macros/latex/contrib/langsci-avm/langsci-avm.dtx b/macros/latex/contrib/langsci-avm/langsci-avm.dtx index 1d507aa499..1a54c0aa20 100644 --- a/macros/latex/contrib/langsci-avm/langsci-avm.dtx +++ b/macros/latex/contrib/langsci-avm/langsci-avm.dtx @@ -11,15 +11,23 @@ \preamble ------------------------------------------------------------------------------ -langsci-avm: Attribute-value matrices (AVMs) and feature structures in LaTeX3. +langsci-avm is aimed at typesetting beautiful feature structures, +also known as attribute-value matrices (AVMs), for use in linguistics. + +The package provides a minimal and easy to read syntax. +It depends only on the array package and can be placed almost everywhere, +in particular in footnotes or graphs and tree structures. The package is meant +as an update to, and serves the same purpose as, Christopher Manning’s +avm package, but shares no code base with that package. + +langsci-avm was developed at Language Science Press to help in the +production of scientific texts in linguistics. Copyright (C) 2020 by Felix Kopecky, Language Science Press -This work consists of the file langsci-avm.dtx & - include/smallcaps-standalone.pdf. +This work consists of the file langsci-avm.dtx and the derived files langsci-avm.ins, - langsci-avm.pdf, - langsci-avm.sty. + langsci-avm.pdf. It may be distributed and/or modified under the conditions of the LaTeX Project Public License (LPPL), either version 1.3c of this @@ -29,7 +37,7 @@ of this license is at . This work is ``maintained'' (per LPPL maintenance status) by Felix Kopecky . -The development version of the bundle can be found at +The development version can be found at https://github.com/langsci/langsci-avm @@ -75,25 +83,24 @@ Please report any bugs or feature requests to % Please submit bug reports and feature requests to % \protect\url{https://github.com/langsci/langsci-avm/issues}. % }} -% \date{Version 0.1.0-beta -- 11th March 2020} +% \date{Version 0.2 -- 29th June 2020} % \maketitle % \frenchspacing % \begin{documentation} % \section{Introduction} % \pkg{langsci-avm} is a \LaTeX3 package aimed at typesetting beautiful feature structures, also known as \emph{attribute-value matrices}, for use in linguistics. The package provides a minimal and easy to read syntax. It depends only on the \pkg{array} package and can be placed almost everywhere, in particular in footnotes or graphs and tree structures. The package is meant as an update to, and serves the same purpose as, Christopher Manning's \pkg{avm} package, but shares no code base with that package. When you come from \pkg{avm}, please see Section~\ref{sec:switching} for a quick conversion guide. % -% To start using \pkg{langsci-avm}, place |\usepackage{langsci-avm}| in your preamble. +% To start using \pkg{langsci-avm}, place |\usepackage{langsci-avm}| in your preamble.\\\\ +% \emph{This document is structured as follows:} Section~\ref{sec:basiccommands} describes the input syntax for AVMs and their parts. Ways to customise your AVM's layout follow in Section~\ref{sec:options}, and selected usage cases are presented in Section~\ref{sec:applications}. There's also an administrative and \TeX nical appendix at the end of this document, in case you are interested. % % \subsection{Example} % \begin{verbatim} % \avm{ -% [ ctxt & [ max-qud \\ -% sal-utt & \{ [ cat \\ -% cont -% ] -% \} -% ] -% ] +% [ ctxt & [ max-qud \\ +% sal-utt & \{ [ cat \\ +% cont ] \} +% ] +% ] % } % \end{verbatim} % {\centering\avm{ @@ -105,42 +112,20 @@ Please report any bugs or feature requests to % \subsection{Acknowledgements} % Thanks to Phelype Oleinik for help on recursion and expansion with \LaTeX3. Thanks to Ahmet Bilal Özdemir and Stefan Müller for their contributions in planning and testing this package. % -% \section{User interface} -% \subsection{Typing structures and settings}\label{sec:options} +% \section{Structuring AVMs} +% \label{sec:basiccommands} % % \begin{function}{\avm} % \begin{syntax} % \cs{avm} \oarg{options} \marg{structure} % \end{syntax} -% The heart of this package and its root document comand is |\avm|. It currently runs only in text mode, but can be run in math mode if it is escaped with |$\avm$|. In the scope of the command, delimiter characters are processed to open and close (sub-)structures, as described in Section~\ref{sec:commands}. For a description of the \meta{options}, see |\avmsetup|. -% \end{function} +% The heart of this package and its root document comand is |\avm|. In the scope of the command, delimiter characters are processed to open and close (sub-)structures, as described in Section~\ref{sec:commands}. Special elements are described in Section~\ref{sec:specialcommands}. For a description of the layout \meta{options}, see Section~\ref{sec:options}. % -% \begin{function}{\avmsetup} -% \begin{syntax} -% \cs{avmsetup} \marg{options} -% \end{syntax} -% \meta{options} is a comma-separated list of |key = value| settings. The \marg{options} are the same as in \cs{avm}\oarg{options}. When inserted in \cs{avm}\oarg{options}, they apply locally, and globally if given to \cs{avmsetup}. Local settings always override global ones, and you can have any feasible number of \cs{avmsetup}s in your document. -% -% \begin{description}[style=nextline] -% \item[|stretch =| \meta{factor} \hfill (initially |1.15|)] Define \cs{arraystretch}, i.e. the factor of line spacing. Increasing this may be useful if there is too little vertical space between delimiters in subsequent rows. -% -% \item[|columnsep =| \meta{length} \hfill (initially |0.5ex|)] Define the \cs{arraycolsep}, i.e. horizontal space before and after any column. The first and second column will have |1\columnsep| to the left and right, respectively. Between the two the distance is |2\columnsep|. Using relative units (like |ex| or |em|) may be a good idea so that |columnsep| scales well with changes in font size. -% -% \item[|delimfactor =| \meta{factor} \hfill (initially |1000|)] Sets \cs{delimiterfactor}. The calculation for the minimum height of a delimiter is $y \cdot f /1000$, where $y$ is the height of the content and $f$ the value of \cmd{delimfactor}. The default |1000| ensure that the delimiters' height is at least that of the structure. -% -% \item[|delimfall =| \meta{length} \hfill (initially |0pt|)] Controls \cs{delimitershortfall}, i.e. the maximum height that the delimiters can be shorter than the enclosed structure. The default |0pt| ensure that the delimiters are not shorter than the contents. -% -% \item[|attributes =| \meta{font settings} \hfill (initially |\textbackslash scshape|)] The font for attributes, i.e. the first column of each structure. -% -% \item[|values =| \meta{font settings} \hfill (initially |\textbackslash itshape|)] The font for values, i.e. the second column of each structure. -% -% \item[|types =| \meta{font settings} \hfill (initially |\textbackslash itshape|)] The font used in \cs{type} and \cs{type*}. -% \item[|tags =| \meta{format settings} \hfill (initially |\textbackslash footnotesize|)] The font (size) used in \cs{tag} and the shortcuts \cs{1}...\cs{9}. -% \item[|switch =| \meta{token} \hfill (initially |!|)] Define the escape token. Change this if you need to use ``!'' as a text glyph. -% \end{description} +% A \meta{structure} is basically the content of a stylised \cmd{tabular}: The columns are separated by \cmd{&} and a new line is entered with \cmd{\\}. % \end{function} -% -% \subsection{Commands available in the scope of \texttt{\textbackslash avm}}\label{sec:commands} +% +% \subsection{Entering (sub-)structures within \texttt{\textbackslash avm}} +% \label{sec:commands} % % \begin{function}{[...],<...>,(...),\{...\}} % \begin{syntax} @@ -149,11 +134,9 @@ Please report any bugs or feature requests to % \cmd{(} \meta{structure} \cmd{)} % \cmd{\{} \meta{structure} \cmd{\}} % \end{syntax} -% Within the scope of \cs{avm}, these delimiters create (sub-)structures that are enclosed by the respective delimiter. Due to the special meaning that curly braces have in \LaTeX, they are the only ones that need to be run with an escape token (|\|). It is currently possible to mix delimiters, e.g. with |<|\meta{structure}|)|, but this may change in future versions. -% -% A \meta{structure} is basically the content of a stylised \cmd{array}: The columns are separated by \cmd{&} and a new line is entered with \cmd{\\}. +% Within the scope of \cs{avm}, these delimiters create (sub-)structures that are enclosed by the respective delimiter. Due to the special meaning that curly braces have in \LaTeX, these are the only ones that need to be run with an escape token (|\|). It is currently possible to mix delimiters, e.g. with |<|\meta{structure}|)|, but this may change in future versions. % -% \pkg{langsci-avm} expects your (sub-)structures to have \emph{at most two columns}, so that for every line in each (sub-)structure, there should be no more than one \cmd{&}. It is recommended to have exactly one \cmd{&} in your \meta{structure}. In the current beta version, display issues may appear in some structures if none is given.\bigskip\\ +% \pkg{langsci-avm} expects your (sub-)structures to have \emph{at most two columns}, so that for every line in each (sub-)structure, there should be no more than one \cmd{&}. It is recommended to have at least some lines with a \cmd{&} in your \meta{structure}. Currently, display issues may appear in some structures if none are given.\bigskip\\ % \noindent\begin{minipage}[c]{.5\linewidth} % \begin{verbatim} % \avm{ @@ -184,15 +167,16 @@ Please report any bugs or feature requests to % \begin{syntax} % \cmd{!} \meta{text} \cmd{!} % \end{syntax} -% Escapes the |avm| mode so that all delimiters can be used as usual characters. If you need |!| as a regular character, see \cs{avmsetup} to change the |switch| option. +% Escapes the |avm| mode so that all delimiters can be used as usual characters. If you need |!| as a regular character, see Section~\ref{sec:options} for how to change the |switch|. % \end{function} % -% \begin{function}{\tag,\1,...,\9} +% \subsection{Commands for tags, types, unusal lines, and relations}\label{sec:specialcommands} +% \begin{function}[updated=2020-04-29]{\tag,\0,\1,...,\9} % \begin{syntax} % \cs{tag} \marg{identifier} -% \cmd{\1, \2, \3, \4, \5, \6, \7, \8, \9} +% \cmd{\0, \1, \2, \3, \4, \5, \6, \7, \8, \9} % \end{syntax} -% \cs{tag} puts its \marg{identifier} in a box, more precisely an \cs{fbox}. Within the box, the |tags| font is applied. \cs{1}, ..., \cs{9} are shortcuts to \cs{tag} and place the respective number in the box. For example, \cs{4} is equivalent to |\tag{4}|. The shortcuts do not take any arguments. +% \cs{tag} puts its \marg{identifier} in a box, more precisely an \cs{fbox}. Within the box, the |tags| font is applied. \cs{0}, \cs{1}, ..., \cs{9} are shortcuts to \cs{tag} and place the respective number in the box. For example, \cs{4} is equivalent to |\tag{4}|. The shortcuts do not take any arguments. % % If you want to use this command outside an AVM, you can obtain, for example, \avm{\4}, by using |\avm{\4}|, or the equivalent |{\fboxsep.25ex\fbox{\footnotesize 4}}|.\bigskip\\ % \noindent\begin{minipage}{.6\linewidth} @@ -208,11 +192,11 @@ Please report any bugs or feature requests to % \end{minipage} % \end{function} % -% \begin{function}{\type,\type*} +% \begin{function}[updated=2020-03-30]{\type,\type*} % \begin{syntax} % \cs{type}\meta{*} \marg{type} % \end{syntax} -% Will typeset the \meta{type} in the |types| font (roman italics by default). The starred variant \cs{type*} will span the complete (sub-)structure and \emph{can only be placed in the first column} of this structure. After the starred \cs{type*}, a |\\| is recommended, but can be omitted in ``normal'' cases.\bigskip\\ +% Will output the \meta{type} in the |types| font (roman italics by default). The starred variant \cs{type*} will span the complete (sub-)structure and \emph{can only be placed in the first column} of this structure. After the starred \cs{type*}, a |\\| is recommended, but can usually be omitted.\bigskip\\ % \noindent\begin{minipage}{.6\linewidth} % \begin{verbatim} % \avm{[ \type*{A type spanning a line} @@ -238,23 +222,186 @@ Please report any bugs or feature requests to % \avm{[ attr1 & val1\\ % \punk{a quite long attr2}{val2} ]} % attr3 & val3\\ -% attr4 & val4\\ +% attr4 & val4 +% ]} % \end{verbatim} % \end{minipage}\begin{minipage}{.4\linewidth} % \avm{[ % attr1 & val1\\ % \punk{a quite long attr2}{val2} % attr3 & val3\\ -% attr4 & val4\\ +% attr4 & val4 % ]} % \end{minipage} % \end{function} % -% \begin{function}{+} -% In the scope of \cs{avm}, \cmd{+} comes out as ``$\oplus$''. To obtain ``+'', please use the escape mode, as in |!+!|. +% \begin{function}[updated=2020-03-16]{\+} +% In the scope of \cs{avm}, \cs{+} comes out as ``$\oplus$''. ``+'' can be obtained normally. \textit{In the earlier Version 0.1.0-beta, \cmd{+} produced ``$\oplus$''.} +% \end{function} +% +% \begin{function}[added=2020-03-17]{\-} +% In the scope of \cs{avm}, \cs{-} comes out as ``$\ominus$''. To use the ``optional hyphenation'' meaning of \cs{-}, please write |!\-!|. +% \end{function} +% +% \begin{function}[added=2020-03-17]{\shuffle} +% In the scope of \cs{avm}, \cs{shuffle} is a shortcut for ``$\bigcirc$'' to mark the shuffle relation. +% \end{function} +% +% \section{AVM layout}\label{sec:options} +% +% \subsection{Defining styles} +% +% You can customise many aspects of how an AVM is printed, including the fonts or spacing between delimiters and content. You can apply them locally via the \oarg{options} of \cs{avm} or by using \cs{avmsetup}. And you can also define your own styles and use them via the \oarg{style = } option in \cs{avm}. +% +% \begin{function}{\avmsetup} +% \begin{syntax} +% \cs{avmsetup} \marg{options} +% \end{syntax} +% \marg{options} is a comma-separated list of |key = value| settings. See the list below for all user-configurable options. The \marg{options} are the same as in \cs{avm}\oarg{options}. When inserted in \cs{avm}\oarg{options}, they apply locally, and globally if given to \cs{avmsetup}. Local settings always override global ones, and you can have any feasible number of \cs{avmsetup}s in your document. +% +% \end{function} +% +% \begin{function}[added=2020-05-11]{\avmdefinestyle} +% \begin{syntax} +% \cs{avmdefinestyle} \marg{name} \marg{settings} +% \end{syntax} +% Instead of applying settings globally or per AVM, you can also define styles and assign them to AVMs, as in |\avm[style=|\meta{name}|]{...}|. The \meta{settings} are a comma-separated list of |key = value| settings, and should be a subset of the settings from \cs{avmsetup}. For example, the following |plain| style highlights neither attributes, values, nor types: +% +% \begin{verbatim} +% \avmdefinestyle{plain}{attributes=\normalfont, +% values=\normalfont, +% types=\normalfont} +% \end{verbatim} +% The style is applied with |\avm[style=plain]{...}|. +% \end{function} +% +% \bigskip +% +% \noindent Now to the list of settings you can actually apply: +% +% \begin{description}[style=nextline] +% \item[|style =| \meta{name} \hfill (initially empty)] In addition to any style that you possibly define yourself, a style |narrow| is pre-defined in the package (see Section~\ref{sec:spacing}). +% +% \item[|stretch =| \meta{factor} \hfill (initially |0.9|)] Define \cs{arraystretch}, i.e. a factor in the determination of line height. +% +% \item[|columnsep =| \meta{length} \hfill (initially |0.5ex|)] Define the \cs{tabcolsep}, i.e. horizontal space between columns. The first and second column will have |0\columnsep| to the left and right, respectively. Between the two the distance is |2\columnsep|. Using relative units (like |ex| or |em|) may be a good idea so that |columnsep| scales well with changes in font size. +% +% \item[|delimfactor =| \meta{factor} \hfill (initially |1000|)] Sets \cs{delimiterfactor}. The calculation for the minimum height of a delimiter is $y \cdot f /1000$, where $y$ is the height of the content and $f$ the value of \cmd{delimfactor}. The default |1000| ensure that the delimiters' height is at least that of the structure. +% +% \item[|delimfall =| \meta{length} \hfill (initially |0pt|)] Controls \cs{delimitershortfall}, i.e. the maximum height that the delimiters can be shorter than the enclosed structure. The default |0pt| ensure that the delimiters are not shorter than the contents. +% +% \item[|extraskip| = \meta{length} \hfill (initially \cs{smallskipamount})] If a substructure is immediately followed by a \cmd{\\}, an extra amount of vertical skip is added so that the content of the next line, possibly another delimiter, does not clash with the delimiter in that line. This automatic skip insertion can be circumvented with placing a \cs{relax} before the linebreak, i.e. |\relax\\|. +% +% \item[|attributes =| \meta{font settings} \hfill (initially |\textbackslash scshape|)] The font for attributes, i.e. the first column of each structure. +% +% \item[|values =| \meta{font settings} \hfill (initially |\textbackslash itshape|)] The font for values, i.e. the second column of each structure. +% +% \item[|apptovalues=| \meta{code} \hfill (initially \cs{/})] The \meta{code} is applied after the second column (``append to''). This is useful if |values| is set to |\itshape|, since \cs{itshape} does not automatically insert italic correction. +% +% \item[|types =| \meta{font settings} \hfill (initially |\textbackslash itshape|)] The font used in \cs{type} and \cs{type*}. +% \item[|tags =| \meta{format settings} \hfill (initially |\textbackslash footnotesize|)] The font (size) used in \cs{tag} and the shortcuts \cs{1}...\cs{9}. +% \item[|switch =| \meta{token} \hfill (initially |!|)] Define the escape token. Change this if you need to use ``!'' as a text glyph. +% \item[|customise = | \meta{settings} \hfill (initially empty)] An interface to input custom commands to be run at the beginning of every \cs{avm}. +% \end{description} +% +% \subsection{Defining input patterns} +% +% \begin{function}[added=2020-06-29]{\avmdefinecommand} +% \begin{syntax} +% \cs{avmdefinecommand} \marg{name} \oarg{label} \marg{settings} +% \end{syntax} +% Sub-structures often come in patterns. For example, AVMs often have a \textsc{phon} attribute, which is mapped to a list, the entries of which are in italics. \cs{avmdefinecommand} can account for this and other input patterns. For example, +% +% \begin{verbatim} +% \avmdefinecommand{custom}{...} +% \end{verbatim} +% will create a command \cs{custom} available only in the scope of \cs{avm} (this means that you can have a different meaning in the rest of your document). The \meta{settings} will then be applied to the scope in which \cs{custom} is called. If an optional \meta{label} is given, the label will be printed, in the current font, before the \meta{settings} are applied. +% +% \cs{custom} generated in this way automatically advances to the value column after the \meta{label} is printed. This means that commands generated with \cs{avmdefinecommand} should be called in the attribute column of an existing structure. This behaviour can be circumvented with the starred variant \cs{name*}, which is automatically generated by \cs{avmdefinecommand} as well. However, it seems advisable to use the starred variants sparingly. +% +% Here's an example for the aforementioned \text{phon} pattern: +% +% \begin{verbatim} +% \avmdefinecommand{phon}[phon] +% { +% attributes = \itshape, +% delimfactor = 900, +% delimfall = 10pt +% } +% \end{verbatim} +% +% This creates a command \cs{phon} (and the variant \cs{phon*}) within the scope of any \cs{avm}. It will print the label \texttt{phon} in the current font and then apply three settings locally: italics for the attribute (first) column, and two settings for very narrow delimiter fitting. +% +% This results in: (The font of this documentation has little support for IPA.)\avmdefinecommand{phon}[phon] {attributes = \itshape,delimfactor = 900, delimfall = 10pt}\\\\ +% \noindent\begin{minipage}[c]{.5\linewidth} +% \begin{verbatim} +% \avm{ +% [\type*{word} +% \phon \\ +% synsem & [ ... ] +% ] +% } +% \end{verbatim} +% \end{minipage}\begin{minipage}[c]{.5\linewidth} +% \avm{ +% [\type*{word} +% \phon \\ +% synsem & [ ... ] +% ] +% } +% \end{minipage} +% +% Note that any other structure type would have worked instead of \avm{<>}. But \avm{<>} and any other markers for sub-structures are left unchanged by \cs{phon} and other custom commands. This is why the \emph{attribute} font is changed by \cs{phon}, although \emph{lin'gwistiks} is technically a value. Remember that \cmd{<} creates a new list sub-substructure, and the first content is printed in its attribute font. % \end{function} % -% \section{Applications} +% \section{Applications}\label{sec:applications} +% +% \subsection{Spacing and size of delimiters}\label{sec:spacing} +% \pkg{langsci-avm} automatically detects if the end of a sub-structure is followed by a line break. This is useful to find cases in which two sub-structures are printed immediately below each other, and to add extra spacing (the |extraskip| from the options). This automatic detection can be suppressed with \cs{relax}. See below for the effect of that detection:\bigskip\\ +% \noindent\begin{minipage}[c]{.5\textwidth}\centering +% \begin{verbatim} +% \avm{[ [attr1 & val1 \\ +% attr2 & val2 ] \\ +% [attr1 & val1 \\ +% attr2 & val2 ] +% ]} +% \end{verbatim} +% +% \avm{[ [attr1 & val1 \\ +% attr2 & val2 ] \\ +% [attr1 & val1 \\ +% attr2 & val2 ] +% ]} +% \end{minipage}\begin{minipage}[c]{.5\textwidth}\centering +% \begin{verbatim} +% \avm{[ [attr1 & val1 \\ +% attr2 & val2 ] \relax\\ +% [attr1 & val1 \\ +% attr2 & val2 ] +% ]} +% \end{verbatim} +% +% \avm{[ [attr1 & val1 \\ +% attr2 & val2 ] \relax\\ +% [attr1 & val1 \\ +% attr2 & val2 ] +% ]} +% \end{minipage}\\\\ +% +% If many delimiters are nested, this occasionally results in larger delimiter sizes. There is a pre-defined |narrow| style that resets |delimfall| (to |5pt|) and |delimfactor| (to |997|), which are the values recommended in the \textit{\TeX book}. This results in a more compact appearance:\bigskip\\ +% \noindent\begin{minipage}[t]{.5\textwidth}\centering +% \begin{verbatim} +% \avm{[ attr \{<\1>\}]} +% \end{verbatim} +% +% \avm{[ attr <\{\1\}>]} +% \end{minipage}\begin{minipage}[t]{.5\textwidth}\centering +% \begin{verbatim} +% \avm[style=narrow]{[ attr \{<\1>\}]} +% \end{verbatim} +% +% \avm[style=narrow]{[ attr <\{\1\}>]} +% \end{minipage} % % \subsection{Disjunctions and other relations} % Sometimes AMVs are placed beside other content to express disjunctions or other relations. In \pkg{langsci-avm} this is done naturally:\bigskip\\ @@ -289,7 +436,7 @@ Please report any bugs or feature requests to % attribute3 & value3 ] } % \end{minipage} % -% \subsection{Use as a vector} +% \pagebreak\subsection{Use as a vector} % It's possible to use \pkg{langsci-avm} for feature vectors rather than matrices, as may be useful in generative grammar.\medskip\\ % \noindent\begin{minipage}[c]{.8\textwidth} % \begin{verbatim} @@ -299,7 +446,7 @@ Please report any bugs or feature requests to % \avm[attributes=\normalfont]{[v1\\v2\\v3]}$\varphi$ % \end{minipage} % -% \subsection{Combinations with \pkg{gb4e} and \pkg{expex}} +% \subsection{Combinations with \pkg{gb4e}, \pkg{expex}, and \pkg{linguex}} % % This package works fine with \pkg{gb4e} and its fork \pkg{langsci-gb4e}. To align the example number at the top of your structure, please use \cs{attop} from \pkg{gb4e}:\bigskip\\ % \noindent\begin{minipage}[c]{.5\textwidth} @@ -322,7 +469,7 @@ Please report any bugs or feature requests to % \end{exe} % \end{minipage}\bigskip\\ % -% \noindent The same can be achieved with \pkg{expex} using an \emph{experimental} syntax: +% \noindent The same can be achieved with \pkg{expex} using \cs{envup} from \pkg{lingmacros} (see below) or using this \emph{experimental} syntax: % % \begin{verbatim} % \ex \vtop{\strut\vskip-\baselineskip{ @@ -333,7 +480,14 @@ Please report any bugs or feature requests to % \xe % \end{verbatim} % -% \noindent A future version of \pkg{langsci-avm} will include a more user-friendly approach. There is currently no known way of adjusting the alignment with \pkg{linguex}. +% \noindent Examples typed with \pkg{linguex} can be combined with \cs{evnup} from \pkg{lingmacros} to align AVMs (many thanks to Jamie Findlay for pointing this out): +% +% \begin{verbatim} +% \ex. \envup{\avm{[ attr1 & val1\\ +% attr2 & val2\\ +% attr3 & val3]} +% } +% \end{verbatim} % % \subsection{Combinations with \pkg{forest}} % This package also works fine with \pkg{forest}. As per the \pkg{forest} documentation, it is recommended to protect any \cs{avm}-statements with |{}| in nodes:\bigskip\\ @@ -353,29 +507,36 @@ Please report any bugs or feature requests to % \end{forest} % \end{minipage} % +% It may happen that extensive AVMs protrude into the space reserved for other \pkg{forest} nodes or edges. In this case, the \pkg{forest} setting \cmd{for children = \{anchor=north\}} may be useful: (If you like, try this tree without that setting.)\bigskip\\ +% \noindent\begin{minipage}[c]{.6\textwidth} +% \begin{verbatim} +% \begin{forest} +% [A, for children = {anchor=north} +% [B] [{\avm{[attr1 & val1\\ +% attr2 & a long value val2\\ +% attr3 & val3\\ +% attr4 & val4\\ +% attr5 & val5]}} ] +% ] +% \end{forest} +% \end{verbatim} +% \end{minipage}\begin{minipage}[c]{.4\textwidth} +% \begin{forest} +% [A, for children = {anchor=north} [B] [{\avm{[attr1 & val1\\ +% attr2 & a long value val2\\ +% attr3 & val3\\ +% attr4 & val4\\ +% attr5 & val5]}} ] ] +% \end{forest} +% \end{minipage} +% % \subsection{Switching from Christopher Manning's \pkg{avm} package}\label{sec:switching} -% Switching from \pkg{avm} to \pkg{langsci-avm} will require some, though hopefully minimal, changes to the code. In particular, the ``active mode'' has disappeared, there is now a single way of sorting (see \cs{type}), and tags are now produced without |@| (\cs{4} instead of \cmd{@4}, etc.). Please refer to Section~\ref{sec:caveats} for features known from \pkg{avm} that are not yet available in \pkg{langsci-avm}. +% Switching from \pkg{avm} to \pkg{langsci-avm} will require some, though hopefully minimal, changes to the code. In particular, \pkg{langsci-avm} doesn't distinguish between ``active'' and ``passive'' modes, there is now a single way of sorting (see \cs{type}, which replaces \cs{asort} and \cs{osort}), and tags are now produced without |@| (\cs{4} instead of \cmd{@4}, etc.). % -% \subsection{Tweaking the \texttt{attribute} font with with \pkg{fontspec}} -% The attributes in your structure are usually type set in \textsc{small caps}. That means that your input should usually be lowercase, unless capitals along small capitals in that attribute's description make sense. Some fonts also provide ``old style'' figures (also known as ``text'' or ``medieval'' figures). Those can be enabled with \pkg{fontspec}'s |Numbers=OldStyle| feature. +% Paths can be printed with a normal \cmd{|}, and $\oplus$ and other relation symbols can be input more easily (see Section~\ref{sec:commands}), though the package will also work with \verb+$|$+ and \verb+$\oplus$+. % +% \pkg{langsci-avm} is not yet able to draw lines in elements of AVMs. This feature is planned for Version 0.3. % -% \textit{The following example is output in Libertinus, since the font for this documentation does not support the necessary font features.}\bigskip\\ -% \begin{minipage}[c]{.7\linewidth} -% \begin{verbatim} -% % Preamble -% \usepackage{fontspec} -% \usepackage{libertinus} -% % Document -% \avm[attributes={\addfontfeatures{ -% Numbers=OldStyle, -% Letters=SmallCaps} -% } -% ] { [attr1 & val2] } -% \end{verbatim} -% \end{minipage}\begin{minipage}[c]{.3\linewidth} -% \includegraphics{include/smallcaps-standalone.pdf} -% \end{minipage} % % \subsection{Spanning both columns} % You can use the \pkg{multicol} package to span both columns in a (sub-)structure. Please remember that every structure has two columns, so the only sensible usage is @@ -389,11 +550,10 @@ Please report any bugs or feature requests to % \section{Caveats and planned features}\label{sec:caveats} % \begin{enumerate} % \item There are currently no error messages. If you do not receive the intended output, please make sure that your code fits the syntax described in this documentation. If your code is fine but the output is not, please submit a bug report or feature request at \url{https://github.com/langsci/langsci-avm/issues}. -% \item The package currently assumes that it is called in text mode. % \item[] These features are planned for the future: % \item A check whether the delimiters are balanced, i.e. whether all (sub-)structures are closed by a \verb+]+, \verb+}+, etc. % \item Introduce the ability to draw (curved) lines between structures and elements. -% \item Improve the appearance of angle brackets so that they vertically span the complete structure they enclose, maybe using \pkg{scalerel}. +% \item Improve the appearance of (very) large angle brackets so that they vertically span the complete structure they enclose, maybe using \pkg{scalerel}. % \end{enumerate} % % \section{Feedback and bug reports} @@ -415,19 +575,21 @@ Please report any bugs or feature requests to % % \begin{macrocode} \ProvidesExplPackage {langsci-avm} - {2020-03-11} {0.1.0-beta} + {2020-06-29} {0.2} {AVMs and feature structures in LaTeX3} % \end{macrocode} % \begin{macro}{\avm} % This document command initialises an AVM. The first, optional argumet is a key-value list of settings (see \cs{keys_define:nn} below) and the second is the AVM itself, given in the syntax described in this documentation. % -% \cs{avm} enters a group so that keys- and macro-assignemts remain local. It then initialises the commands and shortcuts made locally available, sets its mode to |true| and assigns the keys as given in the optional argument (if any). After the wrapper \cs{avm_wrap:n} is called, the group is closed. +% \cs{avm} enters a group so that keys- and macro-assignemts remain local. It then initialises the commands and shortcuts and any user customisation, sets its mode to |true| and assigns the keys as given in the optional argument (if any). After the wrapper \cs{avm_wrap:n} is called, the group is closed. % % \begin{macrocode} \NewDocumentCommand{\avm}{ O{} +m } { \c_group_begin_token \__avm_initialise_document_commands: + \__avm_initialise_custom_commands: + \tl_use:N \l__avm_defined_commands_tl \bool_set_true:N \l__avm_mode_bool \keys_set:nn { avm } { #1 } \__avm_wrap:n { #2 } @@ -435,9 +597,9 @@ Please report any bugs or feature requests to } % \end{macrocode} % \end{macro} -% +% % \begin{macro}{\avmsetup} -% Forward the key-value settings given as the optional argument to \cs{avm} to the keys defined in |\keys_define:nn { avm }|. For the meaning of these keys and initial values, see Section~\ref{sec:options}. +% Forward the key-value settings given as the optional argument to \cs{avm} to the keys defined in |\keys_define:nn { avm }|. For the meaning of these keys and initial values, see Section~\ref{sec:basiccommands}. % % \begin{macrocode} \NewDocumentCommand{\avmsetup}{ m } @@ -446,8 +608,8 @@ Please report any bugs or feature requests to \keys_define:nn { avm } { stretch .code:n = {\def\arraystretch{#1}}, - stretch .initial:n = {1.15}, - columnsep .dim_set:N = \arraycolsep, + stretch .initial:n = {0.9}, + columnsep .dim_set:N = \tabcolsep, columnsep .initial:n = {.5ex}, delimfactor .int_set:N = \delimiterfactor, delimfactor .initial:n = {1000}, @@ -460,19 +622,58 @@ Please report any bugs or feature requests to values .code:n = {\cs_set:Nn \__avm_font_value: {#1}}, values .initial:n = {\itshape}, tags .code:n = {\cs_set:Nn \__avm_font_tag: {#1}}, - tags .initial:n = {\footnotesize}, + tags .initial:n = {\footnotesize}, + apptovalues .code:n = {\cs_set:Nn \__avm_deinit_second_column: {#1}}, + apptovalues .initial:n = {\/}, + singleton .code:n = {\cs_set:Nn \__avm_font_singleton: {#1}}, + singleton .initial:n = {\normalfont}, switch .code:n = {\tl_set:Nn \__avm_mode_switch_character {#1}}, - switch .initial:n = { ! } + switch .initial:n = { ! }, + extraskip .dim_set:N = \l__avm_extra_skip_dim, + extraskip .initial:n = {\smallskipamount}, + customise .code:n = {\cs_set:Nn \__avm_initialise_custom_commands: {#1}}, + customise .initial:n = { }, + style .choice:, + style / narrow .code:n = {\delimiterfactor=997\delimitershortfall5pt}, + } +% \end{macrocode} +% \end{macro} + +% \begin{macro}{\avmdefinestyle} +% Define a style to be used together with the |style| key. +% \begin{macrocode} +\NewDocumentCommand{\avmdefinestyle}{ m m } + { + \keys_define:nn { avm } + { + style / #1 .code:n = { \keys_set:nn { avm } { #2 } } + } + } +% \end{macrocode} +% \end{macro} + +% \begin{macro}{\avmdefinecommand} +% A factory function that creates commands for the layout of sub-structures and saves them to \cs{l__avm_defined_commands_tl}. The first argument describes the command's name, the second any (optional) label. The manufactured definitions are activated in the AVM group so that they remain local. +% \begin{macrocode} +\NewDocumentCommand{\avmdefinecommand}{ m O{} m } + { + \tl_put_right:Nn \l__avm_defined_commands_tl + { + \exp_args:Nc \DeclareDocumentCommand { #1 } { s } + { + #2 \IfBooleanF { ##1 } { & } \avmsetup{ #3 } + } + } } % \end{macrocode} % \end{macro} -% \begin{variable}{\l__avm_math_bool, \l__avm_mode_bool, \l__avm_parens_tracker} -% We need an auxiliary variable to store the current mode. The math mode boolean is already created, but it will have an effect only in a later version which will include a check whether \cs{avm} is called in math mode. \cs{l__avm_parens_tracker} is a stack for a future check whether the delimiters given to \cs{avm} are balanced. +% \begin{variable}{\l__avm_mode_bool, \l__avm_parens_tracker, \l__avm_defined_commands_tl} +% We need an auxiliary variable to store the current mode. \cs{l__avm_parens_tracker} is a stack for a future check whether the delimiters given to \cs{avm} are balanced. \cs{l__avm_defined_commands_tl} is a token list that stores any commands provided by the user via \cs{avmdefinecommand} % \begin{macrocode} -\bool_new:N \l__avm_math_bool \bool_new:N \l__avm_mode_bool \seq_new:N \l__avm_parens_tracker +\tl_new:N \l__avm_defined_commands_tl % \end{macrocode} % \end{variable} @@ -483,84 +684,144 @@ Please report any bugs or feature requests to % \end{macrocode} % \end{macro} +% \begin{variable}{\l__avm_in_first_column} +% A boolean to check whether we are in the first column (value |true|) or in the second (value |false|). +% \begin{macrocode} +\bool_new:N \l__avm_in_first_column +% \end{macrocode} +% \end{variable} + +% \begin{macro}[int]{\__avm_init_first_column:, \__avm_init_second_column:} +% These macros apply the settings for the columns in a (sub-)structure. They take care of font selection and report the currently active column back to the system. Knowing which column is active is important when closing the (sub-)structure. If the structure is closed without a second column present, we need to skip back |2\tabcolsep|. +% \begin{macrocode} +\cs_new:Nn \__avm_init_first_column: + { + \bool_set_true:N \l__avm_in_first_column + \normalfont\__avm_font_attribute: + } + +\cs_new:Nn \__avm_init_second_column: + { + \bool_set_false:N \l__avm_in_first_column + \normalfont\__avm_font_value: + } +% \end{macrocode} +% \end{macro} + +% \begin{macro}[int]{\__avm_kern_unused_columns:} +% A helper macro to fill the horizontal space if a row is ended prematurely, i.e. if no \cmd{&} is present. +% \begin{macrocode} +\cs_new:Nn \__avm_kern_unused_columns: + { + \bool_if:NTF \l__avm_in_first_column + { \span\hspace*{-2\tabcolsep} } + { } + } +% \end{macrocode} +% \end{macro} + +% \begin{macro}[int]{\__avm_extra_skip:} +% This function is used together with the delimiter replacements. It checks whether the delimiter is followed by a line break, in which case an extra skip is automatically inserted +% \begin{macrocode} +\cs_new:Nn \__avm_extra_skip: + { + \peek_meaning_ignore_spaces:NTF \\ {\vspace*{\l__avm_extra_skip_dim}} {} + } +% \end{macrocode} +% \end{macro} % \begin{macro}[int]{\__avm_module_begin:,\__avm_module_end:,etc.} % The replacement instructions for \cs{__avm_parse:n} % \begin{macrocode} \cs_new:Nn \__avm_module_begin: { - \begin{array}{ - >{\c_math_toggle_token\normalfont\__avm_font_attribute:}l - <\c_math_toggle_token - >{\c_math_toggle_token\normalfont\__avm_font_value:}l - <\c_math_toggle_token} + \begin{tabular}{@{} + >{\__avm_init_first_column:}l + >{\__avm_init_second_column:}l + <{\__avm_deinit_second_column:} + @{}} } \cs_new:Nn \__avm_module_end: - { \end{array} } + { + \__avm_kern_unused_columns: + \end{tabular} + } \cs_new:Nn \__avm_replace_lbrace: { \__avm_parse_output:nw - { \c_math_toggle_token\left\lbrace\__avm_module_begin: } + { \c_math_toggle_token\left\lbrace\__avm_module_begin: } } \cs_new:Nn \__avm_replace_rbrace: { \__avm_parse_output:nw - { \__avm_module_end:\right\rbrace\c_math_toggle_token } + { \__avm_module_end:\right\rbrace\c_math_toggle_token\__avm_extra_skip: } } \cs_new:Nn \__avm_replace_lbrack: { \__avm_parse_output:nw - { \c_math_toggle_token\left\lbrack\__avm_module_begin: } + { \c_math_toggle_token\left\lbrack\__avm_module_begin: } } \cs_new:Nn \__avm_replace_rbrack: { \__avm_parse_output:nw - { \__avm_module_end:\right\rbrack\c_math_toggle_token } + { \__avm_module_end:\right\rbrack\c_math_toggle_token\__avm_extra_skip: } } -\cs_new:Nn \__avm_replace_lparen: - { +\cs_new:Nn \__avm_replace_lparen: + { \__avm_parse_output:nw - { \c_math_toggle_token\left(\__avm_module_begin: } + { \c_math_toggle_token\left(\__avm_module_begin: } } \cs_new:Nn \__avm_replace_rparen: { \__avm_parse_output:nw - { \__avm_module_end:\right)\c_math_toggle_token } + { \__avm_module_end:\right)\c_math_toggle_token\__avm_extra_skip: } } \cs_new:Nn \__avm_replace_langle: { \__avm_parse_output:nw - { \c_math_toggle_token\left<\__avm_module_begin: } + { \c_math_toggle_token\left<\__avm_module_begin: } } \cs_new:Nn \__avm_replace_rangle: { \__avm_parse_output:nw - { \__avm_module_end:\right>\c_math_toggle_token } + { \__avm_module_end:\right>\c_math_toggle_token\__avm_extra_skip: } } \cs_new:Nn \__avm_replace_plus: { - \__avm_parse_output:nw { \ensuremath { \oplus } } + \__avm_parse_output:nw { \ensuremath { \oplus \! } } + } +\cs_new:Nn \__avm_replace_minus: + { + \__avm_parse_output:nw { \ensuremath { \ominus \! } } + } +\cs_new:Nn \__avm_replace_circle: + { + \__avm_parse_output:nw { \ensuremath { \bigcirc \, } } } % \end{macrocode} % \end{macro} -% \begin{macro}{\tag,\type,\punk} +% \begin{macro}[updated=2020-03-30]{\tag,\type,\punk} % \begin{macrocode} \cs_new:Npn \__avm_controls_tag:n #1 { \fboxsep.25ex\fbox{\normalfont\__avm_font_tag: #1} } \cs_new:Npn \__avm_controls_type:n #1 - {\normalfont\__avm_font_type: #1} + { \c_group_begin_token\normalfont\__avm_font_type: #1\c_group_end_token } \cs_new_protected:Npn \__avm_controls_type_starred:n #1 { - \normalfont\__avm_font_type: #1\span + \bool_set_false:N \l__avm_in_first_column + \normalfont\__avm_font_type: #1 + \__avm_deinit_second_column:\span\hspace*{-2\tabcolsep} \peek_meaning_ignore_spaces:NTF \\ {} {\\} } \cs_new_protected:Npn \__avm_controls_punk:nn #1 #2 { - \normalfont\c_group_begin_token\__avm_font_attribute:#1% - \c_group_end_token\hspace{2\arraycolsep}% - \c_group_begin_token\__avm_font_type: #2\c_group_end_token% - \span\peek_meaning_ignore_spaces:NTF \\ {} {\\} + \bool_set_false:N \l__avm_in_first_column + \normalfont\c_group_begin_token\__avm_font_attribute:#1% + \c_group_end_token\hspace{2\tabcolsep}% + \c_group_begin_token\__avm_font_type: #2\c_group_end_token% + \__avm_deinit_second_column:\span\hspace*{-2\tabcolsep} + \peek_meaning_ignore_spaces:NTF \\ {} {\\} } \cs_new:Nn \__avm_initialise_document_commands: @@ -568,6 +829,9 @@ Please report any bugs or feature requests to \cs_if_exist:NTF \tag { \RenewDocumentCommand{\tag}{m}{ \__avm_controls_tag:n {##1} } } { \NewDocumentCommand{\tag}{m}{ \__avm_controls_tag:n {##1} } } + \cs_if_exist:NTF \0 + { \RenewDocumentCommand{\0}{}{ \__avm_controls_tag:n {0} } } + { \NewDocumentCommand{\0}{}{ \__avm_controls_tag:n {0} } } \cs_if_exist:NTF \1 { \RenewDocumentCommand{\1}{}{ \__avm_controls_tag:n {1} } } { \NewDocumentCommand{\1}{}{ \__avm_controls_tag:n {1} } } @@ -637,7 +901,7 @@ Please report any bugs or feature requests to % \end{macro} % \begin{macro}{\__avm_parse:n} -% Finnaly, the parser. It is build on \cs{@@_act:NNNnn} from \cmd{l3tl} (see the sub-section \emph{Token by token changes}). Many thanks to Phelype Oleinik for help on this, and in particular on help with expansion. +% Finnaly, the parser. It is build on \cs{@@@@_act:NNNnn} from \cmd{l3tl} (see the sub-section \emph{Token by token changes}). Many thanks to Phelype Oleinik for help on this, and in particular on help with expansion. % \begin{macrocode} \cs_new:Npn \__avm_parse:n #1 { @@ -685,7 +949,9 @@ Please report any bugs or feature requests to { \str_case:nnF {#1} { - { + }{ \__avm_replace_plus: } + { \+ }{ \__avm_replace_plus: } + { \- }{ \__avm_replace_minus: } + { \shuffle }{ \__avm_replace_circle: } { [ }{ \__avm_replace_lbrack: } { ] }{ \__avm_replace_rbrack: } { ( }{ \__avm_replace_lparen: } diff --git a/macros/latex/contrib/langsci-avm/langsci-avm.ins b/macros/latex/contrib/langsci-avm/langsci-avm.ins index 23df5f5846..a60e9b54e2 100644 --- a/macros/latex/contrib/langsci-avm/langsci-avm.ins +++ b/macros/latex/contrib/langsci-avm/langsci-avm.ins @@ -12,15 +12,23 @@ \preamble ------------------------------------------------------------------------------ -langsci-avm: Attribute-value matrices (AVMs) and feature structures in LaTeX3. +langsci-avm is aimed at typesetting beautiful feature structures, +also known as attribute-value matrices (AVMs), for use in linguistics. + +The package provides a minimal and easy to read syntax. +It depends only on the array package and can be placed almost everywhere, +in particular in footnotes or graphs and tree structures. The package is meant +as an update to, and serves the same purpose as, Christopher Manning’s +avm package, but shares no code base with that package. + +langsci-avm was developed at Language Science Press to help in the +production of scientific texts in linguistics. Copyright (C) 2020 by Felix Kopecky, Language Science Press -This work consists of the file langsci-avm.dtx & - include/smallcaps-standalone.pdf. +This work consists of the file langsci-avm.dtx and the derived files langsci-avm.ins, - langsci-avm.pdf, - langsci-avm.sty. + langsci-avm.pdf. It may be distributed and/or modified under the conditions of the LaTeX Project Public License (LPPL), either version 1.3c of this @@ -30,7 +38,7 @@ of this license is at . This work is ``maintained'' (per LPPL maintenance status) by Felix Kopecky . -The development version of the bundle can be found at +The development version can be found at https://github.com/langsci/langsci-avm diff --git a/macros/latex/contrib/langsci-avm/langsci-avm.pdf b/macros/latex/contrib/langsci-avm/langsci-avm.pdf index 406d81e3f7..6d125865e8 100644 Binary files a/macros/latex/contrib/langsci-avm/langsci-avm.pdf and b/macros/latex/contrib/langsci-avm/langsci-avm.pdf differ diff --git a/macros/latex/contrib/metastr/README.txt b/macros/latex/contrib/metastr/README.txt index 45f64fedc2..0a41eae10c 100644 --- a/macros/latex/contrib/metastr/README.txt +++ b/macros/latex/contrib/metastr/README.txt @@ -1,4 +1,4 @@ -metastr v1.0 +metastr v1.1 Copyright 2020 Niklas Beisert metastr is a LaTeX2e package diff --git a/macros/latex/contrib/metastr/metastr.dtx b/macros/latex/contrib/metastr/metastr.dtx index 474c224f9a..8111b295c1 100644 --- a/macros/latex/contrib/metastr/metastr.dtx +++ b/macros/latex/contrib/metastr/metastr.dtx @@ -18,10 +18,10 @@ % and the derived files metastr.sty and metasamp.tex. % %\NeedsTeXFormat{LaTeX2e}[1996/12/01] -%\ProvidesPackage{metastr}[2020/02/06 v1.0 Metadata Strings Storage] -%\ProvidesFile{metasamp.tex}[2020/02/06 v1.0 sample for metastr] +%\ProvidesPackage{metastr}[2020/06/28 v1.1 Metadata Strings Storage] +%\ProvidesFile{metasamp.tex}[2020/06/28 v1.1 sample for metastr] %<*driver> -\def\thedate#1{2020/02/06}\def\theversion#1{v1.0} +\def\thedate#1{2020/06/28}\def\theversion#1{v1.1} \ProvidesFile{metastr.dtx}[\thedate{} \theversion{} metastr reference manual file] \PassOptionsToClass{10pt,a4paper}{article} \documentclass{ltxdoc} @@ -184,14 +184,20 @@ The basic set of registers consists of: \\ |keywords| & (a list of) keywords describing the document \\ +|titlematter| & composition register for title matter +\\ |titletext| & composition register for title +\\ +|authortext| & composition register for author +\\ +|datatext| & composition register for location and date \end{tabular} \end{center} % The register |titletext| composes information for printing the title -(such as |title|, |subtitle|, |author|, |location| and |date|). +(such as |title|, |subtitle| but also |author|, |location| and |date|). It can serve a similar purpose as the \LaTeX{} command |\maketitle|. Finally, there are some auxiliary registers: @@ -212,6 +218,9 @@ name of the source file \\ |draft| & indicator of draft version +\\ +|linebreak| & +expands to linebreak when printed or space otherwise \end{tabular} \end{center} % @@ -313,6 +322,7 @@ see \secref{sec:language}. Moreover, certain attributes related to the registers could be stored in additional variants. +\DescribeMacro{titletext} For example, the register |titletext| exists in the default variant (mainly intended for writing out metadata) and the |print| variant @@ -331,17 +341,20 @@ The |print| variant is accessed by the command: |\metapick[print]{titletext}| \end{center} % -It expands to four lines -containing |title|, |subtitle| + |draft|, |author| and |location| + |date| +It expands to two lines containing |title| and |subtitle| + |draft| (as far as filled): % \begin{center} \textit{title}\\ -\textit{subtitle} |\par| \textit{draft}\\ -\textit{author}\\ -\textit{location}, \textit{date} +\textit{subtitle} |\par| \textit{draft} \end{center} % +In fact, the legacy behaviour of |titletext| +also adds two lines containing |author| and |location| + |date|, +as in the new composition register |titlematter| to be explained below; +this behaviour needs to be disabled explicitly +for purposes of backwards compatibility +by the package option |titlematter|. The formatting style of each line is given by the variant |style| of the first register on this line; the vertical space above each line is @@ -350,10 +363,29 @@ Two items on a single line are separated by the variant |sep| of the second register; an unfilled |sep| variant puts the two items on individual lines (by default this applies to |subtitle| and |draft|). -In this way the layout of the title display on the title page -can be adjusted conveniently -(by default it mimics the \LaTeX{} command |\maketitle| -in the class \textsf{article}). + +\DescribeMacro{titlematter} +The composition register |titlematter| (in |print| variant): +% +\begin{center} +|\metapick[print]{titlematter}| +\end{center} +% +collects extended information +on the documents for display on the title page +(it substitutes the \LaTeX{} command |\maketitle| in the class \textsf{article} +whose display it mimics): +% +\begin{center} +\textit{title}\\ +\textit{subtitle} |\par| \textit{draft}\\ +\textit{author}\\ +\textit{location}, \textit{date} +\end{center} +% +By adjusting the definitions, +the layout of the title display on the title page +can be adjusted conveniently. Variants are always specified by an argument |[|\textit{var}|]| in square brackets preceding the register |{|\textit{reg}|}|. @@ -411,6 +443,9 @@ When this register is accessed by it will read the default variant of \textit{reg1} which will pass on to \textit{reg2} in \textit{var} (rather than in the default variant). +A useful application within title declarations +is |\metapick[#1]{linebreak}| which expands to a line break +when the title is displayed and to a space when the title is used elsewhere. \DescribeMacro{\metaifpick} \DescribeMacro{\metacompose} @@ -464,14 +499,18 @@ as |[|\textit{var}|]| is \emph{mandatory}: % Here, the default variant is accessed by an empty argument \textit{var}. +\DescribeMacro{titletext} +\DescribeMacro{\metatitleline} +\DescribeMacro{\metatitlelinetwo} To illustrate a construction using variants, -let us consider the above register |titletext|. +let us consider the above register |titletext| +(with activated package option |titlematter|). It is defined in the generic variant as: % \begin{center} \begin{tabular}{l} |\metaset{titletext}{%|\\ -| \metacompose[#1]{draft}{}{: }{}%|\\ +| \metacompose[#1]{draft}{}{\metaget[sep]{draft}}{}%|\\ | \metapick[#1]{title}%|\\ | \metacompose[#1]{subtitle}{\metaget[sep]{subtitle}}{}{}}| \end{tabular} @@ -486,9 +525,7 @@ The |print| variant to output a full title for the document is defined by: \begin{tabular}{l} |\metaset[print]{titletext}{%|\\ | \metatitleline[print]{title}%|\\ -| \metatitlelinetwo[print]{subtitle}[print]{draft}%|\\ -| \metatitleline[print]{author}%|\\ -| \metatitlelinetwo[print]{location}[print]{date}}| +| \metatitlelinetwo[print]{subtitle}[print]{draft}| \end{tabular} \end{center} % @@ -510,6 +547,28 @@ this expands to the vertical skip defined by the variant |skip| and an encapsulated paragraph of the register value in the layout defined by the variant |style|. +\DescribeMacro{authortext} +\DescribeMacro{datetext} +\DescribeMacro{titlematter} +The composition registers |authortext| and |datetext| work in +a similar fashion as |titletext| and compose +the registers |author| and |location| + |date|, respectively. +The composition register |titlematter| (in variant |print|) +prints out the title, author and date information +and serves a similar purpose as the \LaTeX{} command |\maketitle|: +% +\begin{center} +\begin{tabular}{l} +|\metaset{titlematter}{%|\\ +| \metapick[#1]{titletext}%|\\ +| \metapick[#1]{authortext}%|\\ +| \metapick[#1]{datatext}}| +\end{tabular} +\end{center} +% + +% + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \subsection{Write Document Metadata} \label{sec:meta} @@ -528,7 +587,7 @@ and \textsf{hyperref} |\hypersetup| options is given by: \begin{tabular}{l@{\quad$\to$\quad}l} |titletext| & |pdftitle| \\ -|author| & |pdfauthor| +|authortext| & |pdfauthor| \\ |subject| & |pdfsubject| \\ @@ -538,6 +597,8 @@ and \textsf{hyperref} |\hypersetup| options is given by: % Here, |titletext| is used instead of |title| to compose information from the registers |draft|, |title| and |subtitle| (as far as filled). +Similarly, |authortext| composes information on the author, +typically just |author|. Note that |\metawritepdfinfo| will be effective only when invoked before the contents of the first page are written out. @@ -825,7 +886,7 @@ The appropriate license URL and CC logo is selected by the command as well, e.g. % \begin{center} -\includegraphics{doclicense-CC-by-sa}\\ +\includegraphics{doclicense-CC-by-sa-88x31}\\ \url{https://creativecommons.org/licenses/by-sa/4.0/} \end{center} % @@ -1073,6 +1134,9 @@ display CC logo from \textsf{doclicense} package. \item |cclogocurr=dollar|\textbar|euro|\textbar|yen| (initially set to |dollar|) -- select currency symbol for Creative Commons NonCommercial logos. +\item |cclogoshape=box|\textbar|slim| +(initially set to |box|) -- +select shape of Creative Commons NonCommercial logos. \item |xmppdfinfo|[|=true|\textbar|false|] (no value implies |true|, initially set to |true|) -- write the basic PDF info block @@ -1082,6 +1146,12 @@ if this option is set, \item |draft|[|=true|\textbar|false|] (no value implies |true|, initially set to |false|) -- fill |draft| register with ``DRAFT''. +\item |titlematter|[|=true|\textbar|false|] +(no value implies |true|, initially set to |false|) -- +when set to |true|, composition register |titletext| +prints only the title; when set to |false|, +|titletext| also prints authorship, location and date information +(legacy behaviour). \item |course|[|=true|\textbar|false|] (no value implies |true|, initially set to |false|) -- Setup extended registers for course materials, see \secref{sec:extras}. @@ -1103,6 +1173,15 @@ Available internationalisations currently consist of: \end{itemize} % +Selected package options can be adjusted after the package +has been loaded by the command: +% +\begin{center} +|\metasetup{|\textit{opts}|}| +\end{center} +% +Presently, only |draft| can be adjusted. + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \subsection{Extras} \label{sec:extras} @@ -1130,8 +1209,8 @@ upon setting the package option |course|: \end{center} % -The variant |course| of the register |titletext| displays a -compilation of these registers for display on a title page: +The variant |course| of the register |titlematter| (or |titletext|) +displays a compilation of these registers for display on a title page: % \begin{center} \textit{course}\\ @@ -1224,13 +1303,13 @@ This package can use the package \href{http://ctan.org/pkg/hyperxmp}{\textsf{hyperxmp}} to write extended metadata to a PDF file. Compatibility with the \textsf{hyperxmp} package -has been tested with v4.1 (2019/04/05). +has been tested with v5.4 (2020/06/19). \item This package can use the Creative Commons license icon files included in the package \href{http://ctan.org/pkg/doclicense}{\textsf{doclicense}}. Compatibility with the \textsf{doclicense} package -has been tested with v1.10.0 (2019/06/05). +has been tested with v2.0.1 (2020/06/26). \item This package can use the Creative Commons license icon fonts included in the package @@ -1312,11 +1391,36 @@ Further translations of copyright and license statements. Export translations to files \item Make use of the \textsf{babel} package for translations of basic terms. +% load babel when not only en? +%\item +%title translations via titletext? \end{itemize} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \subsection{Revision History} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\paragraph{v1.1:} 2020/06/28 + +\begin{itemize} +\item +|\metasetup| to adjust some package options (|draft|) +\item +|titlematter|, |authortext|, |datatext| composition registers added; +legacy behaviour of |titletext| preserved, +can be changed by package option |titlematter| +\item +|linebreak| register added +\item +fix saving of PDF info (|keeppdfinfo|) with updated \textsf{hyperxmp} package +\item +fix package options |hyperref|, |hyperxmp|, |checkdef|, |xmppdfinfo| +\item +fix compatibility with updated \textsf{doclicense} package (v2) +\item +\ldots +\end{itemize} + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \paragraph{v1.0:} 2020/02/06 @@ -1380,20 +1484,20 @@ first version, published on CTAN % Set some options for the \textsf{metastr} package: % \begin{macrocode} -\PassOptionsToPackage{draft}{metastr} \PassOptionsToPackage{loadlang=en|de|fr|es}{metastr} %%\PassOptionsToPackage{loadlang=en|fr|es}{metastr} %%\PassOptionsToPackage{loadlang=de|en}{metastr} \PassOptionsToPackage{cclogocurr=euro}{metastr} +%%\PassOptionsToPackage{cclogoshape=slim}{metastr} % \end{macrocode} % Include the \textsf{metastr} package along with % \textsf{graphicx}, \textsf{babel} % and \textsf{ccicons} (where available): % \begin{macrocode} -\usepackage{metastr} +\usepackage[titlematter]{metastr} \usepackage{graphicx} -\usepackage{babel} +\usepackage[english]{babel} \IfFileExists{ccicons.sty}{\usepackage{ccicons}}{} % \end{macrocode} @@ -1462,6 +1566,7 @@ first version, published on CTAN \metaset{date}{2020/02/06} \metaset{partof}{The metastr Package} \metaset[print]{partof}{The \textsf{metastr} Package} +\metasetup{draft=true} % \end{macrocode} % Copyright settings: @@ -1504,7 +1609,7 @@ first version, published on CTAN % \begin{macrocode} \pdfbookmark[1]{\metaterm{title}}{title} \begin{center} -\metapick[print]{titletext} +\metapick[print]{titlematter} \end{center} % \end{macrocode} @@ -1611,6 +1716,7 @@ some representations of the selected license: % \macro{checkdef} % \macro{cclogo} % \macro{cclogocurr} +% \macro{cclogoshape} % \macro{xmppdfinfo} % Store the selected package options in some corresponding internal macros: % \begin{macrocode} @@ -1620,23 +1726,28 @@ some representations of the selected license: \newif\ifmstr@opt@xmppdfinfo\mstr@opt@xmppdfinfotrue \newif\ifmstr@opt@course\mstr@opt@coursefalse \newif\ifmstr@opt@draft\mstr@opt@draftfalse +\newif\ifmstr@opt@titlematter\mstr@opt@titlematterfalse \newif\ifmstr@opt@cclogo\mstr@opt@cclogotrue \def\mstr@opt@cclogocurr{dollar} +\def\mstr@opt@cclogoshape{box} \def\mstr@opt@loadlang{en} \def\mstr@group{mstr@} -\define@key{\mstr@group}{hyperref}[true] - {\csname mstr@opt@hyperref#1\endcsname} -\define@key{\mstr@group}{hyperxmp}[true] - {\csname mstr@opt@hyperxmp#1\endcsname} -\define@key{\mstr@group}{checkdef}[true] - {\csname mstr@opt@checkdef#1\endcsname} -\define@key{\mstr@group}{xmppdfinfo}[true] - {\csname mstr@opt@xmppdfinfo#1\endcsname} +\define@key{\mstr@group}{hyperref}[true]{% + \csname mstr@opt@hyperref#1\endcsname} +\define@key{\mstr@group}{hyperxmp}[true]{% + \csname mstr@opt@hyperxmp#1\endcsname} +\define@key{\mstr@group}{checkdef}[true]{% + \csname mstr@opt@checkdef#1\endcsname} +\define@key{\mstr@group}{xmppdfinfo}[true]{% + \csname mstr@opt@xmppdfinfo#1\endcsname} \define@key{\mstr@group}{cclogo}[true]{\csname mstr@opt@cclogo#1\endcsname} \define@key{\mstr@group}{cclogocurr}{\def\mstr@opt@cclogocurr{#1}} +\define@key{\mstr@group}{cclogoshape}{\def\mstr@opt@cclogoshape{#1}} \define@key{\mstr@group}{loadlang}{\def\mstr@opt@loadlang{#1}} \define@key{\mstr@group}{course}[true]{\csname mstr@opt@course#1\endcsname} \define@key{\mstr@group}{draft}[true]{\csname mstr@opt@draft#1\endcsname} +\define@key{\mstr@group}{titlematter}[true]{% + \csname mstr@opt@titlematter#1\endcsname} % \end{macrocode} % Pass undeclared options on to \textsf{keyval} processing: @@ -1650,6 +1761,14 @@ some representations of the selected license: \ProcessOptions % \end{macrocode} +% \macro{\metasetup} +% |\metasetup| processes package options +% when the package has already been loaded: +% \begin{macrocode} +\def\mstr@setup{mstr@setup} +\newcommand{\metasetup}[1]{\setkeys\mstr@setup{#1}} +% \end{macrocode} + % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % \subsection{Definitions} % \label{sec:imp-def} @@ -1666,6 +1785,7 @@ some representations of the selected license: % \begin{macrocode} \ifmstr@opt@hyperref\RequirePackage{hyperref}\fi \ifmstr@opt@hyperxmp\RequirePackage{hyperxmp}\fi +\ifmstr@opt@xmppdfinfo\ifdefined\xmptilde\hypersetup{keeppdfinfo}\fi\fi % \end{macrocode} % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -2003,11 +2123,14 @@ some representations of the selected license: % \begin{macrocode} \metadef{draft} % \end{macrocode} -% Set draft text (if |draft| option set): +% Set draft text (if |draft| option set), declare |draft| option: % \begin{macrocode} -\ifmstr@opt@draft -\metaset{draft}{\metatranslate[#1]{draft}} -\fi +\newcommand{\mstr@set@draft}{% + \ifmstr@opt@draft\metaset{draft}{\metatranslate[##1]{draft}}% + \else\metaunset{draft}\fi} +\define@key{\mstr@setup}{draft}[true]{% + \csname mstr@opt@draft#1\endcsname\mstr@set@draft}% +\mstr@set@draft % \end{macrocode} % \macro{title} @@ -2028,13 +2151,28 @@ some representations of the selected license: \metadef{keywords} % \end{macrocode} +% \macro{linebreak} +% Declare an auxiliary register to break a line in |print| variant +% and display a space otherwise: +% \begin{macrocode} +\metadef{linebreak} +\metaset[]{linebreak}{ } +\metaset[print]{linebreak}{\\} +% \end{macrocode} + % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% \paragraph{Title Composition.} +% \paragraph{Title and Author Composition.} % +% \macro{titlematter} % \macro{titletext} +% \macro{authortext} +% \macro{datatext} % Declare register to compose title display (analogous to |\maketitle|): % \begin{macrocode} +\metadef{titlematter} \metadef{titletext} +\metadef{authortext} +\metadef{datatext} % \end{macrocode} % \macro{\metatitleline} @@ -2074,19 +2212,43 @@ some representations of the selected license: \metaset[skip]{date}{\vspace{1.5em}} \metaset[sep]{subtitle}{ -- } \metaset[sep]{date}{, } +\metaset[sep]{draft}{: } % \end{macrocode} -% Preset for |titletext| in generic and |print| variants: +% Preset for |titlematter|, |titletext|, |authortext| and |datatext| +% in generic and |print| variants: % \begin{macrocode} \metaset{titletext}{% - \metacompose[#1]{draft}{}{: }{}% + \metacompose[#1]{draft}{}{\metaget[sep]{draft}}{}% \metapick[#1]{title}% \metacompose[#1]{subtitle}{\metaget[sep]{subtitle}}{}{}} +\metaset{authortext}{\metapick[#1]{author}} +\metaset{datatext}{% + \metacompose[#1]{location}{}{\metaget[sep]{date}}{}% + \metapick[#1]{date}} +\metaset{titlematter}{% + \metapick[#1]{titletext}% + \metapick[#1]{authortext}% + \metapick[#1]{datatext}} \metaset[print]{titletext}{% \metatitleline[print]{title}% - \metatitlelinetwo[print]{subtitle}[print]{draft}% - \metatitleline[print]{author}% + \metatitlelinetwo[print]{subtitle}[print]{draft}} +\metaset[print]{authortext}{% + \metatitleline[print]{author}} +\metaset[print]{datatext}{% \metatitlelinetwo[print]{location}[print]{date}} % \end{macrocode} +% Legacy presets: +% \begin{macrocode} +\ifmstr@opt@titlematter\else +\metaset{titlematter}{% + \metapick[#1]{titletext}} +\metaset[print]{titletext}{% + \metatitleline[print]{title}% + \metatitlelinetwo[print]{subtitle}[print]{draft}% + \metapick[print]{authortext}% + \metapick[print]{datatext}} +\fi +% \end{macrocode} % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % \paragraph{Further Registers.} @@ -2138,8 +2300,6 @@ some representations of the selected license: % before the start of the document: % \begin{macrocode} \newcommand{\metawritepdfpreamble}{\ifdefined\hypersetup - \ifmstr@opt@xmppdfinfo - \ifdefined\xmptilde\hypersetup{keeppdfinfo}\fi\fi \metaif[]{language} {\hypersetup{pdflang={\metaget[]{language}}}}{}% \ifdefined\xmptilde @@ -2155,7 +2315,7 @@ some representations of the selected license: % \begin{macrocode} \newcommand{\metawritepdfinfo}{\ifdefined\hypersetup \metaifpick[\mstr@lang@meta]{author} - {\hypersetup{pdfauthor={\metapick[\mstr@lang@meta]{author}}}}{}% + {\hypersetup{pdfauthor={\metapick[\mstr@lang@meta]{authortext}}}}{}% \metaifpick[\mstr@lang@meta]{title} {\hypersetup{pdftitle={\metapick[\mstr@lang@meta]{titletext}}}}{}% \metaifpick[\mstr@lang@meta]{subject} @@ -2313,7 +2473,9 @@ some representations of the selected license: \centerline{\metapick[#1]{licenselogo}}} \metaset[cmd]{licenselogo}{\includegraphics{#1}} \metaset[print]{licenselogo}{% - \mstr@getbare[cmd]{licenselogo}{\metaget[]{licenselogo}}} + \IfFileExists{\metaget[]{licenselogo}.pdf}% + {\mstr@getbare[cmd]{licenselogo}{\metaget[]{licenselogo}}}% + {\mstr@getbare[cmd]{licenselogo}{\metaget[nocurr]{licenselogo}}}} % \end{macrocode} % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -2668,12 +2830,16 @@ some representations of the selected license: \metaset[logo]{cc@by-nc-sa}{doclicense-CC-by-nc-sa} \metaset[logo]{cc@by-nc-nd}{doclicense-CC-by-nc-nd} % \end{macrocode} -% Use euro sign versions: +% Select currency versions: % \begin{macrocode} -\mstr@iftext\mstr@opt@cclogocurr{euro}{ -\metaset[logo]{cc@by-nc}{doclicense-CC-by-nc-eu} -\metaset[logo]{cc@by-nc-sa}{doclicense-CC-by-nc-sa-eu} -\metaset[logo]{cc@by-nc-nd}{doclicense-CC-by-nc-nd-eu}} +\mstr@iftext\mstr@opt@cclogocurr{dollar}{\metaset[curr]{licenselogo}{}} +\mstr@iftext\mstr@opt@cclogocurr{euro}{\metaset[curr]{licenselogo}{-eu}} +\mstr@iftext\mstr@opt@cclogocurr{yen}{\metaset[curr]{licenselogo}{-jp}} +% \end{macrocode} +% Select shape versions: +% \begin{macrocode} +\mstr@iftext\mstr@opt@cclogoshape{box}{\metaset[shape]{licenselogo}{-88x31}} +\mstr@iftext\mstr@opt@cclogoshape{slim}{\metaset[shape]{licenselogo}{-80x15}} % \end{macrocode} % \macro{\mstr@setcclogo} @@ -2684,8 +2850,13 @@ some representations of the selected license: \ifmstr@opt@cclogo \IfFileExists{doclicense.sty}{% \ifdefined\includegraphics + \IfFileExists{doclicense-CC-by-88x31.pdf} + {\metaset[size]{licenselogo}{-88x31}}{} \metaset{licenselogo}{% - \metapick[logo]{licensecc}} + \metapick[logo]{licensecc}\metaget[curr]{licenselogo}% + \metaget[shape]{licenselogo}}% + \metaset[nocurr]{licenselogo}{% + \metapick[logo]{licensecc}\metaget[shape]{licenselogo}}% \fi}{\GenericWarning{please install package `doclicense'}}% \fi} % \end{macrocode} @@ -2884,11 +3055,29 @@ some representations of the selected license: % Fill |titletext| in |course| variant to display % relevant title data for the course material: % \begin{macrocode} +\metaset[course]{titlematter}{% + \metapick[course]{titletext}% + \metapick[course]{datatext}% + \metapick[course]{authortext}} \metaset[course]{titletext}{% \metatitleline[print]{course}% - \metatitlelinetwo[print]{material}[print]{draft}% - \metatitlelinetwo[print]{institution}[print]{period}% + \metatitlelinetwo[print]{material}[print]{draft}} +\metaset[course]{authortext}{% \metatitleline[print]{instructor}} +\metaset[course]{datatext}{% + \metatitlelinetwo[print]{institution}[print]{period}} +% \end{macrocode} +% Legacy presets: +% \begin{macrocode} +\ifmstr@opt@titlematter\else +\metaset[course]{titlematter}{% + \metapick[course]{titletext}} +\metaset[course]{titletext}{% + \metatitleline[print]{course}% + \metatitlelinetwo[print]{material}[print]{draft}% + \metapick[course]{datatext}% + \metapick[course]{authortext}} +\fi % \end{macrocode} % Inherit title, subtitle, author and date: diff --git a/macros/latex/contrib/metastr/metastr.pdf b/macros/latex/contrib/metastr/metastr.pdf index e52d38b60f..0511b7fd97 100644 Binary files a/macros/latex/contrib/metastr/metastr.pdf and b/macros/latex/contrib/metastr/metastr.pdf differ diff --git a/macros/latex/contrib/pdftexcmds/README.md b/macros/latex/contrib/pdftexcmds/README.md deleted file mode 100644 index 8c1d58e1dc..0000000000 --- a/macros/latex/contrib/pdftexcmds/README.md +++ /dev/null @@ -1,19 +0,0 @@ -# pdftexcmds - -Version: 2020-06-27 v0.33 - -pdftexcmds package for LaTeX - -LuaTeX provides most of the commands of pdfTeX 1.40. However -a number of utility functions are removed. This package tries to fill -the gap and implements some of the missing primitive using Lua. -Also provides similar wrappers for XeLaTeX and other engines that provide -these primitives, under possibly different names. - - -## Copyright (C) -* 2007, 2009-2011 Heiko Oberdiek -* 2016-2020 Oberdiek Package Support Group - -## License -LATEX Project Public License, version 1.3c or later. diff --git a/macros/latex/contrib/pdftexcmds/pdftexcmds.dtx b/macros/latex/contrib/pdftexcmds/pdftexcmds.dtx deleted file mode 100644 index e39a5799df..0000000000 --- a/macros/latex/contrib/pdftexcmds/pdftexcmds.dtx +++ /dev/null @@ -1,2243 +0,0 @@ -% \iffalse meta-comment -% -% File: pdftexcmds.dtx -% Version: 2020-06-27 v0.33 -% Info: Utility functions of pdfTeX for LuaTeX -% -% Copyright (C) -% 2007, 2009-2011 Heiko Oberdiek -% 2016-2020 Oberdiek Package Support Group -% -% This work may be distributed and/or modified under the -% conditions of the LaTeX Project Public License, either -% version 1.3c of this license or (at your option) any later -% version. This version of this license is in -% https://www.latex-project.org/lppl/lppl-1-3c.txt -% and the latest version of this license is in -% https://www.latex-project.org/lppl.txt -% and version 1.3 or later is part of all distributions of -% LaTeX version 2005/12/01 or later. -% -% This work has the LPPL maintenance status "maintained". -% -% The Current Maintainers of this work are -% Heiko Oberdiek and the Oberdiek Package Support Group -% https://github.com/ho-tex/pdftexcmds/issues -% -% The Base Interpreter refers to any `TeX-Format', -% because some files are installed in TDS:tex/generic//. -% -% This work consists of the main source file pdftexcmds.dtx -% and the derived files -% pdftexcmds.sty, pdftexcmds.pdf, pdftexcmds.ins, pdftexcmds.drv, -% pdftexcmds.bib, pdftexcmds-test1.tex, pdftexcmds-test2.tex, -% pdftexcmds-test-shell.tex, pdftexcmds-test-escape.tex, -% pdftexcmds.lua. -% -% Distribution: -% CTAN:macros/latex/contrib/pdftexcmds/pdftexcmds.dtx -% CTAN:macros/latex/contrib/pdftexcmds/pdftexcmds.pdf -% -% Unpacking: -% (a) If pdftexcmds.ins is present: -% tex pdftexcmds.ins -% (b) Without pdftexcmds.ins: -% tex pdftexcmds.dtx -% (c) If you insist on using LaTeX -% latex \let\install=y\input{pdftexcmds.dtx} -% (quote the arguments according to the demands of your shell) -% -% Documentation: -% (a) If pdftexcmds.drv is present: -% latex pdftexcmds.drv -% (b) Without pdftexcmds.drv: -% latex pdftexcmds.dtx; ... -% The class ltxdoc loads the configuration file ltxdoc.cfg -% if available. Here you can specify further options, e.g. -% use A4 as paper format: -% \PassOptionsToClass{a4paper}{article} -% -% Programm calls to get the documentation (example): -% pdflatex pdftexcmds.dtx -% bibtex pdftexcmds.aux -% makeindex -s gind.ist pdftexcmds.idx -% pdflatex pdftexcmds.dtx -% makeindex -s gind.ist pdftexcmds.idx -% pdflatex pdftexcmds.dtx -% -% Installation: -% TDS:tex/generic/pdftexcmds/pdftexcmds.sty -% TDS:tex/generic/pdftexcmds/pdftexcmds.lua -% TDS:doc/latex/pdftexcmds/pdftexcmds.pdf -% TDS:source/latex/pdftexcmds/pdftexcmds.dtx -% -%<*ignore> -\begingroup - \catcode123=1 % - \catcode125=2 % - \def\x{LaTeX2e}% -\expandafter\endgroup -\ifcase 0\ifx\install y1\fi\expandafter - \ifx\csname processbatchFile\endcsname\relax\else1\fi - \ifx\fmtname\x\else 1\fi\relax -\else\csname fi\endcsname -% -%<*install> -\input docstrip.tex -\Msg{************************************************************************} -\Msg{* Installation} -\Msg{* Package: pdftexcmds 2020-06-27 v0.33 Utility functions of pdfTeX for LuaTeX (HO)} -\Msg{************************************************************************} - -\keepsilent -\askforoverwritefalse - -\let\MetaPrefix\relax -\preamble - -This is a generated file. - -Project: pdftexcmds -Version: 2020-06-27 v0.33 - -Copyright (C) - 2007, 2009-2011 Heiko Oberdiek - 2016-2019 Oberdiek Package Support Group - -This work may be distributed and/or modified under the -conditions of the LaTeX Project Public License, either -version 1.3c of this license or (at your option) any later -version. This version of this license is in - https://www.latex-project.org/lppl/lppl-1-3c.txt -and the latest version of this license is in - https://www.latex-project.org/lppl.txt -and version 1.3 or later is part of all distributions of -LaTeX version 2005/12/01 or later. - -This work has the LPPL maintenance status "maintained". - -The Current Maintainers of this work are -Heiko Oberdiek and the Oberdiek Package Support Group -https://github.com/ho-tex/pdftexcmds/issues - - -The Base Interpreter refers to any `TeX-Format', -because some files are installed in TDS:tex/generic//. - -This work consists of the main source file pdftexcmds.dtx -and the derived files - pdftexcmds.sty, pdftexcmds.pdf, pdftexcmds.ins, pdftexcmds.drv, - pdftexcmds.lua. - -\endpreamble -\let\MetaPrefix\DoubleperCent - -\generate{% - \file{pdftexcmds.ins}{\from{pdftexcmds.dtx}{install}}% - \file{pdftexcmds.drv}{\from{pdftexcmds.dtx}{driver}}% - \nopreamble - \nopostamble - \file{pdftexcmds.bib}{\from{pdftexcmds.dtx}{bib}}% - \usepreamble\defaultpreamble - \usepostamble\defaultpostamble - \usedir{tex/generic/pdftexcmds}% - \file{pdftexcmds.sty}{\from{pdftexcmds.dtx}{package}}% -% \usedir{doc/latex/pdftexcmds/test}% -% \file{pdftexcmds-test1.tex}{\from{pdftexcmds.dtx}{test1}}% -% \file{pdftexcmds-test2.tex}{\from{pdftexcmds.dtx}{test2}}% -% \file{pdftexcmds-test-shell.tex}{\from{pdftexcmds.dtx}{test-shell}}% -% \file{pdftexcmds-test-escape.tex}{\from{pdftexcmds.dtx}{test-escape}}% -} -\def\MetaPrefix{-- } -\def\defaultpostamble{% - \MetaPrefix^^J% - \MetaPrefix\space End of File `\outFileName'.% -} -\def\currentpostamble{\defaultpostamble}% -\generate{% - \usedir{tex/generic/pdftexcmds}% - \file{pdftexcmds.lua}{\from{pdftexcmds.dtx}{lua}}% -} - -\catcode32=13\relax% active space -\let =\space% -\Msg{************************************************************************} -\Msg{*} -\Msg{* To finish the installation you have to move the following} -\Msg{* files into a directory searched by TeX:} -\Msg{*} -\Msg{* pdftexcmds.sty} -\Msg{* pdftexcmds.lua} -\Msg{*} -\Msg{* To produce the documentation run the file `pdftexcmds.drv'} -\Msg{* through LaTeX.} -\Msg{*} -\Msg{* Happy TeXing!} -\Msg{*} -\Msg{************************************************************************} - -\endbatchfile -% -%<*bib> -@online{AndyThomas:Analog, - author={Thomas, Andy}, - title={Analog of {\texttt{\csname textbackslash\endcsname}pdfelapsedtime} for - {\hologo{LuaTeX}} and {\hologo{XeTeX}}}, - url={http://tex.stackexchange.com/a/32531}, - urldate={2011-11-29}, -} -% -%<*ignore> -\fi -% -%<*driver> -\NeedsTeXFormat{LaTeX2e} -\ProvidesFile{pdftexcmds.drv}% - [2020-06-27 v0.33 Utility functions of pdfTeX for LuaTeX (HO)]% -\documentclass{ltxdoc} -\usepackage{holtxdoc}[2011/11/22] -\usepackage{paralist} -\usepackage{csquotes} -\usepackage[ - backend=biber, - alldates=iso, -]{biblatex}[2011/11/13] -\addbibresource{oberdiek-source.bib} -\addbibresource{pdftexcmds.bib} -\begin{document} - \DocInput{pdftexcmds.dtx}% -\end{document} -% -% \fi -% -% -% -% \GetFileInfo{pdftexcmds.drv} -% -% \title{The \xpackage{pdftexcmds} package} -% \date{2020-06-27 v0.33} -% \author{Heiko Oberdiek\thanks -% {Please report any issues at \url{https://github.com/ho-tex/pdftexcmds/issues}}} -% -% \maketitle -% -% \begin{abstract} -% \hologo{LuaTeX} provides most of the commands of \hologo{pdfTeX} 1.40. However -% a number of utility functions are removed. This package tries to fill -% the gap and implements some of the missing primitive using Lua. -% \end{abstract} -% -% \tableofcontents -% -% \def\csi#1{\texttt{\textbackslash\textit{#1}}} -% -% \section{Documentation} -% -% Some primitives of \hologo{pdfTeX} \cite{pdftex-manual} -% are not defined by \hologo{LuaTeX} \cite{luatex-manual}. -% This package implements macro based solutions using Lua code -% for the following missing \hologo{pdfTeX} primitives; -% \begin{compactitem} -% \item \cs{pdfstrcmp} -% \item \cs{pdfunescapehex} -% \item \cs{pdfescapehex} -% \item \cs{pdfescapename} -% \item \cs{pdfescapestring} -% \item \cs{pdffilesize} -% \item \cs{pdffilemoddate} -% \item \cs{pdffiledump} -% \item \cs{pdfmdfivesum} -% \item \cs{pdfresettimer} -% \item \cs{pdfelapsedtime} -% \item |\immediate\write18| -% \end{compactitem} -% The original names of the primitives cannot be used: -% \begin{itemize} -% \item -% The syntax for their arguments cannot easily -% simulated by macros. The primitives using key words -% such as |file| (\cs{pdfmdfivesum}) or |offset| and |length| -% (\cs{pdffiledump}) and uses \meta{general text} for the other -% arguments. Using token registers assignments, \meta{general text} could -% be catched. However, the simulated primitives are expandable -% and register assignments would destroy this important property. -% (\meta{general text} allows something like |\expandafter\bgroup ...}|.) -% \item -% The original primitives can be expanded using one expansion step. -% The new macros need two expansion steps because of the additional -% macro expansion. Example: -% \begin{quote} -% |\expandafter\foo\pdffilemoddate{file}|\\ -% vs.\\ -% |\expandafter\expandafter\expandafter|\\ -% |\foo\pdf@filemoddate{file}| -% \end{quote} -% \end{itemize} -% -% \hologo{LuaTeX} isn't stable yet and thus the status of this package is -% \emph{experimental}. Feedback is welcome. -% -% \subsection{General principles} -% -% \begin{description} -% \item[Naming convention:] -% Usually this package defines a macro |\pdf@|\meta{cmd} if -% \hologo{pdfTeX} provides |\pdf|\meta{cmd}. -% \item[Arguments:] The order of arguments in |\pdf@|\meta{cmd} -% is the same as for the corresponding primitive of \hologo{pdfTeX}. -% The arguments are ordinary undelimited \hologo{TeX} arguments, -% no \meta{general text} and without additional keywords. -% \item[Expandibility:] -% The macro |\pdf@|\meta{cmd} is expandable if the -% corresponding \hologo{pdfTeX} primitive has this property. -% Exact two expansion steps are necessary (first is the macro -% expansion) except for \cs{pdf@primitive} and \cs{pdf@ifprimitive}. -% The latter ones are not macros, but have the direct meaning of the -% primitive. -% \item[Without \hologo{LuaTeX}:] -% The macros |\pdf@|\meta{cmd} are mapped to the commands -% of \hologo{pdfTeX} if they are available. Otherwise they are undefined. -% \item[Availability:] -% The macros that the packages provides are undefined, if -% the necessary primitives are not found and cannot be -% implemented by Lua. -% \end{description} -% -% \subsection{Macros} -% -% \subsubsection[Strings]{Strings \cite[``7.15 Strings'']{pdftex-manual}} -% -% \begin{declcs}{pdf@strcmp} \M{stringA} \M{stringB} -% \end{declcs} -% Same as |\pdfstrcmp{|\meta{stringA}|}{|\meta{stringB}|}|. -% -% \begin{declcs}{pdf@unescapehex} \M{string} -% \end{declcs} -% Same as |\pdfunescapehex{|\meta{string}|}|. -% The argument is a byte string given in hexadecimal notation. -% The result are character tokens from 0 until 255 with -% catcode 12 and the space with catcode 10. -% -% \begin{declcs}{pdf@escapehex} \M{string}\\ -% \cs{pdf@escapestring} \M{string}\\ -% \cs{pdf@escapename} \M{string} -% \end{declcs} -% Same as the primitives of \hologo{pdfTeX}. However \hologo{pdfTeX} does not -% know about characters with codes 256 and larger. Thus the -% string is treated as byte string, characters with more than -% eight bits are ignored. -% -% \subsubsection[Files]{Files \cite[``7.18 Files'']{pdftex-manual}} -% -% \begin{declcs}{pdf@filesize} \M{filename} -% \end{declcs} -% Same as |\pdffilesize{|\meta{filename}|}|. -% -% \begin{declcs}{pdf@filemoddate} \M{filename} -% \end{declcs} -% Same as |\pdffilemoddate{|\meta{filename}|}|. -% -% \begin{declcs}{pdf@filedump} \M{offset} \M{length} \M{filename} -% \end{declcs} -% Same as |\pdffiledump offset| \meta{offset} |length| \meta{length} -% |{|\meta{filename}|}|. Both \meta{offset} and \meta{length} must -% not be empty, but must be a valid \hologo{TeX} number. -% -% \begin{declcs}{pdf@mdfivesum} \M{string} -% \end{declcs} -% Same as |\pdfmdfivesum{|\meta{string}|}|. Keyword |file| is supported -% by macro \cs{pdf@filemdfivesum}. -% -% \begin{declcs}{pdf@filemdfivesum} \M{filename} -% \end{declcs} -% Same as |\pdfmdfivesum file{|\meta{filename}|}|. -% -% \subsubsection[Timekeeping]{Timekeeping \cite[``7.17 Timekeeping'']{pdftex-manual}} -% -% The timekeeping macros are based on Andy Thomas' work \cite{AndyThomas:Analog}. -% -% \begin{declcs}{pdf@resettimer} -% \end{declcs} -% Same as \cs{pdfresettimer}, it resets the internal timer. -% -% \begin{declcs}{pdf@elapsedtime} -% \end{declcs} -% Same as \cs{pdfelapsedtime}. It behaves like a read-only integer. -% For printing purposes it can be prefixed by \cs{the} or \cs{number}. -% It measures the time in scaled seconds (seconds multiplied with 65536) -% since the latest call of \cs{pdf@resettimer} or start of -% program/package. The resolution, the shortest time interval that -% can be measured, depends on the program and system. -% \begin{itemize} -% \item \hologo{pdfTeX} with |gettimeofday|: $\ge$ 1/65536\,s -% \item \hologo{pdfTeX} with |ftime|: $\ge$ 1\,ms -% \item \hologo{pdfTeX} with |time|: $\ge$ 1\,s -% \item \hologo{LuaTeX}: $\ge$ 10\,ms\\ -% (|os.clock()| returns a float number with two decimal digits in -% \hologo{LuaTeX} beta-0.70.1-2011061416 (rev 4277)). -% \end{itemize} -% -% \subsubsection[Miscellaneous]{Miscellaneous \cite[``7.21 Miscellaneous'']{pdftex-manual}} -% -% \begin{declcs}{pdf@draftmode} -% \end{declcs} -% If the \TeX\ compiler knows \cs{pdfdraftmode} or \cs{draftmode} -% (\hologo{pdfTeX}, -% \hologo{LuaTeX}), then \cs{pdf@draftmode} returns, whether -% this mode is enabled. The result is an implicit number: -% one means the draft mode is available and enabled. -% If the value is zero, then the mode is not active or -% \cs{pdfdraftmode} is not available. -% An explicit number is yielded by \cs{number}\cs{pdf@draftmode}. -% The macro cannot -% be used to change the mode, see \cs{pdf@setdraftmode}. -% -% \begin{declcs}{pdf@ifdraftmode} \M{true} \M{false} -% \end{declcs} -% If \cs{pdfdraftmode} is available and enabled, \meta{true} is -% called, otherwise \meta{false} is executed. -% -% \begin{declcs}{pdf@setdraftmode} \M{value} -% \end{declcs} -% Macro \cs{pdf@setdraftmode} expects the number zero or one as -% \meta{value}. Zero deactivates the mode and one enables the draft mode. -% The macro does not have an effect, if the feature \cs{pdfdraftmode} is not -% available. -% -% \begin{declcs}{pdf@shellescape} -% \end{declcs} -% Same as |\pdfshellescape|. It is or expands to |1| if external -% commands can be executed and |0| otherwise. In \hologo{pdfTeX} external -% commands must be enabled first by command line option or -% configuration option. In \hologo{LuaTeX} option |--safer| disables -% the execution of external commands. -% -% In \hologo{LuaTeX} before 0.68.0 \cs{pdf@shellescape} is not -% available due to a bug in |os.execute()|. The argumentless form -% crashes in some circumstances with segmentation fault. -% (It is fixed in version 0.68.0 or revision 4167 of \hologo{LuaTeX}. -% and packported to some version of 0.67.0). -% -% Hints for usage: -% \begin{itemize} -% \item Before its use \cs{pdf@shellescape} should be tested, -% whether it is available. Example with package \xpackage{ltxcmds} -% (loaded by package \xpackage{pdftexcmds}): -%\begin{quote} -%\begin{verbatim} -%\ltx@IfUndefined{pdf@shellescape}{% -% % \pdf@shellescape is undefined -%}{% -% % \pdf@shellescape is available -%} -%\end{verbatim} -%\end{quote} -% Use \cs{ltx@ifundefined} in expandable contexts. -% \item \cs{pdf@shellescape} might be a numerical constant, -% expands to the primitive, or expands to a plain number. -% Therefore use it in contexts where these differences does not matter. -% \item Use in comparisons, e.g.: -% \begin{quote} -% |\ifnum\pdf@shellescape=0 ...| -% \end{quote} -% \item Print the number: |\number\pdf@shellescape| -% \end{itemize} -% -% \begin{declcs}{pdf@system} \M{cmdline} -% \end{declcs} -% It is a wrapper for |\immediate\write18| in \hologo{pdfTeX} or -% |os.execute| in \hologo{LuaTeX}. -% -% In theory |os.execute| -% returns a status number. But its meaning is quite -% undefined. Are there some reliable properties? -% Does it make sense to provide an user interface to -% this status exit code? -% -% \begin{declcs}{pdf@primitive} \csi{cmd} -% \end{declcs} -% Same as \cs{pdfprimitive} in \hologo{pdfTeX} or \hologo{LuaTeX}. -% In \hologo{XeTeX} the -% primitive is called \cs{primitive}. Despite the current definition -% of the command \csi{cmd}, it's meaning as primitive is used. -% -% \begin{declcs}{pdf@ifprimitive} \csi{cmd} -% \end{declcs} -% Same as \cs{ifpdfprimitive} in \hologo{pdfTeX} or -% \hologo{LuaTeX}. \hologo{XeTeX} calls -% it \cs{ifprimitive}. It is a switch that checks if the command -% \csi{cmd} has it's primitive meaning. -% -% \subsubsection{Additional macro: \cs{pdf@isprimitive}} -% -% \begin{declcs}{pdf@isprimitive} \csi{cmd1} \csi{cmd2} \M{true} \M{false} -% \end{declcs} -% If \csi{cmd1} has the primitive meaning given by the primitive name -% of \csi{cmd2}, then the argument \meta{true} is executed, otherwise -% \meta{false}. The macro \cs{pdf@isprimitive} is expandable. -% Internally it checks the result of \cs{meaning} and is therefore -% available for all \hologo{TeX} variants, even the original \hologo{TeX}. -% Example with \hologo{LaTeX}: -%\begin{quote} -%\begin{verbatim} -%\makeatletter -%\pdf@isprimitive{@@input}{input}{% -% \typeout{\string\@@input\space is original\string\input}% -%}{% -% \typeout{Oops, \string\@@input\space is not the % -% original\string\input}% -%} -%\end{verbatim} -%\end{quote} -% -% \subsubsection{Experimental} -% -% \begin{declcs}{pdf@unescapehexnative} \M{string}\\ -% \cs{pdf@escapehexnative} \M{string}\\ -% \cs{pdf@escapenamenative} \M{string}\\ -% \cs{pdf@mdfivesumnative} \M{string} -% \end{declcs} -% The variants without |native| in the macro name are supposed to -% be compatible with \hologo{pdfTeX}. However characters with more than -% eight bits are not supported and are ignored. If \hologo{LuaTeX} is -% running, then its UTF-8 coded strings are used. Thus the full -% unicode character range is supported. However the result -% differs from \hologo{pdfTeX} for characters with eight or more bits. -% -% \begin{declcs}{pdf@pipe} \M{cmdline} -% \end{declcs} -% It calls \meta{cmdline} and returns the output of the external -% program in the usual manner as byte string (catcode 12, space with -% catcode 10). The Lua documentation says, that the used |io.popen| -% may not be available on all platforms. Then macro \cs{pdf@pipe} -% is undefined. -% -% \StopEventually{ -% } -% -% \section{Implementation} -% -% \begin{macrocode} -%<*package> -% \end{macrocode} -% -% \subsection{Reload check and package identification} -% Reload check, especially if the package is not used with \LaTeX. -% \begin{macrocode} -\begingroup\catcode61\catcode48\catcode32=10\relax% - \catcode13=5 % ^^M - \endlinechar=13 % - \catcode35=6 % # - \catcode39=12 % ' - \catcode44=12 % , - \catcode45=12 % - - \catcode46=12 % . - \catcode58=12 % : - \catcode64=11 % @ - \catcode123=1 % { - \catcode125=2 % } - \expandafter\let\expandafter\x\csname ver@pdftexcmds.sty\endcsname - \ifx\x\relax % plain-TeX, first loading - \else - \def\empty{}% - \ifx\x\empty % LaTeX, first loading, - % variable is initialized, but \ProvidesPackage not yet seen - \else - \expandafter\ifx\csname PackageInfo\endcsname\relax - \def\x#1#2{% - \immediate\write-1{Package #1 Info: #2.}% - }% - \else - \def\x#1#2{\PackageInfo{#1}{#2, stopped}}% - \fi - \x{pdftexcmds}{The package is already loaded}% - \aftergroup\endinput - \fi - \fi -\endgroup% -% \end{macrocode} -% Package identification: -% \begin{macrocode} -\begingroup\catcode61\catcode48\catcode32=10\relax% - \catcode13=5 % ^^M - \endlinechar=13 % - \catcode35=6 % # - \catcode39=12 % ' - \catcode40=12 % ( - \catcode41=12 % ) - \catcode44=12 % , - \catcode45=12 % - - \catcode46=12 % . - \catcode47=12 % / - \catcode58=12 % : - \catcode64=11 % @ - \catcode91=12 % [ - \catcode93=12 % ] - \catcode123=1 % { - \catcode125=2 % } - \expandafter\ifx\csname ProvidesPackage\endcsname\relax - \def\x#1#2#3[#4]{\endgroup - \immediate\write-1{Package: #3 #4}% - \xdef#1{#4}% - }% - \else - \def\x#1#2[#3]{\endgroup - #2[{#3}]% - \ifx#1\@undefined - \xdef#1{#3}% - \fi - \ifx#1\relax - \xdef#1{#3}% - \fi - }% - \fi -\expandafter\x\csname ver@pdftexcmds.sty\endcsname -\ProvidesPackage{pdftexcmds}% - [2020-06-27 v0.33 Utility functions of pdfTeX for LuaTeX (HO)]% -% \end{macrocode} -% -% \subsection{Catcodes} -% -% \begin{macrocode} -\begingroup\catcode61\catcode48\catcode32=10\relax% - \catcode13=5 % ^^M - \endlinechar=13 % - \catcode123=1 % { - \catcode125=2 % } - \catcode64=11 % @ - \def\x{\endgroup - \expandafter\edef\csname pdftexcmds@AtEnd\endcsname{% - \endlinechar=\the\endlinechar\relax - \catcode13=\the\catcode13\relax - \catcode32=\the\catcode32\relax - \catcode35=\the\catcode35\relax - \catcode61=\the\catcode61\relax - \catcode64=\the\catcode64\relax - \catcode123=\the\catcode123\relax - \catcode125=\the\catcode125\relax - }% - }% -\x\catcode61\catcode48\catcode32=10\relax% -\catcode13=5 % ^^M -\endlinechar=13 % -\catcode35=6 % # -\catcode64=11 % @ -\catcode123=1 % { -\catcode125=2 % } -\def\TMP@EnsureCode#1#2{% - \edef\pdftexcmds@AtEnd{% - \pdftexcmds@AtEnd - \catcode#1=\the\catcode#1\relax - }% - \catcode#1=#2\relax -} -\TMP@EnsureCode{0}{12}% -\TMP@EnsureCode{1}{12}% -\TMP@EnsureCode{2}{12}% -\TMP@EnsureCode{10}{12}% ^^J -\TMP@EnsureCode{33}{12}% ! -\TMP@EnsureCode{34}{12}% " -\TMP@EnsureCode{38}{4}% & -\TMP@EnsureCode{39}{12}% ' -\TMP@EnsureCode{40}{12}% ( -\TMP@EnsureCode{41}{12}% ) -\TMP@EnsureCode{42}{12}% * -\TMP@EnsureCode{43}{12}% + -\TMP@EnsureCode{44}{12}% , -\TMP@EnsureCode{45}{12}% - -\TMP@EnsureCode{46}{12}% . -\TMP@EnsureCode{47}{12}% / -\TMP@EnsureCode{58}{12}% : -\TMP@EnsureCode{60}{12}% < -\TMP@EnsureCode{62}{12}% > -\TMP@EnsureCode{91}{12}% [ -\TMP@EnsureCode{93}{12}% ] -\TMP@EnsureCode{94}{7}% ^ (superscript) -\TMP@EnsureCode{95}{12}% _ (other) -\TMP@EnsureCode{96}{12}% ` -\TMP@EnsureCode{126}{12}% ~ (other) -\edef\pdftexcmds@AtEnd{% - \pdftexcmds@AtEnd - \escapechar=\number\escapechar\relax - \noexpand\endinput -} -\escapechar=92 % -% \end{macrocode} -% -% \subsection{Load packages} -% -% \begin{macrocode} -\begingroup\expandafter\expandafter\expandafter\endgroup -\expandafter\ifx\csname RequirePackage\endcsname\relax - \def\TMP@RequirePackage#1[#2]{% - \begingroup\expandafter\expandafter\expandafter\endgroup - \expandafter\ifx\csname ver@#1.sty\endcsname\relax - \input #1.sty\relax - \fi - }% - \TMP@RequirePackage{infwarerr}[2007/09/09]% - \TMP@RequirePackage{iftex}[2019/11/07]%% - \TMP@RequirePackage{ltxcmds}[2010/12/02]% -\else - \RequirePackage{infwarerr}[2007/09/09]% - \RequirePackage{iftex}[2019/11/07]% - \RequirePackage{ltxcmds}[2010/12/02]% -\fi -% \end{macrocode} -% -% \subsection{Without \hologo{LuaTeX}} -% -% \begin{macrocode} -\ifluatex - \ifcsname catcodetable@string\endcsname\else\input{ltluatex}\fi -\else - \def\pdftexcmds@nopdftex{% - \let\pdftexcmds@nopdftex\relax - }% - \def\pdftexcmds@temp#1{% - \begingroup\expandafter\expandafter\expandafter\endgroup - \expandafter\ifx\csname - \expandafter\ifx\csname pdf#1\endcsname\relax\else pdf\fi#1\endcsname\relax - \pdftexcmds@nopdftex - \else - \expandafter\def\csname pdf@#1\expandafter\endcsname - \expandafter{% - \csname\expandafter\ifx\csname pdf#1\endcsname\relax\else pdf\fi#1\endcsname - }% - \fi - }% - \pdftexcmds@temp{strcmp}% - \pdftexcmds@temp{escapehex}% - \let\pdf@escapehexnative\pdf@escapehex - \pdftexcmds@temp{unescapehex}% - \let\pdf@unescapehexnative\pdf@unescapehex - \pdftexcmds@temp{escapestring}% - \pdftexcmds@temp{escapename}% - \pdftexcmds@temp{filesize}% - \pdftexcmds@temp{filemoddate}% - \begingroup\expandafter\expandafter\expandafter\endgroup - \expandafter\ifx\csname pdfshellescape\endcsname\relax - \pdftexcmds@nopdftex - \ltx@IfUndefined{pdftexversion}{% - }{% - \ifnum\pdftexversion>120 % 1.21a supports \ifeof18 - \ifeof18 % - \chardef\pdf@shellescape=0 % - \else - \chardef\pdf@shellescape=1 % - \fi - \fi - }% - \else - \def\pdf@shellescape{% - \pdfshellescape - }% - \fi - \begingroup\expandafter\expandafter\expandafter\endgroup - \expandafter\ifx\csname pdffiledump\endcsname\relax - \pdftexcmds@nopdftex - \else - \def\pdf@filedump#1#2#3{% - \pdffiledump offset#1 length#2{#3}% - }% - \fi -% \end{macrocode} -% \begin{macrocode} - \begingroup\expandafter\expandafter\expandafter\endgroup - \expandafter\ifx\csname pdfmdfivesum\endcsname\relax - \begingroup\expandafter\expandafter\expandafter\endgroup - \expandafter\ifx\csname mdfivesum\endcsname\relax - \pdftexcmds@nopdftex - \else - \def\pdf@mdfivesum#{\mdfivesum}% - \let\pdf@mdfivesumnative\pdf@mdfivesum - \def\pdf@filemdfivesum#{\mdfivesum file}% - \fi - \else - \def\pdf@mdfivesum#{\pdfmdfivesum}% - \let\pdf@mdfivesumnative\pdf@mdfivesum - \def\pdf@filemdfivesum#{\pdfmdfivesum file}% - \fi -% \end{macrocode} -% \begin{macrocode} - \def\pdf@system#{% - \immediate\write18% - }% - \def\pdftexcmds@temp#1{% - \begingroup\expandafter\expandafter\expandafter\endgroup - \expandafter\ifx\csname - \expandafter\ifx\csname pdf#1\endcsname\relax\else pdf\fi#1\endcsname\relax - \pdftexcmds@nopdftex - \else - \begingroup\expandafter\expandafter\expandafter\endgroup - \expandafter\let\csname pdf@#1\expandafter\endcsname - \csname\expandafter\ifx\csname pdf#1\endcsname\relax\else pdf\fi#1\endcsname - \fi - }% - \pdftexcmds@temp{resettimer}% - \pdftexcmds@temp{elapsedtime}% -\fi -% \end{macrocode} -% -% \subsection{\cs{pdf@primitive}, \cs{pdf@ifprimitive}} -% -% Since version 1.40.0 \hologo{pdfTeX} has \cs{pdfprimitive} and -% \cs{ifpdfprimitive}. And \cs{pdfprimitive} was fixed in -% version 1.40.4. -% -% \hologo{XeTeX} provides them under the name \cs{primitive} and -% \cs{ifprimitive}. \hologo{LuaTeX} knows both name variants, -% but they have possibly to be enabled first (|tex.enableprimitives|). -% -% Depending on the format TeX Live uses a prefix |luatex|. -% -% Caution: \cs{let} must be used for the definition of -% the macros, especially because of \cs{ifpdfprimitive}. -% -% \subsubsection{Using \hologo{LuaTeX}'s \texttt{tex.enableprimitives}} -% -% \begin{macrocode} -\ifluatex -% \end{macrocode} -% \begin{macro}{\pdftexcmds@directlua} -% \begin{macrocode} - \ifnum\luatexversion<36 % - \def\pdftexcmds@directlua{\directlua0 }% - \else - \let\pdftexcmds@directlua\directlua - \fi -% \end{macrocode} -% \end{macro} -% -% \begin{macrocode} - \begingroup - \newlinechar=10 % - \endlinechar=\newlinechar - \pdftexcmds@directlua{% - if tex.enableprimitives then - tex.enableprimitives( - 'pdf@', - {'primitive', 'ifprimitive', 'pdfdraftmode','draftmode'} - ) - tex.enableprimitives('', {'luaescapestring'}) - end - }% - \endgroup % -% \end{macrocode} -% -% \begin{macrocode} -\fi -% \end{macrocode} -% -% \subsubsection{Trying various names to find the primitives} -% -% \begin{macro}{\pdftexcmds@strip@prefix} -% \begin{macrocode} -\def\pdftexcmds@strip@prefix#1>{} -% \end{macrocode} -% \end{macro} -% \begin{macrocode} -\def\pdftexcmds@temp#1#2#3{% - \begingroup\expandafter\expandafter\expandafter\endgroup - \expandafter\ifx\csname pdf@#1\endcsname\relax - \begingroup - \def\x{#3}% - \edef\x{\expandafter\pdftexcmds@strip@prefix\meaning\x}% - \escapechar=-1 % - \edef\y{\expandafter\meaning\csname#2\endcsname}% - \expandafter\endgroup - \ifx\x\y - \expandafter\let\csname pdf@#1\expandafter\endcsname - \csname #2\endcsname - \fi - \fi -} -% \end{macrocode} -% -% \begin{macro}{\pdf@primitive} -% \begin{macrocode} -\pdftexcmds@temp{primitive}{pdfprimitive}{pdfprimitive}% pdfTeX, oldLuaTeX -\pdftexcmds@temp{primitive}{primitive}{primitive}% XeTeX, luatex -\pdftexcmds@temp{primitive}{luatexprimitive}{pdfprimitive}% oldLuaTeX -\pdftexcmds@temp{primitive}{luatexpdfprimitive}{pdfprimitive}% oldLuaTeX -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdf@ifprimitive} -% \begin{macrocode} -\pdftexcmds@temp{ifprimitive}{ifpdfprimitive}{ifpdfprimitive}% pdfTeX, oldLuaTeX -\pdftexcmds@temp{ifprimitive}{ifprimitive}{ifprimitive}% XeTeX, luatex -\pdftexcmds@temp{ifprimitive}{luatexifprimitive}{ifpdfprimitive}% oldLuaTeX -\pdftexcmds@temp{ifprimitive}{luatexifpdfprimitive}{ifpdfprimitive}% oldLuaTeX -% \end{macrocode} -% \end{macro} -% -% Disable broken \cs{pdfprimitive}. -% \begin{macrocode} -\ifluatex\else -\begingroup - \expandafter\ifx\csname pdf@primitive\endcsname\relax - \else - \expandafter\ifx\csname pdftexversion\endcsname\relax - \else - \ifnum\pdftexversion=140 % - \expandafter\ifx\csname pdftexrevision\endcsname\relax - \else - \ifnum\pdftexrevision<4 % - \endgroup - \let\pdf@primitive\@undefined - \@PackageInfoNoLine{pdftexcmds}{% - \string\pdf@primitive\space disabled, % - because\MessageBreak - \string\pdfprimitive\space is broken until pdfTeX 1.40.4% - }% - \begingroup - \fi - \fi - \fi - \fi - \fi -\endgroup -\fi -% \end{macrocode} -% -% \subsubsection{Result} -% -% \begin{macrocode} -\begingroup - \@PackageInfoNoLine{pdftexcmds}{% - \string\pdf@primitive\space is % - \expandafter\ifx\csname pdf@primitive\endcsname\relax not \fi - available% - }% - \@PackageInfoNoLine{pdftexcmds}{% - \string\pdf@ifprimitive\space is % - \expandafter\ifx\csname pdf@ifprimitive\endcsname\relax not \fi - available% - }% -\endgroup -% \end{macrocode} -% -% \subsection{\hologo{XeTeX}} -% -% Look for primitives \cs{shellescape}, \cs{strcmp}. -% \begin{macrocode} -\def\pdftexcmds@temp#1{% - \begingroup\expandafter\expandafter\expandafter\endgroup - \expandafter\ifx\csname pdf@#1\endcsname\relax - \begingroup - \escapechar=-1 % - \edef\x{\expandafter\meaning\csname#1\endcsname}% - \def\y{#1}% - \def\z##1->{}% - \edef\y{\expandafter\z\meaning\y}% - \expandafter\endgroup - \ifx\x\y - \expandafter\def\csname pdf@#1\expandafter\endcsname - \expandafter{% - \csname#1\endcsname - }% - \fi - \fi -}% -\pdftexcmds@temp{shellescape}% -\pdftexcmds@temp{strcmp}% -% \end{macrocode} -% -% \subsection{\cs{pdf@isprimitive}} -% -% \begin{macrocode} -\def\pdf@isprimitive{% - \begingroup\expandafter\expandafter\expandafter\endgroup - \expandafter\ifx\csname pdf@strcmp\endcsname\relax - \long\def\pdf@isprimitive##1{% - \expandafter\pdftexcmds@isprimitive\expandafter{\meaning##1}% - }% - \long\def\pdftexcmds@isprimitive##1##2{% - \expandafter\pdftexcmds@@isprimitive\expandafter{\string##2}{##1}% - }% - \def\pdftexcmds@@isprimitive##1##2{% - \ifnum0\pdftexcmds@equal##1\delimiter##2\delimiter=1 % - \expandafter\ltx@firstoftwo - \else - \expandafter\ltx@secondoftwo - \fi - }% - \def\pdftexcmds@equal##1##2\delimiter##3##4\delimiter{% - \ifx##1##3% - \ifx\relax##2##4\relax - 1% - \else - \ifx\relax##2\relax - \else - \ifx\relax##4\relax - \else - \pdftexcmds@equalcont{##2}{##4}% - \fi - \fi - \fi - \fi - }% - \def\pdftexcmds@equalcont##1{% - \def\pdftexcmds@equalcont####1####2##1##1##1##1{% - ##1##1##1##1% - \pdftexcmds@equal####1\delimiter####2\delimiter - }% - }% - \expandafter\pdftexcmds@equalcont\csname fi\endcsname - \else - \long\def\pdf@isprimitive##1##2{% - \ifnum\pdf@strcmp{\meaning##1}{\string##2}=0 % - \expandafter\ltx@firstoftwo - \else - \expandafter\ltx@secondoftwo - \fi - }% - \fi -} -\ifluatex -\ifx\pdfdraftmode\@undefined - \let\pdfdraftmode\draftmode -\fi -\else - \pdf@isprimitive -\fi -% \end{macrocode} -% -% \subsection{\cs{pdf@draftmode}} -% -% -% \begin{macrocode} -\let\pdftexcmds@temp\ltx@zero % -\ltx@IfUndefined{pdfdraftmode}{% - \@PackageInfoNoLine{pdftexcmds}{\ltx@backslashchar pdfdraftmode not found}% -}{% - \ifpdf - \let\pdftexcmds@temp\ltx@one - \@PackageInfoNoLine{pdftexcmds}{\ltx@backslashchar pdfdraftmode found}% - \else - \@PackageInfoNoLine{pdftexcmds}{% - \ltx@backslashchar pdfdraftmode is ignored in DVI mode% - }% - \fi -} -\ifcase\pdftexcmds@temp -% \end{macrocode} -% \begin{macro}{\pdf@draftmode} -% \begin{macrocode} - \let\pdf@draftmode\ltx@zero -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdf@ifdraftmode} -% \begin{macrocode} - \let\pdf@ifdraftmode\ltx@secondoftwo -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdftexcmds@setdraftmode} -% \begin{macrocode} - \def\pdftexcmds@setdraftmode#1{}% -% \end{macrocode} -% \end{macro} -% \begin{macrocode} -\else -% \end{macrocode} -% \begin{macro}{\pdftexcmds@draftmode} -% \begin{macrocode} - \let\pdftexcmds@draftmode\pdfdraftmode -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdf@ifdraftmode} -% \begin{macrocode} - \def\pdf@ifdraftmode{% - \ifnum\pdftexcmds@draftmode=\ltx@one - \expandafter\ltx@firstoftwo - \else - \expandafter\ltx@secondoftwo - \fi - }% -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdf@draftmode} -% \begin{macrocode} - \def\pdf@draftmode{% - \ifnum\pdftexcmds@draftmode=\ltx@one - \expandafter\ltx@one - \else - \expandafter\ltx@zero - \fi - }% -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdftexcmds@setdraftmode} -% \begin{macrocode} - \def\pdftexcmds@setdraftmode#1{% - \pdftexcmds@draftmode=#1\relax - }% -% \end{macrocode} -% \end{macro} -% \begin{macrocode} -\fi -% \end{macrocode} -% \begin{macro}{\pdf@setdraftmode} -% \begin{macrocode} -\def\pdf@setdraftmode#1{% - \begingroup - \count\ltx@cclv=#1\relax - \edef\x{\endgroup - \noexpand\pdftexcmds@@setdraftmode{\the\count\ltx@cclv}% - }% - \x -} -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdftexcmds@@setdraftmode} -% \begin{macrocode} -\def\pdftexcmds@@setdraftmode#1{% - \ifcase#1 % - \pdftexcmds@setdraftmode{#1}% - \or - \pdftexcmds@setdraftmode{#1}% - \else - \@PackageWarning{pdftexcmds}{% - \string\pdf@setdraftmode: Ignoring\MessageBreak - invalid value `#1'% - }% - \fi -} -% \end{macrocode} -% \end{macro} -% -% \subsection{Load Lua module} -% -% \begin{macrocode} -\ifluatex -\else - \expandafter\pdftexcmds@AtEnd -\fi% -% \end{macrocode} -% -% \begin{macrocode} -\pdftexcmds@directlua{% - require("pdftexcmds")% -} -\ifnum\luatexversion>37 % - \ifnum0% - \pdftexcmds@directlua{% - if status.ini_version then % - tex.write("1")% - end% - }>0 % - \everyjob\expandafter{% - \the\everyjob - \pdftexcmds@directlua{% - require("pdftexcmds")% - }% - }% - \fi -\fi -\begingroup - \def\x{2020-06-27 v0.33}% - \ltx@onelevel@sanitize\x - \edef\y{% - \pdftexcmds@directlua{% - if oberdiek.pdftexcmds.getversion then % - oberdiek.pdftexcmds.getversion()% - end% - }% - }% - \ifx\x\y - \else - \@PackageError{pdftexcmds}{% - Wrong version of lua module.\MessageBreak - Package version: \x\MessageBreak - Lua module: \y - }\@ehc - \fi -\endgroup -% \end{macrocode} -% -% \subsection{Lua functions} -% -% \subsubsection{Helper macros} -% -% \begin{macro}{\pdftexcmds@toks} -% \begin{macrocode} -\begingroup\expandafter\expandafter\expandafter\endgroup -\expandafter\ifx\csname newtoks\endcsname\relax - \toksdef\pdftexcmds@toks=0 % -\else - \csname newtoks\endcsname\pdftexcmds@toks -\fi -% \end{macrocode} -% \end{macro} -% -% \begin{macro}{\pdftexcmds@Patch} -% \begin{macrocode} -\def\pdftexcmds@Patch{0} -\ifnum\luatexversion>40 % - \ifnum\luatexversion<66 % - \def\pdftexcmds@Patch{1}% - \fi -\fi -% \end{macrocode} -% \end{macro} -% \begin{macrocode} -\ifcase\pdftexcmds@Patch - \catcode`\&=14 % -\else - \catcode`\&=9 % -% \end{macrocode} -% \begin{macro}{\pdftexcmds@PatchDecode} -% \begin{macrocode} - \def\pdftexcmds@PatchDecode#1\@nil{% - \pdftexcmds@DecodeA#1^^A^^A\@nil{}% - }% -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdftexcmds@DecodeA} -% \begin{macrocode} - \def\pdftexcmds@DecodeA#1^^A^^A#2\@nil#3{% - \ifx\relax#2\relax - \ltx@ReturnAfterElseFi{% - \pdftexcmds@DecodeB#3#1^^A^^B\@nil{}% - }% - \else - \ltx@ReturnAfterFi{% - \pdftexcmds@DecodeA#2\@nil{#3#1^^@}% - }% - \fi - }% -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdftexcmds@DecodeB} -% \begin{macrocode} - \def\pdftexcmds@DecodeB#1^^A^^B#2\@nil#3{% - \ifx\relax#2\relax% - \ltx@ReturnAfterElseFi{% - \ltx@zero - #3#1% - }% - \else - \ltx@ReturnAfterFi{% - \pdftexcmds@DecodeB#2\@nil{#3#1^^A}% - }% - \fi - }% -% \end{macrocode} -% \end{macro} -% \begin{macrocode} -\fi -% \end{macrocode} -% -% \begin{macrocode} -\ifnum\luatexversion<36 % -\else - \catcode`\0=9 % -\fi -% \end{macrocode} -% -% \subsubsection[Strings]{Strings \cite[``7.15 Strings'']{pdftex-manual}} -% -% \begin{macro}{\pdf@strcmp} -% \begin{macrocode} -\long\def\pdf@strcmp#1#2{% - \directlua0{% - oberdiek.pdftexcmds.strcmp("\luaescapestring{#1}",% - "\luaescapestring{#2}")% - }% -}% -% \end{macrocode} -% \end{macro} -% \begin{macrocode} -\pdf@isprimitive -% \end{macrocode} -% \begin{macro}{\pdf@escapehex} -% \begin{macrocode} -\long\def\pdf@escapehex#1{% - \directlua0{% - oberdiek.pdftexcmds.escapehex("\luaescapestring{#1}", "byte")% - }% -}% -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdf@escapehexnative} -% \begin{macrocode} -\long\def\pdf@escapehexnative#1{% - \directlua0{% - oberdiek.pdftexcmds.escapehex("\luaescapestring{#1}")% - }% -}% -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdf@unescapehex} -% \begin{macrocode} -\def\pdf@unescapehex#1{% -& \romannumeral\expandafter\pdftexcmds@PatchDecode - \the\expandafter\pdftexcmds@toks - \directlua0{% - oberdiek.pdftexcmds.toks="pdftexcmds@toks"% - oberdiek.pdftexcmds.unescapehex("\luaescapestring{#1}", "byte", \pdftexcmds@Patch)% - }% -& \@nil -}% -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdf@unescapehexnative} -% \begin{macrocode} -\def\pdf@unescapehexnative#1{% -& \romannumeral\expandafter\pdftexcmds@PatchDecode - \the\expandafter\pdftexcmds@toks - \directlua0{% - oberdiek.pdftexcmds.toks="pdftexcmds@toks"% - oberdiek.pdftexcmds.unescapehex("\luaescapestring{#1}", \pdftexcmds@Patch)% - }% -& \@nil -}% -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdf@escapestring} -% \begin{macrocode} -\long\def\pdf@escapestring#1{% - \directlua0{% - oberdiek.pdftexcmds.escapestring("\luaescapestring{#1}")% - }% -} -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdf@escapename} -% \begin{macrocode} -\long\def\pdf@escapename#1{% - \directlua0{% - oberdiek.pdftexcmds.escapename("\luaescapestring{#1}", "byte")% - }% -} -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdf@escapenamenative} -% \begin{macrocode} -\long\def\pdf@escapenamenative#1{% - \directlua0{% - oberdiek.pdftexcmds.escapename("\luaescapestring{#1}")% - }% -} -% \end{macrocode} -% \end{macro} -% -% \subsubsection[Files]{Files \cite[``7.18 Files'']{pdftex-manual}} -% -% \begin{macro}{\pdf@filesize} -% \begin{macrocode} -\def\pdf@filesize#1{% - \directlua0{% - oberdiek.pdftexcmds.filesize("\luaescapestring{#1}")% - }% -} -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdf@filemoddate} -% \begin{macrocode} -\def\pdf@filemoddate#1{% - \directlua0{% - oberdiek.pdftexcmds.filemoddate("\luaescapestring{#1}")% - }% -} -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdf@filedump} -% \begin{macrocode} -\def\pdf@filedump#1#2#3{% - \directlua0{% - oberdiek.pdftexcmds.filedump("\luaescapestring{\number#1}",% - "\luaescapestring{\number#2}",% - "\luaescapestring{#3}")% - }% -}% -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdf@mdfivesum} -% \begin{macrocode} -\long\def\pdf@mdfivesum#1{% - \directlua0{% - oberdiek.pdftexcmds.mdfivesum("\luaescapestring{#1}", "byte")% - }% -}% -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdf@mdfivesumnative} -% \begin{macrocode} -\long\def\pdf@mdfivesumnative#1{% - \directlua0{% - oberdiek.pdftexcmds.mdfivesum("\luaescapestring{#1}")% - }% -}% -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdf@filemdfivesum} -% \begin{macrocode} -\def\pdf@filemdfivesum#1{% - \directlua0{% - oberdiek.pdftexcmds.filemdfivesum("\luaescapestring{#1}")% - }% -}% -% \end{macrocode} -% \end{macro} -% -% \subsubsection[Timekeeping]{Timekeeping \cite[``7.17 Timekeeping'']{pdftex-manual}} -% -% \begin{macro}{\protected} -% \begin{macrocode} -\let\pdftexcmds@temp=Y% -\begingroup\expandafter\expandafter\expandafter\endgroup -\expandafter\ifx\csname protected\endcsname\relax - \pdftexcmds@directlua0{% - if tex.enableprimitives then % - tex.enableprimitives('', {'protected'})% - end% - }% -\fi -\begingroup\expandafter\expandafter\expandafter\endgroup -\expandafter\ifx\csname protected\endcsname\relax - \let\pdftexcmds@temp=N% -\fi -% \end{macrocode} -% \end{macro} -% \begin{macro}{\numexpr} -% \begin{macrocode} -\begingroup\expandafter\expandafter\expandafter\endgroup -\expandafter\ifx\csname numexpr\endcsname\relax - \pdftexcmds@directlua0{% - if tex.enableprimitives then % - tex.enableprimitives('', {'numexpr'})% - end% - }% -\fi -\begingroup\expandafter\expandafter\expandafter\endgroup -\expandafter\ifx\csname numexpr\endcsname\relax - \let\pdftexcmds@temp=N% -\fi -% \end{macrocode} -% \end{macro} -% -% \begin{macrocode} -\ifx\pdftexcmds@temp N% - \@PackageWarningNoLine{pdftexcmds}{% - Definitions of \ltx@backslashchar pdf@resettimer and% - \MessageBreak - \ltx@backslashchar pdf@elapsedtime are skipped, because% - \MessageBreak - e-TeX's \ltx@backslashchar protected or % - \ltx@backslashchar numexpr are missing% - }% -\else -% \end{macrocode} -% -% \begin{macro}{\pdf@resettimer} -% \begin{macrocode} - \protected\def\pdf@resettimer{% - \pdftexcmds@directlua0{% - oberdiek.pdftexcmds.resettimer()% - }% - }% -% \end{macrocode} -% \end{macro} -% -% \begin{macro}{\pdf@elapsedtime} -% \begin{macrocode} - \protected\def\pdf@elapsedtime{% - \numexpr - \pdftexcmds@directlua0{% - oberdiek.pdftexcmds.elapsedtime()% - }% - \relax - }% -% \end{macrocode} -% \end{macro} -% \begin{macrocode} -\fi -% \end{macrocode} -% -% \subsubsection{Shell escape} -% -% \begin{macro}{\pdf@shellescape} -% -% \begin{macrocode} -\ifnum\luatexversion<68 % -\else - \protected\edef\pdf@shellescape{% - \numexpr\directlua{tex.sprint(% - \number\catcodetable@string,status.shell_escape)}\relax} -\fi -% \end{macrocode} -% \end{macro} -% -% \begin{macro}{\pdf@system} -% \begin{macrocode} -\def\pdf@system#1{% - \directlua0{% - oberdiek.pdftexcmds.system("\luaescapestring{#1}")% - }% -} -% \end{macrocode} -% \end{macro} -% -% \begin{macro}{\pdf@lastsystemstatus} -% \begin{macrocode} -\def\pdf@lastsystemstatus{% - \directlua0{% - oberdiek.pdftexcmds.lastsystemstatus()% - }% -} -% \end{macrocode} -% \end{macro} -% \begin{macro}{\pdf@lastsystemexit} -% \begin{macrocode} -\def\pdf@lastsystemexit{% - \directlua0{% - oberdiek.pdftexcmds.lastsystemexit()% - }% -} -% \end{macrocode} -% \end{macro} -% -% \begin{macrocode} -\catcode`\0=12 % -% \end{macrocode} -% -% \begin{macro}{\pdf@pipe} -% Check availability of |io.popen| first. -% \begin{macrocode} -\ifnum0% - \pdftexcmds@directlua{% - if io.popen then % - tex.write("1")% - end% - }% - =1 % - \def\pdf@pipe#1{% -& \romannumeral\expandafter\pdftexcmds@PatchDecode - \the\expandafter\pdftexcmds@toks - \pdftexcmds@directlua{% - oberdiek.pdftexcmds.toks="pdftexcmds@toks"% - oberdiek.pdftexcmds.pipe("\luaescapestring{#1}", \pdftexcmds@Patch)% - }% -& \@nil - }% -\fi -% \end{macrocode} -% \end{macro} -% -% \begin{macrocode} -\pdftexcmds@AtEnd% -% -% \end{macrocode} -% -% \subsection{Lua module} -% -% \begin{macrocode} -%<*lua> -% \end{macrocode} -% -% \begin{macrocode} -oberdiek = oberdiek or {} -local pdftexcmds = oberdiek.pdftexcmds or {} -oberdiek.pdftexcmds = pdftexcmds -local systemexitstatus -function pdftexcmds.getversion() - tex.write("2020-06-27 v0.33") -end -% \end{macrocode} -% -% \subsubsection[Strings]{Strings \cite[``7.15 Strings'']{pdftex-manual}} -% -% \begin{macrocode} -function pdftexcmds.strcmp(A, B) - if A == B then - tex.write("0") - elseif A < B then - tex.write("-1") - else - tex.write("1") - end -end -local function utf8_to_byte(str) - local i = 0 - local n = string.len(str) - local t = {} - while i < n do - i = i + 1 - local a = string.byte(str, i) - if a < 128 then - table.insert(t, string.char(a)) - else - if a >= 192 and i < n then - i = i + 1 - local b = string.byte(str, i) - if b < 128 or b >= 192 then - i = i - 1 - elseif a == 194 then - table.insert(t, string.char(b)) - elseif a == 195 then - table.insert(t, string.char(b + 64)) - end - end - end - end - return table.concat(t) -end -function pdftexcmds.escapehex(str, mode) - if mode == "byte" then - str = utf8_to_byte(str) - end - tex.write((string.gsub(str, ".", - function (ch) - return string.format("%02X", string.byte(ch)) - end - ))) -end -% \end{macrocode} -% See procedure |unescapehex| in file \xfile{utils.c} of \hologo{pdfTeX}. -% Caution: |tex.write| ignores leading spaces. -% \begin{macrocode} -function pdftexcmds.unescapehex(str, mode, patch) - local a = 0 - local first = true - local result = {} - for i = 1, string.len(str), 1 do - local ch = string.byte(str, i) - if ch >= 48 and ch <= 57 then - ch = ch - 48 - elseif ch >= 65 and ch <= 70 then - ch = ch - 55 - elseif ch >= 97 and ch <= 102 then - ch = ch - 87 - else - ch = nil - end - if ch then - if first then - a = ch * 16 - first = false - else - table.insert(result, a + ch) - first = true - end - end - end - if not first then - table.insert(result, a) - end - if patch == 1 then - local temp = {} - for i, a in ipairs(result) do - if a == 0 then - table.insert(temp, 1) - table.insert(temp, 1) - else - if a == 1 then - table.insert(temp, 1) - table.insert(temp, 2) - else - table.insert(temp, a) - end - end - end - result = temp - end - if mode == "byte" then - local utf8 = {} - for i, a in ipairs(result) do - if a < 128 then - table.insert(utf8, a) - else - if a < 192 then - table.insert(utf8, 194) - a = a - 128 - else - table.insert(utf8, 195) - a = a - 192 - end - table.insert(utf8, a + 128) - end - end - result = utf8 - end -% \end{macrocode} -% this next line added for current luatex; this is the only -% change in the file. eroux, 28apr13. (v 0.21) -% \begin{macrocode} - local unpack = _G["unpack"] or table.unpack - tex.settoks(pdftexcmds.toks, string.char(unpack(result))) -end -% \end{macrocode} -% See procedure |escapestring| in file \xfile{utils.c} of \hologo{pdfTeX}. -% \begin{macrocode} -function pdftexcmds.escapestring(str, mode) - if mode == "byte" then - str = utf8_to_byte(str) - end - tex.write((string.gsub(str, ".", - function (ch) - local b = string.byte(ch) - if b < 33 or b > 126 then - return string.format("\\%.3o", b) - end - if b == 40 or b == 41 or b == 92 then - return "\\" .. ch - end -% \end{macrocode} -% Lua 5.1 returns the match in case of return value |nil|. -% \begin{macrocode} - return nil - end - ))) -end -% \end{macrocode} -% See procedure |escapename| in file \xfile{utils.c} of \hologo{pdfTeX}. -% \begin{macrocode} -function pdftexcmds.escapename(str, mode) - if mode == "byte" then - str = utf8_to_byte(str) - end - tex.write((string.gsub(str, ".", - function (ch) - local b = string.byte(ch) - if b == 0 then -% \end{macrocode} -% In Lua 5.0 |nil| could be used for the empty string, -% But |nil| returns the match in Lua 5.1, thus we use -% the empty string explicitly. -% \begin{macrocode} - return "" - end - if b <= 32 or b >= 127 - or b == 35 or b == 37 or b == 40 or b == 41 - or b == 47 or b == 60 or b == 62 or b == 91 - or b == 93 or b == 123 or b == 125 then - return string.format("#%.2X", b) - else -% \end{macrocode} -% Lua 5.1 returns the match in case of return value |nil|. -% \begin{macrocode} - return nil - end - end - ))) -end -% \end{macrocode} -% -% \subsubsection[Files]{Files \cite[``7.18 Files'']{pdftex-manual}} -% -% \begin{macrocode} -function pdftexcmds.filesize(filename) - local foundfile = kpse.find_file(filename, "tex", true) - if foundfile then - local size = lfs.attributes(foundfile, "size") - if size then - tex.write(size) - end - end -end -% \end{macrocode} -% See procedure |makepdftime| in file \xfile{utils.c} of \hologo{pdfTeX}. -% \begin{macrocode} -function pdftexcmds.filemoddate(filename) - local foundfile = kpse.find_file(filename, "tex", true) - if foundfile then - local date = lfs.attributes(foundfile, "modification") - if date then - local d = os.date("*t", date) - if d.sec >= 60 then - d.sec = 59 - end - local u = os.date("!*t", date) - local off = 60 * (d.hour - u.hour) + d.min - u.min - if d.year ~= u.year then - if d.year > u.year then - off = off + 1440 - else - off = off - 1440 - end - elseif d.yday ~= u.yday then - if d.yday > u.yday then - off = off + 1440 - else - off = off - 1440 - end - end - local timezone - if off == 0 then - timezone = "Z" - else - local hours = math.floor(off / 60) - local mins = math.abs(off - hours * 60) - timezone = string.format("%+03d'%02d'", hours, mins) - end - tex.write(string.format("D:%04d%02d%02d%02d%02d%02d%s", - d.year, d.month, d.day, d.hour, d.min, d.sec, timezone)) - end - end -end -function pdftexcmds.filedump(offset, length, filename) - length = tonumber(length) - if length and length > 0 then - local foundfile = kpse.find_file(filename, "tex", true) - if foundfile then - offset = tonumber(offset) - if not offset then - offset = 0 - end - local filehandle = io.open(foundfile, "rb") - if filehandle then - if offset > 0 then - filehandle:seek("set", offset) - end - local dump = filehandle:read(length) - pdftexcmds.escapehex(dump) - filehandle:close() - end - end - end -end -function pdftexcmds.mdfivesum(str, mode) - if mode == "byte" then - str = utf8_to_byte(str) - end - pdftexcmds.escapehex(md5.sum(str)) -end -function pdftexcmds.filemdfivesum(filename) - local foundfile = kpse.find_file(filename, "tex", true) - if foundfile then - local filehandle = io.open(foundfile, "rb") - if filehandle then - local contents = filehandle:read("*a") - pdftexcmds.escapehex(md5.sum(contents)) - filehandle:close() - end - end -end -% \end{macrocode} -% -% \subsubsection[Timekeeping]{Timekeeping \cite[``7.17 Timekeeping'']{pdftex-manual}} -% -% The functions for timekeeping are based on -% Andy Thomas' work \cite{AndyThomas:Analog}. -% Changes: -% \begin{itemize} -% \item Overflow check is added. -% \item |string.format| is used to avoid exponential number -% representation for sure. -% \item |tex.write| is used instead of |tex.print| to get -% tokens with catcode 12 and without appended \cs{endlinechar}. -% \end{itemize} -% \begin{macrocode} -local basetime = 0 -function pdftexcmds.resettimer() - basetime = os.clock() -end -function pdftexcmds.elapsedtime() - local val = (os.clock() - basetime) * 65536 + .5 - if val > 2147483647 then - val = 2147483647 - end - tex.write(string.format("%d", math.floor(val))) -end -% \end{macrocode} -% -% \subsubsection[Miscellaneous]{Miscellaneous \cite[``7.21 Miscellaneous'']{pdftex-manual}} -% -% \begin{macrocode} -function pdftexcmds.shellescape() - if os.execute then - if status - and status.luatex_version - and status.luatex_version >= 68 then - tex.write(os.execute()) - else - local result = os.execute() - if result == 0 then - tex.write("0") - else - if result == nil then - tex.write("0") - else - tex.write("1") - end - end - end - else - tex.write("0") - end -end -function pdftexcmds.system(cmdline) - systemexitstatus = nil - texio.write_nl("log", "system(" .. cmdline .. ") ") - if os.execute then - texio.write("log", "executed.") - systemexitstatus = os.execute(cmdline) - else - texio.write("log", "disabled.") - end -end -function pdftexcmds.lastsystemstatus() - local result = tonumber(systemexitstatus) - if result then - local x = math.floor(result / 256) - tex.write(result - 256 * math.floor(result / 256)) - end -end -function pdftexcmds.lastsystemexit() - local result = tonumber(systemexitstatus) - if result then - tex.write(math.floor(result / 256)) - end -end -function pdftexcmds.pipe(cmdline, patch) - local result - systemexitstatus = nil - texio.write_nl("log", "pipe(" .. cmdline ..") ") - if io.popen then - texio.write("log", "executed.") - local handle = io.popen(cmdline, "r") - if handle then - result = handle:read("*a") - handle:close() - end - else - texio.write("log", "disabled.") - end - if result then - if patch == 1 then - local temp = {} - for i, a in ipairs(result) do - if a == 0 then - table.insert(temp, 1) - table.insert(temp, 1) - else - if a == 1 then - table.insert(temp, 1) - table.insert(temp, 2) - else - table.insert(temp, a) - end - end - end - result = temp - end - tex.settoks(pdftexcmds.toks, result) - else - tex.settoks(pdftexcmds.toks, "") - end -end -% \end{macrocode} -% \begin{macrocode} -% -% \end{macrocode} -% \section{Installation} -% -% \subsection{Download} -% -% \paragraph{Package.} This package is available on -% CTAN\footnote{\CTANpkg{pdftexcmds}}: -% \begin{description} -% \item[\CTAN{macros/latex/contrib/pdftexcmds/pdftexcmds.dtx}] The source file. -% \item[\CTAN{macros/latex/contrib/pdftexcmds/pdftexcmds.pdf}] Documentation. -% \end{description} -% -% \subsection{Package installation} -% -% \paragraph{Unpacking.} The \xfile{.dtx} file is a self-extracting -% \docstrip\ archive. The files are extracted by running the -% \xfile{.dtx} through \plainTeX: -% \begin{quote} -% \verb|tex pdftexcmds.dtx| -% \end{quote} -% -% \paragraph{TDS.} Now the different files must be moved into -% the different directories in your installation TDS tree -% (also known as \xfile{texmf} tree): -% \begin{quote} -% \def\t{^^A -% \begin{tabular}{@{}>{\ttfamily}l@{ $\rightarrow$ }>{\ttfamily}l@{}} -% pdftexcmds.sty & tex/generic/pdftexcmds/pdftexcmds.sty\\ -% pdftexcmds.lua & tex/generic/pdftexcmds/pdftexcmds.lua\\ -% pdftexcmds.pdf & doc/latex/pdftexcmds/pdftexcmds.pdf\\ -% pdftexcmds.dtx & source/latex/pdftexcmds/pdftexcmds.dtx\\ -% \end{tabular}^^A -% }^^A -% \sbox0{\t}^^A -% \ifdim\wd0>\linewidth -% \begingroup -% \advance\linewidth by\leftmargin -% \advance\linewidth by\rightmargin -% \edef\x{\endgroup -% \def\noexpand\lw{\the\linewidth}^^A -% }\x -% \def\lwbox{^^A -% \leavevmode -% \hbox to \linewidth{^^A -% \kern-\leftmargin\relax -% \hss -% \usebox0 -% \hss -% \kern-\rightmargin\relax -% }^^A -% }^^A -% \ifdim\wd0>\lw -% \sbox0{\small\t}^^A -% \ifdim\wd0>\linewidth -% \ifdim\wd0>\lw -% \sbox0{\footnotesize\t}^^A -% \ifdim\wd0>\linewidth -% \ifdim\wd0>\lw -% \sbox0{\scriptsize\t}^^A -% \ifdim\wd0>\linewidth -% \ifdim\wd0>\lw -% \sbox0{\tiny\t}^^A -% \ifdim\wd0>\linewidth -% \lwbox -% \else -% \usebox0 -% \fi -% \else -% \lwbox -% \fi -% \else -% \usebox0 -% \fi -% \else -% \lwbox -% \fi -% \else -% \usebox0 -% \fi -% \else -% \lwbox -% \fi -% \else -% \usebox0 -% \fi -% \else -% \lwbox -% \fi -% \else -% \usebox0 -% \fi -% \end{quote} -% If you have a \xfile{docstrip.cfg} that configures and enables \docstrip's -% TDS installing feature, then some files can already be in the right -% place, see the documentation of \docstrip. -% -% \subsection{Refresh file name databases} -% -% If your \TeX~distribution -% (\TeX\,Live, \mikTeX, \dots) relies on file name databases, you must refresh -% these. For example, \TeX\,Live\ users run \verb|texhash| or -% \verb|mktexlsr|. -% -% \subsection{Some details for the interested} -% -% \paragraph{Unpacking with \LaTeX.} -% The \xfile{.dtx} chooses its action depending on the format: -% \begin{description} -% \item[\plainTeX:] Run \docstrip\ and extract the files. -% \item[\LaTeX:] Generate the documentation. -% \end{description} -% If you insist on using \LaTeX\ for \docstrip\ (really, -% \docstrip\ does not need \LaTeX), then inform the autodetect routine -% about your intention: -% \begin{quote} -% \verb|latex \let\install=y\input{pdftexcmds.dtx}| -% \end{quote} -% Do not forget to quote the argument according to the demands -% of your shell. -% -% \paragraph{Generating the documentation.} -% You can use both the \xfile{.dtx} or the \xfile{.drv} to generate -% the documentation. The process can be configured by the -% configuration file \xfile{ltxdoc.cfg}. For instance, put this -% line into this file, if you want to have A4 as paper format: -% \begin{quote} -% \verb|\PassOptionsToClass{a4paper}{article}| -% \end{quote} -% An example follows how to generate the -% documentation with pdf\LaTeX: -% \begin{quote} -%\begin{verbatim} -%pdflatex pdftexcmds.dtx -%bibtex pdftexcmds.aux -%makeindex -s gind.ist pdftexcmds.idx -%pdflatex pdftexcmds.dtx -%makeindex -s gind.ist pdftexcmds.idx -%pdflatex pdftexcmds.dtx -%\end{verbatim} -% \end{quote} -% -% \printbibliography[ -% heading=bibnumbered, -% ] -% -% \begin{History} -% \begin{Version}{2007/11/11 v0.1} -% \item -% First version. -% \end{Version} -% \begin{Version}{2007/11/12 v0.2} -% \item -% Short description fixed. -% \end{Version} -% \begin{Version}{2007/12/12 v0.3} -% \item -% Organization of Lua code as module. -% \end{Version} -% \begin{Version}{2009/04/10 v0.4} -% \item -% Adaptation for syntax change of \cs{directlua} in -% \hologo{LuaTeX} 0.36. -% \end{Version} -% \begin{Version}{2009/09/22 v0.5} -% \item -% \cs{pdf@primitive}, \cs{pdf@ifprimitive} added. -% \item -% \hologo{XeTeX}'s variants are detected for -% \cs{pdf@shellescape}, \cs{pdf@strcmp}, \cs{pdf@primitive}, -% \cs{pdf@ifprimitive}. -% \end{Version} -% \begin{Version}{2009/09/23 v0.6} -% \item -% Macro \cs{pdf@isprimitive} added. -% \end{Version} -% \begin{Version}{2009/12/12 v0.7} -% \item -% Short info shortened. -% \end{Version} -% \begin{Version}{2010/03/01 v0.8} -% \item -% Required date for package \xpackage{ifluatex} updated. -% \end{Version} -% \begin{Version}{2010/04/01 v0.9} -% \item -% Use \cs{ifeof18} for defining \cs{pdf@shellescape} between -% \hologo{pdfTeX} 1.21a (inclusive) and 1.30.0 (exclusive). -% \end{Version} -% \begin{Version}{2010/11/04 v0.10} -% \item -% \cs{pdf@draftmode}, \cs{pdf@ifdraftmode} and -% \cs{pdf@setdraftmode} added. -% \end{Version} -% \begin{Version}{2010/11/11 v0.11} -% \item -% Missing \cs{RequirePackage} for package \xpackage{ifpdf} added. -% \end{Version} -% \begin{Version}{2011/01/30 v0.12} -% \item -% Already loaded package files are not input in \hologo{plainTeX}. -% \end{Version} -% \begin{Version}{2011/03/04 v0.13} -% \item -% Improved Lua function \texttt{shellescape} that also -% uses the result of \texttt{os.execute()} (thanks to Philipp Stephani). -% \end{Version} -% \begin{Version}{2011/04/10 v0.14} -% \item -% Version check of loaded module added. -% \item -% Patch for bug in \hologo{LuaTeX} between 0.40.6 and 0.65 that -% is fixed in revision 4096. -% \end{Version} -% \begin{Version}{2011/04/16 v0.15} -% \item -% \hologo{LuaTeX}: \cs{pdf@shellescape} is only supported -% for version 0.70.0 and higher due to a bug, \texttt{os.execute()} -% crashes in some circumstances. Fixed in \hologo{LuaTeX} -% beta-0.70.0, revision 4167. -% \end{Version} -% \begin{Version}{2011/04/22 v0.16} -% \item -% Previous fix was not working due to a wrong catcode of digit -% zero (due to easily support the old \cs{directlua0}). -% The version border is lowered to 0.68, because some -% beta-0.67.0 seems also to work. -% \end{Version} -% \begin{Version}{2011/06/29 v0.17} -% \item -% Documentation addition to \cs{pdf@shellescape}. -% \end{Version} -% \begin{Version}{2011/07/01 v0.18} -% \item -% Add Lua module loading in \cs{everyjob} for \hologo{iniTeX} -% (\hologo{LuaTeX} only). -% \end{Version} -% \begin{Version}{2011/07/28 v0.19} -% \item -% Missing space in an info message added (Martin M\"unch). -% \end{Version} -% \begin{Version}{2011/11/29 v0.20} -% \item -% \cs{pdf@resettimer} and \cs{pdf@elapsedtime} added -% (thanks Andy Thomas). -% \end{Version} -% \begin{Version}{2016/05/10 v0.21} -% \item -% local unpack added -% (thanks \'{E}lie Roux). -% \end{Version} -% \begin{Version}{2016/05/21 v0.22} -% \item -% adjust \cs{textbackslas}h usage in bib file for biber bug. -% \end{Version} -% \begin{Version}{2016/10/02 v0.23} -% \item -% add file.close to lua filehandles (github pull request). -% \end{Version} -% \begin{Version}{2017/01/29 v0.24} -% \item -% Avoid loading luatex-loader for current luatex. (Use -% pdftexcmds.lua not oberdiek.pdftexcmds.lua to simplify file -% search with standard require) -% \end{Version} -% \begin{Version}{2017/03/19 v0.25} -% \item -% New \cs{pdf@shellescape} for Lua\TeX, see github issue 20. -% \end{Version} -% \begin{Version}{2018/01/21 v0.26} -% \item -% use rb not r mode for file open github issue 34. -% \end{Version} -% \begin{Version}{2018/01/30 v0.27} -% \item -% \cs{pdf@mdfivesum} for \hologo{XeTeX} -% \end{Version} -% \begin{Version}{2018/09/07 v0.28} -% \item -% Fix catcode regime in luatex sprint for \cs{pdf@shellescape} GH issue 45 -% \end{Version} -% \begin{Version}{2018/09/10 v0.29} -% \item -% Actually do the fix described above in the code, not just document it. -% \end{Version} -% \begin{Version}{2019/07/25 v0.30} -% \item -% Remove uses of module function, see PR70 -% \end{Version} -% \begin{Version}{2019/11/24 v0.31} -% \item -% Use \xpackage{iftex} directly rather than \xpackage{ifluatex} and \xpackage{ifpdf} wrappers. -% \item detect \verb|\filmoddate| and other \hologo{XeTeX} commands. -% \item Adjust \cs{pdf@escapestring} in \hologo{LuaTeX} to produce -% the same as in \hologo{pdfTeX} in the 8bit -% range and not drop all non ascii characters. -% \end{Version} -% \begin{Version}{2020-06-04 v0.32} -% \item Updated pdftexcmds.elapsedtime to lua 5.3 (issue 4). -% \end{Version} -% \begin{Version}{2020-06-24 v0.33} -% \item avoid that \cs{pdfelapsedtime} and \cs{pdfresettimer} are set to \cs{relax} -% when using xelatex (issue 5). -% \item load ltluatex when using plain so that the catcode tables are -% available. -% \end{Version} -% \end{History} -% -% \PrintIndex -% -% \Finale -\endinput diff --git a/macros/latex/contrib/pdftexcmds/pdftexcmds.pdf b/macros/latex/contrib/pdftexcmds/pdftexcmds.pdf deleted file mode 100644 index 67c62c826a..0000000000 Binary files a/macros/latex/contrib/pdftexcmds/pdftexcmds.pdf and /dev/null differ diff --git a/macros/latex/contrib/qrbill/README.md b/macros/latex/contrib/qrbill/README.md index 745b4ed75f..14ca52239f 100644 --- a/macros/latex/contrib/qrbill/README.md +++ b/macros/latex/contrib/qrbill/README.md @@ -4,7 +4,7 @@ Copyright (C) Marei Peischl (peiTeX) , 2020 This work is part of a collaborative project of Marei Peischl (peiTeX) and Alex Antener (foobar LLC). -qrbill 2020/06/28 v1.0 +qrbill 2020/06/29 v1.01 *************************************************************************** @@ -19,6 +19,7 @@ qrbill 2020/06/28 v1.0 * qrbill.dtx * qrbill.ins * qrbill-vocab.csv +* qrbill_swiss-cross.pdf The files * qrbill.sty @@ -28,7 +29,16 @@ as well as the demo files * qrbill-letter-demo.tex can be created from the qrbill.dtx by processing the qrbill.ins-file. +## Installation Notes + +To be able to compile the package, the files +qrbill.sty, swiss.qrbill-cfg.tex, qrbill_swiss-cross.pdf and qrbill-vocab.csv +have to be placed in the $TEXINPUTS path. + +To simplify this, you can have a look at the qrbill.tds.zip, which provides an already prestructured variant to be extracted to any tds tree. + ## Version History - * v1.00 First official version - published on 2020-06-28 \ No newline at end of file + * v1.00 (2020-06-28) First official version + * v1.01 (2020-06-29) Add tds package and the separate option \ No newline at end of file diff --git a/macros/latex/contrib/qrbill/doc/qrbill.pdf b/macros/latex/contrib/qrbill/doc/qrbill.pdf deleted file mode 100644 index e8cb0644fc..0000000000 Binary files a/macros/latex/contrib/qrbill/doc/qrbill.pdf and /dev/null differ diff --git a/macros/latex/contrib/qrbill/qrbill-vocab.csv b/macros/latex/contrib/qrbill/qrbill-vocab.csv new file mode 100644 index 0000000000..e9df8266ac --- /dev/null +++ b/macros/latex/contrib/qrbill/qrbill-vocab.csv @@ -0,0 +1,14 @@ +language,{ngerman, german, nswissgerman, swissgerman},{french},{italian},{english,british,american} +paymentpart,Zahlteil,Section paiement,Sezione pagamento,Payment part +account,Konto / Zahlbar an,Compte / Payable à,Conto / Pagabile a,Account / Payable to +reference,Referenz,Référence,Riferimento,Reference +addinfo,Zusätzliche Informationen,Informations additionnelles,Informazioni aggiuntive,Additional information +furtherinfo,Weitere Informationen,Informations supplémentaires,Informazioni supplementari,Further information +currency,Währung,Monnaie,Valuta,Currency +amount,Betrag,Montant,Importo,Amount +receipt,Empfangsschein,Récépissé,Ricevuta,Receipt +acceptant,Annahmestelle,Point de dépôt,Punto di accettazione,Acceptance point +separate,Vor der Einzahlung abzutrennen,A détacher avant le versement,Da staccare prima del versamento,Separate before paying in +debtor,Zahlbar durch,Payable par,Pagabile da,Payable by +debtoraddr,Zahlbar durch (Name/Adresse),Payable par (nom/adresse),Pagabile da (nome/indirizzo),Payable by (name/address) +infavourof,Zugunsten,En faveur de,A favore di,In favour of \ No newline at end of file diff --git a/macros/latex/contrib/qrbill/qrbill.dtx b/macros/latex/contrib/qrbill/qrbill.dtx new file mode 100644 index 0000000000..9005496f3d --- /dev/null +++ b/macros/latex/contrib/qrbill/qrbill.dtx @@ -0,0 +1,1123 @@ +% \iffalse meta-comment +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% Copyright (C) 2020 by Marei Peischl (peiTeX) +% +% This work is a collaboration of +% Marei Peischl (peiTeX) and Alex Antener (foobar LLC). +% +% This work may be distributed and/or modified under the +% conditions of the LaTeX Project Public License, either version 1.3c +% of this license or (at your option) any later version. +% The latest version of this license is in +% http://www.latex-project.org/lppl.txt +% and version 1.3c or later is part of all distributions of LaTeX +% version 2005/12/01 or later. +% +% This work has the LPPL maintenance status `maintained'. +% +% The Current Maintainer of this work is +% Marei Peischl . +% +% This work consists of the files +% qrbill.dtx and qrbill.ins, qrbill-vocab.csv +% and the derived files +% qrbill.sty, swiss.qrbill-cfg.tex, qrbill-letter-demo.tex, +% qrbill-standalone-demo.tex . +% +% The development repository can be found at +% https://github.com/peitex/qrbill +% Please use the issue tracker for feedback! +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% \fi +% \iffalse +%<*package> +% \CharacterTable +% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +% Digits \0\1\2\3\4\5\6\7\8\9 +% Exclamation \! Double quote \" Hash (number) \# +% Dollar \$ Percent \% Ampersand \& +% Acute accent \' Left paren \( Right paren \) +% Asterisk \* Plus \+ Comma \, +% Minus \- Point \. Solidus \/ +% Colon \: Semicolon \; Less than \< +% Equals \= Greater than \> Question mark \? +% Commercial at \@ Left bracket \[ Backslash \\ +% Right bracket \] Circumflex \^ Underscore \_ +% Grave accent \` Left brace \{ Vertical bar \| +% Right brace \} Tilde \~} +% +% \fi +% \iffalse +%<*driver> +\ProvidesFile{qrbill.dtx}[2020/06/29 v1.01 \ create QR-bills based on the Swiss standard] +\documentclass[english, parskip=half-]{scrartcl} +\usepackage{iftex} +\ifPDFTeX +\usepackage[T1]{fontenc} +\fi +\usepackage{doc} +\usepackage[cache, langlinenos]{minted} +% Need to set the style here so that it is defined and brought in here. +% If the style is set later, then docstrip interferes with any comments in +% the style definition so that they appear as literal text in the document. + +\setminted{style=default, tabsize=4} +\newminted{latex}{gobble=4,escapeinside=||} + +\newenvironment{doccode}{ + \VerbatimEnvironment + \begin{VerbatimOut}[gobble=1, tabsize=4]{minted.doc.out}} + {\end{VerbatimOut} + \inputminted[autogobble, escapeinside=||,tabsize=4]{latex}{minted.doc.out} +} + +\usepackage{babel} +\usepackage[babel]{csquotes} + +\EnableCrossrefs +\PageIndex +\RecordChanges +\newmintinline[code]{latex}{} + +\newcommand*\repl[1]{\meta{#1}} +\newcommand*\opt[1]{\colorbox{black!20}{\meta{#1}}} +\newcommand*\marg[1]{% + {\ttfamily\char`\{}\repl{#1}{\ttfamily\char`\}}} +\newcommand*\oarg[1]{% + {\ttfamily[}\opt{#1}{\ttfamily]} +} +\newcommand*{\sarg}{\texttt{*}} + +\usepackage{xparse} + +\OnlyDescription +\makeatletter + +\def\qrbill@optionNoDefault #1(#2) (#3){% + \vspace{0.1in}% + \leavevmode% + \marginpar{\raggedleft\small\ttfamily#1\ }% + \kern-\parindent\textsf{(#2)}\hfill#3\\} + + +\def\qrbill@option #1 (#2) (#3){% + \qrbill@optionNoDefault#1(#2) ({(default: \texttt{#3})})% +} + +\ExplSyntaxOn + +\newcommand*\qrbill@nextopt{}% +\newenvironment{optionlist}% +{% + \par\vspace{-.5\baselineskip} + \def\pipechar{|}% + \let\|\pipechar% + \RenewDocumentCommand{\item}{sr[]}{% + \qrbill@nextopt% + \renewcommand*\qrbill@nextopt{\par}% + \IfBooleanTF {##1}% + {\qrbill@optionNoDefault ##2}% + {\qrbill@option ##2}% +}} +{% + \par} +\ExplSyntaxOff + + + +% Create a short verbatim pipe that handles quotation marks properly +\begingroup +\catcode`\|=\active +\gdef\pipe@active@verbatim{% + \begingroup + \let\do\@makeother\dospecials + \catcode`\|=\active + \catcode`\`=\active + \catcode`\'=\active + \catcode`\<=\active + \catcode`\>=\active + \catcode`\-=\active + \catcode`\,=\active + \catcode`\ =\active + \pipe@active@verbatim@i} +\gdef\pipe@active@verbatim@i#1|{% + \endgroup + \begingroup + \def\FV@SV@pipe@active@verbatim{% + \FV@Gobble + \expandafter\FV@ProcessLine\expandafter{#1}}% + \BUseVerbatim{pipe@active@verbatim}% + \endgroup} +\AtBeginDocument{\let|\pipe@active@verbatim} +\endgroup +\makeatother + +\usepackage{array} +\usepackage{booktabs} + +\usepackage{qrbill} + +\usepackage[hidelinks]{hyperref} + +\begin{document} +\DocInput{qrbill.dtx} +\end{document} +% +%\fi +% +% \changes{v1.0}{2020/06/28}{First official version} +% +% \GetFileInfo{qrbill.dtx} +% +% \DoNotIndex{\newcommand,\newenvironment} +% \title{qrbill} +% \subtitle{\LaTeX-package to create QR-bills based on the Swiss payments standards} +% \author{Marei Peischl \href{mailto:marei@peitex.de}{}} +% \publishers{A collaborative project of pei\TeX{} and foobar LLC} +% \date{\filedate} +% \maketitle +% \section{Introduction} +% qrbill.sty, the \LaTeX-package, is the Free Software and Open Source answer to the launch of the swiss payments conversion, introduced mid 2020, replacing the former payment order slip by a restructured, QR enhanced slip. The published source code is based on the payment standard guidelines issued for Switzerland and intentionally has a modular structure to enable further development and adaptation for international use. +% +% By means of the \LaTeX{} framework, the qrbill can simply be integrated into existing accounting environments and automated billing systems. +% \iffalse +% \begin{macrocode} +%<*qrbill.sty> +% \end{macrocode} +% \fi +% \section{Example of use} +% The easies way to use the qrbill package is to create a bill with the standalone documentclass: +% +% \begin{doccode} +% \documentclass{standalone} +% \usepackage[ngerman]{babel} +% +% \usepackage{xcolor} +% \usepackage{qrbill} +% +% \begin{document} +% +% \QRbill[ +% creditor={foobar LLC\\ +% Postfach 404\\ +% 2342 Zurich\\ +% CH}, +% Account=CH1280808005649899718, +% % insert additional data here +% ] +% +% \end{document} +% \end{doccode} +% +% \DescribeMacro{\QRbill}\oarg{Data Setup} +% The macro \code{\QRbill} creates a box of 210\,mm${}\times{}$105\,mm size. It will include a qrbill as described in the design guide \cite{qrbill-design} and insert all available data. +% +% There is also an example in the appendix showing all data fields (see appendix \ref{standalone-complete} on page \pageref{standalone-complete}). +% +% The headings are provided in German, English, Italian and French and will be translated using the document's language setup. The terms have been taken from the official guidelines. +% +% \section{Technical Requirements} +% qrbill has been built for \TeX Live 2020. Currently it is not possible to ensure it's functionality with older Releases of \TeX Distributions. +% +% The packages loaded by qrbill are: +% \begin{itemize} +% \item expl3 +% \item fontspec (except one is using a custom font setup) +% \item graphicx +% \item scrbase (which is part of the koma-script bundle) +% \item qrcode +% \item iftex +% \item l3keys2e +% \item numprint +% \end{itemize} +% +% As a default font \enquote{Liberation Sans} will be used. This will be loaded using fontspec, which would require the use of Lua\LaTeX{} or Xe\LaTeX{} as a compiler. To have a workaround for this, see the \code{font} option on page \pageref{opt:font} for a custom font setup. +% +% \section{Package options} +% +% \begin{optionlist} +% +% \item[billinginfo (true/false) (true)] +% Activate/deactivate the automatic fill of the BillingInformation. If this is set to \code{false} one still can add data to this field using the \code{BillingInformation} key, as Described in section \ref{sec:data-setup}. +% +% \item[creditorprefix\\debtorprefix (String) (CR-/UD-)] +% For custom setups the predefined prefixes for the debtor and creditoraddress can be changes. The initial configuration is a requirement of the Swiss standards. +% +% \item[font (Frutiger/Arial/Helvetica/Liberation Sans/custom) (Liberation Sans)] +% \label{opt:font} +% The official guideline for the Swiss qrbill limits the choice of the font to the first four values of this option. The font selection and sizes currently hardcoded to fit to the size. Custom setups might be provided in the future. +% +% In case one wants to use a custom font, you can set the option \code{font=custom}. This will disable all font setup and not prevent the fontspec package from being loaded. You can redefine the macro \code{qrbillfont} to use any font available on your system, for example: +% \begin{doccode} +% \usepackage{fontspec} +% % The Laconic font has to be installed +% \renewcommand*{\qrbillfont}{\fontspec{Laconic}} +% \end{doccode} +% +% \item[frame (true/false/top/bottom) (true)] +% Switch to disable the frame around the created QRbill. The top/bottom options should be prefered when the bill is embedded into a document of a4 papersize. +% +% \item[icon (swiss-cross/filename) ()] +% The swiss standard describes the placement of a swiss-cross icon in the center of the QRcode. This can be achieved using this option. The default is set empty, so no icon will be placed. If this option holds another string than \enquote{swiss-cross} it will be interpreted as filename and try to load a custom image. +% +% \item[iconwidth (length) (7mm)] +% This option allows custom scaling for custom icons. + +% \item[qrscheme (Name of a custom QRbill scheme) (swiss)] +% Loads the definitions for the QRcode and the BillingInformation. Currently only the swiss qrbill scheme is available, but one can define own variants based on this file. Users can copy the file swiss.qrbill-cfg.tex as an example. +% +% \changes{v1.01}{2020/06/29}{Add separate option to modify the top rule of the QR bill} +% \item[separate (false/text/symbol) (text)] +% Setup the separation rule between the document and the qrbill. If the value is text or symbol the Info \enquote{\qrbillseparatename} or the corresponding translation will be printed on top of the frame. This option will be ignored it the frame has no top rule. +% \end{optionlist} +% +% \section{Data setup} +% \label{sec:data-setup} +% \DescribeMacro{\qrbillsetdata} +% The data fields can be filled either using the optional argument of \code{\QRbill} or using the macro \code{\qrbillsetdata}. Section \ref{sec:data-complete} shows a list of all available fields and appendix \ref{standalone-complete} provides an example of use. For further information on the construction of the QRcode see the specification \cite{qrbill-spec}. +% +% To simplify the usage qrbill provides an interface to use the different types of address data and is able to create a \enquote{billing information} string as described in \cite{qrbill-spec} using the single data elements. +% +% \section{Setup for the preconfigured Swiss QR-bill} +% \subsection{Preconfigured data} +% The initial configuration which uses the Swiss standard already adds the following data: +% \begin{doccode} +% \SetupQrBill{ +% QRType=SPC, +% Version=0210, +% CodingType=1, +% Trailer=EPD, +% } +% \end{doccode} +% These fields are currently required to use these values. If any future changes on the standard would require changes, they can be overwritten or redefined by using a custom implementation file, similar to swiss.qrbill-cfg.tex. +% +% Additionally the Currency has been initialized to use \enquote{CHF}. This also can be overwritten. Currently the Swiss standards only allow the values \code{CHF} or \code{EUR}. +% \subsection{Address data} +% The Swiss payment standards for QR-bills require the following data for the address of creditor (Prefix \code{CR-}) and debtor (Prefix \code{UD-}): +% \begin{center} +% \begin{tabular}{@{}>{\ttfamily}l>{\centering}p{.25\linewidth}>{\centering\arraybackslash}p{.25\linewidth}@{}} +% \toprule +% AddressType&K&S\\\cmidrule(r){1-1}\cmidrule(l){2-3} +% Name& \multicolumn{2}{c}{Name}\\\cmidrule(r){1-1}\cmidrule(l){2-3} +% Address1&Street&Street with number\\\cmidrule(r){1-1}\cmidrule(l){2-3} +% Address2&Number&Postal code with City\\\cmidrule(r){1-1}\cmidrule(l){2-3} +% ZIP&Postal code& Enforced Empty\\\cmidrule(r){1-1}\cmidrule(l){2-3} +% City& City& Enforced Empty\\\cmidrule(r){1-1}\cmidrule(l){2-3} +% Country& \multicolumn{2}{c}{Country Code}\\\bottomrule +% \end{tabular} +% \end{center} +% To set an address of type \enquote{K} one can use they option key \code{debtor} or \code{creditor}. Type \enquote{S} can be achieved using the starred variant (\code{debtor*}/\code{creditor*}). +% +% \begin{minipage}{.5\linewidth} +% \begin{doccode} +% creditor={Name\\ +% Street Nr.\\ +% PostalCode City\\ +% CountryCode}, +% \end{doccode} +% \end{minipage}% +% \begin{minipage}{.5\linewidth} +% \begin{doccode} +% creditor*={Name\\ +% Street\\ +% Nr.\\ +% PostalCode\\ +% City\\ +% CountryCode}, +% \end{doccode} +% \end{minipage} +% +% \subsection{Billing information} +% The billing information is a string which can consist of the following data elements: +% \begin{tabular}{@{}>{\ttfamily}ll@{}} +% invoicenum & invoice number\\ +% invoicedate & invoice data \\ +% customerref & customer reference \\ +% vat & VAT number\\ +% vatdate& VAT date\\ +% vatdetails& VAT percentage / details\\ +% importvat& import VAT\\ +% conditions& payment conditions\\ +% \end{tabular} +% The data has to be in the required format. qrbill might add features to automatically validate this in the future. +% +% Beside setting the data fields all on their own, qrbill can also handle a complete billing information string. One could simply set it by +% +% \begin{doccode} +% BillingInfo=//S1/10/10201409/11/190512/20/1400.000-53/30/106017086 +% /31/180508/32/7.7/40/2:10;0:30 +% \end{doccode} +% \subsection{AV-Parameters} +% The QRcode can use 2 AV Parameters. They have to carry the Prefix of \enquote{Name AV1:}/\enquote{Name AV2:}. This will be automatically added if the keys \code{AV1}/\code{AV2} are used instead of \code{AV1-Parameters}/\code{AV2-Parameters}. +% +% \subsection{Remaining data elements} +% The remaining data elements should be set directly. +% For restrictions on the content see the specification. Currently there is no validation taking place. +% The remaining for the preconfigures Swiss standard are: +% Account, +% Amount, +% ReferenceType, +% Reference, +% Message, +% +% \subsection{The Swiss cross icon} +% \cite{qrbill-design} reguires a swiss cross of 7\,mm size to be placed in the center of the QRcode. +% This package supports this by using the package option for the icon: +% \begin{doccode} +% \usepackage[icon=swiss-cross, …]{qrbill} +% \end{doccode} +% This setting is not activated by default. +% +% +% \subsection{Overview over all data fields} +% \label{sec:data-complete} +% Data fields which are used in the QRcode:\par +% \ExplSyntaxOn +% \seq_use:Nn \g__qrbill_qrscheme_seq {\\} +% \ExplSyntaxOff +% \par\medskip +% Data fields, which are custom created by the qrbill package to simplify the use:\par +% creditor and creditor*\\ +% debtor and debtor*\\ +% AV1 and AV2 +% \par\medskip +% Data fields to automatically create the BillingInfo string. The key in parentheses indicates the prefix to be used to construct the string.\par +% \ExplSyntaxOn +% \prop_map_inline:Nn \g__qrbill_billing_info_prop {#2~(#1)\\} +% \ExplSyntaxOff +% \iffalse +% \section{Implementation} +% \begin{macrocode} +\RequirePackage{expl3} +\ProvidesExplPackage{qrbill}{2020/06/29}{1.01}{ + Template for QR-bills based on the Swiss Payment Standards +} +\RequirePackage{iftex} +\RequirePackage{l3keys2e} + +\tl_new:N \g__qrbill_font_tl +\bool_new:N \g__qrbill_top_frame_bool +\bool_new:N \g__qrbill_bottom_frame_bool +\bool_new:N \g__qrbill_left_frame_bool +\bool_new:N \g__qrbill_right_frame_bool +\bool_new:N \g__qrbill_separateinfo_bool + +\keys_define:nn {qrbill} { + font .choices:nn = {Frutiger, Arial, Helvetica, Liberation Sans} { + \bool_gset_true:N \g__qrbill_fontsetup_bool + \tl_gset_eq:NN \g__qrbill_font_tl \l_keys_choice_tl + }, + font .initial:n = Liberation Sans, + font / custom .code:n = {\tl_gclear:N \g__qrbill_font_tl}, + qrscheme .tl_gset:N = \g__qrbill_qrscheme_tl, + qrscheme .initial:n = swiss, + creditorprefix .tl_gset:N = \g__qrbill_creditorprefix_tl, + creditorprefix .initial:n = CR-, + debtorprefix .tl_gset:N = \g__qrbill_debtorprefix_tl, + debtorprefix .initial:n = UD-, + qrmode .choice:, + qrmode / package .code:n = \bool_gset_false:N \g__qrbill_luamode_bool, + qrmode / lua .code:n = \bool_gset_true:N \g__qrbill_luamode_bool, + qrmode .initial:n = package, + frame .choice:, + frame / false .code:n = { + \bool_gset_false:N \__g__qrbill_top_frame_bool + \bool_gset_false:N \g__qrbill_bottom_frame_bool + \bool_gset_false:N \g__qrbill_left_frame_bool + \bool_gset_false:N \g__qrbill_right_frame_bool + }, + frame / true .code:n = { + \bool_gset_true:N \g__qrbill_top_frame_bool + \bool_gset_true:N \g__qrbill_bottom_frame_bool + \bool_gset_true:N \g__qrbill_left_frame_bool + \bool_gset_true:N \g__qrbill_right_frame_bool + }, + frame / top .code:n = { + \bool_gset_true:N \g__qrbill_top_frame_bool + \bool_gset_false:N \g__qrbill_bottom_frame_bool + \bool_gset_false:N \g__qrbill_left_frame_bool + \bool_gset_false:N \g__qrbill_right_frame_bool + }, + frame / bottom .code:n = { + \bool_gset_false:N \g__qrbill_top_frame_bool + \bool_gset_true:N \g__qrbill_bottom_frame_bool + \bool_gset_false:N \g__qrbill_left_frame_bool + \bool_gset_false:N \g__qrbill_right_frame_bool + }, + frame .initial:n = true, + billinginfo .bool_gset:N = \g__grbill_billinginfo_auto_bool, + billinginfo .default:n = true, + billinginfo .initial:n = true, + icon .choice:, + icon / swiss-cross .meta:n = {icon=qrbill_swiss-cross.pdf}, + icon / unknown .code:n = \tl_gset:Nn \g_qrbill_icon_tl {#1}, + icon .initial:n =, + iconwidth .dim_gset:N = \g_qrbill_iconwidth_dim, + iconwidth .initial:n = 7mm, + separate .choice:, + separate / symbol .code:n = { + \bool_gset_true:N \g__qrbill_separateinfo_bool + \RequirePackage{marvosym} + \cs_set:Nn \qrbill_print_separate_info: { + \par\leaders\vbox_to_ht:nn {1sp} { + \smash{ + \hbox_to_wd:nn {\c_qrbill_width_dim }{ + \leaders\hbox{\rule{1mm}{\g__qrbill_rule_dim}\hspace{1mm}}\hskip 0pt\@plus1 fill\relax + \llap{\raisebox{-.5\height}{\LeftScissors}} + \leaders\hbox{\rule{1mm}{\g__qrbill_rule_dim}\hspace{1mm}}\hskip 0pt\@plus4 fill\relax + } + } + } + \vskip 1sp + \vskip -1sp + } + }, + separate / text .code:n = { + \bool_gset_true:N \g__qrbill_separateinfo_bool + \cs_set:Nn \qrbill_print_separate_info: { + \centerline{\footnotesize\qrbillseparatename} + \par\nointerlineskip + \rule{\c_qrbill_width_dim}{\g__qrbill_rule_dim} + } + } + , + separate / false .code:n = {\bool_gset_false:N \g__qrbill_separateinfo_bool}, + separate .initial:n = text, +} + +\ProcessKeysOptions{qrbill} + +\newcommand*{\qrbillsetup}[1]{\keys_set:nn {qrbill}{#1}} +\newcommand*{\qrbillsetdata}[1]{\keys_set:nn {qrbill/data}{#1}} + +\tl_if_empty:NTF \g__qrbill_font_tl { + \def\qrbillfont{\normalfont} +}{ + \RequirePackage{fontspec} + \newfontfamily{\qrbillfont}{\g__qrbill_font_tl} +} + +\dim_new:N \g_qrbill_QRcode_dim +\dim_gset:Nn \g_qrbill_QRcode_dim {46mm} +\bool_if:NF \g__qrbill_luamode_bool { + \usepackage{qrcode} + \cs_new:Nn \qrbill_parse_QRcode:n { + \raisebox{\depth}{\qrcode[height= \g_qrbill_QRcode_dim]{#1}} + } + \cs_generate_variant:Nn \qrbill_parse_QRcode:n {V} +} + +\RequirePackage{scrbase} +\RequirePackage{graphicx} +\RequirePackage{numprint} +\npthousandsep{\,} +\npdecimalsign{.} + +\dim_new:N \g__qrbill_rule_dim +\dim_gset:Nn \g__qrbill_rule_dim {.5pt} +\dim_const:Nn \c_qrbill_sep_dim {5mm} +\dim_const:Nn \c_qrbill_width_dim {210mm} +\dim_const:Nn \c_qrbill_height_dim {105mm} + +\cs_new:Nn \qrbill_title_font: {\fontsize{11bp}{11bp}\selectfont\bfseries} + +\cs_new:Nn \qrbill_headingR_font: {\fontsize{6bp}{9bp}\selectfont\bfseries} +\cs_new:Nn \qrbill_valueR_font: {\fontsize{8bp}{9bp}\selectfont} +\cs_new:Nn \qrbill_amountR_font: {\fontsize{8bp}{11bp}\selectfont} +\cs_new:Nn \qrbill_acceptance_font: {\fontsize{6bp}{8bp}\selectfont\bfseries} + +\cs_new:Nn \qrbill_headingP_font: {\fontsize{8bp}{11bp}\selectfont\bfseries} +\cs_new:Nn \qrbill_valueP_font: {\fontsize{10bp}{11bp}\selectfont} +\cs_new:Nn \qrbill_amountP_font: {\fontsize{10bp}{13bp}\selectfont} + +\cs_new:Nn \qrbill_infoheading_font: {\fontsize{7bp}{8bp}\selectfont\bfseries} +\cs_new:Nn \qrbill_info_font: {\fontsize{7bp}{8bp}\selectfont} + +\dim_new:N \g_qrbill_placeholder_rule_dim +\dim_gset:Nn \g_qrbill_placeholder_rule_dim {.75pt} +\dim_new:N \g_qrbill_placeholder_corner_dim +\dim_gset:Nn \g_qrbill_placeholder_corner_dim {3mm} +\cs_new:Nn \__qrbill_placeholder_hmark: { + \rule{\g_qrbill_placeholder_corner_dim}{\g_qrbill_placeholder_rule_dim} +} +\cs_new:Nn \__qrbill_placeholder_vmark: { + \rule{\g_qrbill_placeholder_rule_dim}{\g_qrbill_placeholder_corner_dim} +} + + +\cs_new:Nn \__qrbill_placeholder:nn { + \vbox_to_ht:nn {#2} { + \hbox_to_wd:nn {#1} {\__qrbill_placeholder_hmark: \hfill \__qrbill_placeholder_hmark:} + \nointerlineskip + \hbox_to_wd:nn {#1} {\__qrbill_placeholder_vmark: \hfill \__qrbill_placeholder_vmark:} + \vfill + \hbox_to_wd:nn {#1} {\__qrbill_placeholder_vmark: \hfill \__qrbill_placeholder_vmark:} + \nointerlineskip + \hbox_to_wd:nn {#1} {\__qrbill_placeholder_hmark: \hfill \__qrbill_placeholder_hmark:} + } +} + +\cs_new:Nn \qrbill_bill_create: { + \begingroup + \qrbill_parse_BillingInfo: + \qrbillfont + \setlength{\parindent}{\z@} + \parbox{\c_qrbill_width_dim }{ + \vbox to \c_qrbill_height_dim { + \bool_if:NTF \g__qrbill_top_frame_bool + { + \bool_if:NTF \g__qrbill_separateinfo_bool + {\qrbill_print_separate_info:} + {\rule{\c_qrbill_width_dim}{\g__qrbill_rule_dim}} + } + {\rule{\c_zero_dim}{\g__qrbill_rule_dim}} + \par\nointerlineskip + \skip_vertical:n {\c_qrbill_sep_dim-\g__qrbill_rule_dim} + \skip_horizontal:n {\c_qrbill_sep_dim-\g__qrbill_rule_dim} + \begin{minipage}[c][95mm][t]{52mm} + \vbox_to_ht:nn {7mm} {\qrbill_title_font:\qrbillreceiptname} + \par\nointerlineskip + \vbox_to_ht:nn {56mm}{ + {\qrbill_headingR_font:\qrbillaccountname\par} + { + \qrbill_valueR_font:\tl_use:c {l_qrbill_data_Account_tl}\par + \qrbill_insert_address:N \g__qrbill_creditorprefix_tl + \par\vskip\baselineskip + } + \tl_if_empty:NF \l_qrbill_data_Reference_tl { + {\qrbill_headingR_font:\qrbillreferencename\par} + { + \qrbill_valueR_font:\tl_use:c {l_qrbill_data_Reference_tl} + \par\vskip\baselineskip + } + } + \tl_if_empty:cTF {l_qrbill_data_\g__qrbill_debtorprefix_tl Name_tl} + { + {\qrbill_headingR_font:\qrbilldebtoraddrname\par} + \__qrbill_placeholder:nn {52mm} {20mm} + }{ + {\qrbill_headingR_font:\qrbilldebtorname\par} + { + \qrbill_valueR_font: + \qrbill_insert_address:N \g__qrbill_debtorprefix_tl + \par + } + } + } + \par\nointerlineskip + \vbox_to_ht:nn {14mm}{ + \qrbill_headingR_font: + \begin{tabular}[t]{@{}ll@{}} + \qrbillcurrencyname&\qrbill_headingR_font:\qrbillamountname\\ + \qrbill_amountR_font:\l_qrbill_data_Currency_tl + &\qrbill_amountR_font: + \tl_if_empty:NF \l_qrbill_data_Amount_tl + {\numprint{\l_qrbill_data_Amount_tl}} + \end{tabular} + \tl_if_empty:NTF \l_qrbill_data_Amount_tl { + \hfill + \raisebox{\dimexpr-\height+\ht\strutbox}[\z@]{\llap{ + \__qrbill_placeholder:nn {30mm} {10mm} + }} + } + \vfill + } + \par\nointerlineskip + \vbox_to_ht:nn {18mm} { + \makebox[\linewidth][r]{\qrbill_headingR_font:\qrbillacceptantname}\par + } + \end{minipage}% + \skip_horizontal:n {2\c_qrbill_sep_dim} + \begin{minipage}[c][95mm][t]{138mm} + \begin{minipage}[c][85mm][t]{51mm} + {\qrbill_title_font:\qrbillpaymentpartname} + \par\nointerlineskip + \skip_vertical:n {\c_qrbill_sep_dim} + \qrcode_setup_QRcode: + \leavevmode\qrbill_parse_QRcode:V \l_qrbill_data_str + \tl_if_empty:NF \g_qrbill_icon_tl { + \llap{\hbox_to_wd:nn {\g_qrbill_QRcode_dim} { + \hfill + \raisebox{\dimexpr-.5\height+.5\g_qrbill_QRcode_dim}[0pt][0pt]{ + \includegraphics[width=\g_qrbill_iconwidth_dim]{\g_qrbill_icon_tl} + } + \hfill + }} + } + \skip_vertical:n {\c_qrbill_sep_dim} + \vbox_to_ht:nn {22mm}{ + \begin{tabular}[b]{@{}ll@{}} + \qrbill_headingP_font:\qrbillcurrencyname&\qrbill_headingP_font: + \qrbillamountname\\ + \qrbill_amountP_font:\tl_use:c {l_qrbill_data_Currency_tl}& + \tl_if_empty:NF \l_qrbill_data_Amount_tl { + \qrbill_amountP_font:\numprint{\l_qrbill_data_Amount_tl} + } + \end{tabular} + \tl_if_empty:NTF \l_qrbill_data_Amount_tl { + \hfill + \raisebox{\dimexpr-\height+\ht\strutbox}[\z@]{ + \llap{\__qrbill_placeholder:nn {40mm} {15mm} + }} + } + } + \end{minipage} + \begin{minipage}[c][85mm][t]{87mm} + \par\nointerlineskip + {\qrbill_headingP_font:\qrbillaccountname\par} + { + \qrbill_valueP_font:\tl_use:c {l_qrbill_data_Account_tl}\par + \qrbill_insert_address:N \g__qrbill_creditorprefix_tl + \par\vskip\baselineskip + } + \tl_if_empty:NF \l_qrbill_data_Reference_tl { + {\qrbill_headingP_font:\qrbillreferencename\par} + {\qrbill_valueP_font:\tl_use:c {l_qrbill_data_Reference_tl} + \par\vskip\baselineskip} + } + \exp_args:Nf \tl_if_empty:nF { + \l_qrbill_data_BillingInfo_tl + \l_qrbill_data_Message_tl + }{ + {\qrbill_headingP_font:\qrbilladdinfoname\par} + { + \qrbill_valueP_font: + \l_qrbill_data_Message_tl\par + \tl_replace_all:Nnn \l_qrbill_data_BillingInfo_tl {/} {\discretionary{}{}{}/} + \l_qrbill_data_BillingInfo_tl + \par\vskip\baselineskip + } + } + \tl_if_empty:cTF {l_qrbill_data_\g__qrbill_debtorprefix_tl Name_tl} { + {\qrbill_headingP_font:\qrbilldebtoraddrname\par} + \__qrbill_placeholder:nn {65mm} {25mm} + }{ + {\qrbill_headingP_font:\qrbilldebtorname\par} + { + \qrbill_valueP_font: + \qrbill_insert_address:N \g__qrbill_debtorprefix_tl + \par + } + } + \end{minipage}\par\nointerlineskip + \begin{minipage}[b][10mm][t]{\linewidth} + \strut + \qrbill_insert_AV_parameters:NNn + \qrbill_infoheading_font: + \qrbill_info_font: + {AV1,AV2} + \end{minipage} + \end{minipage} + \par\nointerlineskip\skip_vertical:n {\c_qrbill_sep_dim} + \smash{ + \bool_if:NT \g__qrbill_bottom_frame_bool + {\rlap{\rule{\c_qrbill_width_dim}{\g__qrbill_rule_dim}}} + \bool_if:NTF \g__qrbill_left_frame_bool + {\rule{\g__qrbill_rule_dim}{\c_qrbill_height_dim}} + {\rule{\g__qrbill_rule_dim}{\c_zero_dim}} + \hspace{\dimexpr62mm-1.5\g__qrbill_rule_dim} + \rule{\g__qrbill_rule_dim}{\c_qrbill_height_dim} + \hspace{\dimexpr148mm-1.5\g__qrbill_rule_dim} + \bool_if:NTF \g__qrbill_right_frame_bool + {\rule{\g__qrbill_rule_dim}{\c_qrbill_height_dim}} + {\rule{\g__qrbill_rule_dim}{\c_zero_dim}} + } + } + } + \endgroup +} + +\newcommand{\QRbill}[1][]{ + \begingroup + \tl_if_empty:nF {#1} {\keys_set:nn {qrbill/data} {#1}} + \qrbill_bill_create: + \endgroup +} + +\ior_new:N \qrbill_ior +\clist_new:N \l_qrbill_tmpa_clist +\ior_open:Nn \qrbill_ior {qrbill-vocab.csv} + +\ior_get:NN \qrbill_ior \l_tmpa_tl +\clist_set:Nx \l_qrbill_tmpa_clist {\l_tmpa_tl} +\int_set:Nn \l_tmpa_int {\clist_count:N \l_qrbill_tmpa_clist} + +\ior_str_map_inline:Nn \qrbill_ior { + \int_step_inline:nnn {2} {\l_tmpa_int } { + \exp_args:Nnx \use:n {\exp_args:NNx \exp_args:Nnc \defcaptionname + {\clist_item:Nn \l_qrbill_tmpa_clist {##1}} + {qrbill\clist_item:nn {#1} {1}name}} + {\clist_item:nn {#1} {##1}} + } +} + +\ior_close:N \qrbill_ior + +\seq_new:N \l_qrbill_tmp_seq + +\cs_new:Nn \qrbill_set_address_combined:nn { + \seq_set_split:Nnn \l_qrbill_tmp_seq {\\} {#2} + \exp_args:Nnx \keys_set:nn {qrbill/data} { + #1AddressType=K, + #1Name=\seq_item:Nn \l_qrbill_tmp_seq {1}, + #1Address1=\seq_item:Nn \l_qrbill_tmp_seq {2}, + #1Address2=\seq_item:Nn \l_qrbill_tmp_seq {3}, + #1PostalCode=, + #1City=, + #1Country=\seq_item:Nn \l_qrbill_tmp_seq {4}, + } +} + +\cs_new:Nn \qrbill_set_address_structured:nn { + \seq_set_split:Nnn \l_qrbill_tmp_seq {\\} {#2} + \exp_args:Nnx \keys_set:nn {qrbill/data} { + #1AddressType=S, + #1Name=\seq_item:Nn \l_qrbill_tmp_seq {1}, + #1Address1=\seq_item:Nn \l_qrbill_tmp_seq {2}, + #1Address2=\seq_item:Nn \l_qrbill_tmp_seq {3}, + #1PostalCode=\seq_item:Nn \l_qrbill_tmp_seq {4}, + #1City=\seq_item:Nn \l_qrbill_tmp_seq {5}, + #1Country=\seq_item:Nn \l_qrbill_tmp_seq {6}, + } +} + +\cs_new:Nn \qrbill_insert_address:N { + \tl_use:c {l_qrbill_data_#1Name_tl}\ifhmode\\\fi + \str_case_e:nnF {\use:c {l_qrbill_data_#1AddressType_tl}} + { + {K} { + \tl_use:c {l_qrbill_data_#1Address1_tl} + \tl_if_empty:cF {l_qrbill_data_#1Address2_tl} { + \ifhmode\\\fi + \tl_if_empty:cF {l_qrbill_data_#1Country_tl} + {\tl_use:c {l_qrbill_data_#1Country_tl}-} + \tl_use:c {l_qrbill_data_#1Address2_tl} + } + } + }{ + \tl_use:c {l_qrbill_data_#1Address1_tl}~ + \tl_use:c {l_qrbill_data_#1Address2_tl} + \tl_if_empty:cF {l_qrbill_data_#1City_tl} { + \ifhmode\\\fi + \tl_if_empty:cF {l_qrbill_data_#1Country_tl} + {\tl_use:c {l_qrbill_data_#1Country_tl}-} + \tl_use:c {l_qrbill_data_#1PostalCode_tl}~ + \tl_use:c {l_qrbill_data_#1City_tl} + } + } +} + +\newcommand*{\insertdebtor}{\null\qrbill_insert_address:N \g__qrbill_debtorprefix_tl} +\newcommand*{\insertcreditor}{\null\qrbill_insert_address:N \g__qrbill_creditorprefix_tl} +\newcommand*{\insertcurrency}{\l_qrbill_data_Currency_tl} + +\keys_define:nn {qrbill/data} { + creditor .code:n = \qrbill_set_address_combined:nn {\g__qrbill_creditorprefix_tl}{#1}, + creditor* .code:n = \qrbill_set_address_structured:nn {\g__qrbill_creditorprefix_tl} {#1}, + debtor .code:n = \qrbill_set_address_combined:nn {\g__qrbill_debtorprefix_tl}{#1}, + debtor* .code:n = \qrbill_set_address_structured:nn {\g__qrbill_debtorprefix_tl} {#1}, + account .tl_set:N = \l_qrbill_iban_tl, +} + +\clist_map_inline:nn {AV1, AV2} { + \keys_define:nn {qrbill/data} { + #1 .code:n = { + \tl_if_empty:nF {##1}{ + \keys_set:nx {qrbill/data} { + #1-Parameters={\qrbill_av_prefix:n {#1}##1} + } + } + \tl_set:cn {l_qrbill_#1_tl} {##1} + }, + #1 .initial:n =, + } +} + +\newcommand*{\SetupQrBill}[1]{ + \keys_set:nn {qrbill/data} {#1} +} + +\str_new:N \l_qrbill_data_str +\cs_new:Nn \qrcode_setup_QRcode: { + \str_clear:N \l_qrbill_data_str + \bool_set_false:N \l_tmpa_bool + \seq_map_inline:Nn \g__qrbill_qrscheme_seq { + \bool_if:NTF \l_tmpa_bool + {\str_put_right:Nn\l_qrbill_data_str {^^J}} + {\bool_set_true:N \l_tmpa_bool} + \exp_args:NNv \str_put_right:Nn \l_qrbill_data_str {l_qrbill_data_##1_tl} + } + %necessary to preserve spaces! + \str_replace_all:Nnn \l_qrbill_data_str {~ } {\ } + \tl_set_rescan:Nno \l_qrbill_data_str {\ExplSyntaxOff} {\l_qrbill_data_str} +} + +\seq_new:N \g__qrbill_qrscheme_seq +\newcommand*\SetQrScheme[1]{ + \seq_gset_from_clist:Nn \g__qrbill_qrscheme_seq {#1} + \seq_map_inline:Nn \g__qrbill_qrscheme_seq { + \keys_define:nn {qrbill/data} { + ##1 .tl_set:c = l_qrbill_data_##1_tl, + ##1 .initial:n =, + } + } +} + + + +\prop_new:N \g__qrbill_billing_info_prop +\seq_new:N \g__qrbill_billing_info_seq +\newcommand*{\SetBillingInfoScheme}[1]{ + \prop_gset_from_keyval:Nn \g__qrbill_billing_info_prop {#1} + \seq_gclear:N \g__qrbill_billing_info_seq + \prop_map_inline:Nn \g__qrbill_billing_info_prop { + \exp_args:Nx \clist_if_in:nnF {\tl_to_str:n {prefix , postfix}} {##1} { + \seq_push:Nn \g__qrbill_billing_info_seq {##1} + } + \keys_define:nn {qrbill/data} { + ##2 .tl_set:c = l_qrbill_##2_tl, + ##2 .initial:n =, + } + } + \seq_sort:Nn \g__qrbill_billing_info_seq { + \int_compare:nNnTF { ##1 } > { ##2 } + { \sort_return_swapped: } + { \sort_return_same: } + } +} + +\tl_new:N \l_qrbill_data_BillingInfo_tl + +\cs_new:Nn \qrbill_parse_BillingInfo: { + \bool_if:NT \g__grbill_billinginfo_auto_bool { + \str_put_right:Nx \l_qrbill_data_BillingInfo_tl { + \prop_item:Nn \g__qrbill_billing_info_prop {prefix} + } + \seq_map_inline:Nn \g__qrbill_billing_info_seq { + \prop_get:NnN \g__qrbill_billing_info_prop {##1} \l_tmpa_tl + \tl_if_empty:cF {l_qrbill_\l_tmpa_tl _tl} { + \str_put_right:Nx \l_qrbill_data_BillingInfo_tl { + /##1/\tl_use:c {l_qrbill_\l_tmpa_tl _tl} + } + } + } + } +} + +\cs_new:Nn \qrbill_insert_AV_parameters:NNn { + \clist_map_inline:nn {#3} { + \tl_if_empty:cF {l_qrbill_##1_tl} + {{#1\qrbill_av_prefix:n {##1}}{#2 \tl_use:c {l_qrbill_##1_tl}}} + } +} + +\cs_new:Nn \qrbill_av_prefix:n {Name~#1:~} + +\input{\g__qrbill_qrscheme_tl.qrbill-cfg} + +% \end{macrocode} +% \begin{macrocode} +% +% \section{The file swiss.qrbill-cfg.tex as a custom qrbill scheme} +%<*swiss.qrbill-cfg.tex> +% \end{macrocode} +% \fi +% \begin{macrocode} +\qrbillsetup{ + creditorprefix =CR-, + debtorprefix =UD-, +} + +\SetQrScheme{ + QRType, + Version, + CodingType, + Account, + CR-AddressType, + CR-Name, + CR-Address1, + CR-Address2, + CR-PostalCode, + CR-City, + CR-Country, + UCR-AddressType, + UCR-Name, + UCR-Address1, + UCR-Address2, + UCR-ZIP, + UCR-City, + UCR-Country, + Amount, + Currency, + UD-AddressType, + UD-Name, + UD-Address1, + UD-Address2, + UD-PostalCode, + UD-City, + UD-Country, + ReferenceType, + Reference, + Message, + Trailer, + BillingInfo, + AV1-Parameters, + AV2-Parameters +} + +\SetBillingInfoScheme{ + prefix=//S1, + 10=invoicenum, + 11=invoicedate, + 20=customerref, + 30=vat, + 31=vatdate, + 32=vatdetails, + 33=importvat, + 40=conditions +} + +\SetupQrBill{ + QRType=SPC, + Version=0210, + CodingType=1, + Trailer=EPD, + Currency=CHF, + ReferenceType=NON, +} +% \end{macrocode} +% \iffalse +% \begin{macrocode} +% +% \end{macrocode} +% \fi +% +% \PrintChanges +% \begin{thebibliography}{99} +% \bibitem{qrbill-spec} Swiss Implementation Guidelines QR-bill: Technical and professional specifications of the payment part with Swiss QR Code and of the receipt. Version 2.1, with effect from 30 September 2019. \url{https://www.paymentstandards.ch/dam/downloads/ig-qr-bill-en.pdf} +% \bibitem{qrbill-design} Style Guide QR-billStyle Guide QR-bill: The right layout pays off. Layout rules and recommendations for the payment part with Swiss QR Code and for the receipt. \url{https://www.paymentstandards.ch/dam/downloads/style-guide-en.pdf} +% \end{thebibliography} +% \appendix +% \section{Example of standalone qrbill} +% \label{standalone-complete} +% \iffalse +% \begin{macrocode} +%<*qrbill-standalone-demo.tex> +% \end{macrocode} +% \fi +% \begin{macrocode} +% !TeX program=lualatex +\documentclass{standalone} +\usepackage[nswissgerman]{babel} + +\RequirePackage{xcolor} +\usepackage[icon=swiss-cross,separate=false]{qrbill} + +\begin{document} + +\QRbill[ + creditor*={foobar LLC\\ + Postfach\\ + 404\\ + 2342\\ + Zurich\\ + CH}, + Account=CH1280808005649899718, + vat=123123123,% VAT number with stripped CH and periods + debtor*={peiTeX\\ + TeXnikerweg\\ + 78\\ + 23420\\ + Hamburg\\ + DE}, + Amount=1337.42, + Message=Bestellung vom 27.06.2020, + invoicenum=100-4242, + invoicedate=200701,%yymmdd + vatdetails=0,% 0% VAT + vatdate=200701,%yymmdd + AV1=LX;F00BAR;2342, +] + +\end{document} +% \end{macrocode} +% \iffalse +% \begin{macrocode} +% +%<*qrbill-letter-demo.tex> +% \end{macrocode} +% \fi +% \section{qrbill scrletter example} +% \begin{macrocode} +% !TeX Program=lualatex +\documentclass[foldmarks=b]{scrletter} +\usepackage[frame=top]{qrbill} + +% Setup layer +\DeclareNewLayer[ + align=bl, + voffset=\paperheight, + hoffset=0pt, + contents={\QRbill}, + width=\paperwidth, + height=105mm, + ]{qrbill} + + + +\begin{document} + +\qrbillsetdata{ + creditor*={foobar LLC\\ + Postfach\\ + 404\\ + 2342\\ + Zurich\\ + CH}, + Account=CH1280808005649899718, + vat=123123123,% VAT number with stripped CH and periods + debtor*={peiTeX\\ + TeXnikerweg\\ + 78\\ + 23420\\ + Hamburg\\ + DE}, + Amount=1337.42, + Message=Bestellung vom 27.06.2020, + invoicenum=100-4242, + invoicedate=200701,%yymmdd + vatdetails=0,% 0% VAT + vatdate=200701,%yymmdd + AV1=LX;F00BAR;2342, +} + +\setkomavar{fromaddress}{\insertcreditor} + +\begin{letter}{\insertdebtor} + +\opening{opening} + +Text + +\closing{closing} + +% Add qbill on last page +% For more details +\AddLayersToPageStyle{@everystyle@}{qrbill} + +\end{letter} +\end{document} +% \end{macrocode} +% +% \iffalse +% \begin{macrocode} +% +% \end{macrocode} +% \fi +%\Finale +\endinput diff --git a/macros/latex/contrib/qrbill/qrbill.ins b/macros/latex/contrib/qrbill/qrbill.ins new file mode 100644 index 0000000000..116adcb78c --- /dev/null +++ b/macros/latex/contrib/qrbill/qrbill.ins @@ -0,0 +1,57 @@ +\input l3docstrip + +\def\filedate{2020/06/29} +\def\fileversion{1.01} + +\preamble + +Copyright (C) 2020 by Marei Peischl (peiTeX) + +This work is a collaboration of + Marei Peischl (peiTeX) and Alex Antener (foobar LLC). + +This work may be distributed and/or modified under the +conditions of the LaTeX Project Public License, either version 1.3 +of this license or (at your option) any later version. +The latest version of this license is in + http://www.latex-project.org/lppl.txt +and version 1.3 or later is part of all distributions of LaTeX +version 2005/12/01 or later. + +This work has the LPPL maintenance status `maintained'. + +The Current Maintainer of this work is + Marei Peischl . + +This work consists of the files +qrbill.dtx and qrbill.ins, qrbill-vocab.csv +and the derived files +qrbill.sty, swiss.qrbill-cfg.tex, qrbill-letter-demo.tex, + qrbill-standalone-demo.tex . + +The development repository can be found at +https://github.com/peitex/qrbill +Please use the issue tracker for feedback! + +\endpreamble + +\askforoverwritefalse + +\usedir{tex/latex/qrbill} + +\generate{ + \file{qrbill.sty}{ + \from{qrbill.dtx}{qrbill.sty,package} + } + \file{swiss.qrbill-cfg.tex}{ + \from{qrbill.dtx}{swiss.qrbill-cfg.tex} + } + \file{qrbill-letter-demo.tex}{ + \from{qrbill.dtx}{qrbill-letter-demo.tex} + } + \file{qrbill-standalone-demo.tex}{ + \from{qrbill.dtx}{qrbill-standalone-demo.tex} + } +} + +\endbatchfile diff --git a/macros/latex/contrib/qrbill/qrbill.pdf b/macros/latex/contrib/qrbill/qrbill.pdf new file mode 100644 index 0000000000..aedbe44c7f Binary files /dev/null and b/macros/latex/contrib/qrbill/qrbill.pdf differ diff --git a/macros/latex/contrib/qrbill/qrbill_swiss-cross.pdf b/macros/latex/contrib/qrbill/qrbill_swiss-cross.pdf new file mode 100644 index 0000000000..0907613433 Binary files /dev/null and b/macros/latex/contrib/qrbill/qrbill_swiss-cross.pdf differ diff --git a/macros/latex/contrib/qrbill/source/qrbill-vocab.csv b/macros/latex/contrib/qrbill/source/qrbill-vocab.csv deleted file mode 100644 index e9df8266ac..0000000000 --- a/macros/latex/contrib/qrbill/source/qrbill-vocab.csv +++ /dev/null @@ -1,14 +0,0 @@ -language,{ngerman, german, nswissgerman, swissgerman},{french},{italian},{english,british,american} -paymentpart,Zahlteil,Section paiement,Sezione pagamento,Payment part -account,Konto / Zahlbar an,Compte / Payable à,Conto / Pagabile a,Account / Payable to -reference,Referenz,Référence,Riferimento,Reference -addinfo,Zusätzliche Informationen,Informations additionnelles,Informazioni aggiuntive,Additional information -furtherinfo,Weitere Informationen,Informations supplémentaires,Informazioni supplementari,Further information -currency,Währung,Monnaie,Valuta,Currency -amount,Betrag,Montant,Importo,Amount -receipt,Empfangsschein,Récépissé,Ricevuta,Receipt -acceptant,Annahmestelle,Point de dépôt,Punto di accettazione,Acceptance point -separate,Vor der Einzahlung abzutrennen,A détacher avant le versement,Da staccare prima del versamento,Separate before paying in -debtor,Zahlbar durch,Payable par,Pagabile da,Payable by -debtoraddr,Zahlbar durch (Name/Adresse),Payable par (nom/adresse),Pagabile da (nome/indirizzo),Payable by (name/address) -infavourof,Zugunsten,En faveur de,A favore di,In favour of \ No newline at end of file diff --git a/macros/latex/contrib/qrbill/source/qrbill.dtx b/macros/latex/contrib/qrbill/source/qrbill.dtx deleted file mode 100644 index 3d4fabcec5..0000000000 --- a/macros/latex/contrib/qrbill/source/qrbill.dtx +++ /dev/null @@ -1,1083 +0,0 @@ -% \iffalse meta-comment -% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% -% Copyright (C) 2020 by Marei Peischl (peiTeX) -% -% This work is a collaboration of -% Marei Peischl (peiTeX) and Alex Antener (foobar LLC). -% -% This work may be distributed and/or modified under the -% conditions of the LaTeX Project Public License, either version 1.3c -% of this license or (at your option) any later version. -% The latest version of this license is in -% http://www.latex-project.org/lppl.txt -% and version 1.3c or later is part of all distributions of LaTeX -% version 2005/12/01 or later. -% -% This work has the LPPL maintenance status `maintained'. -% -% The Current Maintainer of this work is -% Marei Peischl . -% -% This work consists of the files -% qrbill.dtx and qrbill.ins, qrbill-vocab.csv -% and the derived files -% qrbill.sty, swiss.qrbill-cfg.tex, qrbill-letter-demo.tex, -% qrbill-standalone-demo.tex . -% -% The development repository can be found at -% https://github.com/peitex/qrbill -% Please use the issue tracker for feedback! -% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% -% \fi -% \iffalse -%<*package> -% \CharacterTable -% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z -% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z -% Digits \0\1\2\3\4\5\6\7\8\9 -% Exclamation \! Double quote \" Hash (number) \# -% Dollar \$ Percent \% Ampersand \& -% Acute accent \' Left paren \( Right paren \) -% Asterisk \* Plus \+ Comma \, -% Minus \- Point \. Solidus \/ -% Colon \: Semicolon \; Less than \< -% Equals \= Greater than \> Question mark \? -% Commercial at \@ Left bracket \[ Backslash \\ -% Right bracket \] Circumflex \^ Underscore \_ -% Grave accent \` Left brace \{ Vertical bar \| -% Right brace \} Tilde \~} -% -% \fi -% \iffalse -%<*driver> -\ProvidesFile{qrbill.dtx}[2020/06/28 v1.0 \ create QR-bills based on the Swiss standard] -\documentclass[english, parskip=half-]{scrartcl} -\usepackage{iftex} -\ifPDFTeX -\usepackage[T1]{fontenc} -\fi -\usepackage{doc} -\usepackage[cache, langlinenos]{minted} -% Need to set the style here so that it is defined and brought in here. -% If the style is set later, then docstrip interferes with any comments in -% the style definition so that they appear as literal text in the document. - -\setminted{style=default, tabsize=4} -\newminted{latex}{gobble=4,escapeinside=||} - -\newenvironment{doccode}{ - \VerbatimEnvironment - \begin{VerbatimOut}[gobble=1, tabsize=4]{minted.doc.out}} - {\end{VerbatimOut} - \inputminted[autogobble, escapeinside=||,tabsize=4]{latex}{minted.doc.out} -} - -\usepackage{babel} -\usepackage[babel]{csquotes} - -\EnableCrossrefs -\PageIndex -\RecordChanges -\newmintinline[code]{latex}{} - -\newcommand*\repl[1]{\meta{#1}} -\newcommand*\opt[1]{\colorbox{black!20}{\meta{#1}}} -\newcommand*\marg[1]{% - {\ttfamily\char`\{}\repl{#1}{\ttfamily\char`\}}} -\newcommand*\oarg[1]{% - {\ttfamily[}\opt{#1}{\ttfamily]} -} -\newcommand*{\sarg}{\texttt{*}} - -\usepackage{xparse} - -\OnlyDescription -\makeatletter - -\def\qrbill@optionNoDefault #1(#2) (#3){% - \vspace{0.1in}% - \leavevmode% - \marginpar{\raggedleft\small\ttfamily#1\ }% - \kern-\parindent\textsf{(#2)}\hfill#3\\} - - -\def\qrbill@option #1 (#2) (#3){% - \qrbill@optionNoDefault#1(#2) ({(default: \texttt{#3})})% -} - -\ExplSyntaxOn - -\newcommand*\qrbill@nextopt{}% -\newenvironment{optionlist}% -{% - \par\vspace{-.5\baselineskip} - \def\pipechar{|}% - \let\|\pipechar% - \RenewDocumentCommand{\item}{sr[]}{% - \qrbill@nextopt% - \renewcommand*\qrbill@nextopt{\par}% - \IfBooleanTF {##1}% - {\qrbill@optionNoDefault ##2}% - {\qrbill@option ##2}% -}} -{% - \par} -\ExplSyntaxOff - - - -% Create a short verbatim pipe that handles quotation marks properly -\begingroup -\catcode`\|=\active -\gdef\pipe@active@verbatim{% - \begingroup - \let\do\@makeother\dospecials - \catcode`\|=\active - \catcode`\`=\active - \catcode`\'=\active - \catcode`\<=\active - \catcode`\>=\active - \catcode`\-=\active - \catcode`\,=\active - \catcode`\ =\active - \pipe@active@verbatim@i} -\gdef\pipe@active@verbatim@i#1|{% - \endgroup - \begingroup - \def\FV@SV@pipe@active@verbatim{% - \FV@Gobble - \expandafter\FV@ProcessLine\expandafter{#1}}% - \BUseVerbatim{pipe@active@verbatim}% - \endgroup} -\AtBeginDocument{\let|\pipe@active@verbatim} -\endgroup -\makeatother - -\usepackage{array} -\usepackage{booktabs} - -\usepackage{qrbill} - -\usepackage[hidelinks]{hyperref} - -\begin{document} -\DocInput{qrbill.dtx} -\end{document} -% -%\fi -% -% \changes{v1.0}{2020/06/28}{First official version} -% -% \GetFileInfo{qrbill.dtx} -% -% \DoNotIndex{\newcommand,\newenvironment} -% \title{qrbill} -% \subtitle{\LaTeX-package to create QR-bills based on the Swiss payments standards} -% \author{Marei Peischl \href{mailto:marei@peitex.de}{}} -% \publishers{A collaborative project of pei\TeX{} and foobar LLC} -% \date{\filedate} -% \maketitle -% \section{Introduction} -% qrbill.sty, the \LaTeX-package, is the Free Software and Open Source answer to the launch of the swiss payments conversion, introduced mid 2020, replacing the former payment order slip by a restructured, QR enhanced slip. The published source code is based on the payment standard guidelines issued for Switzerland and intentionally has a modular structure to enable further development and adaptation for international use. -% -% By means of the \LaTeX{} framework, the qrbill can simply be integrated into existing accounting environments and automated billing systems. -% \iffalse -% \begin{macrocode} -%<*qrbill.sty> -% \end{macrocode} -% \fi -% \section{Example of use} -% The easies way to use the qrbill package is to create a bill with the standalone documentclass: -% -% \begin{doccode} -% \documentclass{standalone} -% \usepackage[ngerman]{babel} -% -% \usepackage{xcolor} -% \usepackage{qrbill} -% -% \begin{document} -% -% \QRbill[ -% creditor={foobar LLC\\ -% Postfach 404\\ -% 2342 Zurich\\ -% CH}, -% Account=CH1280808005649899718, -% % insert additional data here -% ] -% -% \end{document} -% \end{doccode} -% -% \DescribeMacro{\QRbill}\oarg{Data Setup} -% The macro \code{\QRbill} creates a box of 210\,mm${}\times{}$105\,mm size. It will include a qrbill as described in the design guide \cite{qrbill-design} and insert all available data. -% -% There is also an example in the appendix showing all data fields (see appendix \ref{standalone-complete} on page \pageref{standalone-complete}). -% -% The headings are provided in German, English, Italian and French and will be translated using the document's language setup. The terms have been taken from the official guidelines. -% -% \section{Technical Requirements} -% qrbill has been built for \TeX Live 2020. Currently it is not possible to ensure it's functionality with older Releases of \TeX Distributions. -% -% The packages loaded by qrbill are: -% \begin{itemize} -% \item expl3 -% \item fontspec (except one is using a custom font setup) -% \item graphicx -% \item scrbase (which is part of the koma-script bundle) -% \item qrcode -% \item iftex -% \item l3keys2e -% \item numprint -% \end{itemize} -% -% As a default font \enquote{Liberation Sans} will be used. This will be loaded using fontspec, which would require the use of Lua\LaTeX{} or Xe\LaTeX{} as a compiler. To have a workaround for this, see the \code{font} option on page \pageref{opt:font} for a custom font setup. -% -% \section{Package options} -% -% \begin{optionlist} -% -% \item[billinginfo (true/false) (true)] -% Activate/deactivate the automatic fill of the BillingInformation. If this is set to \code{false} one still can add data to this field using the \code{BillingInformation} key, as Described in section \ref{sec:data-setup}. -% -% \item[creditorprefix\\debtorprefix (String) (CR-/UD-)] -% For custom setups the predefined prefixes for the debtor and creditoraddress can be changes. The initial configuration is a requirement of the Swiss standards. -% -% \item[font (Frutiger/Arial/Helvetica/Liberation Sans/custom) (Liberation Sans)] -% \label{opt:font} -% The official guideline for the Swiss qrbill limits the choice of the font to the first four values of this option. The font selection and sizes currently hardcoded to fit to the size. Custom setups might be provided in the future. -% -% In case one wants to use a custom font, you can set the option \code{font=custom}. This will disable all font setup and not prevent the fontspec package from being loaded. You can redefine the macro \code{qrbillfont} to use any font available on your system, for example: -% \begin{doccode} -% \usepackage{fontspec} -% % The Laconic font has to be installed -% \renewcommand*{\qrbillfont}{\fontspec{Laconic}} -% \end{doccode} -% -% \item[frame (true/false/top/bottom) (true)] -% Switch to disable the frame around the created QRbill. The top/bottom options should be prefered when the bill is embedded into a document of a4 papersize. -% -% \item[icon (swiss-cross/filename) ()] -% The swiss standard describes the placement of a swiss-cross icon in the center of the QRcode. This can be achieved using this option. The default is set empty, so no icon will be placed. If this option holds another string than \enquote{swiss-cross} it will be interpreted as filename and try to load a custom image. -% -% \item[iconwidth (length) (7mm)] -% This option allows custom scaling for custom icons. - -% \item[qrscheme (Name of a custom QRbill scheme) (swiss)] -% Loads the definitions for the QRcode and the BillingInformation. Currently only the swiss qrbill scheme is available, but one can define own variants based on this file. Users can copy the file swiss.qrbill-cfg.tex as an example. -% \end{optionlist} -% -% \section{Data setup} -% \label{sec:data-setup} -% \DescribeMacro{\qrbillsetdata} -% The data fields can be filled either using the optional argument of \code{\QRbill} or using the macro \code{\qrbillsetdata}. Section \ref{sec:data-complete} shows a list of all available fields and appendix \ref{standalone-complete} provides an example of use. For further information on the construction of the QRcode see the specification \cite{qrbill-spec}. -% -% To simplify the usage qrbill provides an interface to use the different types of address data and is able to create a \enquote{billing information} string as described in \cite{qrbill-spec} using the single data elements. -% -% \section{Setup for the preconfigured Swiss QR-bill} -% \subsection{Preconfigured data} -% The initial configuration which uses the Swiss standard already adds the following data: -% \begin{doccode} -% \SetupQrBill{ -% QRType=SPC, -% Version=0210, -% CodingType=1, -% Trailer=EPD, -% } -% \end{doccode} -% These fields are currently required to use these values. If any future changes on the standard would require changes, they can be overwritten or redefined by using a custom implementation file, similar to swiss.qrbill-cfg.tex. -% -% Additionally the Currency has been initialized to use \enquote{CHF}. This also can be overwritten. Currently the Swiss standards only allow the values \code{CHF} or \code{EUR}. -% \subsection{Address data} -% The Swiss payment standards for QR-bills require the following data for the address of creditor (Prefix \code{CR-}) and debtor (Prefix \code{UD-}): -% \begin{center} -% \begin{tabular}{@{}>{\ttfamily}l>{\centering}p{.25\linewidth}>{\centering\arraybackslash}p{.25\linewidth}@{}} -% \toprule -% AddressType&K&S\\\cmidrule(r){1-1}\cmidrule(l){2-3} -% Name& \multicolumn{2}{c}{Name}\\\cmidrule(r){1-1}\cmidrule(l){2-3} -% Address1&Street&Street with number\\\cmidrule(r){1-1}\cmidrule(l){2-3} -% Address2&Number&Postal code with City\\\cmidrule(r){1-1}\cmidrule(l){2-3} -% ZIP&Postal code& Enforced Empty\\\cmidrule(r){1-1}\cmidrule(l){2-3} -% City& City& Enforced Empty\\\cmidrule(r){1-1}\cmidrule(l){2-3} -% Country& \multicolumn{2}{c}{Country Code}\\\bottomrule -% \end{tabular} -% \end{center} -% To set an address of type \enquote{K} one can use they option key \code{debtor} or \code{creditor}. Type \enquote{S} can be achieved using the starred variant (\code{debtor*}/\code{creditor*}). -% -% \begin{minipage}{.5\linewidth} -% \begin{doccode} -% creditor={Name\\ -% Street Nr.\\ -% PostalCode City\\ -% CountryCode}, -% \end{doccode} -% \end{minipage}% -% \begin{minipage}{.5\linewidth} -% \begin{doccode} -% creditor*={Name\\ -% Street\\ -% Nr.\\ -% PostalCode\\ -% City\\ -% CountryCode}, -% \end{doccode} -% \end{minipage} -% -% \subsection{Billing information} -% The billing information is a string which can consist of the following data elements: -% \begin{tabular}{@{}>{\ttfamily}ll@{}} -% invoicenum & invoice number\\ -% invoicedate & invoice data \\ -% customerref & customer reference \\ -% vat & VAT number\\ -% vatdate& VAT date\\ -% vatdetails& VAT percentage / details\\ -% importvat& import VAT\\ -% conditions& payment conditions\\ -% \end{tabular} -% The data has to be in the required format. qrbill might add features to automatically validate this in the future. -% -% Beside setting the data fields all on their own, qrbill can also handle a complete billing information string. One could simply set it by -% -% \begin{doccode} -% BillingInfo=//S1/10/10201409/11/190512/20/1400.000-53/30/106017086 -% /31/180508/32/7.7/40/2:10;0:30 -% \end{doccode} -% \subsection{AV-Parameters} -% The QRcode can use 2 AV Parameters. They have to carry the Prefix of \enquote{Name AV1:}/\enquote{Name AV2:}. This will be automatically added if the keys \code{AV1}/\code{AV2} are used instead of \code{AV1-Parameters}/\code{AV2-Parameters}. -% -% \subsection{Remaining data elements} -% The remaining data elements should be set directly. -% For restrictions on the content see the specification. Currently there is no validation taking place. -% The remaining for the preconfigures Swiss standard are: -% Account, -% Amount, -% ReferenceType, -% Reference, -% Message, -% -% \subsection{The Swiss cross icon} -% \cite{qrbill-design} reguires a swiss cross of 7\,mm size to be placed in the center of the QRcode. -% This package supports this by using the package option for the icon: -% \begin{doccode} -% \usepackage[icon=swiss-cross, …]{qrbill} -% \end{doccode} -% This setting is not activated by default. -% -% -% \subsection{Overview over all data fields} -% \label{sec:data-complete} -% Data fields which are used in the QRcode:\par -% \ExplSyntaxOn -% \seq_use:Nn \g__qrbill_qrscheme_seq {\\} -% \ExplSyntaxOff -% \par\medskip -% Data fields, which are custom created by the qrbill package to simplify the use:\par -% creditor and creditor*\\ -% debtor and debtor*\\ -% AV1 and AV2 -% \par\medskip -% Data fields to automatically create the BillingInfo string. The key in parentheses indicates the prefix to be used to construct the string.\par -% \ExplSyntaxOn -% \prop_map_inline:Nn \g__qrbill_billing_info_prop {#2~(#1)\\} -% \ExplSyntaxOff -% \iffalse -% \section{Implementation} -% \begin{macrocode} -\RequirePackage{expl3} -\ProvidesExplPackage{qrbill}{2020/06/28}{1.0}{ - Template for QR-bills based on the Swiss Payment Standards -} -\RequirePackage{iftex} -\RequirePackage{l3keys2e} - -\tl_new:N \g__qrbill_font_tl -\bool_new:N \g__qrbill_top_frame_bool -\bool_new:N \g__qrbill_bottom_frame_bool -\bool_new:N \g__qrbill_left_frame_bool -\bool_new:N \g__qrbill_right_frame_bool - -\keys_define:nn {qrbill} { - font .choices:nn = {Frutiger, Arial, Helvetica, Liberation Sans} { - \bool_gset_true:N \g__qrbill_fontsetup_bool - \tl_gset_eq:NN \g__qrbill_font_tl \l_keys_choice_tl - }, - font .initial:n = Liberation Sans, - font / custom .code:n = {\tl_gclear:N \g__qrbill_font_tl}, - qrscheme .tl_gset:N = \g__qrbill_qrscheme_tl, - qrscheme .initial:n = swiss, - creditorprefix .tl_gset:N = \g__qrbill_creditorprefix_tl, - creditorprefix .initial:n = CR-, - debtorprefix .tl_gset:N = \g__qrbill_debtorprefix_tl, - debtorprefix .initial:n = UD-, - qrmode .choice:, - qrmode / package .code:n = \bool_gset_false:N \g__qrbill_luamode_bool, - qrmode / lua .code:n = \bool_gset_true:N \g__qrbill_luamode_bool, - qrmode .initial:n = package, - frame .choice:, - frame / false .code:n = { - \bool_gset_false:N \__g__qrbill_top_frame_bool - \bool_gset_false:N \g__qrbill_bottom_frame_bool - \bool_gset_false:N \g__qrbill_left_frame_bool - \bool_gset_false:N \g__qrbill_right_frame_bool - }, - frame / true .code:n = { - \bool_gset_true:N \g__qrbill_top_frame_bool - \bool_gset_true:N \g__qrbill_bottom_frame_bool - \bool_gset_true:N \g__qrbill_left_frame_bool - \bool_gset_true:N \g__qrbill_right_frame_bool - }, - frame / top .code:n = { - \bool_gset_true:N \g__qrbill_top_frame_bool - \bool_gset_false:N \g__qrbill_bottom_frame_bool - \bool_gset_false:N \g__qrbill_left_frame_bool - \bool_gset_false:N \g__qrbill_right_frame_bool - }, - frame / bottom .code:n = { - \bool_gset_false:N \g__qrbill_top_frame_bool - \bool_gset_true:N \g__qrbill_bottom_frame_bool - \bool_gset_false:N \g__qrbill_left_frame_bool - \bool_gset_false:N \g__qrbill_right_frame_bool - }, - frame .initial:n = true, - billinginfo .bool_gset:N = \g__grbill_billinginfo_auto_bool, - billinginfo .default:n = true, - billinginfo .initial:n = true, - icon .choice:, - icon / swiss-cross .meta:n = {icon=qrbill_swiss-cross.pdf}, - icon / unknown .code:n = \tl_gset:Nn \g_qrbill_icon_tl {#1}, - icon .initial:n =, - iconwidth .dim_gset:N = \g_qrbill_iconwidth_dim, - iconwidth .initial:n = 7mm, -} - -\ProcessKeysOptions{qrbill} - -\newcommand*{\qrbillsetup}[1]{\keys_set:nn {qrbill}{#1}} -\newcommand*{\qrbillsetdata}[1]{\keys_set:nn {qrbill/data}{#1}} - -\tl_if_empty:NTF \g__qrbill_font_tl { - \def\qrbillfont{\normalfont} -}{ - \RequirePackage{fontspec} - \newfontfamily{\qrbillfont}{\g__qrbill_font_tl} -} - -\dim_new:N \g_qrbill_QRcode_dim -\dim_gset:Nn \g_qrbill_QRcode_dim {46mm} -\bool_if:NF \g__qrbill_luamode_bool { - \usepackage{qrcode} - \cs_new:Nn \qrbill_parse_QRcode:n { - \raisebox{\depth}{\qrcode[height= \g_qrbill_QRcode_dim]{#1}} - } - \cs_generate_variant:Nn \qrbill_parse_QRcode:n {V} -} - -\RequirePackage{scrbase} -\RequirePackage{graphicx} -\RequirePackage{numprint} -\npthousandsep{\,} -\npdecimalsign{.} - -\dim_new:N \g__qrbill_rule_dim -\dim_gset:Nn \g__qrbill_rule_dim {.5pt} -\dim_const:Nn \c_qrbill_sep_dim {5mm} -\dim_const:Nn \c_qrbill_width_dim {210mm} -\dim_const:Nn \c_qrbill_height_dim {105mm} - -\cs_new:Nn \qrbill_title_font: {\fontsize{11bp}{11bp}\selectfont\bfseries} - -\cs_new:Nn \qrbill_headingR_font: {\fontsize{6bp}{9bp}\selectfont\bfseries} -\cs_new:Nn \qrbill_valueR_font: {\fontsize{8bp}{9bp}\selectfont} -\cs_new:Nn \qrbill_amountR_font: {\fontsize{8bp}{11bp}\selectfont} -\cs_new:Nn \qrbill_acceptance_font: {\fontsize{6bp}{8bp}\selectfont\bfseries} - -\cs_new:Nn \qrbill_headingP_font: {\fontsize{8bp}{11bp}\selectfont\bfseries} -\cs_new:Nn \qrbill_valueP_font: {\fontsize{10bp}{11bp}\selectfont} -\cs_new:Nn \qrbill_amountP_font: {\fontsize{10bp}{13bp}\selectfont} - -\cs_new:Nn \qrbill_infoheading_font: {\fontsize{7bp}{8bp}\selectfont\bfseries} -\cs_new:Nn \qrbill_info_font: {\fontsize{7bp}{8bp}\selectfont} - -\dim_new:N \g_qrbill_placeholder_rule_dim -\dim_gset:Nn \g_qrbill_placeholder_rule_dim {.75pt} -\dim_new:N \g_qrbill_placeholder_corner_dim -\dim_gset:Nn \g_qrbill_placeholder_corner_dim {3mm} -\cs_new:Nn \__qrbill_placeholder_hmark: { - \rule{\g_qrbill_placeholder_corner_dim}{\g_qrbill_placeholder_rule_dim} -} -\cs_new:Nn \__qrbill_placeholder_vmark: { - \rule{\g_qrbill_placeholder_rule_dim}{\g_qrbill_placeholder_corner_dim} -} - - -\cs_new:Nn \__qrbill_placeholder:nn { - \vbox_to_ht:nn {#2} { - \hbox_to_wd:nn {#1} {\__qrbill_placeholder_hmark: \hfill \__qrbill_placeholder_hmark:} - \nointerlineskip - \hbox_to_wd:nn {#1} {\__qrbill_placeholder_vmark: \hfill \__qrbill_placeholder_vmark:} - \vfill - \hbox_to_wd:nn {#1} {\__qrbill_placeholder_vmark: \hfill \__qrbill_placeholder_vmark:} - \nointerlineskip - \hbox_to_wd:nn {#1} {\__qrbill_placeholder_hmark: \hfill \__qrbill_placeholder_hmark:} - } -} - -\cs_new:Nn \qrbill_bill_create: { - \begingroup - \qrbill_parse_BillingInfo: - \qrbillfont - \setlength{\parindent}{\z@} - \parbox{\c_qrbill_width_dim }{ - \vbox to \c_qrbill_height_dim { - \bool_if:NTF \g__qrbill_top_frame_bool - {\rule{\c_qrbill_width_dim}{\g__qrbill_rule_dim}} - {\rule{\c_zero_dim}{\g__qrbill_rule_dim}} - \par\nointerlineskip - \skip_vertical:n {\c_qrbill_sep_dim-\g__qrbill_rule_dim} - \skip_horizontal:n {\c_qrbill_sep_dim-\g__qrbill_rule_dim} - \begin{minipage}[c][95mm][t]{52mm} - \vbox_to_ht:nn {7mm} {\qrbill_title_font:\qrbillreceiptname} - \par\nointerlineskip - \vbox_to_ht:nn {56mm}{ - {\qrbill_headingR_font:\qrbillaccountname\par} - { - \qrbill_valueR_font:\tl_use:c {l_qrbill_data_Account_tl}\par - \qrbill_insert_address:N \g__qrbill_creditorprefix_tl - \par\vskip\baselineskip - } - \tl_if_empty:NF \l_qrbill_data_Reference_tl { - {\qrbill_headingR_font:\qrbillreferencename\par} - { - \qrbill_valueR_font:\tl_use:c {l_qrbill_data_Reference_tl} - \par\vskip\baselineskip - } - } - \tl_if_empty:cTF {l_qrbill_data_\g__qrbill_debtorprefix_tl Name_tl} - { - {\qrbill_headingR_font:\qrbilldebtoraddrname\par} - \__qrbill_placeholder:nn {52mm} {20mm} - }{ - {\qrbill_headingR_font:\qrbilldebtorname\par} - { - \qrbill_valueR_font: - \qrbill_insert_address:N \g__qrbill_debtorprefix_tl - \par - } - } - } - \par\nointerlineskip - \vbox_to_ht:nn {14mm}{ - \qrbill_headingR_font: - \begin{tabular}[t]{@{}ll@{}} - \qrbillcurrencyname&\qrbill_headingR_font:\qrbillamountname\\ - \qrbill_amountR_font:\l_qrbill_data_Currency_tl - &\qrbill_amountR_font: - \tl_if_empty:NF \l_qrbill_data_Amount_tl - {\numprint{\l_qrbill_data_Amount_tl}} - \end{tabular} - \tl_if_empty:NTF \l_qrbill_data_Amount_tl { - \hfill - \raisebox{\dimexpr-\height+\ht\strutbox}[\z@]{\llap{ - \__qrbill_placeholder:nn {30mm} {10mm} - }} - } - \vfill - } - \par\nointerlineskip - \vbox_to_ht:nn {18mm} { - \makebox[\linewidth][r]{\qrbill_headingR_font:\qrbillacceptantname}\par - } - \end{minipage}% - \skip_horizontal:n {2\c_qrbill_sep_dim} - \begin{minipage}[c][95mm][t]{138mm} - \begin{minipage}[c][85mm][t]{51mm} - {\qrbill_title_font:\qrbillpaymentpartname} - \par\nointerlineskip - \skip_vertical:n {\c_qrbill_sep_dim} - \qrcode_setup_QRcode: - \leavevmode\qrbill_parse_QRcode:V \l_qrbill_data_str - \tl_if_empty:NF \g_qrbill_icon_tl { - \llap{\hbox_to_wd:nn {\g_qrbill_QRcode_dim} { - \hfill - \raisebox{\dimexpr-.5\height+.5\g_qrbill_QRcode_dim}[0pt][0pt]{ - \includegraphics[width=\g_qrbill_iconwidth_dim]{\g_qrbill_icon_tl} - } - \hfill - }} - } - \skip_vertical:n {\c_qrbill_sep_dim} - \vbox_to_ht:nn {22mm}{ - \begin{tabular}[b]{@{}ll@{}} - \qrbill_headingP_font:\qrbillcurrencyname&\qrbill_headingP_font: - \qrbillamountname\\ - \qrbill_amountP_font:\tl_use:c {l_qrbill_data_Currency_tl}& - \tl_if_empty:NF \l_qrbill_data_Amount_tl { - \qrbill_amountP_font:\numprint{\l_qrbill_data_Amount_tl} - } - \end{tabular} - \tl_if_empty:NTF \l_qrbill_data_Amount_tl { - \hfill - \raisebox{\dimexpr-\height+\ht\strutbox}[\z@]{ - \llap{\__qrbill_placeholder:nn {40mm} {15mm} - }} - } - } - \end{minipage} - \begin{minipage}[c][85mm][t]{87mm} - \par\nointerlineskip - {\qrbill_headingP_font:\qrbillaccountname\par} - { - \qrbill_valueP_font:\tl_use:c {l_qrbill_data_Account_tl}\par - \qrbill_insert_address:N \g__qrbill_creditorprefix_tl - \par\vskip\baselineskip - } - \tl_if_empty:NF \l_qrbill_data_Reference_tl { - {\qrbill_headingP_font:\qrbillreferencename\par} - {\qrbill_valueP_font:\tl_use:c {l_qrbill_data_Reference_tl} - \par\vskip\baselineskip} - } - \exp_args:Nf \tl_if_empty:nF { - \l_qrbill_data_BillingInfo_tl - \l_qrbill_data_Message_tl - }{ - {\qrbill_headingP_font:\qrbilladdinfoname\par} - { - \qrbill_valueP_font: - \l_qrbill_data_Message_tl\par - \tl_replace_all:Nnn \l_qrbill_data_BillingInfo_tl {/} {\discretionary{}{}{}/} - \l_qrbill_data_BillingInfo_tl - \par\vskip\baselineskip - } - } - \tl_if_empty:cTF {l_qrbill_data_\g__qrbill_debtorprefix_tl Name_tl} { - {\qrbill_headingP_font:\qrbilldebtoraddrname\par} - \__qrbill_placeholder:nn {65mm} {25mm} - }{ - {\qrbill_headingP_font:\qrbilldebtorname\par} - { - \qrbill_valueP_font: - \qrbill_insert_address:N \g__qrbill_debtorprefix_tl - \par - } - } - \end{minipage}\par\nointerlineskip - \begin{minipage}[b][10mm][t]{\linewidth} - \strut - \qrbill_insert_AV_parameters:NNn - \qrbill_infoheading_font: - \qrbill_info_font: - {AV1,AV2} - \end{minipage} - \end{minipage} - \par\nointerlineskip\skip_vertical:n {\c_qrbill_sep_dim} - \smash{ - \bool_if:NT \g__qrbill_bottom_frame_bool - {\rlap{\rule{\c_qrbill_width_dim}{\g__qrbill_rule_dim}}} - \bool_if:NTF \g__qrbill_left_frame_bool - {\rule{\g__qrbill_rule_dim}{\c_qrbill_height_dim}} - {\rule{\g__qrbill_rule_dim}{\c_zero_dim}} - \hspace{\dimexpr62mm-1.5\g__qrbill_rule_dim} - \rule{\g__qrbill_rule_dim}{\c_qrbill_height_dim} - \hspace{\dimexpr148mm-1.5\g__qrbill_rule_dim} - \bool_if:NTF \g__qrbill_right_frame_bool - {\rule{\g__qrbill_rule_dim}{\c_qrbill_height_dim}} - {\rule{\g__qrbill_rule_dim}{\c_zero_dim}} - } - } - } - \endgroup -} - -\newcommand{\QRbill}[1][]{ - \begingroup - \tl_if_empty:nF {#1} {\keys_set:nn {qrbill/data} {#1}} - \qrbill_bill_create: - \endgroup -} - -\ior_new:N \qrbill_ior -\clist_new:N \l_qrbill_tmpa_clist -\ior_open:Nn \qrbill_ior {qrbill-vocab.csv} - -\ior_get:NN \qrbill_ior \l_tmpa_tl -\clist_set:Nx \l_qrbill_tmpa_clist {\l_tmpa_tl} -\int_set:Nn \l_tmpa_int {\clist_count:N \l_qrbill_tmpa_clist} - -\ior_str_map_inline:Nn \qrbill_ior { - \int_step_inline:nnn {2} {\l_tmpa_int } { - \exp_args:Nnx \use:n {\exp_args:NNx \exp_args:Nnc \defcaptionname - {\clist_item:Nn \l_qrbill_tmpa_clist {##1}} - {qrbill\clist_item:nn {#1} {1}name}} - {\clist_item:nn {#1} {##1}} - } -} - -\ior_close:N \qrbill_ior - -\seq_new:N \l_qrbill_tmp_seq - -\cs_new:Nn \qrbill_set_address_combined:nn { - \seq_set_split:Nnn \l_qrbill_tmp_seq {\\} {#2} - \exp_args:Nnx \keys_set:nn {qrbill/data} { - #1AddressType=K, - #1Name=\seq_item:Nn \l_qrbill_tmp_seq {1}, - #1Address1=\seq_item:Nn \l_qrbill_tmp_seq {2}, - #1Address2=\seq_item:Nn \l_qrbill_tmp_seq {3}, - #1PostalCode=, - #1City=, - #1Country=\seq_item:Nn \l_qrbill_tmp_seq {4}, - } -} - -\cs_new:Nn \qrbill_set_address_structured:nn { - \seq_set_split:Nnn \l_qrbill_tmp_seq {\\} {#2} - \exp_args:Nnx \keys_set:nn {qrbill/data} { - #1AddressType=S, - #1Name=\seq_item:Nn \l_qrbill_tmp_seq {1}, - #1Address1=\seq_item:Nn \l_qrbill_tmp_seq {2}, - #1Address2=\seq_item:Nn \l_qrbill_tmp_seq {3}, - #1PostalCode=\seq_item:Nn \l_qrbill_tmp_seq {4}, - #1City=\seq_item:Nn \l_qrbill_tmp_seq {5}, - #1Country=\seq_item:Nn \l_qrbill_tmp_seq {6}, - } -} - -\cs_new:Nn \qrbill_insert_address:N { - \tl_use:c {l_qrbill_data_#1Name_tl}\ifhmode\\\fi - \str_case_e:nnF {\use:c {l_qrbill_data_#1AddressType_tl}} - { - {K} { - \tl_use:c {l_qrbill_data_#1Address1_tl} - \tl_if_empty:cF {l_qrbill_data_#1Address2_tl} { - \ifhmode\\\fi - \tl_if_empty:cF {l_qrbill_data_#1Country_tl} - {\tl_use:c {l_qrbill_data_#1Country_tl}-} - \tl_use:c {l_qrbill_data_#1Address2_tl} - } - } - }{ - \tl_use:c {l_qrbill_data_#1Address1_tl}~ - \tl_use:c {l_qrbill_data_#1Address2_tl} - \tl_if_empty:cF {l_qrbill_data_#1City_tl} { - \ifhmode\\\fi - \tl_if_empty:cF {l_qrbill_data_#1Country_tl} - {\tl_use:c {l_qrbill_data_#1Country_tl}-} - \tl_use:c {l_qrbill_data_#1PostalCode_tl}~ - \tl_use:c {l_qrbill_data_#1City_tl} - } - } -} - -\newcommand*{\insertdebtor}{\null\qrbill_insert_address:N \g__qrbill_debtorprefix_tl} -\newcommand*{\insertcreditor}{\null\qrbill_insert_address:N \g__qrbill_creditorprefix_tl} -\newcommand*{\insertcurrency}{\l_qrbill_data_Currency_tl} - -\keys_define:nn {qrbill/data} { - creditor .code:n = \qrbill_set_address_combined:nn {\g__qrbill_creditorprefix_tl}{#1}, - creditor* .code:n = \qrbill_set_address_structured:nn {\g__qrbill_creditorprefix_tl} {#1}, - debtor .code:n = \qrbill_set_address_combined:nn {\g__qrbill_debtorprefix_tl}{#1}, - debtor* .code:n = \qrbill_set_address_structured:nn {\g__qrbill_debtorprefix_tl} {#1}, - account .tl_set:N = \l_qrbill_iban_tl, -} - -\clist_map_inline:nn {AV1, AV2} { - \keys_define:nn {qrbill/data} { - #1 .code:n = { - \tl_if_empty:nF {##1}{ - \keys_set:nx {qrbill/data} { - #1-Parameters={\qrbill_av_prefix:n {#1}##1} - } - } - \tl_set:cn {l_qrbill_#1_tl} {##1} - }, - #1 .initial:n =, - } -} - -\newcommand*{\SetupQrBill}[1]{ - \keys_set:nn {qrbill/data} {#1} -} - -\str_new:N \l_qrbill_data_str -\cs_new:Nn \qrcode_setup_QRcode: { - \str_clear:N \l_qrbill_data_str - \bool_set_false:N \l_tmpa_bool - \seq_map_inline:Nn \g__qrbill_qrscheme_seq { - \bool_if:NTF \l_tmpa_bool - {\str_put_right:Nn\l_qrbill_data_str {^^J}} - {\bool_set_true:N \l_tmpa_bool} - \exp_args:NNv \str_put_right:Nn \l_qrbill_data_str {l_qrbill_data_##1_tl} - } - %necessary to preserve spaces! - \str_replace_all:Nnn \l_qrbill_data_str {~ } {\ } - \tl_set_rescan:Nno \l_qrbill_data_str {\ExplSyntaxOff} {\l_qrbill_data_str} -} - -\seq_new:N \g__qrbill_qrscheme_seq -\newcommand*\SetQrScheme[1]{ - \seq_gset_from_clist:Nn \g__qrbill_qrscheme_seq {#1} - \seq_map_inline:Nn \g__qrbill_qrscheme_seq { - \keys_define:nn {qrbill/data} { - ##1 .tl_set:c = l_qrbill_data_##1_tl, - ##1 .initial:n =, - } - } -} - - - -\prop_new:N \g__qrbill_billing_info_prop -\seq_new:N \g__qrbill_billing_info_seq -\newcommand*{\SetBillingInfoScheme}[1]{ - \prop_gset_from_keyval:Nn \g__qrbill_billing_info_prop {#1} - \seq_gclear:N \g__qrbill_billing_info_seq - \prop_map_inline:Nn \g__qrbill_billing_info_prop { - \exp_args:Nx \clist_if_in:nnF {\tl_to_str:n {prefix , postfix}} {##1} { - \seq_push:Nn \g__qrbill_billing_info_seq {##1} - } - \keys_define:nn {qrbill/data} { - ##2 .tl_set:c = l_qrbill_##2_tl, - ##2 .initial:n =, - } - } - \seq_sort:Nn \g__qrbill_billing_info_seq { - \int_compare:nNnTF { ##1 } > { ##2 } - { \sort_return_swapped: } - { \sort_return_same: } - } -} - -\tl_new:N \l_qrbill_data_BillingInfo_tl - -\cs_new:Nn \qrbill_parse_BillingInfo: { - \bool_if:NT \g__grbill_billinginfo_auto_bool { - \str_put_right:Nx \l_qrbill_data_BillingInfo_tl { - \prop_item:Nn \g__qrbill_billing_info_prop {prefix} - } - \seq_map_inline:Nn \g__qrbill_billing_info_seq { - \prop_get:NnN \g__qrbill_billing_info_prop {##1} \l_tmpa_tl - \tl_if_empty:cF {l_qrbill_\l_tmpa_tl _tl} { - \str_put_right:Nx \l_qrbill_data_BillingInfo_tl { - /##1/\tl_use:c {l_qrbill_\l_tmpa_tl _tl} - } - } - } - } -} - -\cs_new:Nn \qrbill_insert_AV_parameters:NNn { - \clist_map_inline:nn {#3} { - \tl_if_empty:cF {l_qrbill_##1_tl} - {{#1\qrbill_av_prefix:n {##1}}{#2 \tl_use:c {l_qrbill_##1_tl}}} - } -} - -\cs_new:Nn \qrbill_av_prefix:n {Name~#1:~} - -\input{\g__qrbill_qrscheme_tl.qrbill-cfg} - -% \end{macrocode} -% \begin{macrocode} -% -%<*swiss.qrbill-cfg.tex> -% \end{macrocode} -% \fi -% \begin{macrocode} -\qrbillsetup{ - creditorprefix =CR-, - debtorprefix =UD-, -} - -\SetQrScheme{ - QRType, - Version, - CodingType, - Account, - CR-AddressType, - CR-Name, - CR-Address1, - CR-Address2, - CR-PostalCode, - CR-City, - CR-Country, - UCR-AddressType, - UCR-Name, - UCR-Address1, - UCR-Address2, - UCR-ZIP, - UCR-City, - UCR-Country, - Amount, - Currency, - UD-AddressType, - UD-Name, - UD-Address1, - UD-Address2, - UD-PostalCode, - UD-City, - UD-Country, - ReferenceType, - Reference, - Message, - Trailer, - BillingInfo, - AV1-Parameters, - AV2-Parameters -} - -\SetBillingInfoScheme{ - prefix=//S1, - 10=invoicenum, - 11=invoicedate, - 20=customerref, - 30=vat, - 31=vatdate, - 32=vatdetails, - 33=importvat, - 40=conditions -} - -\SetupQrBill{ - QRType=SPC, - Version=0210, - CodingType=1, - Trailer=EPD, - Currency=CHF, - ReferenceType=NON, -} -% \end{macrocode} -% \iffalse -% \begin{macrocode} -% -% \end{macrocode} -% \fi -% -% \appendix -% \section{Example of standalone qrbill} -% \label{standalone-complete} -% \iffalse -% \begin{macrocode} -%<*qrbill-standalone-demo.tex> -% \end{macrocode} -% \fi -% \begin{macrocode} -% !TeX program=lualatex -\documentclass{standalone} -\usepackage[nswissgerman]{babel} - -\RequirePackage{xcolor} -\usepackage[icon=swiss-cross]{qrbill} - -\begin{document} - -\QRbill[ - creditor*={foobar LLC\\ - Postfach\\ - 404\\ - 2342\\ - Zurich\\ - CH}, - Account=CH1280808005649899718, - vat=123123123,% VAT number with stripped CH and periods - debtor*={peiTeX\\ - TeXnikerweg\\ - 78\\ - 23420\\ - Hamburg\\ - DE}, - Amount=1337.42, - Message=Bestellung vom 27.06.2020, - invoicenum=100-4242, - invoicedate=200701,%yymmdd - vatdetails=0,% 0% VAT - vatdate=200701,%yymmdd - AV1=LX;F00BAR;2342, -] - -\end{document} -% \end{macrocode} -% \iffalse -% \begin{macrocode} -% -%<*qrbill-letter-demo.tex> -% \end{macrocode} -% \fi -% \section{qrbill scrletter example} -% \begin{macrocode} -% !TeX Program=lualatex -\documentclass[foldmarks=b]{scrletter} -\usepackage[frame=top]{qrbill} - -% Setup layer -\DeclareNewLayer[ - align=bl, - voffset=\paperheight, - hoffset=0pt, - contents={\QRbill}, - width=\paperwidth, - height=105mm, - ]{qrbill} - - - -\begin{document} - -\qrbillsetdata{ - creditor*={foobar LLC\\ - Postfach\\ - 404\\ - 2342\\ - Zurich\\ - CH}, - Account=CH1280808005649899718, - vat=123123123,% VAT number with stripped CH and periods - debtor*={peiTeX\\ - TeXnikerweg\\ - 78\\ - 23420\\ - Hamburg\\ - DE}, - Amount=1337.42, - Message=Bestellung vom 27.06.2020, - invoicenum=100-4242, - invoicedate=200701,%yymmdd - vatdetails=0,% 0% VAT - vatdate=200701,%yymmdd - AV1=LX;F00BAR;2342, -} - -\setkomavar{fromaddress}{\insertcreditor} - -\begin{letter}{\insertdebtor} - -\opening{opening} - -Text - -\closing{closing} - -% Add qbill on last page -% For more details -\AddLayersToPageStyle{@everystyle@}{qrbill} - -\end{letter} -\end{document} -% \end{macrocode} -% -% \iffalse -% \begin{macrocode} -% -% \end{macrocode} -% \fi -% \begin{thebibliography}{99} -% \bibitem{qrbill-spec} Swiss Implementation Guidelines QR-bill: Technical and professional specifications of the payment part with Swiss QR Code and of the receipt. Version 2.1, with effect from 30 September 2019. \url{https://www.paymentstandards.ch/dam/downloads/ig-qr-bill-en.pdf} -% \bibitem{qrbill-design} Style Guide QR-billStyle Guide QR-bill: The right layout pays off. Layout rules and recommendations for the payment part with Swiss QR Code and for the receipt. \url{https://www.paymentstandards.ch/dam/downloads/style-guide-en.pdf} -% \end{thebibliography} -%\Finale -\endinput diff --git a/macros/latex/contrib/qrbill/source/qrbill.ins b/macros/latex/contrib/qrbill/source/qrbill.ins deleted file mode 100644 index 48d4c6c8f6..0000000000 --- a/macros/latex/contrib/qrbill/source/qrbill.ins +++ /dev/null @@ -1,57 +0,0 @@ -\input l3docstrip - -\def\filedate{2020/06/28} -\def\fileversion{1.0} - -\preamble - -Copyright (C) 2020 by Marei Peischl (peiTeX) - -This work is a collaboration of - Marei Peischl (peiTeX) and Alex Antener (foobar LLC). - -This work may be distributed and/or modified under the -conditions of the LaTeX Project Public License, either version 1.3 -of this license or (at your option) any later version. -The latest version of this license is in - http://www.latex-project.org/lppl.txt -and version 1.3 or later is part of all distributions of LaTeX -version 2005/12/01 or later. - -This work has the LPPL maintenance status `maintained'. - -The Current Maintainer of this work is - Marei Peischl . - -This work consists of the files -qrbill.dtx and qrbill.ins, qrbill-vocab.csv -and the derived files -qrbill.sty, swiss.qrbill-cfg.tex, qrbill-letter-demo.tex, - qrbill-standalone-demo.tex . - -The development repository can be found at -https://github.com/peitex/qrbill -Please use the issue tracker for feedback! - -\endpreamble - -\askforoverwritefalse - -\usedir{tex/latex/qrbill} - -\generate{ - \file{qrbill.sty}{ - \from{qrbill.dtx}{qrbill.sty,package} - } - \file{swiss.qrbill-cfg.tex}{ - \from{qrbill.dtx}{swiss.qrbill-cfg.tex} - } - \file{qrbill-letter-demo.tex}{ - \from{qrbill.dtx}{qrbill-letter-demo.tex} - } - \file{qrbill-standalone-demo.tex}{ - \from{qrbill.dtx}{qrbill-standalone-demo.tex} - } -} - -\endbatchfile diff --git a/macros/latex/contrib/qrbill/source/qrbill_swiss-cross.pdf b/macros/latex/contrib/qrbill/source/qrbill_swiss-cross.pdf deleted file mode 100644 index 0907613433..0000000000 Binary files a/macros/latex/contrib/qrbill/source/qrbill_swiss-cross.pdf and /dev/null differ -- cgit v1.2.3