localization
Allan Cornet [Mon, 9 Jun 2008 14:21:49 +0000 (14:21 +0000)]
13 files changed:
scilab/modules/mexlib/src/c/mexlib.c
scilab/modules/optimization/macros/bvodeS.sci
scilab/modules/optimization/macros/datafit.sci
scilab/modules/optimization/macros/derivative.sci
scilab/modules/optimization/macros/fit_dat.sci
scilab/modules/optimization/macros/karmarkar.sci
scilab/modules/optimization/macros/leastsq.sci
scilab/modules/optimization/macros/lmisolver.sci
scilab/modules/optimization/macros/lmitool.sci
scilab/modules/optimization/macros/numdiff.sci
scilab/modules/optimization/sci_gateway/c/sci_qp_solve.c
scilab/modules/optimization/src/c/intqld.c
scilab/modules/others/macros/edit.sci

index 49ebcef..7d7bb42 100644 (file)
@@ -811,7 +811,7 @@ bool mxIsDouble(const mxArray *ptr)
 
 bool mxIsSingle(const mxArray *ptr)
 {
-  mexPrintf(_("Routine mxIsSingle not implemented\n"));
+  mexPrintf(_("Routine mxIsSingle not implemented.\n"));
   exit(1);  /* TO BE DONE */
   return 0;
 }
@@ -861,7 +861,7 @@ void mxClearLogical(mxArray *ptr)
 {
   int *header = Header(ptr);
   if (header[0] != LOGICAL)
-    mexErrMsgTxt(_("Variable is not logical"));
+    mexErrMsgTxt(_("Variable is not logical."));
   header[0] = DOUBLEMATRIX;
 }
 
@@ -924,7 +924,7 @@ mxArray *mxCreateDoubleMatrix (int m, int n, mxComplexity it)
   int k;
   lw = Nbvars + 1;
   if (! C2F(createcvar)(&lw, "d", (int *) &it, &m, &n, &lr, &lc, 1L)) {
-    mexErrMsgTxt(_("No more memory available: increase stacksize"));
+    mexErrMsgTxt(_("No more memory available: increase stacksize."));
   }
   for ( k=0; k<m*n*(it+1); k++ ) {
    *stk(lr+k)=0;
@@ -1980,7 +1980,7 @@ static int mexCallSCI(int nlhs, mxArray **plhs, int nrhs, mxArray **prhs, char *
        if ((int) prhs[k-1] == C2F(vstk).lstk[kk + Top - Rhs - 1]) break;
       if (kk == nv + 1)
        {
-         mexErrMsgTxt(_("mexCallSCILAB: invalid pointer passed to called function"));
+         mexErrMsgTxt(_("mexCallSCILAB: invalid pointer passed to called function."));
          return 1;
        }
       else
@@ -1995,7 +1995,7 @@ static int mexCallSCI(int nlhs, mxArray **plhs, int nrhs, mxArray **prhs, char *
   if (! C2F(scistring)(&i1, name, &nlhs, &nrhs,(unsigned long) strlen(name) )) {
     if ( jumpflag == 1)
       {
-       mexErrMsgTxt(_("mexCallSCILAB: evaluation failed "));
+       mexErrMsgTxt(_("mexCallSCILAB: evaluation failed. "));
       }
     return 1;
     /* return 0;  */
@@ -2089,7 +2089,7 @@ int mxGetElementSize(const mxArray *ptr)
    it=header[3];
    return( it%10 );
  default:
-   mexErrMsgTxt(_("GetElementSize error"));
+   mexErrMsgTxt(_("GetElementSize error."));
    return 0;
  }
  return 0;
@@ -2228,7 +2228,7 @@ void mxSetName(mxArray *array_ptr, const char *name)
 
 void mxSetData(mxArray *array_ptr, void *data_ptr)
 {
-  mexErrMsgTxt(_("Routine mxSetData not implemented\n"));
+  mexErrMsgTxt(_("Routine mxSetData not implemented.\n"));
   exit(1);  /* TO BE DONE */
 }
 
@@ -2304,14 +2304,14 @@ void mxSetPi(mxArray *array_ptr, double *pi_data)
 
 const char *mxGetName(const mxArray *array_ptr)
 {
-    mexPrintf(_("Routine mxGetName not implemented\n"));
+    mexPrintf(_("Routine mxGetName not implemented.\n"));
     exit(1);
        return 0;
 }
 
 int mxSetDimensions(mxArray *array_ptr, const int *dims, int ndim)
 {
-  mexPrintf(_("Routine mxSetDimensions not implemented\n"));
+  mexPrintf(_("Routine mxSetDimensions not implemented.\n"));
   exit(1);  /* TO BE DONE */
   return 0;
 }
index 200f7e2..d8dc40d 100644 (file)
@@ -66,7 +66,7 @@ function y=%R(f_,x,z)
   elseif type(f_)==13 then
     y=f_(x,z)
   else
-    error('argument has wrong type')
+    error(msprintf(gettext("%s: Wrong type for input argument.\n"),"%%R"));
   end
 endfunction
 
@@ -111,7 +111,7 @@ function [z,LhS]=%RR(f_,x)
   elseif type(f_)==13 then
     [z,LhS]=f_(x)
   else
-    error('argument has wrong type')
+    error(msprintf(gettext("%s: Wrong type for input argument.\n"),"%%RR"));
   end
 endfunction
 
index a7dae05..eddbb64 100644 (file)
@@ -68,7 +68,7 @@ if type(DG)==10|type(DG)==11|type(DG)==13 then
   GR=%t  //Jacobian provided
   varargin(1)=null()
 elseif type(DG)==15 then 
-  error('Jacobian cannot be a list, parameters must be set in G')
+  error(msprintf(gettext('%s: Jacobian cannot be a list, parameters must be set in G.'),'datafit'));
 else
   GR=%f
 end
@@ -76,7 +76,7 @@ end
 Z=varargin(1);
 varargin(1)=null()
 if type(Z)<>1 then 
-  error('datafit : wrong measurement matrix')
+  error(msprintf(gettext('%s: Wrong measurement matrix.'),'datafit'));
 end
 
 nv=size(varargin)
@@ -86,7 +86,7 @@ if nv>=1 then
   else
     W=varargin(1);varargin(1)=null()
     if size(W,1)~=size(W,2) then 
-      error('Weighting matrix must be square');
+      error(msprintf(gettext('%s: Weighting matrix must be square.'),'datafit'));
     end
   end
 end  
@@ -100,7 +100,7 @@ end
 
 if type(G)==10 then  //form function to call hard coded external
   if size(Gparams)==0 then 
-    error('With hard coded function, user must give output size of G'),
+    error(msprintf(gettext('%s: With hard coded function, user must give output size of G.'),'datafit'));
   end
   m=Gparams(1);Gparams(1)=null()
   
index cbcb951..745f90f 100644 (file)
@@ -25,15 +25,20 @@ function [J,H] = derivative(F, x, h, order, H_form, Q)
 //     Rainer von Seggern, Bruno Pincon
 //
    [lhs,rhs]=argn();
-   if rhs<2 | rhs>6 then, error('Wrong number of input arguments'), end
-   if type(x) ~= 1 then, error('x has wrong type'), end
+   if rhs<2 | rhs>6 then
+     error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),'derivative',2,6));
+   end
+   if type(x) ~= 1 then
+     error(msprintf(gettext("%s: Wrong type for input argument #%d: N-dimensionnal array expected.\n"),'derivative',2));
+   end
    [n,p] = size(x)
-   if p ~= 1 then, error('x must be a column vector'), end
-   
+   if p ~= 1 then
+     error(msprintf(gettext("%s: Wrong size for input argument #%d: A column vector expected.\n"),'derivative',2));
+   end
    if ~exists('order','local') then
       order = 2
    elseif (order ~= 1 & order ~= 2 & order ~= 4) then
-      error('order must be 1, 2 or 4')
+     error(msprintf(gettext("%s: Order must be 1, 2 or 4.\n"),'derivative'));
    end
     
    if ~exists('H_form','local'), H_form = 'default', end
@@ -119,6 +124,6 @@ if type(F_)==15 then
 elseif  type(F_)==13  then
   y=F_(x);
 else
-  error('The first input variable has wrong type.');
+  error(msprintf(gettext("%s: Wrong type for input argument #%d: A function expected.\n"),'%%R_',1));
 end
 endfunction
index 4536ed5..21446f6 100644 (file)
@@ -75,9 +75,11 @@ elseif rhs==6 then
 elseif    rhs==7 then
   GR=%t;
 else
-  error('wrong number of arguments')
+  error(msprintf(gettext("%s: Wrong number of input argument(s).\n"),"fit_dat"));
+end
+if size(W,1)~=size(W,2) then
+  error(msprintf(gettext("%s: Weighting matrix must be square.\n"),"fit_dat"));
 end
-if size(W,1)~=size(W,2) then error('Weighting matrix must be square');end
 nz=size(Z,2);mz=size(p0,'*');
 deff('e=GG(p,Z)','e=0;for i=1:nz,e=e+G(p,Z(:,i))''*W*G(p,Z(:,i)),end')
 if ~GR then
@@ -95,7 +97,7 @@ if ~boun then
   [err,p]=optim(costf,p0)
 else
   if or(p0<pmin)|or(p0>pmax) then 
-    error('initial guess not feasible')
+    error(msprintf(gettext("%s: Initial guess not feasible.\n"),"fit_dat"));
   end
   [err,p]=optim(costf,'b',pmin,pmax,p0)
 end
index fbe2b73..d5a72e6 100644 (file)
@@ -24,13 +24,19 @@ end
 //verification des donnees
 [n,p]=size(a)
 w=size(b)
-if w(1)<>n then error('invalid B dimension'),end
+if w(1)<>n then 
+  error(msprintf(gettext("%s: Wrong size for input argument #%d."),'karmarkar',2));
+end
 w=size(c)
-if w(1)<>p then error('invalid A dimension'),end
+if w(1)<>p then
+  error(msprintf(gettext("%s: Wrong size for input argument #%d."),'karmarkar',1));
+end
 w=size(x0)
-if w(1)<>p then error('invalid x0 dimension'),end
+if w(1)<>p then
+  error(msprintf(gettext("%s: Wrong size for input argument #%d."),'karmarkar',4));
+end
 if mini(x0)<0|norm(a*x0-b)>eps then 
-  error('x0 is not feasible'),
+  error(msprintf(gettext("%s: x0 is not feasible."),'karmarkar'));
 end
 //
 x1=x0;tc=c';
@@ -46,7 +52,9 @@ while test>eps&count<=maxiter
 //    y=(ax*ax')\(ax*xc)
     d=-xc+ax'*y;
     dk=x1.*d;
-    if mini(dk)>0 then error('Unbounded problem!'),end
+    if mini(dk)>0 then 
+      error(msprintf(gettext("%s: Unbounded problem!"),'karmarkar'));
+    end
     alpha=-Gamma/mini(d);
     test=alpha*(norm(d)**2)/maxi(1,abs(crit));
     x1=x1+alpha*dk;
index 64ee38f..ff124c0 100644 (file)
@@ -32,9 +32,9 @@ if type(Dfun)==10 then //the 'b' keyword or the jacobian entry point name
 elseif type(Dfun)==11|type(Dfun)==13 then
   J=%t  //Jacobian provided
 elseif type(Dfun)==15 then 
-  error('Jacobian cannot be a list, parameters must be set in fun')
+  error(msprintf(gettext('%s: Jacobian cannot be a list, parameters must be set in fun.'),'leastsq'));
 else
-  J=%f
+  J=%f;
 end
 if J then, varargin(1)=null(), end  // to correct bug 1219 (bruno, 22 feb 2005)
 kr=1
@@ -44,7 +44,7 @@ x0=varargin(kr)
 
 if type(fn)==10 then //hard coded function given by its name
   if size(params)==0 then 
-    error('With hard coded function, user must give output size of fun'),
+    error(msprintf(gettext('%s: With hard coded function, user must give output size of fun.'),'leastsq'));
   end
   m=params(1);params(1)=null()
   n=size(x0,'*')
index b4c93ac..6b55023 100644 (file)
@@ -51,7 +51,7 @@ function [%Xlist,%OPT]=lmisolver(%Xinit,%evalfunc,%options)
     end     
     if %sm>=-%tol & %nor<%tol then
       %Xlist=vec2list(%x0,%dim_X,%ind_X);
-      lmisolvertrace(msprintf(_('%s: initial guess is feasible'),'lmisolver'));return; 
+      lmisolvertrace(msprintf(_('%s: initial guess is feasible.'),'lmisolver'));return; 
     end
   end
 
@@ -75,7 +75,7 @@ function [%Xlist,%OPT]=lmisolver(%Xinit,%evalfunc,%options)
 
 
   //Construction of canonical representation
-  lmisolvertrace(msprintf(_('%s: Construction of canonical representation'),'lmisolver'));
+  lmisolvertrace(msprintf(_('%s: Construction of canonical representation.'),'lmisolver'));
   %spF_0=sparse(%F_0);
   %spb=sparse(%b);
   %lX=size(%Xinit)
@@ -105,7 +105,7 @@ function [%Xlist,%OPT]=lmisolver(%Xinit,%evalfunc,%options)
   if size(%Ncstr,'*')==0 then
     %Ncstr=speye(%nvars,%nvars);
   else
-    lmisolvertrace(msprintf(_('%s: Basis Construction'),'lmisolver'));
+    lmisolvertrace(msprintf(_('%s: Basis Construction.'),'lmisolver'));
     [%x0,%Ncstr]=linsolve(%Ncstr,%b,%x0);
 
   end
@@ -149,7 +149,7 @@ function [%Xlist,%OPT]=lmisolver(%Xinit,%evalfunc,%options)
       if size(%linobj,'*') <> 0 then
        [%ptr,%rk2]=lufact([[%F_is;%linobj] spzeros(%fm+1,%fm+1-%m)]',[%tol,0.001]);
        if %rk<%rk2 then
-         error(msprintf(_('%s: solution unbounded'),'lmisolver'));
+         error(msprintf(_('%s: solution unbounded.'),'lmisolver'));
        end
       end
     end
@@ -173,7 +173,7 @@ function [%Xlist,%OPT]=lmisolver(%Xinit,%evalfunc,%options)
     if %flag then 
       %Xlist=vec2list(%x0,%dim_X,%ind_X);return; 
     else 
-      error(msprintf(_('%s: not feasible or badly defined problem'),'lmisolver'));
+      error(msprintf(_('%s: not feasible or badly defined problem.'),'lmisolver'));
     end   
   end
 
@@ -250,33 +250,33 @@ function [%Xlist,%OPT]=lmisolver(%Xinit,%evalfunc,%options)
 
     select %info(1)
     case 1
-      error(msprintf(_('%s: Max. iters. exeeded'),'lmisolver'))
+      error(msprintf(_('%s: Max. iters. exceeded.'),'lmisolver'))
     case 2 then
-      lmisolvertrace(msprintf(_('%s: Absolute accuracy reached'),'lmisolver'))
+      lmisolvertrace(msprintf(_('%s: Absolute accuracy reached.'),'lmisolver'))
     case 3 then
-      lmisolvertrace(msprintf(_('%s: Relative accuracy reached'),'lmisolver'))
+      lmisolvertrace(msprintf(_('%s: Relative accuracy reached.'),'lmisolver'))
     case 4 then
-      lmisolvertrace(msprintf(_('%s: Target value reached'),'lmisolver'))
+      lmisolvertrace(msprintf(_('%s: Target value reached.'),'lmisolver'))
     case 5 then
-      error(msprintf(_('%s: Target value not achievable'),'lmisolver'))
+      error(msprintf(_('%s: Target value not achievable.'),'lmisolver'))
     else
-      warning(msprintf(_('%s: No feasible solution found'),'lmisolver'))
+      warning(msprintf(_('%s: No feasible solution found.'),'lmisolver'))
     end
 
 
     if %info(2) == %mite then 
-      error(msprintf(_('%s: max number of iterations exceeded'),'lmisolver'));
+      error(msprintf(_('%s: max number of iterations exceeded.'),'lmisolver'));
     end
     if (%ul(1) > %ato) then 
-      error(msprintf(_('%s: No feasible solution exists'),'lmisolver'));
+      error(msprintf(_('%s: No feasible solution exists.'),'lmisolver'));
     end
     //       if (%ul(1) > 0) then %F_0=%F_0+%ato*%I;end
 
-    lmisolvertrace(msprintf(_('%s: feasible solution found'),'lmisolver'));
+    lmisolvertrace(msprintf(_('%s: feasible solution found.'),'lmisolver'));
 
   else
 
-    lmisolvertrace(msprintf(_('%s: Initial guess feasible'),'lmisolver'));
+    lmisolvertrace(msprintf(_('%s: Initial guess feasible.'),'lmisolver'));
     %xi=zeros(%m,1);
   end
 
index f8ec719..13a6b1f 100644 (file)
@@ -12,30 +12,30 @@ function [txtdo]=lmitool(PROBNAME,XNAME,DNAME)
 txtdo=[]
 
 if RHS ~=3 then
-x_message(['Welcome to LMITOOL';'      ';'   ';
-    'LMITOOL is a Scilab package for LMI optimization';
+x_message([gettext('Welcome to LMITOOL');'      ';'   ';
+    gettext('LMITOOL is a Scilab package for LMI optimization');
       '            ';
       '           ';
-      'It can solve the following problem';
+      gettext('It can solve the following problem');
       '                 ';
-      '   minimize  f(X1,...,XM)  ';
-      'subject to the LME constraints: ';
-      '   Gi(X1,...,XM)=0,  i=1,2,...,p,';
-      'and the LMI constraints:  ';
-      '   Hj(X1,...,XM)>=0,  j=1,2,...,q.';
+      gettext('   minimize  f(X1,...,XM)  ');
+      gettext('subject to the LME constraints: ');
+      gettext('   Gi(X1,...,XM)=0,  i=1,2,...,p,');
+      gettext('and the LMI constraints:  ');
+      gettext('   Hj(X1,...,XM)>=0,  j=1,2,...,q.');
       '              ';
-      'where';
-      'X1,...,XM are unknown real matrices, referred to as the unknown matrices,';
-      'f is the objective function, a linear scalar function of the entries of the X''s,';
-      'Gi''s are affine matrix functions of the entries of the X''s,';
-      'Hj''s are affine symmetric matrix functions of the entries of the X''s.';
+      gettext('where');
+      gettext('X1,...,XM are unknown real matrices, referred to as the unknown matrices,');
+      gettext('f is the objective function, a linear scalar function of the entries of the X''s,');
+      gettext('Gi''s are affine matrix functions of the entries of the X''s,');
+      gettext('Hj''s are affine symmetric matrix functions of the entries of the X''s.');
       '            ';
-      'These functions are parameterized by the entries of known data matrices D1,...,DN.';
+      gettext('These functions are parameterized by the entries of known data matrices D1,...,DN.');
       '        ';
-      'For a detailed description and examples consult: ';
-      '          ''LMITOOL: a Package for LMI Optimization in Scilab, User''s Guide'' ';
+      gettext('For a detailed description and examples consult: ');
+      gettext('          ''LMITOOL: a Package for LMI Optimization in Scilab, User''s Guide'' ');
       '          ';
-      'LMITOOL uses Semidefinite Programming package SP developed by L. Vandenberghe and S. Boyd.'])
+      gettext('LMITOOL uses Semidefinite Programming package SP developed by L. Vandenberghe and S. Boyd.')]);
 
 
 
@@ -61,18 +61,18 @@ x_message(['Welcome to LMITOOL';'      ';'   ';
     PROBNAME1=strcat(PROBNAME1);
   end
 
-  labels=['LMI problem name: ';'Names of unknown matrices: ';...
-          'Names of data matrices: '];
-  [ok,PROBNAME,XNAME,DNAME]=getvalue(['Problem definition';
-      'LMITOOL will generate for you a skeleton of the functions needed';
-        ' (see User''s Guide for details). For that, you need to specify:';
-          '1- Name of you problem which will be given to the solver function,';
-          '2- Names of unknown matrices or list of unknown matrices,';
-          '3- Names of data matrices or list of data matrices.'],labels,...
+  labels=[gettext('LMI problem name: ');gettext('Names of unknown matrices: ');...
+          gettext('Names of data matrices: ')];
+  [ok,PROBNAME,XNAME,DNAME]=getvalue([gettext('Problem definition');
+      gettext('LMITOOL will generate for you a skeleton of the functions needed');
+        gettext(' (see User''s Guide for details). For that, you need to specify:');
+          gettext('1- Name of you problem which will be given to the solver function,');
+          gettext('2- Names of unknown matrices or list of unknown matrices,');
+          gettext('3- Names of data matrices or list of data matrices.')],labels,...
           list('str',1,'str',1,'str',1),...
           [PROBNAME1+'            ',XNAME1+'           ',DNAME1+'         ']);
       if ok==%f then 
-        txtdo='Try again';return;
+        txtdo=gettext('Try again');return;
       end
     end      
     PROBNAME=stripblanks(PROBNAME);
@@ -130,7 +130,7 @@ x_message(['Welcome to LMITOOL';'      ';'   ';
           end
         end
         if size(ind,'*')<>4 then 
-          error('File not generated by lmitool or badly modified');
+          error(gettext('File not generated by lmitool or badly modified.'));
         end
         txt1=[];
         for i=ind(1)+1:ind(2)-1
@@ -156,22 +156,22 @@ x_message(['Welcome to LMITOOL';'      ';'   ';
               sep2;' ';txts1;' ';sep13;txts2];
 
       if RHS==0|RHS==1 then
-        [txt4]=x_dialog(['Function definitions';
-            'Here is a skeleton of the functions which you shoud edit';
-            'You can do the editing in this window or click on ''ok'', save';
-              'the skeleton and edit later using your favorite editor'],[txt4]);
+        [txt4]=x_dialog([gettext('Function definitions');
+            gettext('Here is a skeleton of the functions which you shoud edit');
+            gettext('You can do the editing in this window or click on ''ok'', save');
+              gettext('the skeleton and edit later using your favorite editor')],[txt4]);
         end
       if txt4==[] then txtdo='Try again';return;end
         txt=[txt4];
         n=1;
         if RHS<>3 then
 
-          fname=x_dialog(['Name of file in which you want the solver function';
-              'and the evaluation function be saved (overwrites if a';
-              'file with the same name exists already)'],[fname+'                '])
+          fname=x_dialog([gettext('Name of file in which you want the solver function');
+              gettext('and the evaluation function be saved (overwrites if a');
+              gettext('file with the same name exists already)')],[fname+'                '])
           fname=stripblanks(fname);
         else
-          x_message('functions saved in '+fname');
+          x_message(gettext('functions saved in ')+fname');
         end
         if fname<>[] then
         deletefile(fname)
@@ -193,13 +193,13 @@ x_message(['Welcome to LMITOOL';'      ';'   ';
           x_message(txtdo);return
         end
         if RHS==3 then
-          txtdo = ['    To solve your problem, you need to ';
-              '1- edit file '+fname
-              '2- load (and compile) your functions:';
+          txtdo = [gettext('    To solve your problem, you need to ');
+              gettext('1- edit file ')+fname
+              gettext('2- load (and compile) your functions:');
               '   getf('''+fname'+''')';
-              '3- Define '+DNAME+' and call '+PROBNAME+' function:';
+              gettext('3- Define ')+DNAME+gettext(' and call ')+PROBNAME+gettext(' function:');
               '  '+'['+XNAME+']='+PROBNAME+'('+DNAME+')';
-              'To check the result, use [LME,LMI,OBJ]='+PROBNAME+'_eval(list('+XNAME+'))']
+              gettext('To check the result, use [LME,LMI,OBJ]=')+PROBNAME+'_eval(list('+XNAME+'))']
         end
 
 endfunction
index ef63660..0f038b3 100644 (file)
@@ -14,7 +14,7 @@ else
   params=list()
 end
 if type(%__func)==10 then //hard coded function given by its name
-  error(gettext("Hard coded function not allowed, create a Scilab function using call."))
+  error(msprintf(gettext('%s: Hard coded function not allowed, create a Scilab function using call.'),'numdiff'));
 end
 
 %x=%x(:);
index df5aa5f..dc3ba74 100644 (file)
@@ -166,7 +166,7 @@ int C2F(sci_qp_solve)(char *fname,unsigned long fname_len)
        }
        else if (ierr == 1)
        {
-               Scierror(999,_("%s: The minimization problem has no solution\n"),fname);
+               Scierror(999,_("%s: The minimization problem has no solution.\n"),fname);
        }
        else if (ierr == 2)
        {
index 5bdd56a..4322232 100644 (file)
@@ -38,7 +38,7 @@ int C2F(intqld)(char *fname)
   GetRhsVar(3,MATRIX_OF_DOUBLE_DATATYPE, &m, &nbis, &C);
   if (( nbis != n ) && (m > 0))
     {
-      Scierror(205,_("%s: Argument 3: wrong number of columns %d expected\n"), "qld", n);
+      Scierror(205,_("Wrong size for input argument #%d: number of columns %d expected.\n"),"qld",3,n);
       return 0;
     }
   mmax = m+1;
@@ -132,7 +132,7 @@ int C2F(intqld)(char *fname)
     C2F(putlhsvar)();
   }
   else if (ifail==1)
-    Scierror(24,_("%s: Too many iterations (more than %d)\n"),"qld",40*(n+m));
+    Scierror(24,_("%s: Too many iterations (more than %d).\n"),"qld",40*(n+m));
   else if (ifail==2)
     Scierror(24,_("%s: Accuracy insufficient to statify convergence criterion.\n"),"qld");
   else if (ifail==5)
index 495815e..f3a29d0 100644 (file)
@@ -25,7 +25,7 @@ function res=edit(macroname,ueditor)
   if rhs>=1 then // macroname is given
     tmpfile= tmpdir+macroname+'.sci';
     if funptr(macroname)<>0 then
-      error(macroname+' is a uneditable hard coded function')
+      error(msprintf(gettext('%s: %s is a uneditable hard coded function.'),'edit',macroname));
     end
     libr=whereis(macroname)
     if libr<>[] then // macroname is the name of a defined function
@@ -82,7 +82,9 @@ function res=edit(macroname,ueditor)
     end
   end
   //load the macro in scilab
-  if tmp then write(%io(2),'modified file may be found in '+fname),end
+  if tmp then 
+    write(%io(2),gettext('modified file may be found in ')+fname);
+  end
   getf(fname,'c')
   //return the loaded variable
   res=evstr(macroname);