From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- macros/generic/autoaligne/README | 31 +++ macros/generic/autoaligne/autoaligne-fr.pdf | Bin 0 -> 354987 bytes macros/generic/autoaligne/autoaligne-fr.tex | 266 ++++++++++++++++++++++ macros/generic/autoaligne/autoaligne.sty | 7 + macros/generic/autoaligne/autoaligne.tex | 328 ++++++++++++++++++++++++++++ 5 files changed, 632 insertions(+) create mode 100644 macros/generic/autoaligne/README create mode 100644 macros/generic/autoaligne/autoaligne-fr.pdf create mode 100644 macros/generic/autoaligne/autoaligne-fr.tex create mode 100644 macros/generic/autoaligne/autoaligne.sty create mode 100644 macros/generic/autoaligne/autoaligne.tex (limited to 'macros/generic/autoaligne') diff --git a/macros/generic/autoaligne/README b/macros/generic/autoaligne/README new file mode 100644 index 0000000000..aeb7f9bdae --- /dev/null +++ b/macros/generic/autoaligne/README @@ -0,0 +1,31 @@ +___________________________________ + + L'extension + autoaligne + + v1.4 + + 05/11/2018 +___________________________________ + +Auteur : Christian Tellechea +Mainteneur: Christian Tellechea +Courriel : unbonpetit@netc.fr (CT) +Suivi bug : https://framagit.org/unbonpetit/autoaligne/issues +D\'epot : https://framagit.org/unbonpetit/autoaligne/tree/master +Licence : Publié sous la licence « LaTeX Project Public License » + v1.3c ou post\'erieure, voir + + http://www.latex-project.org/lppl.txt + +Commentaires, signalements de bugs et suggestions sont les bienvenus + +---------------------------------------------------------------------- + +Cette extension permet d'aligner les termes et les membres entre +des lignes contenant des expressions math\'ematiques. + +---------------------------------------------------------------------- + +This package allows to align terms and members between lines +containing math expressions. diff --git a/macros/generic/autoaligne/autoaligne-fr.pdf b/macros/generic/autoaligne/autoaligne-fr.pdf new file mode 100644 index 0000000000..baae288385 Binary files /dev/null and b/macros/generic/autoaligne/autoaligne-fr.pdf differ diff --git a/macros/generic/autoaligne/autoaligne-fr.tex b/macros/generic/autoaligne/autoaligne-fr.tex new file mode 100644 index 0000000000..9c9370075a --- /dev/null +++ b/macros/generic/autoaligne/autoaligne-fr.tex @@ -0,0 +1,266 @@ +% Ceci est la documentation du package "autoaligne" +% +% Fichier compilé avec pdflatex +\documentclass[french,a4paper]{article} +\usepackage[T1]{fontenc} +\usepackage[utf8]{inputenc} +\usepackage{libertine}\usepackage[italic]{mathastext} +\usepackage[scaled=0.8]{luximono} +\usepackage{autoaligne,babel} +\usepackage[bottom]{footmisc} +\usepackage[margin=3cm]{geometry} +\usepackage{fancybox,xcolor,hyperref} +\def\eTeX{\hbox{$\varepsilon$-\TeX}} +\makeatletter +\long\def\defactive#1#2{\catcode`#1=13 \begingroup\lccode`\~`#1 \lowercase{\endgroup\long\def~{#2}}} +\newcommand\disable@lig[1]{\defactive#1{\leavevmode\kern\z@\string#1}} +\def\code{\expandafter\code@i\string} +\def\code@i#1{% + \begingroup + \par\nobreak\medskip\parindent0pt + \leftskip.1\linewidth + \defactive\^^I{\leavevmode\space\space\space\space}% + \defactive\<{\begingroup$\langle$\itshape}% + \defactive\>{$\rangle$\endgroup}% + \let\do\@makeother \dospecials + \ttfamily\small + \obeylines\obeyspaces + \def\code@ii##1#1{##1\par\medbreak\endgroup}% + \code@ii +} +\long\def\grab@toks#1\relax{\gdef\right@content{#1}} + +\newcommand\exemple[1][60]{% + \par\nobreak\vskip5pt \noindent + \def\part@coeff{#1}% + \relax\leavevmode\null + \begingroup + \let\do\@makeother\dospecials + \defactive\ {\space}% + \defactive\^^M{\par\leavevmode}% + \defactive\^^I{\leavevmode\space\space\space\space}% + \@makeother:\disable@lig,\disable@lig-% + \exemple@@ +} + +\newcommand\exemple@@[1]{% + \def\@tempa##1#1{% + \xdef\left@content{##1}% + \endgroup + \begingroup + \fboxsep1pt \fboxrule 0.5pt + \fbox{% + \parbox[c]{\dimexpr0.\part@coeff\linewidth-\fboxsep-\fboxrule}{% + \vskip5pt + \ttfamily\footnotesize\left@content + \vskip5pt + }% + \parbox[c]{\dimexpr\linewidth-0.\part@coeff\linewidth-\fboxsep-\fboxrule}{% + \vskip5pt + \normalfont\footnotesize\noindent\newlinechar`\^^M \everyeof{\noexpand}% + \scantokens{##1}% + \vskip5pt + }% + }% + \vskip7.5pt\relax + \endgroup + }% + \@tempa +} + +\def\exemple@@@{% + +} + +\begingroup +\catcode`\<13 \catcode`\>13 +\gdef\verb{\relax\ifmmode\hbox\else\leavevmode\null\fi + \bgroup + \verb@eol@error \let\do\@makeother \dospecials + \verbatim@font\@noligs + \catcode`\<13 \catcode`\>13 \def<{\begingroup$\langle$\itshape}\def>{$\rangle$\endgroup}% + \@ifstar\@sverb\@verb} +\endgroup +\def\longfraadate@i#1/#2/#3\@nil{\number#3\relax\space\ifcase #2 \or janvier\or février\or mars\or avril\or mai\or juin\or juillet\or aout\or septembre\or octobre\or novembre\or décembre\fi\space#1} +\edef\longfraadate{\expandafter\longfraadate@i\aadate\@nil} +\makeatother +\begin{document} +\parindent=0pt +\thispagestyle{empty} +\begin{titlepage} + \renewcommand\thefootnote{\fnsymbol{footnote}} + \begingroup + \centering + \null\vskip.25\vsize + {\large\bfseries L'extension\par \Huge \aanom\par} + \bigbreak + v\aaversion + \smallbreak + \longfraadate + \vskip1.5cm + {Christian \bsc{Tellechea}\footnote{\href{mailto:unbonpetit@netc.fr}{unbonpetit@netc.fr}}} + \par + \endgroup + \vskip2cm + \leftskip=.2\linewidth \rightskip=.2\linewidth \small + Cette petite extension permet d'aligner les uns au-dessous des autres les termes et les signes d'égalité dans des expressions mathématiques s'étendant sur plusieurs lignes. +\end{titlepage} +\parskip=5ptplus0.5ptminus0.5pt\relax +\def\listofitems{\textsf\loiname} +\def\aa{\textsf\aanom} +\section{Avant propos} +C'est à force de voir, aussi bien sur \href{http://tex.stackexchange.com/}{\texttt{tex.stackexchange}} que dans ma boite \href{mailto:unbonpetit@netc.fr}{email}, des questions concernant l'extension \href{https://www.ctan.org/pkg/systeme}{\texttt{systeme}} que j'ai décidé d'écrire une extension à la fois plus générale et plus simple que ne l'est \texttt{systeme}. En effet trop de ces questions ont pour but de faire réaliser à \texttt{systeme} des choses pour lesquelles elle n'est pas conçue ! + +À l'aide de l'extension \href{https://www.ctan.org/pkg/listofitems}{\listofitems}, coder \aa{} deviendrait (presque) une formalité tant les choses tendent à devenir plus simples. + +Ayant constaté que beaucoup de non francophones ne semblent en rien gênés que le manuel de \texttt{systeme} soit rédigé uniquement en français, détestant pour ma part traduire le français vers l'anglais ce qui s'apparente à un calvaire et enfin, voulant à tout prix défendre l'existence du français face au globbish dans la sphère \TeX/\LaTeX{} et ailleurs, j'ai voulu que cette extension soit 100\% en français et qu'elle le reste ! Même dans le code, les noms des macros sont en français ce qui, une fois l'habitude prise, est fort agréable. +\bigbreak + +Cette extension requiert l'extension \listofitems{} dans sa version 1.1 ou supérieur, doit être utilisée avec un moteur \eTeX, et doit être appelée sous (pdf)(Xe)(lua)\LaTeX{} par +\code|\usepackage{autoaligne}| + +et sous (pdf)(Xe)(lua)\TeX{} par +\code|\input autoaligne.tex| + +\section{Mode d'emploi} +\paragraph{La macro \texttt{\char`\\autoaligne}} +Cette macro attend un argument obligatoire entre accolades contenant les lignes qui sont des expressions où l'alignement automatique doit entrer en vigueur. + +Chaque ligne est séparée de sa voisine par \og\verb|\\|\fg. Dans chaque ligne, on peut trouver autant de membres que l'on souhaite, séparés les uns des autres par \og\verb|=|\fg. Dans ces membres peuvent se trouver autant de termes que nécessaire, chacun séparé de son voisin par \og\verb|+|\fg{} ou \og\verb|-|\fg. Pour choisir d'autres séparateurs, voir page~\pageref{choix.separateurs}. + +La macro \verb|\autoaligne| va bâtir un alignement de type \verb|\halign| dans lequel chaque terme et chaque signe est contenu dans une colonne. Toutes les colonnes sont composées en mode mathématique. Visuellement, le résultat se traduit par des termes et des signes alignés les uns au-dessous des autres comme on peut le constater dans cet exemple simple : +\exemple|\autoaligne{x-3y+z=2-i\\5x+y-6z=1+5i\\-x+y-z=-3+i}| + +Lorsqu'un membre commence par \og\verb/-/\fg, le signe fait partie prenante du terme et n'est pas compris comme un séparateur entre termes. On peut le constater dans les deux membre de la dernière ligne. + +\paragraph{Termes vides} +Les signes \og\verb|+|\fg{} doivent être utilisés pour insérer des termes vides. Il est déconseillé de se servir du signe \og\verb|-|\fg{}. + +\exemple/\autoaligne{x=a++c\\+y=+b-c\\++z=+-4c}/ + +On peut noter deux choses : +\begin{enumerate} + \item les signes \og\verb|+|\fg{} devant les termes vides ou devant le premier terme non vide ne sont pas affichés ; + \item lorsqu'une colonne ne contient que des signes non affichés comme c'est le cas dans le membre de gauche, l'encombrement horizontal de ces signes est pris en compte. +\end{enumerate} + +Lorsqu'un terme négatif doit apparaitre en deuxième position après un terme vide, il \emph{faut} meubler ce terme vide avec un contenu non affichable comme \og\verb|{}|\fg, \og\verb|\relax|\fg{} ou \og\verb|\null|\fg{}. C'est, je pense, la seule situation où \aa{} conserve une ambiguïté qui demande, pour être levée, un petit effort de la part de l'utilisateur : + +\exemple/\autoaligne{a-b={}-2i\\a+2b=1+i}/ + +\paragraph{Composition des termes} +Par défaut, chaque terme est composé au fer à droite comme on le constate sur cet exemple : + +\exemple/\autoaligne{a+\sqrt2b=0\\a+b=10\sqrt2}/ + +L'argument optionnel de \verb|\autoaligne| permet de changer ce paramètre de composition. Si l'on souhaite spéficier ce paramètre globalement pour \emph{tous} les membres, il faut écrire \verb|*| où la \verb|| est \og\texttt c\fg{} pour centré, \og\texttt d\fg{} pour droite et \og\texttt g\fg{} pour gauche. Toute autre lettre provoquera un message d'erreur et \og\texttt d\fg{} sera alors prise par défaut. + +Voici l'exemple ci-dessus repris avec un paramètre optionnel global \og\verb|*g|\fg{} : + +\exemple/\autoaligne[*g]{a+\sqrt2b=0\\a+b=10\sqrt2}/ + +Pour spécifier le paramètre pour chaque membre, il faut écrire dans l'argument optionnel autant de \verb|| qu'il y a de membres dans l'alignement. Si l'on écrit plus de lettres qu'il y a de membres, les lettres en trop seront ignorées. S'il manque des lettres, un message d'erreur sera émis et la lettre \og\verb|d|\fg{} sera prise par défaut. + +Voici l'exemple avec, semble-t-il, le meilleur compromis ici, c'est-à-dire \og\verb|d|\fg{} pour le 1\ier{} membre et \og\verb|g|\fg{} pour le second : + +\exemple/\autoaligne[dg]{a+\sqrt2b=0\\a+b=10\sqrt2}/ + +Pour contrarier l'alignement pour un seul terme dans une seule ligne, il est toujours possible de placer convenablement un (ou plusieurs) \verb|\hfill| dans ce terme. + +\paragraph{Échappement de \texttt+ et \texttt-} +Pour écrire un signe \og\texttt+\fg{} ou \og\texttt-\fg{} sans qu'il ne soit interprété comme un délimiteur de terme, il faut employer les macros \verb|\+| ou \verb|\-| : + +\exemple/\autoaligne{(1\+a)x+a^2y=a\\-2ax+(1\-a)y=2-a}/ + +\paragraph{Combien de membres ?} +Autant que l'on veut ! + +\exemple/\autoaligne{a+b=1+2+3+4=++z=\alpha\\+x=++10==3\\=1=i+j-z}/ + +Si un membre est vide (comme celui précédant le 3), le signe d'égalité qui le précède n'est pas affiché par défaut. Pour changer ce comportement, il faut écrire \verb|\egaldevantmembrevide=|. Si le \verb|| (entier sur 8 bits positif ou nul) vaut autre chose que 0, le signe \verb|=| sera affiché devant un membre vide. + +\paragraph{Augmenter l'espacement vertical} +Le coefficient défini par \verb|\aavcoeff{}| permet de modifier l'espacement vertical entre les lignes en multipliant la valeur de \verb|\baselineskip| par le \verb||. + +\exemple/Normal \autoaligne{a+2b=1\\a-b=2} \qquad +\aavcoeff{1.75}étendu \autoaligne{a+2b=1\\a-b=2}/ + +\paragraph{Position verticale de l'alignement} +La macro \verb|\autoaligne| admet un autre argument optionnel entre parenthèses qui spécifie quelle sera la position verticale de l'alignement créé par rapport à la ligne de base. Cet argument est une \verb|| qui vaut \og\verb|c|\fg, \og\verb|h|\fg{} ou \og\verb|b|\fg{} pour que la ligne de base de l'alignement soit au centre de celui-ci, sur la ligne du haut ou sur celle du bas. La position centrée est celle par défaut. Lorsque les deux arguments optionnels sont présents (celui entre crochets et celui entre parenthèses), l'ordre des arguments optionnels \emph{est sans importance}, \verb|[]()| est accepté tout comme \verb|()[]|. + +\exemple/Alignement c : +\autoaligne(c){4=1+1+1+1\\=1+1+2\\=2+2\\=3+1}\medbreak + +Alignement h : +\autoaligne(h){4=1+1+1+1\\=1+1+2\\=2+2\\=3+1}\medbreak + +Alignement b : +\autoaligne(b){4=1+1+1+1\\=1+1+2\\=2+2\\=3+1}/ + +\paragraph{Choix des séparateurs}\label{choix.separateurs} +Depuis la version 1.2, il est possible de choisir les séparateurs qui sont par défaut \og\verb|\\|\fg{} pour le changement de ligne, \og\verb|=|\fg{} pour le séparateur entre membres et \og\verb/+||-/\fg{} pour le séparateur entre termes. + +La macro + +\code|\definirseparateurs{}{}{}| + +permet de les définir à sa convenance selon les contraintes suivantes: + +\begin{enumerate} + \item le \verb|| doit être défini, c'est-à-dire qu'il ne peut pas être vide; + \item \verb|| et \verb|| ne peuvent pas être vides tous les deux, auquel cas, \og\verb|=|\fg{} et \og\verb/+||-/\fg{} sont pris par défaut; + \item un des deux séparateurs \verb|| ou \verb|| peut être vide, ce qui signifie que l'alignement ne tiendra compte que de deux séparateurs. +\end{enumerate} + +Voici un exemple où seulement deux séparateurs sont définis : + +\exemple/Un calcul : +\definirseparateurs{\\}{+||-}{} +\autoaligne[*c](h){15+2\times3-4\times5\\ +15+6-20\\ +21+-20\\ +1}/ + +\paragraph{Choix des espaces additionnels} +Si l'on tente de créer une macro \verb|\determinant| qui affiche un déterminant de matrice dont les éléments sont séparés par \og\verb|\\|\fg{} et \og\verb*/ /\fg{}, on constate que le séparateur \og\verb*/ /\fg{}, composé en mode mathématique dans une colonne, est ignoré ce qui se traduit une colonne de largeur nulle conduisant à des espacement incorrects. + +\exemple/\def\determinant#1{\begingroup + \definirseparateurs{\\}{ }{}% + \hbox{$\left|\autoaligne[*c]{#1}\right|$}% + \endgroup +} +Un déterminant \determinant{a -b 0\\b 0 a\\0 -a -b}/ + +La macro + +\code|\definirespacements{}{}| + +définit les espaces placées \emph{de part et d'autre} de chaque séparateur de membres ou de termes. Ces deux espaces sont nulles par défaut, mais deviennent nécessaires dans l'exemple ci-dessus : + +\exemple/\def\determinant#1{\begingroup + \definirseparateurs{\\}{ }{}% + \definirespacements{.75em}{}% + \hbox{$\left|\autoaligne[*c]{#1}\right|$}% + \endgroup +} +Un déterminant \determinant{a -b 0\\b 0 a\\0 -a -b}/ + +\paragraph{Choix des espacements autour de l'alignement} +L'espacement autour de l'alignement lui-même est nul par défaut, ce qui se traduit par des traits verticaux un peu trop proches de la matrice dans l'exemple ci-dessus. + +La macro \verb/\definirespacements/ admet un argument optionnel entre crochets de la forme + +\code|[,]| + +où \verb|| est le ressort inséré avant l'alignement et \verb|| celui inséré après. + +\exemple/\def\determinant#1{\begingroup + \definirseparateurs{\\}{ }{}% + \definirespacements[3pt,3pt]{.75em}{}% + \hbox{$\left|\autoaligne[*c]{#1}\right|$}% + \endgroup +} +Un déterminant \determinant{a -b 0\\b 0 a\\0 -a -b}/ + +Si \verb|| est vide, aucun ressort n'est inséré via \verb|\hskip|. Il en est de même avec \verb||. Les valeurs de ces ressorts sont vides par défaut, ce qui signifie qu'aucun ressort n'est inséré avant ou après les alignements créés. +\end{document} \ No newline at end of file diff --git a/macros/generic/autoaligne/autoaligne.sty b/macros/generic/autoaligne/autoaligne.sty new file mode 100644 index 0000000000..891aed5515 --- /dev/null +++ b/macros/generic/autoaligne/autoaligne.sty @@ -0,0 +1,7 @@ +\input autoaligne.tex\relax +\expandafter\def\csname aa_corrige_baselineskip\endcsname{% si \autoaligne est appelé dans un tabular où \baselineskip est nul : + \ifdim\baselineskip=0pt \baselineskip\normalbaselineskip\fi +} +\expandafter\def\csname aa_erreur\endcsname#1{\PackageError\aanom{#1}{Read the manual}}% pour LaTeX +\ProvidesPackage\aanom[\aadate\space v\aaversion\space Aligne les termes sur plusieurs lignes (CT)] +\endinput \ No newline at end of file diff --git a/macros/generic/autoaligne/autoaligne.tex b/macros/generic/autoaligne/autoaligne.tex new file mode 100644 index 0000000000..286cb7be89 --- /dev/null +++ b/macros/generic/autoaligne/autoaligne.tex @@ -0,0 +1,328 @@ +% !TeX encoding = ISO-8859-1 +% Ce fichier contient le code TeX de l'extension "autoaligne" +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% % +\def\aanom {autoaligne} % +\def\aaversion {1.4} % +% % +\def\aadate {2018/11/05} % +% % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% -------------------------------------------------------------------- +% Cet ensemble peut être distribué et/ou modifié selon les +% conditions de la licence « LaTeX Project Public License », en version +% 1.3c ou toute autre version ultérieure. +% La dernière version de cette licence est disponible à +% +% http://www.latex-project.org/lppl.txt +% +% -------------------------------------------------------------------- +% Cet ensemble a le statut de maintenance LPPL « maintenu ». +% +% Le mainteneur actuel de cet ensemble est Christian Tellechea +% email : unbonpetit@netc.fr +% Copyright : Christian Tellechea 2016-2018 +% Suivi bugs : https://framagit.org/unbonpetit/autoaligne/issues +% Dépôt : https://framagit.org/unbonpetit/autoaligne/tree/master +% CTAN URL : https://ctan.org/pkg/autoaligne +% -------------------------------------------------------------------- +% L'extension autoaligne est composée des 5 fichiers suivants : +% - code : autoaligne (.tex et .sty) +% - manuel en francais : autoaligne-fr (.tex et .pdf) +% - fichier lisezmoi : README +% -------------------------------------------------------------------- + +\expandafter\edef\csname aa_restaure_catcode\endcsname{\catcode\number`\_=\number\catcode`\_\relax} +\catcode`\_11 +\def\aa_listofitems_version_mini{1.1} + +\begingroup + \edef\__tempa{\meaning\eTeXversion}\edef\__tempb{\string\eTeXversion}% + \ifx\__tempa\__tempb\endgroup + \else\endgroup + \aa_erreur{Vous n'utilisez pas un moteur eTeX, \aanom\space ne peut donc pas fonctionner}% + \expandafter\aa_restaure_catcode\expandafter\endinput + \fi + +\begingroup +\unless\ifdefined\loiname + \def\__tempa{\endgroup\input listofitems.tex\relax}% + \expandafter\__tempa +\fi + +\ifdim\loiver pt<\aa_listofitems_version_mini pt + \aa_erreur{\loiname\space est en version v\loiver\space et \aanom\space requiert la v\aa_listofitems_version_mini\space ou plus}% + \expandafter\aa_restaure_catcode\expandafter\endinput +\fi + +\def\aa_erreur#1{\errmessage{Package \aanom\space Error: #1^^J}} +\let\aa_sep_terme_vide\relax +\let\aa_sep_membre_vide\relax +\def\aa_compose_en_mode_math#1{$\relax#1$} +\def\aa_devdev_arg#1{\loi_exparg{\loi_exparg{#1}}} +\def\aavcoeff#{\def\aa_v_coeff} +\newtoks\aa_liste_tokens +\def\aa_ajoute_au_toks#1{\aa_liste_tokens\expandafter{\the\aa_liste_tokens#1}} +\def\aa_developpe_et_ajoute_au_toks#1{\loi_exparg\aa_ajoute_au_toks{#1}} +\def\egaldevantmembrevide{\chardef\aa_egal_devant_membre_vide} +\egaldevantmembrevide=0% pas de signe = devant un membre vide +\def\aa_def_tok#1#2{\let#1= #2\empty}\aa_def_tok\aa_tok_espace{ } +\def\aa_si_prochain_tok_est#1#2#3{% + \aa_def_tok\aa_test_tok{#1}\def\aa_code_vrai{#2}\def\aa_code_faux{#3}% + \aa_si_prochain_tok_est_i +} +\def\aa_si_prochain_tok_est_i{\futurelet\aa_prochain_token\aa_si_prochain_tok_est_ii} +\def\aa_si_prochain_tok_est_ii{% + \loi_ifx{\aa_prochain_token\aa_tok_espace} + {\afterassignment\aa_si_prochain_tok_est_i\let\aa_prochain_token= } + {\loi_ifx{\aa_prochain_token\aa_test_tok}\aa_code_vrai\aa_code_faux}% +} +\def\aa_si_commence_par#1#2{% + \def\aa_si_commence_par_i##1#2##2\_nil{\loi_exparg\loi_ifempty{\loi_gobarg##1}}% + \aa_si_commence_par_i\relax#1#2\_nil +} +\def\definirseparateurs#1#2#3{% + \loi_ifempty{#1} + {\aa_erreur{Separateur entre lignes non permis, "\string\\" retenu}% + \definirseparateurs{\\}{#2}{#3}% + } + {\loi_ifempty{#2#3} + {\aa_erreur{Separateurs de membre et de terme : "=" et "+||-" retenus}% + \definirseparateurs{#1}{=}{+||-}% + } + {\loi_ifempty{#2} + {\definirseparateurs{#1}{\aa_sep_membre_vide}{#3}% + } + {\loi_ifempty{#3} + {\def\aa_liste_separateurs{#1_#2_\aa_sep_terme_vide}} + {\def\aa_liste_separateurs{#1_#2_#3}}% + }% + }% + }% +} +\definirseparateurs{\\}{=}{+||-}% séparateurs par défaut +\def\definirespacements{\aa_si_prochain_tok_est[\definirespacements_i{\definirespacements_i[,]}} +\def\definirespacements_i[#1,#2]#3#4{% #3=espace avant & après séparateurs 2 #4=espace avant & après séparateurs 3 + \edef\aa_insere_espacement_avant{\aa_devdev_arg\loi_ifempty{\loi_removeextremespaces{#1}}{}{\hskip\glueexpr#1\relax}}% + \edef\aa_insere_espacement_apres{\aa_devdev_arg\loi_ifempty{\loi_removeextremespaces{#2}}{}{\hskip\glueexpr#2\relax}}% + \edef\aa_espacement_signe{\dimexpr\loi_ifempty{#3}{0pt}{#3}\relax}% + \edef\aa_espacement_terme{\dimexpr\loi_ifempty{#4}{0pt}{#4}\relax}% +} +\definirespacements[,]{0pt}{0pt}% espacements par défaut +\def\aa_si_contient_moins#1{\aa_si_contient_moins_i||#1||||-||\_nil}% "||-||" est-il dans #1 ? +\def\aa_si_contient_moins_i#1||-||#2\_nil{\loi_ifempty{#2}\loi_second\loi_first} +\def\aa_trouver_moins_dans_separateur_de_termes{\expandafter\aa_trouver_moins_dans_separateur_de_termes_i\aa_liste_separateurs\_nil} +\def\aa_trouver_moins_dans_separateur_de_termes_i#1_#2_#3\_nil{% + \aa_si_contient_moins{#2} + {2} + {\aa_si_contient_moins{#3}{3}{-1}}% +} +\def\aa_ajoute_si_existe#1{\ifcsname#1\endcsname\loi_argcsname\aa_developpe_et_ajoute_au_toks{#1}\fi} +\def\aa_alignement_signe{\hfil\kern\aa_espacement_signe${}##{}$\kern\aa_espacement_signe\hfil}% pour "=", "+" ou "-" +\def\aa_alignement_terme_c{\hfil\kern\aa_espacement_terme$##$\kern\aa_espacement_terme\hfil} +\def\aa_alignement_terme_d{\hfil\kern\aa_espacement_terme$##$\kern\aa_espacement_terme} +\def\aa_alignement_terme_g{\kern\aa_espacement_terme$##$\kern\aa_espacement_terme\hfil} +\def\autoaligne{% + \relax\iffalse{\fi\ifnum0=`}\fi + \begingroup + \aa_si_prochain_tok_est[ + {\autoaligne_crochet} + {\aa_si_prochain_tok_est({\autoaligne_paren}{\autoaligne_i[*d](c)}}% +} +\def\autoaligne_crochet[#1]{\aa_si_prochain_tok_est({\autoaligne_i[#1]}{\autoaligne_i[#1](c)}} +\def\autoaligne_paren(#1){\aa_si_prochain_tok_est[{\autoaligne_permute_argopt(#1)}{\autoaligne_i[*d](#1)}} +\def\autoaligne_permute_argopt(#1)[#2]{\autoaligne_i[#2](#1)} +\def\autoaligne_i[#1]{% + \loi_ifempty{#1} + {\aa_erreur{Consigne d'alignement vide, "*d" est retenue}% + \autoaligne_i[*d]% + } + {\def\aa_consigne_alignement_general{}% + \aa_si_commence_par{#1}* + {\aa_trouve_consigne_alignement_general#1d\_nil} + {\aa_trouve_consigne_alignement_par_membre{#1}}% + \autoaligne_ii + }% +} +\def\autoaligne_ii(#1){% + \loi_ifempty{#1} + {\aa_erreur{Consigne de position vide, "c" est retenue} + \autoaligne_ii(c)% + } + {\edef\aa_consigne_alignement_vertical{\aa_verifie_consigne_alignement chb{#1}}% + \loi_ifnum{\aa_consigne_alignement_vertical=0 } + {\aa_erreur{Consigne d'alignement vertical "\detokenize{#1}" non reconnue, "c" est retenue}% + \def\aa_consigne_alignement_general{1}% + }% + {}% + \edef\aa_numero_separateur_contenant_signe_moins{\aa_trouver_moins_dans_separateur_de_termes}% + \def\readlist_d##1||##2\_nil##3{% redéfinir \readlist_e pour que + \loi_ifnum{\loi_nestcnt=\aa_numero_separateur_contenant_signe_moins\relax}% si la profondeur est celle où il a y a un "-" + {\aa_si_commence_par{##30}{-}% et que la liste restant à examiner commence par "-" alors + {\loi_exparg{\readlist_e1}{\expandafter\-\loi_gobarg##3##1}}% remplacer ce "-" par \- + {\readlist_e1{##3##1}}% + } + {\readlist_e1{##3##1}}% + }% + \expandafter\def\csname+\endcsname{+}\expandafter\def\csname-\endcsname{-}% redéfinir \+ et \- + \loi_exparg{\setsepchar[_]}{\aa_liste_separateurs}% + \autoaligne_iii + }% +} +\def\aa_trouve_consigne_alignement_general*#1#2\_nil{% + \loi_ifnum{\aa_verifie_consigne_alignement cdg{#1}=0 } + {\aa_erreur{Consigne d'alignement "\detokenize{#1}" non reconnue, "d" est retenue}% + \def\aa_consigne_alignement_general{d}% + } + {\def\aa_consigne_alignement_general{#1}}% +} +\def\aa_trouve_consigne_alignement_par_membre#1{\aa_trouve_consigne_alignement_par_membre_i1#1\loi_quark} +\def\aa_trouve_consigne_alignement_par_membre_i#1#2{% + \loi_ifx{#2\loi_quark} + {} + {\loi_ifnum{\aa_verifie_consigne_alignement cdg{#2}=0 } + {\aa_erreur{Consigne d'alignement "\detokenize{#2}" non reconnue, "d" est retenue}% + \loi_argcsname\def{aa_alignement_membre[#1]}{d}% + } + {\loi_argcsname\def{aa_alignement_membre[#1]}{#2}}% + \loi_exparg\aa_trouve_consigne_alignement_par_membre_i{\number\numexpr#1+1}% + }% +} +\def\aa_verifie_consigne_alignement#1#2#3#4{% #1,#2,#3=lettres admises #4=consigne c, d ou g --> renvoie un nombre (1,2 ou 3=ok, 0=erreur) + 0\if\string #1\expandafter\loi_firsttonil\detokenize{#4x}\_nil1\else + \if\string #2\expandafter\loi_firsttonil\detokenize{#4x}\_nil2\else + \if\string #3\expandafter\loi_firsttonil\detokenize{#4x}\_nil3\fi\fi\fi +} +\let\aa_corrige_baselineskip\relax +\def\autoaligne_iii#1{% #1=tableau + \reademptyitems + \readlist\aa_termes{#1}% + \let\aa_nombre_de_lignes\aa_termeslen% nombre de lignes + \def\aa_nombre_de_membres{0}% + \loi_fornum\aa_ligne_index=1to\aa_termeslen\do{% pour chaque ligne + \ifnum\csname aa_termeslen[\aa_ligne_index,0]\endcsname>\aa_nombre_de_membres + \loi_argcsname\let\aa_nombre_de_membres{aa_termeslen[\aa_ligne_index,0]}% mettre à jour le nombre max de membres + \fi + \loi_fornum\aa_membre_index=1to\csname aa_termeslen[\aa_ligne_index,0]\endcsname\do{% pour chaque membre + \loi_argcsname\let\aa_nombre_de_termes_courant{aa_termeslen[\aa_ligne_index,\aa_membre_index,0]}% + \ifcsname aa_nbtermes_\aa_membre_index\endcsname% mettre à jour le nombre max de termes dans ce membre + \ifnum\aa_nombre_de_termes_courant>\csname aa_nbtermes_\aa_membre_index\endcsname\relax + \loi_argcsname\let{aa_nbtermes_\aa_membre_index}\aa_nombre_de_termes_courant + \fi + \else + \loi_argcsname\let{aa_nbtermes_\aa_membre_index}\aa_nombre_de_termes_courant + \fi + }% + }% + \aa_liste_tokens{}% + % construction du préambule de l'alignement + \loi_fornum\aa_membre_index=1to\aa_nombre_de_membres\do{% + \loi_fornum\aa_terme_index=1to\csname aa_nbtermes_\aa_membre_index\endcsname\do{% + \ifx\aa_consigne_alignement_general\empty + \ifcsname aa_alignement_membre[\aa_membre_index]\endcsname + \loi_argcsname\aa_developpe_et_ajoute_au_toks{aa_alignement_terme_\csname aa_alignement_membre[\aa_membre_index]\endcsname}% terme + \else + \aa_erreur{Pas assez de consignes d'alignement, "d" est retenue}% + \aa_developpe_et_ajoute_au_toks{\aa_alignement_terme_d}% + \fi + \else + \loi_argcsname\aa_developpe_et_ajoute_au_toks{aa_alignement_terme_\aa_consigne_alignement_general}% + \fi + \ifnum\aa_terme_index<\csname aa_nbtermes_\aa_membre_index\endcsname\relax + \aa_developpe_et_ajoute_au_toks{\expandafter&\aa_alignement_signe&}% signe + \fi + }% + \ifnum\aa_membre_index<\aa_nombre_de_membres\relax + \aa_developpe_et_ajoute_au_toks{\expandafter&\aa_alignement_signe&}% égalité + \fi + }% + \aa_ajoute_au_toks\cr + % fin du préambule, construction du corps de l'alignement + \loi_fornum\aa_ligne_index=1to\aa_termeslen\do{% pour chaque ligne, + \loi_fornum\aa_membre_index=1to\aa_nombre_de_membres\do{% chaque membre + \def\aa_terme_non_vide_vu{0}% + \loi_fornum\aa_terme_index=1to\csname aa_nbtermes_\aa_membre_index\endcsname\do{% et chaque terme + \aa_ajoute_si_existe{aa_termes[\aa_ligne_index,\aa_membre_index,\aa_terme_index]}% ajouter le terme + \ifcsname aa_termes[\aa_ligne_index,\aa_membre_index,\aa_terme_index]\endcsname% si le terme existe + \loi_argcsname\loi_exparg\loi_ifempty{aa_termes[\aa_ligne_index,\aa_membre_index,\aa_terme_index]} + {} + {\def\aa_terme_non_vide_vu{1}}% et qu'il est non vide, s'en souvenir + \fi + \ifnum\aa_terme_index<\csname aa_nbtermes_\aa_membre_index\endcsname\relax% passer à l'ajout éventuel du signe + ou - + \aa_ajoute_au_toks&% + \loi_ifnum{% insérer signe si index correct ET terme suivant non vide ET (un terme non vide a été rencontré OU signe="-" + \numexpr1\loi_ifnum{\aa_terme_index<\csname aa_termeslen[\aa_ligne_index,\aa_membre_index,0]\endcsname\space}10% + \loi_exparg{\loi_exparg\loi_ifempty}{\csname aa_termes[\aa_ligne_index,\aa_membre_index,\number\numexpr\aa_terme_index+1]\endcsname}01% + +\aa_terme_non_vide_vu + +\if\string-\expandafter\loi_firsttonil\detokenize\expandafter\expandafter\expandafter{\csname aa_termessep[\aa_ligne_index,\aa_membre_index,\aa_terme_index]\endcsname+}\_nil1\else0\fi>111 } + {\aa_ajoute_si_existe{aa_termessep[\aa_ligne_index,\aa_membre_index,\aa_terme_index]}}% + {\aa_ajoute_au_toks{\hphantom{\hbox{${}+{}$}}}}% sinon, encombrement horizontal + \aa_ajoute_au_toks&% + \fi + }% + \ifnum\aa_membre_index<\aa_nombre_de_membres\relax + \aa_ajoute_au_toks&% puis, ajouter le signe "=" si... + \ifcsname aa_termes[\aa_ligne_index,\number\numexpr\aa_membre_index+1]\endcsname% le terme suivant existe + \ifnum\aa_egal_devant_membre_vide=0 % et si on ne tient compte des = devant les membres vides + \loi_argcsname\loi_exparg\loi_ifempty{aa_termes[\aa_ligne_index,\number\numexpr\aa_membre_index+1]} + {}% et si'il n'est pas vide + {\aa_ajoute_si_existe{aa_termessep[\aa_ligne_index,\aa_membre_index]}}% + \else + \aa_ajoute_si_existe{aa_termessep[\aa_ligne_index,\aa_membre_index]}% + \fi + \fi + \aa_ajoute_au_toks&% + \fi + }% + \aa_ajoute_au_toks\cr + }% + \aa_ajoute_au_toks\crcr + \aa_insere_espacement_avant + \ifcase\aa_consigne_alignement_vertical\relax + \or + \let\aa_boite_externe\vcenter + \csname\ifmmode loi_identity\else aa_compose_en_mode_math\fi\expandafter\endcsname + \or + \let\aa_boite_externe\vtop + \expandafter\loi_identity + \or + \let\aa_boite_externe\vbox + \expandafter\loi_identity + \fi + {\aa_boite_externe{% + \aa_corrige_baselineskip + \baselineskip\aa_v_coeff\baselineskip + \halign\expandafter{\the\aa_liste_tokens}% + }% + }% + \aa_insere_espacement_apres + \endgroup + \ifnum`{=0\fi\iffalse}\fi +} +\aavcoeff{1}% par défaut +\aa_restaure_catcode +\endinput + +v1.0 01/09/2016 + - première version publique +v1.1 06/10/2016 + - correction d'un bug dans \autoaligne_iii qui mangeait le + \endgroup final +v1.2 22/10/2016 + - possibilité de définir les séparateurs + - possibilité de définir les espaces additionnelles + autour des séparateurs + - possibilité de définir les espaces insérées avant et + après l'alignement +v1.3 11/02/2017 + - le \iffalse{\fi\ifnum0=`}\fi n'est pas équilibré par + \ifnum`{=0\fi\iffalse}\fi ce qui provoque un bug lorsque + \autoaligne est appelé dans un alignement +v1.4 05/11/2018 + - \+ et \- sont \outer pour plain-TeX et les redéfinir + provoquait un bug + - pour LaTeX seulement, lorsque \baselineskip est nul, on + prend \normalbaselineskip + - nouveaux noms des macros privées de listofitems pris en compte \ No newline at end of file -- cgit v1.2.3