bug 3898 3897 3896 3895
Allan CORNET [Tue, 6 Jan 2009 14:58:01 +0000 (15:58 +0100)]
43 files changed:
scilab/modules/development_tools/macros/test_run.sci
scilab/modules/dynamic_link/macros/ilib_gen_gateway.sci
scilab/modules/fileio/help/en_US/mputl.xml
scilab/modules/fileio/includes/filesmanagement.h
scilab/modules/fileio/macros/mputl.sci
scilab/modules/fileio/sci_gateway/c/sci_mfprintf.c
scilab/modules/fileio/src/c/diary.c
scilab/modules/fileio/src/c/filesmanagement.c
scilab/modules/fileio/src/c/mclose.c
scilab/modules/fileio/src/c/mgetstr.c
scilab/modules/fileio/src/c/readline.c
scilab/modules/fileio/tests/nonreg_tests/bug_2208.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2208.tst
scilab/modules/fileio/tests/nonreg_tests/bug_2891.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2891.tst
scilab/modules/fileio/tests/nonreg_tests/bug_3700.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3700.tst
scilab/modules/fileio/tests/nonreg_tests/bug_3896.dia.ref [new file with mode: 0644]
scilab/modules/fileio/tests/nonreg_tests/bug_3896.tst [new file with mode: 0644]
scilab/modules/fileio/tests/nonreg_tests/bug_3897.dia.ref [new file with mode: 0644]
scilab/modules/fileio/tests/nonreg_tests/bug_3897.tst [new file with mode: 0644]
scilab/modules/fileio/tests/nonreg_tests/bug_3898.dia.ref [new file with mode: 0644]
scilab/modules/fileio/tests/nonreg_tests/bug_3898.tst [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/mdelete.dia.ref
scilab/modules/fileio/tests/unit_tests/mdelete.tst
scilab/modules/fileio/tests/unit_tests/mputl.dia.ref
scilab/modules/fileio/tests/unit_tests/mputl.tst
scilab/modules/functions/macros/genlib.sci
scilab/modules/functions/macros/genlib_old.sci
scilab/modules/functions/macros/plotprofile.sci
scilab/modules/helptools/macros/formatman.sci
scilab/modules/helptools/macros/help_from_sci.sci
scilab/modules/helptools/macros/help_skeleton.sci
scilab/modules/m2sci/macros/kernel/lst_funcall.sci
scilab/modules/m2sci/macros/kernel/multi_fun_file.sci
scilab/modules/m2sci/macros/mfile2sci.sci
scilab/modules/m2sci/macros/translatepaths.sci
scilab/modules/metanet/macros/editor/ge_do_information.sci
scilab/modules/overloading/macros/%c_mclose.sci
scilab/modules/scicos/macros/scicos_scicos/Modelica_.sci
scilab/modules/scicos/macros/scicos_scicos/compile_modelica.sci
scilab/modules/scicos/tests/nonreg_tests/scicos_nonreg.sci
scilab/modules/spreadsheet/macros/sci2excel.sci

index c9c25f1..dce6331 100644 (file)
@@ -802,7 +802,7 @@ function [status_id,status_msg,status_details] = test_run_onetest(module,test,te
                else
                        
                        // write down the resulting dia file
-                       mputl(dia,diafile)
+                       mputl(dia,diafile);
                        
                        //Check for diff with the .ref file
                        
index 5e2f257..afda8ab 100644 (file)
@@ -80,11 +80,11 @@ function ilib_gen_gateway(name,tables)
       mclose(fd);
       t1 = mgetl(path+tname+'.c') 
       if t1 <> t then 
-             mputl(t,path+tname+'.c')    
+             mputl(t,path+tname+'.c');    
       end
     else
        // file does not exist we create it 
-       mputl(t,path+tname+'.c')    
+       mputl(t,path+tname+'.c') ;   
     end
   end
 endfunction
index 7a27b44..29db890 100644 (file)
@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
+<?xml version="1.0" encoding="windows-1251"?>
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2008 - INRIA - Serge STEER
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" version="5.0-subset Scilab" xml:lang="en" xml:id="mputl">
+<refentry version="5.0-subset Scilab" xml:id="mputl" xml:lang="en"
+          xmlns="http://docbook.org/ns/docbook"
+          xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg"
+          xmlns:ns3="http://www.w3.org/1999/xhtml"
+          xmlns:mml="http://www.w3.org/1998/Math/MathML"
+          xmlns:db="http://docbook.org/ns/docbook">
   <info>
     <pubdate>$LastChangedDate$</pubdate>
   </info>
+
   <refnamediv>
     <refname>mputl</refname>
-    <refpurpose> writes strings in an ascii file</refpurpose>
+
+    <refpurpose>writes strings in an ascii file</refpurpose>
   </refnamediv>
+
   <refsynopsisdiv>
     <title>Calling Sequence</title>
-    <synopsis>mputl(txt [,file_desc])</synopsis>
+
+    <synopsis>r = mputl(txt ,file_desc)</synopsis>
   </refsynopsisdiv>
+
   <refsection>
     <title>Parameters</title>
+
     <variablelist>
       <varlistentry>
+        <term>r</term>
+
+        <listitem>
+          <para>returns %t or %f to check if function has correctly written on
+          the file.</para>
+        </listitem>
+      </varlistentry>
+
+      <varlistentry>
         <term>file_desc</term>
+
         <listitem>
-          <para>A character string giving the name of the file or a logical unit returned by mopen. If omitted, lines are written in the last file opened by mopen.</para>
+          <para>A character string giving the name of the file or a logical
+          unit returned by mopen.</para>
+
+          <para>OBSOLETE : If omitted, lines are written in the last file
+          opened by mopen.</para>
         </listitem>
       </varlistentry>
+
       <varlistentry>
         <term>txt</term>
+
         <listitem>
           <para>a vector of strings.</para>
         </listitem>
       </varlistentry>
     </variablelist>
   </refsection>
+
   <refsection>
     <title>Description</title>
-    <para><literal>mputl</literal> function allows to write a vector of strings as a sequence
-    of lines in an ascii file.</para>
+
+    <para><literal>mputl</literal> function allows to write a vector of
+    strings as a sequence of lines in an ascii file.</para>
+  </refsection>
+
+  <refsection>
+    <title>Examples</title>
+
+    <programlisting role="example">
+ fd = mopen(TMPDIR+'/text_mputl.txt','wt');
+ mputl('Hello World',fd);
+ mclose(fd);
+
+ fd = mopen(TMPDIR+'/text_mputl.txt','rt');
+ disp(mgetl(fd));
+ mclose(fd);
+
+  </programlisting>
   </refsection>
+
   <refsection>
     <title>See Also</title>
+
     <simplelist type="inline">
-      <member>
-        <link linkend="mget">mget</link>
-      </member>
-      <member>
-        <link linkend="mgetl">mgetl</link>
-      </member>
-      <member>
-        <link linkend="mclose">mclose</link>
-      </member>
-      <member>
-        <link linkend="mfprintf">mfprintf</link>
-      </member>
-      <member>
-        <link linkend="mput">mput</link>
-      </member>
-      <member>
-        <link linkend="mputstr">mputstr</link>
-      </member>
-      <member>
-        <link linkend="mopen">mopen</link>
-      </member>
-      <member>
-        <link linkend="write">write</link>
-      </member>
+      <member><link linkend="mget">mget</link></member>
+
+      <member><link linkend="mgetl">mgetl</link></member>
+
+      <member><link linkend="mclose">mclose</link></member>
+
+      <member><link linkend="mfprintf">mfprintf</link></member>
+
+      <member><link linkend="mput">mput</link></member>
+
+      <member><link linkend="mputstr">mputstr</link></member>
+
+      <member><link linkend="mopen">mopen</link></member>
+
+      <member><link linkend="write">write</link></member>
     </simplelist>
   </refsection>
+
   <refsection>
     <title>Authors</title>
+
     <para>S. Steer</para>
+     <para>Allan CORNET</para>
   </refsection>
 </refentry>
index 45d67e9..7168d11 100644 (file)
@@ -52,6 +52,12 @@ void SetFileOpenedInScilab(int Id,FILE *fptr);
 int GetCurrentFileId(void);
 
 /**
+* Get the previous Id (previous file)
+* @return Id
+*/
+int GetPreviousFileId(void);
+
+/**
 * Set the current Id (current file)
 * @param Id
 */
index 98695f6..359d122 100644 (file)
@@ -8,9 +8,14 @@
 // are also available at
 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
-function mputl(str,fd)
+function bok = mputl(str,fd)
 
-[lhs,rhs]=argn()
+[lhs,rhs]=argn();
+
+if ~or(lhs ==[0 1]) then
+  error(999,msprintf(gettext("%s: Wrong number of output argument(s).\n"),'mputl'));
+  return
+end
 
 if ~or(rhs ==[1 2]) then
   error(999,msprintf(gettext("%s: Wrong number of input argument(s).\n"),'mputl'));
@@ -23,7 +28,7 @@ if type(str) <> 10 then
 end
 
 mn = size(str);
-if ~or(mn ==1) then
+if ~or(mn == 1) then
   error(999,msprintf(gettext("%s: Wrong size for input argument #%d: A 1-by-n or m-by-1 array expected.\n"),'mputl',1));
   return
 end
@@ -33,6 +38,8 @@ opened = %f;
 if rhs == 1 then //write to last opened file
   opened = %f;
   fd = -1;
+  // @OBSOLETE
+  warnobsolete("mputl with a second input parameter", "5.2");
 else
   if type(fd) == 10 then // file given by its path
     opened = %t;
@@ -46,11 +53,27 @@ else
   end
 end  
 
+// checks that file is not read only
+// units,typ,nams,mod,swap
+[uk, tk, nk, mk, sk] = file(fd);
+// READ ONLY MODE mk
+if ( (mk >= 100) & (mk < 200) ) then 
+  bok = %f;
+  return
+end
+
 mn = size(str,'*');
 for i = 1:mn
-  mfprintf(fd, '%s\n',str(i));
+       try
+    mfprintf(fd, '%s\n',str(i));
+  catch
+    bok = %f;
+    return
+  end
 end
 
 if opened then mclose(fd),end
 
+bok = %t;
+
 endfunction
index 00daa17..8f07875 100644 (file)
 int int_objfprintf(char *fname,unsigned long fname_len)
 {
        FILE *f;
-       static int l1, m1, n1,l2,m2,n2,lcount,rval, mx, mk, nk, k;
-       char *ptrFormat=NULL;
-       int i=0;
-       int NumberPercent=0;
-       int param1=0;
+       int fileMode = 0;
+       int l1 = 0, m1 = 0, n1 = 0;
+       int l2 = 0,m2 = 0,n2 = 0;
+       int lcount = 0,rval = 0, mx = 0, mk = 0, nk = 0, k = 0;
+       char *ptrFormat = NULL;
+       int i = 0;
+       int NumberPercent = 0;
+       int param1 = 0;
 
        Nbvars = 0;
-       CheckRhs(1,1000);
-       CheckLhs(0,1);
+       CheckRhs(1, 1000);
+       CheckLhs(0, 1);
        if ( Rhs < 2 ) 
        { 
-               Scierror(999,_("%s: Wrong number of input arguments: At least %d expected.\n"),fname,2);
+               Scierror(999, _("%s: Wrong number of input arguments: At least %d expected.\n"),fname,2);
                return 0;
        }
-       for (k=3;k<=Rhs;k++) 
+       for ( k = 3; k <= Rhs; k++) 
        {
-               if (VarType(k) !=sci_matrix && VarType(k) !=sci_strings) {OverLoad(k);return 0;}
+               if (VarType(k) !=sci_matrix && VarType(k) !=sci_strings) 
+               {
+                       OverLoad(k);
+                       return 0;
+               }
        }
-       GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1); /* file id */
-       GetRhsVar(2,STRING_DATATYPE,&m2,&n2,&l2); /* format */
-       ptrFormat=cstk(l2);
+       GetRhsVar(1, MATRIX_OF_INTEGER_DATATYPE, &m1, &n1, &l1); /* file id */
+       GetRhsVar(2, STRING_DATATYPE, &m2, &n2, &l2); /* format */
+       ptrFormat = cstk(l2);
 
-       param1=*istk(l1);
+       param1 = *istk(l1);
 
-       if ((f= GetFileOpenedInScilab(param1)) == (FILE *)0)
+       f = GetFileOpenedInScilab(param1);
+       if (f == (FILE *)0)
        {
                Scierror(999,_("%s: Wrong file descriptor: %d.\n"),fname,*istk(l1));
                return 0;
        }
 
-       for(i=0;i<(int)strlen(ptrFormat);i++)
+       fileMode = GetFileModeOpenedInScilab(param1);
+       /* checks file mode */
+       /* bug 3898 */
+       /* read only attrib 1xx*/
+       if ( (fileMode >= 100) && (fileMode < 200) )
+       {
+               Scierror(999,_("%s: Wrong file mode: READ only.\n"),fname);
+               return 0;
+       }
+
+       for(i = 0; i < (int)strlen(ptrFormat); i++)
        {
-               if (ptrFormat[i]=='%') 
+               if (ptrFormat[i] == '%') 
                {
                        NumberPercent++;
-                       if (ptrFormat[i+1]=='%') {NumberPercent--;i++;}
+                       if (ptrFormat[i+1] == '%') 
+                       {
+                               NumberPercent--;
+                               i++;
+                       }
                }
        }
 
-       if (NumberPercent<Rhs-2)
+       if (NumberPercent < Rhs-2)
        {
                Scierror(999,_("%s: Wrong number of input arguments: %d expected.\n"),fname,NumberPercent+2);
                return 0;
        }
 
-       mx=0;
-       if (Rhs>=3) 
+       mx = 0;
+       if (Rhs >= 3) 
        {
-               GetMatrixdims(3,&mx,&nk);
-               for (k=4;k<=Rhs;k++) 
+               GetMatrixdims(3, &mx, &nk);
+               for (k = 4; k <= Rhs; k++) 
                {
-                       GetMatrixdims(k,&mk,&nk);
-                       mx = Min(mx,mk);
+                       GetMatrixdims(k, &mk, &nk);
+                       mx = Min(mx, mk);
                }
        }
-       lcount=1;
+       lcount = 1;
        if (Rhs == 2) 
-               rval=do_xxprintf("fprintf",f,cstk(l2),Rhs,2,lcount,(char **)0);
+       {
+               rval = do_xxprintf("fprintf", f, cstk(l2), Rhs, 2, lcount, (char **)0);
+       }
        else while (1) 
        {
-               if ((rval=do_xxprintf("fprintf",f,cstk(l2),Rhs,2,lcount,(char **)0)) < 0) break;
+               if ((rval = do_xxprintf("fprintf", f, cstk(l2), Rhs, 2, lcount, (char **)0)) < 0) break;
                lcount++;
-               if (lcount>mx) break;
+               if (lcount > mx) break;
        }
        if (rval == RET_BUG) return 0;
-       LhsVar(1)=0; /** No return value **/
+       LhsVar(1) = 0; /** No return value **/
        PutLhsVar();
        return 0;
 } 
index a3bab45..13cb9ba 100644 (file)
@@ -36,21 +36,22 @@ void diary(char *str,long int *n)
        if ( u != 0 )
        {
                FILE *fd= GetFileOpenedInScilab(u);
-               fwrite(str,sizeof(unsigned char),*n,fd);
-               fwrite(newline,sizeof(unsigned char),nn,fd);
+               if (fd)
+               {
+                       fwrite(str,sizeof(unsigned char),*n,fd);
+                       fwrite(newline,sizeof(unsigned char),nn,fd);
+               }
        }
 }
 /*--------------------------------------------------------------------------*/
 void diary_nnl(char *str,int *n)
 {
-       int u;
-
-       u=getdiary();
+       int u = getdiary();
 
        if (u)
        {
                FILE *fd= GetFileOpenedInScilab(u);
-               fwrite(str,sizeof(unsigned char),*n,fd);
+               if (fd) fwrite(str,sizeof(unsigned char),*n,fd);
        }
 }
 /*--------------------------------------------------------------------------*/
index e982818..c8efddd 100644 (file)
@@ -36,12 +36,13 @@ typedef struct {
 } scilabfile;
 /*--------------------------------------------------------------------------*/
 static scilabfile *ScilabFileList = NULL;
-static int CurFile =-1;
+static int CurFile = -1;
+static int PreviousFile = -1;
 static int CurrentMaxFiles=DEFAULT_MAX_FILES;
 /*--------------------------------------------------------------------------*/
 FILE *GetFileOpenedInScilab(int Id)
 {
-       int fd1=0;
+       int fd1 = 0;
 
        fd1 = (Id != -1) ?  Min(Max(Id,0),GetMaximumFileOpenedInScilab()-1) : CurFile ;
 
@@ -57,9 +58,17 @@ int GetCurrentFileId(void)
        return CurFile;
 }
 /*--------------------------------------------------------------------------*/
+int GetPreviousFileId(void)
+{
+       return PreviousFile;
+}
+/*--------------------------------------------------------------------------*/
 void SetCurrentFileId(int Id)
 {
-       CurFile=Id;
+       if (Id == -1) PreviousFile = -1;
+       else PreviousFile = CurFile;
+       
+       CurFile = Id;
 }
 /*--------------------------------------------------------------------------*/
 void SetFileOpenedInScilab(int Id,FILE *fptr)
index a1166fa..92d23b3 100644 (file)
@@ -1,7 +1,7 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2007 - INRIA
- * ...
+ * Copyright (C) 2009 - DIGITEO - Allan CORNET
  * 
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
 #include "localization.h"
 /*--------------------------------------------------------------------------*/
 void C2F(mclose) (int *fd, double *res)
-{     
-       int fd1;
-       int res1 = 1;
+{   
+       int fd1 = -1;
        *res = 0.0;
+       
        switch ( *fd )
        {
-       case -2 :
+               case -2 :
                /* closing all opened files */
-               for ( fd1=0; fd1< GetMaximumFileOpenedInScilab(); fd1++) {
+               for ( fd1=0; fd1< GetMaximumFileOpenedInScilab(); fd1++) 
+               {
                        if ( GetFileOpenedInScilab(fd1) )
                        {
+                               int res1 = 1;
                                fclose( GetFileOpenedInScilab(fd1) );
                                res1 = ferror( GetFileOpenedInScilab(fd1));
                                if (res1 != 0) *res =1;
                                C2F(delfile)(&fd1);
+                               /* bug 3897 */
+                               /* initialize file ID */
+                               SetCurrentFileId(-1);
                        }
                }
                break;
-       default :
-               fd1 = (*fd == -1 ) ? GetCurrentFileId() : Min(Max(*fd,0),GetMaximumFileOpenedInScilab()-1);
-               if ( fd1 != -1 ) 
-               {
-                       if ( GetFileOpenedInScilab(fd1) )
+
+               default :
+               {       
+                       fd1 = (*fd == -1 ) ? GetCurrentFileId() : Min(Max(*fd,0),GetMaximumFileOpenedInScilab()-1);
+                       if ( fd1 != -1 ) 
                        {
-                               if (fclose(GetFileOpenedInScilab(fd1)))
+                               if ( GetFileOpenedInScilab(fd1) )
                                {
-                                       *res = (double)ferror(GetFileOpenedInScilab(fd1));
+                                       int prevId = -1;
+
+                                       if (fclose(GetFileOpenedInScilab(fd1)))
+                                       {
+                                               *res = (double)ferror(GetFileOpenedInScilab(fd1));
+                                       }
+                                       C2F(delfile)(&fd1);
+
+                                       /* bug 3897 */
+                                       /* set as current file previous opened file if exists */
+                                       prevId = GetPreviousFileId();
+
+                                       if ( GetFileOpenedInScilab(prevId) )
+                                       {
+                                               SetCurrentFileId(prevId);
+                                       }
+                               }
+                               else
+                               {
+                                       *res = 0.0;
+                                       sciprint(_("%s: Cannot close file whose descriptor is %d: File is not active.\n"),"mclose",fd1);
                                }
-                               C2F(delfile)(&fd1);
                        }
-                       else
+                       else 
                        {
-                               *res = 0.0;
-                               sciprint(_("%s: Cannot close file whose descriptor is %d: File is not active.\n"),"mclose",fd1);
+                               *res = -1.0;
+                               sciprint(_("%s: Cannot close file whose descriptor is %d: No file to close.\n"),"mclose",fd1);
                        }
                }
-               else 
-               {
-                       *res = -1.0;
-                       sciprint(_("%s: Cannot close file whose descriptor is %d: No file to close.\n"),"mclose",fd1);
-               }
        }
 }
 /*--------------------------------------------------------------------------*/
index 4058174..7b467e7 100644 (file)
 #include "sciprint.h"
 #include "localization.h"
 /*--------------------------------------------------------------------------*/
-/*
-Commented by Sylvestre
-Seems to be unused ... 
-@TODO check if it is really the case
-void C2F(mgetstr) (int *fd, char **start, int *n, int *ierr)
-{ 
-       int count=0;
-       FILE *fa=NULL;
-       fa = GetFileOpenedInScilab(*fd);
-       *ierr=0;
-       if (fa)
-       { 
-               *start= (char *) MALLOC((*n+1)*sizeof(char));
-               if ( *start == (char *) 0)
-               {       
-                       sciprint(_("%s: No more memory.\n"),"mgetstr");
-                       *ierr=1;
-                       return;
-               }
-               count=(int)fread(*start,sizeof(char),*n,fa);
-               (*start)[*n]='\0';
-               if ( count != *n ) 
-               {
-                       *ierr = - count -1;
-               }
-               return;
-       }
-       sciprint(_("%s: No input file.\n"),"mgetstr");
-       *ierr=1;
-} 
-*/
-/*--------------------------------------------------------------------------*/
 void C2F(mgetstr1) (int *fd, char *start, int *n, int *ierr)
 { 
        int count=0;
index 3bf7fd2..b93f13c 100644 (file)
@@ -114,6 +114,7 @@ int LineRead(FILE *fd,char buf[],int n,int *cnt,int *nr)
 void C2F(readnextline)(int *fd,char buf[],int *n,int *count,int *nr,int *ierr)
 {
        FILE *fa= GetFileOpenedInScilab(*fd);
+
        *ierr=LineRead(fa,buf,*n,count,nr);
 }
 /*--------------------------------------------------------------------------*/
index b1fe186..589b430 100644 (file)
@@ -7,8 +7,9 @@
 // test bug 2208
 fd = mopen(TMPDIR+'/bug_2208.txt','wt');
 if mtell(fd) <> 0 then bugmes();quit;end
-m = rand(10,10);
-mputl(string(m),fd);
+m = rand(10,1);
+t = mputl(string(m),fd);
+if t <> %t then bugmes();quit;end
 r = mtell(fd);
 mclose(fd);
 INFO = fileinfo(TMPDIR+'/bug_2208.txt');
index d70facd..4793387 100644 (file)
 fd = mopen(TMPDIR+'/bug_2208.txt','wt');
 if mtell(fd) <> 0 then pause,end
 
-m = rand(10,10);
-mputl(string(m),fd);
+m = rand(10,1);
+t = mputl(string(m),fd);
+if t <> %t then pause,end
+
 r = mtell(fd);
 mclose(fd);
 
index 25e4cb3..d0c3dd5 100644 (file)
@@ -7,7 +7,8 @@
 cd('home');
 mkdir('testdir');
 cd('testdir');
-mputl('Scilab can do it :p','files.txt')
+r = mputl('Scilab can do it :p','files.txt');
+if r <> %t then bugmes();quit;end
 cd('home');
 res = ls('home/testdir');
 if res <> 'files.txt' then bugmes();quit;end
index 7aebc96..12f2b6e 100644 (file)
@@ -8,7 +8,8 @@
 cd('home');
 mkdir('testdir');
 cd('testdir');
-mputl('Scilab can do it :p','files.txt')
+r = mputl('Scilab can do it :p','files.txt');
+if r <> %t then pause,end
 
 cd('home');
 res = ls('home/testdir');
index dc6dcc5..2eea210 100644 (file)
@@ -12,6 +12,6 @@
 // <-- Short Description -->
 // mputl fails to write some accents
 refText = [ 'éàèù$£§µûâô^v~ç';'éàèù$£§µûâô^v~ç'];
-mputl(refText, TMPDIR+filesep()+'bug_3700.txt')
+mputl(refText, TMPDIR+filesep()+'bug_3700.txt');
 TXT2 = mgetl(TMPDIR+filesep()+'bug_3700.txt');
 if (refText <> TXT2) then bugmes();quit;end
index b335417..ba594b8 100644 (file)
@@ -14,7 +14,7 @@
 // mputl fails to write some accents
 
 refText = [ 'éàèù$£§µûâô^v~ç';'éàèù$£§µûâô^v~ç'];
-mputl(refText, TMPDIR+filesep()+'bug_3700.txt')
+mputl(refText, TMPDIR+filesep()+'bug_3700.txt');
 
 TXT2 = mgetl(TMPDIR+filesep()+'bug_3700.txt');
 if (refText <> TXT2) then pause,end
diff --git a/scilab/modules/fileio/tests/nonreg_tests/bug_3896.dia.ref b/scilab/modules/fileio/tests/nonreg_tests/bug_3896.dia.ref
new file mode 100644 (file)
index 0000000..2b7e764
--- /dev/null
@@ -0,0 +1,30 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - DIGITEO - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 3896 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=3896
+//
+// <-- Short Description -->
+// According to the "mputl" online help [1], If the file descriptor is omitted, lines are written in the last file opened by mopen.
+// If only one file is opened in Scilab, this syntax fails.
+warning('off');
+fd1 = mopen(TMPDIR+'/text_1.txt','w');
+if mputl('Hello world') <> %t then bugmes();quit;end;
+fd2 = mopen(TMPDIR+'/text_2.txt','w');
+if mputl('Hello world') <> %t then bugmes();quit;end;
+mclose (fd1);
+mclose (fd2);
+fd1 = mopen(TMPDIR+'/text_1.txt','w');
+fd2 = mopen(TMPDIR+'/text_2.txt','w');
+if mputl('Text') <> %t then bugmes();quit;end;
+if mputl('Text') <> %t then bugmes();quit;end;
+fd3 = mopen(TMPDIR+'/text_3.txt','w');
+if mputl('Text') <> %t then bugmes();quit;end;
+mclose (fd1);
+mclose (fd2);
+mclose (fd3);
diff --git a/scilab/modules/fileio/tests/nonreg_tests/bug_3896.tst b/scilab/modules/fileio/tests/nonreg_tests/bug_3896.tst
new file mode 100644 (file)
index 0000000..54475fd
--- /dev/null
@@ -0,0 +1,41 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - DIGITEO - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// <-- Non-regression test for bug 3896 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=3896
+//
+// <-- Short Description -->
+// According to the "mputl" online help [1], If the file descriptor is omitted, lines are written in the last file opened by mopen.
+// If only one file is opened in Scilab, this syntax fails.
+
+warning('off');
+
+fd1 = mopen(TMPDIR+'/text_1.txt','w');
+if mputl('Hello world') <> %t then pause,end;
+
+fd2 = mopen(TMPDIR+'/text_2.txt','w');
+if mputl('Hello world') <> %t then pause,end;
+
+mclose (fd1);
+mclose (fd2);
+
+fd1 = mopen(TMPDIR+'/text_1.txt','w');
+fd2 = mopen(TMPDIR+'/text_2.txt','w');
+
+if mputl('Text') <> %t then pause,end;
+if mputl('Text') <> %t then pause,end;
+
+fd3 = mopen(TMPDIR+'/text_3.txt','w');
+
+if mputl('Text') <> %t then pause,end;
+
+mclose (fd1);
+mclose (fd2);
+mclose (fd3);
+
diff --git a/scilab/modules/fileio/tests/nonreg_tests/bug_3897.dia.ref b/scilab/modules/fileio/tests/nonreg_tests/bug_3897.dia.ref
new file mode 100644 (file)
index 0000000..f4f260f
--- /dev/null
@@ -0,0 +1,21 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - DIGITEO - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 3897 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=3897
+//
+// <-- Short Description -->
+// macros perturbs the behavior of mfprintf().
+fd = mopen(TMPDIR+'/text_1.txt','wt');
+mfprintf(-1,'Hello World 1\n');
+r = sind(90);
+mfprintf(-1,'Hello World 2 \n');
+mclose(fd);
+fd = mopen(TMPDIR+'/text_1.txt','rt');
+ierr = execstr("mfprintf(fd,''Hello World 3\n'');","errcatch");
+if ierr <> 999 then bugmes();quit;end
diff --git a/scilab/modules/fileio/tests/nonreg_tests/bug_3897.tst b/scilab/modules/fileio/tests/nonreg_tests/bug_3897.tst
new file mode 100644 (file)
index 0000000..ae73a26
--- /dev/null
@@ -0,0 +1,26 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - DIGITEO - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// <-- Non-regression test for bug 3897 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=3897
+//
+// <-- Short Description -->
+// macros perturbs the behavior of mfprintf().
+
+fd = mopen(TMPDIR+'/text_1.txt','wt');
+mfprintf(-1,'Hello World 1\n');
+r = sind(90);
+mfprintf(-1,'Hello World 2 \n'); 
+mclose(fd);
+
+fd = mopen(TMPDIR+'/text_1.txt','rt');
+ierr = execstr("mfprintf(fd,''Hello World 3\n'');","errcatch");
+if ierr <> 999 then pause,end
+
+
diff --git a/scilab/modules/fileio/tests/nonreg_tests/bug_3898.dia.ref b/scilab/modules/fileio/tests/nonreg_tests/bug_3898.dia.ref
new file mode 100644 (file)
index 0000000..edbd363
--- /dev/null
@@ -0,0 +1,26 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - DIGITEO - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 3898 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=3898
+//
+// <-- Short Description -->
+// There is no way to check if mputl() has done his job :
+fd = mopen(TMPDIR+'/text_1.txt','wt');
+if mputl('Text', fd) <> %t then bugmes();quit;end
+mclose(fd);
+// Open it in read-only mode
+fd = mopen(TMPDIR+'/text_1.txt','rt');
+if mputl('Text', fd) <> %f then bugmes();quit;end
+mclose(fd);
+fd = mopen(TMPDIR+'/text_2.txt','w');
+mclose(fd);
+fd = mopen(TMPDIR+'/text_2.txt','r');
+ierr = execstr("mfprintf(fd,''rrr'');","errcatch");
+if ierr <> 999 then bugmes();quit;end
+mclose(fd);
diff --git a/scilab/modules/fileio/tests/nonreg_tests/bug_3898.tst b/scilab/modules/fileio/tests/nonreg_tests/bug_3898.tst
new file mode 100644 (file)
index 0000000..fcbebf6
--- /dev/null
@@ -0,0 +1,32 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - DIGITEO - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// <-- Non-regression test for bug 3898 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=3898
+//
+// <-- Short Description -->
+// There is no way to check if mputl() has done his job :
+
+fd = mopen(TMPDIR+'/text_1.txt','wt');
+if mputl('Text', fd) <> %t then pause,end
+mclose(fd);
+
+// Open it in read-only mode
+fd = mopen(TMPDIR+'/text_1.txt','rt');
+if mputl('Text', fd) <> %f then pause,end
+mclose(fd);
+
+fd = mopen(TMPDIR+'/text_2.txt','w');
+mclose(fd);
+fd = mopen(TMPDIR+'/text_2.txt','r');
+
+ierr = execstr("mfprintf(fd,''rrr'');","errcatch");
+if ierr <> 999 then pause,end
+mclose(fd);
+
index 147c2e3..d40b5c8 100644 (file)
@@ -1,19 +1,17 @@
 // =============================================================================
-// Auhtor : Bruno JOFRET
-//          Scilab Team
-// Copyright INRIA 2007
-//
-// Date   : 13/12/2007
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Bruno JOFRET <bruno.jofret@inria.fr>
 //
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// =============================================================================
 // Unitary tests for mdelete function
 // =============================================================================
 // TEST 1 : dummy file
 cd TMPDIR;
-mputl('I am a dummy String', 'dummyFile.dummy')
-lsResult = ls("dummyFile.dummy")
- lsResult  =
- dummyFile.dummy   
+r = mputl('I am a dummy String', 'dummyFile.dummy');
+if r <> %T then bugmes();quit;end
+lsResult = ls("dummyFile.dummy");
 // Testing if the file created exists
 if lsResult == []      then bugmes();quit;end
 // Now trying to delete it
index b135435..382bdbf 100644 (file)
 
 // TEST 1 : dummy file
 cd TMPDIR;
-mputl('I am a dummy String', 'dummyFile.dummy')
-lsResult = ls("dummyFile.dummy")
+r = mputl('I am a dummy String', 'dummyFile.dummy');
+if r <> %T then pause,end
+
+lsResult = ls("dummyFile.dummy");
 
 // Testing if the file created exists
 if lsResult == []      then pause,end
index 3e48c85..7963ad6 100644 (file)
@@ -20,7 +20,8 @@ TXT = [ 'I am a dummy String'; ..
         'to check that'; ..
         ' mputl is okay'; ..
         ' on linux and windows ... '];
-mputl(TXT, 'dummyFile.dummy')
+r = mputl(TXT, 'dummyFile.dummy');
+if r <> %T then bugmes();quit;end
 TXT2 = mgetl('dummyFile.dummy');
 if TXT2 <> TXT then bugmes();quit;end
 // =============================================================================
index 934517c..85c7402 100644 (file)
@@ -26,7 +26,8 @@ TXT = [ 'I am a dummy String'; ..
         ' mputl is okay'; ..
         ' on linux and windows ... '];
 
-mputl(TXT, 'dummyFile.dummy')
+r = mputl(TXT, 'dummyFile.dummy');
+if r <> %T then pause,end
 TXT2 = mgetl('dummyFile.dummy');
 
 if TXT2 <> TXT then pause,end
index ed14871..c3b2c52 100644 (file)
@@ -141,7 +141,7 @@ function genlib(nam,path,force,verbose,names)
     end
     
     if names_changed
-      mputl(names,path+'names') // write 'names' file in directory
+      mputl(names,path+'names'); // write 'names' file in directory
     end
     
     // create library
index 4c40d66..1938773 100644 (file)
@@ -105,7 +105,7 @@ function genlib_old(nam,path,force,verbose,names)
     end
     
     if names_changed
-      mputl(names,path+'names') // write 'names' file in directory 
+      mputl(names,path+'names'); // write 'names' file in directory 
     end
     // create library
     execstr(nam+'=lib('''+path1+''')')
index a6b77fc..a3439f4 100644 (file)
@@ -106,7 +106,7 @@ function plotprofile(fun)
   withpad=with_scipad()
   if withpad then
     profpath=TMPDIR+"/profiled.sci"
-    mputl(txt,profpath)
+    mputl(txt,profpath);
     openinscipad(profpath)
     scipad_hiliteline(1)
   else //ouput text in a graphic window
index 3f8a7a6..661d002 100644 (file)
@@ -101,7 +101,7 @@ if to<>"xml" then
       end
       WH=[WH;getwhatis(fl,strsubst(fnam,'.man',''))]
     end
-    mputl(gsort(WH,'g','i'),path+whatis)
+    mputl(gsort(WH,'g','i'),path+whatis);
   end
 end
 endfunction
index 83ce1bc..42cca67 100644 (file)
@@ -293,7 +293,7 @@ end
 helptxt=[helptxt;change_activity(doing,'FINISHED')];
 mclose(f);
 if ~isempty(helpdir) then
-  mputl(helptxt,pathconvert(helpdir,%t,%f)+out+'.xml')
+  mputl(helptxt,pathconvert(helpdir,%t,%f)+out+'.xml');
   helptxt=pathconvert(helpdir,%t,%f)+out+'.xml'
 end
 demotxt=[demotxt;'//========= E N D === O F === D E M O =========//'];
index 314b7cf..392d39b 100644 (file)
@@ -274,7 +274,7 @@ function txt=help_skeleton(funname,path,language)
   end
   
   if rhs >= 2 then
-    mputl(txt,pathconvert(path,%t,%f)+funname+'.xml')
+    mputl(txt,pathconvert(path,%t,%f)+funname+'.xml');
     txt=pathconvert(path,%t,%f)+funname+'.xml'
   end
   
index 6b8dd5f..140909d 100644 (file)
@@ -78,7 +78,7 @@ if bval then
       if ~isempty(keq) then
         funcname=stripblanks(part(funcname,keq+1:length(funcname)))
       end
-      mputl(functxt,pathconvert(TMPDIR)+fnam+".m")
+      mputl(functxt,pathconvert(TMPDIR)+fnam+".m");
     else
       functxt=txt(funcdecl(k):funcdecl(k+1)-1)
       str=strindex(txt(funcdecl(k)),"(")-1
@@ -92,7 +92,7 @@ if bval then
         funcname=stripblanks(part(funcname,keq+1:length(funcname)))
       end
       tmpfiles=[tmpfiles;funcname]
-      mputl(functxt,pathconvert(TMPDIR)+pathconvert(fnam)+tmpfiles($)+".m")
+      mputl(functxt,pathconvert(TMPDIR)+pathconvert(fnam)+tmpfiles($)+".m");
     end
   end
   write(%io(2),msprintf(gettext(" -- Each function converted separately: %s -- "),strcat(tmpfiles," ")));
@@ -113,13 +113,13 @@ if bval then
     txt=[txt ;" ";mgetl(pathconvert(TMPDIR)+pathconvert(fnam)+tmpfiles(k)+".sci")]
     mdelete(pathconvert(TMPDIR)+pathconvert(fnam)+tmpfiles(k)+".sci")
   end
-  mputl(txt,pathconvert(TMPDIR)+"tmp_"+fnam+".sci")
+  mputl(txt,pathconvert(TMPDIR)+"tmp_"+fnam+".sci");
   // End of catenation of all .sci files to have only one output file
   txt=mgetl(pathconvert(TMPDIR)+pathconvert(fnam)+sep+"log")
-  mputl(txt,pathconvert(TMPDIR)+"tmp_m2sci_"+fnam+".log")
+  mputl(txt,pathconvert(TMPDIR)+"tmp_m2sci_"+fnam+".log");
   //
   txt=mgetl(pathconvert(TMPDIR)+pathconvert(fnam)+sep+"resumelog")
-  mputl(txt,pathconvert(TMPDIR)+"tmp_resume_m2sci_"+fnam+".log")
+  mputl(txt,pathconvert(TMPDIR)+"tmp_resume_m2sci_"+fnam+".log");
   
   // Catenation of all .log files to have only one output file
  // txt=[]
@@ -128,7 +128,7 @@ if bval then
     // Delete useless .log files
    // mdelete(pathconvert(TMPDIR)+pathconvert(fnam)+"m2sci_"+tmpfiles(k)+".log")
   //end
-  //mputl(txt,pathconvert(TMPDIR)+"tmp_m2sci_"+fnam+".log")
+  //mputl(txt,pathconvert(TMPDIR)+"tmp_m2sci_"+fnam+".log");
   //End of catenation of all .log files to have only one output file  
   
   // Catenation of all resume.log files to have only one output file 
@@ -138,7 +138,7 @@ if bval then
     // Delete useless resume.log files
    // mdelete(pathconvert(TMPDIR)+pathconvert(fnam)+"resume_m2sci_"+tmpfiles(k)+".log")
   //end
-  //mputl(txt,pathconvert(TMPDIR)+"tmp_resume_m2sci_"+fnam+".log")
+  //mputl(txt,pathconvert(TMPDIR)+"tmp_resume_m2sci_"+fnam+".log");
   //End of catenation of all resume.log files to have only one output file
   
   txt=mgetl(pathconvert(TMPDIR)+fnam+".m")
index cf1ca7f..1f5b18f 100644 (file)
@@ -97,7 +97,7 @@ else
       funcname=stripblanks(part(funcname,keq+1:length(funcname)))
     end
     tmpfiles=[tmpfiles;funcname]
-    mputl(functxt,pathconvert(TMPDIR)+base_name+sep+tmpfiles($)+".m")
+    mputl(functxt,pathconvert(TMPDIR)+base_name+sep+tmpfiles($)+".m");
   end
   
   write(%io(2),msprintf(gettext(" -- Each function converted separately: %s -- "),strcat(tmpfiles," ")));
@@ -114,9 +114,9 @@ else
   
     txt=[]
     txt=mgetl(pathconvert(TMPDIR)+base_name+sep+'log')
-    mputl(txt,res_path+'log') 
+    mputl(txt,res_path+'log'); 
     txt=mgetl(pathconvert(TMPDIR)+base_name+sep+'resumelog')
-    mputl(txt,res_path+'resumelog') 
+    mputl(txt,res_path+'resumelog'); 
   
   // Catenation of all .sci files to have only one output file
   txt=[]
@@ -129,7 +129,7 @@ else
     //mdelete(res_path+tmpfiles(k)+".sci")
   //end
    
-  mputl(txt,res_path+base_name+".sci")
+  mputl(txt,res_path+base_name+".sci");
 
   // Catenation of all .log files to have only one output file
   //if exists("logfile")==0 then
@@ -143,7 +143,7 @@ else
       //mdelete(pathconvert(TMPDIR)+base_name+sep+"m2sci_"+tmpfiles(k)+".log")
     //end
   
-    //mputl(txt,res_path+"m2sci_"+base_name+".log")
+    //mputl(txt,res_path+"m2sci_"+base_name+".log");
   //end
   
   // Catenation of all resume.log files to have only one output file
@@ -158,7 +158,7 @@ else
       //mdelete(res_path+"m2sci_"+tmpfiles(k)+"_resume.log")
     //end
   
-    //mputl(txt,res_path+"m2sci_"+base_name+"_resume.log")
+    //mputl(txt,res_path+"m2sci_"+base_name+"_resume.log");
   //end
   
   // Delete useless .m files
index d612778..fad9d8f 100644 (file)
@@ -158,7 +158,7 @@ m2sci_info(gettext("Syntax modification: Done"),-1);
 if helppart<>[] then
   catfil=res_path+fnam+".cat"
   whsfil=res_path+"whatis"
-  mputl(helppart,catfil)
+  mputl(helppart,catfil);
   if exists("whsfil_unit")==1 then
     write(whsfil_unit,stripblanks(helppart(1))+" |"+fnam,"(a)")
   end
@@ -301,12 +301,12 @@ if txt~=[] then
   // Write sci-file
   ext=".sci"
   scifil=res_path+fnam+ext
-  mputl(res,scifil)
+  mputl(res,scifil);
 
   // Write sci_<mname>.sci translation file
   if trad<>[] then
     sci_fil=res_path+"sci_"+mname+".sci"
-    mputl(trad,sci_fil)
+    mputl(trad,sci_fil);
     res=1
   else
     res=0
index 22ee880..0594e7a 100644 (file)
@@ -147,7 +147,7 @@ for i=1:size(funpath,1)
       txt=[]
       txt=mgetl(scipath)
       txt=[txt;" ";mgetl(tmp_sci_file)]
-      mputl(txt,scipath) 
+      mputl(txt,scipath);
       mdelete(tmp_sci_file)
     end
     
@@ -179,8 +179,8 @@ for i=1:size(funpath,1)
       mdelete(tmp_resume_m2sci_file)
     end
   end
-  mputl(logtxt,res_path+'log')
-  mputl(resumelogtxt,res_path+'resumelog')
+  mputl(logtxt,res_path+'log');
+  mputl(resumelogtxt,res_path+'resumelog');
 end
 
 // File closing
@@ -205,12 +205,12 @@ buildertxt=[]
 buildertxt($+1)="path=get_absolute_file_path(""builder.sce"")"
 buildertxt($+1)="genlib("""+namelib+"lib"",path)"
 builderfile=res_path+"builder.sce"
-mputl(buildertxt,builderfile)
+mputl(buildertxt,builderfile);
 //loader.sce
 loadertxt=[]
 loadertxt($+1)="path=get_absolute_file_path(""loader.sce"")"
 loadertxt($+1)="load(path+"+"""lib"")"
 loaderfile=res_path+"loader.sce"
-mputl(loadertxt,loaderfile)
+mputl(loadertxt,loaderfile);
 
 endfunction
index f141f6c..ee8e165 100644 (file)
@@ -18,12 +18,12 @@ function ge_do_information(GraphList)
   elseif r==2 then
     path=tk_savefile()
     if path<>'' then
-      mputl(ge_make_text_info(),path)
+      mputl(ge_make_text_info(),path);
     end
   elseif r==3 then
     path=tk_savefile('*.tex')
     if path<>'' then
-      mputl(ge_make_tex_info(),path)
+      mputl(ge_make_tex_info(),path);
     end
   end
 endfunction
index b88e9ab..c6abcd1 100644 (file)
@@ -6,16 +6,17 @@
 // you should have received as part of this distribution.  The terms
 // are also available at    
 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+
 function %c_mclose(str)
-if convstr(str)=='all' then
-  file('close',file())
+if ( convstr(str) == 'all') then
+  file('close', file() );
 else
- [units,typ,nams]=file()
- k=find(nams==str)
- if k<>[] then
-   file('close',k)
+  [units, typ, nams] = file();
+  k = find(nams == str);
+ if k <> [] then
+   file('close',k);
  else
-   write(%io(2),'No such file opened file')
+   mprintf(gettext("%s: No such file opened file.\n"), "mclose");
  end
 end
 endfunction
index 18556b6..23a0bc0 100644 (file)
@@ -44,7 +44,7 @@ function Modelica_()
        XX=scs_m.objs(k).model.rpar;
        name=XX.props.title(1)
        txt=gen_modelica(XX,name)
-       mputl(txt,scs_m.props.title(2)+name+'.mo')
+       mputl(txt,scs_m.props.title(2)+name+'.mo');
        compile_modelica(scs_m.props.title(2)+name+'.mo')
        Cmenu=[] 
       else
index 69d9f8a..dd767e2 100644 (file)
@@ -81,7 +81,7 @@ function [ok, name, nx, nin, nout, ng, nm, nz] = compile_modelica(fil)
     if MSDOS
       //++ WINDOWS PLATFORMS: Put the instruction in a batch file instead of
       //++ executing it directly
-      mputl(instr, path + 'genc.bat')
+      mputl(instr, path + 'genc.bat');
       instr = path + 'genc.bat'
     end
 
@@ -107,7 +107,7 @@ function [ok, name, nx, nin, nout, ng, nm, nz] = compile_modelica(fil)
             txt=[txt ; mgetl(molibs(k))]
           end
         end
-        mputl(txt, TMPDIR + '/MYMOPACKAGE.mo')
+        mputl(txt, TMPDIR + '/MYMOPACKAGE.mo');
         // all Modelica files found in "modelica_libs" directories are
         // merged into the temporary file  "MYMOPACKAGE.mo". This is done
         // because in Windows the length of the command line is limited.
@@ -116,7 +116,7 @@ function [ok, name, nx, nin, nout, ng, nm, nz] = compile_modelica(fil)
         //translator = translator + strcat(' -lib ' + molibs)
         instr = translator + ' -lib ' + fil + ' -o ' + FlatName + " -command ""' + name + ' x;"" > ' + TMPDIR + filesep() + translator_err
         if MSDOS
-          mputl(instr, path + 'gent.bat')
+          mputl(instr, path + 'gent.bat');
           instr = path + 'gent.bat'
         end
         if execstr('unix_s(instr)', 'errcatch') <> 0 then
index c94e6e0..f4a8eac 100644 (file)
@@ -290,7 +290,7 @@ function status = launch_nonreg(baseDir, testName)
           '';
           '// Quit background Scilab session';
           'exit'];
-  mputl(txt, get_filename(testFilename))
+  mputl(txt, get_filename(testFilename));
 
   //-- Launch script using a background Scilab
   // Binary or source version ?
index 116ef79..6a3edec 100644 (file)
@@ -31,5 +31,5 @@ t=var(:,1)
 for k=2:size(var,2)
   t=t+sep+var(:,k)
 end
-mputl(t,fname)
+mputl(t,fname);
 endfunction