set svn:eol-style to native

130 files changed, 6989 insertions, 6989 deletions

diff --git a/tests/C/Test1.dia.ref b/tests/C/Test1.dia.ref
index 435031b..359f19f 100644
--- a/tests/C/Test1.dia.ref
+++ b/tests/C/Test1.dia.ref
@@ -1,8 +1,8 @@
- 

-    1.    3.  

-    2.    4.  

- 

-    4.  

-    5.  

-x[0] = -0.50

-x[1] =  1.50

+ 
+    1.    3.  
+    2.    4.  
+ 
+    4.  
+    5.  
+x[0] = -0.50
+x[1] =  1.50
diff --git a/tests/automatic_tests/maketests.sce b/tests/automatic_tests/maketests.sce
index d2605a9..bd5fb5f 100644
--- a/tests/automatic_tests/maketests.sce
+++ b/tests/automatic_tests/maketests.sce
@@ -1,4 +1,4 @@
-exec('maketests.sci',-1);

-maketests('test');

-quit

-

+exec('maketests.sci',-1);
+maketests('test');
+quit
+
diff --git a/tests/graphical_tests/maketests.sce b/tests/graphical_tests/maketests.sce
index d2605a9..bd5fb5f 100644
--- a/tests/graphical_tests/maketests.sce
+++ b/tests/graphical_tests/maketests.sce
@@ -1,4 +1,4 @@
-exec('maketests.sci',-1);

-maketests('test');

-quit

-

+exec('maketests.sci',-1);
+maketests('test');
+quit
+
diff --git a/tests/java/Boolean.dia.ref b/tests/java/Boolean.dia.ref
index fd38dc7..46d1780 100644
--- a/tests/java/Boolean.dia.ref
+++ b/tests/java/Boolean.dia.ref
@@ -1,11 +1,11 @@
-----------------------------------------------------

-boolean A=

- 

-  T  

-----------------------------------------------------

-true

-----------------------------------------------------

-boolean P=

- 

-  F  

-----------------------------------------------------

+----------------------------------------------------
+boolean A=
+ 
+  T  
+----------------------------------------------------
+true
+----------------------------------------------------
+boolean P=
+ 
+  F  
+----------------------------------------------------
diff --git a/tests/java/Boolean.java b/tests/java/Boolean.java
index 2635b11..3562377 100644
--- a/tests/java/Boolean.java
+++ b/tests/java/Boolean.java
@@ -1,29 +1,29 @@
-import javasci.* ; 

-

-

-class  Boolean {

-

-  public static void main(String[] args) {

-

-    boolean b;

-        

-        SciBoolean a = new SciBoolean("A");

-        Scilab.Exec("A=%t;");

-        System.out.println("----------------------------------------------------");

-        a.disp();

-        System.out.println("----------------------------------------------------");

-        b=a.getData();

-        

-        System.out.println(b);

-    

-        System.out.println("----------------------------------------------------");

-          SciBoolean d = new SciBoolean("D",true);

-          d.Send();

-          SciBoolean p = new SciBoolean("P");

-    Scilab.Exec("P=~D;");

-    p.disp();

-    System.out.println("----------------------------------------------------");

-    Scilab.Finish();

-  }

-}

-

+import javasci.* ; 
+
+
+class  Boolean {
+
+  public static void main(String[] args) {
+
+    boolean b;
+        
+        SciBoolean a = new SciBoolean("A");
+        Scilab.Exec("A=%t;");
+        System.out.println("----------------------------------------------------");
+        a.disp();
+        System.out.println("----------------------------------------------------");
+        b=a.getData();
+        
+        System.out.println(b);
+    
+        System.out.println("----------------------------------------------------");
+          SciBoolean d = new SciBoolean("D",true);
+          d.Send();
+          SciBoolean p = new SciBoolean("P");
+    Scilab.Exec("P=~D;");
+    p.disp();
+    System.out.println("----------------------------------------------------");
+    Scilab.Finish();
+  }
+}
+
diff --git a/tests/java/BooleanArray.dia.ref b/tests/java/BooleanArray.dia.ref
index 2e1655a..6b18b11 100644
--- a/tests/java/BooleanArray.dia.ref
+++ b/tests/java/BooleanArray.dia.ref
@@ -1,20 +1,20 @@
-----------------------------------------------------

-Matrix A=

- 

-  T T T F  

-  F T T T  

-----------------------------------------------------

-A(1,1)=true  A(1,2)=true  A(1,3)=true  A(1,4)=false   

-A(2,1)=false  A(2,2)=true  A(2,3)=true  A(2,4)=true   

-----------------------------------------------------

-b(0,0)=true  b(0,1)=true  b(0,2)=true  b(0,3)=false   

-b(1,0)=false  b(1,1)=true  b(1,2)=true  b(1,3)=true   

-----------------------------------------------------

-Matrix B=

- 

-  F F F T  

-  T F F F  

-----------------------------------------------------

-A ScilabType : 4

-B ScilabType : 4

-----------------------------------------------------

+----------------------------------------------------
+Matrix A=
+ 
+  T T T F  
+  F T T T  
+----------------------------------------------------
+A(1,1)=true  A(1,2)=true  A(1,3)=true  A(1,4)=false   
+A(2,1)=false  A(2,2)=true  A(2,3)=true  A(2,4)=true   
+----------------------------------------------------
+b(0,0)=true  b(0,1)=true  b(0,2)=true  b(0,3)=false   
+b(1,0)=false  b(1,1)=true  b(1,2)=true  b(1,3)=true   
+----------------------------------------------------
+Matrix B=
+ 
+  F F F T  
+  T F F F  
+----------------------------------------------------
+A ScilabType : 4
+B ScilabType : 4
+----------------------------------------------------
diff --git a/tests/java/BooleanArray.java b/tests/java/BooleanArray.java
index b16d065..031df64 100644
--- a/tests/java/BooleanArray.java
+++ b/tests/java/BooleanArray.java
@@ -1,49 +1,49 @@
-import javasci.* ; 

-

-

-class  BooleanArray {

-

-  public static void main(String[] args) {

-        int col=4;

-        int row=2;

-        int r,c;

-        boolean [] b=new boolean[row*col];

-        

-        SciBooleanArray a = new SciBooleanArray("A",row,col);

-        SciBooleanArray bsci = new SciBooleanArray("B",row,col);

-        

-        Scilab.Exec("A=[%t,%t,%t,%f;%f %t %t %t];");

-        System.out.println("----------------------------------------------------");

-        a.disp();

-        System.out.println("----------------------------------------------------");

-        for(r=1;r<=a.getRow();r++)

-    {

-     for(c=1;c<=a.getCol();c++)

-     {

-        System.out.print("A("+(r)+","+(c)+")="+a.GetElement(r,c)+"  ");

-     }

-     System.out.println(" ");

-    }

-        System.out.println("----------------------------------------------------");

-        

-        b=a.getData();

-        

-        for(r=0;r<row;r++)

-    {

-     for(c=0;c<col;c++)

-     {

-        System.out.print("b("+r+","+(c)+")="+ b[c*row+r] +"  ");

-     }

-     System.out.println(" ");

-    }

-        System.out.println("----------------------------------------------------");

-        Scilab.Exec("B=~A;");

-    bsci.disp();

-    System.out.println("----------------------------------------------------");

-                System.out.println("A ScilabType : "+Scilab.TypeVar("A"));

-                System.out.println("B ScilabType : "+Scilab.TypeVar("B"));

-                System.out.println("----------------------------------------------------");

-    Scilab.Finish();

-  }

-}

-

+import javasci.* ; 
+
+
+class  BooleanArray {
+
+  public static void main(String[] args) {
+        int col=4;
+        int row=2;
+        int r,c;
+        boolean [] b=new boolean[row*col];
+        
+        SciBooleanArray a = new SciBooleanArray("A",row,col);
+        SciBooleanArray bsci = new SciBooleanArray("B",row,col);
+        
+        Scilab.Exec("A=[%t,%t,%t,%f;%f %t %t %t];");
+        System.out.println("----------------------------------------------------");
+        a.disp();
+        System.out.println("----------------------------------------------------");
+        for(r=1;r<=a.getRow();r++)
+    {
+     for(c=1;c<=a.getCol();c++)
+     {
+        System.out.print("A("+(r)+","+(c)+")="+a.GetElement(r,c)+"  ");
+     }
+     System.out.println(" ");
+    }
+        System.out.println("----------------------------------------------------");
+        
+        b=a.getData();
+        
+        for(r=0;r<row;r++)
+    {
+     for(c=0;c<col;c++)
+     {
+        System.out.print("b("+r+","+(c)+")="+ b[c*row+r] +"  ");
+     }
+     System.out.println(" ");
+    }
+        System.out.println("----------------------------------------------------");
+        Scilab.Exec("B=~A;");
+    bsci.disp();
+    System.out.println("----------------------------------------------------");
+                System.out.println("A ScilabType : "+Scilab.TypeVar("A"));
+                System.out.println("B ScilabType : "+Scilab.TypeVar("B"));
+                System.out.println("----------------------------------------------------");
+    Scilab.Finish();
+  }
+}
+
diff --git a/tests/java/Strings2.dia.ref b/tests/java/Strings2.dia.ref
index 1219f0a..67c75c1 100644
--- a/tests/java/Strings2.dia.ref
+++ b/tests/java/Strings2.dia.ref
@@ -1,8 +1,8 @@
- 

-    1.    1000.  

- 

-    1.    1000.  

- 

-    3104.  

- 

- PSAP1000   

+ 
+    1.    1000.  
+ 
+    1.    1000.  
+ 
+    3104.  
+ 
+ PSAP1000   
diff --git a/tests/java/Strings2.java b/tests/java/Strings2.java
index 599a947..161b0a9 100644
--- a/tests/java/Strings2.java
+++ b/tests/java/Strings2.java
@@ -1,60 +1,60 @@
-import javasci.*;

-

-public class Strings2

-{

-  public static void main(String[] args)

-  {

-    String[] s=new String[1000];

-    char[] ch=new char[3100];

-    int r,c,k;

-    k=0;

-    for(int i=0;i<s.length;i++)

-    {

-        for(int j=0;j<ch.length;j++)

-        {

-                if (k == 0)

-                {

-                         ch[j]='P';

-                         k++;

-                }

-                else if (k == 1)

-                {

-                        ch[j]='S';

-                        k++;

-                }

-                else

-                {

-                        ch[j]='A';

-                        k=0;

-                }

-             

-        }

-        s[i]=new String(ch);

-    }

-    

-    SciStringArray sSA=new SciStringArray("A",s.length,1,s);

-    //sSA.disp();

-    Scilab.Exec("Sa=size(A);");

-    Scilab.Exec("disp(Sa);");

-    

-    SciStringArray ssB = new SciStringArray("B",s.length,1);

-    Scilab.Exec("B=A+string([1:"+s.length+"]);");

-        

-        ssB.Get();

-        //ssB.disp();

-        

-        

-        Scilab.Exec("Sb=size(B);");

-    Scilab.Exec("disp(Sb);");

-    // 1 1000 taille matrice de chaines

-    

-    Scilab.Exec("len=length(B(Sb(2)));");

-    Scilab.Exec("disp(len);");

-    // 3104 caracteres

-    

-    Scilab.Exec("TEST=part(B(Sb(2)),len-7:len);");

-    // PSAP1000

-    Scilab.Exec("disp(TEST);");

-    

-  }

-}

+import javasci.*;
+
+public class Strings2
+{
+  public static void main(String[] args)
+  {
+    String[] s=new String[1000];
+    char[] ch=new char[3100];
+    int r,c,k;
+    k=0;
+    for(int i=0;i<s.length;i++)
+    {
+        for(int j=0;j<ch.length;j++)
+        {
+                if (k == 0)
+                {
+                         ch[j]='P';
+                         k++;
+                }
+                else if (k == 1)
+                {
+                        ch[j]='S';
+                        k++;
+                }
+                else
+                {
+                        ch[j]='A';
+                        k=0;
+                }
+             
+        }
+        s[i]=new String(ch);
+    }
+    
+    SciStringArray sSA=new SciStringArray("A",s.length,1,s);
+    //sSA.disp();
+    Scilab.Exec("Sa=size(A);");
+    Scilab.Exec("disp(Sa);");
+    
+    SciStringArray ssB = new SciStringArray("B",s.length,1);
+    Scilab.Exec("B=A+string([1:"+s.length+"]);");
+        
+        ssB.Get();
+        //ssB.disp();
+        
+        
+        Scilab.Exec("Sb=size(B);");
+    Scilab.Exec("disp(Sb);");
+    // 1 1000 taille matrice de chaines
+    
+    Scilab.Exec("len=length(B(Sb(2)));");
+    Scilab.Exec("disp(len);");
+    // 3104 caracteres
+    
+    Scilab.Exec("TEST=part(B(Sb(2)),len-7:len);");
+    // PSAP1000
+    Scilab.Exec("disp(TEST);");
+    
+  }
+}
diff --git a/tests/m2sci_tests/proc/scilab/testgenfiles.sci b/tests/m2sci_tests/proc/scilab/testgenfiles.sci
index b6af550..e53ff1f 100644
--- a/tests/m2sci_tests/proc/scilab/testgenfiles.sci
+++ b/tests/m2sci_tests/proc/scilab/testgenfiles.sci
@@ -1,295 +1,295 @@
-function []=testgenfiles(test_files,opt)

-

-        // Copyright INRIA

-        // Function which can generate:

-        // - reference files for M2SCI tests

-        // - diary files for M2SCI tests

-        // Input description:

-        // - test_files: names of files to test ('all' for all files in generated_files/ directory)

-        // - opt: 'ref' if we want to build reference files

-        

-        ieee(1)

-        global("failed_fun")

-        failed_fun=[]

-        // Default arguments

-        rhs=argn(2);

-        // If no file of GEN_FILES_DIR is given, all files of this directory are created

-        

-        if rhs<1 then

-                test_files=[]

-        else

-                if test_files=="all" then

-                        test_files=[]

-                else

-                        test_files=GEN_FILES_DIR+test_files

-                end

-        end

-        

-        if isempty(test_files) then

-                test_files=listfiles(GEN_FILES_DIR+"*.m");

-                // Ref files are ignored

-                file_ind=1

-                while file_ind<=size(test_files,1)

-                        if strindex(test_files(file_ind),"_ref.m")<>[] then

-                                test_files(file_ind)=[]

-                                file_ind=file_ind-1

-                        end

-                        file_ind=file_ind+1

-                end

-                test_files=gsort(test_files,"r","i");

-        end

-        

-        // If option is not given, test is made not ref

-        if rhs<2 then

-                opt=""

-        end

-        

-        // Same format as Matlab mat2str()

-        format(16)

-        

-        // For all files listed, a .dia or a .dia.ref file is created

-        for file_ind=1:size(test_files,1)

-                

-                if opt=="ref" & ~isempty(fileinfo(GEN_FILES_DIR+basename(test_files(file_ind))+".dia.ref")) then

-                        write(%io(2),"File "+basename(test_files(file_ind))+".dia.ref already exists")

-                        //continue

-                else

-                

-                end

-                // Convert test file (ex: ABS.m)

-                if opt=="ref" then

-                        write(%io(2),"****** Beginning of generation of "+basename(test_files(file_ind))+".dia.ref file  ******")

-                else

-                        write(%io(2),"****** Beginning of test of "+basename(test_files(file_ind))+" ******")

-                end

-                mfile=basename(test_files(file_ind))+".m"

-                

-                write(%io(2),"Conversion of "+basename(test_files(file_ind))+".m file...")

-                mfile2sci(GEN_FILES_DIR+mfile,GEN_FILES_DIR,%F,%F,-1,%T)  

-                

-                // Convert Matlab ref file

-                mdiafile=basename(test_files(file_ind))+"_ref.m"

-                write(%io(2),"Conversion of "+basename(test_files(file_ind))+"_ref.m file...")

-                mfile2sci(GEN_FILES_DIR+mdiafile,GEN_FILES_DIR,%F,%F,3,%T)

-                

-                // Grep Matlab version in cat file

-                catfilename=basename(test_files(file_ind))+"_ref.cat"

-                catfile=mopen(GEN_FILES_DIR+catfilename);

-                catfiletxt=mgetl(catfile);

-                mclose(catfile);

-                for k=1:size(catfiletxt,"*")

-                        if strindex(catfiletxt(k),"Matlab version") then

-                                matvers=catfiletxt(k);

-                        end

-                end

-                

-                // Open testfile

-                testfilename=basename(test_files(file_ind))+".sci";

-                testfile=mopen(GEN_FILES_DIR+testfilename);

-                

-                // Read testfile data

-                testfiletxt=mgetl(testfile);

-                mclose(testfile);

-                // Kill useless lines (empty lines, comments which do not give test number...)

-                lind=1

-                while lind<=size(testfiletxt,"*")

-                        testline=testfiletxt(lind)

-                        if ~isempty(strindex(testline,"//")) & isempty(strindex(testline,"TEST")) then

-                                testfiletxt(lind)=[]

-                        elseif or(stripblanks(testline)==["",";"])

-                                testfiletxt(lind)=[]

-                        elseif strindex(testline,"function") // Should be removed if batch file correcty translated...

-                                testfiletxt(lind)=[]

-                        elseif strindex(testline,"ieee") // Should be removed if batch file correcty translated...

-                                testfiletxt(lind)=[]

-                        elseif strindex(testline,"mode(0);") // Should be removed if batch file correcty translated...

-                                testfiletxt(lind)=[]

-                        else

-                                lind=lind+1

-                        end

-                end

-        

-                // Write header

-                write(%io(2),"Creation of "+basename(test_files(file_ind))+".dia ...")

-                diafiletxt="// Results of execution of "+testfilename;

-                diafiletxt=[diafiletxt;"// Copyright INRIA"];

-                diafiletxt=[diafiletxt;"// File generated by Scilab: PLEASE DO NOT EDIT !"];

-                diafiletxt=[diafiletxt;"// Scilab qualif version: "+getversion()];

-                diafiletxt=[diafiletxt;"//"+matvers];

-                

-                lind=1

-                

-                while lind<=size(testfiletxt,"*")

-                

-                        // Get first test number line

-                        testnbline=testfiletxt(lind);

-                        lind=lind+1

-                        diafiletxt=[diafiletxt;testnbline];

-                        // Get line to eval

-                        evalline=testfiletxt(lind);

-                        lind=lind+1

-                        offset=1

-                        if lind<=size(testfiletxt,"*") then

-                                while isempty(strindex(testfiletxt(lind),"TEST"))

-                                        lind=lind+1

-                                        if lind>size(testfiletxt,"*")+1 then

-                                                break

-                                        end

-                                        offset=length(evalline)+2

-                                        evalline=evalline+";"+testfiletxt(lind-1)

-                                        if lind>size(testfiletxt,"*") then

-                                                break

-                                        end

-                                end

-                        end

-                        

-                        // Eval test line

-                        execstr(evalline);

-                        

-                        // Search output variable names

-                        outvars=stripblanks(part(evalline,offset:max(strindex(evalline,"= "))-1))

-                        if strindex(outvars,"[")==[] then

-                                beg=1

-                                closebracket=length(outvars)+1

-                        else

-                                beg=2

-                                closebracket=strindex(outvars,"]");

-                        end

-                        

-                        comma=strindex(outvars,",");

-                        comma=[beg-1,comma,closebracket];

-                

-                        // For all outputs

-                        for k=1:size(comma,"*")-1

-                                

-                                // Name

-                                resname=part(outvars,comma(k)+1:comma(k+1)-1);

-                                

-                                // Value

-                                resval=evstr(resname);

-                                

-                                // Size

-                                ressize=strcat(string(size(resval))," ");

-                                

-                                infos="//"+resname+"|"+ressize+"|"+type_infos(resval);

-                                diafiletxt=[diafiletxt;infos];

-                                

-                                // Make string from result value

-                                if resval==""

-                                        resvalstr = """""";

-                                else

-                                        f_sav=format()

-                                        format("v",16) // To write same precision as Matlab mat2str()

-                                        resvalstr=sci2exp(resval)

-                                        if size(resvalstr,1)>1 then

-                                                if strindex(resvalstr(1),"..")==[] & part(resvalstr(1),length(resvalstr(1)))<>";" then

-                                                        resvalstr = strcat(resvalstr,";");

-                                                else

-                                                        resvalstr = strsubst(strcat(resvalstr),"..","");

-                                                end

-                                        end

-                                        format(f_sav(2))

-                                end

-                                // Write result value in ref file

-                                diafiletxt=[diafiletxt;resname+" = "+resvalstr];

-                        end

-                end

-        

-                // Generate output file name

-                if opt=="ref" then

-                        diafilename=basename(test_files(file_ind))+".dia.ref";

-                else

-                        diafilename=basename(test_files(file_ind))+".dia";

-                end

-        

-                mputl(diafiletxt,GEN_FILES_DIR+diafilename);

-          

-         

-        funname=basename(test_files(file_ind))

-  

-        

-                if opt=="ref" then

-                        // Now Scilab reference file is created, it has to be validated

-                        write(%io(2),"Validation of "+funname+".dia.ref file...")

-                        passed=validref(funname)

-                        if passed then

-                                write(%io(2),"---> Validation of "+funname+".dia.ref: PASSED !")

-                        

-                                // Delete all useles files

-                                mdelete(pathconvert(GEN_FILES_DIR+"*.sci",%F))

-                                mdelete(pathconvert(GEN_FILES_DIR+"*.cat",%F))

-                                mdelete(pathconvert(GEN_FILES_DIR+"*varslist*.*",%F))

-                                mdelete(pathconvert(GEN_FILES_DIR+"resume_*",%F))

-                        else

-                                if ~or(funname==failed_fun) then

-                                        if size(failed_fun,"*")==0 then

-                                                failed_fun=["Comparison between FUNNAME.dia.ref and FUNNAME.varslist.dia.ref file andFUNNAME_ref.sci ...";"";"---> Test for "+funname+": FAILED !"]

-                                        else

-                                                failed_fun=[failed_fun;"---> Test for "+funname+": FAILED !"]

-                                        end

-                                end  

-                                write(%io(2),"---> Validation of "+funname+".dia: FAILED  !")

-                                write(%io(2),"---> Please see "+funname+"_valid.log file in valid_ref_logs/ directory.")

-                        end

-                else

-                        write(%io(2),"Comparison between "+funname+".dia.ref and "+funname+".dia file...")

-                        mdelete(pathconvert(GEN_FILES_DIR+"*.sci",%F))

-                        mdelete(pathconvert(GEN_FILES_DIR+"*.cat",%F))

-                        mdelete(pathconvert(GEN_FILES_DIR+"*varslist*.*",%F))

-                        mdelete(pathconvert(GEN_FILES_DIR+"resume_*",%F))

-                        passed=valid_dia(funname)

-                        //DIATXT=mgetl(GEN_FILES_DIR+diafilename)

-                        //DIAREFTXT=mgetl(GEN_FILES_DIR+diafilename+".ref")

-                        

-                        // Remove Scilab and Matlab version

-                        //for ktxt=1:size(DIATXT,"*")

-                        //      if ~isempty(strindex(DIATXT(ktxt),"version")) then

-                        //              DIATXT(ktxt:ktxt+1)=[]

-                        //              break

-                        //      end

-                        //end

-                        

-                        // Remove Scilab and Matlab version

-                        //for ktxt=1:size(DIAREFTXT,"*")

-                        //      if ~isempty(strindex(DIAREFTXT(ktxt),"version")) then

-                        //              DIAREFTXT(ktxt:ktxt+1)=[]

-                        //              break

-                        //      end

-                        //end

-                        

-                        //if or(DIATXT<>DIAREFTXT) then

-                        

-                        if ~passed then 

-                                if ~or(funname==failed_fun) then

-                                        if size(failed_fun,"*")==0 then

-                                                failed_fun=["Comparison between FUNNAME.dia.ref and FUNNAME.dia file...";"";"---> Test for "+funname+": FAILED !"]

-                                        else

-                                                failed_fun=[failed_fun;"---> Test for "+funname+": FAILED !"]

-                                        end

-                                end 

-                                write(%io(2),"---> Test for "+funname+": FAILED !")

-                        else

-                                write(%io(2),"---> Test for "+funname+": PASSED !")

-                        end

-                        

-                end

-        

-                if opt=="ref" then

-                        write(%io(2),["****** End of generation of "+basename(test_files(file_ind))+".dia.ref file ******";""])

-                else

-                        write(%io(2),["****** End of test of "+basename(test_files(file_ind))+" ******";""])

-                end

-                if opt=='' then

-                mdelete(GEN_FILES_DIR+diafilename)

-        end

-        end

-        

-        // write fun_failed

-        failedfunfile=GEN_FILES_DIR+"failed_fun.log"

-        funfile=mopen(failedfunfile,"w")

-        if failed_fun==[] then

-                failed_fun=["***** NOT FAILED FUNCTION *****"]

-        end

-        mputl(failed_fun,funfile)

-        clearglobal failed_fun

-endfunction

+function []=testgenfiles(test_files,opt)
+
+        // Copyright INRIA
+        // Function which can generate:
+        // - reference files for M2SCI tests
+        // - diary files for M2SCI tests
+        // Input description:
+        // - test_files: names of files to test ('all' for all files in generated_files/ directory)
+        // - opt: 'ref' if we want to build reference files
+        
+        ieee(1)
+        global("failed_fun")
+        failed_fun=[]
+        // Default arguments
+        rhs=argn(2);
+        // If no file of GEN_FILES_DIR is given, all files of this directory are created
+        
+        if rhs<1 then
+                test_files=[]
+        else
+                if test_files=="all" then
+                        test_files=[]
+                else
+                        test_files=GEN_FILES_DIR+test_files
+                end
+        end
+        
+        if isempty(test_files) then
+                test_files=listfiles(GEN_FILES_DIR+"*.m");
+                // Ref files are ignored
+                file_ind=1
+                while file_ind<=size(test_files,1)
+                        if strindex(test_files(file_ind),"_ref.m")<>[] then
+                                test_files(file_ind)=[]
+                                file_ind=file_ind-1
+                        end
+                        file_ind=file_ind+1
+                end
+                test_files=gsort(test_files,"r","i");
+        end
+        
+        // If option is not given, test is made not ref
+        if rhs<2 then
+                opt=""
+        end
+        
+        // Same format as Matlab mat2str()
+        format(16)
+        
+        // For all files listed, a .dia or a .dia.ref file is created
+        for file_ind=1:size(test_files,1)
+                
+                if opt=="ref" & ~isempty(fileinfo(GEN_FILES_DIR+basename(test_files(file_ind))+".dia.ref")) then
+                        write(%io(2),"File "+basename(test_files(file_ind))+".dia.ref already exists")
+                        //continue
+                else
+                
+                end
+                // Convert test file (ex: ABS.m)
+                if opt=="ref" then
+                        write(%io(2),"****** Beginning of generation of "+basename(test_files(file_ind))+".dia.ref file  ******")
+                else
+                        write(%io(2),"****** Beginning of test of "+basename(test_files(file_ind))+" ******")
+                end
+                mfile=basename(test_files(file_ind))+".m"
+                
+                write(%io(2),"Conversion of "+basename(test_files(file_ind))+".m file...")
+                mfile2sci(GEN_FILES_DIR+mfile,GEN_FILES_DIR,%F,%F,-1,%T)  
+                
+                // Convert Matlab ref file
+                mdiafile=basename(test_files(file_ind))+"_ref.m"
+                write(%io(2),"Conversion of "+basename(test_files(file_ind))+"_ref.m file...")
+                mfile2sci(GEN_FILES_DIR+mdiafile,GEN_FILES_DIR,%F,%F,3,%T)
+                
+                // Grep Matlab version in cat file
+                catfilename=basename(test_files(file_ind))+"_ref.cat"
+                catfile=mopen(GEN_FILES_DIR+catfilename);
+                catfiletxt=mgetl(catfile);
+                mclose(catfile);
+                for k=1:size(catfiletxt,"*")
+                        if strindex(catfiletxt(k),"Matlab version") then
+                                matvers=catfiletxt(k);
+                        end
+                end
+                
+                // Open testfile
+                testfilename=basename(test_files(file_ind))+".sci";
+                testfile=mopen(GEN_FILES_DIR+testfilename);
+                
+                // Read testfile data
+                testfiletxt=mgetl(testfile);
+                mclose(testfile);
+                // Kill useless lines (empty lines, comments which do not give test number...)
+                lind=1
+                while lind<=size(testfiletxt,"*")
+                        testline=testfiletxt(lind)
+                        if ~isempty(strindex(testline,"//")) & isempty(strindex(testline,"TEST")) then
+                                testfiletxt(lind)=[]
+                        elseif or(stripblanks(testline)==["",";"])
+                                testfiletxt(lind)=[]
+                        elseif strindex(testline,"function") // Should be removed if batch file correcty translated...
+                                testfiletxt(lind)=[]
+                        elseif strindex(testline,"ieee") // Should be removed if batch file correcty translated...
+                                testfiletxt(lind)=[]
+                        elseif strindex(testline,"mode(0);") // Should be removed if batch file correcty translated...
+                                testfiletxt(lind)=[]
+                        else
+                                lind=lind+1
+                        end
+                end
+        
+                // Write header
+                write(%io(2),"Creation of "+basename(test_files(file_ind))+".dia ...")
+                diafiletxt="// Results of execution of "+testfilename;
+                diafiletxt=[diafiletxt;"// Copyright INRIA"];
+                diafiletxt=[diafiletxt;"// File generated by Scilab: PLEASE DO NOT EDIT !"];
+                diafiletxt=[diafiletxt;"// Scilab qualif version: "+getversion()];
+                diafiletxt=[diafiletxt;"//"+matvers];
+                
+                lind=1
+                
+                while lind<=size(testfiletxt,"*")
+                
+                        // Get first test number line
+                        testnbline=testfiletxt(lind);
+                        lind=lind+1
+                        diafiletxt=[diafiletxt;testnbline];
+                        // Get line to eval
+                        evalline=testfiletxt(lind);
+                        lind=lind+1
+                        offset=1
+                        if lind<=size(testfiletxt,"*") then
+                                while isempty(strindex(testfiletxt(lind),"TEST"))
+                                        lind=lind+1
+                                        if lind>size(testfiletxt,"*")+1 then
+                                                break
+                                        end
+                                        offset=length(evalline)+2
+                                        evalline=evalline+";"+testfiletxt(lind-1)
+                                        if lind>size(testfiletxt,"*") then
+                                                break
+                                        end
+                                end
+                        end
+                        
+                        // Eval test line
+                        execstr(evalline);
+                        
+                        // Search output variable names
+                        outvars=stripblanks(part(evalline,offset:max(strindex(evalline,"= "))-1))
+                        if strindex(outvars,"[")==[] then
+                                beg=1
+                                closebracket=length(outvars)+1
+                        else
+                                beg=2
+                                closebracket=strindex(outvars,"]");
+                        end
+                        
+                        comma=strindex(outvars,",");
+                        comma=[beg-1,comma,closebracket];
+                
+                        // For all outputs
+                        for k=1:size(comma,"*")-1
+                                
+                                // Name
+                                resname=part(outvars,comma(k)+1:comma(k+1)-1);
+                                
+                                // Value
+                                resval=evstr(resname);
+                                
+                                // Size
+                                ressize=strcat(string(size(resval))," ");
+                                
+                                infos="//"+resname+"|"+ressize+"|"+type_infos(resval);
+                                diafiletxt=[diafiletxt;infos];
+                                
+                                // Make string from result value
+                                if resval==""
+                                        resvalstr = """""";
+                                else
+                                        f_sav=format()
+                                        format("v",16) // To write same precision as Matlab mat2str()
+                                        resvalstr=sci2exp(resval)
+                                        if size(resvalstr,1)>1 then
+                                                if strindex(resvalstr(1),"..")==[] & part(resvalstr(1),length(resvalstr(1)))<>";" then
+                                                        resvalstr = strcat(resvalstr,";");
+                                                else
+                                                        resvalstr = strsubst(strcat(resvalstr),"..","");
+                                                end
+                                        end
+                                        format(f_sav(2))
+                                end
+                                // Write result value in ref file
+                                diafiletxt=[diafiletxt;resname+" = "+resvalstr];
+                        end
+                end
+        
+                // Generate output file name
+                if opt=="ref" then
+                        diafilename=basename(test_files(file_ind))+".dia.ref";
+                else
+                        diafilename=basename(test_files(file_ind))+".dia";
+                end
+        
+                mputl(diafiletxt,GEN_FILES_DIR+diafilename);
+          
+         
+        funname=basename(test_files(file_ind))
+  
+        
+                if opt=="ref" then
+                        // Now Scilab reference file is created, it has to be validated
+                        write(%io(2),"Validation of "+funname+".dia.ref file...")
+                        passed=validref(funname)
+                        if passed then
+                                write(%io(2),"---> Validation of "+funname+".dia.ref: PASSED !")
+                        
+                                // Delete all useles files
+                                mdelete(pathconvert(GEN_FILES_DIR+"*.sci",%F))
+                                mdelete(pathconvert(GEN_FILES_DIR+"*.cat",%F))
+                                mdelete(pathconvert(GEN_FILES_DIR+"*varslist*.*",%F))
+                                mdelete(pathconvert(GEN_FILES_DIR+"resume_*",%F))
+                        else
+                                if ~or(funname==failed_fun) then
+                                        if size(failed_fun,"*")==0 then
+                                                failed_fun=["Comparison between FUNNAME.dia.ref and FUNNAME.varslist.dia.ref file andFUNNAME_ref.sci ...";"";"---> Test for "+funname+": FAILED !"]
+                                        else
+                                                failed_fun=[failed_fun;"---> Test for "+funname+": FAILED !"]
+                                        end
+                                end  
+                                write(%io(2),"---> Validation of "+funname+".dia: FAILED  !")
+                                write(%io(2),"---> Please see "+funname+"_valid.log file in valid_ref_logs/ directory.")
+                        end
+                else
+                        write(%io(2),"Comparison between "+funname+".dia.ref and "+funname+".dia file...")
+                        mdelete(pathconvert(GEN_FILES_DIR+"*.sci",%F))
+                        mdelete(pathconvert(GEN_FILES_DIR+"*.cat",%F))
+                        mdelete(pathconvert(GEN_FILES_DIR+"*varslist*.*",%F))
+                        mdelete(pathconvert(GEN_FILES_DIR+"resume_*",%F))
+                        passed=valid_dia(funname)
+                        //DIATXT=mgetl(GEN_FILES_DIR+diafilename)
+                        //DIAREFTXT=mgetl(GEN_FILES_DIR+diafilename+".ref")
+                        
+                        // Remove Scilab and Matlab version
+                        //for ktxt=1:size(DIATXT,"*")
+                        //      if ~isempty(strindex(DIATXT(ktxt),"version")) then
+                        //              DIATXT(ktxt:ktxt+1)=[]
+                        //              break
+                        //      end
+                        //end
+                        
+                        // Remove Scilab and Matlab version
+                        //for ktxt=1:size(DIAREFTXT,"*")
+                        //      if ~isempty(strindex(DIAREFTXT(ktxt),"version")) then
+                        //              DIAREFTXT(ktxt:ktxt+1)=[]
+                        //              break
+                        //      end
+                        //end
+                        
+                        //if or(DIATXT<>DIAREFTXT) then
+                        
+                        if ~passed then 
+                                if ~or(funname==failed_fun) then
+                                        if size(failed_fun,"*")==0 then
+                                                failed_fun=["Comparison between FUNNAME.dia.ref and FUNNAME.dia file...";"";"---> Test for "+funname+": FAILED !"]
+                                        else
+                                                failed_fun=[failed_fun;"---> Test for "+funname+": FAILED !"]
+                                        end
+                                end 
+                                write(%io(2),"---> Test for "+funname+": FAILED !")
+                        else
+                                write(%io(2),"---> Test for "+funname+": PASSED !")
+                        end
+                        
+                end
+        
+                if opt=="ref" then
+                        write(%io(2),["****** End of generation of "+basename(test_files(file_ind))+".dia.ref file ******";""])
+                else
+                        write(%io(2),["****** End of test of "+basename(test_files(file_ind))+" ******";""])
+                end
+                if opt=='' then
+                mdelete(GEN_FILES_DIR+diafilename)
+        end
+        end
+        
+        // write fun_failed
+        failedfunfile=GEN_FILES_DIR+"failed_fun.log"
+        funfile=mopen(failedfunfile,"w")
+        if failed_fun==[] then
+                failed_fun=["***** NOT FAILED FUNCTION *****"]
+        end
+        mputl(failed_fun,funfile)
+        clearglobal failed_fun
+endfunction
diff --git a/tests/nonRegression/Qualif/Benchmark/bench_scilab.sce b/tests/nonRegression/Qualif/Benchmark/bench_scilab.sce
index 6791bb4..9b71661 100755
--- a/tests/nonRegression/Qualif/Benchmark/bench_scilab.sce
+++ b/tests/nonRegression/Qualif/Benchmark/bench_scilab.sce
@@ -1,313 +1,313 @@
-// Scilab Benchmark 2 (8 March 2003)

-// version 2, scaled to get 1 +/- 0.1 sec with R 1.6.2

-// using the standard ATLAS library (Rblas.dll)

-// on a Pentium IV 1.6 Ghz with 1 Gb Ram on Win XP pro

-// Author : Philippe Grosjean

-// eMail  : phgrosjean@sciviews.org

-// Web    : http://www.sciviews.org

-// License: GPL 2 or above at your convenience (see: http://www.gnu.org)

-//

-// Several tests are adapted from:

-//***************************************************************************

-//* Matlab Benchmark program version 2.0                                    *

-//* Author : Stefan Steinhaus                                               *

-//* EMAIL  : stst@informatik.uni-frankfurt.de                               * 

-//* This program is public domain. Feel free to copy it freely.             *

-//***************************************************************************

-// Escoufier's equivalents vectors (III.5) is adapted from Planque & Fromentin, 1996 

-// Ref: Escoufier Y., 1970. Echantillonnage dans une population de variables

-// aleatoires réelles. Publ. Inst. Statis. Univ. Paris 19 Fasc 4, 1-47.

-//

-// type exec('c:\<dir>\Scilab2.sce', 0); to start the test

-

-stacksize(30000000)

-runs = 3;                       // Number of times the tests are executed

-times = zeros(5, 3);

-

-disp('   Scilab Benchmark 2')

-disp('   ==================')

-disp('Number of times each test is run__________________________: ' + string(runs))

-disp(' ')

-

-

-disp('   I. Matrix calculation')

-disp('   ---------------------')

-

-

-// (1)

-cumulate = 0; a = 0; b = 0;

-for i = 1:runs

-  timer();

-    a = abs(rand(1500, 1500, 'n')/10);

-    b = a';

-    a = matrix(b, 750, 3000);

-    b = a';

-  timing = timer();

-  cumulate = cumulate + timing;

-end;

-timing = cumulate/runs;

-times(1, 1) = timing;

-disp('Creation, transp., deformation of a 1500x1500 matrix (sec): ' + string(timing));

-clear('a'); clear('b');

-

-// (2)

-cumulate = 0; b = 0;

-for i = 1:runs

-  a = abs(rand(800, 800, 'n')/2);

-  timer(); 

-    b = a.^1000; 

-  timing = timer();

-  cumulate = cumulate + timing;

-end

-timing = cumulate/runs;

-times(2, 1) = timing;

-disp('800x800 normal distributed random matrix ^1000______ (sec): ' + string(timing))

-clear('a'); clear('b');

-

-// (3)

-cumulate = 0; b = 0;

-for i = 1:runs

-  a = rand(2000000, 1, 'n');

-  timer();

-    b = -sort(-a);

-  timing = timer();

-  cumulate = cumulate + timing;

-end

-timing = cumulate/runs;

-times(3, 1) = timing;

-disp('Sorting of 2,000,000 random values__________________ (sec): ' + string(timing))

-clear('a'); clear('b'); 

-

-// (4)

-cumulate = 0; b = 0;

-for i = 1:runs

-  a = rand(700, 700, 'n');

-  timer();

-    b = a'*a;

-  timing = timer();

-  cumulate = cumulate + timing;

-end

-timing = cumulate/runs;

-times(4, 1) = timing;

-disp('700x700 cross-product matrix (b = a'' * a)___________ (sec): ' + string(timing))

-clear('a'); clear('b');

-

-// (5)

-cumulate = 0; c = 0;

-for i = 1:runs

-  a = rand(600, 600, 'n');

-  b = 1:600;

-  timer();

-    c = a\b';

-  timing = timer();

-  cumulate = cumulate + timing;

-end

-timing = cumulate/runs;

-times(5, 1) = timing;

-disp('Linear regression over a 600x600 matrix (c = a \ b'') (sec): ' + string(timing))

-clear('a'); clear('b'); clear('c');

-

-times = sort(times, 'r');

-disp('                --------------------------------------------------')

-disp('                Trimmed geom. mean (2 extremes eliminated): ' +  string(exp(mean(log(times(2:4,1))))))

-disp(' ')

-

-disp('   II. Matrix functions')

-disp('   --------------------')

-

-

-// (1)

-cumulate = 0; b = 0;

-for i = 1:runs

-  a = rand(800000, 1, 'n');

-  timer();

-    b = fft(a, -1);

-  timing = timer();

-  cumulate = cumulate + timing;

-end

-timing = cumulate/runs;

-times(1, 2) = timing;

-disp('FFT over 800,000 random values______________________ (sec): ' +  string(timing))

-clear('a'); clear('b');

-

-// (2)

-cumulate = 0; b = 0;

-for i = 1:runs

-  a = rand(320, 320, 'n');

-  timer();

-    b = spec(a);

-  timing = timer();

-  cumulate = cumulate + timing;

-end

-timing = cumulate/runs;

-times(2, 2) = timing;

-disp('Eigenvalues of a 320x320 random matrix______________ (sec): ' + string(timing))

-clear('a'); clear('b');

-

-// (3)

-cumulate = 0; b = 0;

-for i = 1:runs

-  a = rand(650, 650, 'n');

-  timer();

-    b = det(a);

-  timing = timer();

-  cumulate = cumulate + timing;

-end

-timing = cumulate/runs;

-times(3, 2) = timing;

-disp('Determinant of a 650x650 random matrix______________ (sec): ' +  string(timing))

-clear('a'); clear('b');

-

-// (4)

-cumulate = 0; b = 0;

-for i = 1:runs

-  a = rand(900, 900, 'n');

-  a = a'*a;

-  timer();

-    b = chol(a);

-  timing = timer();

-  cumulate = cumulate + timing;

-end

-timing = cumulate/runs;

-times(4, 2) = timing;

-disp('Cholesky decomposition of a 900x900 matrix__________ (sec): ' + string(timing))

-clear('a'); clear('b');

-

-// (5)

-cumulate = 0; b = 0;

-for i = 1:runs

-  a = rand(400, 400, 'n');

-  timer();

-    b = inv(a);

-  timing = timer();

-  cumulate = cumulate + timing;

-end

-timing = cumulate/runs;

-times(5, 2) = timing;

-disp('Inverse of a 400x400 random matrix__________________ (sec): ' + string(timing))

-clear('a'); clear('b');

-

-times = sort(times, 'r');

-disp('                --------------------------------------------------')

-disp('                Trimmed geom. mean (2 extremes eliminated): ' +  string(exp(mean(log(times(2:4,2))))))

-disp(' ')

-

-disp('   III. Programmation')

-disp('   ------------------')

-

-// (1)

-cumulate = 0; a = 0; b = 0; phi = 1.6180339887498949;

-for i = 1:runs

-  a = floor(1000 * rand(750000, 1, 'u'));

-  timer();        

-    b = (phi.^a - (-phi).^(-a)) / sqrt(5);

-  timing = timer();

-  cumulate = cumulate + timing;

-end

-timing = cumulate/runs;

-times(1, 3) = timing;

-disp('750,000 Fibonacci numbers calculation (vector calc)_ (sec): ' + string(timing))

-clear('a'); clear('b'); clear('phi');

-

-// (2)

-cumulate = 0; a = 2250; b = 0;

-for i = 1:runs

-  timer();

-    b = ones(a, a)./((1:a)' * ones(1, a) + ones(a, 1) * (0:(a-1)));    

-  timing = timer();

-  cumulate = cumulate + timing;

-end

-timing = cumulate/runs;

-times(2, 3) = timing;

-disp('Creation of a 2250x2250 Hilbert matrix (matrix calc) (sec): ' + string(timing))

-clear('a'); clear('b');

-

-// (3)

-cumulate = 0; c = 0;

-deff('[c]=gcd2(a, b)',['if b <= 1.0E-4'; 'c = a;'; 'else'; 'b(b == 0) = a(b == 0);'; 'c = gcd2(b, modulo(a, b));'; 'end'])

-for i = 1:runs

-  a = ceil(1000 * rand(70000, 1, 'u'));

-  b = ceil(1000 * rand(70000, 1, 'u'));

-  timer();        

-  c = gcd2(a, b);                            // gcd2 is a recursive function

-  timing = timer();

-  cumulate = cumulate + timing;

-end

-timing = cumulate/runs;

-times(3, 3) = timing;

-disp('Grand common divisors of 70,000 pairs (recursion)___ (sec): ' +  string(timing))

-clear('a'); clear('b'); clear('c');

-

-// (4)

-cumulate = 0; b = 0;

-for i = 1:runs

-  b = zeros(220, 220);

-  timer();

-    for j = 1:220

-      for k = 1:220

-        b(k,j) = abs(j - k) + 1;

-      end

-    end

-  timing = timer();

-  cumulate = cumulate + timing;

-end

-timing = cumulate/runs;

-times(4, 3) = timing;

-disp('Creation of a 220x220 Toeplitz matrix (loops)_______ (sec): ' + string(timing))

-clear('b'); clear('j'); clear('k');

-

-// (5)

-cumulate = 0; p = 0; q = 0; vt = 0; vr = 0; vrt = 0; rvt = 0; RV = 0; j = 0; k = 0;

-x2 = 0; R = 0; Rxx = 0; Ryy = 0; Rxy = 0; Ryx = 0; Rvmax = 0; f = 0;, c= 0; d = 0;

-for i = 1:runs

-  x = abs(rand(37, 37, 'n'));

-  timer();

-    // Calculation of Escoufier's equivalent vectors

-    p = size(x, 2);

-    vt = [1:p];                                // Variables to test

-    vr = [];                                   // Result: ordered variables

-    RV = [1:p];                                // Result: correlations

-    for j = 1:p                                // loop on the variable number

-      Rvmax = 0;

-      for k = 1:(p-j+1)                        // loop on the variables

-        x2 = [x, x(:, vr), x(:, vt(k))];       // New table to test

-        // R = corrcoef(x2);                   // Correlations table

-        // Not in scilab, so the 5 following lines do it

-        q = size(x2, 1);

-        x2 = x2 - ones (q, 1) * sum (x2, 'r') / q;

-        c = conj(x2' * x2 / (q - 1));

-        d=diag(c);

-        R = c ./ sqrt(d * d');

-        Ryy = R(1:p, 1:p);

-        Rxx = R(p+1:p+j, p+1:p+j);

-        Rxy = R(p+1:p+j, 1:p);

-        Ryx = Rxy';

-        rvt = trace(Ryx*Rxy)/((trace(Ryy^2)*trace(Rxx^2))^0.5); // RV calculation

-        if rvt > Rvmax

-          Rvmax = rvt;                         // test of RV

-          vrt(j) = vt(k);                      // temporary held variable

-        end

-      end

-      vr(j) = vrt(j);                          // Result: variable

-      RV(j) = Rvmax;                           // Result: correlation

-      f = find(vt~=vr(j));                     // identify the held variable

-      vt = vt(f);                              // reidentify variables to test

-    end

-  timing = timer();

-  cumulate = cumulate + timing;

-end

-times(5, 3) = timing;

-disp('Escoufier''s method on a 37x37 matrix (mixed)________ (sec): ' + string(timing))

-clear('x'); clear('p'); clear('q'); clear('vt'); clear('vr'); clear('vrt'); clear('rvt'); clear('RV'); clear('j'); clear('k');

-clear('x2'); clear('R'); clear('Rxx'); clear('Ryy'); clear('Rxy'); clear('Ryx'); clear('Rvmax'); clear('f'); clear('c'); clear('d'); 

-

-times = sort(times, 'r');

-disp('                --------------------------------------------------')

-disp('                Trimmed geom. mean (2 extremes eliminated): ' +  string(exp(mean(log(times(2:4,3))))))

-disp(' ')

-

-disp(' ')

-disp('Total time for all 15 tests_________________________ (sec): ' + string(sum(times)))

-disp('Overall mean (sum of I, II and III trimmed means/3)_ (sec): ' + string(exp(mean(log(times(2:4,:))))))

-clear('cumulate'); clear('timing'); clear('times'); clear('runs'); clear('i');

-disp('                      --- End of test ---')     

+// Scilab Benchmark 2 (8 March 2003)
+// version 2, scaled to get 1 +/- 0.1 sec with R 1.6.2
+// using the standard ATLAS library (Rblas.dll)
+// on a Pentium IV 1.6 Ghz with 1 Gb Ram on Win XP pro
+// Author : Philippe Grosjean
+// eMail  : phgrosjean@sciviews.org
+// Web    : http://www.sciviews.org
+// License: GPL 2 or above at your convenience (see: http://www.gnu.org)
+//
+// Several tests are adapted from:
+//***************************************************************************
+//* Matlab Benchmark program version 2.0                                    *
+//* Author : Stefan Steinhaus                                               *
+//* EMAIL  : stst@informatik.uni-frankfurt.de                               * 
+//* This program is public domain. Feel free to copy it freely.             *
+//***************************************************************************
+// Escoufier's equivalents vectors (III.5) is adapted from Planque & Fromentin, 1996 
+// Ref: Escoufier Y., 1970. Echantillonnage dans une population de variables
+// aleatoires réelles. Publ. Inst. Statis. Univ. Paris 19 Fasc 4, 1-47.
+//
+// type exec('c:\<dir>\Scilab2.sce', 0); to start the test
+
+stacksize(30000000)
+runs = 3;                       // Number of times the tests are executed
+times = zeros(5, 3);
+
+disp('   Scilab Benchmark 2')
+disp('   ==================')
+disp('Number of times each test is run__________________________: ' + string(runs))
+disp(' ')
+
+
+disp('   I. Matrix calculation')
+disp('   ---------------------')
+
+
+// (1)
+cumulate = 0; a = 0; b = 0;
+for i = 1:runs
+  timer();
+    a = abs(rand(1500, 1500, 'n')/10);
+    b = a';
+    a = matrix(b, 750, 3000);
+    b = a';
+  timing = timer();
+  cumulate = cumulate + timing;
+end;
+timing = cumulate/runs;
+times(1, 1) = timing;
+disp('Creation, transp., deformation of a 1500x1500 matrix (sec): ' + string(timing));
+clear('a'); clear('b');
+
+// (2)
+cumulate = 0; b = 0;
+for i = 1:runs
+  a = abs(rand(800, 800, 'n')/2);
+  timer(); 
+    b = a.^1000; 
+  timing = timer();
+  cumulate = cumulate + timing;
+end
+timing = cumulate/runs;
+times(2, 1) = timing;
+disp('800x800 normal distributed random matrix ^1000______ (sec): ' + string(timing))
+clear('a'); clear('b');
+
+// (3)
+cumulate = 0; b = 0;
+for i = 1:runs
+  a = rand(2000000, 1, 'n');
+  timer();
+    b = -sort(-a);
+  timing = timer();
+  cumulate = cumulate + timing;
+end
+timing = cumulate/runs;
+times(3, 1) = timing;
+disp('Sorting of 2,000,000 random values__________________ (sec): ' + string(timing))
+clear('a'); clear('b'); 
+
+// (4)
+cumulate = 0; b = 0;
+for i = 1:runs
+  a = rand(700, 700, 'n');
+  timer();
+    b = a'*a;
+  timing = timer();
+  cumulate = cumulate + timing;
+end
+timing = cumulate/runs;
+times(4, 1) = timing;
+disp('700x700 cross-product matrix (b = a'' * a)___________ (sec): ' + string(timing))
+clear('a'); clear('b');
+
+// (5)
+cumulate = 0; c = 0;
+for i = 1:runs
+  a = rand(600, 600, 'n');
+  b = 1:600;
+  timer();
+    c = a\b';
+  timing = timer();
+  cumulate = cumulate + timing;
+end
+timing = cumulate/runs;
+times(5, 1) = timing;
+disp('Linear regression over a 600x600 matrix (c = a \ b'') (sec): ' + string(timing))
+clear('a'); clear('b'); clear('c');
+
+times = sort(times, 'r');
+disp('                --------------------------------------------------')
+disp('                Trimmed geom. mean (2 extremes eliminated): ' +  string(exp(mean(log(times(2:4,1))))))
+disp(' ')
+
+disp('   II. Matrix functions')
+disp('   --------------------')
+
+
+// (1)
+cumulate = 0; b = 0;
+for i = 1:runs
+  a = rand(800000, 1, 'n');
+  timer();
+    b = fft(a, -1);
+  timing = timer();
+  cumulate = cumulate + timing;
+end
+timing = cumulate/runs;
+times(1, 2) = timing;
+disp('FFT over 800,000 random values______________________ (sec): ' +  string(timing))
+clear('a'); clear('b');
+
+// (2)
+cumulate = 0; b = 0;
+for i = 1:runs
+  a = rand(320, 320, 'n');
+  timer();
+    b = spec(a);
+  timing = timer();
+  cumulate = cumulate + timing;
+end
+timing = cumulate/runs;
+times(2, 2) = timing;
+disp('Eigenvalues of a 320x320 random matrix______________ (sec): ' + string(timing))
+clear('a'); clear('b');
+
+// (3)
+cumulate = 0; b = 0;
+for i = 1:runs
+  a = rand(650, 650, 'n');
+  timer();
+    b = det(a);
+  timing = timer();
+  cumulate = cumulate + timing;
+end
+timing = cumulate/runs;
+times(3, 2) = timing;
+disp('Determinant of a 650x650 random matrix______________ (sec): ' +  string(timing))
+clear('a'); clear('b');
+
+// (4)
+cumulate = 0; b = 0;
+for i = 1:runs
+  a = rand(900, 900, 'n');
+  a = a'*a;
+  timer();
+    b = chol(a);
+  timing = timer();
+  cumulate = cumulate + timing;
+end
+timing = cumulate/runs;
+times(4, 2) = timing;
+disp('Cholesky decomposition of a 900x900 matrix__________ (sec): ' + string(timing))
+clear('a'); clear('b');
+
+// (5)
+cumulate = 0; b = 0;
+for i = 1:runs
+  a = rand(400, 400, 'n');
+  timer();
+    b = inv(a);
+  timing = timer();
+  cumulate = cumulate + timing;
+end
+timing = cumulate/runs;
+times(5, 2) = timing;
+disp('Inverse of a 400x400 random matrix__________________ (sec): ' + string(timing))
+clear('a'); clear('b');
+
+times = sort(times, 'r');
+disp('                --------------------------------------------------')
+disp('                Trimmed geom. mean (2 extremes eliminated): ' +  string(exp(mean(log(times(2:4,2))))))
+disp(' ')
+
+disp('   III. Programmation')
+disp('   ------------------')
+
+// (1)
+cumulate = 0; a = 0; b = 0; phi = 1.6180339887498949;
+for i = 1:runs
+  a = floor(1000 * rand(750000, 1, 'u'));
+  timer();        
+    b = (phi.^a - (-phi).^(-a)) / sqrt(5);
+  timing = timer();
+  cumulate = cumulate + timing;
+end
+timing = cumulate/runs;
+times(1, 3) = timing;
+disp('750,000 Fibonacci numbers calculation (vector calc)_ (sec): ' + string(timing))
+clear('a'); clear('b'); clear('phi');
+
+// (2)
+cumulate = 0; a = 2250; b = 0;
+for i = 1:runs
+  timer();
+    b = ones(a, a)./((1:a)' * ones(1, a) + ones(a, 1) * (0:(a-1)));    
+  timing = timer();
+  cumulate = cumulate + timing;
+end
+timing = cumulate/runs;
+times(2, 3) = timing;
+disp('Creation of a 2250x2250 Hilbert matrix (matrix calc) (sec): ' + string(timing))
+clear('a'); clear('b');
+
+// (3)
+cumulate = 0; c = 0;
+deff('[c]=gcd2(a, b)',['if b <= 1.0E-4'; 'c = a;'; 'else'; 'b(b == 0) = a(b == 0);'; 'c = gcd2(b, modulo(a, b));'; 'end'])
+for i = 1:runs
+  a = ceil(1000 * rand(70000, 1, 'u'));
+  b = ceil(1000 * rand(70000, 1, 'u'));
+  timer();        
+  c = gcd2(a, b);                            // gcd2 is a recursive function
+  timing = timer();
+  cumulate = cumulate + timing;
+end
+timing = cumulate/runs;
+times(3, 3) = timing;
+disp('Grand common divisors of 70,000 pairs (recursion)___ (sec): ' +  string(timing))
+clear('a'); clear('b'); clear('c');
+
+// (4)
+cumulate = 0; b = 0;
+for i = 1:runs
+  b = zeros(220, 220);
+  timer();
+    for j = 1:220
+      for k = 1:220
+        b(k,j) = abs(j - k) + 1;
+      end
+    end
+  timing = timer();
+  cumulate = cumulate + timing;
+end
+timing = cumulate/runs;
+times(4, 3) = timing;
+disp('Creation of a 220x220 Toeplitz matrix (loops)_______ (sec): ' + string(timing))
+clear('b'); clear('j'); clear('k');
+
+// (5)
+cumulate = 0; p = 0; q = 0; vt = 0; vr = 0; vrt = 0; rvt = 0; RV = 0; j = 0; k = 0;
+x2 = 0; R = 0; Rxx = 0; Ryy = 0; Rxy = 0; Ryx = 0; Rvmax = 0; f = 0;, c= 0; d = 0;
+for i = 1:runs
+  x = abs(rand(37, 37, 'n'));
+  timer();
+    // Calculation of Escoufier's equivalent vectors
+    p = size(x, 2);
+    vt = [1:p];                                // Variables to test
+    vr = [];                                   // Result: ordered variables
+    RV = [1:p];                                // Result: correlations
+    for j = 1:p                                // loop on the variable number
+      Rvmax = 0;
+      for k = 1:(p-j+1)                        // loop on the variables
+        x2 = [x, x(:, vr), x(:, vt(k))];       // New table to test
+        // R = corrcoef(x2);                   // Correlations table
+        // Not in scilab, so the 5 following lines do it
+        q = size(x2, 1);
+        x2 = x2 - ones (q, 1) * sum (x2, 'r') / q;
+        c = conj(x2' * x2 / (q - 1));
+        d=diag(c);
+        R = c ./ sqrt(d * d');
+        Ryy = R(1:p, 1:p);
+        Rxx = R(p+1:p+j, p+1:p+j);
+        Rxy = R(p+1:p+j, 1:p);
+        Ryx = Rxy';
+        rvt = trace(Ryx*Rxy)/((trace(Ryy^2)*trace(Rxx^2))^0.5); // RV calculation
+        if rvt > Rvmax
+          Rvmax = rvt;                         // test of RV
+          vrt(j) = vt(k);                      // temporary held variable
+        end
+      end
+      vr(j) = vrt(j);                          // Result: variable
+      RV(j) = Rvmax;                           // Result: correlation
+      f = find(vt~=vr(j));                     // identify the held variable
+      vt = vt(f);                              // reidentify variables to test
+    end
+  timing = timer();
+  cumulate = cumulate + timing;
+end
+times(5, 3) = timing;
+disp('Escoufier''s method on a 37x37 matrix (mixed)________ (sec): ' + string(timing))
+clear('x'); clear('p'); clear('q'); clear('vt'); clear('vr'); clear('vrt'); clear('rvt'); clear('RV'); clear('j'); clear('k');
+clear('x2'); clear('R'); clear('Rxx'); clear('Ryy'); clear('Rxy'); clear('Ryx'); clear('Rvmax'); clear('f'); clear('c'); clear('d'); 
+
+times = sort(times, 'r');
+disp('                --------------------------------------------------')
+disp('                Trimmed geom. mean (2 extremes eliminated): ' +  string(exp(mean(log(times(2:4,3))))))
+disp(' ')
+
+disp(' ')
+disp('Total time for all 15 tests_________________________ (sec): ' + string(sum(times)))
+disp('Overall mean (sum of I, II and III trimmed means/3)_ (sec): ' + string(exp(mean(log(times(2:4,:))))))
+clear('cumulate'); clear('timing'); clear('times'); clear('runs'); clear('i');
+disp('                      --- End of test ---')     
diff --git a/tests/nonRegression/Qualif/Log/copyftp.log b/tests/nonRegression/Qualif/Log/copyftp.log
index 832ad77..ac02707 100755
--- a/tests/nonRegression/Qualif/Log/copyftp.log
+++ b/tests/nonRegression/Qualif/Log/copyftp.log
@@ -1,92 +1,92 @@
-LibNcFTP 3.1.5 (October 13, 2002) compiled for Windows

-220: frioul.inria.fr FTP server (Version 5.60) ready.

-Connected to frioul.inria.fr.

-Cmd: USER qualif

-331: Password required for qualif.

-Cmd: PASS xxxxxxxx

-230: User qualif logged in.

-Cmd: PWD

-257: "/home/qualif" is current directory.

-Logged in to frioul.inria.fr as qualif.

-Cmd: FEAT

-500: 'FEAT': command not understood.

-Cmd: HELP SITE

-214: The following SITE commands are recognized (* =>'s unimplemented).

-        UMASK   IDLE    CHMOD   HELP 

-     Direct comments to ftp-bugs@frioul.inria.fr.

-Cmd: CLNT NcFTPGet 3.1.5 Windows

-500: 'CLNT NcFTPGet 3.1.5 Windows': command not understood.

-Cmd: PWD

-257: "/home/qualif" is current directory.

-Cmd: CWD tests_suite/autrerep

-250: CWD command successful.

-Cmd: CWD /home/qualif

-250: CWD command successful.

-Cmd: PWD

-257: "/home/qualif" is current directory.

-Cmd: CWD tests_suite/autrerep

-250: CWD command successful.

-Cmd: PASV

-227: Entering Passive Mode (128,93,12,139,170,45)

-Cmd: LIST -Ra

-150: Opening ASCII mode data connection for /bin/ls.

-226: Transfer complete.

-Cmd: CWD /home/qualif

-250: CWD command successful.

-Cmd: MDTM tests_suite/autrerep/autrerep.sce

-213: 20030702130623

-Cmd: TYPE I

-200: Type set to I.

-Cmd: REST 1

-350: Restarting at 1. (null)

-Cmd: REST 0

-350: Restarting at 0. (null)

-Cmd: PASV

-227: Entering Passive Mode (128,93,12,139,170,46)

-Cmd: RETR tests_suite/autrerep/autrerep.sce

-150: Opening BINARY mode data connection for tests_suite/autrerep/autrerep.sce (438 bytes).

-226: Transfer complete.

-Cmd: MDTM tests_suite/autrerep/bug1.sci

-213: 20030702130623

-Cmd: PASV

-227: Entering Passive Mode (128,93,12,139,170,47)

-Cmd: RETR tests_suite/autrerep/bug1.sci

-150: Opening BINARY mode data connection for tests_suite/autrerep/bug1.sci (426 bytes).

-226: Transfer complete.

-Cmd: MDTM tests_suite/autrerep/bug21.sci

-213: 20030702130623

-Cmd: PASV

-227: Entering Passive Mode (128,93,12,139,170,48)

-Cmd: RETR tests_suite/autrerep/bug21.sci

-150: Opening BINARY mode data connection for tests_suite/autrerep/bug21.sci (562 bytes).

-226: Transfer complete.

-Cmd: MDTM tests_suite/autrerep/bug22.sci

-213: 20030702130623

-Cmd: PASV

-227: Entering Passive Mode (128,93,12,139,170,49)

-Cmd: RETR tests_suite/autrerep/bug22.sci

-150: Opening BINARY mode data connection for tests_suite/autrerep/bug22.sci (583 bytes).

-226: Transfer complete.

-Cmd: MDTM tests_suite/autrerep/bug24.sci

-213: 20030702130624

-Cmd: PASV

-227: Entering Passive Mode (128,93,12,139,170,50)

-Cmd: RETR tests_suite/autrerep/bug24.sci

-150: Opening BINARY mode data connection for tests_suite/autrerep/bug24.sci (388 bytes).

-226: Transfer complete.

-Cmd: MDTM tests_suite/autrerep/bug25.sci

-213: 20030702130624

-Cmd: PASV

-227: Entering Passive Mode (128,93,12,139,170,51)

-Cmd: RETR tests_suite/autrerep/bug25.sci

-150: Opening BINARY mode data connection for tests_suite/autrerep/bug25.sci (571 bytes).

-226: Transfer complete.

-Cmd: MDTM tests_suite/autrerep/bug6.sci

-213: 20030702130624

-Cmd: PASV

-227: Entering Passive Mode (128,93,12,139,170,52)

-Cmd: RETR tests_suite/autrerep/bug6.sci

-150: Opening BINARY mode data connection for tests_suite/autrerep/bug6.sci (237 bytes).

-226: Transfer complete.

-Cmd: QUIT

-221: Goodbye.

+LibNcFTP 3.1.5 (October 13, 2002) compiled for Windows
+220: frioul.inria.fr FTP server (Version 5.60) ready.
+Connected to frioul.inria.fr.
+Cmd: USER qualif
+331: Password required for qualif.
+Cmd: PASS xxxxxxxx
+230: User qualif logged in.
+Cmd: PWD
+257: "/home/qualif" is current directory.
+Logged in to frioul.inria.fr as qualif.
+Cmd: FEAT
+500: 'FEAT': command not understood.
+Cmd: HELP SITE
+214: The following SITE commands are recognized (* =>'s unimplemented).
+        UMASK   IDLE    CHMOD   HELP 
+     Direct comments to ftp-bugs@frioul.inria.fr.
+Cmd: CLNT NcFTPGet 3.1.5 Windows
+500: 'CLNT NcFTPGet 3.1.5 Windows': command not understood.
+Cmd: PWD
+257: "/home/qualif" is current directory.
+Cmd: CWD tests_suite/autrerep
+250: CWD command successful.
+Cmd: CWD /home/qualif
+250: CWD command successful.
+Cmd: PWD
+257: "/home/qualif" is current directory.
+Cmd: CWD tests_suite/autrerep
+250: CWD command successful.
+Cmd: PASV
+227: Entering Passive Mode (128,93,12,139,170,45)
+Cmd: LIST -Ra
+150: Opening ASCII mode data connection for /bin/ls.
+226: Transfer complete.
+Cmd: CWD /home/qualif
+250: CWD command successful.
+Cmd: MDTM tests_suite/autrerep/autrerep.sce
+213: 20030702130623
+Cmd: TYPE I
+200: Type set to I.
+Cmd: REST 1
+350: Restarting at 1. (null)
+Cmd: REST 0
+350: Restarting at 0. (null)
+Cmd: PASV
+227: Entering Passive Mode (128,93,12,139,170,46)
+Cmd: RETR tests_suite/autrerep/autrerep.sce
+150: Opening BINARY mode data connection for tests_suite/autrerep/autrerep.sce (438 bytes).
+226: Transfer complete.
+Cmd: MDTM tests_suite/autrerep/bug1.sci
+213: 20030702130623
+Cmd: PASV
+227: Entering Passive Mode (128,93,12,139,170,47)
+Cmd: RETR tests_suite/autrerep/bug1.sci
+150: Opening BINARY mode data connection for tests_suite/autrerep/bug1.sci (426 bytes).
+226: Transfer complete.
+Cmd: MDTM tests_suite/autrerep/bug21.sci
+213: 20030702130623
+Cmd: PASV
+227: Entering Passive Mode (128,93,12,139,170,48)
+Cmd: RETR tests_suite/autrerep/bug21.sci
+150: Opening BINARY mode data connection for tests_suite/autrerep/bug21.sci (562 bytes).
+226: Transfer complete.
+Cmd: MDTM tests_suite/autrerep/bug22.sci
+213: 20030702130623
+Cmd: PASV
+227: Entering Passive Mode (128,93,12,139,170,49)
+Cmd: RETR tests_suite/autrerep/bug22.sci
+150: Opening BINARY mode data connection for tests_suite/autrerep/bug22.sci (583 bytes).
+226: Transfer complete.
+Cmd: MDTM tests_suite/autrerep/bug24.sci
+213: 20030702130624
+Cmd: PASV
+227: Entering Passive Mode (128,93,12,139,170,50)
+Cmd: RETR tests_suite/autrerep/bug24.sci
+150: Opening BINARY mode data connection for tests_suite/autrerep/bug24.sci (388 bytes).
+226: Transfer complete.
+Cmd: MDTM tests_suite/autrerep/bug25.sci
+213: 20030702130624
+Cmd: PASV
+227: Entering Passive Mode (128,93,12,139,170,51)
+Cmd: RETR tests_suite/autrerep/bug25.sci
+150: Opening BINARY mode data connection for tests_suite/autrerep/bug25.sci (571 bytes).
+226: Transfer complete.
+Cmd: MDTM tests_suite/autrerep/bug6.sci
+213: 20030702130624
+Cmd: PASV
+227: Entering Passive Mode (128,93,12,139,170,52)
+Cmd: RETR tests_suite/autrerep/bug6.sci
+150: Opening BINARY mode data connection for tests_suite/autrerep/bug6.sci (237 bytes).
+226: Transfer complete.
+Cmd: QUIT
+221: Goodbye.
diff --git a/tests/nonRegression/Qualif/Proc/aide.bat b/tests/nonRegression/Qualif/Proc/aide.bat
index 37334d4..82126e5 100755
--- a/tests/nonRegression/Qualif/Proc/aide.bat
+++ b/tests/nonRegression/Qualif/Proc/aide.bat
@@ -1,23 +1,23 @@
-@echo off

-

-cls

-echo //

-echo //  commandes disponibles : COPYFTP - RUNTEST - COPYRUN - CLEARWORK - CLEARLOG

-echo //

-echo //  pour une aide faire : AIDE [all] ou lancer une commande sans parametre

-echo //

-echo //        

-

-if "%1"=="all" goto suite

-if "%1"=="ALL" goto suite

-goto the_end

-

-:suite

-cls

-call copyftp

-call runtest

-call copyrun

-call clearwork

-call clearlog

-

+@echo off
+
+cls
+echo //
+echo //  commandes disponibles : COPYFTP - RUNTEST - COPYRUN - CLEARWORK - CLEARLOG
+echo //
+echo //  pour une aide faire : AIDE [all] ou lancer une commande sans parametre
+echo //
+echo //        
+
+if "%1"=="all" goto suite
+if "%1"=="ALL" goto suite
+goto the_end
+
+:suite
+cls
+call copyftp
+call runtest
+call copyrun
+call clearwork
+call clearlog
+
 :the_end
\ No newline at end of file
diff --git a/tests/nonRegression/Qualif/Proc/checklog.bat b/tests/nonRegression/Qualif/Proc/checklog.bat
index 0d7ad5f..71f6e20 100755
--- a/tests/nonRegression/Qualif/Proc/checklog.bat
+++ b/tests/nonRegression/Qualif/Proc/checklog.bat
@@ -1,35 +1,35 @@
-@echo off

-

-REM --- Echo Analyse des log tests_suites resultats

-

-find "{ FIN TEST SUITE " %envq_qualif%\log\%envq_ver%\%1.log

-if %errorlevel% == 0 (

-

-REM ---la chaine FIN TEST est trouvee , la tests suite est achevee , chercher si la chaine FAILED existe

-call :suite %1

-

-) else (

-

-   if %errorlevel% == 1 (

-REM ---chaine FIN TEST pas trouvee , la test suite pas terminee

-   echo %1 TEST SUITE --------------- NOT COMPLETED >> %envq_qualif%\log\%envq_ver%\%1.log

-   )

-

-)

-

-goto fin

-

-:suite

-

-   find /i "FAILED" %envq_qualif%\log\%envq_ver%\%1.log

-   if %errorlevel% == 0 (

-REM ---la chaine FAILED est trouvee , la test suite est incorrecte

-   echo %1 TEST SUITE --------------- FAILED >> %envq_qualif%\log\%envq_ver%\%1.log

-

-   ) else (

-REM la chaine FAILED n est pas trouvee , la test suite est correcte

-echo %1 TEST SUITE *** PASSED *** >> %envq_qualif%\log\%envq_ver%\%1.log

-   )

-

-

+@echo off
+
+REM --- Echo Analyse des log tests_suites resultats
+
+find "{ FIN TEST SUITE " %envq_qualif%\log\%envq_ver%\%1.log
+if %errorlevel% == 0 (
+
+REM ---la chaine FIN TEST est trouvee , la tests suite est achevee , chercher si la chaine FAILED existe
+call :suite %1
+
+) else (
+
+   if %errorlevel% == 1 (
+REM ---chaine FIN TEST pas trouvee , la test suite pas terminee
+   echo %1 TEST SUITE --------------- NOT COMPLETED >> %envq_qualif%\log\%envq_ver%\%1.log
+   )
+
+)
+
+goto fin
+
+:suite
+
+   find /i "FAILED" %envq_qualif%\log\%envq_ver%\%1.log
+   if %errorlevel% == 0 (
+REM ---la chaine FAILED est trouvee , la test suite est incorrecte
+   echo %1 TEST SUITE --------------- FAILED >> %envq_qualif%\log\%envq_ver%\%1.log
+
+   ) else (
+REM la chaine FAILED n est pas trouvee , la test suite est correcte
+echo %1 TEST SUITE *** PASSED *** >> %envq_qualif%\log\%envq_ver%\%1.log
+   )
+
+
 :fin
\ No newline at end of file
diff --git a/tests/nonRegression/Qualif/Proc/clearlog.bat b/tests/nonRegression/Qualif/Proc/clearlog.bat
index 2d37991..1ccade2 100755
--- a/tests/nonRegression/Qualif/Proc/clearlog.bat
+++ b/tests/nonRegression/Qualif/Proc/clearlog.bat
@@ -1,41 +1,41 @@
-@echo off

-

-REM --- supprime tous les fichiers log des batteries de tests sous le répertoire log\version scilab

-

-if "%1"=="--help" goto aide

-if "%1"=="" goto saisie

- 

-:encore

-if "%1"=="" goto the_end

-erase /s /q %envq_qualif%\log\%envq_ver%\%1.log

-REM if %errorlevel% leq 1 echo delete %1.log ...

-shift

-goto encore

-

-goto the_end

-

-:saisie

-

-goto the_end

-

-:aide

-echo -            

-echo // CLEARLOG

-echo // Supprime un, plusieurs ou tous les fichiers log des batteries de tests du repertoire log\version scilab :

-echo // 

-echo //  - toutes les tests_suites faire : clearlog *

-echo //  - certaines tests_suites faire  : clearlog nonreg* tests_20?? scicos

-echo //  - une tests-suite particuliere  : clearlog nonreg_2-7-1

-echo //

-echo // 

-

-:the_end

-

-

-

-

-

-

-

-

-

+@echo off
+
+REM --- supprime tous les fichiers log des batteries de tests sous le répertoire log\version scilab
+
+if "%1"=="--help" goto aide
+if "%1"=="" goto saisie
+ 
+:encore
+if "%1"=="" goto the_end
+erase /s /q %envq_qualif%\log\%envq_ver%\%1.log
+REM if %errorlevel% leq 1 echo delete %1.log ...
+shift
+goto encore
+
+goto the_end
+
+:saisie
+
+goto the_end
+
+:aide
+echo -            
+echo // CLEARLOG
+echo // Supprime un, plusieurs ou tous les fichiers log des batteries de tests du repertoire log\version scilab :
+echo // 
+echo //  - toutes les tests_suites faire : clearlog *
+echo //  - certaines tests_suites faire  : clearlog nonreg* tests_20?? scicos
+echo //  - une tests-suite particuliere  : clearlog nonreg_2-7-1
+echo //
+echo // 
+
+:the_end
+
+
+
+
+
+
+
+
+
diff --git a/tests/nonRegression/Qualif/Proc/clearwork.bat b/tests/nonRegression/Qualif/Proc/clearwork.bat
index 78e4403..bcbf3b0 100755
--- a/tests/nonRegression/Qualif/Proc/clearwork.bat
+++ b/tests/nonRegression/Qualif/Proc/clearwork.bat
@@ -1,42 +1,42 @@
-@echo off

-

-REM --- supprime une, plusieurs ou toutesles batteries de tests du reperoire work local

-

-if "%1"=="--help" goto aide

-

-

-REM --- LIST : paramètre constitué de la liste de tests-suites demandées

-set LIST=

-

-:continue

-if "%1"=="" goto lancer_une

-

-for /D %%j in (%envq_qualif%\work\%1) do set LIST=!LIST! %%~nj

-shift

-goto continue

-

-REM --- lancer chaque tests-suite une par une

-:lancer_une

-echo liste des tests-suites :%LIST%

-echo ------------------------

-

-for %%i in (%LIST%) do echo delete %%i ... & rmdir /s /q %envq_qualif%\work\%%i

-

-goto the_end

-

-:aide

-echo //

-echo // CLEARWORK

-echo // Supprime une, plusieurs ou toutesles batteries de tests sous le repertoire work :

-echo // 

-echo //  - toutes les tests_suites faire : clearwork *

-echo //  - certaines tests_suites faire  : clearwork nonreg* tests_20?? scicos

-echo //  - une tests-suite particuliere  : clearwork nonreg_2-7-1

-echo //

-echo // 

-

-:the_end

-

-

-

-

+@echo off
+
+REM --- supprime une, plusieurs ou toutesles batteries de tests du reperoire work local
+
+if "%1"=="--help" goto aide
+
+
+REM --- LIST : paramètre constitué de la liste de tests-suites demandées
+set LIST=
+
+:continue
+if "%1"=="" goto lancer_une
+
+for /D %%j in (%envq_qualif%\work\%1) do set LIST=!LIST! %%~nj
+shift
+goto continue
+
+REM --- lancer chaque tests-suite une par une
+:lancer_une
+echo liste des tests-suites :%LIST%
+echo ------------------------
+
+for %%i in (%LIST%) do echo delete %%i ... & rmdir /s /q %envq_qualif%\work\%%i
+
+goto the_end
+
+:aide
+echo //
+echo // CLEARWORK
+echo // Supprime une, plusieurs ou toutesles batteries de tests sous le repertoire work :
+echo // 
+echo //  - toutes les tests_suites faire : clearwork *
+echo //  - certaines tests_suites faire  : clearwork nonreg* tests_20?? scicos
+echo //  - une tests-suite particuliere  : clearwork nonreg_2-7-1
+echo //
+echo // 
+
+:the_end
+
+
+
+
diff --git a/tests/nonRegression/Qualif/Proc/copyftp.bat b/tests/nonRegression/Qualif/Proc/copyftp.bat
index 6bfe906..1eb9c84 100755
--- a/tests/nonRegression/Qualif/Proc/copyftp.bat
+++ b/tests/nonRegression/Qualif/Proc/copyftp.bat
@@ -1,33 +1,33 @@
-@echo off

-

-rem if not "%os%"=="Windows_NT" goto NextStep

-REM --- Section spécifique à Windows NT ---

-rem color 0F

-rem :NextStep

-if "%1"=="--help" goto aide

-

-if exist %envq_qualif%\log\copyftp.log erase %envq_qualif%\log\copyftp.log

- 

-:encore

-if "%1"=="" goto the_end

-echo copy de %1 ...

-ncftpget -R -d %envq_qualif%\log\copyftp.log -u qualif -p qualifpwd frioul.inria.fr %envq_qualif%\work tests_suite/%1

-shift

-goto encore

-

-rem for /F %%i in ('dir /A:A /O:S /B') do call :action1 %%i

-

-goto the_end

-

-:aide

-echo //

-echo // COPYFTP

-echo // Copie a partir du serveur via ftp (ncftpget) dans le repertoire Work local de l'environnement de qualification Scilab (les meta-caracteres sont acceptes) :

-echo // 

-echo //  - toutes les tests_suites faire : copyftp *

-echo //  - certaines tests_suites faire  : copyftp nonreg* tests_20?? scicos

-echo //  - une tests-suite particuliere  : copyftp nonreg_2-7-1

-echo //

-echo // 

-

+@echo off
+
+rem if not "%os%"=="Windows_NT" goto NextStep
+REM --- Section spécifique à Windows NT ---
+rem color 0F
+rem :NextStep
+if "%1"=="--help" goto aide
+
+if exist %envq_qualif%\log\copyftp.log erase %envq_qualif%\log\copyftp.log
+ 
+:encore
+if "%1"=="" goto the_end
+echo copy de %1 ...
+ncftpget -R -d %envq_qualif%\log\copyftp.log -u qualif -p qualifpwd frioul.inria.fr %envq_qualif%\work tests_suite/%1
+shift
+goto encore
+
+rem for /F %%i in ('dir /A:A /O:S /B') do call :action1 %%i
+
+goto the_end
+
+:aide
+echo //
+echo // COPYFTP
+echo // Copie a partir du serveur via ftp (ncftpget) dans le repertoire Work local de l'environnement de qualification Scilab (les meta-caracteres sont acceptes) :
+echo // 
+echo //  - toutes les tests_suites faire : copyftp *
+echo //  - certaines tests_suites faire  : copyftp nonreg* tests_20?? scicos
+echo //  - une tests-suite particuliere  : copyftp nonreg_2-7-1
+echo //
+echo // 
+
 :the_end
\ No newline at end of file
diff --git a/tests/nonRegression/Qualif/Proc/copyrun.bat b/tests/nonRegression/Qualif/Proc/copyrun.bat
index 5985f59..90ad664 100755
--- a/tests/nonRegression/Qualif/Proc/copyrun.bat
+++ b/tests/nonRegression/Qualif/Proc/copyrun.bat
@@ -1,29 +1,29 @@
-@echo off

-if "%1"=="" goto aide

-

-set MYLIST=

-

-:continue

-if "%1"=="" goto suite

-set MYLIST=%MYLIST% %1

-shift

-goto continue

-

-:suite 

-call copyftp %MYLIST%

-call runtest %MYLIST%

-

-goto the_end

-

-:aide

-echo //

-echo // COPYRUN

-echo // Copie puis execute une ou plusieurs batteries de tests dans l'environnement de qualification Scilab (les meta-caracteres sont acceptes) :

-echo //

-echo // copyrun tests_suite [tests_suite]

-echo // copyrun *

-echo // copyrun n* sc?cos autre 

-echo //

-echo //

-

+@echo off
+if "%1"=="" goto aide
+
+set MYLIST=
+
+:continue
+if "%1"=="" goto suite
+set MYLIST=%MYLIST% %1
+shift
+goto continue
+
+:suite 
+call copyftp %MYLIST%
+call runtest %MYLIST%
+
+goto the_end
+
+:aide
+echo //
+echo // COPYRUN
+echo // Copie puis execute une ou plusieurs batteries de tests dans l'environnement de qualification Scilab (les meta-caracteres sont acceptes) :
+echo //
+echo // copyrun tests_suite [tests_suite]
+echo // copyrun *
+echo // copyrun n* sc?cos autre 
+echo //
+echo //
+
 :the_end
\ No newline at end of file
diff --git a/tests/nonRegression/Qualif/Proc/demarrage_qualif.bat b/tests/nonRegression/Qualif/Proc/demarrage_qualif.bat
index 0e3796a..4f8d3e7 100755
--- a/tests/nonRegression/Qualif/Proc/demarrage_qualif.bat
+++ b/tests/nonRegression/Qualif/Proc/demarrage_qualif.bat
@@ -1,23 +1,23 @@
-@echo off

-

-REM --- création de la variable d'environnement version de scilab et du repertoire log

-set envq_ver=scilab-2.7.2

-

-set envq_qualif=e:\qualif

-REM set envq_proc=e:\qualif\proc

-REM set envq_work=e:\qualif\work

-REM set envq_log=e:\qualif\log

-

-REM --- ajout dans le path du chemin d'installation de la version de scilab a qualifier et du repertoire ou sont installees les procedures necessaires

-PATH=%PATH%;%ProgramFiles%\%envq_ver%\bin;%envq_qualif%\proc

-

-

-REM --- création du repertoire version sous le repertoire log 

-if not exist %envq_qualif%\log\%envq_ver% mkdir %envq_qualif%\log\%envq_ver%

-

-

-

-

-

-

-

+@echo off
+
+REM --- création de la variable d'environnement version de scilab et du repertoire log
+set envq_ver=scilab-2.7.2
+
+set envq_qualif=e:\qualif
+REM set envq_proc=e:\qualif\proc
+REM set envq_work=e:\qualif\work
+REM set envq_log=e:\qualif\log
+
+REM --- ajout dans le path du chemin d'installation de la version de scilab a qualifier et du repertoire ou sont installees les procedures necessaires
+PATH=%PATH%;%ProgramFiles%\%envq_ver%\bin;%envq_qualif%\proc
+
+
+REM --- création du repertoire version sous le repertoire log 
+if not exist %envq_qualif%\log\%envq_ver% mkdir %envq_qualif%\log\%envq_ver%
+
+
+
+
+
+
+
diff --git a/tests/nonRegression/Qualif/Proc/fonct_qualif.sci b/tests/nonRegression/Qualif/Proc/fonct_qualif.sci
index 655db4a..fd74c1a 100755
--- a/tests/nonRegression/Qualif/Proc/fonct_qualif.sci
+++ b/tests/nonRegression/Qualif/Proc/fonct_qualif.sci
@@ -1,573 +1,573 @@
-function tests_suite_up_to_date=find_tests_suite_up_to_date(directory)

-//recuperer les batteries de tests en cours sous directory dans une matrice

-// verifier que tests_suite sont des repertoires quand directory=envq_work 

-// et fichier quand log ???

-//tests_suite=""

-tests_suite = []

-select directory

- case envq_work then 

-     tests_suite=strsubst(only_directory(listfiles(directory+'*'),''),directory,'')

-     //tests_suite=basename(listfiles(directory)); 

-     //the_list=""

-     //j=1

-     //for i=1:size(tests_suite,"*")

-     //    if isdir (envq_work+tests_suite(i)) then 

-//   //    tests_suite(i) est un répertoire

-     //       the_list(j) = tests_suite(i)

-     //       j=j+1

- //  //         disp "boubou" 

-   ////         pause

-     //    end

-     //end // du for

-     //tests_suite=the_list  

- case (envq_log+envq_ver+"\") then

-      tests_suite=basename(listfiles(directory+"*.log")) 

-      // attention : si existe un log qui n'est pas un nom de batterie sera dans la liste... ***************************

-      // si basename ne trouve rien tests_suite est empty

- //      ierr=execstr(tests_suite=basename(listfiles(envq_log+envq_ver+"\*.log")),'errcatch') 

- 

- case "" then

-//************************************************************* 

-// chercher la liste de frioul

-//************************************************************* 

-    // lancer la copie via ftp sur frioul du fichier frioul_tests_suite_list.txt

-    if MSDOS then

-       if ~isempty(fileinfo(envq_work+"frioul_tests_suite_list.txt")) then 

-           unix_g("erase /s /q "+envq_work+"frioul_tests_suite_list.txt")

-           unix_g("erase /s /q "+envq_log+"copyftp.log")

-       end

-       unix_g(envq_proc+"frioul_tests_suite_list.bat")

-    else

-       if ~isempty(fileinfo(envq_work+"frioul_tests_suite_list.txt")) then 

-           unix_g("rm "+envq_work+"frioul_tests_suite_list.txt")

-           unix_g("rm "+envq_log+"copyftp.log")

-       end

-       unix_g(envq_proc+"frioul_tests_suite_list")

-    end  // du if

-    tests_suite=read(envq_work+"frioul_tests_suite_list.txt",-1,1,'(a)')

- else

-    disp ("PROBLEME")

-    abort

- end // du case

-//disp("tests_suite de find tests suute up to date")

-//pause

-tests_suite_up_to_date=sort(tests_suite)

-//disp ("tests_suite_up_to_date via find_tests_suite_up_to_date : " + tests_suite_up_to_date)

-//pause

-endfunction

-

-

-//======================================================================================================================

-

-

-function affich_message (graph_affich, texte)

-if graph_affich then

-//afficher message windows pour indiquer pas de batterie dans la liste de selection

-x_message(texte)

-else

-//afficher message prompt pour indiquer pas de batterie dans la liste de selection

-disp(texte)

-end // du if 

-endfunction

-

-

-//======================================================================================================================

-

-

-function tests_suite_selected=graph_select_tests_suite(command, tests_suite)

-//parcourir la matrice ainsi créée et charger la liste pour le menu de selection des batteries

-  the_list=list()

-  for i=1:size(tests_suite,"*")

-     the_list($+1)=list(tests_suite(i),1,['Non','Oui'])

-  end // du for

-  rep=x_choices("Tests Suite Selection Menu for "+convstr(command,'u')+" command.",the_list);

-

-  //prendre dans rep les reponses à oui (valeur 2);retrouver la batterie de tests correspondante ; et lancer son execution

-  tests_suite_selected=""

-  for i=1:size(tests_suite,"*")

-    if rep(i)==2 then

-  //     disp ("je sui sla")

-  //     pause

-       tests_suite_selected = tests_suite_selected + " " + tests_suite(i)

-  //           disp ("je sui encore la")

-  //     pause

-    end // du if

-  end // du for

-//   disp ( "tests_suite_selected via graph_select : " + tests_suite_selected)

-//   pause

-endfunction

-

-

-//======================================================================================================================

-

-

-function tests_suite_selected=input_select_tests_suite(tests_suite)

-   disp (" ");

-   disp(tests_suite);

-   disp (" ");

-   //tests_suite_selected=input("Type tests_suite : ","string")  -- input ne prend que le premier string avant le blanc

-   disp("Type tests_suite : ")

-   the_list=list()

-   the_list=read(%io(1),1,1,'(a)') 

-   tests_suite_selected=tokens(the_list," ")

-//   disp ( "tests_suite_selected via input_select : " + tests_suite_selected)

-//   pause

-endfunction

-

-

-//======================================================================================================================

-

-

-function graph_cmd(command,directory)

-available_tests_suite=find_tests_suite_up_to_date(directory)

-//disp (" toto")

-//pause

-if isempty(available_tests_suite) then

-   affich_message (%t, "*****   No tests_suite available   *****")

-else

-   tests_suite_selected=graph_select_tests_suite(command,available_tests_suite)

- //  disp (" choosen")

-//pause

-   if ~isempty(tests_suite_selected) then

-//      disp ("tests_suite_selected via graph_cmd : " + tests_suite_selected)

-//      pause

-      if directory=='' then directory=envq_work; end //positionner le repertoire à work après recupr de frioul

-      exec_cmd(command, directory, tests_suite_selected)

-   //else

-   //   return

-   end // du if

-end // du if

-endfunction

-

-

-//======================================================================================================================

-

-

-function prompt_cmd(command,param_command,directory)

- if isempty(param_command)

-      // pas de parametres, saisie au prompt scilab

-      available_tests_suite=find_tests_suite_up_to_date(directory)

-      if isempty(available_tests_suite) then

-         affich_message (%f, "*****   No tests_suite available   *****")

-         // sortir de la fonction 

-         return

-      else

-  //       disp (" titi")

-  //      pause //affich_message (graph_interf, available_tests_suite)

-         tests_suite_selected=input_select_tests_suite(available_tests_suite)

-  //               disp ("bababababa")

-  //      pause

-         // pour l'instant ne rien faire si erreur dans saisie laisser faire l OS

-      end // du if

- else

-         // il existe des arguments pour l'instant ne rien faire si erreur dans saisie laisser faire l OS

-        tests_suite_selected = param_command

-        //no_wildcard (tests_suite, directory) 

- end // du if

- //disp ("tests_suite_selected via promp_cmd  : " + tests_suite_selected)

- //pause  

- if ~isempty(tests_suite_selected) then

-      exec_cmd(command, directory, tests_suite_selected);

-      // µµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµ

-   //else

-   //   return

-end // du if

-endfunction

-

-

-

-//======================================================================================================================

-

-

-function tests_suite_without_wildcard = no_wildcard (tests_suite, directory)

-if ~isempty(grep(tests_suite,'*')) then

-   indice=grep(tests_suite,'*')

-   the_list=[]

-   for i=indice

-         if ~isempty(basename(listfiles(directory+tests_suite(i)))) then

-         ////////////////////////////////////////////////////////////////////////////

-            the_list=[the_list;basename(listfiles(directory+tests_suite(i)))]

-         end //if

-   end // du for

-   for i=sort(indice)

-         tests_suite(i)=[]

-   end // du for   

-   tests_suite = [tests_suite ; the_list]

-end // du if

-tests_suite_without_wildcard=sort(tests_suite)

-//disp ( "tests_suite_without_wildcard via no_wildcard : " + tests_suite_without_wildcard)

-//pause

-endfunction

-

-

-//======================================================================================================================

-

-

-function tests_suite_is_directory = only_directory (tests_suite, directory)

-//attention : la tests_suite en parametre doit être construite avec listfiles et sans basename pb scilab-2.7.2

-the_list=[]

-for i=1:size(tests_suite,"*")

-//disp("i = " + directory+tests_suite(i))

-    if isdir(directory+tests_suite(i)) then 

-    //   tests_suite(i) est un répertoire

-       the_list =[the_list;tests_suite(i)]

-   end

-end // du for

-tests_suite_is_directory=the_list

-//disp ( "tests_suite_is_directory via only_directory : " + tests_suite_is_directory)

-//pause

-endfunction

-

-

-//======================================================================================================================

-

-

-function exec_cmd(command, directory, tests_suite_selected)

-

-//********************************

-// liste des fichier du repertoire directory, on ne garde que les repertoires, puis on ne garde que le nom de fichier et on en fait une liste

-// pour clearwork et runtest strcat(strsubst(only_directory(listfiles(envq_work+'*')),envq_work,''),' ') 

-// pour clearlog strcat(strsubst(listfiles(envq_log+envq_ver+"\"+'*.log'),envq_log+envq_ver+"\",''),' ')  

-// pour copyftp  

-//**********************************

-

-rep=strcat(tests_suite_selected," ")

-//disp ("rep via EXEC_CMD : " + rep)

-//pause

-//for i=1:size(tests_suite_selected,"*")

-//for i=1:size(rep,"*")

-//    case "copyftp" then 

-//    tests_suite=basename(listfiles(directory)); 

-//     the_list=""

-//     j=1

-//****************************

-// dos_command=tlist(['commande dos';'copyftp';'clearlog'],"copy toto","supprime toto")  

-//dos_command=tlist(['dos command';'copyftp';'runtest';'copyrun';'clearlog';'clearwork'],"copyftp dos","runtest dos","copyrun dos","erase /s /q ","rmdir /s /q ") 

-//not_dos_command=tlist(['not dos command';'copyftp';'runtest';'copyrun';'clearlog';'clearwork'],"copyftp unix","runtest unix","copyrun unix","clearlog unix","clearwork unix") 

-//system_cmd=tlist(['operating system';'%t';'%f'],dos_command,not_dos_command)

-//os_cmd(sci2exp(MSDOS))(command)+directory+choosen_tests_suite

-

-//strsubst(only_directory(listfiles(envq_work+'*')),envq_work,'') 

-//unix_g(os_cmd(sci2exp(MSDOS))("clearwork")+envq_work+toto(2)) 

-

-// supprimer run_qualif_cmd.bat si il existe

-//if ~isempty(fileinfo(envq_work+"run_qualif_cmd.bat")) then 

-   unix_g("erase /s /q "+envq_proc+"run_qualif_cmd.bat")

-//end  

-//ecrire dans le fichier run_qualif_cmd.bat la commande ainsi creee via scilab

-temp=read(envq_proc+"template_run_qualif_cmd.bat",-1,1,'(a)') 

-temp(3)="call " + os_cmd(sci2exp(MSDOS))(command)+rep

-write(envq_proc+"run_qualif_cmd.bat",temp)

-// lancer le fichier bat dans une session dos qualif

-unix_g("start %SystemRoot%\system32\cmd.exe /e:on /v:on /K %envq_qualif%\proc\run_qualif_cmd.bat")

-

-

-//if x_message(['Continue ...'],['No','Yes'])== 2 then exec_cmd("clearwork", envq_work,find_tests_suite_up_to_date(envq_work)); end 

-

-//unix_g(os_cmd(sci2exp(MSDOS))(command)+directory+strcat(strsubst(only_directory(listfiles(envq_work+'*'),''),envq_work,'')),' ')

-

-//unix_g(os_cmd(sci2exp(MSDOS))("clearwork")+envq_work+strcat(strsubst(only_directory(listfiles(envq_work+'*'),''),envq_work,''),' '))

-//*************

-

-//end // du for 

-endfunction

-

-

-//======================================================================================================================

-

-

-function affich_date

-w=getdate()

-disp(date() + "  "+string(w(7))+" h. "+string(w(8))+" mn. "+string(w(9))+" s. ")

-endfunction

-

-

-//======================================================================================================================

-

-

-function affich_result(correct, num)

-// affiche FAILED ou PASSED, fonction utiliser dans les tests-suites de non regression

-   // This part display result

-   if ~correct then

-     disp("*****************************************  Test bug" + string(num)  +" : FAILED ! ");

-   else

-    disp("Test bug" + string(num)  +" : PASSED");

-   end

-endfunction

-

-function my_mat = list2mat (my_list)

-my_mat = ['']  

-//for k=1:size(my_list,"*")

-for k=1:size(my_list)

-         my_mat (k) = my_list(k)

-end

-endfunction 

-

-

-//======================================================================================================================

-

-

-function mat_rep = sel_rep(my_mat)

-  mat_rep = ['']

-// cas d'une liste

-mat_rep = ''

-  n=1

-  for k=1:size(my_mat,"*")

-//  for k=1:size(my_mat)

-     if isdir(my_mat(k)) then 

-         mat_rep (n) = my_mat(k)

-         n = n+1

-     end

-  end

-endfunction

-

-

-//======================================================================================================================

-

-

-function copyftp(param)

-if argn(2)==0 then 

-   param = []

-end // du if

-prompt_cmd("copyftp",param,envq_log)

-endfunction

-

-

-//======================================================================================================================

-

-

-function test (str)

-a=[]

-interv=strindex(str," ")

-debut=1

-for i=1:length(interv)

-    a=[a;part(str,[debut:(interv(i))-1])]

-    debut=interv(i)+1

-end

-a=[a;part(str,[debut:length(str)])]

-disp (a)

-endfunction 

-

-

-//======================================================================================================================

-

-

-function clearwork (param)

-if argn(2)==0 then 

-   param = []

-end // du if

-prompt_cmd("clearwork",param,envq_work)

-endfunction

-

-

-//======================================================================================================================

-

- 

-function clearlog (param)

-if argn(2)==0 then 

-   param = []

-end // du if

-prompt_cmd("clearlog",param,envq_log+envq_ver+"\")

-endfunction

-

-

-//======================================================================================================================

-

-

-function runtest(param)

-if argn(2)==0 then  

-   param = []

-end // du if

-prompt_cmd("runtest",param,envq_work)

-endfunction

-

-

-//======================================================================================================================

-

-

-function showlog (my_cmd)

-       if argn(2)==0 then 

-             //disp " "

-             write(%io(2),"SHOWLOG : ")

-             write(%io(2),"Pour visualiser la derniere ligne de un, plusieurs ou tous fichiers log : ")

-             write(%io(2),"- toutes les tests_suites faire : showlog *")

-             write(%io(2),"- certaines tests_suites faire  : showlog ""nonreg* tests_20?? scicos""")

-             write(%io(2),"- une tests_suite faire         : showlog ""scicos""")

-             disp " "

-       else

-             if MSDOS then

-                unix_w (envq_proc+"init_qualif.bat&showlog.bat "+my_cmd)

-             else

-                unix_w ("showlog" +my_cmd)

-             end

-       end

-endfunction

-

-

-//======================================================================================================================

-

-

-function dirlog (my_cmd)

-if argn(2)==0 then 

-   param = []

-end // du if

-prompt_cmd("clearlog",param,envq_log+envq_ver)

-endfunction

-

-

-//======================================================================================================================

-

-

-function dirwork (my_cmd)

-      if argn(2)==0 then 

-             //disp " "

-             write(%io(2),"DIRWORK : ")

-             write(%io(2),"Pour visualiser la derniere ligne de un, plusieurs ou tous fichiers log : ")

-             write(%io(2),"- toutes les tests_suites faire : showlog *")

-             write(%io(2),"- certaines tests_suites faire  : showlog ""nonreg* tests_20?? scicos""")

-             write(%io(2),"- une tests_suite faire         : showlog ""scicos""")

-             disp " "

-       else

-             disp(sort(basename(listfiles(envq_work+my_cmd))))

-

-      //if MSDOS then

-      //               unix_w (envq_proc+"init_qualif.bat&showlog.bat "+my_cmd)

-      //           else

-      //               unix_w ("showlog" +my_cmd)

-      //       end  

-       end

-endfunction

-

-

-//======================================================================================================================

-

-

-function copyrun(param)

-if argn(2)==0 then  

-             copyftp()

-             runtest()

-else

-    copyftp (param)

-    runtest (""""+param+"""")

-end

-endfunction

-

-

-//======================================================================================================================

-

-

-function runtestXXXXXXXXXXX(tout)

-

-if argn(2)==0 then 

-             //disp " "

-             write(%io(2),"RUNTEST : ")

-             write(%io(2),"Pour executer en local : ")

-             write(%io(2),"- toutes les tests_suites faire : runtest (""*"")")

-             write(%io(2),"- certaines tests_suites faire  : runtest (""nonreg* tests_20?? scicos"")")

-             write(%io(2),"- une tests_suite faire         : runtest (""scicos"")")

-             disp " "

-else

-

-//disp (length(varargin))

-

-//for i=1:length(varargin)

-//disp (varargin(i))

-//end // du for

-

-my_list=tokens(tout," ")

-

-//pause

-

-// exemple : displist(["autre?ep";"n*"])

-ierr=0

-//my_list = ["autrerep","hif","n*"] 

-//my_list = listfiles(envq_work+my_list

-the_list=[]

-//for i=1:size(my_list)

-for i=1:size(my_list,"*")

-    if isdir (envq_work+my_list(i)) then 

-//  my_list(i) est un répertoire

-       the_list = [the_list;my_list(i)]

-    else

-       the_list = [the_list;basename(listfiles(envq_work+my_list(i)))]

-    end

-end // du for

-

-//disp("ici")

-//pause

-

-

-the_list2=[]

-for i=1:size(the_list,"*")

-    if isdir (envq_work+the_list(i)) then 

-       the_list2 = [the_list2;the_list(i)]

-    end

-end // du for

-

-//disp("là")

-//pause

-

-for k=1:size(the_list2,"*")

-    bibi = the_list2(k)

-    chdir (envq_work + basename(the_list2(k)))

-    unix_w ("erase "+envq_log+envq_ver+"\test_en_cours.txt")

-    diary (envq_log+envq_ver+"\test_en_cours.txt")

-    ierr=0

-//    diary (envq_log+envq_ver+"\"+the_list2(k)+".txt")

-    ierr = exec (the_list2(k) + ".sce", 'errcatch')

-    if ierr<>0 then 

-       disp("")

-       disp " LA TESTS-SUITE " + the_list2(k) + " S ''EST INCORRECTEMENT TERMINEE.----------------------------"

-       disp("Error n° "+string(ierr));

-       disp(lasterror());

-       disp("")

-    end

-    diary(0)

-    if MSDOS then

-//disp ("msdos")    

-//pause

-//    disp ("bibi = " + bibi)

-//pause

-//unix_w ("type "+envq_log+envq_ver+"\test_en_cours.txt >> "+envq_log+envq_ver+"\"+the_list2(k)+".txt")

-unix_w ("type "+envq_log+envq_ver+"\test_en_cours.txt >> "+envq_log+envq_ver+"\"+bibi+".txt")

-//    unix_w ("erase "+envq_log+envq_ver+"\test_en_cours.txt")

-    else

-// monde linux utiliser commande cat

-    end

-//       disp (basename(the_list2(k)))

-end // du for

-

-end

-endfunction

-

-

-//======================================================================================================================

-

-

-function aide(varargin)

-// fonction executer au lancement de l'environnement de qualification scilab sous window

-   if argn(2)==1 then

-                  if (varargin(1)=="all") | (varargin(1)=="ALL" )then 

-                 disp (" ")

-                 copyftp()

-                 runtest()

-//               copyrun()

-                 clearwork()

-                 clearlog()

-                 disp (" ")

-                 end

-   else 

-                 disp (" ")

-                 write(%io(2),"   ENVIRONNEMENT DE QUALIFICATION SCILAB")

-                 disp (" ")

-                 write(%io(2),"   commandes disponibles : COPYFTP() - RUNTEST() - COPYRUN() - CLEARWORK() - CLEARLOG()")

-                 //write(%io(2)," ")

-                 //write(%io(2),"   pour une aide faire : AIDE (""all"") ou lancer une commande sans parametres ")

-                 disp (" ")

-   end

-endfunction

-

-

-

-

-

+function tests_suite_up_to_date=find_tests_suite_up_to_date(directory)
+//recuperer les batteries de tests en cours sous directory dans une matrice
+// verifier que tests_suite sont des repertoires quand directory=envq_work 
+// et fichier quand log ???
+//tests_suite=""
+tests_suite = []
+select directory
+ case envq_work then 
+     tests_suite=strsubst(only_directory(listfiles(directory+'*'),''),directory,'')
+     //tests_suite=basename(listfiles(directory)); 
+     //the_list=""
+     //j=1
+     //for i=1:size(tests_suite,"*")
+     //    if isdir (envq_work+tests_suite(i)) then 
+//   //    tests_suite(i) est un répertoire
+     //       the_list(j) = tests_suite(i)
+     //       j=j+1
+ //  //         disp "boubou" 
+   ////         pause
+     //    end
+     //end // du for
+     //tests_suite=the_list  
+ case (envq_log+envq_ver+"\") then
+      tests_suite=basename(listfiles(directory+"*.log")) 
+      // attention : si existe un log qui n'est pas un nom de batterie sera dans la liste... ***************************
+      // si basename ne trouve rien tests_suite est empty
+ //      ierr=execstr(tests_suite=basename(listfiles(envq_log+envq_ver+"\*.log")),'errcatch') 
+ 
+ case "" then
+//************************************************************* 
+// chercher la liste de frioul
+//************************************************************* 
+    // lancer la copie via ftp sur frioul du fichier frioul_tests_suite_list.txt
+    if MSDOS then
+       if ~isempty(fileinfo(envq_work+"frioul_tests_suite_list.txt")) then 
+           unix_g("erase /s /q "+envq_work+"frioul_tests_suite_list.txt")
+           unix_g("erase /s /q "+envq_log+"copyftp.log")
+       end
+       unix_g(envq_proc+"frioul_tests_suite_list.bat")
+    else
+       if ~isempty(fileinfo(envq_work+"frioul_tests_suite_list.txt")) then 
+           unix_g("rm "+envq_work+"frioul_tests_suite_list.txt")
+           unix_g("rm "+envq_log+"copyftp.log")
+       end
+       unix_g(envq_proc+"frioul_tests_suite_list")
+    end  // du if
+    tests_suite=read(envq_work+"frioul_tests_suite_list.txt",-1,1,'(a)')
+ else
+    disp ("PROBLEME")
+    abort
+ end // du case
+//disp("tests_suite de find tests suute up to date")
+//pause
+tests_suite_up_to_date=sort(tests_suite)
+//disp ("tests_suite_up_to_date via find_tests_suite_up_to_date : " + tests_suite_up_to_date)
+//pause
+endfunction
+
+
+//======================================================================================================================
+
+
+function affich_message (graph_affich, texte)
+if graph_affich then
+//afficher message windows pour indiquer pas de batterie dans la liste de selection
+x_message(texte)
+else
+//afficher message prompt pour indiquer pas de batterie dans la liste de selection
+disp(texte)
+end // du if 
+endfunction
+
+
+//======================================================================================================================
+
+
+function tests_suite_selected=graph_select_tests_suite(command, tests_suite)
+//parcourir la matrice ainsi créée et charger la liste pour le menu de selection des batteries
+  the_list=list()
+  for i=1:size(tests_suite,"*")
+     the_list($+1)=list(tests_suite(i),1,['Non','Oui'])
+  end // du for
+  rep=x_choices("Tests Suite Selection Menu for "+convstr(command,'u')+" command.",the_list);
+
+  //prendre dans rep les reponses à oui (valeur 2);retrouver la batterie de tests correspondante ; et lancer son execution
+  tests_suite_selected=""
+  for i=1:size(tests_suite,"*")
+    if rep(i)==2 then
+  //     disp ("je sui sla")
+  //     pause
+       tests_suite_selected = tests_suite_selected + " " + tests_suite(i)
+  //           disp ("je sui encore la")
+  //     pause
+    end // du if
+  end // du for
+//   disp ( "tests_suite_selected via graph_select : " + tests_suite_selected)
+//   pause
+endfunction
+
+
+//======================================================================================================================
+
+
+function tests_suite_selected=input_select_tests_suite(tests_suite)
+   disp (" ");
+   disp(tests_suite);
+   disp (" ");
+   //tests_suite_selected=input("Type tests_suite : ","string")  -- input ne prend que le premier string avant le blanc
+   disp("Type tests_suite : ")
+   the_list=list()
+   the_list=read(%io(1),1,1,'(a)') 
+   tests_suite_selected=tokens(the_list," ")
+//   disp ( "tests_suite_selected via input_select : " + tests_suite_selected)
+//   pause
+endfunction
+
+
+//======================================================================================================================
+
+
+function graph_cmd(command,directory)
+available_tests_suite=find_tests_suite_up_to_date(directory)
+//disp (" toto")
+//pause
+if isempty(available_tests_suite) then
+   affich_message (%t, "*****   No tests_suite available   *****")
+else
+   tests_suite_selected=graph_select_tests_suite(command,available_tests_suite)
+ //  disp (" choosen")
+//pause
+   if ~isempty(tests_suite_selected) then
+//      disp ("tests_suite_selected via graph_cmd : " + tests_suite_selected)
+//      pause
+      if directory=='' then directory=envq_work; end //positionner le repertoire à work après recupr de frioul
+      exec_cmd(command, directory, tests_suite_selected)
+   //else
+   //   return
+   end // du if
+end // du if
+endfunction
+
+
+//======================================================================================================================
+
+
+function prompt_cmd(command,param_command,directory)
+ if isempty(param_command)
+      // pas de parametres, saisie au prompt scilab
+      available_tests_suite=find_tests_suite_up_to_date(directory)
+      if isempty(available_tests_suite) then
+         affich_message (%f, "*****   No tests_suite available   *****")
+         // sortir de la fonction 
+         return
+      else
+  //       disp (" titi")
+  //      pause //affich_message (graph_interf, available_tests_suite)
+         tests_suite_selected=input_select_tests_suite(available_tests_suite)
+  //               disp ("bababababa")
+  //      pause
+         // pour l'instant ne rien faire si erreur dans saisie laisser faire l OS
+      end // du if
+ else
+         // il existe des arguments pour l'instant ne rien faire si erreur dans saisie laisser faire l OS
+        tests_suite_selected = param_command
+        //no_wildcard (tests_suite, directory) 
+ end // du if
+ //disp ("tests_suite_selected via promp_cmd  : " + tests_suite_selected)
+ //pause  
+ if ~isempty(tests_suite_selected) then
+      exec_cmd(command, directory, tests_suite_selected);
+      // µµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµ
+   //else
+   //   return
+end // du if
+endfunction
+
+
+
+//======================================================================================================================
+
+
+function tests_suite_without_wildcard = no_wildcard (tests_suite, directory)
+if ~isempty(grep(tests_suite,'*')) then
+   indice=grep(tests_suite,'*')
+   the_list=[]
+   for i=indice
+         if ~isempty(basename(listfiles(directory+tests_suite(i)))) then
+         ////////////////////////////////////////////////////////////////////////////
+            the_list=[the_list;basename(listfiles(directory+tests_suite(i)))]
+         end //if
+   end // du for
+   for i=sort(indice)
+         tests_suite(i)=[]
+   end // du for   
+   tests_suite = [tests_suite ; the_list]
+end // du if
+tests_suite_without_wildcard=sort(tests_suite)
+//disp ( "tests_suite_without_wildcard via no_wildcard : " + tests_suite_without_wildcard)
+//pause
+endfunction
+
+
+//======================================================================================================================
+
+
+function tests_suite_is_directory = only_directory (tests_suite, directory)
+//attention : la tests_suite en parametre doit être construite avec listfiles et sans basename pb scilab-2.7.2
+the_list=[]
+for i=1:size(tests_suite,"*")
+//disp("i = " + directory+tests_suite(i))
+    if isdir(directory+tests_suite(i)) then 
+    //   tests_suite(i) est un répertoire
+       the_list =[the_list;tests_suite(i)]
+   end
+end // du for
+tests_suite_is_directory=the_list
+//disp ( "tests_suite_is_directory via only_directory : " + tests_suite_is_directory)
+//pause
+endfunction
+
+
+//======================================================================================================================
+
+
+function exec_cmd(command, directory, tests_suite_selected)
+
+//********************************
+// liste des fichier du repertoire directory, on ne garde que les repertoires, puis on ne garde que le nom de fichier et on en fait une liste
+// pour clearwork et runtest strcat(strsubst(only_directory(listfiles(envq_work+'*')),envq_work,''),' ') 
+// pour clearlog strcat(strsubst(listfiles(envq_log+envq_ver+"\"+'*.log'),envq_log+envq_ver+"\",''),' ')  
+// pour copyftp  
+//**********************************
+
+rep=strcat(tests_suite_selected," ")
+//disp ("rep via EXEC_CMD : " + rep)
+//pause
+//for i=1:size(tests_suite_selected,"*")
+//for i=1:size(rep,"*")
+//    case "copyftp" then 
+//    tests_suite=basename(listfiles(directory)); 
+//     the_list=""
+//     j=1
+//****************************
+// dos_command=tlist(['commande dos';'copyftp';'clearlog'],"copy toto","supprime toto")  
+//dos_command=tlist(['dos command';'copyftp';'runtest';'copyrun';'clearlog';'clearwork'],"copyftp dos","runtest dos","copyrun dos","erase /s /q ","rmdir /s /q ") 
+//not_dos_command=tlist(['not dos command';'copyftp';'runtest';'copyrun';'clearlog';'clearwork'],"copyftp unix","runtest unix","copyrun unix","clearlog unix","clearwork unix") 
+//system_cmd=tlist(['operating system';'%t';'%f'],dos_command,not_dos_command)
+//os_cmd(sci2exp(MSDOS))(command)+directory+choosen_tests_suite
+
+//strsubst(only_directory(listfiles(envq_work+'*')),envq_work,'') 
+//unix_g(os_cmd(sci2exp(MSDOS))("clearwork")+envq_work+toto(2)) 
+
+// supprimer run_qualif_cmd.bat si il existe
+//if ~isempty(fileinfo(envq_work+"run_qualif_cmd.bat")) then 
+   unix_g("erase /s /q "+envq_proc+"run_qualif_cmd.bat")
+//end  
+//ecrire dans le fichier run_qualif_cmd.bat la commande ainsi creee via scilab
+temp=read(envq_proc+"template_run_qualif_cmd.bat",-1,1,'(a)') 
+temp(3)="call " + os_cmd(sci2exp(MSDOS))(command)+rep
+write(envq_proc+"run_qualif_cmd.bat",temp)
+// lancer le fichier bat dans une session dos qualif
+unix_g("start %SystemRoot%\system32\cmd.exe /e:on /v:on /K %envq_qualif%\proc\run_qualif_cmd.bat")
+
+
+//if x_message(['Continue ...'],['No','Yes'])== 2 then exec_cmd("clearwork", envq_work,find_tests_suite_up_to_date(envq_work)); end 
+
+//unix_g(os_cmd(sci2exp(MSDOS))(command)+directory+strcat(strsubst(only_directory(listfiles(envq_work+'*'),''),envq_work,'')),' ')
+
+//unix_g(os_cmd(sci2exp(MSDOS))("clearwork")+envq_work+strcat(strsubst(only_directory(listfiles(envq_work+'*'),''),envq_work,''),' '))
+//*************
+
+//end // du for 
+endfunction
+
+
+//======================================================================================================================
+
+
+function affich_date
+w=getdate()
+disp(date() + "  "+string(w(7))+" h. "+string(w(8))+" mn. "+string(w(9))+" s. ")
+endfunction
+
+
+//======================================================================================================================
+
+
+function affich_result(correct, num)
+// affiche FAILED ou PASSED, fonction utiliser dans les tests-suites de non regression
+   // This part display result
+   if ~correct then
+     disp("*****************************************  Test bug" + string(num)  +" : FAILED ! ");
+   else
+    disp("Test bug" + string(num)  +" : PASSED");
+   end
+endfunction
+
+function my_mat = list2mat (my_list)
+my_mat = ['']  
+//for k=1:size(my_list,"*")
+for k=1:size(my_list)
+         my_mat (k) = my_list(k)
+end
+endfunction 
+
+
+//======================================================================================================================
+
+
+function mat_rep = sel_rep(my_mat)
+  mat_rep = ['']
+// cas d'une liste
+mat_rep = ''
+  n=1
+  for k=1:size(my_mat,"*")
+//  for k=1:size(my_mat)
+     if isdir(my_mat(k)) then 
+         mat_rep (n) = my_mat(k)
+         n = n+1
+     end
+  end
+endfunction
+
+
+//======================================================================================================================
+
+
+function copyftp(param)
+if argn(2)==0 then 
+   param = []
+end // du if
+prompt_cmd("copyftp",param,envq_log)
+endfunction
+
+
+//======================================================================================================================
+
+
+function test (str)
+a=[]
+interv=strindex(str," ")
+debut=1
+for i=1:length(interv)
+    a=[a;part(str,[debut:(interv(i))-1])]
+    debut=interv(i)+1
+end
+a=[a;part(str,[debut:length(str)])]
+disp (a)
+endfunction 
+
+
+//======================================================================================================================
+
+
+function clearwork (param)
+if argn(2)==0 then 
+   param = []
+end // du if
+prompt_cmd("clearwork",param,envq_work)
+endfunction
+
+
+//======================================================================================================================
+
+ 
+function clearlog (param)
+if argn(2)==0 then 
+   param = []
+end // du if
+prompt_cmd("clearlog",param,envq_log+envq_ver+"\")
+endfunction
+
+
+//======================================================================================================================
+
+
+function runtest(param)
+if argn(2)==0 then  
+   param = []
+end // du if
+prompt_cmd("runtest",param,envq_work)
+endfunction
+
+
+//======================================================================================================================
+
+
+function showlog (my_cmd)
+       if argn(2)==0 then 
+             //disp " "
+             write(%io(2),"SHOWLOG : ")
+             write(%io(2),"Pour visualiser la derniere ligne de un, plusieurs ou tous fichiers log : ")
+             write(%io(2),"- toutes les tests_suites faire : showlog *")
+             write(%io(2),"- certaines tests_suites faire  : showlog ""nonreg* tests_20?? scicos""")
+             write(%io(2),"- une tests_suite faire         : showlog ""scicos""")
+             disp " "
+       else
+             if MSDOS then
+                unix_w (envq_proc+"init_qualif.bat&showlog.bat "+my_cmd)
+             else
+                unix_w ("showlog" +my_cmd)
+             end
+       end
+endfunction
+
+
+//======================================================================================================================
+
+
+function dirlog (my_cmd)
+if argn(2)==0 then 
+   param = []
+end // du if
+prompt_cmd("clearlog",param,envq_log+envq_ver)
+endfunction
+
+
+//======================================================================================================================
+
+
+function dirwork (my_cmd)
+      if argn(2)==0 then 
+             //disp " "
+             write(%io(2),"DIRWORK : ")
+             write(%io(2),"Pour visualiser la derniere ligne de un, plusieurs ou tous fichiers log : ")
+             write(%io(2),"- toutes les tests_suites faire : showlog *")
+             write(%io(2),"- certaines tests_suites faire  : showlog ""nonreg* tests_20?? scicos""")
+             write(%io(2),"- une tests_suite faire         : showlog ""scicos""")
+             disp " "
+       else
+             disp(sort(basename(listfiles(envq_work+my_cmd))))
+
+      //if MSDOS then
+      //               unix_w (envq_proc+"init_qualif.bat&showlog.bat "+my_cmd)
+      //           else
+      //               unix_w ("showlog" +my_cmd)
+      //       end  
+       end
+endfunction
+
+
+//======================================================================================================================
+
+
+function copyrun(param)
+if argn(2)==0 then  
+             copyftp()
+             runtest()
+else
+    copyftp (param)
+    runtest (""""+param+"""")
+end
+endfunction
+
+
+//======================================================================================================================
+
+
+function runtestXXXXXXXXXXX(tout)
+
+if argn(2)==0 then 
+             //disp " "
+             write(%io(2),"RUNTEST : ")
+             write(%io(2),"Pour executer en local : ")
+             write(%io(2),"- toutes les tests_suites faire : runtest (""*"")")
+             write(%io(2),"- certaines tests_suites faire  : runtest (""nonreg* tests_20?? scicos"")")
+             write(%io(2),"- une tests_suite faire         : runtest (""scicos"")")
+             disp " "
+else
+
+//disp (length(varargin))
+
+//for i=1:length(varargin)
+//disp (varargin(i))
+//end // du for
+
+my_list=tokens(tout," ")
+
+//pause
+
+// exemple : displist(["autre?ep";"n*"])
+ierr=0
+//my_list = ["autrerep","hif","n*"] 
+//my_list = listfiles(envq_work+my_list
+the_list=[]
+//for i=1:size(my_list)
+for i=1:size(my_list,"*")
+    if isdir (envq_work+my_list(i)) then 
+//  my_list(i) est un répertoire
+       the_list = [the_list;my_list(i)]
+    else
+       the_list = [the_list;basename(listfiles(envq_work+my_list(i)))]
+    end
+end // du for
+
+//disp("ici")
+//pause
+
+
+the_list2=[]
+for i=1:size(the_list,"*")
+    if isdir (envq_work+the_list(i)) then 
+       the_list2 = [the_list2;the_list(i)]
+    end
+end // du for
+
+//disp("là")
+//pause
+
+for k=1:size(the_list2,"*")
+    bibi = the_list2(k)
+    chdir (envq_work + basename(the_list2(k)))
+    unix_w ("erase "+envq_log+envq_ver+"\test_en_cours.txt")
+    diary (envq_log+envq_ver+"\test_en_cours.txt")
+    ierr=0
+//    diary (envq_log+envq_ver+"\"+the_list2(k)+".txt")
+    ierr = exec (the_list2(k) + ".sce", 'errcatch')
+    if ierr<>0 then 
+       disp("")
+       disp " LA TESTS-SUITE " + the_list2(k) + " S ''EST INCORRECTEMENT TERMINEE.----------------------------"
+       disp("Error n° "+string(ierr));
+       disp(lasterror());
+       disp("")
+    end
+    diary(0)
+    if MSDOS then
+//disp ("msdos")    
+//pause
+//    disp ("bibi = " + bibi)
+//pause
+//unix_w ("type "+envq_log+envq_ver+"\test_en_cours.txt >> "+envq_log+envq_ver+"\"+the_list2(k)+".txt")
+unix_w ("type "+envq_log+envq_ver+"\test_en_cours.txt >> "+envq_log+envq_ver+"\"+bibi+".txt")
+//    unix_w ("erase "+envq_log+envq_ver+"\test_en_cours.txt")
+    else
+// monde linux utiliser commande cat
+    end
+//       disp (basename(the_list2(k)))
+end // du for
+
+end
+endfunction
+
+
+//======================================================================================================================
+
+
+function aide(varargin)
+// fonction executer au lancement de l'environnement de qualification scilab sous window
+   if argn(2)==1 then
+                  if (varargin(1)=="all") | (varargin(1)=="ALL" )then 
+                 disp (" ")
+                 copyftp()
+                 runtest()
+//               copyrun()
+                 clearwork()
+                 clearlog()
+                 disp (" ")
+                 end
+   else 
+                 disp (" ")
+                 write(%io(2),"   ENVIRONNEMENT DE QUALIFICATION SCILAB")
+                 disp (" ")
+                 write(%io(2),"   commandes disponibles : COPYFTP() - RUNTEST() - COPYRUN() - CLEARWORK() - CLEARLOG()")
+                 //write(%io(2)," ")
+                 //write(%io(2),"   pour une aide faire : AIDE (""all"") ou lancer une commande sans parametres ")
+                 disp (" ")
+   end
+endfunction
+
+
+
+
+
diff --git a/tests/nonRegression/Qualif/Proc/fonct_qualif.sci.sav.txt b/tests/nonRegression/Qualif/Proc/fonct_qualif.sci.sav.txt
index 8f4a555..967da1e 100755
--- a/tests/nonRegression/Qualif/Proc/fonct_qualif.sci.sav.txt
+++ b/tests/nonRegression/Qualif/Proc/fonct_qualif.sci.sav.txt
@@ -1,542 +1,542 @@
-function tests_suite_selected=select_tests_suite(directory)

-

-// selection des batteries de tests par menu via le menu Qualif

-//recuperer les batteries de tests sous directory dans une matrice

-

-// verifier que tests_suite sont des repertoires quand directory=envq_work 

-select directory

- case envq_work then 

-     tests_suite=basename(listfiles(directory)); 

-     the_list=[]

-     for i=1:size(tests_suite,"*")

-         if isdir (envq_work+tests_suite(i)) then 

-//       tests_suite(i) est un répertoire

-            the_list = [the_list;tests_suite(i)]

-         end

-     end // du for

-     tests_suite=the_list  

- case envq_log+envq_ver then

-     tests_suite=basename(listfiles(envq_log+envq_ver+"\*.log")) 

- case "" then

- // chercher la liste sur frioul 

- else

-    disp ("PROBLEME")

-    break

-  end

-tests_suite=sort(tests_suite)

-

-

-//parcourir la matrice ainsi créée et charger la liste pour le menu de selection des batteries

-the_list=list()

-for i=1:size(tests_suite,"*")

-the_list($+1)=list(tests_suite(i),1,['Non','Oui'])

-end // du for

-rep=x_choices('Tests Suite Selection Menu',the_list);

-

-//prendre dans rep les reponses à oui (valeur 2);retrouver la batterie de tests correspondante ; et lancer son execution

-tests_suite_selected=""

-for i=1:size(tests_suite,"*")

-    if rep(i)==2 then

-       tests_suite_selected=tests_suite_selected + " " + tests_suite(i)

-    end // du if

-end // du for

-

-endfunction

-

-

-function affich_date

-w=getdate()

-disp(date() + "  "+string(w(7))+" h. "+string(w(8))+" mn. "+string(w(9))+" s. ")

-endfunction

-

-

-function affich_result(pasOK, num)

-// affiche FAILED ou PASSED, fonction utiliser dans les tests-suites de non regression

-   // This part display result

-   // le booleen pasOK est à faux

-   if ~pasOK then

-     disp("*****************************************  Test bug" + string(num)  +" : FAILED ! ");

-   else

-    disp("Test bug" + string(num)  +" : PASSED");

-   end

-endfunction

-

-function my_mat = list2mat (my_list)

-my_mat = ['']  

-//for k=1:size(my_list,"*")

-for k=1:size(my_list)

-         my_mat (k) = my_list(k)

-end

-endfunction 

-

-

-function mat_rep = sel_rep(my_mat)

-  mat_rep = ['']

-// cas d'une liste

-mat_rep = ''

-  n=1

-  for k=1:size(my_mat,"*")

-//  for k=1:size(my_mat)

-     if isdir(my_mat(k)) then 

-         mat_rep (n) = my_mat(k)

-         n = n+1

-     end

-  end

-endfunction

-

-function copyftp(my_cmd)

-       if argn(2)==0 then 

-             //disp " "

-             write(%io(2),"COPYFTP : ")

-             write(%io(2),"Pour copier en local via ftp : ")

-             write(%io(2),"- toutes les tests_suites faire : copyftp *")

-             write(%io(2),"- certaines tests_suites faire  : copyftp ""nonreg* tests_20?? scicos""")

-             write(%io(2),"- une tests_suite faire         : copyftp ""scicos""")

-             disp " "

-       else

-             if MSDOS then

-                unix_w (envq_proc+"init_qualif.bat&copyftp.bat "+my_cmd)

-             end

-       end

- endfunction

-

-function ierr=runtest22(varargin)

-// se positionne dans le repertoire de la tests_suite et lance son execution

-ierr=0

-chdir (envq_work)

-disp(varargin)

-// ts_work = list2mat (varargin)

-ts_work = varargin

-disp (typeof(ts_work))

-disp (ts_work)

-pause

-

-//disp(varargin(argn(1)))

-//disp(varargin(argn(2)))

-//disp(varargin(argn(3)))

-//pause

-

-//ts_work = ['']

-//ts_work = [my_cmd]

-

-//disp (ts_work)

-//pause

-

-//recuperation des parametres, voir si exite un booleen pour copie via ftp

-//if argn(2) < 1 then 

-//   disp ("erreur pas d''argument")

-//elseif argn(2) == 1 then

-//disp ( varargin)

-//disp (type (varargin))

-//   ts_work = list2mat (varargin)

-//   via_ftp = %f

-//else 

-// argn(2) est plus grand que 1

-//disp ("varargin : "+varargin)

-//disp ("varargin : "+typeof (varargin))

-//disp (type(varargin(argn(2))))

-//   if type(varargin(argn(2)))==4 then

-//    le dernier parametre est un booleen, le mettre dans la variable via_ftp

-//      via_ftp = varargin(argn(2))

-//      disp (via_ftp)

-      

-//      varargin(argn(2)) = null()

-//      ts_work = list2mat (varargin)

-//      disp (ts_work)

-//   else

-//      ts_work = list2mat (varargin)

-//      via_ftp = %f

-//   end   

-//end

-disp (" je suis là")

-pause

-// copie via ftp du serveur vers env qualif de la machine cible

-//if via_ftp then

-// copier via ftp la (les) tests_suite(s) demandées

-//   if ts_work == all then

-

-//copy_ftp (ts_work)

-//end

-

-//disp ("toto")

-

-// conserve uniquement les repertoires 

-disp("----")

-

-ts_work = sel_rep(ts_work)

-disp ("ts_work : "+ts_work)

-disp("type : "+typeof(ts_work))

-pause

-

-//if ts_work == [''] then 

-if ts_work == '' then 

-         disp ("")

-         disp (" CE N''EST PAS UN NOM (repertoire) DE TESTS-SUITE.----------------------------")

-//          disp("Error n° "+string(ierr));

-//          disp(lasterror());

-         disp ("coucou")

-else

-disp ("pas ici")

-// corps de la fonction runtest proprement dite, boucle sur les tests_suite(s)

-  for k=1:size(ts_work,"*")

-//   for k=1:size(ts_work)

-       chdir (envq_work + ts_work(k))

-       ierr = exec (ts_work(k) + ".sce", 'errcatch')

-       if ierr<>0 then 

-         disp("")

-         disp " LA TESTS-SUITE " + ts_work(k) + " S ''EST INCORRECTEMENT TERMINEE.----------------------------"

-         disp("Error n° "+string(ierr));

-         disp(lasterror());

-         disp("")

-       end

-   

-   end

-end

-endfunction

-

-

-function displist (tout)

-

-// exemple : displist(["autre?ep";"n*"])

-ierr=0

-//tout = ["autrerep","hif","n*"] 

-the_list=[]

-for i=1:size(tout,"*")

-    if isdir (envq_work+tout(i)) then 

-//  tout(i) est un répertoire

-       the_list = [the_list;tout(i)]

-    else

-       the_list = [the_list;basename(listfiles(envq_work+tout(i)))]

-    end

-end // du for

-

-//pause

-

-the_list2=[]

-for i=1:size(the_list,"*")

-    if isdir (envq_work+the_list(i)) then 

-       the_list2 = [the_list2;the_list(i)]

-    end

-end // du for

-

-// pause

-

-for k=1:size(the_list2,"*")

-    chdir (envq_work + basename(the_list2(k)))

-    diary (envq_log+envq_ver+"\"+the_list2(k)+".txt")

-    ierr = exec (the_list2(k) + ".sce", 'errcatch')

-    if ierr<>0 then 

-       disp("")

-       disp " LA TESTS-SUITE " + the_list2(k) + " S ''EST INCORRECTEMENT TERMINEE.----------------------------"

-       disp("Error n° "+string(ierr));

-       disp(lasterror());

-       disp("")

-    end

-    diary(0)

- //       disp (basename(the_list2(k)))

-end // du for

-

-

-endfunction

-

-

-function rruntest(varargin)

-

-if argn(2)==0 then 

-             //disp " "

-             write(%io(2),"RUNTEST : ")

-             write(%io(2),"- toutes les tests_suites faire : runtest (""*"")")

-             write(%io(2),"- certaines tests_suites faire  : runtest ""nonreg*" , "tests_20??" , "scicos""")

-             write(%io(2),"- une tests_suite faire         : runtest ""scicos""")

-             disp " "

-else

-

-disp (length(varargin))

-

-for i=1:length(varargin)

-disp (varargin(i))

-end // du for

-

-my_list=varargin

-

-pause

-

-// exemple : displist(["autre?ep";"n*"])

-ierr=0

-//my_list = ["autrerep","hif","n*"] 

-//my_list = listfiles(envq_work+my_list

-the_list=[]

-for i=1:size(my_list)

-//for i=1:size(my_list,"*")

-    if isdir (envq_work+my_list(i)) then 

-//  my_list(i) est un répertoire

-       the_list = [the_list;my_list(i)]

-    else

-       the_list = [the_list;basename(listfiles(envq_work+my_list(i)))]

-    end

-end // du for

-

-disp("ici")

-pause

-

-

-the_list2=[]

-for i=1:size(the_list,"*")

-    if isdir (envq_work+the_list(i)) then 

-       the_list2 = [the_list2;the_list(i)]

-    end

-end // du for

-

-disp("là")

-pause

-

-for k=1:size(the_list2,"*")

-    chdir (envq_work + basename(the_list2(k)))

-    diary (envq_log+envq_ver+"\"+the_list2(k)+".txt")

-    ierr = exec (the_list2(k) + ".sce", 'errcatch')

-    if ierr<>0 then 

-       disp("")

-       disp " LA TESTS-SUITE " + the_list2(k) + " S ''EST INCORRECTEMENT TERMINEE.----------------------------"

-       disp("Error n° "+string(ierr));

-       disp(lasterror());

-       disp("")

-    end

-    diary(0)

- //       disp (basename(the_list2(k)))

-end // du for

-

-end

-endfunction

-

-function test (str)

-a=[]

-interv=strindex(str," ")

-debut=1

-for i=1:length(interv)

-    a=[a;part(str,[debut:(interv(i))-1])]

-    debut=interv(i)+1

-end

-a=[a;part(str,[debut:length(str)])]

-disp (a)

-

-pause

-

-endfunction 

-

-function clearwork (my_cmd)

-       if argn(2)==0 then 

-             //disp " "

-             write(%io(2),"CLEARWORK : ")

-             write(%io(2),"Pour supprimer un, plusieurs ou toutes les test-suites du répertoire Work local : ")

-             write(%io(2),"- toutes les tests_suites faire : clearwork *")

-             write(%io(2),"- certaines tests_suites faire  : clearwork ""nonreg* tests_20?? scicos""")

-             write(%io(2),"- une tests_suite faire         : clearwork ""scicos""")

-             disp " "

-       else

-             if MSDOS then

-                unix_w (envq_proc+"init_qualif.bat&clearwork.bat "+my_cmd)

-                             disp (my_cmd)

-else

-                unix_w ("clearwork" +my_cmd)

-             end

-       end

-endfunction

-

-function clearlog (my_cmd)

-       if argn(2)==0 then 

-             //disp " "

-             write(%io(2),"CLEARLOG : ")

-             write(%io(2),"Pour supprimer un, plusieurs ou tous les fichiers log : ")

-             write(%io(2),"- toutes les tests_suites faire : clearlog *")

-             write(%io(2),"- certaines tests_suites faire  : clearlog ""nonreg* tests_20?? scicos""")

-             write(%io(2),"- une tests_suite faire         : clearlog ""scicos""")

-             disp " "

-       else

-             if MSDOS then

-                unix_w (envq_proc+"init_qualif.bat&clearlog.bat "+my_cmd)

-             else

-                unix_w ("clearlog" +my_cmd)

-             end

-       end

-endfunction

-

-function showlog (my_cmd)

-       if argn(2)==0 then 

-             //disp " "

-             write(%io(2),"SHOWLOG : ")

-             write(%io(2),"Pour visualiser la derniere ligne de un, plusieurs ou tous fichiers log : ")

-             write(%io(2),"- toutes les tests_suites faire : showlog *")

-             write(%io(2),"- certaines tests_suites faire  : showlog ""nonreg* tests_20?? scicos""")

-             write(%io(2),"- une tests_suite faire         : showlog ""scicos""")

-             disp " "

-       else

-             if MSDOS then

-                unix_w (envq_proc+"init_qualif.bat&showlog.bat "+my_cmd)

-             else

-                unix_w ("showlog" +my_cmd)

-             end

-       end

-endfunction

-

-

-function dirlog (my_cmd)

-       if argn(2)==0 then 

-             //disp " "

-             write(%io(2),"DIRLOG : ")

-             write(%io(2),"Pour visualiser la derniere ligne de un, plusieurs ou tous fichiers log : ")

-             write(%io(2),"- toutes les tests_suites faire : showlog *")

-             write(%io(2),"- certaines tests_suites faire  : showlog ""nonreg* tests_20?? scicos""")

-             write(%io(2),"- une tests_suite faire         : showlog ""scicos""")

-             disp " "

-       else

-             disp(sort(basename(listfiles(envq_log+envq_ver))))

-

-      //if MSDOS then

+function tests_suite_selected=select_tests_suite(directory)
+
+// selection des batteries de tests par menu via le menu Qualif
+//recuperer les batteries de tests sous directory dans une matrice
+
+// verifier que tests_suite sont des repertoires quand directory=envq_work 
+select directory
+ case envq_work then 
+     tests_suite=basename(listfiles(directory)); 
+     the_list=[]
+     for i=1:size(tests_suite,"*")
+         if isdir (envq_work+tests_suite(i)) then 
+//       tests_suite(i) est un répertoire
+            the_list = [the_list;tests_suite(i)]
+         end
+     end // du for
+     tests_suite=the_list  
+ case envq_log+envq_ver then
+     tests_suite=basename(listfiles(envq_log+envq_ver+"\*.log")) 
+ case "" then
+ // chercher la liste sur frioul 
+ else
+    disp ("PROBLEME")
+    break
+  end
+tests_suite=sort(tests_suite)
+
+
+//parcourir la matrice ainsi créée et charger la liste pour le menu de selection des batteries
+the_list=list()
+for i=1:size(tests_suite,"*")
+the_list($+1)=list(tests_suite(i),1,['Non','Oui'])
+end // du for
+rep=x_choices('Tests Suite Selection Menu',the_list);
+
+//prendre dans rep les reponses à oui (valeur 2);retrouver la batterie de tests correspondante ; et lancer son execution
+tests_suite_selected=""
+for i=1:size(tests_suite,"*")
+    if rep(i)==2 then
+       tests_suite_selected=tests_suite_selected + " " + tests_suite(i)
+    end // du if
+end // du for
+
+endfunction
+
+
+function affich_date
+w=getdate()
+disp(date() + "  "+string(w(7))+" h. "+string(w(8))+" mn. "+string(w(9))+" s. ")
+endfunction
+
+
+function affich_result(pasOK, num)
+// affiche FAILED ou PASSED, fonction utiliser dans les tests-suites de non regression
+   // This part display result
+   // le booleen pasOK est à faux
+   if ~pasOK then
+     disp("*****************************************  Test bug" + string(num)  +" : FAILED ! ");
+   else
+    disp("Test bug" + string(num)  +" : PASSED");
+   end
+endfunction
+
+function my_mat = list2mat (my_list)
+my_mat = ['']  
+//for k=1:size(my_list,"*")
+for k=1:size(my_list)
+         my_mat (k) = my_list(k)
+end
+endfunction 
+
+
+function mat_rep = sel_rep(my_mat)
+  mat_rep = ['']
+// cas d'une liste
+mat_rep = ''
+  n=1
+  for k=1:size(my_mat,"*")
+//  for k=1:size(my_mat)
+     if isdir(my_mat(k)) then 
+         mat_rep (n) = my_mat(k)
+         n = n+1
+     end
+  end
+endfunction
+
+function copyftp(my_cmd)
+       if argn(2)==0 then 
+             //disp " "
+             write(%io(2),"COPYFTP : ")
+             write(%io(2),"Pour copier en local via ftp : ")
+             write(%io(2),"- toutes les tests_suites faire : copyftp *")
+             write(%io(2),"- certaines tests_suites faire  : copyftp ""nonreg* tests_20?? scicos""")
+             write(%io(2),"- une tests_suite faire         : copyftp ""scicos""")
+             disp " "
+       else
+             if MSDOS then
+                unix_w (envq_proc+"init_qualif.bat&copyftp.bat "+my_cmd)
+             end
+       end
+ endfunction
+
+function ierr=runtest22(varargin)
+// se positionne dans le repertoire de la tests_suite et lance son execution
+ierr=0
+chdir (envq_work)
+disp(varargin)
+// ts_work = list2mat (varargin)
+ts_work = varargin
+disp (typeof(ts_work))
+disp (ts_work)
+pause
+
+//disp(varargin(argn(1)))
+//disp(varargin(argn(2)))
+//disp(varargin(argn(3)))
+//pause
+
+//ts_work = ['']
+//ts_work = [my_cmd]
+
+//disp (ts_work)
+//pause
+
+//recuperation des parametres, voir si exite un booleen pour copie via ftp
+//if argn(2) < 1 then 
+//   disp ("erreur pas d''argument")
+//elseif argn(2) == 1 then
+//disp ( varargin)
+//disp (type (varargin))
+//   ts_work = list2mat (varargin)
+//   via_ftp = %f
+//else 
+// argn(2) est plus grand que 1
+//disp ("varargin : "+varargin)
+//disp ("varargin : "+typeof (varargin))
+//disp (type(varargin(argn(2))))
+//   if type(varargin(argn(2)))==4 then
+//    le dernier parametre est un booleen, le mettre dans la variable via_ftp
+//      via_ftp = varargin(argn(2))
+//      disp (via_ftp)
+      
+//      varargin(argn(2)) = null()
+//      ts_work = list2mat (varargin)
+//      disp (ts_work)
+//   else
+//      ts_work = list2mat (varargin)
+//      via_ftp = %f
+//   end   
+//end
+disp (" je suis là")
+pause
+// copie via ftp du serveur vers env qualif de la machine cible
+//if via_ftp then
+// copier via ftp la (les) tests_suite(s) demandées
+//   if ts_work == all then
+
+//copy_ftp (ts_work)
+//end
+
+//disp ("toto")
+
+// conserve uniquement les repertoires 
+disp("----")
+
+ts_work = sel_rep(ts_work)
+disp ("ts_work : "+ts_work)
+disp("type : "+typeof(ts_work))
+pause
+
+//if ts_work == [''] then 
+if ts_work == '' then 
+         disp ("")
+         disp (" CE N''EST PAS UN NOM (repertoire) DE TESTS-SUITE.----------------------------")
+//          disp("Error n° "+string(ierr));
+//          disp(lasterror());
+         disp ("coucou")
+else
+disp ("pas ici")
+// corps de la fonction runtest proprement dite, boucle sur les tests_suite(s)
+  for k=1:size(ts_work,"*")
+//   for k=1:size(ts_work)
+       chdir (envq_work + ts_work(k))
+       ierr = exec (ts_work(k) + ".sce", 'errcatch')
+       if ierr<>0 then 
+         disp("")
+         disp " LA TESTS-SUITE " + ts_work(k) + " S ''EST INCORRECTEMENT TERMINEE.----------------------------"
+         disp("Error n° "+string(ierr));
+         disp(lasterror());
+         disp("")
+       end
+   
+   end
+end
+endfunction
+
+
+function displist (tout)
+
+// exemple : displist(["autre?ep";"n*"])
+ierr=0
+//tout = ["autrerep","hif","n*"] 
+the_list=[]
+for i=1:size(tout,"*")
+    if isdir (envq_work+tout(i)) then 
+//  tout(i) est un répertoire
+       the_list = [the_list;tout(i)]
+    else
+       the_list = [the_list;basename(listfiles(envq_work+tout(i)))]
+    end
+end // du for
+
+//pause
+
+the_list2=[]
+for i=1:size(the_list,"*")
+    if isdir (envq_work+the_list(i)) then 
+       the_list2 = [the_list2;the_list(i)]
+    end
+end // du for
+
+// pause
+
+for k=1:size(the_list2,"*")
+    chdir (envq_work + basename(the_list2(k)))
+    diary (envq_log+envq_ver+"\"+the_list2(k)+".txt")
+    ierr = exec (the_list2(k) + ".sce", 'errcatch')
+    if ierr<>0 then 
+       disp("")
+       disp " LA TESTS-SUITE " + the_list2(k) + " S ''EST INCORRECTEMENT TERMINEE.----------------------------"
+       disp("Error n° "+string(ierr));
+       disp(lasterror());
+       disp("")
+    end
+    diary(0)
+ //       disp (basename(the_list2(k)))
+end // du for
+
+
+endfunction
+
+
+function rruntest(varargin)
+
+if argn(2)==0 then 
+             //disp " "
+             write(%io(2),"RUNTEST : ")
+             write(%io(2),"- toutes les tests_suites faire : runtest (""*"")")
+             write(%io(2),"- certaines tests_suites faire  : runtest ""nonreg*" , "tests_20??" , "scicos""")
+             write(%io(2),"- une tests_suite faire         : runtest ""scicos""")
+             disp " "
+else
+
+disp (length(varargin))
+
+for i=1:length(varargin)
+disp (varargin(i))
+end // du for
+
+my_list=varargin
+
+pause
+
+// exemple : displist(["autre?ep";"n*"])
+ierr=0
+//my_list = ["autrerep","hif","n*"] 
+//my_list = listfiles(envq_work+my_list
+the_list=[]
+for i=1:size(my_list)
+//for i=1:size(my_list,"*")
+    if isdir (envq_work+my_list(i)) then 
+//  my_list(i) est un répertoire
+       the_list = [the_list;my_list(i)]
+    else
+       the_list = [the_list;basename(listfiles(envq_work+my_list(i)))]
+    end
+end // du for
+
+disp("ici")
+pause
+
+
+the_list2=[]
+for i=1:size(the_list,"*")
+    if isdir (envq_work+the_list(i)) then 
+       the_list2 = [the_list2;the_list(i)]
+    end
+end // du for
+
+disp("là")
+pause
+
+for k=1:size(the_list2,"*")
+    chdir (envq_work + basename(the_list2(k)))
+    diary (envq_log+envq_ver+"\"+the_list2(k)+".txt")
+    ierr = exec (the_list2(k) + ".sce", 'errcatch')
+    if ierr<>0 then 
+       disp("")
+       disp " LA TESTS-SUITE " + the_list2(k) + " S ''EST INCORRECTEMENT TERMINEE.----------------------------"
+       disp("Error n° "+string(ierr));
+       disp(lasterror());
+       disp("")
+    end
+    diary(0)
+ //       disp (basename(the_list2(k)))
+end // du for
+
+end
+endfunction
+
+function test (str)
+a=[]
+interv=strindex(str," ")
+debut=1
+for i=1:length(interv)
+    a=[a;part(str,[debut:(interv(i))-1])]
+    debut=interv(i)+1
+end
+a=[a;part(str,[debut:length(str)])]
+disp (a)
+
+pause
+
+endfunction 
+
+function clearwork (my_cmd)
+       if argn(2)==0 then 
+             //disp " "
+             write(%io(2),"CLEARWORK : ")
+             write(%io(2),"Pour supprimer un, plusieurs ou toutes les test-suites du répertoire Work local : ")
+             write(%io(2),"- toutes les tests_suites faire : clearwork *")
+             write(%io(2),"- certaines tests_suites faire  : clearwork ""nonreg* tests_20?? scicos""")
+             write(%io(2),"- une tests_suite faire         : clearwork ""scicos""")
+             disp " "
+       else
+             if MSDOS then
+                unix_w (envq_proc+"init_qualif.bat&clearwork.bat "+my_cmd)
+                             disp (my_cmd)
+else
+                unix_w ("clearwork" +my_cmd)
+             end
+       end
+endfunction
+
+function clearlog (my_cmd)
+       if argn(2)==0 then 
+             //disp " "
+             write(%io(2),"CLEARLOG : ")
+             write(%io(2),"Pour supprimer un, plusieurs ou tous les fichiers log : ")
+             write(%io(2),"- toutes les tests_suites faire : clearlog *")
+             write(%io(2),"- certaines tests_suites faire  : clearlog ""nonreg* tests_20?? scicos""")
+             write(%io(2),"- une tests_suite faire         : clearlog ""scicos""")
+             disp " "
+       else
+             if MSDOS then
+                unix_w (envq_proc+"init_qualif.bat&clearlog.bat "+my_cmd)
+             else
+                unix_w ("clearlog" +my_cmd)
+             end
+       end
+endfunction
+
+function showlog (my_cmd)
+       if argn(2)==0 then 
+             //disp " "
+             write(%io(2),"SHOWLOG : ")
+             write(%io(2),"Pour visualiser la derniere ligne de un, plusieurs ou tous fichiers log : ")
+             write(%io(2),"- toutes les tests_suites faire : showlog *")
+             write(%io(2),"- certaines tests_suites faire  : showlog ""nonreg* tests_20?? scicos""")
+             write(%io(2),"- une tests_suite faire         : showlog ""scicos""")
+             disp " "
+       else
+             if MSDOS then
+                unix_w (envq_proc+"init_qualif.bat&showlog.bat "+my_cmd)
+             else
+                unix_w ("showlog" +my_cmd)
+             end
+       end
+endfunction
+
+
+function dirlog (my_cmd)
+       if argn(2)==0 then 
+             //disp " "
+             write(%io(2),"DIRLOG : ")
+             write(%io(2),"Pour visualiser la derniere ligne de un, plusieurs ou tous fichiers log : ")
+             write(%io(2),"- toutes les tests_suites faire : showlog *")
+             write(%io(2),"- certaines tests_suites faire  : showlog ""nonreg* tests_20?? scicos""")
+             write(%io(2),"- une tests_suite faire         : showlog ""scicos""")
+             disp " "
+       else
+             disp(sort(basename(listfiles(envq_log+envq_ver))))
+
+      //if MSDOS then