Unused %s_k_hm, %hm_k_s, %hmS_k_hmS_generic removed 75/21075/6
Samuel GOUGEON [Tue, 27 Aug 2019 11:27:43 +0000 (13:27 +0200)]
  Scilab 6 calls %s_k_s() each time that an hypermat is involved.
  %s_k_s.sci is a strict copy of the former %hmS_k_hmS_generic.sci

  [1 2] .*. rand(2,2,2)
  rand(2,2,2) .*. [1 2]
  rand(2,2,2) .*. rand(2,2,2)

Change-Id: I908b121691e50b2ca4adc1b1118ecbae34cafa62

scilab/modules/overloading/macros/%hmS_k_hmS_generic.sci [deleted file]
scilab/modules/overloading/macros/%hm_k_s.sci [deleted file]
scilab/modules/overloading/macros/%s_k_hm.sci [deleted file]

diff --git a/scilab/modules/overloading/macros/%hmS_k_hmS_generic.sci b/scilab/modules/overloading/macros/%hmS_k_hmS_generic.sci
deleted file mode 100644 (file)
index e64a8f3..0000000
+++ /dev/null
@@ -1,39 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2014 - Samuel GOUGEON
-//
-// 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 r = %hmS_k_hmS_generic(a, b)
-    
-    // Code used by %s_k_hm(), %hm_k_s() and %hm_k_hm()
-    // Fully rewritten and factorized after bug http://bugzilla.scilab.org/13339
-
-    sa = size(a)
-    sb = size(b)
-    sa = [sa ones(1,ndims(b)-ndims(a))]
-    sb = [sb ones(1,ndims(a)-ndims(b))]
-    La = length(a)
-    Lb = length(b)
-    a = a(:)
-    b = b(:)
-    ia = (1:La).' .*.ones(b);
-    ib = ones(a) .*. (1:Lb).';
-    ir = (ia-1).*Lb + ib;
-    pa = ind2sub(sa, ia)
-    pb = ind2sub(sb, ib)
-    clear ia ib
-    pr = (pa-1).*repmat(sb, La*Lb, 1) + pb
-    clear pa pb
-    nir = sub2ind(sa.*sb, pr)
-    [v,k] = gsort(nir,"g","i")
-    clear pr nir v
-    r = a.*.b
-    r = matrix(r(ir(k)), sa.*sb)
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_k_s.sci b/scilab/modules/overloading/macros/%hm_k_s.sci
deleted file mode 100644 (file)
index 6daa2d2..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2014 - Samuel GOUGEON
-//
-// 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 r = %hm_k_s(a, b)
-    r = %hmS_k_hmS_generic(a, b)
-endfunction
diff --git a/scilab/modules/overloading/macros/%s_k_hm.sci b/scilab/modules/overloading/macros/%s_k_hm.sci
deleted file mode 100644 (file)
index 218ad1d..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2014 - Samuel GOUGEON
-//
-// 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 r = %s_k_hm(a, b)
-    r = %hmS_k_hmS_generic(a, b)
-endfunction