error(number): converting occurrences remaining in all .sce .sci files
[scilab.git] / scilab / modules / cacsd / macros / cont_mat.sci
index 75b0965..7393bb9 100644 (file)
@@ -9,24 +9,30 @@
 // and continues to be available under such terms.
 // For more information, see the COPYING file which you should have received
 // along with this program.
-// === LICENSE_END ===
 
-function c=cont_mat(a,b)
+function c = cont_mat(a,b)
     //c=cont_mat(a,b) or c=cont_mat(sl) is the controllability matrix.
     // of the pair a,b or of the system sl=[a,b,c,d] (syslin list)
     //                 2       n
     //i.e. c=[b, ab, ab,...; ab ]
     //!
-    [lhs,rhs]=argn(0)
+
+    [lhs,rhs] = argn(0)
     select typeof(a)
     case "constant"  then
         if rhs==1 then
             error(msprintf(gettext("%s: Wrong number of input arguments: %d expected"),"cont_mat",2)),
         end
         [m,n]=size(a)
-        if m<>n then error(20,1),end
+        if m<>n then
+            msg = _("%s: Argument #%d: Square matrix expected.\n");
+            error(msprintf(msg, "cont_mat", 1));
+        end
         [mb,nb]=size(b);
-        if mb<>n then error(60),end
+        if mb<>n then
+        msg = _("%s: Arguments #%d and #%d: Incompatible sizes.\n");
+            error(msprintf(msg, "cont_mat", 1, 2));
+        end
 
     case "state-space" then
         if rhs==2 then
@@ -36,11 +42,16 @@ function c=cont_mat(a,b)
         [n,n]=size(a)
     else
         if rhs==1 then
-            error(msprintf(gettext("%s: Wrong type for input argument #%d: Linear dynamical system expected.\n"),"cont_mat",1))
+            msg = _("%s: Wrong type for input argument #%d: Linear dynamical system expected.\n");
+            error(msprintf(msg, "cont_mat", 1))
         else
-            error(msprintf(gettext("%s: Wrong type of input argument #%d: Array of floating point numbers expected.\n"),"cont_mat",1))
+            msg = _("%s: Wrong type of input argument #%d: Array of floating point numbers expected.\n");
+            error(msprintf(msg, "cont_mat", 1))
         end
 
     end;
-    c=b;for k=1:n-1, c=[b,a*c],end
+    c = b;
+    for k = 1:n-1
+        c = [b, a*c]
+    end
 endfunction