systeme (23dec13)

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

1 files changed, 28 insertions, 13 deletions

diff --git a/Master/texmf-dist/tex/generic/systeme/systeme.tex b/Master/texmf-dist/tex/generic/systeme/systeme.tex
index 3a47dffdce1..57569613a46 100644
--- a/Master/texmf-dist/tex/generic/systeme/systeme.tex
+++ b/Master/texmf-dist/tex/generic/systeme/systeme.tex
@@ -1,9 +1,9 @@
 %  __________________________________________________________________
 % |                                                                  |
 % |                                                                  |
-% |                           systeme v0.2b                          |
+% |                           systeme v0.3                           |
 % |                                                                  |
-% |                           23 juin 2011                           |
+% |                       21 d\'ecembre 2013                         |
 % |                                                                  |
 % |__________________________________________________________________|
 %
@@ -15,7 +15,7 @@
 %             sont les bienvenus.
 % Licence   : Released under the LaTeX Project Public License v1.3c or
 %             later, see http://www.latex-project.org/lppl.txt
-% Copyright : Christian Tellechea 2011
+% Copyright : Christian Tellechea 2013
 %
 % Le package "systeme" est constitu\'e de ces 5 fichiers :
 %   systeme.tex (ce fichier)
@@ -50,9 +50,9 @@
 	\def#1%
 }
 
-\SYS@newmacro\SYS@ver        {0.2b}
-\SYS@newmacro\SYS@date       {2011/06/23}
-\SYS@newmacro\SYS@longdate   {23 juin 2011}
+\SYS@newmacro\SYS@ver        {0.3}
+\SYS@newmacro\SYS@date       {2013/12/21}
+\SYS@newmacro\SYS@longdate   {21 d\'ecembre 2013}
 \SYS@newmacro\SYS@packagename{systeme}
 
 \newtoks\SYS@systemecode
@@ -64,6 +64,7 @@
 \newif\ifSYS@extracol
 \newif\ifSYS@autonum
 \newif\ifSYS@followautonum
+\newif\ifSYS@constterm
 
 \newcount\SYSeqnum
 
@@ -252,7 +253,8 @@
 \SYS@newmacro\SYS@assignterm{%
 	\expandafter\SYS@findletter\expandafter{\SYS@currentterm}% trouver le nom de la variable
 	\ifx\SYS@letterfound\@empty
-		\errmessage{Package systeme Error: aucune inconnue trouvee dans ce terme : "\detokenize\expandafter{\SYS@currentterm}" !}%
+		\SYS@consttermtrue
+		\def\SYS@letterfound{const}%
 	\else
 		\ifcsname SYS@term@\detokenize\expandafter{\SYS@letterfound}@\SYS@eqnumber\endcsname
 			\errmessage{Package systeme Error: l'inconnue "\detokenize\expandafter{\SYS@letterfound}" a deja ete trouvee dans l'equation !}%
@@ -436,6 +438,11 @@
 		\edef\SYS@nextaction{\noexpand\SYS@buildsystem{#1}{\number\numexpr#2+1}}%
 		\expandafter\SYS@nextaction
 	\else
+		\ifSYS@constterm
+			\SYS@addtocode{{}}%
+			\expandafter\SYS@expaddtocode\expandafter{\csname SYS@sign@const@#1\endcsname{}&}%
+			\expandafter\SYS@expaddtocode\expandafter{\csname SYS@term@const@#1\endcsname}%
+		\fi
 		\ifcsname SYS@eqsign@#1\endcsname
 			\SYS@addtocode{{}}%
 			\expandafter\SYS@expaddtocode\expandafter{\csname SYS@eqsign@#1\endcsname{}&}%
@@ -535,6 +542,7 @@
 			\SYS@scanletterlist{#1}% ajoute des _{-1} si besoin
 			\SYS@sortvariablefalse
 		\fi
+		\SYS@consttermfalse
 		\expandafter\@testopt\expandafter\SYS@systeme@iii\expandafter{\SYS@defaulteqsep}%
 }
 
@@ -593,7 +601,8 @@
 				\baselineskip\SYS@lineskipcoeff\normalbaselineskip
 				\halign\expandafter\expandafter\expandafter{\expandafter\the\expandafter\SYS@systempreamble\the\SYS@systemecode}%
 				}%
-			\SYS@delim@right}% ...l'afficher en mode math
+			\SYS@delim@right
+			}% ...l'afficher en mode math
 	\endgroup
 	\ifnum0=`{\fi\iffalse}\fi
 	\unless\ifSYS@followautonum
@@ -614,7 +623,10 @@
 		\SYS@addtotok\SYS@systempreamble{\hfil$##$&\hfil$##$&}% une colonne pour le terme et une pour le signe
 		\expandafter\SYS@makesyspreamble@i\expandafter{\number\numexpr#1+\@ne\expandafter}%
 	\else
-		\SYS@addtotok\SYS@systempreamble{\hfil$##$&$##$&$##$\hfil\null}% ajouter 1 colonne pour le signe et une pour le terme de droite
+		\ifSYS@constterm
+			\SYS@addtotok\SYS@systempreamble{\hfil$##$&\hfil$##$&}% une colonne pour le terme constant et son signe
+		\fi
+		\SYS@addtotok\SYS@systempreamble{\hfil$##$&$##$&$##$\hfil\null}% ajouter 1 colonne pour le signe = et une pour le terme de droite
 		\ifSYS@extracol
 			\SYS@addtotok\SYS@systempreamble{&\SYS@extracolstart##\SYS@extracolend\hfil\null}% la colonne suppl\'ementaire (pas de mode math)
 		\fi
@@ -654,10 +666,10 @@
 #                             Historique                             #
 ######################################################################
 
-v0.1        2011/02/27
+v0.1        27/02/2011
 	- Premi\`ere version publique sur le CTAN
 ----------------------------------------------------------------------
-v0.2        2011/03/08
+v0.2        08/03/2011
     - Le premier argument optionnel met en place de nouvelles
       fonctionnalit\'es
     - Possibilit\'e d'avoir des inconnues indic\'ees
@@ -668,9 +680,12 @@ v0.2        2011/03/08
     - Une substitution est possible en fin de traitement, juste
       avant d'afficher le syst\`eme.
 ----------------------------------------------------------------------
-v0.2a       2011/05/15
+v0.2a       15/05/2011
     - Bug corrig\'e lorsque les termes comportent des accolades
 ----------------------------------------------------------------------
 v0.2b       2011/06/23
     - La commande \setdelim permet de modifier les d\'elimiteurs
-      extensibles plac\'es de part et d'autre du syst\`eme.
\ No newline at end of file
+      extensibles plac\'es de part et d'autre du syst\`eme.
+----------------------------------------------------------------------
+v0.3        21/12/2013
+    - Un terme constant est permis dans le membre de gauche
\ No newline at end of file