error(number): converting occurrences remaining in all .sce .sci files
[scilab.git] / scilab / modules / overloading / macros / %r_s_hm.sci
index dbfcba3..7482146 100644 (file)
@@ -1,31 +1,35 @@
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) INRIA
-// 
-// This file must be used under the terms of the CeCILL.
-// This source file is licensed as described in the file COPYING, which
-// 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
+//
+// Copyright (C) 2012 - 2016 - Scilab Enterprises
+//
+// This file is hereby licensed under the terms of the GNU GPL v2.0,
+// pursuant to article 5.3.4 of the CeCILL v.2.1.
+// This file was originally licensed under the terms of the CeCILL v2.1,
+// and continues to be available under such terms.
+// For more information, see the COPYING file which you should have received
+// along with this program.
 
-function f=%r_s_hm(f,m)
-//f = f-m, 
-//f: transfer matrix, m : hypermatrix
-//author Serge Steer INRIA
-//!
-  [num,den]=f(['num','den'])
-  szf=size(den)
-  szm=size(m)
+function f = %r_s_hm(f,m)
+    //f = f-m,
+    //f: transfer matrix, m : hypermatrix
+    //author Serge Steer INRIA
+    //!
+    [num,den]=f(["num","den"])
+    szf=size(den)
+    szm=size(m)
 
-  if and(szf>=0)&and(szm>=0) then
-    num=num(:);den=den(:);m=m(:)
-    if prod(szf)==1&prod(szm)>1 then
-      den=den(ones(m))
+    if and(szf>=0) & and(szm>=0) then
+        num=num(:);den=den(:);m=m(:)
+        if prod(szf)==1&prod(szm)>1 then
+            den=den(ones(m))
+        end
+        [num,den]=simp(num-m.*den,den)
+        num=matrix(num,szf)
+        den=matrix(den,szf)
+        f=rlist(num,den,f.dt)
+    else
+        msg = gettext("%s: Eye variable undefined in this context.\n")
+        error(msprintf(msg, "%r_s_hm"));
     end
-    [num,den]=simp(num-m.*den,den)
-    num=matrix(num,szf)
-    den=matrix(den,szf)
-    f=rlist(num,den,f.dt)
-  else
-    error(9)
-  end
 endfunction