summaryrefslogtreecommitdiff
path: root/macros/generic
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2023-10-03 03:01:05 +0000
committerNorbert Preining <norbert@preining.info>2023-10-03 03:01:05 +0000
commit75afa6c3d445abbfd4e8c0cb9d2d24eb4d1b71fe (patch)
treebe5945dc96693dc01b26eb16df1472a193fdf93c /macros/generic
parent5f9c1e9c3c9b2ac59c6f868744ee6fafee27ab39 (diff)
CTAN sync 202310030301
Diffstat (limited to 'macros/generic')
-rw-r--r--macros/generic/simplekv/README4
-rw-r--r--macros/generic/simplekv/simplekv-fr.pdfbin126106 -> 138067 bytes
-rw-r--r--macros/generic/simplekv/simplekv-fr.tex14
-rw-r--r--macros/generic/simplekv/simplekv.tex165
4 files changed, 126 insertions, 57 deletions
diff --git a/macros/generic/simplekv/README b/macros/generic/simplekv/README
index 429e2f88d2..836d94a2bb 100644
--- a/macros/generic/simplekv/README
+++ b/macros/generic/simplekv/README
@@ -3,9 +3,9 @@ ___________________________________
L'extension
simplekv
- v0.2a
+ v0.2c
- 1er octobre 2022
+ 2 octobre 2023
___________________________________
Authors : Christian Tellechea
diff --git a/macros/generic/simplekv/simplekv-fr.pdf b/macros/generic/simplekv/simplekv-fr.pdf
index 8ef85109e1..d505971bb3 100644
--- a/macros/generic/simplekv/simplekv-fr.pdf
+++ b/macros/generic/simplekv/simplekv-fr.pdf
Binary files differ
diff --git a/macros/generic/simplekv/simplekv-fr.tex b/macros/generic/simplekv/simplekv-fr.tex
index 70290c7fb7..6ebe3e89b0 100644
--- a/macros/generic/simplekv/simplekv-fr.tex
+++ b/macros/generic/simplekv/simplekv-fr.tex
@@ -1,7 +1,6 @@
% !TeX TS-program = lualatex
% !TeX encoding = UTF-8
% Ceci est la documentation du package "simplekv"
-%
\documentclass[french,a4paper,10pt]{article}
\usepackage[utf8]{inputenc}
\usepackage[margin=2cm]{geometry}
@@ -130,7 +129,7 @@
Cette petite extension se veut minimaliste. Trop sans doute puisqu'on ne la juge pas au niveau d'autres, jugées plus « \href{https://tex.stackexchange.com/questions/560014/}{sérieuses}\footnote{C'est ainsi que Joseph Wright, qu'il ne faut prier pour me savonner la planche, la qualifie. C'est que sur TeX.stackexchange, on est entre-soi, c'est-à-dire entre experts raisonnables qui savent de quoi ils parlent. On fait mine de s'étonner et on réprimande, tel un enfant qui ne sait pas ce qu'il fait, un utilisateur qui vient s'enquérir du fonctionnement de simplekv ! Ce genre de sous-package est mal vu et indésirable là bas, il faut vite faire rentrer dans le rang la brebis égarée.}.»
-Quoiqu'il en soit, simplekv a le mérite d'exister et se veut à l'opposé des usines à gaz que l'on peut trouver dans cet exercices de style. Elle est écrite en \TeX{}, fonctionne donc sous tous les moteurs et ne requiert aucun package.
+Quoiqu'il en soit, simplekv a le mérite d'exister et se place à l'opposé des usines à gaz que l'on peut trouver dans cet exercice de style. Elle est écrite en \TeX{}, fonctionne donc sous tous les moteurs et ne requiert aucun package.
\section{Clés, valeurs}
Lorsqu'une macro doit recevoir des paramètres dont le nombre n'est pas fixe ou connu, il est commode de procéder par \<clés> et \<valeurs>.
@@ -161,9 +160,10 @@ On écrit
Il faut noter que
\begin{itemize}
- \item l'argument entre accolades contenant les \<clés> et les \<valeurs> ne devrait pas être vide, sauf à vouloir définir une \<clé> booléenne vide égale à \texttt{true};
+ \item un ensemble \<clé>=\<valeur> réduit à 0 caractère après suppression des espaces est ignoré;
\item lors de la lecture des \<clés>/\<valeurs>, la virgule et le signe égal doivent avoir un catcode de 12 sans quoi ils ne seront pas compris comme frontières entre \<clés> et \<valeurs> et ne joueront pas leur rôle;
- \item le nom du \<trousseau>, bien qu'entre crochet, est \emph{obligatoire}, mais il peut être vide bien que cela ne soit pas conseillé;
+ \item le nom du \<trousseau>, bien qu'entre crochets, est \emph{obligatoire}, mais il peut être vide bien que cela ne soit pas conseillé;
+ \item les espaces autour du nom du \<trousseau> ne sont \emph{pas} retirés et donc le trousseau «\verb|foo|» n'est pas le même que le trousseau «\verb*|foo |»
\item si une même \<clé> figure plusieurs fois, la \<valeur> retenue sera celle de la dernière assignation;
\item les \<valeurs> peuvent être booléennes auquel cas, elles \emph{doivent} être «\texttt{true}» ou «\texttt{false}» en caractères de catcode 11;
\item si une \<valeur> est omise, elle est comprise comme étant «\texttt{true}». Ainsi, écrire
@@ -199,16 +199,16 @@ Cette macro permet, selon la valeur d'une \<clé booléenne>, d'exécuter un des
La macro est purement développable, elle nécessite 2 développements pour donner l'un des deux codes, et exige que la \<clé> soit booléenne sans quoi un message d'erreur est émis.
\paragraph{La macro \texttt{\char`\\showKV}}
-Cette commande écrit dans le fichier \texttt{log} la \<valeur> assignée à une \<clé> d'un \<trousseau>:
+Cette commande écrit dans le fichier \texttt{log} la \<valeur> et le \<code> assignés à une \<clé> d'un \<trousseau>:
\code|\showKV[<trousseau>]{<clé>}|
-Si la \<clé> n'est pas définie, «\texttt{not defined}» est affiché dans le fichier log.
+Si la \<clé> n'est pas définie, «\texttt{not defined}» est affiché dans le fichier log. Il en est de même pour le \<code>.
\section{Code}
En plus d'une \<valeur>, un \<code> arbitraire peut être assigné à n'importe quelle \<clé>. Pour ce faire, on écrit
\begin{center} \verb|\defKV[<trousseau>]{<clé 1>=<code 1>,<clé 2>=<code 2>,...,<clé n>=<code n>}|
\end{center}
-Chaque \<code> peut contenir \verb|#1| qui représente la \<valeur> de la \<clé>. Ce \<code> est exécuté lorsque une \<valeur> est assignée à la \<clé> avec \verb|\setKV|, \verb|\setKVdefault| ou \verb|\restoreKV|.
+Chaque \<code> peut contenir «\verb|#1|» qui représente la \<valeur> de la \<clé>. Ce \<code> est exécuté lorsque une \<valeur> est assignée à la \<clé> avec \verb|\setKV|, \verb|\setKVdefault| ou \verb|\restoreKV|.
\bigbreak
Ainsi déclarer
diff --git a/macros/generic/simplekv/simplekv.tex b/macros/generic/simplekv/simplekv.tex
index 3f7422478a..bc811b2e8f 100644
--- a/macros/generic/simplekv/simplekv.tex
+++ b/macros/generic/simplekv/simplekv.tex
@@ -4,9 +4,9 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
\def\skvname {simplekv} %
-\def\skvver {0.2a} %
+\def\skvver {0.2c} %
% %
-\def\skvdate {2022/10/01} %
+\def\skvdate {2023/10/02} %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
@@ -27,7 +27,7 @@
% email: unbonpetit@netc.fr
% Commentaires, suggestions et signalement de bugs bienvenus !
% Comments, bug reports and suggestions are welcome.
-% Copyright: Christian Tellechea 2017-2022
+% Copyright: Christian Tellechea 2017-2023
% --------------------------------------------------------------------
% L'extension simplekv est composée des 5 fichiers suivants :
% - code : simplekv (.tex et .sty)
@@ -73,7 +73,9 @@
\long\def\skv_stripsp_i##1\_marksp#1##2\_marksp##3\_nil{\skv_stripsp_ii##3##1##2\__nil#1\__nil\_nil}%
\long\def\skv_stripsp_ii##1#1\__nil##2\_nil{\skv_stripsp_iii##1##2\_nil}%
\long\def\skv_stripsp_iii##1##2\__nil##3\_nil##4{\unexpanded{##4{##2}}}%
-}\skv_stripsp{ }
+}
+\skv_stripsp{ }
+\def\skv_error#1{\errmessage{Package \skvname\space Error: #1.}}
%##########################################
%########## Macros de définition ##########
%##########################################
@@ -81,14 +83,22 @@
\def\setKV {\let\skv_find_kv_ii\skv_find_kv_nocode\skv_readKV\skv_gob}
\def\defKV {\let\skv_find_kv_ii\skv_find_kv_code \skv_readKV\skv_gob}
\long\def\skv_readKV#1[#2]#3{%
- #1{\expandafter\def\csname skv_[#2]\endcsname{#3}}% exécute (si \defKVdefault) ou pas
- \def\skv_setname{#2}%
- \skv_readKV_i#3,\__,%
+ #1{\expandafter\def\csname skv_[#2]\endcsname{#3}}% exécute (si \setKVdefault) ou pas
+ \def\skv__currentname{#2}%
+ \skv_readKV_i#3,\skv_end,%
+}
+\long\def\skv_readKV_i#1,{%
+ \skv_stripsp\skv_ifempty{#1}% Bugfix 0.2c : on ignore un truc vide entre 2 virgules
+ {%
+ \skv_readKV_i
+ }
+ {%
+ \skv_readKV_ii\skv_find_kv#1=true=\_nil\skv_find_kv\skv_end\__nil% si #1=\skv_end ne rien faire sinon \skv_find_kv#1=true=\_nil
+ }%
}
-\long\def\skv_readKV_i#1,{\skv_readKV_ii\skv_find_kv#1=true=\_nil\skv_find_kv\__\__nil}% si #1=\__ ne rien faire sinon \skv_find_kv#1=true=\_nil
-\long\def\skv_readKV_ii#1\skv_find_kv\__#2\__nil{#1}
+\long\def\skv_readKV_ii#1\skv_find_kv\skv_end#2\__nil{#1}
\long\def\skv_find_kv#1={%
- \edef\__key{_[\skv_setname]_\skv_stripsp\detokenize{#1}}%
+ \edef\skv__currentkey{_[\skv__currentname]_\skv_stripsp\detokenize{#1}}%
\skv_find_kv_i{}%
}
\long\def\skv_find_kv_i#1=#2\_nil{%
@@ -96,18 +106,22 @@
\skv_readKV_i
}
\long\def\skv_find_kv_nocode#1{%
- \expandafter\def\csname skv\__key\endcsname{#1}% stocker la valeur
- \ifcsname skvcode\__key\endcsname
- \skv_antefi\csname skvcode\__key\endcsname{#1}%
+ \expandafter\def\csname skv\skv__currentkey\endcsname{#1}% stocker la valeur
+ \ifcsname skvcode\skv__currentkey\endcsname
+ \skv_antefi\csname skvcode\skv__currentkey\endcsname{#1}%
\fi
}
\long\def\skv_find_kv_code{%
- \expandafter\def\csname skvcode\__key\endcsname##1%
+ \expandafter\def\csname skvcode\skv__currentkey\endcsname##1%
}
\def\restoreKV[#1]{%
\skv_ifcsname{skv_[#1]}
- {\skv_eearg{\setKV[#1]}{\csname skv_[#1]\endcsname}}
- {\errmessage{Undefined or not saved set of keys "#1"}}%
+ {%
+ \skv_eearg{\setKV[#1]}{\csname skv_[#1]\endcsname}%
+ }
+ {%
+ \skv_error{Undefined or not saved set of keys "#1"}%
+ }%
}
\let\useKVdefault\restoreKV
%##########################################
@@ -115,10 +129,11 @@
%##########################################
\def\useKV[#1]{\romannumeral\skv_stripsp{\useKV_i[#1]}}
\def\useKV_i[#1]#2{%
- \ifcsname skv_[#1]_#2\endcsname
- \expandafter\expandafter\expandafter\skv_stop\csname skv_[#1]_#2\expandafter\endcsname
+ \ifcsname skv_[#1]_\detokenize{#2}\endcsname
+ \expandafter\expandafter\expandafter\skv_stop\csname skv_[#1]_\detokenize{#2}\expandafter\endcsname
\else
- \skv_stop\errmessage{Key "#2" not defined in group of keys "#1"}%
+ \skv_stop
+ \skv_error{Key "\detokenize{#2}" not defined in group of keys "#1"}%
\fi
}
%##########################################
@@ -126,54 +141,100 @@
%##########################################
\def\ifboolKV[#1]{\romannumeral\skv_stripsp{\ifboolKV_i[#1]}}
\def\ifboolKV_i[#1]#2{%
- \skv_ifempty{#2}
- {\skv_stop\errmessage{Empty argument is not a valid boolean}\skv_second
- }
- {\skv_ifcsname{skv_[#1]_#2}
- {\skv_eearg\ifboolKV_ii{\csname skv_[#1]_#2\endcsname}}
- {\skv_stop\errmessage{Key "#2" not defined}\skv_second}%
- }%
+ \ifcsname skv_[#1]_\detokenize{#2}\endcsname
+ \expandafter\expandafter\expandafter\ifboolKV_ii\csname skv_[#1]_\detokenize{#2}\expandafter\endcsname
+ \expandafter\ifboolKV_ii
+ \else
+ \skv_stop
+ \skv_error{Key "\detokenize{#2}" not defined in group of keys "#1"}%
+ \expandafter\skv_second
+ \fi
}
-\def\ifboolKV_ii#1{%% Cette macro teste si #1, qui est une <valeur>, vaut "true" ou "false"
+\def\ifboolKV_ii#1\ifboolKV_ii{%% Cette macro teste si #1, qui est une <valeur>, vaut "true" ou "false"
\skv_ifargtrue{#1}
- {\expandafter\skv_stop\skv_first
+ {%
+ \expandafter\skv_stop
+ \skv_first
}
- {\skv_ifargfalse{#1}
- {\expandafter\skv_stop\skv_second}
- {\skv_stop\errmessage{Value "#1" is not a valid boolean}\skv_second}%
+ {%
+ \skv_ifargfalse{#1}
+ {%
+ \expandafter\skv_stop
+ \skv_second
+ }
+ {%
+ \skv_stop
+ \skv_error{Value "\detokenize{#1}" is not a valid boolean}%
+ \skv_second
+ }%
}%
}
-\def\testboolKV#1{\romannumeral\skv_stripsp{\testboolKV_i}{#1}}% macro publique qui teste si #1 est <true> ou <false>, erreur sinon
+\def\testboolKV{\romannumeral\skv_stripsp\testboolKV_i}% macro publique qui teste si #1 est <true> ou <false>, erreur sinon
\def\testboolKV_i#1{%
\skv_ifempty{#1}
- {\skv_stop\errmessage{Empty argument is not a valid boolean}\skv_second}
- {\skv_stripsp{\ifboolKV_ii}{#1}}%
+ {%
+ \skv_stop
+ \skv_error{Empty argument is not a valid boolean}
+ \skv_second
+ }
+ {%
+ \ifboolKV_ii#1\ifboolKV_ii
+ }%
}
\def\skv_ifargtrue#1{\skv_ifargtrue_i#1true\_nil}
-\def\skv_ifargtrue_i#1true#2\_nil{\skv_ifempty{#1}{\skv_ifargtrue_ii#2\_nil}\skv_second}
+\def\skv_ifargtrue_i#1true#2\_nil{%
+ \skv_ifempty{#1}
+ {%
+ \skv_ifargtrue_ii#2\_nil
+ }
+ {%
+ \skv_second
+ }%
+}
\def\skv_ifargtrue_ii#1true#2\_nil{\skv_ifempty{#1#2}}
\def\skv_ifargfalse#1{\skv_ifargfalse_i#1false\_nil}
-\def\skv_ifargfalse_i#1false#2\_nil{\skv_ifempty{#1}{\skv_ifargfalse_ii#2\_nil}\skv_second}
+\def\skv_ifargfalse_i#1false#2\_nil{%
+ \skv_ifempty{#1}
+ {%
+ \skv_ifargfalse_ii#2\_nil
+ }
+ {%
+ \skv_second
+ }%
+}
\def\skv_ifargfalse_ii#1false#2\_nil{\skv_ifempty{#1#2}}
%##########################################
%############# Macro \showKV ##############
%##########################################
-\def\showKV[#1]#2{\skv_stripsp{\showKV_i[#1]}{#2}}
+\def\showKV[#1]{\skv_stripsp{\showKV_i[#1]}}
\def\showKV_i[#1]#2{%
+ \edef\skv__currentkey{_[#1]_\detokenize{#2}}%
\immediate\write-1 {%
- ^^JKey\space\space[#1]#2=%
- \skv_ifcsname{skv_[#1]_#2}
- {\expandafter\expandafter\expandafter\skv_show\expandafter
- \meaning\csname skv_[#1]_#2\endcsname
- \skv_ifcsname{skvcode_[#1]_#2}
- {^^JCode [#1]#2=\expandafter\expandafter\expandafter\skv_show\expandafter
- \meaning\csname skvcode_[#1]_#2\endcsname
- }
- {}%
+ ^^J%
+ Key\space\space\detokenize{[#1]#2 -> }%
+ \skv_ifcsname{skv\skv__currentkey}
+ {%
+ \showKV_ii{skv\skv__currentkey}%
+ ^^J%
+ Code \detokenize{[#1]#2 -> }%
+ \skv_ifcsname{skvcode\skv__currentkey}
+ {%
+ \showKV_ii{skvcode\skv__currentkey}%
}
- {not defined%
+ {%
+ not defined%
}%
- ^^J\relax}%
+ }
+ {%
+ not defined%
+ }%
+ ^^J%
+ \relax}%
+}
+\def\showKV_ii#1{%
+ \expandafter\expandafter\expandafter
+ \skv_show\expandafter
+ \meaning\csname#1\endcsname
}
\def\skv_show#1->{}
\skv_restorecatcode
@@ -194,4 +255,12 @@ Versions :
| | | - la valeur n'est dépouillée que d'une accolade (et |
| | | non pas de 2 comme auparavant) |
| | | - quelques petits nettoyages, code en UTF8 |
+|-----------------------------------------------------------------------------|
+| 0.2b | 30/10/2022 | - messages d'erreur mieux formatés |
+| | | - <clé> détokénisée dans \ifboolKV et \showKV pour |
+| | | être cohérent avec \setKV et \useKV |
+|-----------------------------------------------------------------------------|
+| 0.2c | 02/10/2023 | - bug corrigé : si un item <clé=val> est vide, il est|
+| | | ignoré |
+| | | - quelques remaniements du code |
|-----------------------------------------------------------------------------| \ No newline at end of file