summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-09-22 17:54:46 +0000
committerKarl Berry <karl@freefriends.org>2008-09-22 17:54:46 +0000
commit9da98529e177e6454863e2131dfdb16dc2c37e85 (patch)
tree6479c5cb3add13504bec3fb1a3ab0827addad819
parent570886302e347e0b86dc0f5e8190aad8761c1595 (diff)
xstring 1.3 (21sep08)
git-svn-id: svn://tug.org/texlive/trunk@10688 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/texmf-dist/doc/latex/xstring/README62
-rw-r--r--Master/texmf-dist/doc/latex/xstring/test_etex.pdfbin28377 -> 29601 bytes
-rw-r--r--Master/texmf-dist/doc/latex/xstring/test_etex.tex65
-rw-r--r--Master/texmf-dist/doc/latex/xstring/test_latex.pdfbin49036 -> 52707 bytes
-rw-r--r--Master/texmf-dist/doc/latex/xstring/test_latex.tex77
-rw-r--r--Master/texmf-dist/doc/latex/xstring/xstring_doc_en.pdfbin179203 -> 194495 bytes
-rw-r--r--Master/texmf-dist/doc/latex/xstring/xstring_doc_en.tex224
-rw-r--r--Master/texmf-dist/doc/latex/xstring/xstring_doc_fr.pdfbin188499 -> 205460 bytes
-rwxr-xr-xMaster/texmf-dist/doc/latex/xstring/xstring_doc_fr.tex247
-rw-r--r--Master/texmf-dist/tex/latex/xstring/xstring.sty2
-rw-r--r--Master/texmf-dist/tex/latex/xstring/xstring.tex352
-rwxr-xr-xMaster/tlpkg/bin/ctan2tds1
12 files changed, 744 insertions, 286 deletions
diff --git a/Master/texmf-dist/doc/latex/xstring/README b/Master/texmf-dist/doc/latex/xstring/README
index c843faa5408..e0e96d9f9f0 100644
--- a/Master/texmf-dist/doc/latex/xstring/README
+++ b/Master/texmf-dist/doc/latex/xstring/README
@@ -1,8 +1,8 @@
_________________
xstring package
- v1.2
- 2008/08/23
+ v1.3
+ 2008/09/21
_________________
----------------------------------------------------------------------------
@@ -16,17 +16,20 @@ This package provides macros manipulating strings, such as:
- does a string starts (or ends) with another? etc.
- is a string an integer? A decimal?
- are 2 strings equal?
+ - is a string equal to several cases?
* extractions of substrings:
- what is on the left (or the right) of the nth occurrence of a
substring;
- what is between the occurrences of 2 substrings;
- - substring between 2 positions, etc.
+ - substring between 2 positions;
+ - split a string, etc.
* substitution of all (or the n first) occurrences of a substring
for an other substring;
* calculation of numbers:
- length of a string;
- position of the nth occurrence of a substring;
- how many times a string contains a substring?
+ - comparison of strings: position of the first difference.
For programming purposes, other macros allow to use special characters
(& ~ \ { } _ # $ ^ %) with the macros manipulating strings.
@@ -45,40 +48,43 @@ This bundle contains :
----------------------------------------------------------------------------
Attention !
-Cette extension ne nécessite plus LaTeX (bien que eTeX soit toujours requis).
-Par conséquent, le fichier xstring.tex devrait être placé dans le sous
-répertoire tex/.
+Cette extension ne nécessite pas LaTeX (bien que eTeX soit toujours requis).
+Par conséquent, le fichier xstring.tex devrait être installé dans le sous
+répertoire tex/.
----------------------------------------------------------------------------
-Cette extension regroupe un ensemble de macros manipulant des chaînes
-de caractères :
+Cette extension regroupe un ensemble de macros manipulant des chaînes
+de caractères :
* des tests :
- - une chaîne en contient elle une autre au moins n fois ?
- - une chaîne commence t-elle ou finit-elle par une autre ? etc.
- - une chaîne est-elle un entier relatif ? Un décimal ?
- - deux chaînes sont-elles égales ?
+ - une chaîne en contient elle une autre au moins n fois ?
+ - une chaîne commence t-elle ou finit-elle par une autre ? etc.
+ - une chaîne est-elle un entier relatif ? Un décimal ?
+ - deux chaînes sont-elles égales ?
+ - une chaîne est elle égale à plusieurs cas ?
* des extractions de chaines :
- - renvoi de ce qui se trouve avant (ou après) la nieme occurrence
- d'une sous-chaîne;
- - renvoi de ce qui se trouve entre les occurrences de 2 sous-chaînes;
- - sous-chaîne comprise entre 2 positions, etc.
- * le remplacement de toutes ou des n premières occurrences d'une
- sous-chaîne par une autre sous-chaîne;
+ - renvoi de ce qui se trouve avant (ou après) la nieme occurrence
+ d'une sous-chaîne;
+ - renvoi de ce qui se trouve entre les occurrences de 2 sous-chaînes;
+ - sous-chaîne comprise entre 2 positions;
+ - coupure d'une chaîne, etc.
+ * le remplacement de toutes ou des n premières occurrences d'une
+ sous-chaîne par une autre sous-chaîne;
* des calculs de nombres :
- - longueur d'une chaîne;
- - position de la la nieme occurrence d'une sous-chaîne;
- - comptage du nombre d'occurrences d'une sous-chaîne dans une autre.
+ - longueur d'une chaîne;
+ - position de la la nieme occurrence d'une sous-chaîne;
+ - comptage du nombre d'occurrences d'une sous-chaîne dans une autre.
+ - comparaison de 2 chaînes : position du 1er caractère différent.
-D'autres commandes permettent de traiter les caractères spéciaux
-(& ~ \ { } _ # $ ^ %) de façon à les utiliser dans les arguments des macros
-de ce package, ce qui permet d'utiliser ces macros à fins de programmation.
+D'autres commandes permettent de traiter les caractères spéciaux
+(& ~ \ { } _ # $ ^ %) de façon à les utiliser dans les arguments des macros
+de ce package, ce qui permet d'utiliser ces macros à fins de programmation.
Ce paquet contient :
* xstring.sty (le fichier sty pour LaTeX)
- * xstring.tex (le package lui même)
+ * xstring.tex (le package lui même)
* xstring_doc_en.tex and xstring_doc_en.pdf (manuel en anglais)
- * xstring_doc_fr.tex and xstring_doc_fr.pdf (manuel en français)
- * test_etex.tex and test_etex.pdf (fichier test à compiler avec etex)
- * test_latex.tex and test_latex.pdf (fichier test à compiler avec LaTeX)
+ * xstring_doc_fr.tex and xstring_doc_fr.pdf (manuel en français)
+ * test_etex.tex and test_etex.pdf (fichier test à compiler avec etex)
+ * test_latex.tex and test_latex.pdf (fichier test à compiler avec LaTeX)
* README (ce fichier)
Christian Tellechea
diff --git a/Master/texmf-dist/doc/latex/xstring/test_etex.pdf b/Master/texmf-dist/doc/latex/xstring/test_etex.pdf
index d788c108116..35c205d4ef2 100644
--- a/Master/texmf-dist/doc/latex/xstring/test_etex.pdf
+++ b/Master/texmf-dist/doc/latex/xstring/test_etex.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/xstring/test_etex.tex b/Master/texmf-dist/doc/latex/xstring/test_etex.tex
index 390084bd4f4..a629c1a9958 100644
--- a/Master/texmf-dist/doc/latex/xstring/test_etex.tex
+++ b/Master/texmf-dist/doc/latex/xstring/test_etex.tex
@@ -523,4 +523,69 @@ Lorsque le r\'esultat contient des espaces ou peut conduire \`a des doutes, il s
\exemple|\StrPosition{}{a}[\aa]\aa|
\exemple|\StrPosition{}{}[\aa]\aa|
+\chapitre{La macro}{StrCompare}
+
+La tol\'erance normale :\par
+\exemple|\StrCompare{abcdefghij}{abc}|
+\exemple|\StrCompare{A}{A}|
+\exemple|\StrCompare{éçà}{éçà}|
+\exemple|\StrCompare{abcdef}{a bd}|
+\exemple|\StrCompare{ }{ }|
+\exemple|\StrCompare{}{abcd}|
+\exemple|\StrCompare{abcd}{}|
+\exemple|\StrCompare{123456}{1234}|
+\exemple|\StrCompare{a b c d}{a bcd}|
+\exemple|\StrCompare{}{}|
+\exemple|\StrCompare{eee}{eeee}|
+\exemple|\StrCompare{eeee}{eee}|
+\exemple|\StrCompare{totutu}{tututu}|
+\exemple|\StrCompare{abcd}{abyz}|
+
+\AvecArgOptionnel
+\exemple|\StrCompare{abcdefghij}{abc}[\aa]\aa|
+\exemple|\StrCompare{A}{A}[\aa]\aa|
+\exemple|\StrCompare{éçà}{éçà}[\aa]\aa|
+\exemple|\StrCompare{abcdef}{a bd}[\aa]\aa|
+\exemple|\StrCompare{ }{ }[\aa]\aa|
+\exemple|\StrCompare{}{abcd}[\aa]\aa|
+\exemple|\StrCompare{abcd}{}[\aa]\aa|
+\exemple|\StrCompare{123456}{1234}[\aa]\aa|
+\exemple|\StrCompare{a b c d}{a bcd}[\aa]\aa|
+\exemple|\StrCompare{}{}[\aa]\aa|
+\exemple|\StrCompare{eee}{eeee}[\aa]\aa|
+\exemple|\StrCompare{eeee}{eee}[\aa]\aa|
+\exemple|\StrCompare{totutu}{tututu}[\aa]\aa|
+\exemple|\StrCompare{abcd}{abyz}[\aa]\aa|
+
+La tol\'erance stricte :\par\comparestrict
+\exemple|\StrCompare{abcdefghij}{abc}|
+\exemple|\StrCompare{A}{A}|
+\exemple|\StrCompare{éçà}{éçà}|
+\exemple|\StrCompare{abcdef}{a bd}|
+\exemple|\StrCompare{ }{ }|
+\exemple|\StrCompare{}{abcd}|
+\exemple|\StrCompare{abcd}{}|
+\exemple|\StrCompare{123456}{1234}|
+\exemple|\StrCompare{a b c d}{a bcd}|
+\exemple|\StrCompare{}{}|
+\exemple|\StrCompare{eee}{eeee}|
+\exemple|\StrCompare{eeee}{eee}|
+\exemple|\StrCompare{totutu}{tututu}|
+\exemple|\StrCompare{abcd}{abyz}|
+
+\AvecArgOptionnel
+\exemple|\StrCompare{abcdefghij}{abc}[\aa]\aa|
+\exemple|\StrCompare{A}{A}[\aa]\aa|
+\exemple|\StrCompare{éçà}{éçà}[\aa]\aa|
+\exemple|\StrCompare{abcdef}{a bd}[\aa]\aa|
+\exemple|\StrCompare{ }{ }[\aa]\aa|
+\exemple|\StrCompare{}{abcd}[\aa]\aa|
+\exemple|\StrCompare{abcd}{}[\aa]\aa|
+\exemple|\StrCompare{123456}{1234}[\aa]\aa|
+\exemple|\StrCompare{a b c d}{a bcd}[\aa]\aa|
+\exemple|\StrCompare{}{}[\aa]\aa|
+\exemple|\StrCompare{eee}{eeee}[\aa]\aa|
+\exemple|\StrCompare{eeee}{eee}[\aa]\aa|
+\exemple|\StrCompare{totutu}{tututu}[\aa]\aa|
+\exemple|\StrCompare{abcd}{abyz}[\aa]\aa|
\end \ No newline at end of file
diff --git a/Master/texmf-dist/doc/latex/xstring/test_latex.pdf b/Master/texmf-dist/doc/latex/xstring/test_latex.pdf
index dfdd60f4f70..ba8e585e3d3 100644
--- a/Master/texmf-dist/doc/latex/xstring/test_latex.pdf
+++ b/Master/texmf-dist/doc/latex/xstring/test_latex.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/xstring/test_latex.tex b/Master/texmf-dist/doc/latex/xstring/test_latex.tex
index b2dada5d956..72437521de2 100644
--- a/Master/texmf-dist/doc/latex/xstring/test_latex.tex
+++ b/Master/texmf-dist/doc/latex/xstring/test_latex.tex
@@ -403,6 +403,17 @@ Lorsque le résultat contient des espaces ou peut conduire à des doutes, il ser
\exemple|\StrLen{ÉÀÇ}[\aa]\aa|% idem
\exemple|\StrLen{}[\aa]\aa|
+\chapitre{la macro}{StrSplit}
+
+\exemple|\StrSplit{abcde}{3}{\xx}{\yy}\#\xx\#\quad\#\yy\#|
+\exemple|\StrSplit{abcde}{1}{\xx}{\yy}\#\xx\#\quad\#\yy\#|
+\exemple|\StrSplit{abcde}{0}{\xx}{\yy}\#\xx\#\quad\#\yy\#|
+\exemple|\StrSplit{abcde}{-5}{\xx}{\yy}\#\xx\#\quad\#\yy\#|
+\exemple|\StrSplit{abcde}{20}{\xx}{\yy}\#\xx\#\quad\#\yy\#|
+\exemple|\StrSplit{a b c}{4}{\xx}{\yy}\#\xx\#\quad\#\yy\#|
+\exemple|\StrSplit{éàçù}{2}{\xx}{\yy}\#\xx\#\quad\#\yy\#|
+\exemple|\StrSplit{}{3}{\xx}{\yy}\#\xx\#\quad\#\yy\#|
+
\chapitre{la macro}{StrMid}
\exemple|\StrMid{abcdef}{2}{5}|
@@ -594,4 +605,70 @@ Lorsque le résultat contient des espaces ou peut conduire à des doutes, il ser
\exemple|\StrPosition{abcdef}{}[\aa]\aa|
\exemple|\StrPosition{}{a}[\aa]\aa|
\exemple|\StrPosition{}{}[\aa]\aa|
+
+\chapitre{La macro}{StrCompare}
+
+La tolérance normale :\par\comparenormal
+\exemple|\StrCompare{abcdefghij}{abc}|
+\exemple|\StrCompare{A}{A}|
+\exemple|\StrCompare{éçà}{éçà}|
+\exemple|\StrCompare{abcdef}{a bd}|
+\exemple|\StrCompare{ }{ }|
+\exemple|\StrCompare{}{abcd}|
+\exemple|\StrCompare{abcd}{}|
+\exemple|\StrCompare{123456}{1234}|
+\exemple|\StrCompare{a b c d}{a bcd}|
+\exemple|\StrCompare{}{}|
+\exemple|\StrCompare{eee}{eeee}|
+\exemple|\StrCompare{eeee}{eee}|
+\exemple|\StrCompare{totutu}{tututu}|
+\exemple|\StrCompare{abcd}{abyz}|
+\par\bigskip Mêmes exemples avec l'argument optionnel :
+
+\exemple|\StrCompare{abcdefghij}{abc}[\aa]\aa|
+\exemple|\StrCompare{A}{A}[\aa]\aa|
+\exemple|\StrCompare{éçà}{éçà}[\aa]\aa|
+\exemple|\StrCompare{abcdef}{a bd}[\aa]\aa|
+\exemple|\StrCompare{ }{ }[\aa]\aa|
+\exemple|\StrCompare{}{abcd}[\aa]\aa|
+\exemple|\StrCompare{abcd}{}[\aa]\aa|
+\exemple|\StrCompare{123456}{1234}[\aa]\aa|
+\exemple|\StrCompare{a b c d}{a bcd}[\aa]\aa|
+\exemple|\StrCompare{}{}[\aa]\aa|
+\exemple|\StrCompare{eee}{eeee}[\aa]\aa|
+\exemple|\StrCompare{eeee}{eee}[\aa]\aa|
+\exemple|\StrCompare{totutu}{tututu}[\aa]\aa|
+\exemple|\StrCompare{abcd}{abyz}[\aa]\aa|
+
+La tolérance stricte :\comparestrict\par
+\exemple|\StrCompare{abcdefghij}{abc}|
+\exemple|\StrCompare{A}{A}|
+\exemple|\StrCompare{éçà}{éçà}|
+\exemple|\StrCompare{abcdef}{a bd}|
+\exemple|\StrCompare{ }{ }|
+\exemple|\StrCompare{}{abcd}|
+\exemple|\StrCompare{abcd}{}|
+\exemple|\StrCompare{123456}{1234}|
+\exemple|\StrCompare{a b c d}{a bcd}|
+\exemple|\StrCompare{}{}|
+\exemple|\StrCompare{eee}{eeee}|
+\exemple|\StrCompare{eeee}{eee}|
+\exemple|\StrCompare{totutu}{tututu}|
+\exemple|\StrCompare{abcd}{abyz}|
+\par\bigskip Mêmes exemples avec l'argument optionnel :
+
+\exemple|\StrCompare{abcdefghij}{abc}[\aa]\aa|
+\exemple|\StrCompare{A}{A}[\aa]\aa|
+\exemple|\StrCompare{éçà}{éçà}[\aa]\aa|
+\exemple|\StrCompare{abcdef}{a bd}[\aa]\aa|
+\exemple|\StrCompare{ }{ }[\aa]\aa|
+\exemple|\StrCompare{}{abcd}[\aa]\aa|
+\exemple|\StrCompare{abcd}{}[\aa]\aa|
+\exemple|\StrCompare{123456}{1234}[\aa]\aa|
+\exemple|\StrCompare{a b c d}{a bcd}[\aa]\aa|
+\exemple|\StrCompare{}{}[\aa]\aa|
+\exemple|\StrCompare{eee}{eeee}[\aa]\aa|
+\exemple|\StrCompare{eeee}{eee}[\aa]\aa|
+\exemple|\StrCompare{totutu}{tututu}[\aa]\aa|
+\exemple|\StrCompare{abcd}{abyz}[\aa]\aa|
\end{document} \ No newline at end of file
diff --git a/Master/texmf-dist/doc/latex/xstring/xstring_doc_en.pdf b/Master/texmf-dist/doc/latex/xstring/xstring_doc_en.pdf
index 4882127b0a6..a16122cadbb 100644
--- a/Master/texmf-dist/doc/latex/xstring/xstring_doc_en.pdf
+++ b/Master/texmf-dist/doc/latex/xstring/xstring_doc_en.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/xstring/xstring_doc_en.tex b/Master/texmf-dist/doc/latex/xstring/xstring_doc_en.tex
index 3985badad65..88e65f4d514 100644
--- a/Master/texmf-dist/doc/latex/xstring/xstring_doc_en.tex
+++ b/Master/texmf-dist/doc/latex/xstring/xstring_doc_en.tex
@@ -38,6 +38,7 @@
\newcommand\arguC[1]{\texttt{[}\argu{#1}\texttt{]}}
\newcommand\arguCC[2]{\texttt{[}\argu{#1}{,}\argu{#2}\texttt{]}}
\newcommand\texte[1]{\texttt{text}${}_{#1}$}
+\newcommand\etoile{$\langle$\texttt{[*]}$\rangle$}
\newcommand\voirdeftexte{~(see \ref{deftexte})}
\newenvironment{Conditions}[1][1cm]%
{\begin{list}%
@@ -96,6 +97,7 @@
\item length of a string;
\item position of the $n$\th{} occurrence of a substring;
\item how many times a string contains a substring?
+ \item comparison of 2 strings: position of the first difference.
\end{itemize}
\end{itemize}
\setlength{\parindent}{0pt}
@@ -114,7 +116,9 @@ This manual is a translation of the french manual. I apologize for my poor engli
\subsection{Description}
This extension\footnote{This extension does not require \LaTeX{} and can be compiled with Plain $\varepsilon$-\TeX{}.} provides macros and tests operating on strings, as other programmation languages have. They provides the usual strings operations, such as: test if a string contains another, begins or ends with another, extractions of strings, calculation of the position of a substring, of the number of occurrences, etc.\medskip
-Certainly, other packages exist (for example \href{http://www.ctan.org/tex-archive/macros/latex/contrib/substr/}{\nolinkurl{substr}} and \href{http://www.ctan.org/tex-archive/macros/latex/contrib/stringstrings/}{\nolinkurl{stringstrings}}), but as well as differences on features, they do not take into account occurrences so I found them too limited and difficult to use for programming.
+Certainly, other packages exist (for example \href{http://www.ctan.org/tex-archive/macros/latex/contrib/substr/}{\nolinkurl{substr}} and \href{http://www.ctan.org/tex-archive/macros/latex/contrib/stringstrings/}{\nolinkurl{stringstrings}}), but as well as differences on features, they do not take into account occurrences so I found them too limited and difficult to use for programming.\medskip
+
+There are 2 forms of each command of this package : the regular one and the starred one. The difference is that the regular \emph{do take care of catcodes} of the characters in the string, while the starred ones, \emph{less strict}, don't. For most users, both should behave the same way (for advanced user, read more at page~\pageref{catcodesarguments} and page~\pageref{macrosetoilees}).
\subsection{Motivation}
I decided to write this package of macros because I have never really found tools in \LaTeX{} suiting my needs for strings. So, over the last few months,I wrote a few macros that I occasionally or regularly used. Their numbers have increased and become a little too dispersed in directories in my computer, so I have grouped them together in this package.
@@ -153,7 +157,7 @@ The structure on the left allow to forget the order of expansion and avoid writi
However, at any time, you can find the usual order of expansion with the macro \verb|\normalexpandarg|, and use again \verb|\fullexpandarg| if you want a full expansion of the arguments.
\subsubsection{Textual arguments}
-The macros operating on strings require one or several arguments containing --~or whose expansion contains~-- \texte{10,11,12}\voirdeftexte{}, using the usual syntax \verb|{|\texte{10,11,12}\verb|}|, and for optionnal arguments \verb|[|\texte{10,11,12}\verb|]|.\medskip
+The macros operating on strings require one or several arguments containing --~or whose expansion contains~-- \texte{10,11,12}\voirdeftexte{}, using the usual syntax \verb|{|\texte{10,11,12}\verb|}|, and for optional arguments \verb|[|\texte{10,11,12}\verb|]|.\medskip
The following rules shoud be observed for the expansion of textual arguments:
@@ -172,7 +176,7 @@ The macros of this package are not purely expandable, i.e. they cannot be put in
\qquad or this nested structure\par
\hspace{0.2\linewidth}\verb|\commandA{\commandB{\commandC{argument}}}|\smallskip
-For this reason, all the macros returning a result (i.e. all excepted the tests) have an optionnal argument in last position. The syntax is \arguC{name}, where \argu{name} is the name of the control sequence that will receive the result of the macro: the assignment is made with an \verb|\edef| which make the result of the macro \argu{name} purely expandable. Of course, if an optionnal argument is present, the macro does not display anything.\medskip
+For this reason, all the macros returning a result (i.e. all excepted the tests and \verb|\StrSplit|) have an optional argument in last position. The syntax is \arguC{name}, where \argu{name} is the name of the control sequence that will receive the result of the macro: the assignment is made with an \verb|\edef| which make the result of the macro \argu{name} purely expandable. Of course, if an optional argument is present, the macro does not display anything.\medskip
Thus, this structure not allowed, already seen above:\par
\hspace{0.2\linewidth}\verb|\edef\Result{\command{arguments}}|\par
@@ -186,6 +190,15 @@ And this nested one:\par
\hspace{0.2\linewidth}\verb|\commandB{\MyString}[\MyString]|\par
\hspace{0.2\linewidth}\verb|\commandA{\MyString}|
+\subsubsection{Catcode of arguments}\label{catcodesarguments}
+Macros of this package take the catcodes of characters into account. To avoid unexpected behaviour (particulary with tests), you should keep in mind that characters \emph{and their catcodes} are examined.\medskip
+
+For instance, these two arguments:\par\medskip
+\hfil\verb|{\string a\string b}|\qquad and\qquad\verb|{ab}|\hfil{}\par\smallskip
+do \emph{not} expand into equal strings for xstring! Because of the command \verb|\string|, the first expands into ''\verb|ab|`` with catcodes 12 while the second have characters with their natural catcodes 11. Catcodes do not match! It is necessary to be aware of this, particulary with command like \verb|\string| which expansion is a string with catcodes 12 and 10 : \verb|\detokenize|, \verb|\meaning|, \verb|\jobname|, \verb|\fontname|, \verb|\romannumeral|, etc.\medskip
+
+Starred macros do not take catcodes into account. They simply convert their textual arguments into arguments with catcodes 12 and 10, and call the non-starred macros with these modified arguments. For more information about this, read page~\pageref{macrosetoilees}.
+
\section{The macros}
\label{listemacros}
\subsection{Presentation of macros}
@@ -200,7 +213,7 @@ In the following chapters, all the macros will be presented this plan:\smallskip
\subsection{The tests}
\subsubsection{IfSubStr}
-\verb|\IfSubStr|\arguC{number}\ARGU{string}\ARGU{stringA}\ARGU{true}\ARGU{false}
+\verb|\IfSubStr|\etoile\arguC{number}\ARGU{string}\ARGU{stringA}\ARGU{true}\ARGU{false}
\smallskip
The value of the optional argument \argu{number} is 1 by default.\par\smallskip
@@ -221,7 +234,7 @@ Tests if \argu{string} contains at least \argu{number} times \argu{stringA} and
\exemple|\IfSubStr[4]{1a2a3a}{a}{true}{false}|
\subsubsection{IfSubStrBefore}
-\verb|\IfSubStrBefore|\arguCC{number1}{number2}\ARGU{string}\ARGU{stringA}\ARGU{stringB}\ARGU{true}\ARGU{false}
+\verb|\IfSubStrBefore|\etoile\arguCC{number1}{number2}\ARGU{string}\ARGU{stringA}\ARGU{stringB}\ARGU{true}\ARGU{false}
\smallskip
The values of the optional arguments \argu{number1} and \argu{number2} are 1 by default.\par\smallskip
@@ -246,7 +259,7 @@ In \argu{string}, tests if the \argu{number1}\th{} occurrence of \argu{stringA}
\subsubsection{IfSubStrBehind}
-\verb|\IfSubStrBehind|\arguCC{number1}{number2}\ARGU{string}\ARGU{stringA}\ARGU{stringB}\ARGU{true}\ARGU{false}
+\verb|\IfSubStrBehind|\etoile\arguCC{number1}{number2}\ARGU{string}\ARGU{stringA}\ARGU{stringB}\ARGU{true}\ARGU{false}
\smallskip
The values of the optional arguments \argu{number1} and \argu{number2} are 1 by default.\par\smallskip
@@ -271,7 +284,7 @@ In \argu{string}, tests if the \argu{number1}\th{} occurrence of \argu{stringA}
\subsubsection{IfBeginWith}
-\verb|\IfBeginWith|\ARGU{string}\ARGU{stringA}\ARGU{true}\ARGU{false}
+\verb|\IfBeginWith|\etoile\ARGU{string}\ARGU{stringA}\ARGU{true}\ARGU{false}
\smallskip
Tests if \argu{string} begins with \argu{stringA}, and runs \argu{true} if so, and \argu{false} otherwise.\medskip
@@ -287,7 +300,7 @@ Tests if \argu{string} begins with \argu{stringA}, and runs \argu{true} if so, a
\subsubsection{IfEndWith}
-\verb|\IfEndWith|\ARGU{string}\ARGU{stringA}\ARGU{Behind}\ARGU{false}
+\verb|\IfEndWith|\etoile\ARGU{string}\ARGU{stringA}\ARGU{Behind}\ARGU{false}
\smallskip
Tests if \argu{string} ends with \argu{stringA}, and runs \argu{true} if so, and \argu{false} otherwise.\medskip
@@ -303,7 +316,7 @@ Tests if \argu{string} ends with \argu{stringA}, and runs \argu{true} if so, and
\subsubsection{IfInteger}
-\verb|\IfInteger|\ARGU{number}\ARGU{true}\ARGU{false}
+\verb|\IfInteger|\etoile\ARGU{number}\ARGU{true}\ARGU{false}
\smallskip
Tests if \argu{number} is an integer, and runs \argu{true} if so, and \argu{false} otherwise.\smallskip
@@ -322,7 +335,7 @@ If test is false because unexpected characters, the control sequence \verb|\@xs@
\subsubsection{IfDecimal}\label{ifdecimal}
-\verb|\IfInteger|\ARGU{number}\ARGU{true}\ARGU{false}
+\verb|\IfDecimal|\etoile\ARGU{number}\ARGU{true}\ARGU{false}
\smallskip
Tests if \argu{number} is a decimal, and runs \argu{true} if so, and \argu{false} otherwise.\smallskip
@@ -354,7 +367,7 @@ If test is false because unexpected characters, the control sequence \verb|\@xs@
\subsubsection{IfStrEq}
-\verb|\IfStrEq|\ARGU{stringA}\ARGU{stringB}\ARGU{true}\ARGU{false}
+\verb|\IfStrEq|\etoile\ARGU{stringA}\ARGU{stringB}\ARGU{true}\ARGU{false}
\smallskip
Tests if the strings \argu{stringA} and \argu{stringB} are equal, i.e. if they contain successively the same characters in the same order. Runs \argu{true} if so, and \argu{false} otherwise.\smallskip
@@ -370,14 +383,14 @@ Tests if the strings \argu{stringA} and \argu{stringB} are equal, i.e. if they c
\subsubsection{IfEq}
-\verb|\IfStrEq|\ARGU{stringA}\ARGU{stringB}\ARGU{true}\ARGU{false}
+\verb|\IfEq|\etoile\ARGU{stringA}\ARGU{stringB}\ARGU{true}\ARGU{false}
\smallskip
Tests if the strings \argu{stringA} and \argu{stringB} are equal, \emph{except} if both \argu{stringA} and \argu{stringB} contain numbers in which case the macro tests if these numbers are equal. Runs \argu{true} if so, and \argu{false} otherwise.\smallskip
\begin{Conditions}
\item The definition of \emph{number} is given with the macro \verb|IfDecimal| (see page~\pageref{ifdecimal}), and thus :
- \item \guill{+} signs are optionnal;
+ \item \guill{+} signs are optional;
\item Decimal separator can be a dot or a comma;
\item It is possible to evaluate an algebric expression with the $\varepsilon$-\TeX{} primitive \verb|\numexpr|, keeping in mind that it operate on integers only, and that results of divisions are \emph{rounded} and not truncated! It is wiser to avoid with no integer calculation.
\end{Conditions}
@@ -396,10 +409,50 @@ Tests if the strings \argu{stringA} and \argu{stringB} are equal, \emph{except}
\exemple|\IfEq{0}{-0.0}{true}{false}|
\exemple|\IfEq{}{}{true}{false}|
+\subsubsection{IfStrEqCase}
+
+\begin{minipage}{\textwidth}
+ \verb|\IfStrEqCase|\etoile\ARGU{string}\verb|{%|\par
+ \qquad\qquad\ARGU{string1}\ARGU{code1}\verb|%|\par
+ \qquad\qquad\ARGU{string2}\ARGU{code2}\verb|%|\par
+ \qquad\qquad\verb|etc...|\par
+ \qquad\qquad\ARGU{stringN}\ARGU{codeN}\verb|}|\arguC{other cases code}
+\end{minipage}
+\smallskip
+
+Tests successively if \argu{string} is equal to \argu{string1}, \argu{string2}, etc. Comparison is made with \verb|\IfStrEq| (see above). If the test $i$ is positive (the \argu{string} matches \argu{string\;$i$}), the macro runs \argu{code\;$i$} and ends. If all tests fail, the macro runs the optional \argu{other cases code}, if present.\smallskip
+
+\exemple|\IfStrEqCase{b}{{a}{AA}{b}{BB}{c}{CC}}|
+\exemple*|\IfStrEqCase{abc}{{a}{AA}{b}{BB}{c}{CC}}|
+\exemple|\IfStrEqCase{c}{{a}{AA}{b}{BB}{c}{CC}}[other]|
+\exemple|\IfStrEqCase{d}{{a}{AA}{b}{BB}{c}{CC}}[other]|
+\exemple|\IfStrEqCase{+3}{{1}{one}{2}{two}{3}{three}}[other]|
+\exemple|\IfStrEqCase{0.5}{{0}{zero}{.5}{half}{1}{one}}[other]|
+
+\subsubsection{IfEqCase}
+
+\begin{minipage}{\textwidth}
+ \verb|\IfEqCase|\etoile\ARGU{string}\verb|{%|\par
+ \qquad\qquad\ARGU{string1}\ARGU{code1}\verb|%|\par
+ \qquad\qquad\ARGU{string2}\ARGU{code2}\verb|%|\par
+ \qquad\qquad\verb|etc...|\par
+ \qquad\qquad\ARGU{stringN}\ARGU{codeN}\verb|}|\arguC{other cases code}
+\end{minipage}
+\smallskip
+
+Tests successively if \argu{string} is equal to \argu{string1}, \argu{string2}, etc. Comparison is made with \verb|\IEq| (see above). If the test $i$ is positive (the \argu{string} matches \argu{string\;$i$}), the macro runs \argu{code\;$i$} and ends. If all tests fail, the macro runs the optional \argu{other cases code}, if present.\smallskip
+
+\exemple|\IfEqCase{b}{{a}{AA}{b}{BB}{c}{CC}}|
+\exemple*|\IfEqCase{abc}{{a}{AA}{b}{BB}{c}{CC}}|
+\exemple|\IfEqCase{c}{{a}{AA}{b}{BB}{c}{CC}}[other]|
+\exemple|\IfEqCase{d}{{a}{AA}{b}{BB}{c}{CC}}[other]|
+\exemple|\IfEqCase{+3}{{1}{one}{2}{two}{3}{three}}[other]|
+\exemple|\IfEqCase{0.5}{{0}{zero}{.5}{half}{1}{one}}[other]|
+
\subsection{Extraction of substrings}
\subsubsection{StrBefore}
-\verb|\StrBefore|\arguC{number}\ARGU{string}\ARGU{stringA}\arguC{name}
+\verb|\StrBefore|\etoile\arguC{number}\ARGU{string}\ARGU{stringA}\arguC{name}
\smallskip
The value of the optional argument \argu{number} is 1 by default.\par\smallskip
@@ -423,7 +476,7 @@ In \argu{string}, returns what is leftwards the \argu{number}\th{} occurrence of
\subsubsection{StrBehind}
-\verb|\StrBehind|\arguC{number}\ARGU{string}\ARGU{stringA}\arguC{name}
+\verb|\StrBehind|\etoile\arguC{number}\ARGU{string}\ARGU{stringA}\arguC{name}
\smallskip
The value of the optional argument \argu{number} is 1 by default.\par\smallskip
@@ -449,7 +502,7 @@ In \argu{string}, returns what is rightwards the \argu{number}\th{} occurrence o
\subsubsection{StrBetween}
-\verb|\StrBetween|\arguCC{number1}{number2}\ARGU{string}\ARGU{stringA}\ARGU{stringB}\arguC{name}
+\verb|\StrBetween|\etoile\arguCC{number1}{number2}\ARGU{string}\ARGU{stringA}\ARGU{stringB}\arguC{name}
\smallskip
The values of the optional arguments \argu{number1} and \argu{number2} are 1 by default.\par\smallskip
@@ -475,7 +528,7 @@ In \argu{string}, returns the substring between\footnote{In a strict sense, i.e.
\subsubsection{StrSubstitute}
-\verb|\StrSubstitute|\arguC{number}\ARGU{string}\ARGU{stringA}\ARGU{stringB}\arguC{name}
+\verb|\StrSubstitute|\etoile\arguC{number}\ARGU{string}\ARGU{stringA}\ARGU{stringB}\arguC{name}
\smallskip
The value of the optional argument \argu{number} is 1 by default.\par\smallskip
@@ -503,7 +556,7 @@ In \argu{string}, substitute the \argu{number} first occurrences of \argu{string
\subsubsection{StrDel}
-\verb|\StrDel|\arguC{number}\ARGU{string}\ARGU{stringA}\arguC{name}
+\verb|\StrDel|\etoile\arguC{number}\ARGU{string}\ARGU{stringA}\arguC{name}
\smallskip
The value of the optional argument \argu{number} is 1 by default.\par\smallskip
@@ -523,12 +576,34 @@ Delete the \argu{number} first occurrences of \argu{stringA} in \argu{string}, e
\exemple|\StrDel[9]{abracadabra}{a}|
\exemple|\StrDel{a bc def }{ }|
+\subsubsection{StrSplit}
+\verb|\StrSplit|\etoile\ARGU{string}\ARGU{number}\ARGU{csA}\ARGU{csB}
+\smallskip
+
+The \argu{string}, is splitted after the character at position \argu{number}. The left part is assigned to the control sequence \argu{csA} and the right part is assigned to \argu{csB}.\par
+This macro returns two strings, so it does \emph{not} display anything. Consequently, it does not provide the optional argument in last position.\medskip
+
+\begin{Conditions}
+ \item If \argu{number}${}\leqslant0$, \argu{csA} is empty and \argu{csB} is equal to \argu{string};
+ \item If \argu{number}${}\geqslant$\argu{lengthString}, \argu{csA} is equal to \argu{string} and \argu{csB} is empty;
+ \item If \argu{string} is empty, \argu{csA} and \argu{csB} are empty, whatever be the integer \argu{number}.
+\end{Conditions}
+
+\setverbdelim{=}
+\exemple=\StrSplit{abcdef}{4}{\aa}{\bb}results: |\aa| and |\bb|=
+\exemple=\StrSplit{a b c }{2}{\aa}{\bb}results: |\aa| and |\bb|=
+\exemple=\StrSplit{abcdef}{1}{\aa}{\bb}results: |\aa| and |\bb|=
+\exemple=\StrSplit{abcdef}{5}{\aa}{\bb}results: |\aa| and |\bb|=
+\exemple=\StrSplit{abcdef}{9}{\aa}{\bb}results: |\aa| and |\bb|=
+\exemple=\StrSplit{abcdef}{-3}{\aa}{\bb}results: |\aa| and |\bb|=
+\setverbdelim{|}
+
\subsubsection{StrGobbleLeft}
-\verb|\StrGobbleLeft|\ARGU{string}\ARGU{number}\arguC{name}
+\verb|\StrGobbleLeft|\etoile\ARGU{string}\ARGU{number}\arguC{name}
\smallskip
-In \argu{string}, delete the \argu{number} fisrt characters on the left.\medskip
+In \argu{string}, delete the \argu{number} first characters on the left.\medskip
\begin{Conditions}
\item If \argu{string} is empty, an empty string is returned;
@@ -544,10 +619,10 @@ In \argu{string}, delete the \argu{number} fisrt characters on the left.\medskip
\subsubsection{StrLeft}
-\verb|\StrLeft|\ARGU{string}\ARGU{number}\arguC{name}
+\verb|\StrLeft|\etoile\ARGU{string}\ARGU{number}\arguC{name}
\smallskip
-In \argu{string}, returns the \argu{number} fisrt characters on the left.\medskip
+In \argu{string}, returns the \argu{number} first characters on the left.\medskip
\begin{Conditions}
\item If \argu{string} is empty, an empty string is returned;
@@ -563,7 +638,7 @@ In \argu{string}, returns the \argu{number} fisrt characters on the left.\medski
\subsubsection{StrGobbleRight}
-\verb|\StrGobbleRight|\ARGU{string}\ARGU{number}\arguC{name}
+\verb|\StrGobbleRight|\etoile\ARGU{string}\ARGU{number}\arguC{name}
\smallskip
In \argu{string}, delete the \argu{number} last characters on the right.\medskip
@@ -576,7 +651,7 @@ In \argu{string}, delete the \argu{number} last characters on the right.\medskip
\subsubsection{StrRight}
-\verb|\StrRight|\ARGU{string}\ARGU{number}\arguC{name}
+\verb|\StrRight|\etoile\ARGU{string}\ARGU{number}\arguC{name}
\smallskip
In \argu{string}, returns the \argu{number} last characters on the right.\medskip
@@ -589,7 +664,7 @@ In \argu{string}, returns the \argu{number} last characters on the right.\medski
\subsubsection{StrChar}
-\verb|\StrChar|\ARGU{string}\ARGU{number}\arguC{name}
+\verb|\StrChar|\etoile\ARGU{string}\ARGU{number}\arguC{name}
\smallskip
Returns the character at the position \argu{number} in \argu{string}.\medskip
@@ -606,7 +681,7 @@ Returns the character at the position \argu{number} in \argu{string}.\medskip
\subsubsection{StrMid}
-\verb|\StrMid|\ARGU{string}\ARGU{numberA}\ARGU{numberB}\arguC{name}
+\verb|\StrMid|\etoile\ARGU{string}\ARGU{numberA}\ARGU{numberB}\arguC{name}
\smallskip
In \argu{string}, returns the substring between\footnote{In the broad sense, i.e. that the strings characters of the \guill{border} are returned.} the positions \argu{numberA} and \argu{numberB}.\medskip
@@ -630,7 +705,7 @@ In \argu{string}, returns the substring between\footnote{In the broad sense, i.e
\subsection{Number results}
\subsubsection{StrLen}
-\verb|\StrLen|\ARGU{string}\arguC{name}
+\verb|\StrLen|\etoile\ARGU{string}\arguC{name}
\smallskip
Return the length of \argu{string}.
@@ -641,7 +716,7 @@ Return the length of \argu{string}.
\subsubsection{StrCount}
-\verb|\StrCount|\ARGU{string}\ARGU{stringA}\arguC{name}
+\verb|\StrCount|\etoile\ARGU{string}\ARGU{stringA}\arguC{name}
\smallskip
Counts how many times \argu{stringA} is contained in \argu{string}.\par\medskip
@@ -657,7 +732,7 @@ Counts how many times \argu{stringA} is contained in \argu{string}.\par\medskip
\subsubsection{StrPosition}
-\verb|\StrPosition|\arguC{number}\ARGU{string}\ARGU{stringA}\arguC{name}
+\verb|\StrPosition|\etoile\arguC{number}\ARGU{string}\ARGU{stringA}\arguC{name}
\smallskip
The value of the optional argument \argu{number} is 1 by default.\par\smallskip
@@ -678,6 +753,44 @@ In \argu{string}, returns the position of the \argu{number}\th{} occurrence of \
\exemple|\StrPosition{a bc def }{d}|
\exemple|\StrPosition[3]{aaaaaa}{aa}|
+\subsubsection{StrCompare}
+\verb|\StrCompare|\etoile\ARGU{stringA}\ARGU{stringB}\arguC{name}
+\smallskip
+
+This macro has 2 tolerances: the ''normal`` tolerance, used bu default, and the ''strict`` tolerance.\medskip
+
+\begin{itemize}
+ \item The normal tolerance, activated with \verb|\comparenormal|.\par
+ The macro compares characters from left to right in \argu{stringA} and \argu{stringB} until a difference appears or the end of the shortest string is reached. The position of the first difference is returned and if no difference is found, the macro return 0.
+ \item The strict tolerance, activated with \verb|\comparestrict|.\par
+ The macro compares the 2 strings. If they are equal, it returns 0. If not, the position of the first difference is returned.
+\end{itemize}
+\smallskip
+
+Examples with the normal tolerance:\par\comparenormal
+\exemple|\StrCompare{abcd}{abcd}|
+\exemple|\StrCompare{abcd}{abc}|
+\exemple|\StrCompare{abc}{abcd}|
+\exemple|\StrCompare{éùçà}{éùçà}|
+\exemple|\StrCompare{a b c}{abc}|
+\exemple|\StrCompare{aaa}{baaa}|
+\exemple|\StrCompare{abc}{xyz}|
+\exemple|\StrCompare{123456}{123457}|
+\exemple|\StrCompare{abc}{}|
+\medskip
+
+Examples with the strict tolerance:\par\comparestrict
+\exemple|\StrCompare{abcd}{abcd}|
+\exemple|\StrCompare{abcd}{abc}|
+\exemple|\StrCompare{abc}{abcd}|
+\exemple|\StrCompare{éùçà}{éùçà}|
+\exemple|\StrCompare{a b c}{abc}|
+\exemple|\StrCompare{aaa}{baaa}|
+\exemple|\StrCompare{abc}{xyz}|
+\exemple|\StrCompare{123456}{123457}|
+\exemple|\StrCompare{abc}{}|
+\comparenormal
+
\section{Using the macros for programming purposes}
\label{programmation}
\subsection{Verbatimize to a control sequence}
@@ -786,7 +899,7 @@ Indeed, with \verb|\scancs{\resultat}{\test}|, \verb|\result| contains \texte{10
With \verb|\edef\resultat{\test}|, \verb|\resultat| contains \texte{10,11,12}, i.e. characters whose catcodes are 11 (the letters), 12 (the figure 1) and 10 (the spaces). It expands to:\par
\hfill\verb|a|${}_{11}$\ \verb*| |${}_{10}$\ \verb|b|${}_{11}$\ \verb|1|${}_{12}$\ \verb*| |${}_{10}$\ \verb|d|${}_{11}$\hfill{}
-\subsubsection{Several expansions}
+\subsubsection{Depth of expansion}
If necessary, the number of expansions can be controled with the optional argument.
In the following example, when \verb|\scancs| is called the first time, \verb|\c| is expanded 3 times and gives "\verb|1|${}_{12}$\ \verb*| |${}_{10}$\ \verb|z|${}_{11}$\ \verb*| |${}_{10}$\ \verb|3|${}_{12}$" which is converted into "\verb|1|${}_{12}$\ \verb*| |${}_{10}$\ \verb|z|${}_{12}$\ \verb*| |${}_{10}$\ \verb|3|${}_{12}$".\smallskip
@@ -1007,51 +1120,44 @@ In the following teaching example\footnote{It is possible to make much more simp
\bracearg{\a}
\end{minipage}
-\subsection{Starred macros}
-As \verb|\scancs| returns \texte{10,12}\voirdeftexte, some unexpected results occur with the macros seen at chapter~\ref{listemacros} because they care the catcodes of the characters of their arguments.\medskip
+\subsection{Starred macros}\label{macrosetoilees}
+Commands manipulating strings take catcodes of characters into account. To prevent any differences between catcode and then avoid unexpected results, all these macros have starred version. Starred macros convert their textual arguments into arguments with catcode 12 and 10 and call the non-starred macros with these modified arguments.\medskip
-This is an example of such malfunctioning:\par\medskip
+Here is an example:\par\smallskip
\begin{minipage}[r]{0.6\linewidth}
\hfill
\begin{boxedverbatim}
- \verbtocs{\mytext}|a b c|
- \IfSubStr{\mytext}{b}{true}{false}
- \par
- \edef\onecs{x y z}
- \scancs[1]\mycs\onecs
- \IfSubStr{\mycs}{y}{true}{false}
+ \IfStrEq{\string a\string b}{ab}{true}{false}\par
+ \IfStrEq*{\string a\string b}{ab}{true}{false}
\end{boxedverbatim}
\hspace{0.3cm}
\end{minipage}%
\begin{minipage}[r]{0.3\linewidth}
- \verbtocs{\mytext}|a b c|
- \IfSubStr{\mytext}{b}{true}{false}
- \par
- \edef\onecs{x y z}
- \scancs[1]\mycs\onecs
- \IfSubStr{\mycs}{y}{true}{false}
-\end{minipage}
-\medskip
-
-The first test is "true" since catcodes of non special characters are left unchanged by \verb|\verbtocs|: indeed, \verb|\mytext| contains "\verb|a|${}_{11}$\ \verb*| |${}_{10}$\ \verb|b|${}_{11}$\ \verb*| |${}_{10}$\ \verb|c|${}_{11}$" which does contain the second argument "\verb|b|${}_{11}$".\medskip
+ \IfStrEq{\string a\string b}{ab}{true}{false}\par
+ \IfStrEq*{\string a\string b}{ab}{true}{false}
+\end{minipage}\smallskip
-With the second test, since \verb|\scancs| returns \texte{10,12}, it is false. \verb|\mycs| contains "\verb|x|${}_{12}$\ \verb*| |${}_{10}$\ \verb|y|${}_{12}$\ \verb*| |${}_{10}$\ \verb|z|${}_{12}$" which does not contains the second argument ""\verb|y|${}_{11}$".\bigskip
+In this example, the first argument expands into \verb|{ab}| where, because of \verb|\string|, both characters have a catcode 12. The second argument is \verb|{ab}| where characters have their natural catcode 11. The strings are \emph{not equal} because of unmatching catcodes. Therefore, the test is negative. It is positive only with the starred macro.\medskip
-To avoid this annoyance due unmatching catcodes, it is possible to make macros of chapter~\ref{listemacros} compatible with \verb|\scancs|: they all have a starred version that converts textual arguments into \texte{10,12}, i.e. characters whose catcodes are 10 ou 12:\par\medskip
+Here is an other ewample :\par\smallskip
\begin{minipage}[r]{0.6\linewidth}
\hfill
\begin{boxedverbatim}
- \edef\onecs{x y z}
- \scancs[1]\mycs\onecs
- \IfSubStr*{\mycs}{y}{true}{false}
+ \scancs[0]\mytext{abc}
+ \StrPosition{\mytext}{b}\par
+ \StrPosition*{\mytext}{b}\par
\end{boxedverbatim}
\hspace{0.3cm}
\end{minipage}%
\begin{minipage}[r]{0.3\linewidth}
- \edef\onecs{x y z}
- \scancs[1]\mycs\onecs
- \IfSubStr*{\mycs}{y}{true}{false}
-\end{minipage}
+ \scancs[0]\mytext{abc}
+ \StrPosition{\mytext}{b}\par
+ \StrPosition*{\mytext}{b}\par
+\end{minipage}\medskip
+
+The control sequence \verb|\mytext| contains \verb|{abc}| with catcodes 12 : indeed, \verb|\scancs| returns strings with catcodes 12 and 10 for space. Logically, the non-starred macro return 0 which means that it considers that the character ''\verb|b|${}_{11}$`` is not contained in the string ''\verb|a|${}_{12}$\verb|b|${}_{12}$\verb|c|${}_{12}$``. The starred macro behaves as expected and returns the correct position.\bigskip
+
+For the macros returning a string, if the starred version is used, the result will be a string with characters' catcode 12 and 10 fot space. For example, after ''\verb|\StrBefore*{a b c d}{c}[\mytext]|``, the expansion of the control sequence \verb|\mytext| will be ''\verb|a|${}_{12}$\verb*| |${}_{10}$\verb|b|${}_{12}$\verb*| |${}_{10}$``.
\subsection{Examples}
\label{exemples}
@@ -1273,7 +1379,7 @@ A control sequence \verb|\myCS| defined with an \verb|\edef| contains control se
\end{minipage}
\medskip
-Notice that 2 counters, 2 tests and a double recursion are necessary to find the group: one of each to find whiwh "\verb|}|" delimits the end of the current group, and the others to calculate the number of the group being read.\bigskip\bigskip
+Notice that 2 counters, 2 tests and a double recursion are necessary to find the group: one of each to find which "\verb|}|" delimits the end of the current group, and the others to calculate the number of the group being read.\bigskip\bigskip
\begin{center}
$\star$\par
diff --git a/Master/texmf-dist/doc/latex/xstring/xstring_doc_fr.pdf b/Master/texmf-dist/doc/latex/xstring/xstring_doc_fr.pdf
index 3b5f53d75c1..60f854cf3f2 100644
--- a/Master/texmf-dist/doc/latex/xstring/xstring_doc_fr.pdf
+++ b/Master/texmf-dist/doc/latex/xstring/xstring_doc_fr.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/xstring/xstring_doc_fr.tex b/Master/texmf-dist/doc/latex/xstring/xstring_doc_fr.tex
index dff8c59a2aa..5d7226b1862 100755
--- a/Master/texmf-dist/doc/latex/xstring/xstring_doc_fr.tex
+++ b/Master/texmf-dist/doc/latex/xstring/xstring_doc_fr.tex
@@ -2,7 +2,7 @@
% Christian Tellechea 2008
%
% email : unbonpetit@gmail.com
-%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 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.
@@ -12,7 +12,7 @@
%
% and version 1.3 or later is part of all distributions of LaTeX
% version 2005/12/01 or later.
-%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\documentclass[a4paper,10pt]{article}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
@@ -24,8 +24,8 @@
\usepackage{eurosym}
\usepackage{xstring}
\usepackage[frenchb]{babel}
-\makeatletter
+\makeatletter
\newcommand*\exemple{\@ifstar{\def\frontiere{|}\@xs@MakeVerb}{\def\frontiere{}\@xs@MakeVerb}}
\long\def\@xs@afterreadverb#1{%
\normalexpandarg
@@ -39,6 +39,7 @@
\newcommand\arguC[1]{\texttt{[}\argu{#1}\texttt{]}}
\newcommand\arguCC[2]{\texttt{[}\argu{#1}{,}\argu{#2}\texttt{]}}
\newcommand\texte[1]{\texttt{texte}${}_{#1}$}
+\newcommand\etoile{$\langle$\texttt{[*]}$\rangle$}
\newcommand\voirdeftexte{~(voir \ref{deftexte})}
\newenvironment{Conditions}[1][1cm]%
{\begin{list}%
@@ -95,7 +96,8 @@
\begin{itemize}
\item longueur d'une chaîne;
\item position de la la $n$\ieme{} occurrence d'une sous-chaîne;
- \item comptage du nombre d'occurrences d'une sous-chaîne dans une autre.
+ \item comptage du nombre d'occurrences d'une sous-chaîne dans une autre;
+ \item position du 1\ier{} caractère différent entre 2 chaînes.
\end{itemize}
\end{itemize}
\setlength{\parindent}{0pt}
@@ -113,7 +115,9 @@
\subsection{Description}
Cette extension\footnote{L'extension ne nécessite pas \LaTeX et peut être compilée sous Plain $\varepsilon$-\TeX{}.} regroupe des macros et des tests opérant sur des chaînes de caractères, un peu comme en disposent des langages dit \guill{évolués}. On y trouve les opérations habituelles sur les chaînes de caractères, comme par exemple : test si une chaîne en contient une autre, commence ou finit par une autre, test si une chaîne est un nombre entier ou décimal, extractions de sous-chaînes ou de caractères, calculs de position d'une sous-chaîne, calculs du nombre d'occurrences, etc.\medskip
-Certes d'autres packages existent (par exemple \href{http://www.ctan.org/tex-archive/macros/latex/contrib/substr/}{\nolinkurl{substr}} et \href{http://www.ctan.org/tex-archive/macros/latex/contrib/stringstrings/}{\nolinkurl{stringstrings}}), mais outre des différences notables quant aux fonctionnalités, ils ne prennent pas en charge les occurrences des sous-chaînes et me semblent soit trop limités, soit trop difficiles à utiliser pour la programmation.
+Certes d'autres packages manipulant les chaînes de caractères existent (par exemple \href{http://www.ctan.org/tex-archive/macros/latex/contrib/substr/}{\nolinkurl{substr}} et \href{http://www.ctan.org/tex-archive/macros/latex/contrib/stringstrings/}{\nolinkurl{stringstrings}}), mais outre des différences notables quant aux fonctionnalités, ils ne prennent pas en charge les occurrences des sous-chaînes et me semblent soit trop limités, soit trop difficiles à utiliser pour la programmation.\medskip
+
+Chaque macro de ce package manipulant des caractères peut fonctionner selon 2 modes correspondants aux macros \emph{naturelles} ou \emph{étoilées}. La différence entre les deux vient du fait que les macros non étoilées tiennent compte des \guill{catcodes\footnote{Codes de catégories, en français.}} des caractères composant les chaînes, alors que les versions étoilées sont \emph{moins strictes} et n'en tiennent pas compte. Pour la plupart des utilisateurs, la question ne devrait pas se poser, et dans la majorité des cas les deux versions se comportent de la même façon (pour de plus amples informations pour les utilisateurs avancés, voir en particulier le chapitre sur les catcodes des arguments page~\pageref{catcodesarguments} et celui sur les macros étoilées, page~\pageref{macrosetoilees}).
\subsection{Motivation}
J'ai été conduit à écrire ce type de macros car je n'ai jamais vraiment trouvé de d'outils sous \LaTeX{} adaptés à mes besoins concernant le traitement de chaînes de caractères. Alors, au fil des derniers mois, et avec l'aide de contributeurs\footnote{Je remercie chaleureusement Manuel alias \guill{\nolinkurl{mpg}} pour son aide précieuse, sa compétence et sa disponibilité.} de \nolinkurl{fr.comp.text.tex}, j'ai écrit quelques macros qui me servaient ponctuellement ou régulièrement. Leur nombre s'étant accru, et celles-ci devenant un peu trop dispersées dans les répertoires de mon ordinateur, je les ai regroupées dans ce package.
@@ -127,7 +131,7 @@ Ensuite, et ça a été ma principale motivation puisque j'ai découvert \LaTeX{
Dans la suite, on écrira \guill{\texte{10,11,12}} une suite de caractères dont les catcodes sont 10, 11 ou 12.
\subsubsection{Développement des arguments}
\label{devarg}
-Tous les arguments des macros\footnote{À l'exeption des 2 derniers arguments des macros tests qui contiennent des séquences de contrôle à exécuter selon le résultat du test, ainsi qu'à l'exception de l'argument optionnel venant en dernière position.} manipulant des chaînes de caractères sont susceptibles de donner, à une certaine profondeur de développement du \texte{10,11,12}. Ainsi, \emph{par défaut}, pour éviter des chaines d'\verb|\expandafter| et faciliter l'usage des macros de ce package, tous les arguments sont développés au maximum avant d'être pris en compte par la macro appelée : pour cela, la commande \verb|\fullexpandarg| est appelée par défaut.\bigskip
+Tous les arguments des macros\footnote{À l'exeption des 2 derniers arguments des macros tests qui contiennent des séquences de contrôle à exécuter selon le résultat du test, ainsi qu'à l'exception de l'argument optionnel venant en dernière position.} manipulant des chaînes de caractères sont susceptibles de donner, à une certaine profondeur de développement du \texte{10,11,12}. Ainsi, \emph{par défaut}, pour éviter des chaines d'\verb|\expandafter| et faciliter l'usage des macros de ce package, tous les arguments sont développés le plus possible avant d'être pris en compte par la macro appelée : pour cela, la commande \verb|\fullexpandarg| est appelée par défaut.\bigskip
Par exemple, si \verb|\macro| est une macro de ce package nécessitant un argument texte et un argument nombre obligatoires, les constructions suivantes sont équivalentes :\medskip
@@ -156,7 +160,7 @@ Les macros de packages manipulant des chaînes de caractères, elles nécessiten
Il convient de respecter les règles suivantes pour le développement des arguments textuels :
\begin{itemize}
- \item ils peuvent contenir des lettres (majuscules ou minuscules, accentuées\footnote{Pour pouvoir utiliser des lettres accentuées de façon fiable, il est nécessaire de charger le packages \texttt{\textbackslash fontenc} avec l'option \texttt{[T1]}, ainsi que \texttt{\textbackslash inputenc} avec l'option correspondant au codage du fichier tex} ou non), des chiffres et des espaces, ainsi que tout caractère de catcode 10, 11 ou 12 (signes de ponctuation, signes opératoires mathématiques, parenthèses, crochets, etc). Le signe \officialeuro, par contre, génèrera des erreurs.
+ \item ils peuvent contenir des lettres (majuscules ou minuscules, accentuées\footnote{Pour pouvoir utiliser des lettres accentuées de façon fiable, il est nécessaire de charger le packages \texttt{\textbackslash fontenc} avec l'option \texttt{[T1]}, ainsi que \texttt{\textbackslash inputenc} avec l'option correspondant au codage du fichier tex.} ou non), des chiffres et des espaces, ainsi que tout caractère de catcode 10, 11 ou 12 (signes de ponctuation, signes opératoires mathématiques, parenthèses, crochets, etc). Le signe \officialeuro, par contre, génèrera des erreurs;
\item les espaces sont gérés et comptabilisés comme des caractères à part entière, à la condition qu'il ne se suivent pas, auquel cas, la règle \LaTeX{}ienne prévaut et plusieurs espaces consécutifs n'en font qu'un seul;
\item aucun caractère spécial n'est accepté, c'est-à-dire que les 10 caractères suivants sont strictement interdits : \verb|&|, \verb|~|, \verb|\|, \verb|{|, \verb|}|, \verb|_|, \verb|#|, \verb|$|, \verb|^| et \verb|%|.
\end{itemize}\medskip
@@ -170,7 +174,7 @@ Les macros de ce package ne sont pas purement développables et ne peuvent donc
\qquad pas plus que\par
\hspace{0.2\linewidth}\verb|\commandeA{\commandeB{\commandeC{argument}}}|\smallskip
-C'est pour cela que les macros renvoyant un résultat, c'est-à-dire toutes sauf les tests, sont dotées d'un argument optionnel venant en dernière position. Cet argument prend la forme de \arguC{nom}, où \argu{nom} est le nom d'une séquence de contrôle qui recevra (l'assignation se fait avec un \verb|\edef|) le résultat de la macro, ce qui fait que \verb|\|\argu{nom} est purement développable et peut donc se trouver dans l'argument d'un \verb|\edef|. Dans le cas de la présence d'un argument optionnel en dernière position, aucun affichage n'aura lieu. Cet argument optionnel, évidemment, n'est pas développé contrairement aux autres arguments. Il permet ainsi contourner les limitations évoquées dans les exemples ci dessus.\medskip
+C'est pour cela que les macros renvoyant un résultat, c'est-à-dire toutes sauf les tests et \verb|\StrSplit|, sont dotées d'un argument optionnel venant en dernière position. Cet argument prend la forme de \arguC{nom}, où \argu{nom} est le nom d'une séquence de contrôle qui recevra (l'assignation se fait avec un \verb|\edef|) le résultat de la macro, ce qui fait que \verb|\|\argu{nom} est purement développable et peut donc se trouver dans l'argument d'un \verb|\edef|. Dans le cas de la présence d'un argument optionnel en dernière position, aucun affichage n'aura lieu. Cet argument optionnel, évidemment, n'est pas développé contrairement aux autres arguments. Il permet ainsi contourner les limitations évoquées dans les exemples ci dessus.\medskip
Ainsi cette construction non permise :\par
\hspace{0.2\linewidth}\verb|\edef\Resultat{\commande{arguments}}|\par
@@ -184,6 +188,15 @@ Et cet autre construction non permise :\par
\hspace{0.2\linewidth}\verb|\commandeB{\MaChaine}[\MaChaine]|\par
\hspace{0.2\linewidth}\verb|\commandeA{\MaChaine}|\par
+\subsubsection{Catcodes des arguments}\label{catcodesarguments}
+Les macros présentées ici tiennent compte des catcodes des caractères constituant les chaînes de caractères. Il faut donc garder à l'esprit particulièrement lors des tests, que les caractères \emph{et leurs catcodes} sont examinés.\medskip
+
+Par exemple, ces 2 arguments textuels :\par\smallskip
+\hfil\verb|{\string a\string b}|\qquad et\qquad\verb|{ab}|\hfil{}\par\smallskip
+ne se développent pas en 2 arguments égaux au yeux de xstring. Dans le premier cas, à cause de l'emploi de la primitive \verb|\string|, les caractères \og\verb|ab|\fg{} ont un catcode de 12 alors que dans l'autre cas, ils ont leurs catcodes naturels de 11. Il convient donc d'être conscient de ces subtilités lorsque l'on emploie des primitives dont les résultats sont des chaînes de caractères ayant des catcodes de 12 et 10 comme \verb|\string|, \verb|\detokenize|, \verb|\meaning|, \verb|\jobname|, \verb|\fontname|, \verb|\romannumeral|, etc.\medskip
+
+Pour demander aux macros de ne pas tenir compte des catcodes, on peut utiliser les macros étoilées. Celles-ci convertissent tous leurs aguments textuels en chaines de caractères dont les catcodes sont 12 (et 10 pour l'espace) avant que la macro non étoilée travaille sur ces arguments ainsi modifiés. De plus amples explications ainsi que des exemples peuvent être consultés au chapitre sur les macros étoilées, page~\pageref{macrosetoilees}.
+
\section{Les macros}
\label{listemacros}
\subsection{Présentation des macros}
@@ -198,7 +211,7 @@ Dans ce chapitre, la totalité des macros est présentée selon ce plan :\smalls
\subsection{Les tests}
\subsubsection{IfSubStr}
-\verb|\IfSubStr|\arguC{nombre}\ARGU{chaine}\ARGU{chaineA}\ARGU{vrai}\ARGU{faux}
+\verb|\IfSubStr|\etoile\arguC{nombre}\ARGU{chaine}\ARGU{chaineA}\ARGU{vrai}\ARGU{faux}
\smallskip
L'argument optionnel \argu{nombre} vaut 1 par défaut.\par
@@ -220,7 +233,7 @@ Teste si \argu{chaine} contient au moins \argu{nombre} fois \argu{chaineA} et ex
\exemple|\IfSubStr[4]{1a2a3a}{a}{vrai}{faux}|
\subsubsection{IfSubStrBefore}
-\verb|\IfSubStrBefore|\arguCC{nombre1}{nombre2}\ARGU{chaine}\ARGU{chaineA}\ARGU{chaineB}\ARGU{vrai}\ARGU{faux}
+\verb|\IfSubStrBefore|\etoile\arguCC{nombre1}{nombre2}\ARGU{chaine}\ARGU{chaineA}\ARGU{chaineB}\ARGU{vrai}\ARGU{faux}
\smallskip
Les arguments optionnels \argu{nombre1} et \argu{nombre2} valent 1 par défaut.\par\smallskip
@@ -244,7 +257,7 @@ Dans \argu{chaine}, la macro teste si l'occurrence \no\argu{nombre1} de \argu{ch
\exemple|\IfSubStrBefore[2,3]{baobab}{a}{b}{vrai}{faux}|
\subsubsection{IfSubStrBehind}
-\verb|\IfSubStrBehind|\arguCC{nombre1}{nombre2}\ARGU{chaine}\ARGU{chaineA}\ARGU{chaineB}\ARGU{vrai}\ARGU{faux}
+\verb|\IfSubStrBehind|\etoile\arguCC{nombre1}{nombre2}\ARGU{chaine}\ARGU{chaineA}\ARGU{chaineB}\ARGU{vrai}\ARGU{faux}
\smallskip
Les arguments optionnels \argu{nombre1} et \argu{nombre2} valent 1 par défaut.\par\smallskip
@@ -269,7 +282,7 @@ Dans \argu{chaine}, la macro teste si l'occurrence \no\argu{nombre1} de \argu{ch
\subsubsection{IfBeginWith}
-\verb|\IfBeginWith|\ARGU{chaine}\ARGU{chaineA}\ARGU{vrai}\ARGU{faux}
+\verb|\IfBeginWith|\etoile\ARGU{chaine}\ARGU{chaineA}\ARGU{vrai}\ARGU{faux}
\smallskip
Teste si \argu{chaine} commence par \argu{chaineA}, et exécute \argu{vrai} dans l'affirmative, et \argu{faux} dans le cas contraire.\medskip
@@ -285,7 +298,7 @@ Teste si \argu{chaine} commence par \argu{chaineA}, et exécute \argu{vrai} dans
\subsubsection{IfEndWith}
-\verb|\IfEndWith|\ARGU{chaine}\ARGU{chaineA}\ARGU{vrai}\ARGU{faux}
+\verb|\IfEndWith|\etoile\ARGU{chaine}\ARGU{chaineA}\ARGU{vrai}\ARGU{faux}
\smallskip
Teste si \argu{chaine} se termine par \argu{chaineA}, et exécute \argu{vrai} dans l'affirmative, et \argu{faux} dans le cas contraire.\medskip
@@ -301,7 +314,7 @@ Teste si \argu{chaine} se termine par \argu{chaineA}, et exécute \argu{vrai} da
\subsubsection{IfInteger}
-\verb|\IfInteger|\ARGU{nombre}\ARGU{vrai}\ARGU{faux}
+\verb|\IfInteger|\etoile\ARGU{nombre}\ARGU{vrai}\ARGU{faux}
\smallskip
Teste si \argu{nombre} est un nombre entier relatif, et exécute \argu{vrai} dans l'affirmative, et \argu{faux} dans le cas contraire.\smallskip
@@ -320,7 +333,7 @@ Si le test est faux pour cause de caractères non autorisés, la séquence de co
\subsubsection{IfDecimal}\label{ifdecimal}
-\verb|\IfInteger|\ARGU{nombre}\ARGU{vrai}\ARGU{faux}
+\verb|\IfDecimal|\etoile\ARGU{nombre}\ARGU{vrai}\ARGU{faux}
\smallskip
Teste si \argu{nombre} est un nombre décimal, et exécute \argu{vrai} dans l'affirmative, et \argu{faux} dans le cas contraire.\smallskip
@@ -352,7 +365,7 @@ Si le test est faux pour cause de caractères non autorisés, la séquence de co
\subsubsection{IfStrEq}
-\verb|\IfStrEq|\ARGU{chaineA}\ARGU{chaineB}\ARGU{vrai}\ARGU{faux}
+\verb|\IfStrEq|\etoile\ARGU{chaineA}\ARGU{chaineB}\ARGU{vrai}\ARGU{faux}
\smallskip
Teste si les chaînes \argu{chaineA} et \argu{chaineB} sont égales, c'est-à-dire si elles contiennent successivement les mêmes caractères dans le même ordre. Exécute \argu{vrai} dans l'affirmative, et \argu{faux} dans le cas contraire.\smallskip
@@ -368,7 +381,7 @@ Teste si les chaînes \argu{chaineA} et \argu{chaineB} sont égales, c'est-à-di
\subsubsection{IfEq}
-\verb|\IfStrEq|\ARGU{chaineA}\ARGU{chaineB}\ARGU{vrai}\ARGU{faux}
+\verb|\IfEq|\etoile\ARGU{chaineA}\ARGU{chaineB}\ARGU{vrai}\ARGU{faux}
\smallskip
Teste si les chaînes \argu{chaineA} et \argu{chaineB} sont égales, \emph{sauf} si \argu{chaineA} et \argu{chaineB} contiennent des nombres, auquel cas la macro teste si les nombres sont égaux. Exécute \argu{vrai} dans l'affirmative, et \argu{faux} dans le cas contraire.\smallskip
@@ -377,7 +390,7 @@ Teste si les chaînes \argu{chaineA} et \argu{chaineB} sont égales, \emph{sauf}
\item La définition de \emph{nombre} est celle évoquée dans la macro \verb|IfDecimal| (voir page~\pageref{ifdecimal}), et donc :
\item Les signes \guill{+} sont facultatifs;
\item Le séparateur décimal peut être indifféremment la virgule ou le point;
- \item Il est possible d'évaluer des expressions algébriques en utilisant la primitive \verb|\numexpr| de $\varepsilon$-\TeX{}, en gardant à l'esprit qu'elle n'opère que sur des entiers et qu'elle arrondit les résultats non entiers à l'entier le plus proche; il vaut donc mieux l'éviter lorsque les résultats ne sont pas entiers.
+ \item Il est possible d'évaluer des expressions algébriques en utilisant la primitive \verb|\numexpr| de $\varepsilon$-\TeX{}, en gardant à l'esprit qu'elle ne donne que des résultats entiers et qu'elle arrondit les résultats non entiers à l'entier le plus proche.
\end{Conditions}
\exemple|\IfEq{a1b2c3}{a1b2c3}{vrai}{faux}|
@@ -394,9 +407,50 @@ Teste si les chaînes \argu{chaineA} et \argu{chaineB} sont égales, \emph{sauf}
\exemple|\IfEq{0}{-0.0}{vrai}{faux}|
\exemple|\IfEq{}{}{vrai}{faux}|
+\subsubsection{IfStrEqCase}
+
+\begin{minipage}{\textwidth}
+ \verb|\IfStrEqCase|\etoile\ARGU{chaine}\verb|{%|\par
+ \qquad\qquad\ARGU{chaine1}\ARGU{code1}\verb|%|\par
+ \qquad\qquad\ARGU{chaine2}\ARGU{code2}\verb|%|\par
+ \qquad\qquad\verb|etc...|\par
+ \qquad\qquad\ARGU{chaineN}\ARGU{codeN}\verb|}|\arguC{code alternatif}
+\end{minipage}
+\smallskip
+
+Teste successivement si \argu{chaine} est égale à \argu{chaine1}, \argu{chaine2}, etc. La comparaison se fait au sens de \verb|\IfStrEq| (voir paragraphes précédents). Si un test est positif, le code correspondant est exécuté et la macro se termine. Si tous les tests sont négatifs, le code optionnel \argu{code alternatif} est exécuté s'il est présent.\smallskip
+
+\exemple|\IfStrEqCase{b}{{a}{AA}{b}{BB}{c}{CC}}|
+\exemple*|\IfStrEqCase{abc}{{a}{AA}{b}{BB}{c}{CC}}|
+\exemple|\IfStrEqCase{c}{{a}{AA}{b}{BB}{c}{CC}}[autre]|
+\exemple|\IfStrEqCase{d}{{a}{AA}{b}{BB}{c}{CC}}[autre]|
+\exemple|\IfStrEqCase{+3}{{1}{un}{2}{deux}{3}{trois}}[autre]|
+\exemple|\IfStrEqCase{0.5}{{0}{zero}{.5}{moitié}{1}{un}}[autre]|
+
+\subsubsection{IfEqCase}
+
+\begin{minipage}{\textwidth}
+ \verb|\IfEqCase|\etoile\ARGU{chaine}\verb|{%|\par
+ \qquad\qquad\ARGU{chaine1}\ARGU{code1}\verb|%|\par
+ \qquad\qquad\ARGU{chaine2}\ARGU{code2}\verb|%|\par
+ \qquad\qquad\verb|etc...|\par
+ \qquad\qquad\ARGU{chaineN}\ARGU{codeN}\verb|}|\arguC{code alternatif}
+\end{minipage}
+\smallskip
+
+Teste successivement si \argu{chaine} est égale à \argu{chaine1}, \argu{chaine2}, etc. La comparaison se fait au sens de \verb|\IfEq| (voir paragraphes précédents). Si un test est positif, le code correspondant est exécuté et la macro se termine. Si tous les tests sont négatifs, le code optionnel \argu{code alternatif} est exécuté s'il est présent.\smallskip
+
+\exemple|\IfEqCase{b}{{a}{AA}{b}{BB}{c}{CC}}|
+\exemple*|\IfEqCase{abc}{{a}{AA}{b}{BB}{c}{CC}}|
+\exemple|\IfEqCase{c}{{a}{AA}{b}{BB}{c}{CC}}[autre]|
+\exemple|\IfEqCase{d}{{a}{AA}{b}{BB}{c}{CC}}[autre]|
+\exemple|\IfEqCase{+3}{{1}{un}{2}{deux}{3}{trois}}[autre]|
+\exemple|\IfEqCase{0.5}{{0}{zero}{.5}{moitié}{1}{un}}[autre]|
+
\subsection{Les macros renvoyant une chaîne}
+
\subsubsection{StrBefore}
-\verb|\StrBefore|\arguC{nombre}\ARGU{chaine}\ARGU{chaineA}\arguC{nom}
+\verb|\StrBefore|\etoile\arguC{nombre}\ARGU{chaine}\ARGU{chaineA}\arguC{nom}
\smallskip
L'argument optionnel \argu{nombre} vaut 1 par défaut.\par\smallskip
@@ -419,7 +473,7 @@ Dans \argu{chaine}, renvoie ce qui se trouve avant l'occurrence \no\argu{nombre}
\exemple*|\StrBefore[2]{1b2b3}{b}|
\subsubsection{StrBehind}
-\verb|\StrBehind|\arguC{nombre}\ARGU{chaine}\ARGU{chaineA}\arguC{nom}
+\verb|\StrBehind|\etoile\arguC{nombre}\ARGU{chaine}\ARGU{chaineA}\arguC{nom}
\smallskip
L'argument optionnel \argu{nombre} vaut 1 par défaut.\par\smallskip
@@ -443,7 +497,7 @@ Dans \argu{chaine}, renvoie ce qui se trouve après l'occurrence \no\argu{nombre
\exemple*|\StrBehind[3]{1b2b3}{b}|
\subsubsection{StrBetween}
-\verb|\StrBetween|\arguCC{nombre1}{nombre2}\ARGU{chaine}\ARGU{chaineA}\ARGU{chaineB}\arguC{nom}
+\verb|\StrBetween|\etoile\arguCC{nombre1}{nombre2}\ARGU{chaine}\ARGU{chaineA}\ARGU{chaineB}\arguC{nom}
\smallskip
Les arguments optionnels \argu{nombre1} et \argu{nombre2} valent 1 par défaut.\par\smallskip
@@ -469,7 +523,7 @@ Dans \argu{chaine}, renvoie ce qui se trouve entre\footnote{Au sens strict, c'es
\exemple*|\StrBetween[3,2]{abracadabra}{a}{bra}|
\subsubsection{StrSubstitute}
-\verb|\StrSubstitute|\arguC{nombre}\ARGU{chaine}\ARGU{chaineA}\ARGU{chaineB}\arguC{nom}
+\verb|\StrSubstitute|\etoile\arguC{nombre}\ARGU{chaine}\ARGU{chaineA}\ARGU{chaineB}\arguC{nom}
\smallskip
L'argument optionnel \argu{nombre} vaut 0 par défaut.\par\smallskip
@@ -496,7 +550,7 @@ Dans \argu{chaine}, la macro remplace les \argu{nombre} premières occurrences d
\exemple|\StrSubstitute[4]{a1a2a3}{a}{B}|
\subsubsection{StrDel}
-\verb|\StrDel|\arguC{nombre}\ARGU{chaine}\ARGU{chaineA}\arguC{nom}
+\verb|\StrDel|\etoile\arguC{nombre}\ARGU{chaine}\ARGU{chaineA}\arguC{nom}
\smallskip
L'argument optionnel \argu{nombre} vaut 0 par défaut.\par\smallskip
@@ -517,9 +571,30 @@ Supprime les \argu{nombre} premières occurrences de \argu{chaineA} dans \argu{c
\exemple|\StrDel{a bc def }{ }|
\exemple*|\StrDel{a bc def }{def}|
+\subsubsection{StrSplit}
+\verb|\StrSplit|\etoile\ARGU{chaine}\ARGU{nombre}\ARGU{chaineA}\ARGU{chaineB}
+\smallskip
+
+La \argu{chaine}, est coupée en deux chaînes après le caractère se situant à la position \argu{nombre}. La partie gauche est assigné à la séquence de contrôle \argu{csA} et la partie droite à \argu{csB}.\par
+Cette macro renvoie \emph{deux chaînes} et donc \textbf{n'affiche rien}. Par conséquent, elle ne dispose pas de l'argument optionnel en dernière position.\medskip
+
+\begin{Conditions}
+ \item Si \argu{nombre}${}\leqslant0$, \argu{csA} sera vide et \argu{csB} contiendra la totalité de \argu{chaine};
+ \item Si \argu{nombre}${}\geqslant$\argu{longueurChaine}, \argu{csA} contiendra la totalité de \argu{chaine} et \argu{csB} sera vide;
+ \item Si \argu{chaine} est vide \argu{csA} et \argu{csB} seront vides, quelque soit l'entier \argu{nombre}.
+\end{Conditions}
+
+\setverbdelim{=}
+\exemple=\StrSplit{abcdef}{4}{\aa}{\bb}résultats : |\aa| et |\bb|=
+\exemple=\StrSplit{a b c }{2}{\aa}{\bb}résultats : |\aa| et |\bb|=
+\exemple=\StrSplit{abcdef}{1}{\aa}{\bb}résultats : |\aa| et |\bb|=
+\exemple=\StrSplit{abcdef}{5}{\aa}{\bb}résultats : |\aa| et |\bb|=
+\exemple=\StrSplit{abcdef}{9}{\aa}{\bb}résultats : |\aa| et |\bb|=
+\exemple=\StrSplit{abcdef}{-3}{\aa}{\bb}résultats : |\aa| et |\bb|=
+\setverbdelim{|}
\subsubsection{StrGobbleLeft}
-\verb|\StrGobbleLeft|\ARGU{chaine}\ARGU{nombre}\arguC{nom}
+\verb|\StrGobbleLeft|\etoile\ARGU{chaine}\ARGU{nombre}\arguC{nom}
\smallskip
Dans \argu{chaine}, enlève les \argu{nombre} premiers caractères de gauche.\medskip
@@ -537,7 +612,7 @@ Dans \argu{chaine}, enlève les \argu{nombre} premiers caractères de gauche.\me
\exemple*|\StrGobbleLeft{a bc def }{4}|
\subsubsection{StrLeft}
-\verb|\StrLeft|\ARGU{chaine}\ARGU{nombre}\arguC{nom}
+\verb|\StrLeft|\etoile\ARGU{chaine}\ARGU{nombre}\arguC{nom}
\smallskip
Dans \argu{chaine}, renvoie la sous-chaîne de gauche de longueur \argu{nombre}.\medskip
@@ -555,7 +630,7 @@ Dans \argu{chaine}, renvoie la sous-chaîne de gauche de longueur \argu{nombre}.
\exemple*|\StrLeft{a bc def }{5}|
\subsubsection{StrGobbleRight}
-\verb|\StrGobbleRight|\ARGU{chaine}\ARGU{nombre}\arguC{nom}
+\verb|\StrGobbleRight|\etoile\ARGU{chaine}\ARGU{nombre}\arguC{nom}
\smallskip
Agit comme \verb|\StrGobbleLeft|, mais enlève les caractères à droite de \argu{chaine}.
@@ -567,7 +642,7 @@ Agit comme \verb|\StrGobbleLeft|, mais enlève les caractères à droite de \arg
\exemple*|\StrGobbleRight{a bc def }{4}|
\subsubsection{StrRight}
-\verb|\StrRight|\ARGU{chaine}\ARGU{nombre}\arguC{nom}
+\verb|\StrRight|\etoile\ARGU{chaine}\ARGU{nombre}\arguC{nom}
\smallskip
Agit comme \verb|\StrLeft|, mais renvoie les caractères à la droite de \argu{chaine}.
@@ -579,7 +654,7 @@ Agit comme \verb|\StrLeft|, mais renvoie les caractères à la droite de \argu{c
\exemple*|\StrRight{a bc def }{5}|
\subsubsection{StrChar}
-\verb|\StrChar|\ARGU{chaine}\ARGU{nombre}\arguC{nom}
+\verb|\StrChar|\etoile\ARGU{chaine}\ARGU{nombre}\arguC{nom}
\smallskip
Renvoie le caractère à la position \argu{nombre} dans la chaîne \argu{chaine}.\medskip
@@ -595,7 +670,7 @@ Renvoie le caractère à la position \argu{nombre} dans la chaîne \argu{chaine}
\exemple|\StrChar{a bc def }{6}|
\subsubsection{StrMid}
-\verb|\StrMid|\ARGU{chaine}\ARGU{nombreA}\ARGU{nombreB}\arguC{nom}
+\verb|\StrMid|\etoile\ARGU{chaine}\ARGU{nombreA}\ARGU{nombreB}\arguC{nom}
\smallskip
Dans \argu{chaine}, renvoie la sous chaîne se trouvant entre\footnote{Au sens large, c'est-à-dire que les chaînes \guill{frontière} sont renvoyés.} les positions \argu{nombreA} et \argu{nombreB}.\medskip
@@ -619,7 +694,7 @@ Dans \argu{chaine}, renvoie la sous chaîne se trouvant entre\footnote{Au sens l
\subsection{Les macros renvoyant des nombres}
\subsubsection{StrLen}
-\verb|\StrLen|\ARGU{chaine}\arguC{nom}
+\verb|\StrLen|\etoile\ARGU{chaine}\arguC{nom}
\smallskip
Renvoie la longueur de \argu{chaine}.
@@ -629,7 +704,7 @@ Renvoie la longueur de \argu{chaine}.
\exemple|\StrLen{a bc def }|
\subsubsection{StrCount}
-\verb|\StrCount|\ARGU{chaine}\ARGU{chaineA}\arguC{nom}
+\verb|\StrCount|\etoile\ARGU{chaine}\ARGU{chaineA}\arguC{nom}
\smallskip
Compte combien de fois \argu{chaineA} est contenue dans \argu{chaine}.\par\medskip
@@ -644,7 +719,7 @@ Compte combien de fois \argu{chaineA} est contenue dans \argu{chaine}.\par\medsk
\exemple|\StrCount{aaaaaa}{aa}|
\subsubsection{StrPosition}
-\verb|\StrPosition|\arguC{nombre}\ARGU{chaine}\ARGU{chaineA}\arguC{nom}
+\verb|\StrPosition|\etoile\arguC{nombre}\ARGU{chaine}\ARGU{chaineA}\arguC{nom}
\smallskip
L'argument optionnel \argu{nombre} vaut 1 par défaut.\par\smallskip
@@ -665,6 +740,46 @@ Dans \argu{chaine}, renvoie la position de l'occurrence \no\argu{nombre} de \arg
\exemple|\StrPosition{a bc def }{d}|
\exemple|\StrPosition[3]{aaaaaa}{aa}|
+\subsubsection{StrCompare}
+\verb|\StrCompare|\etoile\ARGU{chaineA}\ARGU{chaineB}\arguC{nom}
+\smallskip
+
+Cette macro peut fonctionner avec 2 tolérances : la tolérance \guill{normale} sélectionnée par défaut, et la tolérance \guill{stricte}.\medskip
+
+\begin{itemize}
+ \item La tolérance normale, activée par la commande \verb|\comparenormal|.\par
+ La macro compare successivement les caractères de gauche à droite des chaînes \argu{chaineA} et \argu{chaineB} jusqu'à ce qu'une différence apparaîsse ou que la fin de la plus courte chaîne soit atteinte. Si aucune différence n'est trouvée, la macro renvoie 0. Sinon, la position de la 1\iere{} différence est renvoyée.
+ \item La tolérance stricte, activée par la commande \verb|\comparestrict|.\par
+ La macro compare les 2 chaînes. Si elles sont égales, elle renvoie 0 sinon la position de la 1\iere{} différence est renvoyée.
+\end{itemize}
+\smallskip
+
+L'ordre des 2 chaînes n'a aucune influence sur le comportement de la macro.\medskip
+
+Exemples en tolérance normale :\par\comparenormal
+\exemple|\StrCompare{abcd}{abcd}|
+\exemple|\StrCompare{abcd}{abc}|
+\exemple|\StrCompare{abc}{abcd}|
+\exemple|\StrCompare{éùçà}{éùçà}|
+\exemple|\StrCompare{a b c}{abc}|
+\exemple|\StrCompare{aaa}{baaa}|
+\exemple|\StrCompare{abc}{xyz}|
+\exemple|\StrCompare{123456}{123457}|
+\exemple|\StrCompare{abc}{}|
+\medskip
+
+Exemples en tolérance stricte :\par\comparestrict
+\exemple|\StrCompare{abcd}{abcd}|
+\exemple|\StrCompare{abcd}{abc}|
+\exemple|\StrCompare{abc}{abcd}|
+\exemple|\StrCompare{éùçà}{éùçà}|
+\exemple|\StrCompare{a b c}{abc}|
+\exemple|\StrCompare{aaa}{baaa}|
+\exemple|\StrCompare{abc}{xyz}|
+\exemple|\StrCompare{123456}{123457}|
+\exemple|\StrCompare{abc}{}|
+\comparenormal
+
\section{Utilisation des macros à des fins de programmation}
\label{programmation}
\subsection{Verbatimiser vers une séquence de contrôle}
@@ -846,7 +961,7 @@ De plus, et c'est aussi le sens du message d'avertissement généré par la vers
Enfin, lors de l'utilisation de \verb|\scancs|, une espace est insérée après chaque séquence de contrôle. En effet, la primitive \verb|\detokenize| de $\varepsilon$-\TeX{} qui a été utilisée ici, insère une espace apès chaque séquence de contrôle. Il n'y a pas moyen de l'éviter.\medskip
-\subsubsection{exemples}
+\subsubsection{Exemples}
Dans l'exemple suivant, les séquences de contrôle subissent un 2-développement. \verb|\d| donne donc \verb|\b|, et \verb|\b| donne \verb|\textbf{a}\textit{b}|, et on constate bien qu'une espace est insérée après chaque séquence de contrôle. \par\medskip
\begin{minipage}[r]{0.6\linewidth}
\hfill
@@ -996,51 +1111,44 @@ Dans l'exemple artificiel\footnote{On peut agir beaucoup plus simplement en util
\bracearg{\a}
\end{minipage}
-\subsection{Macros étoilées}
-Comme \verb|\scancs| donne du \texte{10,12}\voirdeftexte, cela pose des problèmes pour les macros listées au chapitre~\ref{listemacros}, car elles tiennent compte du catcode des caractères de leurs arguments textuels.\medskip
+\subsection{Macros étoilées}\label{macrosetoilees}
+Les macros manipulant les chaînes de caractères prennent en compte les catcodes des caractères. Pour s'affranchir d'éventuelles différences entre les catcodes des arguments et éviter des résultats inattendus, toutes ces macros disposent de version étoilées. Les versions étoilées convertissent tous les arguments textuels en chaîne de caractètres dont les catcodes sont 12, et 10 pour l'espace. Ces arguments ainsi modifiés sont transmis aux macros non étoilées.\medskip
-Voici un exemple :\par\medskip
+Voici un exemple :\par\smallskip
\begin{minipage}[r]{0.6\linewidth}
\hfill
\begin{boxedverbatim}
- \verbtocs{\mytext}|a b c|
- \IfSubStr{\mytext}{b}{vrai}{faux}
- \par
- \edef\onecs{x y z}
- \scancs[1]\mycs\onecs
- \IfSubStr{\mycs}{y}{vrai}{faux}
+ \IfStrEq{\string a\string b}{ab}{vrai}{faux}\par
+ \IfStrEq*{\string a\string b}{ab}{vrai}{faux}
\end{boxedverbatim}
\hspace{0.3cm}
\end{minipage}%
\begin{minipage}[r]{0.3\linewidth}
- \verbtocs{\mytext}|a b c|
- \IfSubStr{\mytext}{b}{vrai}{faux}
- \par
- \edef\onecs{x y z}
- \scancs[1]\mycs\onecs
- \IfSubStr{\mycs}{y}{vrai}{faux}
-\end{minipage}
-\medskip
+ \IfStrEq{\string a\string b}{ab}{vrai}{faux}\par
+ \IfStrEq*{\string a\string b}{ab}{vrai}{faux}
+\end{minipage}\smallskip
-Le premier test renvoie vrai puisque la macro \verb|\verbtocs| ne modifie pas les catcodes des caractères non spéciaux : ainsi, \verb|\mytext| se développe en \og{}\verb|a|${}_{11}$\ \verb*| |${}_{10}$\ \verb|b|${}_{11}$\ \verb*| |${}_{10}$\ \verb|c|${}_{11}$\fg{} qui contient bien le deuxième argument qui est \og{}\verb|b|${}_{11}$\fg{}.\medskip
+Dans l'exemple ci-dessus, le premier argument contient \verb|{ab}| où, à cause de \verb|\string|, les 2 caractères ont un catcode de 12. Le deuxième argument est \verb|{ab}| où les caractères ont leurs catcodes naturels de 11. Les chaînes n'étant pas égales à cause des catcodes, le test est donc \emph{négatif} dans la version non étoilée.\medskip
-Pour le second test, puisque \verb|\scancs| donne du \texte{10,12}, il renvoit faux puisque \verb|\mycs| se développe en\newline\og{}\verb|x|${}_{12}$\ \verb*| |${}_{10}$\ \verb|y|${}_{12}$\ \verb*| |${}_{10}$\ \verb|z|${}_{12}$\fg{} qui ne contient pas le deuxième argument qui est \og{}\verb|y|${}_{11}$\fg{}.\bigskip
-
-Pour éviter ce désagrément dû à cette différence de catcodes, et les rendre \guill{compatibles} avec \verb|\scancs|, les macros présentées au chapitre \ref{listemacros} ont toutes une version étoilée qui converti le contenu des arguments textuels en caractères dont les catcodes sont 12 uniquement, ou 10 pour les espaces :\par\medskip
+Voici un autre exemple :\par\smallskip
\begin{minipage}[r]{0.6\linewidth}
\hfill
\begin{boxedverbatim}
- \edef\onecs{x y z}
- \scancs[1]\mycs\onecs
- \IfSubStr*{\mycs}{y}{vrai}{faux}
+ \scancs[0]\montexte{abc}
+ \StrPosition{\montexte}{b}\par
+ \StrPosition*{\montexte}{b}\par
\end{boxedverbatim}
\hspace{0.3cm}
\end{minipage}%
\begin{minipage}[r]{0.3\linewidth}
- \edef\onecs{x y z}
- \scancs[1]\mycs\onecs
- \IfSubStr*{\mycs}{y}{vrai}{faux}
-\end{minipage}
+ \scancs[0]\montexte{abc}
+ \StrPosition{\montexte}{b}\par
+ \StrPosition*{\montexte}{b}\par
+\end{minipage}\medskip
+
+La séquence de contrôle \verb|\montexte| contient \verb|{abc}| dont les catcodes valent 12 puisque \verb|\scancs| renvoie des chaînes de caractères de catcodes 12 et 10. La version non étoilée renvoie 0 ce qui signifie qu'elle considère que le caractère \og{}\verb|b|${}_{11}$\fg{} n'est pas contenu dans \og{}\verb|a|${}_{12}$\verb|b|${}_{12}$\verb|c|${}_{12}$\fg{}.\bigskip
+
+Pour les macros renvoyant une chaîne, si on emploie les versions étoilées, le résultat sera une chaîne de caractères dont les catcodes sont 12, et 10 pour l'espace. Ainsi après un \og\verb|\StrBefore*{a b c d}{c}[\montexte]|\fg{}, la séquence de contrôle \verb|\montexte| se développera en \og{}\verb|a|${}_{12}$\verb*| |${}_{10}$\verb|b|${}_{12}$\verb*| |${}_{10}$\fg{}.
\subsection{Exemples d'utilisation en programmation}
\label{exemples}
@@ -1206,11 +1314,12 @@ Soit une séquence de contrôle \verb|\myCS| définie par un \verb|\def| contena
\ifnum\nbgroup<#1% si c'est pas le bon groupe
\StrBehind{\chaine}{\group}[\chaine]%
\occurr=0% on initialise \chaine et \occur
- \findthegroup% et on recommence
+ \expandafter\expandafter\expandafter
+ \findthegroup\expandafter% et on recommence
\fi
\else% accolades non équilibrées ?
% cherche accolade fermante suivante
- \findthegroup
+ \expandafter\findthegroup
\fi}
\findthegroup
\group}
@@ -1242,11 +1351,12 @@ Soit une séquence de contrôle \verb|\myCS| définie par un \verb|\def| contena
\ifnum\nbgroup<#1% si c'est pas le bon groupe
\StrBehind{\chaine}{\group}[\chaine]%
\occurr=0% on initialise \chaine et \occur
- \findthegroup% et on recommence
+ \expandafter\expandafter\expandafter
+ \findthegroup\expandafter% et on recommence
\fi
\else% accolades non équilibrées ?
% cherche accolade fermante suivante
- \findthegroup
+ \expandafter\findthegroup
\fi}
\findthegroup
\group}
@@ -1260,14 +1370,13 @@ Soit une séquence de contrôle \verb|\myCS| définie par un \verb|\def| contena
\end{minipage}
\medskip
-On peut observer qu'il faut deux compteurs, deux tests et une double récursivité pour trouver le bon groupe : un de chaque pour compter quelle accolade fermante va délimiter le groupe en cours, et l'autre pour compter quel groupe est examiné.\bigskip\bigskip
+On peut observer qu'il faut deux compteurs, deux tests et une double récursivité pour trouver le bon groupe : un de chaque pour compter quelle accolade fermante va délimiter le groupe en cours, et l'autre pour compter quel groupe est examiné.\vspace{10pt}
\begin{center}
-$\star$
-
+$\star$\par
$\star$\quad$\star$
\end{center}
-\bigskip\bigskip
+\vspace{10pt}
C'est tout, j'espère que ce package vous sera utile !\par
Merci de me signaler par email tout bug ou toute proposition d'amélioration\ldots\medskip
diff --git a/Master/texmf-dist/tex/latex/xstring/xstring.sty b/Master/texmf-dist/tex/latex/xstring/xstring.sty
index 62acadb45df..9dc5a187f7c 100644
--- a/Master/texmf-dist/tex/latex/xstring/xstring.sty
+++ b/Master/texmf-dist/tex/latex/xstring/xstring.sty
@@ -1,3 +1,3 @@
-\ProvidesPackage{xstring}
\input xstring.tex
+\ProvidesPackage{xstring}[\xstringdate\space\space v\xstringversion\space\space String manipulations (C Tellechea)]
\endinput \ No newline at end of file
diff --git a/Master/texmf-dist/tex/latex/xstring/xstring.tex b/Master/texmf-dist/tex/latex/xstring/xstring.tex
index cfad44ca2fc..27ab19f1b6c 100644
--- a/Master/texmf-dist/tex/latex/xstring/xstring.tex
+++ b/Master/texmf-dist/tex/latex/xstring/xstring.tex
@@ -1,9 +1,9 @@
% __________________________________________________
% | |
% | |
-% | xstring v1.2 |
+% | xstring v1.3 |
% | |
-% | August 23 2008 |
+% | September 21 2008 |
% | |
% |__________________________________________________|
%
@@ -35,19 +35,18 @@
% test_latex.tex, test_latex.pdf (test file with LaTeX)
% test_etex.tex, test_etex.pdf (test file with Plain eTeX)
%
-\def\xstringversion {1.2}
-\def\xstringdate {2008/08/23}
-\def\xstringfrenchdate {23 ao\^ut 2008}
-\def\xstringenglishdate{August $23^{\mathrm{th}}$ 2008}
+\def\xstringversion {1.3}
+\def\xstringdate {2008/09/21}
+\def\xstringfrenchdate {21 septembre 2008}
+\def\xstringenglishdate{September $21^{\mathrm{st}}$ 2008}
\edef\CurrentAtCatcode{\the\catcode`\@}
\catcode`\@=11
\newwrite\@xs@unused% pour les messages
\newcount\integerpart% pour les tests sur les nombres
\newcount\decimalpart
-\immediate\write\@xs@unused{Package: xstring v\xstringversion\space<\xstringdate>\space Extended macros for strings (C Tellechea).}%
-
\expandafter\ifx\csname @latexerr\endcsname\relax% on n'utilise pas LaTeX ?
+ \immediate\write\m@ne{Package: xstring \xstringdate\space\space v\xstringversion\space\space String manipulations (C Tellechea)}%
\long\def\@firstoftwo#1#2{#1}
\long\def\@secondoftwo#1#2{#2}
\long\def\@ifnextchar#1#2#3{%
@@ -129,12 +128,16 @@
\@xs@MakeVerb}
% A l'aide d'un pont d'\expandafter, développe d'un niveau toutes
-% les sc de #1 puis et assigne le résultat à \@xs@result@expandallonelevel
+% les lexèmes de #1 puis et assigne le résultat à \@xs@result@expandallonelevel
\def\@xs@expandallonelevel#1#2\@nil{%
\expandafter\expandafter\expandafter\def% plein d'expandafter
\expandafter\expandafter\expandafter\@xs@result@expandallonelevel% pour développer #1 d'un niveau
\expandafter\expandafter\expandafter{\expandafter\@xs@result@expandallonelevel#1}% et l'ajouter à \@xs@result@expandallonelevel
- \ifx\@empty#2\@empty\else\@xs@expandallonelevel#2\@nil\fi}% s'il reste des sc, on boucle
+ \ifx\@empty#2\@empty
+ \else
+ \def\@xs@next{\@xs@expandallonelevel#2\@nil}%
+ \expandafter\@xs@next
+ \fi}% s'il reste des sc, on boucle
\def\@xs@notestcs#1\@nil{\relax}%
\def\@xs@testcs#1#2\@nil{%
@@ -159,16 +162,17 @@
% #1 : profondeur à développer avant de verbatimiser
% #2 : nom de la sc recevant la chaine verb
% #3 : nom de la sc à développer et à transformer en verb
- \def\@xs@expandalltodepth##1\@nil##2\@nil{% développe de #1 niveaux toutes les sc de #3 et l'assigne à \@xs@result@scancs
+ \def\@xs@expandalltodepth##1\@nil{% développe de #1 niveaux toutes les sc de #3 et l'assigne à \@xs@result@scancs
\def\@xs@result@expandallonelevel{}%
- \ifnum\numexpr##2<#1% tant que la profondeur de développement n'est pas atteinte
- \@xs@testornot##1\@nil% on teste éventuellement si le développement comporte 1 seule sc
+ \ifnum##1<#1\relax% tant que la profondeur de développement n'est pas atteinte
+ \expandafter\@xs@testornot\@xs@result@scancs\@nil% on teste éventuellement si le développement comporte 1 seule sc
\expandafter\@xs@expandallonelevel\@xs@result@scancs\@nil% on développe tout d'un niveau
\expandafter\def\expandafter\@xs@result@scancs\expandafter{\@xs@result@expandallonelevel}%
- \expandafter\@xs@expandalltodepth\@xs@result@scancs\@nil##2+1\@nil% et on recommence
+ \def\@xs@next{\expandafter\@xs@expandalltodepth\number\numexpr##1+1\relax\@nil}%
+ \expandafter\@xs@next% et on recommence
\fi}%
\def\@xs@result@scancs{#3}%
- \@xs@expandalltodepth#3\@nil0\@nil
+ \@xs@expandalltodepth0\@nil
\expandafter\def\expandafter#2\expandafter{\detokenize\expandafter{\@xs@result@scancs}}}
% Cette macro développe #2 au maximum (ce qui doit donner du texte),
@@ -241,9 +245,12 @@
\def\@xs@expand@and@addtomacro#1#2{\edef#1{\unexpanded\expandafter{#1}#2}}
\def\@xs@argstring{0########1########2########3########4########5########6########7########8########9}
+% \@xs@DefArg{3} met dans la sc \@xs@myarg le texte "####1####2####3"
\def\@xs@DefArg#1{\def\@xs@defarg0##1#1##2\@nil{\def\@xs@myarg{##1#1}}\expandafter\@xs@defarg\@xs@argstring\@nil}
+% \@xs@DefArg@{3} met dans la sc \@xs@myarg le texte "[####1]####2####3####4"
\def\@xs@DefArg@#1{\expandafter\@xs@defarg@\expandafter{\number\numexpr#1+1}}
\def\@xs@defarg@#1{\def\@xs@defarg0##11##2#1##3\@nil{\def\@xs@myarg{[##11]##2#1}}\expandafter\@xs@defarg\@xs@argstring\@nil}
+% \@xs@OneArg{3} met dans la sc \@xs@myarg le texte "####3"
\def\@xs@OneArg#1{\expandafter\@xs@onearg\expandafter{\number\numexpr#1-1}{#1}}
\def\@xs@onearg#1#2{\def\@xs@defarg##1#1##2#2##3\@nil{\def\@xs@myarg{##2#2}}\expandafter\@xs@defarg\@xs@argstring\@nil}
@@ -254,7 +261,10 @@
\expandafter\@xs@OneArg\expandafter{\number\numexpr##1+#1-1}%
\@xs@expand@and@addtomacro\@xs@newlines{\noexpand\@xs@assign{\expandafter\noexpand\csname @xs@arg@\romannumeral\numexpr##1\endcsname}{\@xs@myarg}}%
\@xs@expand@and@addtomacro\@xs@newargs{{\noexpand\@xs@expand\expandafter\noexpand\csname @xs@arg@\romannumeral\numexpr##1\endcsname}}%
- \ifnum\numexpr##1<#2\@xs@buildlines##1+1\@nil\fi}
+ \ifnum##1<#2
+ \def\@xs@next{\expandafter\@xs@buildlines\number\numexpr##1+1\relax\@nil}%
+ \expandafter\@xs@next
+ \fi}
\@xs@buildlines1\@nil}
\def\@xs@newmacro#1#2#3#4#5{%
@@ -263,10 +273,6 @@
% #3 : nombre d'arguments obligatoires
% #4 : utilisation de testopt (1 si oui, 0 si non)
% #5 : code de la macro
-% Cette macro construit les macros privées suivantes :
-% si #2 est vide : \NOM{\@ifstar{\let\@xs@assign\@xs@expand@and@detokenize\@xs@NOM@}{\let\@xs@assign\@xs@expand@and@assign\@xs@NOM@}}
-% si #2 existe : \NOM{\@ifstar{\let\@xs@assign\@xs@expand@and@detokenize\@xs@NOM@@}{\let\@xs@assign\@xs@expand@and@assign\@xs@NOM@@}}
-% \@xs@NOM@@{\@ifnextchar[{\@xs@NOM@}{\@xs@NOM@[#2]}}
\edef\@xs@macronameroot{@xs@\expandafter\@xs@gobblefirstchar\string#1\@nil}%
\edef\@macro@name{\expandafter\noexpand\csname\@xs@macronameroot @\ifx\@empty#2\@empty @\fi\endcsname}%
\edef\@xs@temp@{%
@@ -279,6 +285,10 @@
{\expandafter\noexpand\csname\@xs@macronameroot @@\endcsname}%
{\expandafter\noexpand\csname\@xs@macronameroot @@\endcsname[#2]}}%
\fi}%
+% Que fait \@xs@temp@ ? Il définit :
+% si #2 est vide : \NOM{\@ifstar{\let\@xs@assign\@xs@expand@and@detokenize\@xs@NOM@@}{\let\@xs@assign\@xs@expand@and@assign\@xs@NOM@@}}
+% si #2 existe : \NOM{\@ifstar{\let\@xs@assign\@xs@expand@and@detokenize\@xs@NOM@}{\let\@xs@assign\@xs@expand@and@assign\@xs@NOM@}}
+% \@xs@NOM@{\@ifnextchar[{\@xs@NOM@@}{\@xs@NOM@@[#2]}}
\@xs@temp@
\ifx\@empty#2\@empty
\@xs@BuildLines{1}{#3}%
@@ -293,8 +303,18 @@
\ifnum#4=\@ne\edef\@xs@temp@@@{\noexpand\noexpand\noexpand\@testopt{\unexpanded\expandafter{\@xs@temp@@@}}\unexpanded{{}}}\fi
\@xs@expand@and@addtomacro\@xs@temp@@{{\unexpanded\expandafter{\@xs@temp@@@}}\noexpand\@xs@call}%
\@xs@expand@and@addtomacro\@xs@temp@{{\unexpanded\expandafter{\@xs@temp@@}}}%
+% Que fait \@xs@temp@ ? Il définit par exemple pour 3 arguments obligatoires et 1 facultatif :
+% \def\@xs@NOM@@[##1]##2##3##4{%
+% \@xs@assign{\@xs@arg@i}{##2}%
+% \@xs@assign{\@xs@arg@ii}{##3}%
+% \@xs@assign{\@xs@arg@iii}{##4}%
+% si #4=0: \edef\@xs@call{\noexpand\@xs@NOM[\@xs@expand{##1}]{\@xs@expand\@xs@arg@i}{\@xs@expand\@xs@arg@ii}{\@xs@expand\@xs@arg@iii}}%
+% si #4=1: \edef\@xs@call{\noexpand\@testopt{\noexpand\@xs@NOM[\@xs@expand{##1}]{\@xs@expand\@xs@arg@i}{\@xs@expand\@xs@arg@ii}{\@xs@expand\@xs@arg@iii}}{}}%
+% \@xs@call}
\@xs@temp@
\edef\@xs@temp@{\def\expandafter\noexpand\csname\@xs@macronameroot\endcsname\@xs@myarg\ifnum#4=\@ne[\unexpanded{##}\number\numexpr\ifx\@empty#2\@empty#3+1\else#3+2\fi]\fi{\unexpanded{#5}}}%
+% Que fait \@xs@temp@ ? Il définit par exemple pour 3 arguments obligatoires et 1 facultatif :
+% \def \@xs@NOM[##1]##2##3##4[##5]{#5}
\@xs@temp@}
% Cette macro teste si une chaine (#2) en contient au moins (#1) fois une autre (#3)
@@ -303,7 +323,7 @@
% si elle existe,et contiennent des chaines vides sinon.
\def\@xs@strip@delimit#1\@delimit#2\@nil{#1}
\def\@xs@IfSubStr@case@false{%
- \def\@xs@result@IfSubStr{\expandafter\@secondoftwo}% on exécute #5
+ \let\@xs@result@If\@secondoftwo% on exécute #5
\def\@xs@behind@IfSubStr{}%
\def\@xs@before@IfSubStr{}}
\@xs@newmacro\IfSubStr{1}{2}{0}{%
@@ -317,56 +337,58 @@
\@xs@IfSubStr@case@false
\else
\def\@xs@before@IfSubStr{}%
- \def\@xs@IfSubStr@i##1#3##2\@nil##3\@nil{%
- \ifx\@empty##2\@empty% rien après la sous chaine ?
+ \def\@xs@IfSubStr@i##1\@nil##2#3##3\@nil{% ##1 est le compteur
+ \def\@xs@next{\relax}%
+ \ifx\@empty##3\@empty% rien après la sous chaine ?
\@xs@IfSubStr@case@false
\else% si ce qu'il est reste n'est pas vide
- \ifnum\numexpr##3<#1% tant que le nombre d'occurrence n'est pas atteint
- \edef\@xs@before@IfSubStr{\@xs@before@IfSubStr##1#3}%
- \@xs@IfSubStr@i##2\@nil##3+1\@nil% on recommence
+ \ifnum##1<#1% tant que le nombre d'occurrence n'est pas atteint
+ \edef\@xs@before@IfSubStr{\@xs@before@IfSubStr##2#3}% on ajoute la chaine restante à \@xs@before@IfSubStr
+ \def\@xs@next{\expandafter\@xs@IfSubStr@i\number\numexpr##1+1\relax\@nil##3\@nil}% on recommence après être sorti de \if...\fi
\else
- \def\@xs@result@IfSubStr{\expandafter\@firstoftwo}% nombre d'occurrences atteint : on renvoie #4
- \edef\@xs@before@IfSubStr{\@xs@before@IfSubStr##1}%
- \edef\@xs@behind@IfSubStr{\@xs@strip@delimit##2\@nil}%
+ \let\@xs@result@If\@firstoftwo% nombre d'occurrences atteint : on renvoie #4
+ \edef\@xs@before@IfSubStr{\@xs@before@IfSubStr##2}%
+ \edef\@xs@behind@IfSubStr{\@xs@strip@delimit##3\@nil}%
\fi
- \fi}%
- \@xs@IfSubStr@i#2\@delimit#3\@nil1\@nil% \@delimit pour éviter le cas de \IfSubStr{a}{aa}{V}{F} qui renverrait V
+ \fi
+ \@xs@next}%
+ \@xs@IfSubStr@i1\@nil#2\@delimit#3\@nil% \@delimit pour éviter le cas de \IfSubStr{a}{aa}{V}{F} qui renverrait V
\fi
\fi
- \@xs@result@IfSubStr}
+ \@xs@result@If}
\@xs@newmacro\IfBeginWith{}{2}{0}{%
\@xs@IfSubStr[\@ne]{#1}{#2}%
{\ifx\@empty\@xs@before@IfSubStr\@empty
- \def\@xs@result@IfBeginWith{\expandafter\@firstoftwo}%
+ \let\@xs@result@If\@firstoftwo%
\else
- \def\@xs@result@IfBeginWith{\expandafter\@secondoftwo}%
+ \let\@xs@result@If\@secondoftwo%
\fi}%
- {\def\@xs@result@IfBeginWith{\expandafter\@secondoftwo}}%
- \@xs@result@IfBeginWith}
+ {\let\@xs@result@If\@secondoftwo}%
+ \@xs@result@If}
\@xs@newmacro\IfEndWith{}{2}{0}{%
- \@xs@StrCount{#1}{#2}[\@xs@result@IfEndWith]%
- \ifnum\@xs@result@IfEndWith=\z@
- \def\@xs@result@IfEndWith{\expandafter\@secondoftwo}%
+ \@xs@StrCount{#1}{#2}[\@xs@result@If]%
+ \ifnum\@xs@result@If=\z@
+ \let\@xs@result@If\@secondoftwo%
\else
\ifx\@empty\@xs@after@StrCount\@empty
- \def\@xs@result@IfEndWith{\expandafter\@firstoftwo}%
+ \let\@xs@result@If\@firstoftwo%
\else
- \def\@xs@result@IfEndWith{\expandafter\@secondoftwo}%
+ \let\@xs@result@If\@secondoftwo%
\fi
\fi
- \@xs@result@IfEndWith}
+ \@xs@result@If}
\@xs@newmacro\IfSubStrBefore{1,1}{3}{0}{\@xs@IfSubStrBefore@i[#1]{#2}{#3}{#4}}
\def\@xs@IfSubStrBefore@i[#1,#2]#3#4#5{%
\@xs@IfSubStr[#2]{#3}{#5}%
{\expandafter\@xs@IfSubStr\expandafter[\expandafter#1\expandafter]\expandafter{\@xs@before@IfSubStr}{#4}%
- {\def\@xs@result@IfSubStrBefore{\expandafter\@firstoftwo}}%
- {\def\@xs@result@IfSubStrBefore{\expandafter\@secondoftwo}}%
+ {\let\@xs@result@If\@firstoftwo}%
+ {\let\@xs@result@If\@secondoftwo}%
}%
- {\def\@xs@result@IfSubStrBefore{\expandafter\@secondoftwo}}%
- \@xs@result@IfSubStrBefore}
+ {\let\@xs@result@If\@secondoftwo}%
+ \@xs@result@If}
\@xs@newmacro\IfSubStrBehind{1,1}{3}{0}{\@xs@IfSubStrBehind@i[#1]{#2}{#3}{#4}}
\def\@xs@IfSubStrBehind@i[#1,#2]#3#4#5{\@xs@IfSubStrBefore@i[#2,#1]{#3}{#5}{#4}}
@@ -375,15 +397,15 @@
\def\@xs@putXifempty#1{#1\ifx\@empty#1\@empty X\fi}
\def\@xs@formatnumber#1{%
\ifx\@empty#1\@empty
- 0X%
+ 0X% si vide, renvoie 0X
\else
- \expandafter\ifx\@xs@returnfirstchar#1\@nil+%
+ \expandafter\ifx\@xs@returnfirstchar#1\@nil+% si commence par un +, renvoie +0<nombre>
+0\expandafter\@xs@putXifempty\expandafter{\@xs@gobblefirstchar#1\@nil}%
\else
- \expandafter\ifx\@xs@returnfirstchar#1\@nil-%
+ \expandafter\ifx\@xs@returnfirstchar#1\@nil-% si commence par un -, renvoie -0<nombre>
-0\expandafter\@xs@putXifempty\expandafter{\@xs@gobblefirstchar#1\@nil}%
\else
- 0#1%
+ 0#1% si ne commence ni par + ni par -, renvoie 0<nombre>
\fi
\fi
\fi}
@@ -393,11 +415,10 @@
\decimalpart\z@
\afterassignment\@xs@defafterinteger\integerpart=\@xs@formattednumber\relax\@nil
\if\relax\@xs@afterinteger
- \def\@xs@result@IfInteger{\expandafter\@firstoftwo}%
+ \expandafter\@firstoftwo
\else
- \def\@xs@result@IfInteger{\expandafter\@secondoftwo}%
- \fi
- \@xs@result@IfInteger}
+ \expandafter\@secondoftwo
+ \fi}
\@xs@newmacro\IfDecimal{}{1}{0}{%
\@xs@def\@xs@formattednumber{\@xs@formatnumber{#1}}%
@@ -405,11 +426,10 @@
\afterassignment\@xs@defafterinteger\integerpart=\@xs@formattednumber\relax\@nil
\expandafter\@xs@testdot\@xs@afterinteger\@nil
\if\relax\@xs@afterdecimal
- \def\@xs@result@IfDecimal{\expandafter\@firstoftwo}%
+ \expandafter\@firstoftwo
\else
- \def\@xs@result@IfDecimal{\expandafter\@secondoftwo}%
- \fi
- \@xs@result@IfDecimal}
+ \expandafter\@secondoftwo
+ \fi}
\def\@xs@defafterinteger#1\@nil{\def\@xs@afterinteger{#1}}%
\def\@xs@testdot{\@ifnextchar.{\@xs@readdecimalpart}{\@xs@testcomma}}
@@ -421,26 +441,22 @@
\def\@xs@endnumber#1\@nil{\def\@xs@afterdecimal{#1}}
% test d'égalité sur des chaines (et des chaines contenant des nombres)
-\def\@xs@IfStrEqFalse@#1#2{\def\@xs@result@IfStrEq{\expandafter\@secondoftwo}}
+\def\@xs@IfStrEqFalse@#1#2{\let\@xs@result@If\@secondoftwo}
\def\@xs@IfStrEqFalse@@#1#2{% renvoie vrai si les 2 arg sont décimaux et s'ils sont égaux, faux sinon
\@xs@IfDecimal{#1}%
{\@xs@IfDecimal{#2}%
- {\ifdim#1pt=#2pt\def\@xs@result@IfStrEq{\expandafter\@firstoftwo}\else\def\@xs@result@IfStrEq{\expandafter\@secondoftwo}\fi}% les 2 sont décimaux
- {\def\@xs@result@IfStrEq{\expandafter\@secondoftwo}}}% un seul est décimal
- {\def\@xs@result@IfStrEq{\expandafter\@secondoftwo}}}% #1 n'est pas décimal
+ {\ifdim#1pt=#2pt\let\@xs@result@If\@firstoftwo\else\let\@xs@result@If\@secondoftwo\fi}% les 2 sont décimaux : on fait le test
+ {\let\@xs@result@If\@secondoftwo}}% un seul est décimal
+ {\let\@xs@result@If\@secondoftwo}}% #1 n'est pas décimal
+
\def\@xs@TestEqu@l#1#2{% teste si les 2 arguments sont égaux
- \expandafter\ifx\expandafter\@empty\detokenize{#1#2}\@empty
- \def\@xs@result@IfStrEq{\expandafter\@firstoftwo}% les 2 sont vides, on renvoie vrai
+ \def\@xs@tempa{#1}\def\@xs@tempb{#2}%
+ \ifx\@xs@tempa\@xs@tempb
+ \let\@xs@result@If\@firstoftwo% égalité parfaite des 2 chaines
\else
- \@xs@IfSubStr[\@ne]{#1}{#2}%
- {\expandafter\ifx\expandafter\@empty\detokenize\expandafter\expandafter\expandafter{\expandafter\@xs@before@IfSubStr\@xs@behind@IfSubStr}\@empty
- \def\@xs@result@IfStrEq{\expandafter\@firstoftwo}% égalité parfaite des 2 chaines
- \else
- \@xs@IfStrEqFalse{#1}{#2}%
- \fi}%
- {\@xs@IfStrEqFalse{#1}{#2}}%
+ \@xs@IfStrEqFalse{#1}{#2}%
\fi
- \@xs@result@IfStrEq}
+ \@xs@result@If}
\@xs@newmacro\IfStrEq{}{2}{0}{% teste si les deux chaines sont égales
\let\@xs@IfStrEqFalse\@xs@IfStrEqFalse@
@@ -449,6 +465,24 @@
\let\@xs@IfStrEqFalse\@xs@IfStrEqFalse@@
\@xs@TestEqu@l{#1}{#2}}
+\def\IfStrEqCase{\@ifstar{\def\@xs@IfEqName{\IfStrEq*}\@xs@IfStrCase@@}{\def\@xs@IfEqName{\IfStrEq}\@xs@IfStrCase@@}}
+\def\@xs@IfStrCase@@#1#2{\@testopt{\@xs@IfStringCase{#1}{#2}}{}}
+
+\def\IfEqCase{\@ifstar{\def\@xs@IfEqName{\IfEq*}\@xs@IfEqCase@@}{\def\@xs@IfEqName{\IfEq}\@xs@IfEqCase@@}}
+\def\@xs@IfEqCase@@#1#2{\@testopt{\@xs@IfStringCase{#1}{#2}}{}}
+
+\def\@xs@IfStringCase#1#2[#3]{%
+ \def\@xs@testcase##1##2##3\@nil{% lit les 2 premiers lexèmes dans ##1 et ##2. Les autres dans ##3
+ \@xs@IfEqName{#1}{##1}%
+ {##2}% le test est positif, on exécute le code correspondant
+ {\ifx\@empty##3\@empty% le test est négatif
+ \def\@xs@next{#3}% s'il n'y a plus de cas, on exécute le code <autres cas>
+ \else
+ \def\@xs@next{\@xs@testcase##3\@nil}% sinon, on recommence avec ce qui reste
+ \fi
+ \@xs@next}}%
+ \@xs@testcase#2\@nil}
+
% Renvoie ce qui est à gauche de l'occurence n°#1 de la sous chaine #3 dans la chaine
\@xs@newmacro\StrBefore{1}{2}{1}{%
\@xs@IfSubStr[#1]{#2}{#3}%
@@ -481,17 +515,18 @@
\else
\edef\@xs@result@StrSubstitute{}% on initialise à vide, histoire d'enlever le statut undefined
\ifnum#1>\z@
- \def\@xs@StrSubstitute@i##1#3##2\@nil##3\@nil{% ici, on compte les occurrences
- \edef\@xs@result@StrSubstitute{\@xs@result@StrSubstitute##1#4}% on recopie jusqu'à la 1ere occurrence, et on remplace #3 par #4
- \@xs@IfSubStr[1]{##2}{#3}% tant que la chaine restante contient #3
- {\ifnum\numexpr##3<#1% tant qu'on n'a pas atteint la bonne occurrence,
- \@xs@StrSubstitute@i##2\@nil##3+1\@nil% on recommence
+ \def\@xs@StrSubstitute@i##1\@nil##2#3##3\@nil{% ici, on compte les occurrences : ##1 est le compteur
+ \edef\@xs@result@StrSubstitute{\@xs@result@StrSubstitute##2#4}% on recopie jusqu'à la 1ere occurrence, et on remplace #3 par #4
+ \@xs@IfSubStr[1]{##3}{#3}% tant que la chaine restante contient #3
+ {\ifnum##1<#1% tant qu'on n'a pas atteint la bonne occurrence,
+ \def\@xs@next{\expandafter\@xs@StrSubstitute@i\number\numexpr##1+1\relax\@nil##3\@nil}%
\else
- \edef\@xs@result@StrSubstitute{\@xs@result@StrSubstitute##2}% l'occurrence est atteinte : on rajoute ce qui reste
- \fi}%
- {\edef\@xs@result@StrSubstitute{\@xs@result@StrSubstitute##2}}}% si on ne peut plus substituter, on rajoute ce qui reste
+ \def\@xs@next{\edef\@xs@result@StrSubstitute{\@xs@result@StrSubstitute##3}}%
+ \fi
+ \@xs@next}
+ {\edef\@xs@result@StrSubstitute{\@xs@result@StrSubstitute##3}}}% si on ne peut plus substituter, on rajoute ce qui reste
\@xs@IfSubStr[1]{#2}{#3}%
- {\@xs@StrSubstitute@i#2\@nil1\@nil}% si #2 contient #3, on exécute la macro
+ {\@xs@StrSubstitute@i1\@nil#2\@nil}% si #2 contient #3, on exécute la macro
{\edef\@xs@result@StrSubstitute{#2}}% sinon, on renvoie la chaine #2
\else
\def\@xs@StrSubstitute@i##1#3##2\@nil{% ici, on ne compte pas les occurrences
@@ -511,26 +546,33 @@
% Compte combien de caractères contient la chaine #1 ?
\@xs@newmacro\StrLen{}{1}{1}{\@xs@StrLen@i#1\@nil0\@nil#2\@nil}
-\def\@xs@StrLen@i#1\@nil#2\@nil#3\@nil{%
- \ifx\@empty#1\@empty%
+\def\@xs@StrLen@i#1\@nil#2\@nil#3\@nil{% #2 est le compteur
+ \ifx\@empty#1\@empty
\@xs@ReturnResult{\number\numexpr#2}{#3}%
\else
\@xs@RemoveFirst{#1}[\@xs@remain@StrLen]%
- \expandafter\@xs@StrLen@i\@xs@remain@StrLen\@nil#2+1\@nil#3\@nil
+ \def\@xs@next{\expandafter\expandafter\expandafter\@xs@StrLen@i\expandafter\@xs@remain@StrLen\expandafter\@nil\number\numexpr#2+1\relax\@nil#3\@nil}%
+ \expandafter\@xs@next
\fi}
-% Cette macro coupe la chaine #1 après le caractère n°#2
+\@xs@newmacro\StrSplit{}{2}{0}{\@xs@StrSplit@i{#2}{#1}}
+\def\@xs@StrSplit@i#1#2#3#4{%
+% Cette macro coupe la chaine #2 après le caractère n°#1
% Le début est assigné dans #3 et la fin dans #4
-\def\@xs@Split#1#2[#3,#4]{%
- \def#3{}\def#4{#1}%
- \@xs@Split@#1\@nil0\@nil#2[#3,#4]}
-\def\@xs@Split@#1\@nil#2\@nil#3[#4,#5]{%
- \ifnum\numexpr#2<\numexpr#3\relax% tant que c'est pas fini
- \@xs@ReturnFirst{#1}[#5]% prend le 1er caractère
- \edef#4{#4#5}% l'ajoute au résultat final
- \@xs@RemoveFirst{#1}[#5]% puis l'enlève de la chaine
- \ifx\@empty#5\@empty\else\expandafter\@xs@Split@#5\@nil#2+1\@nil#3[#4,#5]\fi% on recommence sauf s'il ne reste plus rien
- \fi}
+ \def\@xs@StrSplit@ii##1\@nil{%
+ \def\@xs@next{\relax}%
+ \ifnum##1<#1\relax% tant que c'est pas fini
+ \expandafter\@xs@ReturnFirst\expandafter{#4}[\@xs@next]% prend le 1er caractère
+ \edef#3{#3\@xs@next}% l'ajoute au résultat final
+ \expandafter\@xs@RemoveFirst\expandafter{#4}[#4]% puis l'enlève de la chaine
+ \ifx\@empty#4\@empty
+ \else
+ \def\@xs@next{\expandafter\@xs@StrSplit@ii\number\numexpr##1+1\relax\@nil}% on recommence sauf s'il ne reste plus rien
+ \fi
+ \fi
+ \@xs@next}%
+ \def#3{}\def#4{#2}%
+ \@xs@StrSplit@ii0\@nil}
\def\StrMid{\@ifstar{\let\@xs@assign\@xs@expand@and@detokenize\@xs@StrMid@@}{\let\@xs@assign\@xs@expand@and@assign\@xs@StrMid@@}}
\def\@xs@StrMid@@#1#2#3{%
@@ -555,38 +597,41 @@
\edef\@xs@Last@StrMid{\@len@StrMid}% on limite à la longueur de la chaine
\@xs@BadNumArg% avertissement
\fi
- \@xs@Split{#1}{\@xs@First@StrMid-1}[\@xs@before@StrMid,\@xs@behind@StrMid]%
- \expandafter\@xs@Split\expandafter{\@xs@behind@StrMid}{\@xs@Last@StrMid-\@xs@First@StrMid+1}[\@xs@result@StrMid,\@xs@before@StrMid]%
+ \expandafter\@xs@StrSplit@i\expandafter{\numexpr\@xs@First@StrMid-1}{#1}\@xs@before@StrMid\@xs@behind@StrMid
+ \expandafter\expandafter\expandafter
+ \@xs@StrSplit@i\expandafter\expandafter\expandafter
+ {\expandafter\expandafter\expandafter
+ \numexpr\@xs@Last@StrMid-\@xs@First@StrMid+2\relax\expandafter}\expandafter{\@xs@behind@StrMid}\@xs@result@StrMid\@xs@before@StrMid
\@xs@ReturnResult{\@xs@result@StrMid}{#2}%
\fi}
% supprime #2 caractères à gauche dans la chaine #1
\@xs@newmacro\StrGobbleLeft{}{2}{1}{%
- \@xs@Split{#1}{#2}[\@xs@call,\@xs@result@StrGobbleLeft]%
+ \@xs@StrSplit@i{#2}{#1}\@xs@call\@xs@result@StrGobbleLeft
\@xs@ReturnResult{\@xs@result@StrGobbleLeft}{#3}}
% extrait de #1 la chaine à gauche de longueur #2
\@xs@newmacro\StrLeft{}{2}{1}{%
- \@xs@Split{#1}{#2}[\@xs@result@StrLeft,\@xs@call]%
+ \@xs@StrSplit@i{#2}{#1}\@xs@result@StrLeft\@xs@call
\@xs@ReturnResult{\@xs@result@StrLeft}{#3}}
% supprime #2 caractères à droite dans la chaine #1
\@xs@newmacro\StrGobbleRight{}{2}{1}{%
\@xs@StrLen{#1}[\@xs@Len@StrGobbleRight]%
- \@xs@Split{#1}{\@xs@Len@StrGobbleRight-#2}[\@xs@result@StrGobbleRight,\@xs@call]%
+ \expandafter\@xs@StrSplit@i\expandafter{\numexpr\@xs@Len@StrGobbleRight-#2}{#1}\@xs@result@StrGobbleRight\@xs@call
\@xs@ReturnResult{\@xs@result@StrGobbleRight}{#3}}
% renvoie #2 caractères à la droite de la chaine #1
\@xs@newmacro\StrRight{}{2}{1}{%
\@xs@StrLen{#1}[\@xs@Len@StrRight]%
- \@xs@Split{#1}{\@xs@Len@StrRight-#2}[\@xs@call,\@xs@result@StrRight]%
+ \expandafter\@xs@StrSplit@i\expandafter{\numexpr\@xs@Len@StrRight-#2}{#1}\@xs@call\@xs@result@StrRight
\@xs@ReturnResult{\@xs@result@StrRight}{#3}}
\@xs@newmacro\StrChar{}{2}{1}{%
\ifnum#2<\@ne
\@xs@ReturnResult{}{#3}%
\else
- \@xs@Split{#1}{#2-1}[\@xs@call,\@xs@result@StrChar]%
+ \expandafter\@xs@StrSplit@i\expandafter{\numexpr#2-1}{#1}\@xs@call\@xs@result@StrChar
\expandafter\@xs@ReturnFirst\expandafter{\@xs@result@StrChar}[\@xs@result@StrChar@]%
\@xs@ReturnResult{\@xs@result@StrChar@}{#3}%
\fi}
@@ -598,18 +643,15 @@
\edef\@xs@after@StrCount{}%
\@xs@ReturnResult{0}{#3}%
\else
- \def\@xs@StrCount@i##1#2##2\@nil##3\@nil{%
- \ifx\@empty##2\@empty
- \ifnum\numexpr##3=\z@
- \edef\@xs@after@StrCount{}%
- \else
- \edef\@xs@after@StrCount{\@xs@strip@delimit##1\@nil}%
- \fi
- \@xs@ReturnResult{\number\numexpr##3}{#3}%
+ \def\@xs@StrCount@i##1\@nil##2#2##3\@nil{% ##1 est le compteur
+ \ifx\@empty##3\@empty
+ \edef\@xs@after@StrCount{\ifnum\numexpr##1=\z@\else\@xs@strip@delimit##2\@nil\fi}%
+ \@xs@ReturnResult{##1}{#3}%
\else
- \@xs@StrCount@i##2\@nil##3+1\@nil
+ \def\@xs@next{\expandafter\@xs@StrCount@i\number\numexpr##1+1\relax\@nil##3\@nil}%
+ \expandafter\@xs@next
\fi}%
- \@xs@StrCount@i#1\@delimit#2\@nil0\@nil
+ \@xs@StrCount@i0\@nil#1\@delimit#2\@nil
\fi}
% renvoie la position de l'occurrence #1 de la sous chaine #3 dans la chaine #2
@@ -624,11 +666,50 @@
}%
{\@xs@ReturnResult{0}{#4}}%
\fi}
+
+\def\comparestrict{\let\@xs@comparecoeff\@ne}
+\def\comparenormal{\let\@xs@comparecoeff\z@}
+% Compare les deux arguments #1 et #2
+% Renvoie 0 s'ils sont égaux et renvoie la position
+% du premier caractère différent sinon
+\@xs@newmacro\StrCompare{}{2}{1}{%
+ \@xs@IfStrEq{#1}{#2}%
+ {\@xs@ReturnResult{0}{#3}}%
+ {\ifx\@empty\@xs@stringB
+ \def\@xs@next{\@xs@ReturnResult{0}{#3}}% si la plus petite chaîne est vide, on renvoie 0
+ \else
+ \def\@xs@next{\@xs@StrCompare@i{#1}{#2}{#3}}%
+ \fi
+ \@xs@next}}
+\def\@xs@StrCompare@i#1#2#3{%
+ \def\@xs@StrCompare@ii##1\@nil{% ##1 est la position
+ \ifx\@empty\@xs@stringB% il n'y a plus de caractères à tester...
+ \def\@xs@next{\@xs@ReturnResult{\number\numexpr##1*\@xs@comparecoeff}{#3}}% ...on a passé tous les tests : #2 *en entier* apparaît exactement au début de #1 et on renvoie donc 0 ou la position
+ \else
+ \expandafter\@xs@StrSplit@i\expandafter\@ne\expandafter{\@xs@stringA}\@xs@currentcharA\@xs@stringA
+ \expandafter\@xs@StrSplit@i\expandafter\@ne\expandafter{\@xs@stringB}\@xs@currentcharB\@xs@stringB
+ \ifx\@xs@currentcharB\@xs@currentcharA
+ \def\@xs@next{\expandafter\@xs@StrCompare@ii\number\numexpr##1+1\relax\@nil}% les 2 caractères sont égaux, on recommence
+ \else
+ \def\@xs@next{\@xs@ReturnResult{##1}{#3}}% les 2 caractères sont différents : on renvoie la position
+ \fi
+ \fi
+ \@xs@next}%
+ \@xs@StrLen{#1}[\@xs@LenA@StrCompare]%
+ \@xs@StrLen{#2}[\@xs@LenB@StrCompare]%
+ \ifnum\@xs@LenB@StrCompare<\@xs@LenA@StrCompare
+ \def\@xs@stringA{#1}\def\@xs@stringB{#2}%
+ \else
+ \def\@xs@stringA{#2}\def\@xs@stringB{#1}%
+ \fi
+ \@xs@StrCompare@ii1\@nil}
+
% Restaure le code de @
\catcode`\@=\CurrentAtCatcode\relax
-% Définit le délimiteur verb et le développement des arguments par défaut
+% Définit le délimiteur verb et le développement des arguments par défaut et le mode de comparaison
\setverbdelim{|}
\fullexpandarg
+\comparenormal
\endinput
%
% Historique
@@ -639,16 +720,16 @@
% v1.1 15/8/2008
% - Le package ne nécessite plus LaTeX et est désormais
% utilisable sous Plain eTeX.
-% - Ajout des macros \IfInteger et \IfDecimal
-% pour cette dernière la partie entière et la partie
-% décimale sont récupérables dans les compteurs
-% \integerpart et \decimalpart. Ce qu'il reste après
-% qu'un caractère non attendu soit rencontré est
-% dispo dans \@xs@remainafterdecimal
+% - Ajout des macros \IfInteger et \IfDecimal.
+% Pour cette dernière, la partie entière et la partie
+% décimale sont récupérables dans les compteurs
+% \integerpart et \decimalpart. Ce qu'il reste après
+% qu'un caractère non attendu soit rencontré est
+% dispo dans \@xs@remainafterdecimal
% - Correction d'un bug dans \tokenize :
-% suppression de l'expansion avec \normalexpandarg
-% pour éviter le bug avec les lettres accentuées
-% dans l'exemple : \tokenize\aa{éù}
+% suppression de l'expansion avec \normalexpandarg
+% pour éviter le bug avec les lettres accentuées
+% dans l'exemple : \tokenize\aa{éù}
% - Amélioration du code de la plupart des macros.
% - Écriture d'une routine \@xs@newmacro définissant les
% macros.
@@ -656,17 +737,17 @@
% - Nouvelles fonctionnalités internes dans :
% \IfSubStr
% ajout des chaines se trouvant avant et après
-% l'occurrence testée dans les sc
-% \@xs@behind@IfSubStr et \@xs@before@IfSubStr
+% l'occurrence testée dans les sc
+% \@xs@behind@IfSubStr et \@xs@before@IfSubStr
% \StrCount
-% a) ajout de ce qui se trouve après la dernière
-% occurrence dans la sc \@xs@after@StrCount
-% b) la macro ne dépend plus d'aucune autre
+% a) ajout de ce qui se trouve après la dernière
+% occurrence dans la sc \@xs@after@StrCount
+% b) la macro ne dépend plus d'aucune autre
%------------------------------------------------------------
% v1.2 23/8/2008
% - Amélioration du code de \StrMid \StrGobbleLeft,
% \StrLeft, \StrGobbleRight et \StrRight à l'aide
-% de la nouvelle macro \@xs@Split
+% de la nouvelle macro \@xs@StrSplit@i
% - Nouveau test \IfStrEq qui compare 2 chaines
% - Nouveau test \IfEq qui compare 2 chaines (ou
% 2 nombres si les 2 chaines contiennent un nombre)
@@ -674,4 +755,17 @@
% n'envisageait pas le cas où son argument était vide
% ce qui faiasait planter \IfDecimal{}{V}{F} et
% \IfInteger{}{V}{F}
-%------------------------------------------------------------ \ No newline at end of file
+%------------------------------------------------------------
+% v1.3 21/9/2008
+% - Amélioration du code, mise en place de récursivités
+% terminales dans toutes les macros récursives,
+% simplification de \@xs@TestEqu@l en utilisant \ifx
+% - Nouvelles macros \IfStrEqCase et \IfEqCase
+% Teste si une chaîne est égale à plusieurs
+% chaînes donnée et exécute un code spécifique
+% - Création de la macro publique \StrSplit
+% Coupe la chaine en 2 à une position donnée
+% - Nouvelle macro \StrCompare
+% Compare 2 chaînes et renvoie la position du
+% 1er caractère différent. Renvoie 0 si elles sont
+% égales \ No newline at end of file
diff --git a/Master/tlpkg/bin/ctan2tds b/Master/tlpkg/bin/ctan2tds
index e44af5b3251..b282321976e 100755
--- a/Master/tlpkg/bin/ctan2tds
+++ b/Master/tlpkg/bin/ctan2tds
@@ -998,6 +998,7 @@ $standardtex='\.cfg|\.sty|\.clo|\.ldf|\.cls|\.def|\.fd$|\.cmap|\.4ht$';
'wordcount', '\.tex',
'xetexfontinfo','\.tex',
'xlop', 'xlop\.tex|' . $standardtex,
+ 'xstring', 'xstring\.tex|' . $standardtex,
'zefonts', '\.sty|\.fd',
);