tablor update

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

3 files changed, 22 insertions, 24 deletions

diff --git a/Master/texmf-dist/tex/latex/tablor/tablor-xetex.sty b/Master/texmf-dist/tex/latex/tablor/tablor-xetex.sty
index fc9b6e7a14c..508315fb27a 100644
--- a/Master/texmf-dist/tex/latex/tablor/tablor-xetex.sty
+++ b/Master/texmf-dist/tex/latex/tablor/tablor-xetex.sty
@@ -1,5 +1,5 @@
 \NeedsTeXFormat{LaTeX2e}[1995/12/01]
-\ProvidesPackage{tablor-xetex}[29/01/2009 v4.02c  la machine a  creer des
+\ProvidesPackage{tablor-xetex}[07/02/2009 v4.03  la machine a  creer des
 tableaux de signes et variations compatible xetex]
 
 % \copyleft Connan le Barbare (aka Guillaume Connan) \copyright
@@ -665,7 +665,6 @@ fclose(sortie);
 
 \begin{VerbatimOut}{XcasTVZ.cxx}
 
-
 TVZ(L,F,FF,nom,nomv,f,ftt,trigo,nmr):={
 nl:=size(L);
 nf:=size(FF);
@@ -753,7 +752,7 @@ pour m de 0 jusque nz-1 faire l0:=l0+"val(btex $"+latex(Z[m])+"$ etex);
        kz:=evalf(limit(f(x),x=Z[nz-1],-1))> evalf(limit(f(x),x=Z[nz-2],1));
                           
 lsi:=lsic+nom+"'("+nomv+")}$ etex);"+
-if(member(Z[0],IMIN)!=0){"debutNonDef;"}else{if(Z[0]==-infinity){if(sign(evalf(fp(if(Z[1]==+infinity){0}else{Z[1]-10^(-5)})))==1){"plus;"}else{"moins;"}}else{if(member(Z[0],F)==0){
+if(member(Z[0],IMIN)!=0){if((member(Z[0],F)==0) and (fp(Z[0])!=undef)){"debutNonDef;"}else{"debutNonDefStrict;"}}else{if(Z[0]==-infinity){if(sign(evalf(fp(if(Z[1]==+infinity){0}else{Z[1]-10^(-5)})))==1){"plus;"}else{"moins;"}}else{if(member(Z[0],F)==0){
                                                     if(fp(Z[0])==0){"valBarre(btex 0 etex);"}else{" "}+
                                                     if(sign(fp(Z[0]+10^(-5)))==1){"plus;"}else{"moins;"}}else{"nonDefBarre;"+
                                                          if(sign(fp((Z[0]+10^(-5))))==1){"plus;"}else{"moins;"} }}}
@@ -761,8 +760,8 @@ if(member(Z[0],IMIN)!=0){"debutNonDef;"}else{if(Z[0]==-infinity){if(sign(evalf(f
 
 
 if(nz>2){ for(r:=1; r<=nz-2;r++){ ksp:=evalf(fp(Z[r]+0.01))>0; 
-                                               lsp:=lsp+if(member(Z[r],IMIN)!=0){"debutNonDef;"}else{
-                                                       if(member(Z[r],IMAX)!=0){"finNonDef;"+
+                                               lsp:=lsp+if(member(Z[r],IMIN)!=0){if((member(Z[r],F)==0) and (fp(Z[r])!=undef)){"debutNonDef;"}else{"debutNonDefStrict;"}}else{
+                                                       if(member(Z[r],IMAX)!=0){if((member(Z[r],F)==0) and (fp(Z[r])!=undef)){"finNonDef;"}else{"finNonDefStrict;"}+
                                                 if(ksp==1){"plus;"}else{"moins;"}}else{
                                                  if(member(Z[r],F)==0){"valBarre(btex 0 etex);"}else{"nonDefBarre;"}+
                                                 if(ksp==1){"plus;"}else{"moins;"}
@@ -770,7 +769,7 @@ if(nz>2){ for(r:=1; r<=nz-2;r++){ ksp:=evalf(fp(Z[r]+0.01))>0;
 
 
 
-lsf:=if(member(Z[0],IMAX)!=0){"finNonDef;"}else{if(member(Z[nz-1],F)==0){""}else{"nonDefBarre;
+lsf:=if(member(Z[nz-1],IMAX)!=0){if((member(Z[nz-1],F)==0) and (fp(Z[nz-1])!=undef)){"finNonDef;"}else{"finNonDefStrict;"}}else{if(member(Z[nz-1],F)==0){""}else{"nonDefBarre;
 "}}
 
 
@@ -791,16 +790,15 @@ if(nz>2){
              "-\\infty"}else{
                 latex(simplify(limit(f(x),x=Z[r],-1)))}
          +"$ etex,"+if(krm==1){
-             "1);"}else{"0);"}
-         +"debutNonDef;"
+             "1);"}else{"0);"} 
+         +if(member(Z[r],F)==0){"debutNonDef;"}else{"debutNonDefStrict;"}
        }//fsi Zr=Imin
       else{
-        if (member(Z[r],IMAX)!=0) {"finNonDef;limDroite(btex $"+if(lmrp==1){
+        if (member(Z[r],IMAX)!=0){if(member(Z[r],F)==0){"finNonDef;"}else{"finNonDefStrict;"}+"limDroite(btex $"+if(lmrp==1){
              "-\\infty"}else{latex(simplify(limit(f(x),x=Z[r],1)))}
          +"$ etex,"+if(krp==1){
              "1);"}else{"0);"}          
-       }
-        else {
+       }else{
           if(member(Z[r],F)){
          "limGauche(btex $"+if(lmrm==1){
              "-\\infty"}else{
@@ -898,6 +896,7 @@ fclose(sortie);
 :;
 
 
+
 \end{VerbatimOut}
 
 
diff --git a/Master/texmf-dist/tex/latex/tablor/tablor.cfg b/Master/texmf-dist/tex/latex/tablor/tablor.cfg
index 5d095f0a783..0e1953466f1 100644
--- a/Master/texmf-dist/tex/latex/tablor/tablor.cfg
+++ b/Master/texmf-dist/tex/latex/tablor/tablor.cfg
@@ -16,7 +16,7 @@ input tableauVariation;
 verbatimtex
 %&latex
 \documentclass{article}
-\usepackage[upright]{fourier} % ou mathpazo, lmodern, etc. ou rien !
+\usepackage[upright]{fourier}% ou mathpazo, lmodern, etc. ou rien !
 \usepackage{amsmath}
 \renewcommand\mbox[1]{ #1 } % pour les mbox intempestifs de xcas
 \renewcommand\cdot{ } % idem pour les cdot
@@ -40,10 +40,10 @@ etex
 % III - Déclaration de l'éditeur utilisé
 % ================================
 % 
-% Remplacez "kile" par la commande qui lance un autre editeur que votre éditeur favori pour pouvoir modifier certains tableaux. 
+% Remplacez "gedit" par la commande qui lance un autre editeur que votre éditeur favori pour pouvoir modifier certains tableaux. 
 % Laissez une espace avant de fermer l'accolade.
 
-\newcommand{\editeur}{kile }
+\newcommand{\editeur}{gedit }
 
 
 
diff --git a/Master/texmf-dist/tex/latex/tablor/tablor.sty b/Master/texmf-dist/tex/latex/tablor/tablor.sty
index a8b81775251..1c62fe54432 100644
--- a/Master/texmf-dist/tex/latex/tablor/tablor.sty
+++ b/Master/texmf-dist/tex/latex/tablor/tablor.sty
@@ -1,5 +1,5 @@
 \NeedsTeXFormat{LaTeX2e}[1995/12/01]
-\ProvidesPackage{tablor}[29/01/2009 v4.02c la machine a creer des tableaux de signes et variations]
+\ProvidesPackage{tablor}[07/02/2009 v4.03 la machine a creer des tableaux de signes et variations]
 
 % \copyleft Connan le Barbare (aka Guillaume Connan) \copyright
 % This work may be distributed and/or mofified under the conditions
@@ -716,7 +716,7 @@ pour m de 0 jusque nz-1 faire l0:=l0+"val(btex $"+latex(Z[m])+"$ etex);
        kz:=evalf(limit(f(x),x=Z[nz-1],-1))> evalf(limit(f(x),x=Z[nz-2],1));
                           
 lsi:=lsic+nom+"'("+nomv+")}$ etex);"+
-if(member(Z[0],IMIN)!=0){"debutNonDef;"}else{if(Z[0]==-infinity){if(sign(evalf(fp(if(Z[1]==+infinity){0}else{Z[1]-10^(-5)})))==1){"plus;"}else{"moins;"}}else{if(member(Z[0],F)==0){
+if(member(Z[0],IMIN)!=0){if((member(Z[0],F)==0) and (fp(Z[0])!=undef)){"debutNonDef;"}else{"debutNonDefStrict;"}}else{if(Z[0]==-infinity){if(sign(evalf(fp(if(Z[1]==+infinity){0}else{Z[1]-10^(-5)})))==1){"plus;"}else{"moins;"}}else{if(member(Z[0],F)==0){
                                                     if(fp(Z[0])==0){"valBarre(btex 0 etex);"}else{" "}+
                                                     if(sign(fp(Z[0]+10^(-5)))==1){"plus;"}else{"moins;"}}else{"nonDefBarre;"+
                                                          if(sign(fp((Z[0]+10^(-5))))==1){"plus;"}else{"moins;"} }}}
@@ -724,8 +724,8 @@ if(member(Z[0],IMIN)!=0){"debutNonDef;"}else{if(Z[0]==-infinity){if(sign(evalf(f
 
 
 if(nz>2){ for(r:=1; r<=nz-2;r++){ ksp:=evalf(fp(Z[r]+0.01))>0; 
-                                               lsp:=lsp+if(member(Z[r],IMIN)!=0){"debutNonDef;"}else{
-                                                       if(member(Z[r],IMAX)!=0){"finNonDef;"+
+                                               lsp:=lsp+if(member(Z[r],IMIN)!=0){if((member(Z[r],F)==0) and (fp(Z[r])!=undef)){"debutNonDef;"}else{"debutNonDefStrict;"}}else{
+                                                       if(member(Z[r],IMAX)!=0){if((member(Z[r],F)==0) and (fp(Z[r])!=undef)){"finNonDef;"}else{"finNonDefStrict;"}+
                                                 if(ksp==1){"plus;"}else{"moins;"}}else{
                                                  if(member(Z[r],F)==0){"valBarre(btex 0 etex);"}else{"nonDefBarre;"}+
                                                 if(ksp==1){"plus;"}else{"moins;"}
@@ -733,7 +733,7 @@ if(nz>2){ for(r:=1; r<=nz-2;r++){ ksp:=evalf(fp(Z[r]+0.01))>0;
 
 
 
-lsf:=if(member(Z[0],IMAX)!=0){"finNonDef;"}else{if(member(Z[nz-1],F)==0){""}else{"nonDefBarre;
+lsf:=if(member(Z[nz-1],IMAX)!=0){if((member(Z[nz-1],F)==0) and (fp(Z[nz-1])!=undef)){"finNonDef;"}else{"finNonDefStrict;"}}else{if(member(Z[nz-1],F)==0){""}else{"nonDefBarre;
 "}}
 
 
@@ -754,16 +754,15 @@ if(nz>2){
              "-\\infty"}else{
                 latex(simplify(limit(f(x),x=Z[r],-1)))}
          +"$ etex,"+if(krm==1){
-             "1);"}else{"0);"}
-         +"debutNonDef;"
+             "1);"}else{"0);"} 
+         +if(member(Z[r],F)==0){"debutNonDef;"}else{"debutNonDefStrict;"}
        }//fsi Zr=Imin
       else{
-        if (member(Z[r],IMAX)!=0) {"finNonDef;limDroite(btex $"+if(lmrp==1){
+        if (member(Z[r],IMAX)!=0){if(member(Z[r],F)==0){"finNonDef;"}else{"finNonDefStrict;"}+"limDroite(btex $"+if(lmrp==1){
              "-\\infty"}else{latex(simplify(limit(f(x),x=Z[r],1)))}
          +"$ etex,"+if(krp==1){
              "1);"}else{"0);"}          
-       }
-        else {
+       }else{
           if(member(Z[r],F)){
          "limGauche(btex $"+if(lmrm==1){
              "-\\infty"}else{