hlist (8aug17)

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

2 files changed, 20 insertions, 240 deletions

diff --git a/Master/texmf-dist/tex/generic/hlist/hlist.sty b/Master/texmf-dist/tex/generic/hlist/hlist.sty
index 71b2bb70f29..b122bbd7f74 100644
--- a/Master/texmf-dist/tex/generic/hlist/hlist.sty
+++ b/Master/texmf-dist/tex/generic/hlist/hlist.sty
@@ -1,6 +1,7 @@
 % !TeX encoding = ISO-8859-1
 \input hlist.tex
+\ProvidesPackage{hlist}[\hlstdate\space v\hlstver\space Horizontal lists (CT)]
 \setKVdefault[hlist]{
-	pre label     = \bfseries,% code exécuté au début de la boite contenant le label
+	pre label     = \bfseries% code exécuté au début de la boite contenant le label
 }
 \endinput
\ No newline at end of file
diff --git a/Master/texmf-dist/tex/generic/hlist/hlist.tex b/Master/texmf-dist/tex/generic/hlist/hlist.tex
index 2afdd6ac529..1ded7bfb69f 100644
--- a/Master/texmf-dist/tex/generic/hlist/hlist.tex
+++ b/Master/texmf-dist/tex/generic/hlist/hlist.tex
@@ -1,15 +1,15 @@
 % !TeX encoding = ISO-8859-1
 % Ce fichier contient le code commenté de l'extension "hlist"
 %
-% IMPORTANT : pour que les commentaires s'affichent correctement, lire
-%             ce fichier avec l'encodage ISO-8859-1
+% IMPORTANT : pour que les commentaires s'affichent correctement,
+%             ouvrir ce fichier avec l'encodage ISO-8859-1
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                    %
 \def\hlstname                   {hlist}                              %
-\def\hlstver                     {0.1}                               %
+\def\hlstver                     {0.11}                              %
 %                                                                    %
-\def\hlstdate                 {2017/05/01}                           %
+\def\hlstdate                 {2017/08/08}                           %
 %                                                                    %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
@@ -27,9 +27,11 @@
 % This work has the LPPL maintenance status `maintained'.
 %
 % The Current Maintainer of this work is Christian Tellechea
-% email: unbonpetit@openmailbox.org
+% email: unbonpetit@netc.fr
 %        Commentaires, suggestions et signalement de bugs bienvenus !
 %        Comments, bug reports and suggestions are welcome.
+% Package URL: https://www.ctan.org/pkg/hlist
+% Copyright: Christian Tellechea 2017
 % --------------------------------------------------------------------
 % L'extension hlist est composée des 9 fichiers suivants :
 %   - code               : hlist            (.tex et .sty)
@@ -39,6 +41,9 @@
 %   - fichier lisezmoi   : README
 % --------------------------------------------------------------------
 
+\begingroup
+	\ifdefined\skvname\let\hlsttmp\endgroup\else\def\hlsttmp{\endgroup\input simplekv.tex}\fi
+\hlsttmp\relax
 \expandafter\edef\csname hlst_restorecatcode\endcsname{\catcode`\noexpand\_=\the\catcode`\_\relax}
 \catcode`\_11
 
@@ -55,15 +60,14 @@
 
 % Voici les macros habituelles de sélection d'arguments
 \def\hlst_gobarg#1{}
-\long\def\hlst_first#1#2{#1}\long\def\hlst_second#1#2{#2}
+\long\def\hlst_first#1#2{#1}
+\long\def\hlst_second#1#2{#2}
 \long\def\hlst_firsttonil#1#2\_nil{#1}
 
 % Voici la macro pour 1-développer ou 2-développer le 2e argument (le 1er étant
 % dépouillé des accolades)
 %     \hlst_exparg{<a>}{<b>} devient <a>{<b>}
-%     \hlst_eearg{<a>}{<b>} devient <a>{**<b>}
 \long\def\hlst_exparg#1#2{\expandafter\hlst_exparg_i\expandafter{#2}{#1}}%
-\long\def\hlst_eearg#1#2{\expandafter\expandafter\expandafter\hlst_exparg_i\expandafter\expandafter\expandafter{#2}{#1}}%
 \long\def\hlst_exparg_i#1#2{#2{#1}}
 
 % Et la macro pour 1-développer le 2e argument (le 1er et le 2e argument sont
@@ -72,12 +76,6 @@
 \long\def\hlst_expafter#1#2{\expandafter\hlst_expafter_i\expandafter{#2}{#1}}
 \long\def\hlst_expafter_i#1#2{#2#1}
 
-% Enfin, la macro pour former le nom du 2e argument (le 1er est dépouillé des
-% accolades)
-%     \hlst_argcsname{<a>}{<b>} devient <a>\<b>
-\def\hlst_argcsname#1#{\hlst_argcsname_i{#1}}
-\def\hlst_argcsname_i#1#2{\hlst_expafter{#1}{\csname#2\endcsname}}
-
 %################################################
 %################ macros de test ################
 %################################################
@@ -87,7 +85,6 @@
 \long\def\hlst_ifx#1{\ifx#1\expandafter\hlst_first\else\expandafter\hlst_second\fi}
 \long\def\hlst_ifempty#1{\hlst_exparg\hlst_ifx{\expandafter\relax\detokenize{#1}\relax}}
 \def\hlst_ifstar#1#2{\def\hlst_ifstar_i{\hlst_ifx{*\hlst_nxttok}{\hlst_first{#1}}{#2}}\futurelet\hlst_nxttok\hlst_ifstar_i}
-\def\hlst_eaddtomacro#1#2{\hlst_exparg{\hlst_exparg{\def#1}}{\expandafter#1#2}}
 
 % Ici, une macro pour définir le token <espace>
 \def\hlst_deftok#1#2{\let#1= #2\relax}\hlst_deftok\hlst_sptok{ }
@@ -101,225 +98,6 @@
 		{\hlst_ifx{\_futurtok\hlst_toktotest}\__truecode\__falsecode}%
 }
 
-% Ces macros sont utiles pour \hlst_removeextremespaces, qui retire les
-% espaces extrêmes de son argument
-%     Voir codes 320-324 (http://progtex.fr/wp-content/uploads/2014/09/code.txt)
-%     et pages 339-343 de "Apprendre à programmer en TeX"
-\long\def\hlst_ifspacefirst#1{\expandafter\hlst_ifspacefirst_i\detokenize{#10} \_nil}
-\long\def\hlst_ifspacefirst_i#1 #2\_nil{\hlst_ifempty{#1}}
-\expandafter\def\expandafter\hlst_gobspace\space{}
-\def\hlst_removefirstspaces{\romannumeral\hlst_removefirstspaces_i}
-\long\def\hlst_removefirstspaces_i#1{\hlst_ifspacefirst{#1}{\expandafter\hlst_removefirstspaces_i\expandafter{\hlst_gobspace#1}}{\hlst_stop#1}}
-\begingroup
-	\catcode0 12
-	\long\gdef\hlst_removelastspaces#1{\romannumeral\hlst_removelastspaces_i#1^^00 ^^00\_nil}
-	\long\gdef\hlst_removelastspaces_i#1 ^^00{\hlst_removelastspaces_ii#1^^00}
-	\long\gdef\hlst_removelastspaces_ii#1^^00#2\_nil{\hlst_ifspacefirst{#2}{\hlst_removelastspaces_i#1^^00 ^^00\_nil}{\hlst_stop#1}}
-\endgroup
-\long\def\hlst_removeextremespaces#1{%
-	\romannumeral\expandafter\expandafter\expandafter\hlst_removelastspaces\expandafter\expandafter\expandafter
-	{\expandafter\expandafter\expandafter\hlst_stop\hlst_removefirstspaces{#1}}%
-}
-
-%################################################
-%############## système clé/valeur ##############
-%################################################
-% Ceci est le booléen indiquant si la lecture de <clés>=<valeurs> définit les
-% <clés> _par défaut_ ou qu'il s'agit d'une _redéfinition_ des <clés> déjà
-% existantes
-\newif\ifhlst_default
-
-% macros chapeau appelant la même macro avec le booléen préalablement défini
-\def\setKVdefault{\hlst_defaulttrue\hlst_readKV}
-\def\setKV{\hlst_defaultfalse\hlst_readKV}
-
-% L'argument obligatoire #1 est le nom du <trousseau> et #2 est l'ensemble
-% des <clés>=<valeurs>
-\def\hlst_readKV[#1]#2{%
-	\hlst_ifempty{#2}
-% Si aucune <clés>=<valeurs> alors qu'on définit les <valeurs> par défaut,
-% message d'erreur et on s'arrête là
-		{\ifhlst_default\errmessage{No key/val found, no default key/val defined}\fi}
-% Sinon, initialiser à <vide> la macro \hlst_[<trousseau>] uniquement si on
-% créé les <valeurs> par défaut
-		{\ifhlst_default\hlst_argcsname\let{hlst_[#1]}\empty\fi
-% Puis on passe aux choses sérieuses, on va lire un par un tous les éléments
-% <clé>=<valeur> (contenus dans #2) en mettant le quark comme dernier couple
-% pour montrer la fin de la liste
-		\hlst_readKV_i[#1]#2,\hlst_quark,%
-		}%
-}
-
-\def\hlst_readKV_i[#1]#2,{%
-% #2 est le premier couple "<clé>=<valeur>" de la liste qui reste à traiter :
-% tout d'abord, on se débarrasse des espaces extrêmes
-	\hlst_eearg{\def\__temp}{\hlst_removeextremespaces{#2}}%
-% Si ce qui en résulte est égal au <quark>,
-	\hlst_ifx{\__temp\hlst_quark}
-% alors, on a fini et on ne fait rien (fin du processus)
-		{}
-% Sinon, si ce qui en résulte est vide (le couple "<clé>=<valeur>" était donc
-% vide ou composé d'un espace)
-		{\hlst_ifx{\__temp\empty}
-% On a fini et on ne fait rien (fin du processus)
-			{}
-% dans le cas contraire, on va isoler la <clé> et la <valeur> du couple lu en
-% prenant soin de mettre à la fin "=<quark>" pour se prémunir du cas où
-% "<clé>=<valeur>" ne contient que la "<clé>" et pas de signe "=", ce qui
-% ferait planter la macro à arguments délimités
-			{\expandafter\hlst_find_kv\__temp=\hlst_quark\_nil[#1]%
-			}%
-% Lorsque la <clé> et la <valeur> est trouvée et stockée, recommencer et aller
-% lire le prochain couple "<clé>=<valeur>"
-		\hlst_readKV_i[#1]%
-		}%
-}
-
-% Voici la macro à arguments délimités à qui on a transmis
-%     <clé>=<valeur>=<quark> (si <clé>=<valeur> est l'élément lu)
-% ou
-%     <clé>=<quark> (si <clé> est seule)
-% et qui va isoler la <clé> de la <valeur>.
-\def\hlst_find_kv#1=#2\_nil[#3]{%
-% #1 est ce qui se trouve avant le _premier_ signe "=" et
-% #2 est ce qui se trouve entre le premier signe "=" et le \_nil
-% Pour la <clé>, pas de problème, c'est _obligatoirement_ ce qui est avant le
-% signe "=", que ce signe soit présent dans le couple lu ou pas puisqu'on y a
-% rajouté "=<quark>".
-% On élimine les espaces extrêmes pour obtenir la <clé> définitive stockée dans
-% \__key (il faut 2-développer \hlst_removeextremespaces pour qu'elle donne son
-% argument sans espace extrême)
-	\edef\__key{\detokenize\expandafter\expandafter\expandafter{\hlst_removeextremespaces{#1}}}%
-% Pour la <valeur>, on lui ôte d'abord les espaces extrêmes
-	\hlst_eearg{\def\__val}{\hlst_removeextremespaces{#2}}%
-	\hlst_ifx{\__val\hlst_quark}
-% Si elle est égale au <quark>, alors la <valeur> vaut "true"
-		{\def\__val{true}}%
-% Sinon, ôter "=<quark>" de la fin de l'argument #2, éliminer les espaces
-% extrêmes de ce qui en résulte et stocker le tout dans \__val (tout ceci est
-% effectué par la macro \hlst_find_val <valeur>=<quark>)
-		{\hlst_find_val#2}%
-% Si on lit les <clés>=<valeurs> par défaut,
-	\ifhlst_default
-% assigner à la macro "\hlst_[<trousseau>]_<clé>" la <valeur> trouvée
-		\hlst_argcsname\let{hlst_[#3]_\detokenize\expandafter{\__key}}\__val
-% Puis ajouter à la macro "\hlst_[<trousseau>]", qui a été préalablement
-% initialisée à <vide> :
-%     \def\hlst_[<trousseau>]_<clé>{<valeur>}
-		\hlst_argcsname\hlst_eaddtomacro{hlst_[#3]}%
-			{\expandafter\def\csname hlst_[#3]_\detokenize\expandafter{\__key}\expandafter\endcsname\expandafter{\__val}}%
-% C'est selon ce hashage que sont enregistrés les couples <clé>/<valeur> : les
-% <clés> sont contenues dans les noms des macros tandis que les <valeurs> sont
-% les textes de remplacement de ces macros.
-% C'est rapide et simple :
-%    a)  pour trouver une <valeur> d'après sa <clé>, il suffit de développer la
-%        macro \hlst_[<trousseau>]_<clé>
-%    b) pour redéfinir une <clé>, il suffit de redéfinir cette macro avec la
-%       nouvelle <valeur>
-%    c) il est facile de vérifier qu'une <clé> existe en vérifiant que la macro
-%       associée est définie, la primitive \ifcsname le fait très bien
-%    d) en revanche, on ne peut pas faire de recherche _inverse_ de façon
-%       pratique : il est en effet plus difficile de trouver la (ou les) <clé>
-%       contenant une <valeur> donnée, mais cette limitation n'a pas grande
-%       importance ici (je ne sais pas si les autres systèmes de <clé>/<valeur>
-%       sont programmés de telle sorte que cela soit simple...)
-% Bref, la macro "\hlst_[<trousseau>]" contient donc _toutes_ les définitions
-% des macros définissant les <clés>/<valeurs> _par défaut_ et exécuter 
-% "\hlst_[<trousseau>]" remet donc toutes les <clés> à leur <valeur> par défaut.
-	\else
-% Dans le cas où on _lit_ des nouvelles <valeurs> pour des <clés>
-		\hlst_ifcsname{hlst_[#3]_\__key}
-% Si la <clé> existe (ssi la macro "\hlst_[<trousseau>]_<clé>" est définie),
-% alors assigner la <valeur> à cette macro
-			{\hlst_argcsname\let{hlst_[#3]_\__key}\__val}%
-% Sinon, émettre un message d'erreur et ne rien faire de plus
-			{\errmessage{Key "\__key" is not defined: nothing is modified}}%
-	\fi
-}
-
-% Cette macro à qui on a transmis "<valeur>=<quark>" ne garde que <valeur>, en
-% ôte les espaces extrêmes et stocke le résultat dans \__val
-\def\hlst_find_val#1=\hlst_quark{\hlst_eearg{\def\__val}{\hlst_removeextremespaces{#1}}}
-
-% Cette macro remet toutes les <clés> à leur <valeurs> par défaut en exécutant
-% la macro "\hlst_[<trousseau>]"
-\def\useKVdefault[#1]{%
-	\hlst_ifcsname{hlst_[#1]}
-		{\csname hlst_[#1]\endcsname}
-% Si la macro "\hlst_[<trousseau>]" n'existe pas, message d'erreur
-		{\errmessage{Undefined set of keys "#1"}}%
-}
-
-% Cette macro donne la <valeur> correspondant à la <clé> contenue dans #2
-\def\useKV[#1]#2{%
-% Avec \romannumeral, la <valeur> sera obtenue après _2_ développements de
-% \useKV[<trousseau>]{<clé>}
-	\romannumeral\hlst_ifempty{#2}
-% Si la <clé> est vide, message d'erreur (il ne peut y avoir de <valeur>
-% associée à une <clé> vide)
-		{\hlst_stop\errmessage{Key name missing}}
-		{\hlst_ifcsname{hlst_[#1]_\hlst_removeextremespaces{#2}}
-% Si la macro "\hlst_[<trousseau>]_<clé>" existe, 2-développer le \csname pour
-% avoir la <valeur>
-			{\expandafter\expandafter\expandafter\hlst_stop\csname hlst_[#1]_\hlst_removeextremespaces{#2}\endcsname}
-% Sinon, message d'erreur
-			{\hlst_stop\errmessage{Key "\hlst_removeextremespaces{#2}" not defined}}%
-		}%
-}
-
-% Voici une macro purement développable qui teste si #2 (la <clé> du <trousseau>
-% #1) est égale à "true" ou à "false" et selon l'issue, exécute le 1er ou 2e
-% argument qui suit (arguments appelés <vrai> et <faux>)
-\def\ifboolKV[#1]#2{%
-% Cette macro donnera un des 2 arguments <vrai> ou <faux> en _2_ développements
-% grâce au \romannumeral
-	\romannumeral\hlst_ifempty{#2}
-% Si la <clé> est vide, message d'erreur
-		{\hlst_stop\errmessage{Key name missing}\hlst_second}
-		{\hlst_ifcsname{hlst_[#1]_\hlst_removeextremespaces{#2}}
-% Si la <clé> débarrassée de ses espaces extrêmes existe, tester son contenu
-			{\hlst_eearg\ifboolKV_i{\csname hlst_[#1]_\hlst_removeextremespaces{#2}\endcsname}}
-% Sinon, message d'erreur
-			{\hlst_stop\errmessage{Key "\hlst_removeextremespaces{#2}" not defined}\hlst_second}%
-		}%
-}
-
-% Cette macro teste si #1, qui est une <valeur>, vaut "true" ou "false"
-\def\ifboolKV_i#1{%
-% Tester d'abord si elle vaut "true"
-	\hlst_ifargtrue{#1}
-		{\expandafter\hlst_stop\hlst_first}
-		{\hlst_ifargfalse{#1}
-% Puis si elle vaut "false"
-			{\expandafter\hlst_stop\hlst_second}
-% Si ni l'un ni l'autre, la <valeur> n'est pas un booléen acceptable
-			{\hlst_stop\errmessage{Value "#1" is not a valid boolean}\hlst_second}%
-		}%
-}
-
-% La macro \hlst_ifargtrue{<argument>} teste de façon purement développable si
-% <argument> vaut "true" ou "false".
-% Pour cela, on transmet à \hlst_ifargtrue_i l'argument "<argument>true" qui est
-% délimité par \_nil
-\def\hlst_ifargtrue#1{\hlst_ifargtrue_i#1true\_nil}
-% Dans la macro \hlst_ifargtrue_i, l'argument #1 est ce qui se trouve avant
-% "true" dans "<argument>true" :
-%     - s'il n'est pas vide, sélectionner l'argument <faux>
-%     - s'il est vide, cela signifie que <argument> commence par "true" ; il est
-%       donc de la forme "true<autre>"
-%       L'argument #2 est ce qui se trouve après "true" dans "true<autre>true",
-%       c'est donc "<autre>true".
-%       Pour être sûr que <autre> est <vide>, on transmet "<autre>true" à
-%       \hlst_ifargtrue_ii qui teste si la réunion de ce qui est avant le
-%       premier "true" et ce qui est après est <vide>
-\def\hlst_ifargtrue_i#1true#2\_nil{\hlst_ifempty{#1}{\hlst_ifargtrue_ii#2\_nil}\hlst_second}
-\def\hlst_ifargtrue_ii#1true#2\_nil{\hlst_ifempty{#1#2}}
-
-% On procède de même pour tester "false"
-\def\hlst_ifargfalse#1{\hlst_ifargfalse_i#1false\_nil}
-\def\hlst_ifargfalse_i#1false#2\_nil{\hlst_ifempty{#1}{\hlst_ifargfalse_ii#2\_nil}\hlst_second}
-\def\hlst_ifargfalse_ii#1false#2\_nil{\hlst_ifempty{#1#2}}
-
 %################################################
 %############### macros de  hlist ###############
 %################################################
@@ -511,7 +289,7 @@
 	\hlst_ifcsname{c@\detokenize{#1}}
 % Donner le nombre arabe avec \number, sinon, message d'erreur
 		{\number\csname c@\detokenize{#1}\endcsname}
-		{\errmessage{Unkonwn counter named "\detokenize{#1}"}}%
+		{\errmessage{Unknown counter named "\detokenize{#1}"}}%
 }
 % Ensuite, ces macros convertissent un <nombre> en nombre romain ou en lettre,
 % avec choix de la casse
@@ -569,7 +347,7 @@
 % Ensuite on peut trouver (<multicol>) et/ou [<label>] dans n'importe quel ordre
 \def\hitem_i#1#2(#3)[#4]{%
 	\hlst_ifnxttok\hlst_sptok
-		{\def\__temp{\hitem_i#1#2(#3)[#4]}\expandafter\__temp\hlst_gobspace}
+		{\def\__temp{\hitem_i#1#2(#3)[#4]}\expandafter\__temp\skv_gobspace}
 		{\hitem_ii#1#2(#3)[#4]}%
 }
 
@@ -582,8 +360,7 @@
 % si ce n'est _pas_ le 1er de la liste
 	\hlst_ifnum{\hlst_colcnt>0 }
 % Exécuter la routine de fin d'item
-		{\hlst_enditem
-		}
+		{\hlst_enditem}
 % Sinon, fermer la boite ouverte par \hlist
 		{\egroup
 % Si toutes ses dimensions ne sont pas nulles, message d'erreur
@@ -594,7 +371,7 @@
 		\hlst_maxdepth0pt \hlst_maxprevdepth0pt
 		}%
 % Incrémenter le compteur de label associé à cette imbrication
-	\hlst_argcsname\global\advance{c@hlist\romannumeral\hlst_nest} 1
+	\expandafter\global\expandafter\advance\csname c@hlist\romannumeral\hlst_nest\endcsname 1
 % Incrémenter le compteur de colonnes du nombre de colonnes sautées précédemment
 	\advance\hlst_colcnt\hlst_askedmulticol\relax
 % Si "*", mettre le compteur de colonnes au maximum pour forcer retour à la
@@ -836,3 +613,5 @@ Versions :
 |-----------------------------------------------------------------------------|
 |   0.1   | 01/05/2017 | Première version                                     |
 |-----------------------------------------------------------------------------|
+|   0.11  | 08/08/2017 | Chargement de simpleKV                               |
+|-----------------------------------------------------------------------------|