diff options
author | Karl Berry <karl@freefriends.org> | 2012-04-15 22:15:11 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-04-15 22:15:11 +0000 |
commit | 29114d9904e209855798bd198b0ffca5b599a2ad (patch) | |
tree | 964f73484d07999ab2e5e2eb16d0b4d0b55e6147 /Master/texmf-dist | |
parent | 9f0f0a66f8c20db4bf98d4fa16ea6e394b063553 (diff) |
regexpatch 0.1 (15apr12)
git-svn-id: svn://tug.org/texlive/trunk@25978 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
-rw-r--r-- | Master/texmf-dist/doc/latex/regexpatch/README | 43 | ||||
-rw-r--r-- | Master/texmf-dist/doc/latex/regexpatch/regexpatch.pdf | bin | 0 -> 483472 bytes | |||
-rw-r--r-- | Master/texmf-dist/source/latex/regexpatch/regexpatch.dtx | 1230 | ||||
-rw-r--r-- | Master/texmf-dist/source/latex/regexpatch/regexpatch.ins | 36 | ||||
-rw-r--r-- | Master/texmf-dist/tex/latex/regexpatch/regexpatch.sty | 522 |
5 files changed, 1831 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/regexpatch/README b/Master/texmf-dist/doc/latex/regexpatch/README new file mode 100644 index 00000000000..e4ecd2417fc --- /dev/null +++ b/Master/texmf-dist/doc/latex/regexpatch/README @@ -0,0 +1,43 @@ +The regexpatch package generalizes the macro patching commands +provided by P. Lehmann's `etoolbox'. The difference between this +package and its sibling `xpatch' is that this package sports a very +powerful `\regexpatchcmd' based on the `l3regex' module of LaTeX3 +experimental packages. + + +This is version 0.1 of the package + + Copyright 2012 Enrico Gregorio + + It may be distributed and/or modified under the conditions of the + LaTeX Project Public License (LPPL), either version 1.3c of this + license or (at your option) any later version. The latest version + of this license is in the file + + http://www.latex-project.org/lppl.txt + + Author: Enrico Gregorio + Enrico dot Gregorio at univr dot it + + This work has the LPPL maintenance status "author-maintained". + + This work consists of the following files: + +README (this file) +regexpatch.dtx +regexpatch.ins +regexpatch.pdf + + and of the derived file + +regexpatch.sty + +To install the distribution: + +o run "latex regexpatch.ins" +o move "regexpatch.sty" to locations where LaTeX will find + it (the FAQ on CTAN in /help/uktug-FAQ gives more + information about this magic place + +2012/04/15 +Enrico Gregorio diff --git a/Master/texmf-dist/doc/latex/regexpatch/regexpatch.pdf b/Master/texmf-dist/doc/latex/regexpatch/regexpatch.pdf Binary files differnew file mode 100644 index 00000000000..b6152608e20 --- /dev/null +++ b/Master/texmf-dist/doc/latex/regexpatch/regexpatch.pdf diff --git a/Master/texmf-dist/source/latex/regexpatch/regexpatch.dtx b/Master/texmf-dist/source/latex/regexpatch/regexpatch.dtx new file mode 100644 index 00000000000..261bdcf3db2 --- /dev/null +++ b/Master/texmf-dist/source/latex/regexpatch/regexpatch.dtx @@ -0,0 +1,1230 @@ +% \iffalse meta-comment +% +%% File: regexpatch.dtx (C) Copyright 2012 Enrico Gregorio +%% +%% It may be distributed and/or modified under the conditions of the +%% LaTeX Project Public License (LPPL), either version 1.3c of this +%% license or (at your option) any later version. The latest version +%% of this license is in the file +%% +%% http://www.latex-project.org/lppl.txt +%% +%% This file is part of the "regexpatch bundle" (The Work in LPPL) +%% and all files in that bundle must be distributed together. +%% +%% The released version of this bundle is available from CTAN. +%% +% +%<*driver|package> +\RequirePackage{expl3} +%</driver|package> +%<*driver> +\expandafter\def\csname ver@thumbpdf.sty\endcsname{} +\documentclass[a4paper,full]{l3doc} +\usepackage{bookmark} +\newcommand{\sv}{[\texttt{*}]} +%</driver> +%<*driver|package> +\GetIdInfo$Id: regexpatch.dtx 0.1dev 2012-04-15 12:00:00Z Enrico $ + {Extending etoolbox patching commands} +%</driver|package> +%<*driver> +\begin{document} + \DocInput{\jobname.dtx} +\end{document} +%</driver> +% \fi +% +% \title{^^A +% The \textsf{regexpatch} package\\ Replacing \textsf{etoolbox} patching +% commands^^A +% \thanks{This file describes version \ExplFileVersion, +% last revised \ExplFileDate.}^^A +% } +% +% \author{^^A +% Enrico Gregorio\thanks +% {^^A +% E-mail: +% Enrico DOT Gregorio AT univr DOT it^^A +% }^^A +% } +% +% \date{Released \ExplFileDate} +% +% \maketitle +% +% \begin{documentation} +% +% \begin{quotation}\small +% \begin{center}\bfseries\large +% Important preliminary notice +% \end{center} +% \medskip +% This is an experimental version and it might cease to work if the +% commands in the package \textsf{l3regex} are modified. When that +% \LaTeX3 package will be declared stable, this package will replace +% \textsf{xpatch} and calling |\usepackage{regexpatch}| will load the +% main package. Use at own risk. +% \end{quotation} +% +% \section{Introduction} +% +% The well known \pkg{etoolbox} package provides a bunch of functions +% for patching existing commands; in particular |\patchcmd|, +% |\pretocmd| and |\apptocmd| that do a wonderful job, but suffer from +% a limitation: if some package has defined +%\begin{verbatim} +% \newcommand{\xyz}[1][x]{-#1!} +%\end{verbatim} +% where |\xyz| has an optional argument, then |\patchcmd| and siblings +% cannot be used to modify the workings of |\xyz|. The same happens +% when a command has been defined with |\DeclareRobustCommand|. +% +% The reason for this is \TeX{}nical or, better, \LaTeX{}nical. When +% \LaTeX{} performs the above definition, the expansion of |\xyz| will +% be +%\begin{verbatim} +% \@protected@testopt \xyz \\xyz {x} +%\end{verbatim} +% where |\@protected@testopt| is a macro that essentially checks +% whether we are in a ``protected'' context, so that expansion should +% not be performed all the way (in moving arguments or write +% operations), or not; in the former case it issues a protected +% version of |\xyz|, while in the latter case it expands the macro +% |\\xyz| that is a \emph{single} command (yes, with a backslash in +% its name) which contains the real definition; a way to access this +% definition is to issue the command +%\begin{verbatim} +% \expandafter\show\csname\string\xyz\endcsname +%\end{verbatim} +% which will print in the log file the message +%\begin{verbatim} +% > \\xyz=\long macro: +% [#1]->-#1!. +%\end{verbatim} +% As usual, after |->| we see the definition. In order to use +% |\patchcmd| to change the exclamation mark into a hyphen one must do +%\begin{verbatim} +% \expandafter\patchcmd\csname\string\xyz\endcsname{!}{-}{}{} +%\end{verbatim} +% (see the documentation of \pkg{etoolbox} for details about the +% arguments). +% +% A similar situation happens if |\xyz| has been defined by +%\begin{verbatim} +% \DeclareRobustCommand{\xyz}{something} +%\end{verbatim} +% A |\show\xyz| would show the cryptic +%\begin{verbatim} +% > \xyz=macro: +% ->\protect \xyz . +%\end{verbatim} +% and only a close look reveals the clever trick used by the \LaTeX{} +% team: the |\protect| is not applied to |\xyz|, but to the macro +% \verb*?\xyz ? which has a space at the end of its name! And this +% macro is the one that contains the real definition. Indeed, +%\begin{verbatim} +% \expandafter\show\csname xyz\space\endcsname +%\end{verbatim} +% produces the message +%\begin{verbatim} +% > \xyz =\long macro: +% ->something. +%\end{verbatim} +% In this case, in order to apply |\patchcmd| we must say +%\begin{verbatim} +% \expandafter\patchcmd\csname xyz\space\endcsname{s}{S}{}{} +%\end{verbatim} +% If the macro with |\DeclareRobustCommand| is defined to have an +% optional argument, say +%\begin{verbatim} +% \DeclareRobustCommand{\xyz}[1][x]{-#1!} +%\end{verbatim} +% one has to combine the two tricks: +%\begin{verbatim} +% \expandafter\patchcmd\csname\string\xyz\space\endcsname{!}{-}{}{} +%\end{verbatim} +% It's hard and error prone to remember all of these tricks, so this +% package comes to the rescue. +% +% The package is now completely independent of \pkg{etoolbox}. It +% doesn't feature commands analogous to |\preto| and |\appto| that, in +% the author's opinion, are a bit dangerous, since somebody might +% apply them to commands defined with |\DeclareRobustCommand| or +% |\newrobustcmd|, with the obvious problems. +% +% The \pkg{regexpatch} package uses many features of the \LaTeX3 +% experimental packages, in particular of \pkg{l3regex}. This has a +% clear advantage: we can have a *-variant of |\xpatchcmd| that does a +% ``replace~all'' that can avoid multiple uses of |\patchcmd| on the +% same macro. Moreover there's a very powerful |\regexpatchcmd| +% function that uses regular expression syntax for search and replace +% which can even patch commands defined under different category code +% setup. +% +% For example, let's see how the \LaTeX{} kernel defines |\strip@pt|: +%\begin{verbatim} +% \begingroup +% \catcode`P=12 +% \catcode`T=12 +% \lowercase{ +% \def\x{\def\rem@pt##1.##2PT{##1\ifnum##2>\z@.##2\fi}}} +% \expandafter\endgroup\x +% \def\strip@pt{\expandafter\rem@pt\the} +%\end{verbatim} +% The same result can be obtained by +%\begin{verbatim} +% \begingroup\def\defrem@pt{\endgroup +% \def\rem@pt##1.##2pt{##1\ifnum##2>\z@.##2\fi}} +% \regexpatchcmd{\defrem@pt}{pt}{\cOp\cOt}{}{} +% \defrem@pt +% \def\strip@pt{\expandafter\rem@pt\the} +%\end{verbatim} +% Perhaps not so striking, but the pattern seems to be more intuitive; +% however the package supplies also a function for patching the +% parameter text of a macro: +%\begin{verbatim} +% \def\rem@pt#1.#2pt{#1\ifnum#2>\z@.#2\fi} +% \xpatchparametertext{\rem@pt}{pt}{\cO p \cO t}{}{} +%\end{verbatim} +% Of course, reading the manual of \pkg{l3regex} is necessary for +% being able to exploit the full power of |\regexpatchcmd| or +% |\xpatchparametertext|; in this case, `|\cO p|' (the space in between +% is optional) specifies a character `|p|' with category code `other'. +% Actually neither the |\cO| escape is necessary, as all letters in a +% replacement text in the context of regular expressions has category +% code 12 by default, but clarity is often to be preferred to +% efficiency. +% +% +% \section{Important notices} +% +% If the command to be patched contains `|@|-commands' in its +% replacement text, \emph{always} ensure that the patching code is +% enclosed between |\makeatletter| and |\makeatother|. It's +% recommended to turn on |\tracingxpatches| when testing a patch, to +% get maximum information. +% +% In the present version, commands that have been redefined via the +% \pkg{etoolbox} command |\robustify| are \emph{not} patchable, in +% general. The next version will probably provide a new way for +% robustifying commands. +% +% +% \section{Commands} +% +% The main commands introduced by this package are +% \begin{itemize} +% \item |\xpretocmd| +% \item |\xapptocmd| +% \item |\xpatchcmd| +% \item |\regexpatchcmd| +% \end{itemize} +% which have the same syntax as the similar commands provided by +% \pkg{etoolbox} and apply to all kind of commands defined by +% \begin{itemize} +% \item the \LaTeX{} kernel macros |\newcommand|, |\renewcommand|, +% |\providecommand|, but also |\newenvironment| and +% |\renewenvironment|; +% \item the \LaTeX{} kernel macro for defining robust commands +% |\DeclareRobustCommand|; +% \item the \pkg{etoolbox} macros |\newrobustcmd|, |\renewrobustcmd|, +% |\providerobustcmd|. +% \end{itemize} +% Notice that patching the definition of the environment |foo| +% requires patching |\foo| or |\endfoo|. +% +% These commands will act as the original ones if the macro to patch +% is not robust or with optional arguments. +% +% There is also added functionality that \pkg{etoolbox} doesn't +% provide (at least easily for the first command): +% \begin{itemize} +% \item |\xpatchoptarg| +% \item |\xpatchparametertext| +% \item |\checkifpatchable| +% \end{itemize} +% +% Moreover the package defines +% \begin{itemize} +% \item |\xpretobibmacro| +% \item |\xapptobibmacro| +% \item |\xpatchbibmacro| +% \item |\regexpatchbibmacro| +% \end{itemize} +% that can be used to patch commands defined with \pkg{biblatex}'s +% |\newbibmacro|. Say that we have +%\begin{verbatim} +% \newbibmacro{foo.bar}[2]{#1 and #2} +%\end{verbatim} +% Then, to change |and| into |und|, we can now say +%\begin{verbatim} +% \xpatchbibmacro{foo.bar}{and}{und}{}{} +%\end{verbatim} +% \medskip +% \begin{lrbox}{0} +% \begin{minipage}{\dimexpr\textwidth-2\fboxsep-2\fboxrule\relax} +% \footnotesize^^A +% Patching these macros with \pkg{etoolbox} requires +% resorting to the \emph{very} cryptic +%\begin{verbatim} +% \expandafter\patchcmd\csname abx@macro@\detokenize{foo.bar}\endcsname +% {and}{und}{}{} +%\end{verbatim} +% that would become an astonishing +%\begin{verbatim} +% \expandafter\patchcmd\csname\expandafter\string\csname +% abx@macro@\detokenize{foo.bar}\endcsname\endcsname +% {and}{und}{}{} +%\end{verbatim} +% if the original definition had been with an optional argument, say +%\begin{verbatim} +% \newbibmacro{foo.bar}[2][x]{#1 and #2} +%\end{verbatim} +% \end{minipage} +% \end{lrbox} +% \noindent\fbox{\usebox{0}} +% +% \medskip +% +% For \pkg{biblatex} users there are also +% \begin{itemize} +% \item |\xpretobibdriver| +% \item |\xapptobibdriver| +% \item |\xpatchbibdriver| +% \item |\regexpatchbibdriver| +% \end{itemize} +% for patching commands defined with |\DeclareBibliographyDriver|. One +% could use, for patching the driver |foo|, +%\begin{verbatim} +% \makeatletter +% \patchcmd{\blx@bbx@foo}{X}{Y}{success}{failure} +% \preto{\blx@bbx@foo}{P} +% \appto{\blx@bbx@foo}{A} +% \makeatother +%\end{verbatim} +% but having a lighter interface can be handy. Since our macros use +% |\pretocmd| and |\apptocmd| for consistency, remember to always use +% the |{success}| and |{failure}| arguments also with +% |\xpretobibdriver| and |\xapptobibdriver|. +% +% Finally, the package defines the commands +% \begin{itemize} +% \item |\xshowcmd| +% \item |\xshowbibmacro| +% \item |\xshowbibdriver| +% \item |\tracingxpatches| +% \end{itemize} +% The first three are the analog of |\show| to see the ``real'' +% definition of a macro, be it defined with optional arguments or as a +% robust command; the |bib| ones are for the corresponding +% \pkg{biblatex} macros. The last one takes an optional argument for +% activating and deactivating the tracing system. So +%\begin{verbatim} +% \tracingxpatches +%\end{verbatim} +% will activate it (it's equivalent to |\tracingxpatches[1]|), while +%\begin{verbatim} +% \tracingxpatches[0] +%\end{verbatim} +% will stop issuing messages. +% +% +% \section{Syntax} +% +% |\xpretocmd|\marg{command}\marg{prepend}^^A +% \marg{success}\marg{failure}\\ +% |\xapptocmd|\marg{command}\marg{append}^^A +% \marg{success}\marg{failure}\\ +% |\xpatchcmd|\sv\marg{command}\marg{search}\marg{replace}^^A +% \marg{success}\marg{failure}\\ +% |\regexpatchcmd|\sv\marg{command}\marg{search}\marg{replace}^^A +% \marg{success}\marg{failure}\\[\medskipamount] +% |\xpretobibmacro|\marg{name}\marg{prepend}^^A +% \marg{success}\marg{failure}\\ +% |\xapptobibmacro|\marg{name}\marg{append}^^A +% \marg{success}\marg{failure}\\ +% |\xpatchbibmacro|\sv\marg{name}\marg{search}\marg{replace}^^A +% \marg{success}\marg{failure}\\ +% |\regexpatchbibmacro|\sv\marg{name}\marg{search}\marg{replace}^^A +% \marg{success}\marg{failure}\\[\medskipamount] +% |\xpretobibdriver|\marg{name}\marg{prepend}^^A +% \marg{success}\marg{failure}\\ +% |\xapptobibdriver|\marg{name}\marg{append}^^A +% \marg{success}\marg{failure}\\ +% |\xpatchbibdriver|\sv\marg{name}\marg{search}\marg{replace}^^A +% \marg{success}\marg{failure}\\ +% |\regexpatchbibdriver|\sv\marg{name}\marg{search}\marg{replace}^^A +% \marg{success}\marg{failure}\\[\medskipamount] +% |\xshowcmd|\sv\marg{command}\\ +% |\xshowbibname|\marg{name}\\ +% |\xshowbibdriver|\marg{name}\\[\medskipamount] +% |\xpatchoptarg|\marg{name}\marg{replace}\\ +% |\xpatchparametertext|\marg{name}\marg{search}\marg{replace}^^A +% \marg{success}\marg{failure}\\ +% |\checkifpatchable|\marg{name}\\ +% |\tracingxpatches|\oarg{number} +% +% \medskip +% +% Here \meta{command} is the command's name (with the backslash), +% while \meta{name} is the string that appears as the argument to +% |\newbibmacro| or |\DeclareBibliographyDriver| respectively; +% \meta{search}, \meta{replace}, \meta{prepend} and \meta{append} are +% the list of tokens that are to be used for the specific tasks; +% \meta{success} and \meta{failure} are token lists to be executed if +% the patching succeeds or fails respectively. I find it useful to use +% |\ddt| as \meta{failure}, so that \TeX{} will stop for the undefined +% control sequence when the patching fails. +% +% In the commands whose name contains the string |regex|, both +% \meta{search} and \meta{replace} are understood to represent regular +% expressions. +% +% The *-variants of the |patch| type commands means that the +% replacement is performed on \emph{all} matches. With +% |\xshowcmd*\foo| one gets all information on |\foo|, as if the +% tracing system were activated, including the default optional +% argument, if existent. So it's best to use it before trying +% |\xpatchoptarg| (and all the other commands, of course). +% +% A curiosity about optional arguments: if one defines +%\begin{verbatim} +% \newcommand{\foo}[1][{bar}]{-#1-} +%\end{verbatim} +% then the braces around |bar| are stripped off. So with +%\begin{verbatim} +% \newcommand{\foo}[1][{\itshape bar}]{-#1-} +%\end{verbatim} +% all text following the call of |\foo| without an optional argument +% would be set in italics; one needs \emph{two} sets of braces, in +% this case. However, +%\begin{verbatim} +% \xpatchoptarg{\foo}{{\itshape bar}} +%\end{verbatim} +% would \emph{not} strip the braces. +% +% It's important to remember that patching commands that have |@| in +% their name must \emph{always} be performed between |\makeatletter| +% and |\makeatother|. +% +% \section{Examples} +% +% From \texttt{http://tex.stackexchange.com/a/42894}: the series +% of successive patches for changing the three occurrences of +% |\mathcode| in |\@addligto| into |\Umathcodenum| can become +%\begin{verbatim} +% \xpatchcmd*{\@addligto}{\mathcode}{\Umathcodenum}{}{} +%\end{verbatim} +% while the code +%\begin{verbatim} +% \expandafter\patchcmd\csname mathligsoff \endcsname +% {\mathcode}{\Umathcodenum}{}{} +%\end{verbatim} +% needed without \pkg{regexpatch} can become +%\begin{verbatim} +% \xpatchcmd\mathligsoff{\mathcode}{\Umathcodenum}{}{} +%\end{verbatim} +% +% Another one: changing the space reserved for the theorem number in +% the `List of theorems' provided by \pkg{ntheorem} could be obtained +% with \pkg{etoolbox}'s |\patchcmd| by +%\begin{verbatim} +% \patchcmd{\thm@@thmline}{2.3em}{5em}{}{} +% \patchcmd{\thm@@thmline@name}{2.3em}{5em}{}{} +% \patchcmd{\thm@@thmline@noname}{2.3em}{5em}{}{} +%\end{verbatim} +% if the |hyperref| option is not used, but a long series of patches +% would be needed with the option, as |2.3em| appears three times in +% each macro. With \pkg{regexpatch} one can do independently of the +% option: +%\begin{verbatim} +% \xpatchcmd*{\thm@@thmline}{2.3em}{5em}{}{} +% \xpatchcmd*{\thm@@thmline@name}{2.3em}{5em}{}{} +% \xpatchcmd*{\thm@@thmline@noname}{2.3em}{5em}{}{} +%\end{verbatim} +% +% A user asked how to patch the |rubric| environment in the `CurVe' +% class in order to avoid the repetition of the rubric's title on +% continuation pages. The environment is based on |longtable| and the +% task is to remove the |\endhead| material, which is delimited by +% |\endfirsthead| and |\endhead|. Instead of +%\begin{verbatim} +% \patchcmd{\rubric} +% {\endfirsthead\@rubrichead{#1\@continuedname}\\*[\rubricspace]\endhead} +% {\endfirsthead}{}{} +%\end{verbatim} +% one can more simply exploit regular expressions: +%\begin{verbatim} +% \makeatletter % the replacement text has @-commands +% \regexpatchcmd{\rubric} +% { \c{endfirsthead} .* \c{endhead} } +% { \c{endfirsthead} }{}{} +% \makeatother +%\end{verbatim} +% +% Assume you want to insert a patch in the argument of a command; with +% the traditional method this is possible provided the patch text +% doesn't contain |#|. Here's an example +%\begin{verbatim} +% \makeatletter +% \usepackage{etoolbox} % for \ifdef +% \ifdef{\H@old@part} +% { +% \regexpatchcmd{\H@old@part}{$}{\c{gdef}\c{cont@name@part}\cB\{\cP\#2\cE\}}{}{}% +% } +% { +% \regexpatchcmd{\@part}{$}{\c{gdef}\c{cont@name@part}\cB\{\cP\#2\cE\}}{}{}% +% } +% \show\H@old@part +% \makeatother +%\end{verbatim} +% We want to add |\gdef\cont@name@part{#2}| at the end of the +% replacement text, distinguishing when \textsf{hyperref} is loaded or +% not. So we patch the command by doing just what's requested. The +% example is a bit contrived, as using |\ifdefined| instead of the +% argument form wrapper would allow the traditional |\apptocmd|. +% However, other applications may be foreseen. +% +% A problem raised on |comp.text.tex| in 2008 was to extract the +% number from the name of the file being typeset; the name was of the +% form |lecture15.tex| and the question was how to define a macro +% |\lecturenumber| that acted on |\jobname| to do its work. The +% obvious +%\begin{verbatim} +% \def\lecturenumber{\expandafter\extractnumber\jobname;} +% \def\extractnumber lecture#1;{#1} +%\end{verbatim} +% doesn't work because the characters produced by |\jobname| all have +% category code 12 (spaces have 10, as usual). A nifty solution was +% provided by David Kastrup: +%\begin{verbatim} +% \begingroup +% \escapechar=-1 +% \expandafter\endgroup +% \expandafter\def\expandafter\extractnumber\string\lecture#1;{#1} +%\end{verbatim} +% Now with |\xpatchparametertext| one can do +%\begin{verbatim} +% \def\lecturenumber{\expandafter\extractnumber\jobname;} +% \def\extractnumber lecture#1;{#1} +% \xpatchparametertext\extractnumber{lecture}{lecture}{}{} +%\end{verbatim} +% recalling that the substitution performed by \pkg{l3regex} uses +% category code 12 characters by default. The command can be +% generalized to accept any (fixed) prefix: +%\begin{verbatim} +% \def\setupfilenumber#1{% +% \def\filenumber{\expandafter\extractnumber\jobname;}% +% \def\extractnumber#1##1;{##1}% +% \xpatchparametertext\extractnumber{#1}{#1}{}{}} +% \setupfilenumber{lecture} +%\end{verbatim} +% where the prefix is passed to |\setupfilenumber| and the macro to +% use is |\filenumber|. +% +% A proper \LaTeX3 definition might be +%\begin{verbatim} +% \NewDocumentCommand{\setupfilenumber}{ m } +% { +% \group_begin: +% \cs_set:Npx \filenumber_aux: +% { +% \group_end: +% \cs_set:Npn \exp_not:N \filenumber_extract:w +% \tl_to_str:n { #1 } ####1 ; { ####1 } +% } +% \filenumber_aux: +% } +% \NewDocumentCommand{\filenumber} {} +% { +% \exp_after:wN \filenumber_extract:w \c_job_name_tl ; +% } +%\end{verbatim} +% +% \end{documentation} +% +% \begin{implementation} +% +% \section{The implementation of \pkg{regexpatch}} +% +% \iffalse +%<*package> +% \fi +% +% The usual starting stuff. +% \begin{macrocode} +\ProvidesExplPackage + {\ExplFileName}{\ExplFileDate}{\ExplFileVersion}{\ExplFileDescription} +\@ifpackagelater { expl3 } { 2012/01/19 } + { } + { + \PackageError { regexpatch } { Support~package~l3kernel~too~old. } + { + Please~install~an~up~to~date~version~of~l3kernel~ + using~your~TeX~package~manager~or~from~CTAN.\\ \\ + Loading~regexpatch~will~abort! + } + \tex_endinput:D + } +\RequirePackage{xparse,l3regex,etoolbox} +% \end{macrocode} +% +% \subsection{Variables} +% +% We define a bunch of variables: some booleans and token lists. The +% first tells us when the macro to patch has been defined by +% |\DeclareRobustCommand|, the second if it has an optional argument, +% the third if it's patchable, that is it can be reconstructed from +% its decomposition under the current category code regime. The last +% boolean is used for the tracing system: if true, messages about +% patching are issued. +% \begin{macrocode} +\bool_new:N \l_xpatch_protect_bool +\bool_new:N \l_xpatch_optional_bool +\bool_new:N \l_xpatch_patchable_bool +\bool_new:N \l_xpatch_tracing_bool +% \end{macrocode} +% The token list variables contain various items regarding the macro +% to patch: the name, the first level replacement text (we distinguish +% it from the `real' replacement text), the prefixes, the argument +% spec and the `real' replacement text. +% \begin{macrocode} +\tl_new:N \l_xpatch_name_tl +\tl_new:N \l_xpatch_repl_tl +\tl_new:N \l_xpatch_prefix_tl +\tl_new:N \l_xpatch_arg_tl +\tl_new:N \l_xpatch_replacement_tl +\tl_new:N \l_xpatch_type_tl % for debugging messages +% \end{macrocode} +% A variant for checking a regex match so that we can give the second +% argument as a token list. +% \begin{macrocode} +\cs_generate_variant:Nn \regex_match:nnT {nVT} +% \end{macrocode} +% +% \subsection{Functions} +% +% The function |\xpatch_main_check:N| is responsible for telling us +% what kind of macro we're patching. Only one of the first four tests +% can be true; if none is, the macro is not `special' and can be +% patched without doing anything particular to get its +% `real~name'. The check consists in matching with a suitable regex +% at the start of the replacement text (which is in detokenized +% form). If the macro passes one of the first two tests, it can still +% have an optional argument, so a supplementary test is needed. +% +% Some technical remarks. Suppose we have the following definitions: +%\begin{verbatim} +% \DeclareRobustCommand{\xaa}[1]{xaa (DeclareRobustCommand-noopt)} +% \DeclareRobustCommand{\xab}[1][x]{xab (DeclareRobustCommand-opt)} +% \newcommand{\xac}[1][]{xac (newcommand-opt)} +% \newrobustcmd\xad[1][]{xad (newrobustcmd-opt)} +% \DeclareRobustCommand{\1}[1]{1 (DeclareRobustCommand-noopt)} +% \DeclareRobustCommand{\2}[1][]{2 (DeclareRobustCommand-opt)} +% \newcommand{\3}[1][]{3 (newcommand-opt)} +% \newrobustcmd\4[1][]{4 (newrobustcmd-opt)} +%\end{verbatim} +% Then the first level expansions are, respectively, +%\begin{verbatim*} +%+\protect \xaa + +%+\protect \xab + +%+\@protected@testopt \xac \\xac {}+ +%+\@testopt \\xad {}+ +%+\x@protect \1\protect \1 + +%+\x@protect \2\protect \2 + +%+\@protected@testopt \3\\3 {}+ +%+\@testopt \\4 {}+ +%\end{verbatim*} +% where the |+| is used to delimit the expansions and show the +% spaces. Remember that |\show| always adds a space after a control +% word, but not after a control symbol such as |\1|. However, in lines +% 5~and~6, \verb*?\1 ? is not a control symbol any more. So we have to +% take care of |\protect|, |\x@protect|, |\@protected@testopt| and +% |\@testopt|. But it's not simply sufficient to check for the +% presence of such a token at the start of the replacement text, or +% we'll be confused by macros such as |\linebreak|, whose replacement +% text starts with |\@testopt|. So we'll check also for the presence +% of the subsequent tokens, that depend on the macro's name. If the +% macro is recognized to have an optional argument, its default value +% is stored in |\tl_xpatch_repl_tl| (that we wouldn't use any more) to +% be shown by |\xshowcmd*| or when the tracing system is active: we +% throw away everything except what's contained between the final pair +% of braces. +% \begin{macrocode} +\cs_new:Npn \xpatch_main_check:N #1 + { + \bool_set_false:N \l_xpatch_protect_bool + \bool_set_false:N \l_xpatch_optional_bool + \tl_set:Nx \l_xpatch_name_tl { \cs_to_str:N #1 } + \tl_set:Nx \l_xpatch_repl_tl { \token_get_replacement_spec:N #1 } + \tl_clear:N \l_xpatch_type_tl + \regex_match:nVT % \DeclareRobustCommand<control word> + {^\\protect\ \\\u{l_xpatch_name_tl}\ \ } + \l_xpatch_repl_tl + { + \bool_set_true:N \l_xpatch_protect_bool + \tl_put_right:Nx \l_xpatch_name_tl { \c_space_tl } + \tl_set:Nn \l_xpatch_type_tl { DRCw } + } + \regex_match:nVT % \DeclareRobustCommand<control symbol> + {^\\x@protect\ \\\u{l_xpatch_name_tl}\\} + \l_xpatch_repl_tl + { + \bool_set_true:N \l_xpatch_protect_bool + \tl_put_right:Nx \l_xpatch_name_tl { \c_space_tl } + \tl_set:Nn \l_xpatch_type_tl { DRCs } + } + \regex_match:nVT % \newcommand<control word> with opt arg + {^\\@protected@testopt\ \\\u{l_xpatch_name_tl}\ \\\\} + \l_xpatch_repl_tl + { + \bool_set_true:N \l_xpatch_optional_bool + \tl_put_left:Nx \l_xpatch_name_tl { \c_backslash_str } + \tl_set:Nn \l_xpatch_type_tl { ncw+o } + } + \regex_match:nVT % \newcommand<control symbol> with opt arg + {^\\@protected@testopt\ \\\u{l_xpatch_name_tl}\\\\} + \l_xpatch_repl_tl + { + \bool_set_true:N \l_xpatch_optional_bool + \tl_put_left:Nx \l_xpatch_name_tl { \c_backslash_str } + \tl_set:Nn \l_xpatch_type_tl { ncs+o } + } + \regex_match:nVT % \newrobustcmd<any cs> with opt arg + {^\\@testopt\ \\\\\u{l_xpatch_name_tl}} + \l_xpatch_repl_tl + { + \bool_set_true:N \l_xpatch_optional_bool + \tl_put_left:Nx \l_xpatch_name_tl { \c_backslash_str } + \tl_set:Nn \l_xpatch_type_tl { nrc+o } + } + \bool_if:NT \l_xpatch_protect_bool + { + \tl_set:Nx \l_xpatch_repl_tl + { \exp_after:wN \token_get_replacement_spec:N + \cs:w \l_xpatch_name_tl \cs_end: } + \regex_match:nVT % \DeclareRobustCommand<any cs> with opt arg + {^\\@protected@testopt\ \\\u{l_xpatch_name_tl}\ \\\\} + \l_xpatch_repl_tl + { + \bool_set_true:N \l_xpatch_optional_bool + \tl_put_left:Nx \l_xpatch_name_tl { \c_backslash_str } + \tl_put_right:Nn \l_xpatch_type_tl { +o } + } + } + \bool_if:NT \l_xpatch_optional_bool + { + \regex_replace_once:nnN { .*? \{ (.*) \} \Z } { \1 } + \l_xpatch_repl_tl + } + } +% \end{macrocode} +% We use the information gathered with |\xpatch_main_check:N| to +% perform the patch; the macro to patch is |#3|, the function to +% execute is |#1|; |#2| is a function that gobbles the next items in +% case the macro's name is misspelled. +% \begin{macrocode} +\cs_new:Npn \xpatch_main:NNN #1 #2 #3 + { + \cs_if_exist:NTF #3 + { + \xpatch_main_check:N #3 + \bool_if:NT \l_xpatch_tracing_bool + { \xpatch_message_cstype:n #3 } + \exp_after:wN #1 \cs:w \l_xpatch_name_tl \cs_end: + } + { + \msg_term:x + { + xpatch~message \\ + `\token_to_str:N #3'~is~undefined;~ + I'll~ignore~the~request. + } + #2 + } + } +% \end{macrocode} +% +% Now we define the patching functions. We get all the parts in which +% a macro can be split: prefixes, parameter text and replacement text; +% the name is already available. The token lists |\l_xpatch_X_tl| +% will contain the prefix or parameter text or replacement text of +% |#1| first in `detokenized' and then in `tokenized' form. +% \begin{macrocode} +\cs_new:Npn \xpatch_get_all:N #1 + { + \exp_args:NNf \tl_set:Nn \l_xpatch_prefix_tl + {\token_get_prefix_spec:N #1 } + \exp_args:NNnx \tl_set_rescan:Nnn + \l_xpatch_prefix_tl { } \l_xpatch_prefix_tl + \exp_args:NNf \tl_set:Nn \l_xpatch_arg_tl + {\token_get_arg_spec:N #1 } + \exp_args:NNnx \tl_set_rescan:Nnn + \l_xpatch_arg_tl { } \l_xpatch_arg_tl + \exp_args:NNf \tl_set:Nn \l_xpatch_replacement_tl + {\token_get_replacement_spec:N #1 } + \exp_args:NNnx \tl_set_rescan:Nnn + \l_xpatch_replacement_tl { } \l_xpatch_replacement_tl + } +% \end{macrocode} +% After possible modifications to the replacement text, we can call +% |\xpatch_rebuild:N| to redo the definition of |#1|; we can also use +% it for checking if |#1| is patchable. Of course we need to use +% |\tex_def:D| at this point. +% \begin{macrocode} +\cs_new:Npn \xpatch_rebuild:N #1 + { + \tl_clear:N \l_tmpa_tl + \tl_put_right:NV \l_tmpa_tl \l_xpatch_prefix_tl + \tl_put_right:Nn \l_tmpa_tl { \tex_def:D #1 } + \tl_put_right:NV \l_tmpa_tl \l_xpatch_arg_tl + \tl_put_right:No \l_tmpa_tl { \exp_after:wN {\l_xpatch_replacement_tl} } + \tl_use:N \l_tmpa_tl + } +% \end{macrocode} +% To check if |#1| is patchable, we rebuild it as |\xpatch_tmpa:w| and +% look whether |#1| and |\xpatch_tmpa:w| are the same. This is always +% the first thing to do, so we put |\xpatch_get_all:N| here; |#1| is +% the macro to patch. +% \begin{macrocode} +\cs_new:Npn \xpatch_check_patchable:N #1 + { + \cs_if_exist:NTF #1 + { + \xpatch_get_all:N #1 + \xpatch_rebuild:N \xpatch_tmpa:w + \cs_if_eq:NNTF #1 \xpatch_tmpa:w + { + \bool_set_true:N \l_xpatch_patchable_bool + \xpatch_message:n + { + Macro `\token_to_str:N #1'~is~patchable + } + } + { + \bool_set_false:N \l_xpatch_patchable_bool + \xpatch_message:n + { + Macro `\token_to_str:N #1'~is~NOT~patchable\\ + (Check~if~it~contains~`@'~commands) + } + } + } + { + \bool_set_false:N \l_xpatch_patchable_bool + \xpatch_message:n + { + Macro `\token_to_str:N #1'~doesn't~exist. + } + } + } +% \end{macrocode} +% +% Defining the internal versions of |\xpretocmd| and |\xapptocmd| is +% easy: we check if the command is patchable and, if so, we prepend or append +% the second argument to the replacement text and rebuild the macro. +% \begin{macrocode} +\cs_new:Npn \xpatch_pretocmd:Nnnn #1 #2 #3 #4 + { + \xpatch_check_patchable:N #1 + \bool_if:NTF \l_xpatch_patchable_bool + { + \tl_put_left:Nn \l_xpatch_replacement_tl { #2 } + \xpatch_rebuild:N #1 + #3 + } + { + #4 + } + } +\cs_new:Npn \xpatch_apptocmd:Nnnn #1 #2 #3 #4 + { + \xpatch_check_patchable:N #1 + \bool_if:NTF \l_xpatch_patchable_bool + { + \tl_put_right:Nn \l_xpatch_replacement_tl { #2 } + \xpatch_rebuild:N #1 + #3 + } + { + #4 + } + } +% \end{macrocode} +% +% Substituting tokens in the replacement text is a bit harder, but not +% conceptually different. First the internal version of +% |\regexpatchcmd(*)|: check if |#1| is patchable, do the replacement +% if possible; beware that characters in the replacement string are of +% category 12 by default. +% \begin{macrocode} +\cs_new:Npn \xpatch_regexpatchcmd_all:Nnnnn #1 #2 #3 #4 #5 + { + \xpatch_check_patchable:N #1 + \bool_if:NTF \l_xpatch_patchable_bool + { + \regex_replace_all:nnN { #2 } { #3 } \l_xpatch_replacement_tl + \xpatch_rebuild:N #1 + #4 + } + { + #5 + } + } +\cs_new:Npn \xpatch_regexpatchcmd_once:Nnnnn #1 #2 #3 #4 #5 + { + \xpatch_check_patchable:N #1 + \bool_if:NTF \l_xpatch_patchable_bool + { + \regex_replace_once:nnN { #2 } { #3 } \l_xpatch_replacement_tl + \xpatch_rebuild:N #1 + #4 + } + { + #5 + } + } +% \end{macrocode} +% +% Thanks to the features of \pkg{l3regex}, we can also implement +% directly the analog of |\patchcmd|, but also with a `replace all' +% version. +% \begin{macrocode} +\cs_new:Npn \xpatch_patchcmd_once:Nnnnn #1 #2 #3 #4 #5 + { + \xpatch_check_patchable:N #1 + \bool_if:NTF \l_xpatch_patchable_bool + { + \tl_set:Nn \l_tmpa_tl { #2 } + \tl_set:Nn \l_tmpb_tl { #3 } + \regex_replace_once:nnN + { \u{l_tmpa_tl} } + { \u{l_tmpb_tl} } + \l_xpatch_replacement_tl + \xpatch_rebuild:N #1 + #4 + } + { + #5 + } + } +\cs_new:Npn \xpatch_patchcmd_all:Nnnnn #1 #2 #3 #4 #5 + { + \xpatch_check_patchable:N #1 + \bool_if:NTF \l_xpatch_patchable_bool + { + \tl_set:Nn \l_tmpa_tl { #2 } + \tl_set:Nn \l_tmpb_tl { #3 } + \regex_replace_all:nnN + { \u{l_tmpa_tl} } + { \u{l_tmpb_tl} } + \l_xpatch_replacement_tl + \xpatch_rebuild:N #1 + #4 + } + { + #5 + } + } +% \end{macrocode} +% +% Now the tracing system. +% \begin{macrocode} +\cs_new:Npn \xpatch_message:n #1 + { + \bool_if:NT \l_xpatch_tracing_bool + { + \msg_term:x { xpatch~message \\ #1 } + } + } +\cs_new:Npn \xpatch_message_cstype:n #1 + { + \prg_case_str:onn { \l_xpatch_type_tl } + { + { DRCw } { + \xpatch_message:n + { + `\token_to_str:N #1'~is~a~control~word~defined~ + with~\token_to_str:N \DeclareRobustCommand + } + } + { DRCw+o } { + \xpatch_message:n + { + `\token_to_str:N #1'~is~a~control~word~defined~ + with~`\token_to_str:N \DeclareRobustCommand'~ + and~a~default~optional~argument~`\l_xpatch_repl_tl' + } + } + { DRCs } { + \xpatch_message:n + { + `\token_to_str:N #1'~is~a~control~symbol~defined~ + with~`\token_to_str:N \DeclareRobustCommand' + } + } + { DRCs+o } { + \xpatch_message:n + { + `\token_to_str:N #1'~is~a~control~symbol~defined~ + with~`\token_to_str:N \DeclareRobustCommand'~ + and~a~default~optional~argument~`\l_xpatch_repl_tl' + } + } + { ncw+o } { + \xpatch_message:n + { + `\token_to_str:N #1'~is~a~control~word~defined~ + with~`\token_to_str:N \newcommand'~ + and~a~default~optional~argument~`\l_xpatch_repl_tl' + } + } + { ncs+o } { + \xpatch_message:n + { + `\token_to_str:N #1'~is~a~control~symbol~defined~ + with~`\token_to_str:N \newcommand'~ + and~a~default~optional~argument~`\l_xpatch_repl_tl' + } + } + { nrc+o } { + \xpatch_message:n + { + `\token_to_str:N #1'~is~a~control~sequence~defined~ + with~`\token_to_str:N \newrobustcmd'~ + and~a~default~optional~argument~`\l_xpatch_repl_tl' + } + } + } + { + \xpatch_message:n + { + `\token_to_str:N #1'~is~not~especially~defined + } + } + } +% \end{macrocode} +% +% \subsection{The user level functions} +% +% Here are the functions for patching usual macros; the *-variants for +% |\|$x$|patchcmd| do a `replace all'. +% \begin{macrocode} +\NewDocumentCommand{\xshowcmd} { s m } + { + \IfBooleanT{#1} + { + \group_begin: + \bool_set_true:N \l_xpatch_tracing_bool + } + \xpatch_main:NNN \cs_show:N \prg_do_nothing: #2 + \IfBooleanT{#1} + { + \group_end: + } + } +\NewDocumentCommand{\xpretocmd}{ } + { \xpatch_main:NNN \xpatch_pretocmd:Nnnn \use_none:nn } +\NewDocumentCommand{\xapptocmd}{ } + { \xpatch_main:NNN \xpatch_apptocmd:Nnnn \use_none:nn } +\NewDocumentCommand{\regexpatchcmd}{ s } + { + \IfBooleanTF{#1} + { \xpatch_main:NNN \xpatch_regexpatchcmd_all:Nnnnn \use_none:nnn } + { \xpatch_main:NNN \xpatch_regexpatchcmd_once:Nnnnn \use_none:nnn } + } +\NewDocumentCommand{\xpatchcmd}{ s } + { + \IfBooleanTF{#1} + { \xpatch_main:NNN \xpatch_patchcmd_all:Nnnnn \use_none:nn } + { \xpatch_main:NNN \xpatch_patchcmd_once:Nnnnn \use_none:nn } + } +% \end{macrocode} +% +% The functions for patching \pkg{biblatex} related macros that are +% given by name. We need a variant of |\xpatch_main:NN|. +% \begin{macrocode} +\cs_generate_variant:Nn \xpatch_main:NNN {NNc} +\NewDocumentCommand{\xshowbibmacro} { s m } + { + \IfBooleanT{#1} + { + \group_begin: + \bool_set_true:N \l_xpatch_tracing_bool + } + \xpatch_main:NNc \cs_show:N \prg_do_nothing: { abx@macro@ \tl_to_str:n {#2} } + \IfBooleanT{#1} + { + \group_end: + } + } +\NewDocumentCommand{\xpretobibmacro} { m m m } + { + \xpatch_main:NNc \xpatch_pretocmd:Nnnn \use_none:nn + { abx@macro@ \tl_to_str:n {#1} } + } +\NewDocumentCommand{\xapptobibmacro} { m m m } + { + \xpatch_main:NNc \xpatch_apptocmd:Nnnn \use_none:nn + { abx@macro@ \tl_to_str:n {#1} } + } +\NewDocumentCommand{\xpatchbibmacro} { s m m m } + { + \IfBooleanTF{#1} + { + \xpatch_main:NcN \xpatch_patchcmd_all:Nnnnn \use_none:nnn + { abx@macro@ \tl_to_str:n {#2} } + } + { + \xpatch_main:NcN \xpatch_patchcmd_once:Nnnnn \use_none:nnn + { abx@macro@ \tl_to_str:n {#2} } + } + } +\NewDocumentCommand{\regexpatchbibmacro} { s m m m } + { + \IfBooleanTF{#1} + { + \xpatch_main:NcN \xpatch_regexpatchcmd_all:Nnnnn \use_none:nnn + { abx@macro@ \tl_to_str:n {#2} } + } + { + \xpatch_main:NcN \xpatch_regexpatchcmd_once:Nnnnn \use_none:nnn + { abx@macro@ \tl_to_str:n {#2} } + } + } +\NewDocumentCommand{\xshowbibdriver} { s m } + { + \IfBooleanT{#1} + { + \group_begin: + \bool_set_true:N \l_xpatch_tracing_bool + } + \xpatch_main:NNc \cs_show:N \prg_do_nothing: { blx@bbx@#2 } + \IfBooleanT{#1} + { + \group_end: + } + } +\NewDocumentCommand{\xpretobibdriver} { m } + { \exp_args:Nc \xpatch_pretocmd:Nnnn {blx@bbx@#1} } +\NewDocumentCommand{\xapptobibdriver} { m } + { \exp_args:Nc \xpatch_apptocmd:Nnnn {blx@bbx@#1} } +\NewDocumentCommand{\xpatchbibdriver} { s m } + { + \IfBooleanTF{#1} + { \exp_args:Nc \xpatch_patchcmd_all:Nnnnn {blx@bbx@#2} } + { \exp_args:Nc \xpatch_patchcmd_once:Nnnnn {blx@bbx@#2} } + } +\NewDocumentCommand{\regexpatchbibdriver} { s m } + { + \IfBooleanTF{#1} + { \exp_args:Nc \xpatch_regexpatchcmd_all:Nnnnn {blx@bbx@#2} } + { \exp_args:Nc \xpatch_regexpatchcmd_once:Nnnnn {blx@bbx@#2} } + } +% \end{macrocode} +% A macro to check if the macro is patchable. It just prints a message +% on the terminal and in the log file. +% \begin{macrocode} +\NewDocumentCommand{\checkpatchable}{ m } + { + \group_begin: + \bool_set_true:N \l_xpatch_tracing_bool + \xpatch_check_patchable:N #1 + \group_end: + } +% \end{macrocode} +% The last user level command: a macro for changing the optional +% argument in a macro that has one. +% \begin{macrocode} +\cs_generate_variant:Nn \xpatch_get_all:N {c} +\cs_generate_variant:Nn \xpatch_rebuild:N {c} +\NewDocumentCommand{\xpatchoptarg}{ m m } + { + \xpatch_main_check:N #1 + \bool_if:NTF \l_xpatch_optional_bool + { +% \end{macrocode} +% We have a macro with optional argument; so we strip off +% the first backslash from the name and proceed. +% \begin{macrocode} + \tl_set:Nx \l_xpatch_name_tl { \tl_tail:V \l_xpatch_name_tl } +% \end{macrocode} +% Gather the prefix (it is |\protected| when |#1| has been defined +% with |\newrobustcmd|). +% \begin{macrocode} + \exp_args:NNf \tl_set:Nn \l_xpatch_prefix_tl + {\token_get_prefix_spec:N #1 } + \tl_clear:N \l_xpatch_prefix_tl + \exp_args:NNnx \tl_set_rescan:Nnn + \l_xpatch_prefix_tl { } \l_xpatch_prefix_tl +% \end{macrocode} +% Get the replacement text in tokenized form: the control sequences +% have spaces in their names, so we can't rely on +% |\token_get_replacement_spec:N| because the spaces would be lost. +% \begin{macrocode} + \exp_args:NNV \tl_set_eq:Nc \l_xpatch_replacement_tl + { \l_xpatch_name_tl } +% \end{macrocode} +% Now we have to change the last item in the token list: we just store +% the new optional argument in a token list variable and do a regex +% substitution, based on the fact that the replacement text consists +% of control sequences, an open brace, the optional argument and a +% closed brace, so we anchor at the end of the token list. +% \begin{macrocode} + \tl_set:Nn \l_tmpa_tl { { #2 } } + \regex_replace_once:nnN { \cB. .* \cE. \Z} { \u{l_tmpa_tl} } + \l_xpatch_replacement_tl +% \end{macrocode} +% Now we rebuild the control sequence. +% \begin{macrocode} + \xpatch_rebuild:c { \l_xpatch_name_tl } + } +% \end{macrocode} +% If the macro hasn't an optional argument we issue a message. +% \begin{macrocode} + { + \group_begin: + \bool_set_true:N \l_xpatch_tracing_bool + \xpatch_message:n + { + Macro~`\token_to_str:N #1'~ has~no~optional~argument~ + or~it~has~been~defined~with~`xparse'~and~operating~ + on~such~commands~is~(still)~not~supported + } + \group_end: + } + } +% \end{macrocode} +% Just one more thing: enabling or disabling the tracing system. +% \begin{macrocode} +\NewDocumentCommand{\tracingxpatches}{ O{1} } + { + \int_compare:nTF { #1 > 0 } + { \bool_set_true:N \l_xpatch_tracing_bool } + { \bool_set_false:N \l_xpatch_tracing_bool } + } +% \end{macrocode} +% One more thing: patching the parameter text! +% \begin{macrocode} +\NewDocumentCommand{\xpatchparametertext}{m m m m m} + { + \xpatch_check_patchable:N #1 + \bool_if:NTF \l_xpatch_patchable_bool + { + \regex_replace_once:nnN { #2 } { #3 } \l_xpatch_arg_tl + \xpatch_rebuild:N #1 + #4 + } + { + #5 + } + } +% \end{macrocode} +% \iffalse +%</package> +% \fi +% \end{implementation} +% +% \PrintIndex diff --git a/Master/texmf-dist/source/latex/regexpatch/regexpatch.ins b/Master/texmf-dist/source/latex/regexpatch/regexpatch.ins new file mode 100644 index 00000000000..8e8f3e675cf --- /dev/null +++ b/Master/texmf-dist/source/latex/regexpatch/regexpatch.ins @@ -0,0 +1,36 @@ +\iffalse meta-comment + +File regexpatch.ins Copyright (C) 2012 Enrico Gregorio + +It may be distributed and/or modified under the conditions of the +LaTeX Project Public License (LPPL), either version 1.3c of this +license or (at your option) any later version. The latest version +of this license is in the file + + http://www.latex-project.org/lppl.txt + +This file is part of the "xpatch bundle" (The Work in LPPL) +and all files in that bundle must be distributed together. + +The released version of this bundle is available from CTAN. + +\fi + +\input docstrip.tex +\askforoverwritefalse + +\preamble + +Do not distribute this file without also distributing the +source files specified above. + +\endpreamble +% stop docstrip adding \endinput +\postamble +\endpostamble + +\keepsilent + +\generate{\file{regexpatch.sty} {\from{regexpatch.dtx} {package}}} + +\endbatchfile diff --git a/Master/texmf-dist/tex/latex/regexpatch/regexpatch.sty b/Master/texmf-dist/tex/latex/regexpatch/regexpatch.sty new file mode 100644 index 00000000000..12cd49e36d6 --- /dev/null +++ b/Master/texmf-dist/tex/latex/regexpatch/regexpatch.sty @@ -0,0 +1,522 @@ +%% +%% This is file `regexpatch.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% regexpatch.dtx (with options: `package') +%% +%% Do not distribute this file without also distributing the +%% source files specified above. +%% +%% File: regexpatch.dtx (C) Copyright 2012 Enrico Gregorio +%% +%% It may be distributed and/or modified under the conditions of the +%% LaTeX Project Public License (LPPL), either version 1.3c of this +%% license or (at your option) any later version. The latest version +%% of this license is in the file +%% +%% http://www.latex-project.org/lppl.txt +%% +%% This file is part of the "regexpatch bundle" (The Work in LPPL) +%% and all files in that bundle must be distributed together. +%% +%% The released version of this bundle is available from CTAN. +%% +\RequirePackage{expl3} +\GetIdInfo$Id: regexpatch.dtx 0.1dev 2012-04-15 12:00:00Z Enrico $ + {Extending etoolbox patching commands} +\ProvidesExplPackage + {\ExplFileName}{\ExplFileDate}{\ExplFileVersion}{\ExplFileDescription} +\@ifpackagelater { expl3 } { 2012/01/19 } + { } + { + \PackageError { regexpatch } { Support~package~l3kernel~too~old. } + { + Please~install~an~up~to~date~version~of~l3kernel~ + using~your~TeX~package~manager~or~from~CTAN.\\ \\ + Loading~regexpatch~will~abort! + } + \tex_endinput:D + } +\RequirePackage{xparse,l3regex,etoolbox} +\bool_new:N \l_xpatch_protect_bool +\bool_new:N \l_xpatch_optional_bool +\bool_new:N \l_xpatch_patchable_bool +\bool_new:N \l_xpatch_tracing_bool +\tl_new:N \l_xpatch_name_tl +\tl_new:N \l_xpatch_repl_tl +\tl_new:N \l_xpatch_prefix_tl +\tl_new:N \l_xpatch_arg_tl +\tl_new:N \l_xpatch_replacement_tl +\tl_new:N \l_xpatch_type_tl % for debugging messages +\cs_generate_variant:Nn \regex_match:nnT {nVT} +\cs_new:Npn \xpatch_main_check:N #1 + { + \bool_set_false:N \l_xpatch_protect_bool + \bool_set_false:N \l_xpatch_optional_bool + \tl_set:Nx \l_xpatch_name_tl { \cs_to_str:N #1 } + \tl_set:Nx \l_xpatch_repl_tl { \token_get_replacement_spec:N #1 } + \tl_clear:N \l_xpatch_type_tl + \regex_match:nVT % \DeclareRobustCommand<control word> + {^\\protect\ \\\u{l_xpatch_name_tl}\ \ } + \l_xpatch_repl_tl + { + \bool_set_true:N \l_xpatch_protect_bool + \tl_put_right:Nx \l_xpatch_name_tl { \c_space_tl } + \tl_set:Nn \l_xpatch_type_tl { DRCw } + } + \regex_match:nVT % \DeclareRobustCommand<control symbol> + {^\\x@protect\ \\\u{l_xpatch_name_tl}\\} + \l_xpatch_repl_tl + { + \bool_set_true:N \l_xpatch_protect_bool + \tl_put_right:Nx \l_xpatch_name_tl { \c_space_tl } + \tl_set:Nn \l_xpatch_type_tl { DRCs } + } + \regex_match:nVT % \newcommand<control word> with opt arg + {^\\@protected@testopt\ \\\u{l_xpatch_name_tl}\ \\\\} + \l_xpatch_repl_tl + { + \bool_set_true:N \l_xpatch_optional_bool + \tl_put_left:Nx \l_xpatch_name_tl { \c_backslash_str } + \tl_set:Nn \l_xpatch_type_tl { ncw+o } + } + \regex_match:nVT % \newcommand<control symbol> with opt arg + {^\\@protected@testopt\ \\\u{l_xpatch_name_tl}\\\\} + \l_xpatch_repl_tl + { + \bool_set_true:N \l_xpatch_optional_bool + \tl_put_left:Nx \l_xpatch_name_tl { \c_backslash_str } + \tl_set:Nn \l_xpatch_type_tl { ncs+o } + } + \regex_match:nVT % \newrobustcmd<any cs> with opt arg + {^\\@testopt\ \\\\\u{l_xpatch_name_tl}} + \l_xpatch_repl_tl + { + \bool_set_true:N \l_xpatch_optional_bool + \tl_put_left:Nx \l_xpatch_name_tl { \c_backslash_str } + \tl_set:Nn \l_xpatch_type_tl { nrc+o } + } + \bool_if:NT \l_xpatch_protect_bool + { + \tl_set:Nx \l_xpatch_repl_tl + { \exp_after:wN \token_get_replacement_spec:N + \cs:w \l_xpatch_name_tl \cs_end: } + \regex_match:nVT % \DeclareRobustCommand<any cs> with opt arg + {^\\@protected@testopt\ \\\u{l_xpatch_name_tl}\ \\\\} + \l_xpatch_repl_tl + { + \bool_set_true:N \l_xpatch_optional_bool + \tl_put_left:Nx \l_xpatch_name_tl { \c_backslash_str } + \tl_put_right:Nn \l_xpatch_type_tl { +o } + } + } + \bool_if:NT \l_xpatch_optional_bool + { + \regex_replace_once:nnN { .*? \{ (.*) \} \Z } { \1 } + \l_xpatch_repl_tl + } + } +\cs_new:Npn \xpatch_main:NNN #1 #2 #3 + { + \cs_if_exist:NTF #3 + { + \xpatch_main_check:N #3 + \bool_if:NT \l_xpatch_tracing_bool + { \xpatch_message_cstype:n #3 } + \exp_after:wN #1 \cs:w \l_xpatch_name_tl \cs_end: + } + { + \msg_term:x + { + xpatch~message \\ + `\token_to_str:N #3'~is~undefined;~ + I'll~ignore~the~request. + } + #2 + } + } +\cs_new:Npn \xpatch_get_all:N #1 + { + \exp_args:NNf \tl_set:Nn \l_xpatch_prefix_tl + {\token_get_prefix_spec:N #1 } + \exp_args:NNnx \tl_set_rescan:Nnn + \l_xpatch_prefix_tl { } \l_xpatch_prefix_tl + \exp_args:NNf \tl_set:Nn \l_xpatch_arg_tl + {\token_get_arg_spec:N #1 } + \exp_args:NNnx \tl_set_rescan:Nnn + \l_xpatch_arg_tl { } \l_xpatch_arg_tl + \exp_args:NNf \tl_set:Nn \l_xpatch_replacement_tl + {\token_get_replacement_spec:N #1 } + \exp_args:NNnx \tl_set_rescan:Nnn + \l_xpatch_replacement_tl { } \l_xpatch_replacement_tl + } +\cs_new:Npn \xpatch_rebuild:N #1 + { + \tl_clear:N \l_tmpa_tl + \tl_put_right:NV \l_tmpa_tl \l_xpatch_prefix_tl + \tl_put_right:Nn \l_tmpa_tl { \tex_def:D #1 } + \tl_put_right:NV \l_tmpa_tl \l_xpatch_arg_tl + \tl_put_right:No \l_tmpa_tl { \exp_after:wN {\l_xpatch_replacement_tl} } + \tl_use:N \l_tmpa_tl + } +\cs_new:Npn \xpatch_check_patchable:N #1 + { + \cs_if_exist:NTF #1 + { + \xpatch_get_all:N #1 + \xpatch_rebuild:N \xpatch_tmpa:w + \cs_if_eq:NNTF #1 \xpatch_tmpa:w + { + \bool_set_true:N \l_xpatch_patchable_bool + \xpatch_message:n + { + Macro `\token_to_str:N #1'~is~patchable + } + } + { + \bool_set_false:N \l_xpatch_patchable_bool + \xpatch_message:n + { + Macro `\token_to_str:N #1'~is~NOT~patchable\\ + (Check~if~it~contains~`@'~commands) + } + } + } + { + \bool_set_false:N \l_xpatch_patchable_bool + \xpatch_message:n + { + Macro `\token_to_str:N #1'~doesn't~exist. + } + } + } +\cs_new:Npn \xpatch_pretocmd:Nnnn #1 #2 #3 #4 + { + \xpatch_check_patchable:N #1 + \bool_if:NTF \l_xpatch_patchable_bool + { + \tl_put_left:Nn \l_xpatch_replacement_tl { #2 } + \xpatch_rebuild:N #1 + #3 + } + { + #4 + } + } +\cs_new:Npn \xpatch_apptocmd:Nnnn #1 #2 #3 #4 + { + \xpatch_check_patchable:N #1 + \bool_if:NTF \l_xpatch_patchable_bool + { + \tl_put_right:Nn \l_xpatch_replacement_tl { #2 } + \xpatch_rebuild:N #1 + #3 + } + { + #4 + } + } +\cs_new:Npn \xpatch_regexpatchcmd_all:Nnnnn #1 #2 #3 #4 #5 + { + \xpatch_check_patchable:N #1 + \bool_if:NTF \l_xpatch_patchable_bool + { + \regex_replace_all:nnN { #2 } { #3 } \l_xpatch_replacement_tl + \xpatch_rebuild:N #1 + #4 + } + { + #5 + } + } +\cs_new:Npn \xpatch_regexpatchcmd_once:Nnnnn #1 #2 #3 #4 #5 + { + \xpatch_check_patchable:N #1 + \bool_if:NTF \l_xpatch_patchable_bool + { + \regex_replace_once:nnN { #2 } { #3 } \l_xpatch_replacement_tl + \xpatch_rebuild:N #1 + #4 + } + { + #5 + } + } +\cs_new:Npn \xpatch_patchcmd_once:Nnnnn #1 #2 #3 #4 #5 + { + \xpatch_check_patchable:N #1 + \bool_if:NTF \l_xpatch_patchable_bool + { + \tl_set:Nn \l_tmpa_tl { #2 } + \tl_set:Nn \l_tmpb_tl { #3 } + \regex_replace_once:nnN + { \u{l_tmpa_tl} } + { \u{l_tmpb_tl} } + \l_xpatch_replacement_tl + \xpatch_rebuild:N #1 + #4 + } + { + #5 + } + } +\cs_new:Npn \xpatch_patchcmd_all:Nnnnn #1 #2 #3 #4 #5 + { + \xpatch_check_patchable:N #1 + \bool_if:NTF \l_xpatch_patchable_bool + { + \tl_set:Nn \l_tmpa_tl { #2 } + \tl_set:Nn \l_tmpb_tl { #3 } + \regex_replace_all:nnN + { \u{l_tmpa_tl} } + { \u{l_tmpb_tl} } + \l_xpatch_replacement_tl + \xpatch_rebuild:N #1 + #4 + } + { + #5 + } + } +\cs_new:Npn \xpatch_message:n #1 + { + \bool_if:NT \l_xpatch_tracing_bool + { + \msg_term:x { xpatch~message \\ #1 } + } + } +\cs_new:Npn \xpatch_message_cstype:n #1 + { + \prg_case_str:onn { \l_xpatch_type_tl } + { + { DRCw } { + \xpatch_message:n + { + `\token_to_str:N #1'~is~a~control~word~defined~ + with~\token_to_str:N \DeclareRobustCommand + } + } + { DRCw+o } { + \xpatch_message:n + { + `\token_to_str:N #1'~is~a~control~word~defined~ + with~`\token_to_str:N \DeclareRobustCommand'~ + and~a~default~optional~argument~`\l_xpatch_repl_tl' + } + } + { DRCs } { + \xpatch_message:n + { + `\token_to_str:N #1'~is~a~control~symbol~defined~ + with~`\token_to_str:N \DeclareRobustCommand' + } + } + { DRCs+o } { + \xpatch_message:n + { + `\token_to_str:N #1'~is~a~control~symbol~defined~ + with~`\token_to_str:N \DeclareRobustCommand'~ + and~a~default~optional~argument~`\l_xpatch_repl_tl' + } + } + { ncw+o } { + \xpatch_message:n + { + `\token_to_str:N #1'~is~a~control~word~defined~ + with~`\token_to_str:N \newcommand'~ + and~a~default~optional~argument~`\l_xpatch_repl_tl' + } + } + { ncs+o } { + \xpatch_message:n + { + `\token_to_str:N #1'~is~a~control~symbol~defined~ + with~`\token_to_str:N \newcommand'~ + and~a~default~optional~argument~`\l_xpatch_repl_tl' + } + } + { nrc+o } { + \xpatch_message:n + { + `\token_to_str:N #1'~is~a~control~sequence~defined~ + with~`\token_to_str:N \newrobustcmd'~ + and~a~default~optional~argument~`\l_xpatch_repl_tl' + } + } + } + { + \xpatch_message:n + { + `\token_to_str:N #1'~is~not~especially~defined + } + } + } +\NewDocumentCommand{\xshowcmd} { s m } + { + \IfBooleanT{#1} + { + \group_begin: + \bool_set_true:N \l_xpatch_tracing_bool + } + \xpatch_main:NNN \cs_show:N \prg_do_nothing: #2 + \IfBooleanT{#1} + { + \group_end: + } + } +\NewDocumentCommand{\xpretocmd}{ } + { \xpatch_main:NNN \xpatch_pretocmd:Nnnn \use_none:nn } +\NewDocumentCommand{\xapptocmd}{ } + { \xpatch_main:NNN \xpatch_apptocmd:Nnnn \use_none:nn } +\NewDocumentCommand{\regexpatchcmd}{ s } + { + \IfBooleanTF{#1} + { \xpatch_main:NNN \xpatch_regexpatchcmd_all:Nnnnn \use_none:nnn } + { \xpatch_main:NNN \xpatch_regexpatchcmd_once:Nnnnn \use_none:nnn } + } +\NewDocumentCommand{\xpatchcmd}{ s } + { + \IfBooleanTF{#1} + { \xpatch_main:NNN \xpatch_patchcmd_all:Nnnnn \use_none:nn } + { \xpatch_main:NNN \xpatch_patchcmd_once:Nnnnn \use_none:nn } + } +\cs_generate_variant:Nn \xpatch_main:NNN {NNc} +\NewDocumentCommand{\xshowbibmacro} { s m } + { + \IfBooleanT{#1} + { + \group_begin: + \bool_set_true:N \l_xpatch_tracing_bool + } + \xpatch_main:NNc \cs_show:N \prg_do_nothing: { abx@macro@ \tl_to_str:n {#2} } + \IfBooleanT{#1} + { + \group_end: + } + } +\NewDocumentCommand{\xpretobibmacro} { m m m } + { + \xpatch_main:NNc \xpatch_pretocmd:Nnnn \use_none:nn + { abx@macro@ \tl_to_str:n {#1} } + } +\NewDocumentCommand{\xapptobibmacro} { m m m } + { + \xpatch_main:NNc \xpatch_apptocmd:Nnnn \use_none:nn + { abx@macro@ \tl_to_str:n {#1} } + } +\NewDocumentCommand{\xpatchbibmacro} { s m m m } + { + \IfBooleanTF{#1} + { + \xpatch_main:NcN \xpatch_patchcmd_all:Nnnnn \use_none:nnn + { abx@macro@ \tl_to_str:n {#2} } + } + { + \xpatch_main:NcN \xpatch_patchcmd_once:Nnnnn \use_none:nnn + { abx@macro@ \tl_to_str:n {#2} } + } + } +\NewDocumentCommand{\regexpatchbibmacro} { s m m m } + { + \IfBooleanTF{#1} + { + \xpatch_main:NcN \xpatch_regexpatchcmd_all:Nnnnn \use_none:nnn + { abx@macro@ \tl_to_str:n {#2} } + } + { + \xpatch_main:NcN \xpatch_regexpatchcmd_once:Nnnnn \use_none:nnn + { abx@macro@ \tl_to_str:n {#2} } + } + } +\NewDocumentCommand{\xshowbibdriver} { s m } + { + \IfBooleanT{#1} + { + \group_begin: + \bool_set_true:N \l_xpatch_tracing_bool + } + \xpatch_main:NNc \cs_show:N \prg_do_nothing: { blx@bbx@#2 } + \IfBooleanT{#1} + { + \group_end: + } + } +\NewDocumentCommand{\xpretobibdriver} { m } + { \exp_args:Nc \xpatch_pretocmd:Nnnn {blx@bbx@#1} } +\NewDocumentCommand{\xapptobibdriver} { m } + { \exp_args:Nc \xpatch_apptocmd:Nnnn {blx@bbx@#1} } +\NewDocumentCommand{\xpatchbibdriver} { s m } + { + \IfBooleanTF{#1} + { \exp_args:Nc \xpatch_patchcmd_all:Nnnnn {blx@bbx@#2} } + { \exp_args:Nc \xpatch_patchcmd_once:Nnnnn {blx@bbx@#2} } + } +\NewDocumentCommand{\regexpatchbibdriver} { s m } + { + \IfBooleanTF{#1} + { \exp_args:Nc \xpatch_regexpatchcmd_all:Nnnnn {blx@bbx@#2} } + { \exp_args:Nc \xpatch_regexpatchcmd_once:Nnnnn {blx@bbx@#2} } + } +\NewDocumentCommand{\checkpatchable}{ m } + { + \group_begin: + \bool_set_true:N \l_xpatch_tracing_bool + \xpatch_check_patchable:N #1 + \group_end: + } +\cs_generate_variant:Nn \xpatch_get_all:N {c} +\cs_generate_variant:Nn \xpatch_rebuild:N {c} +\NewDocumentCommand{\xpatchoptarg}{ m m } + { + \xpatch_main_check:N #1 + \bool_if:NTF \l_xpatch_optional_bool + { + \tl_set:Nx \l_xpatch_name_tl { \tl_tail:V \l_xpatch_name_tl } + \exp_args:NNf \tl_set:Nn \l_xpatch_prefix_tl + {\token_get_prefix_spec:N #1 } + \tl_clear:N \l_xpatch_prefix_tl + \exp_args:NNnx \tl_set_rescan:Nnn + \l_xpatch_prefix_tl { } \l_xpatch_prefix_tl + \exp_args:NNV \tl_set_eq:Nc \l_xpatch_replacement_tl + { \l_xpatch_name_tl } + \tl_set:Nn \l_tmpa_tl { { #2 } } + \regex_replace_once:nnN { \cB. .* \cE. \Z} { \u{l_tmpa_tl} } + \l_xpatch_replacement_tl + \xpatch_rebuild:c { \l_xpatch_name_tl } + } + { + \group_begin: + \bool_set_true:N \l_xpatch_tracing_bool + \xpatch_message:n + { + Macro~`\token_to_str:N #1'~ has~no~optional~argument~ + or~it~has~been~defined~with~`xparse'~and~operating~ + on~such~commands~is~(still)~not~supported + } + \group_end: + } + } +\NewDocumentCommand{\tracingxpatches}{ O{1} } + { + \int_compare:nTF { #1 > 0 } + { \bool_set_true:N \l_xpatch_tracing_bool } + { \bool_set_false:N \l_xpatch_tracing_bool } + } +\NewDocumentCommand{\xpatchparametertext}{m m m m m} + { + \xpatch_check_patchable:N #1 + \bool_if:NTF \l_xpatch_patchable_bool + { + \regex_replace_once:nnN { #2 } { #3 } \l_xpatch_arg_tl + \xpatch_rebuild:N #1 + #4 + } + { + #5 + } + } +%% +%% +%% End of file `regexpatch.sty'. |