* Bug #14582: gettext or _ were applied to broken literal strings 91/18291/4
Samuel GOUGEON [Wed, 22 Jun 2016 20:22:15 +0000 (22:22 +0200)]
  http://bugzilla.scilab.org/14582

Change-Id: I603025aeac70ba64ae103673cb96927d6f8346a9

12 files changed:
scilab/CHANGES.md
scilab/modules/cacsd/macros/h_inf.sci
scilab/modules/cacsd/macros/narsimul.sci
scilab/modules/cacsd/macros/syslin.sci
scilab/modules/cacsd/macros/ui_observer.sci
scilab/modules/graphics/macros/edit_curv.sci
scilab/modules/optimization/help/en_US/karmarkar.xml
scilab/modules/scicos/macros/scicos_scicos/Compute_cic.sci
scilab/modules/scicos/macros/scicos_scicos/c_pass2.sci
scilab/modules/scicos/macros/scicos_scicos/translator.sci
scilab/modules/umfpack/demos/condestsp.sce
scilab/modules/umfpack/demos/sparse_matrices.sce

index 4b761d4..885b5b6 100644 (file)
@@ -242,12 +242,14 @@ Bug Fixes
 * [Bug #14367](http://bugzilla.scilab.org/show_bug.cgi?id=14367) fixed - `edit_curv` failed opening due to a `[]+1` operation.
 * [Bug #14448](http://bugzilla.scilab.org/show_bug.cgi?id=14448) fixed - removed havewindow() was still documented
 * [Bug #14557](http://bugzilla.scilab.org/show_bug.cgi?id=14557) fixed - `csim` failed when the system has no state.
+* [Bug #14582](http://bugzilla.scilab.org/14582) fixed   - `gettext`or it alias `_()` were sometimes applied to broken literal strings
 * [Bug #14586](http://bugzilla.scilab.org/show_bug.cgi?id=14586) fixed - Xcos simulation stop button did not work.
 * [Bug #14587](http://bugzilla.scilab.org/show_bug.cgi?id=14587) fixed - Datatip textbox wrong clipping when loaded from `*.scg` file.
 * [Bug #14590](http://bugzilla.scilab.org/show_bug.cgi?id=14590) fixed - Help pages in pt_BR directories had a wrong xml:lang="en" tag.
 * [Bug #14593](http://bugzilla.scilab.org/show_bug.cgi?id=14593) fixed - Signs are no more drawn in BIGSOM and PRODUCT components.
 * [Bug #14662](http://bugzilla.scilab.org/show_bug.cgi?id=14662) fixed - Matrix of strings concatenation with single quote led to a parser error.
 
+
 ### In 6.0.0 beta-2 and earlier:
 
 * [Bug #2104](http://bugzilla.scilab.org/show_bug.cgi?id=2104) fixed   - `iw(1:9)` and `w(1:10)` `ode` output parameters were not documented
index 99b3fd2..8e140d6 100644 (file)
@@ -414,8 +414,8 @@ function [P6,Kinf,tv,Uc#i,Yc#i]=h_test(P2,r,mu)
         dy=min(abs(real(spec(J))));
         //write(%io(2),dy);
         if dy < 1.d-9 then
-            mprintf(gettext("%s: An eigenvalue of %s (observer) is close to Imaginary axis.\n"+..
-            "The distance to the imaginary axis is less than %g "),"h_inf","J",1.d-9);
+            tmp = _("%s: An eigenvalue of %s (observer) is close to Imaginary axis.\nThe distance to the imaginary axis is less than %g ")
+            mprintf(tmp,"h_inf","J",1.d-9);
             write(%io(2),dy);
             indic=1 ;test=1;
         end
index 43f4139..dc0d080 100644 (file)
@@ -51,9 +51,8 @@ function z=narsimul(x1,x2,x3,x4,x5,x6,x7,x8)
         u=x2;
         [mmu,Nu]=size(u);
         if mmu<>x1("nu") then
-            error(msprintf(gettext("%s: Incompatible input arguments #%d and #%d: "+..
-            "Number of rows of #%d are incompatible with #%d argument.\n"),..
-            "narsimul",1,2,2,1));
+            msg = _("%s: Incompatible input arguments #%d and #%d: Number of rows of #%d are incompatible with #%d argument.\n")
+            error(msprintf(msg, "narsimul", 1, 2, 2, 1));
         end;
         // dimensions
         [al,ac]=size(a);adeg=int(ac/al);
@@ -81,12 +80,12 @@ function z=narsimul(x1,x2,x3,x4,x5,x6,x7,x8)
         else
             up=x3
             if size(up,1)<>mmu then
-                error(msprintf(gettext("%s: Incompatible input arguments #%d and #%d: Same row dimensions expected.\n"),"narsimul",2,3))
+                msg = _("%s: Incompatible input arguments #%d and #%d: Same row dimensions expected.\n")
+                error(msprintf(msg, "narsimul",2,3))
             end
             if size(up,2)<>bdeg-1,
-                error(msprintf(gettext("%s: Incompatible input arguments #%d and #%d: "+..
-                "Number of columns of #%d are incompatible with #%d argument.\n"),..
-                "narsimul",1,3,3,1));
+                msg = _("%s: Incompatible input arguments #%d and #%d: Number of columns of #%d are incompatible with #%d argument.\n")
+                error(msprintf(msg, "narsimul",1,3,3,1));
             end
         end
         if rhs <=4 then
@@ -94,14 +93,12 @@ function z=narsimul(x1,x2,x3,x4,x5,x6,x7,x8)
         else
             yp=x4
             if size(yp,1)<>al then
-                error(msprintf(gettext("%s: Incompatible input arguments #%d and #%d: "+..
-                "Number of rows of #%d are incompatible with #%d argument.\n"),..
-                "narsimul",1,4,4,1));
+                msg = _("%s: Incompatible input arguments #%d and #%d: Number of rows of #%d are incompatible with #%d argument.\n")
+                error(msprintf(msg, "narsimul",1,4,4,1));
             end
             if size(yp,2)<>(adeg-1)  then
-                error(msprintf(gettext("%s: Incompatible input arguments #%d and #%d: "+..
-                "Number of columns of #%d are incompatible with #%d argument.\n"),..
-                "narsimul",1,4,4,1));
+                msg = _("%s: Incompatible input arguments #%d and #%d: Number of columns of #%d are incompatible with #%d argument.\n")
+                error(msprintf(msg, "narsimul",1,4,4,1));
             end
         end
         if rhs <=5,
@@ -109,14 +106,12 @@ function z=narsimul(x1,x2,x3,x4,x5,x6,x7,x8)
         else
             ep=x5
             if size(ep,1)<>al then
-                error(msprintf(gettext("%s: Incompatible input arguments #%d and #%d: "+..
-                "Number of rows of #%d are incompatible with #%d argument.\n"),..
-                "narsimul",1,5,5,1));
+                msg = _("%s: Incompatible input arguments #%d and #%d: Number of rows of #%d are incompatible with #%d argument.\n")
+                error(msprintf(msg, "narsimul", 1,5,5,1))
             end
             if size(ep,2)<>(adeg-1)  then
-                error(msprintf(gettext("%s: Incompatible input arguments #%d and #%d: "+..
-                "Number of columns of #%d are incompatible with #%d argument.\n"),..
-                "narsimul",1,5,5,1));
+                msg = _("%s: Incompatible input arguments #%d and #%d: Number of columns of #%d are incompatible with #%d argument.\n")
+                error(msprintf(msg, "narsimul",1,5,5,1))
             end
 
         end;
@@ -141,6 +136,7 @@ function z=narsimul(x1,x2,x3,x4,x5,x6,x7,x8)
         // z(k) = y(k) + bru(k)
         z=y+bru(:,1:Nu);
     else
-        error(msprintf(gettext("%s: Wrong type for input argument #%d: %s data structure expected.\n"),"narsimul",1,"arma"));
+        msg = _("%s: Wrong type for input argument #%d: %s data structure expected.\n")
+        error(msprintf(msg, "narsimul",1,"arma"))
     end;
 endfunction
index 9161d5b..c1c6ff9 100644 (file)
@@ -107,8 +107,8 @@ function [sl]=syslin(domain,a,b,c,d,x0)
             end
             [mx,nx]=size(x0);
             if mx<>na|nx<>min(na,1) then
-                error(msprintf(gettext("%s: Incompatible input arguments #%d and #%d: "+..
-                "number of elements of #%d must match the column dimension of #%d\n"),"syslin",6,1,6,1));
+                msg = _("%s: Incompatible input arguments #%d and #%d: number of elements of #%d must match the column dimension of #%d\n")
+                error(msprintf(msg,"syslin",6,1,6,1));
             end
         end
         if rhs<5  then
index 3d09554..88730d0 100644 (file)
@@ -71,14 +71,12 @@ function [UIobs,J,N]=ui_observer(Sys,reject,C1,D1,flag,Alfa,Beta)
     if RHS==4 then Beta=-1;Alfa=-1;flag="st";end
     if RHS==3 then Beta=-1;Alfa=-1;flag="st";D1=[];end
     if size(C1,2) ~= size(Sys("A"),1) then
-        error(msprintf(gettext("%s: Incompatible input arguments #%d and #%d: "+..
-        "state dimension of #%d must be equal to the column dimension of #%d.\n"),..
-        "ui_observer",1,3,1,3))
+        msg = _("%s: Incompatible input arguments #%d and #%d: state dimension of #%d must be equal to the column dimension of #%d.\n")
+        error(msprintf(msg, "ui_observer", 1, 3, 1, 3))
     end
     if size(D1,2) ~= size(Sys("B"),2) then
-        error(msprintf(gettext("%s: Incompatible input arguments #%d and #%d: "+..
-        "input dimension of #%d must be equal to the column dimension of #%d.\n"),..
-        "ui_observer",4,1,4,1))
+        msg = _("%s: Incompatible input arguments #%d and #%d: input dimension of #%d must be equal to the column dimension of #%d.\n")
+        error(msprintf(msg, "ui_observer", 4, 1, 4, 1))
     end
     not_reject=1:size(Sys,"c");not_reject(reject)=[];
     Sys1=Sys(:,reject);      //A,B1,C2,D21
index 7e6346f..1443dc1 100644 (file)
@@ -10,7 +10,7 @@
 // For more information, see the COPYING file which you should have received
 // along with this program.
 
-function [x,y,ok,gc]=edit_curv(x,y,job,tit,gc)
+function [x,y,ok,gc] = edit_curv(x,y,job,tit,gc)
     //   mod_curv  - Edition  de courbe interactive
     //%Syntaxe
     //  [x,y,ok]=mod_curv(xd,yd,job,tit)
@@ -400,29 +400,29 @@ function [x,y] = readxy()
                 if xy <> [] then
                     x=xy(:,1);y=xy(:,2);
                 else
-                    messagebox(msprintf(_("%s: The file "'%s"' does not " +..
-                    "contains any "'Polyline"' graphic entity.\n"), "edit_curve", flname));
+                    msg = _("%s: The file "'%s"' does not contains any "'Polyline"' graphic entity.\n")
+                    messagebox(msprintf(msg, "edit_curve", flname));
                     return
                 end
             else
-                messagebox(msprintf(_("%s: Cannot open file "'%s"' " +..
-                "for reading.\n"), "edit_curv", flname), "modal");
+                msg = _("%s: Cannot open file "'%s"' for reading.\n")
+                messagebox(msprintf(msg, "edit_curv", flname), "modal");
                 return
             end
         case ".xy" then
             if execstr("xy = read(fn,-1,2)","errcatch") == 0 then
                 x=xy(:,1);y=xy(:,2);
             else
-                messagebox(msprintf(_("%s: Cannot open file "'%s"' " +..
-                "for reading.\n"), "edit_curv", flname), "modal");
+                msg = _("%s: Cannot open file "'%s"' for reading.\n")
+                messagebox(msprintf(msg, "edit_curv", flname), "modal");
                 return
             end
         case ".sod" then
             if execstr("load(fn)","errcatch") == 0 then
                 x=xy(:,1);y=xy(:,2);
             else
-                messagebox(msprintf(_("%s: Cannot open file "'%s"' " +..
-                "for reading.\n"), "edit_curv", flname), "modal");
+                msg = _("%s: Cannot open file "'%s"' for reading.\n")
+                messagebox(msprintf(msg, "edit_curv", flname), "modal");
                 return
             end
         else
@@ -460,8 +460,8 @@ function savexy(x,y)
         select ext
         case ".sod" then
             if execstr("save(fil,""xy"")","errcatch")<>0 then
-                messagebox(msprintf(_("%s: The file "'%s"' " +..
-                "cannot be written.\n"), "edit_curv", flname), "modal");
+                msg = _("%s: The file "'%s"' cannot be written.\n")
+                messagebox(msprintf(msg, "edit_curv", flname), "modal");
                 return
             end
         case ".xy" then
@@ -471,8 +471,8 @@ function savexy(x,y)
                 isErr = execstr("write(fil,xy)","errcatch");
             end
             if isErr <> 0 then
-                messagebox(msprintf(_("%s: The file "'%s"' " +..
-                "cannot be written.\n"), "edit_curv", flname), "modal");
+                msg = _("%s: The file "'%s"' cannot be written.\n")
+                messagebox(msprintf(msg, "edit_curv", flname), "modal");
                 return
             end
         end
index 3d345d1..2c1e4ec 100644 (file)
@@ -678,8 +678,7 @@ xstar = [-2;1;3];
         </para>
         <programlisting role="example"><![CDATA[ 
 function stop = myoutputfunction ( xopt , optimValues , state )
-    localmsg = gettext("Iter#%3.0f: %s (%s), "+..
-        "f=%10.3e, x=[%s], gap=%10.3e\n")
+    localmsg = gettext("Iter#%3.0f: %s (%s), f=%10.3e, x=[%s], gap=%10.3e\n")
     xstr = strcat(msprintf("%10.3e\n",xopt)'," ")
     mprintf(localmsg,optimValues.iteration,state,optimValues.procedure,..
         optimValues.fval,xstr,optimValues.dualgap)
index 7ff47fd..6d4f53a 100644 (file)
@@ -40,8 +40,8 @@ function ok=Compute_cic(method,Nunknowns)
     nxModelica=evstr(Nunknowns);
 
     if nxModelica~=nx2 then
-        messagebox(msprintf(_("Your model contains states defined in standard Scicos blocks.\n"+..
-        "Current initialization interface does not support mixed models.")),"error","modal");
+        msg = _("Your model contains states defined in standard Scicos blocks.\nCurrent initialization interface does not support mixed models.")
+        messagebox(msprintf(msg),"error","modal")
         return
     end
 
index cfc838a..edd1ef9 100644 (file)
@@ -1220,9 +1220,8 @@ function [lnksz,lnktyp,inplnk,outlnk,clkptr,cliptr,inpptr,outptr,xptr,zptr,..
         end
         if funtyp(i,1)>999&funtyp(i,1)<10000 then
             if ~c_link(funs(i)) then
-                messagebox(msprintf(_("A C or Fortran block is used but not linked.\n"+..
-                "You can save your compiled diagram and load it.\n"+..
-                "This will automatically link the C or Fortran function.")),"modal","error")
+                msg = _("A C or Fortran block is used but not linked.\nYou can save your compiled diagram and load it.\nThis will automatically link the C or Fortran function.")
+                messagebox(msprintf(msg), "modal", "error")
             end
         end
         inpnum=ll.in;outnum=ll.out;cinpnum=ll.evtin;coutnum=ll.evtout;
@@ -1928,8 +1927,8 @@ function [ok,bllst]=adjust_inout(bllst,connectmat)
             if ok then return, end //if ok is set true then exit adjust_inout
         end
         //if failed then display message
-        messagebox(msprintf(_("Not enough information to find port sizes.\n"+..
-        "I try to find the problem.")),"modal","info");
+        msg = _("Not enough information to find port sizes.\nI try to find the problem.")
+        messagebox(msprintf(msg),"modal","info");
 
         //%%%%% pass 2 %%%%%//
         //Alan 19/01/07 : Warning  : Behavior have changed, To Be more Tested
@@ -2047,10 +2046,10 @@ function [ok,bllst]=adjust_inout(bllst,connectmat)
 
         //if failed then display message
         if ~findflag then
-            messagebox(msprintf(_("I cannot find a link with undetermined size.\n"+..
-            "My guess is that you have a block with unconnected \n"+..
-            "undetermined output ports.")),"modal","error");
-            ok=%f;return;
+            msg = _("I cannot find a link with undetermined size.\nMy guess is that you have a block with unconnected \nundetermined output ports.")
+            messagebox(msprintf(msg), "modal", "error")
+            ok = %f
+            return
         end
     end
 endfunction
@@ -2292,9 +2291,8 @@ function [bllst,inplnk,outlnk,clkptr,cliptr,inpptr,outptr,dep_u,dep_uptr,dep_t,.
         sizenin=size(ll.in,"*");
         if (size(ll.dep_ut,"*") <> 2) then
             if ( size(ll.dep_ut(1:$-1),"*") <> sizenin) then
-                messagebox(msprintf(_("the dep_ut size of the %s block is not correct.\n"+..
-                "It should be a colon vector of size %d."),..
-                ll.sim(1),sizenin+1),"modal","error");
+                msg = _("the dep_ut size of the %s block is not correct.\nIt should be a colon vector of size %d.")
+                messagebox(msprintf(msg, ll.sim(1), sizenin+1), "modal", "error")
                 ok=%f;
             end
         end
@@ -2603,8 +2601,8 @@ function [ok,bllst]=adjust_typ(bllst,connectmat)
             if ok then return, end //if ok is set true then exit adjust_typ
         end
         //if failed then display message
-        messagebox(msprintf(_("Not enough information to find port type.\n"+..
-        "I will try to find the problem.")),"modal","info");
+        tmp = _("Not enough information to find port type.\nI will try to find the problem.")
+        messagebox(msprintf(tmp),"modal","info");
         findflag=%f
         for jj=1:nlnk
             nouttyp=bllst(connectmat(jj,1)).outtyp(connectmat(jj,2))
@@ -2639,10 +2637,10 @@ function [ok,bllst]=adjust_typ(bllst,connectmat)
         end
         //if failed then display message
         if ~findflag then
-            messagebox(msprintf(_("I cannot find a link with undetermined size.\n"+..
-            "My guess is that you have a block with unconnected \n"+..
-            "undetermined types.")),"modal","error");
-            ok=%f;return;
+            msg = _("I cannot find a link with undetermined size.\nMy guess is that you have a block with unconnected \nundetermined types.")
+            messagebox(msprintf(msg), "modal","error")
+            ok = %f
+            return
         end
     end
 endfunction
index 2c03c09..4224505 100644 (file)
@@ -70,9 +70,8 @@ function [ok]=translator(filemo,Mblocks,_Modelica_libs,Flat)
         // OS limitation may restrict the length of shell command line
         // arguments. If there are too many .mo file we catenate them into a
         // single MYMOPACKAGE.mo file
-        messagebox(msprintf(_("There are too many Modelica files.\n" + ..
-        "it would be better to define several \n" + ..
-        "Modelica programs in a single file.")),"warning","modal");
+        msg = _("There are too many Modelica files.\nIt would be better to define several \nModelica programs in a single file.")
+        messagebox(msprintf(msg),"warning","modal")
         mymopac = pathconvert(outpath+"MYMOPACKAGE.mo",%f,%t);
         txt = [];
         for k = 1:size(molibs,"*")
index 25cef5b..7b3346d 100644 (file)
@@ -12,23 +12,14 @@ function demo_condestsp()
     n = 100;
     K1 = zeros(nb_tests,3);
 
-    disp(_("A small test for the condestsp"+...
-    " function: condestsp gives an"+...
-    " estimate of the condition number K1"+...
-    " in 1-norm of a real sparse matrix A:"));
-    disp("     K1 = ||A||_1 * ||A^(-1)||_1  ");
-    disp(_("     without explicitly computing the"+...
-    " inverse of A. condestsp uses a"+...
-    " factorization given by umf_lufact"+...
-    " but if you have already computed"+...
-    " this one it is recommended to give"+...
-    " the pointer to the factorization."));
-    disp(_("The test consists in forming small"+...
-    " sparse matrices (so as to compute"+...
-    " K1 exactly with norm(inv(full(A)),1))"+...
-    " whose values are chosen from the"+...
-    " normal distribution."));
-    halt(_("\nPress Return to continue...\n"));
+    msg = _("A small test for the condestsp function: condestsp gives an estimate of\n the condition number K1 in 1-norm of a real sparse matrix A:")
+    mprintf(msg)
+    mprintf("     K1 = ||A||_1 * ||A^(-1)||_1  ")
+    msg = _("     without explicitly computing the inverse of A. condestsp uses a factorization given by\n umf_lufact but if you have already computed this one it is recommended to give the pointer to the factorization.")
+    mprintf(msg)
+    msg = _("The test consists in forming small sparse matrices (so as to compute K1 exactly with\nnorm(inv(full(A)),1)) whose values are chosen from the normal distribution.")
+    mprintf(msg)
+    halt(_("\nPress Return to continue...\n"))
 
     for k = 1:nb_tests
         m = grand(1,1,"uin",1000,2000);  // nnz
index d27db7b..411ce68 100644 (file)
@@ -12,10 +12,8 @@ function demo_sparse_matrices()
     format(15);
     cd "SCI/modules/umfpack/demos/"
 
-    disp(_("To load a sparse matrix stored in the Harwell-"+..
-    "Boeing format in Scilab, you may use the function ReadHBSparse."));
-    disp(_("4 matrices will be loaded for the demo: they come"+..
-    " from the University of Florida Sparse Matrix Collection:"));
+    disp(_("To load a sparse matrix stored in the Harwell-Boeing format in Scilab, you may use the function ReadHBSparse."));
+    disp(_("4 matrices will be loaded for the demo: they come from the University of Florida Sparse Matrix Collection:"));
     printf("     www.cise.ufl.edu/research/sparse/matrices\n"+..
     "     http://math.nist.gov/MatrixMarket/matrices.html");
     disp(_("    maintained by Tim Davis, author of UMFPACK"));
@@ -27,8 +25,7 @@ function demo_sparse_matrices()
     [A4,descr4,ref4,mtype4] = ReadHBSparse("young1c.csa");
     mode(-1)
 
-    disp(_("To see the pattern of non zeros elements, "+..
-    "you may use the function PlotSparse."));
+    disp(_("To see the pattern of non zeros elements, you may use the function PlotSparse."));
     disp(_("Here we will display the 4 matrices"));
     halt(_("\nPress Return to continue...\n"));
 
@@ -85,34 +82,27 @@ function demo_sparse_matrices()
     mode(-1)
 
     disp(_("A1 ("+descr1+"): order = "+ string(n1) + " nnz = " + string(nnz(A1))));
-    printf(_("     norm of the residual = "+string(norm_res1)+"\n"+..
-    "     computing time       = "+string(t1)+"\n"));
-    disp(_("A2 ("+descr2+"): order = "+ string(n2) + " nnz = " + string(nnz(A2))));
-    printf(_("     norm of the residual = "+string(norm_res2)+"\n"+..
-    "     computing time       = "+string(t2)+"\n"));
-    disp(_("A3 ("+descr3+"): order = "+ string(n3) + " nnz = " + string(nnz(A3))));
-    printf(_("     norm of the residual = "+string(norm_res3)+"\n"+..
-    "     computing time       = "+string(t3)+"\n"));
+    msgNorm = _("     norm of the residual = ")
+    msgCT   = _("     computing time       = ")
+    printf(msgNorm + string(norm_res1) + "\n" + msgCT+string(t1)+"\n")
+    disp(_("A2 ("+descr2+"): order = "+ string(n2) + " nnz = " + string(nnz(A2))))
+    printf(msgNorm + string(norm_res2) + "\n" + msgCT + string(t2) + "\n")
+    disp(_("A3 ("+descr3+"): order = "+ string(n3) + " nnz = " + string(nnz(A3))))
+    printf(msgNorm + string(norm_res3) + "\n" + msgCT + string(t3)+"\n")
     disp(_("A4 ("+descr4+"): order = "+ string(n4) + " nnz = " + string(nnz(A4))));
-    printf(_("     norm of the residual = "+string(norm_res4)+"\n"+..
-    "     computing time       = "+string(t4)+"\n\n"));
+    printf(msgNorm + string(norm_res4)+"\n" + msgCT + string(t4)+"\n\n")
 
     disp(_("Now we will see how to use the lu factors:"));
     disp(_("  1/ lu factors of a sparse matrix A are obtained through:"));
-    printf(_("     lup = umf_lufact(A)\n"+..
-    "     lup is a pointer to the lu factors (the memory is outside scilab space)\n"));
+    printf(_("     lup = umf_lufact(A)\n     lup is a pointer to the lu factors (the memory is outside scilab space)\n"))
     disp(_("  2/ for solving a linear system A*x = b, use:"));
-    printf(_("     x = umf_lusolve(lup,b)\n"+..
-    "     or  x = umf_lusolve(lup,b,""Ax=b"",A)  to add an iterative refinement step\n"));
+    printf(_("     x = umf_lusolve(lup,b)\n     or  x = umf_lusolve(lup,b,""Ax=b"",A)  to add an iterative refinement step\n"))
     disp(_("  3/ to solve A''*x=b you may use:"));
-    printf(_("     x = umf_lusolve(lup,b,""Ax''''=b"")\n"+..
-    "     or  x = umf_lusolve(lup,b,""Ax''''=b"",A)  to add an iterative refinement step\n"));
+    printf(_("     x = umf_lusolve(lup,b,""Ax''''=b"")\n     or  x = umf_lusolve(lup,b,""Ax''''=b"",A)  to add an iterative refinement step\n"))
     disp(_("  4/ you may also compute the 1-norm condition number quicky with:"));
-    printf(_("     K1 = condestsp(A,lup)\n"+..
-    "     K1 = condestsp(A) also works but in this case the lu factors are re-computed inside\n"));
+    printf(_("     K1 = condestsp(A,lup)\n     K1 = condestsp(A) also works but in this case the lu factors are re-computed inside\n"))
     disp(_("  5/ if you don''t need the lu factors anymore, it is recommended to free them with:"));
-    printf(_("     umf_ludel(lup)\n"+..
-    "     if you have lost your pointer you may use umf_ludel() which frees all the current umf lu factors\n"));
+    printf(_("     umf_ludel(lup)\n     if you have lost your pointer you may use umf_ludel() which frees all the current umf lu factors\n"))
     halt(_("\nPress Return to continue...\n"));
 
     mode(1)
@@ -149,30 +139,30 @@ function demo_sparse_matrices()
     umf_ludel(lup4);
     mode(-1)
 
-    disp(_("A1 ("+descr1+"): order = "+ string(n1) + " nnz = " + string(nnz(A1))));
-    printf(_("     K1 = " + string(K1)+"\n"+..
-    "     norm of the residual    = "+string(norm_res1)+"\n"+..
-    "     same but with refinment = "+string(norm_res1r)+"\n"));
-    disp(_("A2 ("+descr2+"): order = "+ string(n2) + " nnz = " + string(nnz(A2))));
-    printf(_("     K2 = " + string(K2)+"\n"+..
-    "     norm of the residual    = "+string(norm_res2)+"\n"+..
-    "     same but with refinment = "+string(norm_res2r)+"\n"));
-    disp(_("A3 ("+descr3+"): order = "+ string(n3) + " nnz = " + string(nnz(A3))));
-    printf(_("     K3 = " + string(K3)+"\n"+..
-    "     norm of the residual    = "+string(norm_res3)+"\n"+..
-    "     same but with refinment = "+string(norm_res3r)+"\n"));
-    disp(_("A4 ("+descr4+"): order = "+ string(n4) + " nnz = " + string(nnz(A4))));
-    printf(_("     K4 = " + string(K4)+"\n"+..
-    "     norm of the residual     = "+string(norm_res4)+"\n"+..
-    "     same but with refinement = "+string(norm_res4r)+"\n\n"));
+    disp("A1 ("+descr1+"): order = "+ string(n1) + " nnz = " + string(nnz(A1)))
+    printf("     K1 = " + string(K1)+"\n" + ..
+         _("     norm of the residual    = ") + string(norm_res1) + "\n" + ..
+         _("     same but with refinment = ") + string(norm_res1r) + "\n")
+    disp("A2 ("+descr2+"): order = "+ string(n2) + " nnz = " + string(nnz(A2)))
+    printf("     K2 = " + string(K2)+"\n"+..
+         _("     norm of the residual    = ") + string(norm_res2) + "\n" + ..
+         _("     same but with refinment = ") + string(norm_res2r) + "\n")
+    disp("A3 ("+descr3+"): order = "+ string(n3) + " nnz = " + string(nnz(A3)))
+    printf("     K3 = " + string(K3)+"\n"+..
+         _("     norm of the residual    = ") + string(norm_res3) + "\n" + ..
+         _("     same but with refinment = ") + string(norm_res3r) + "\n")
+    disp("A4 ("+descr4+"): order = "+ string(n4) + " nnz = " + string(nnz(A4)))
+    printf("     K4 = " + string(K4) + "\n" + ..
+         _("     norm of the residual     = ") + string(norm_res4) + "\n" + ..
+         _("     same but with refinement = ") + string(norm_res4r) + "\n\n")
 
     clear A1 A3 A4 x1 x3 x4 b1 b3 b4
 
     disp(_("Now we will see how to use the taucs snmf stuff on the matrix A2."));
     disp(_("This is useful and recommended when your matrix is symmetric positive definite (s.p.d.)."));
     disp(_("  1/ the Cholesky factorization of a s.p.d. matrix A is obtained with:"));
-    printf(_("     Cp = taucs_chfact(A)\n"+..
-    "     Cp is a pointer to the Cholesky fact. (the memory is outside scilab space)\n"));
+    printf("     Cp = taucs_chfact(A)\n" + ..
+         _("     Cp is a pointer to the Cholesky fact. (the memory is outside scilab space)\n"));
     disp(_("  2/ for solving a linear system A*x = b then use:"));
     printf(_("     x = taucs_chsolve(Cp,b)\n"));
     disp(_("  3/ for the same thing with one refinement step, use:"));
@@ -196,16 +186,16 @@ function demo_sparse_matrices()
     mode(-1)
 
     disp(_("A2 ("+descr2+"): order = "+ string(n2) + " nnz = " + string(nnz(A2))));
-    printf(_("     K2 (1-norm) = " + string(K2)+"\n"+..
-    "     K2 (2-norm) = " + string(K2_norm2)+"\n"));
+    printf("     K2 (1-norm) = " + string(K2) + "\n" + ..
+           "     K2 (2-norm) = " + string(K2_norm2) + "\n" )
     disp(_(" with umfpack:"));
-    printf(_("     norm of the residual      = "+string(norm_res2)+"\n"+..
-    "     same but with refinment   = "+string(norm_res2r)+"\n"+..
-    "     computing time            = "+string(t2)+"\n"));
-    disp(_(" with the taucs snmf Cholesky solver:"));
-    printf(_("     norm of the residual      = "+string(norm_res_chol_2)+"\n"+..
-    "     same but with refinment   = "+string(norm_res_chol_2r)+"\n"+..
-    "     computing time            = "+string(t2_chol)+"\n"));
+    printf(_("     norm of the residual = ") + string(norm_res2) + "\n" + ..
+           _("     same but with refinment = ") + string(norm_res2r) + "\n" + ..
+           _("     computing time       = ") + string(t2) + "\n")
+    disp(_(" with the taucs snmf Cholesky solver:"))
+    printf(_("     norm of the residual = ") + string(norm_res_chol_2) + "\n" + ..
+           _("     same but with refinment = ") + string(norm_res_chol_2r) + "\n" + ..
+           _("     computing time       = ") + string(t2_chol) + "\n")
 
     if num == max(winsid()) then
         xdel(num);