hypermat functions overloads unused => removal 35/18435/5
Samuel GOUGEON [Tue, 9 Aug 2016 23:08:10 +0000 (01:08 +0200)]
Change-Id: I2febb383a51c685ffb2dcdaa6be0957d75f18c19

30 files changed:
scilab/modules/helptools/data/configuration/scilab_macros.txt
scilab/modules/overloading/%hm_removal_README.txt [new file with mode: 0644]
scilab/modules/overloading/macros/%hm_abs.sci [deleted file]
scilab/modules/overloading/macros/%hm_bool2s.sci [deleted file]
scilab/modules/overloading/macros/%hm_ceil.sci [deleted file]
scilab/modules/overloading/macros/%hm_conj.sci [deleted file]
scilab/modules/overloading/macros/%hm_cos.sci [deleted file]
scilab/modules/overloading/macros/%hm_cumprod.sci [deleted file]
scilab/modules/overloading/macros/%hm_cumsum.sci [deleted file]
scilab/modules/overloading/macros/%hm_degree.sci [deleted file]
scilab/modules/overloading/macros/%hm_dsearch.sci [deleted file]
scilab/modules/overloading/macros/%hm_eye.sci [deleted file]
scilab/modules/overloading/macros/%hm_find.sci [deleted file]
scilab/modules/overloading/macros/%hm_floor.sci [deleted file]
scilab/modules/overloading/macros/%hm_iconvert.sci [deleted file]
scilab/modules/overloading/macros/%hm_isnan.sci [deleted file]
scilab/modules/overloading/macros/%hm_matrix.sci [deleted file]
scilab/modules/overloading/macros/%hm_max.sci [deleted file]
scilab/modules/overloading/macros/%hm_mean.sci [deleted file]
scilab/modules/overloading/macros/%hm_median.sci [deleted file]
scilab/modules/overloading/macros/%hm_min.sci [deleted file]
scilab/modules/overloading/macros/%hm_ones.sci [deleted file]
scilab/modules/overloading/macros/%hm_rand.sci [deleted file]
scilab/modules/overloading/macros/%hm_real.sci [deleted file]
scilab/modules/overloading/macros/%hm_round.sci [deleted file]
scilab/modules/overloading/macros/%hm_sign.sci [deleted file]
scilab/modules/overloading/macros/%hm_size.sci [deleted file]
scilab/modules/overloading/macros/%hm_string.sci [deleted file]
scilab/modules/overloading/macros/%hm_zeros.sci [deleted file]
scilab/modules/randlib/macros/%hm_grand.sci [deleted file]

index a6708bb..bf2f0bf 100644 (file)
@@ -194,7 +194,6 @@ unit_test_run
 %b_grand
 %c_grand
 %grand_perm
-%hm_grand
 %i_grand
 %p_grand
 %s_grand
@@ -650,24 +649,12 @@ systmat
 %hm_a_hm
 %hm_a_r
 %hm_a_s
-%hm_abs
 %hm_and
-%hm_bool2s
 %hm_c_hm
-%hm_ceil
-%hm_conj
-%hm_cos
-%hm_cumprod
-%hm_cumsum
 %hm_d_hm
 %hm_d_s
-%hm_degree
-%hm_dsearch
 %hm_e
-%hm_eye
 %hm_f_hm
-%hm_find
-%hm_floor
 %hm_g_hm
 %hm_h_hm
 %hm_i_b
@@ -678,8 +665,6 @@ systmat
 %hm_i_p
 %hm_i_s
 %hm_i_st
-%hm_iconvert
-%hm_isnan
 %hm_j_hm
 %hm_j_s
 %hm_k_hm
@@ -687,11 +672,6 @@ systmat
 %hm_m_p
 %hm_m_r
 %hm_m_s
-%hm_matrix
-%hm_max
-%hm_mean
-%hm_median
-%hm_min
 %hm_n_b
 %hm_n_c
 %hm_n_hm
@@ -704,25 +684,17 @@ systmat
 %hm_o_i
 %hm_o_p
 %hm_o_s
-%hm_ones
 %hm_or
 %hm_q_hm
 %hm_r_s
-%hm_rand
-%hm_real
-%hm_round
 %hm_s
 %hm_s_hm
 %hm_s_r
 %hm_s_s
-%hm_sign
-%hm_size
 %hm_stdev
-%hm_string
 %hm_x_hm
 %hm_x_p
 %hm_x_s
-%hm_zeros
 %i_and
 %i_ascii
 %i_b_s
diff --git a/scilab/modules/overloading/%hm_removal_README.txt b/scilab/modules/overloading/%hm_removal_README.txt
new file mode 100644 (file)
index 0000000..a798c68
--- /dev/null
@@ -0,0 +1,36 @@
+hs: decimal numbers
+hsc: complex numbers
+hi: integers
+hb: booleans
+hc: chars
+hp: polynomials
+hpc: complex polynomials
+hr: rationals
+hrc: complex rationals
+
+// hypermatrices used for the tests:
+hs = grand(2,2,2,"uin",0,10);
+hsc = hs + %i;
+hb = hs<5;
+hi = int8(hs);
+hp = (hs +%z).^2;
+hpc = hp+%i;
+hr = hp ./ (hp+1);
+hrc = hr+%i;
+hc = string(hs);
+
+EXTENSIVE TESTS RESULTS:
+* %hm_and() is still used
+* %hm_conj() is unused, but conj(hr) is very unstable and crashes Scilab 9 times / 10. conj(hrc) works without any problem
+* cumsum(hr) => error in %r_cumsum
+* find(hi) unsupported (==5.5.2), whereas find(hs) is
+* max(hr)  => %c_max invoked in error_message instead of %r_max (%c_max is actually wrongly called)
+* min(hr)  => %c_min invoked in error_message instead of %r_min (%c_min is actually wrongly called)
+* min(hs, dim>2) and max(hs, dim>2) are not implemented and they return hs instead of an error.
+  It was the same in 5.5.2
+* median(hr) is accepted but should be rejected. It yields an error with unclear indirect message.
+* %hm_or() is still used
+* %hm_stdev() is still called
+* %hm_string is not called, but string(hr) yields an error: FIX: https://codereview.scilab.org/18443
+* zeros(hr) yields an error: FIX: https://codereview.scilab.org/18442
+* elementary_functions => %hm_gsort.sci is still called
diff --git a/scilab/modules/overloading/macros/%hm_abs.sci b/scilab/modules/overloading/macros/%hm_abs.sci
deleted file mode 100644 (file)
index c0d8c9a..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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 M=%hm_abs(M)
-
-    M("entries")=abs(M("entries"))
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_bool2s.sci b/scilab/modules/overloading/macros/%hm_bool2s.sci
deleted file mode 100644 (file)
index f745269..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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 Ms=%hm_bool2s(Mb)
-    Ms = matrix(bool2s(Mb(:)), size(Mb))
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_ceil.sci b/scilab/modules/overloading/macros/%hm_ceil.sci
deleted file mode 100644 (file)
index d4f636c..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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 M=%hm_ceil(M)
-
-    M("entries")=ceil(M("entries"))
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_conj.sci b/scilab/modules/overloading/macros/%hm_conj.sci
deleted file mode 100644 (file)
index 86cb626..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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 M=%hm_conj(M)
-
-    M("entries")=conj(M("entries"))
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_cos.sci b/scilab/modules/overloading/macros/%hm_cos.sci
deleted file mode 100644 (file)
index 740f328..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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 M=%hm_cos(M)
-
-    M("entries")=cos(M("entries"))
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_cumprod.sci b/scilab/modules/overloading/macros/%hm_cumprod.sci
deleted file mode 100644 (file)
index 49d88a3..0000000
+++ /dev/null
@@ -1,100 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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 a = %hm_cumprod(varargin)
-    a = varargin(1)
-    dims = size(a);
-    tm = type(a.entries)
-
-    nargs = size(varargin);
-    select nargs
-    case 1
-        d = 0;
-        if tm == 8 then
-            typ = "native";
-        else
-            typ = "double";
-        end
-    case 2
-        if or(varargin(2) == ["native", "double"]) then
-            d = 0;
-            typ = varargin(2);
-        else
-            d = varargin(2);
-            if tm == 8 then
-                typ = "native";
-            else
-                typ = "double";
-            end
-        end
-    case 3
-        d = varargin(2);
-        typ = varargin(3);
-    else
-        error(msprintf(_("%s: Wrong number of input argument(s): %d to %d expected.\n"),"cumprod", 1, 3));
-    end
-
-    // Check second argument : d
-    select type(d)
-    case 1
-        if size(d,'*') <> 1 then
-            error(msprintf(_("%s: Wrong size for input argument #%d: A scalar expected.\n"),"cumprod", 2))
-        end
-        if int(d) <> d | d < 0 then
-            error(msprintf(_("%s: Wrong value for input argument #%d: Integer >= %d expected.\n"),"cumprod", 2, 1))
-        end
-    case 10 
-        if size(d,'*') <> 1 then
-            error(msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"),"cumprod",2))
-        end
-        if and(d<>["r","c","*","m"]) then
-            error(msprintf(_("%s: Wrong value for input argument #%d: Must be in the set {%s}.\n"),..
-            "cumprod",2,"""*"",""r"",""c"",""m"""))
-        end
-        pos=[1,2,0,find(dims>1,1)];
-        d=pos(find(d==["r","c","*","m"]))
-    else
-        error(msprintf(_("%s: Wrong type for input argument #%d: string or scalar expected.\n"),"cumprod",2))
-    end
-
-    // Check third argument
-    if type(typ)<>10 then
-        error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"),"cumprod",3))
-    end
-
-    if size(typ,"*")<>1 then
-        error(msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"),"cumprod",3))
-    end
-
-    if and(typ <> ["native" "double"]) then
-        error(msprintf(_("%s: Wrong value for input argument #%d: ""%s"" or ""%s"" expected.\n"),"cumprod", 3, "native", "double"));
-    end
-
-    if d == 0 then // '*'
-        a=matrix(cumprod(a.entries, "*", typ), dims);
-    elseif d > size(dims,"*") then
-        //requested summation direction exceeds array dims, return the array, converted
-        //to double if necessary.
-        if typ == "double" & or(tm == [4 8]) then
-            a.entries=double(a.entries),
-        end
-        a=a
-    else
-        //permute the array dimension to put the selected dimension first
-        p=1:size(dims,"*");
-        p([1,d])=p([d,1]);
-        a=matrix(permute(a,p),dims(d),-1)
-        a=cumprod(a,1,typ);
-        //permute back
-        a=permute(matrix(a,dims(p)),p)
-    end
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_cumsum.sci b/scilab/modules/overloading/macros/%hm_cumsum.sci
deleted file mode 100644 (file)
index 645a0e7..0000000
+++ /dev/null
@@ -1,103 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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.
-
-// NO LONGER USED (tested for hm of integers, decimal or complex numbers, polynomials)
-// => TO BE REMOVED
-
-function a = %hm_cumsum(varargin)
-    a = varargin(1)
-    dims = size(a);
-    tm = type(a)
-
-    nargs = size(varargin);
-    select nargs
-    case 1
-        d = 0;
-        if tm == 8 then
-            typ = "native";
-        else
-            typ = "double";
-        end
-    case 2
-        if or(varargin(2) == ["native", "double"]) then
-            d = 0;
-            typ = varargin(2);
-        else
-            d = varargin(2);
-            if tm == 8 then
-                typ = "native";
-            else
-                typ = "double";
-            end
-        end
-    case 3
-        d = varargin(2);
-        typ = varargin(3);
-    else
-        error(msprintf(_("%s: Wrong number of input argument(s): %d to %d expected.\n"),"cumsum", 1, 3));
-    end
-
-    // Check second argument : d
-    select type(d)
-    case 1
-        if size(d,'*') <> 1 then
-            error(msprintf(_("%s: Wrong size for input argument #%d: A scalar expected.\n"),"cumsum", 2))
-        end
-        if int(d) <> d | d < 0 then
-            error(msprintf(_("%s: Wrong value for input argument #%d: Integer >= %d expected.\n"),"cumsum", 2, 1))
-        end
-    case 10 
-        if size(d,'*') <> 1 then
-            error(msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"),"cumsum",2))
-        end
-        if and(d<>["r","c","*","m"]) then
-            error(msprintf(_("%s: Wrong value for input argument #%d: Must be in the set {%s}.\n"),..
-            "cumsum",2,"""*"",""r"",""c"",""m"""))
-        end
-        pos=[1,2,0,find(dims>1,1)];
-        d=pos(find(d==["r","c","*","m"]))
-    else
-        error(msprintf(_("%s: Wrong type for input argument #%d: string or scalar expected.\n"),"cumsum",2))
-    end
-
-    // Check third argument
-    if type(typ)<>10 then
-        error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"),"cumsum",3))
-    end
-
-    if size(typ,"*")<>1 then
-        error(msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"),"cumsum",3))
-    end
-
-    if and(typ <> ["native" "double"]) then
-        error(msprintf(_("%s: Wrong value for input argument #%d: ""%s"" or ""%s"" expected.\n"),"cumsum", 3, "native", "double"));
-    end
-
-    if d == 0 then // '*'
-        a = matrix(cumsum(a(:), "*", typ), dims);
-    elseif d > size(dims,"*") then
-        //requested summation direction exceeds array dims, return the array, converted
-        //to double if necessary.
-        if typ == "double" & or(tm == [4 8]) then
-            a(:) = double(a(:))
-        end
-        a=a
-    else
-        //permute the array dimension to put the selected dimension first
-        p=1:size(dims,"*");
-        p([1,d])=p([d,1]);
-        a=matrix(permute(a,p),dims(d),-1)
-        a=cumsum(a,1,typ);
-        //permute back
-        a=permute(matrix(a,dims(p)),p)
-    end
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_degree.sci b/scilab/modules/overloading/macros/%hm_degree.sci
deleted file mode 100644 (file)
index 8314e96..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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 P=%hm_degree(P)
-    P("entries")=degree(P("entries"))
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_dsearch.sci b/scilab/modules/overloading/macros/%hm_dsearch.sci
deleted file mode 100644 (file)
index bdc232f..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - 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 [ind, occ, info] = %hm_dsearch(H, r, flag)
-    if argn(2)<3 then
-        flag = "c";
-    end
-    [ind, occ, info] = dsearch(H(:), r, flag)
-    ind = matrix(ind, size(H))
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_eye.sci b/scilab/modules/overloading/macros/%hm_eye.sci
deleted file mode 100644 (file)
index 737320b..0000000
+++ /dev/null
@@ -1,25 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Charlotte HECQUET
-//
-// 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 M=%hm_eye(varargin)
-
-    if size(varargin) <> 1 then
-        error(msprintf(_("%s: Wrong number of input argument: %d to %d expected.\n"), "eye", 1, 2));
-    end
-    if typeof(varargin(1)) <> "hypermat" then
-        error(msprintf(_("%s: Wrong type for input argument #%d: Hypermatrix expected.\n"), "eye", 1));
-    end
-
-    M = zeros(varargin(1));
-    M(sub2ind(size(varargin(1)), (1:min(size(varargin(1))))' .*. ones(1,ndims(varargin(1))))) = 1;
-
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_find.sci b/scilab/modules/overloading/macros/%hm_find.sci
deleted file mode 100644 (file)
index 21a9a2f..0000000
+++ /dev/null
@@ -1,36 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) -2011 - INRIA - Serge Steer
-//
-// 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 varargout=%hm_find(Mb,nmax)
-    lhs=argn(1)
-    if argn(2)==2 then
-        I=find(Mb.entries,nmax)
-    else
-        I=find(Mb.entries)
-    end
-    if lhs==1 then
-        varargout=list(I)
-    else
-        dims=size(Mb);
-        nd=size(dims,"*")
-        if nd>lhs then
-            dims=[dims(1:lhs-1) prod(dims(lhs:$))]
-        else
-            dims(nd+1:lhs)=1;
-        end
-        varargout=list()
-        I=ind2sub(dims,I)
-        for k=1:size(I,2)
-            varargout(k)=I(:,k)'
-        end
-    end
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_floor.sci b/scilab/modules/overloading/macros/%hm_floor.sci
deleted file mode 100644 (file)
index 7ccd755..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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 M=%hm_floor(M)
-
-    M("entries")=floor(M("entries"))
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_iconvert.sci b/scilab/modules/overloading/macros/%hm_iconvert.sci
deleted file mode 100644 (file)
index 4255dd9..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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 x=%hm_iconvert(x,it)
-    x.entries=iconvert(x.entries,it)
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_isnan.sci b/scilab/modules/overloading/macros/%hm_isnan.sci
deleted file mode 100644 (file)
index baab263..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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 b = %hm_isnan(M)
-    b = matrix(isnan(M(:)), size(M))
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_matrix.sci b/scilab/modules/overloading/macros/%hm_matrix.sci
deleted file mode 100644 (file)
index fff8fe2..0000000
+++ /dev/null
@@ -1,93 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-// 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 a = %hm_matrix(a, varargin)
-    [lhs, rhs] = argn(0)
-    if rhs == 0
-        a = [];
-        varargin = [];
-    end
-
-    if size(varargin)==0 then
-        if or(floor(a)<>a)|or(a<0) then
-            error(msprintf(_("%s: Wrong values for input argument #%d: Elements must be non-negative integers.\n"), "%hm_matrix", 1));
-        end
-        if  a==[]|or(a==0) then a=[0 0], end
-
-        if size(a, "*")==1 then
-            a=[1 a],
-        else
-            //remove last dimensions equal to 1
-            nd=size(a, "*")
-            while nd>2&a(nd)==1 then nd=nd-1, end
-            a=a(1:nd)
-        end
-        if size(a, "*")==2 then
-            a=zeros(a(1), a(2))
-            return
-        else
-            v=zeros(prod(a), 1)
-            a=mlist(["hm", "dims", "entries"], int32(matrix(a, 1, -1)), matrix(v, -1, 1))
-            return
-        end
-    end
-
-    dims=size(a); nd=size(dims, "*")
-    if size(varargin)==1 then
-        sz=varargin(1)
-    else
-        sz=[]
-        for k=1:size(varargin)
-            if size(varargin(k), "*")<>1|type(varargin(k))<>1 then
-                error(msprintf(_("%s: Wrong size for input argument(s): integer scalars expected.\n"), "%hm_matrix"));
-            end
-            sz=[sz varargin(k)]
-        end
-        sz=round(sz)
-        //remove last dimensions equal to 1
-        sz_last=size(sz, "*")
-        while sz_last>2&sz(sz_last)==1 then sz_last=sz_last-1, end
-        sz=sz(1:sz_last)
-    end
-    nd1=size(sz, "*")
-    if nd1<=0 then error(60), end
-    if nd1<=2
-        // after removing extra dimensions equal to 1
-        // returns the 2D matrix
-        // a can also be another type of matrix
-        a = matrix(a, sz)
-        return
-    end
-    if nd<nd1 then
-        dims(nd+1:nd1)=1
-    elseif nd>nd1 then
-        dims=[dims(1:nd1-1) prod(dims(nd1:nd))]
-    end
-    nd=size(dims, "*")
-    k=find(sz==-1)
-    P=prod(dims)
-    if k<>[] then
-        if size(k, "*")>1 then
-            error(msprintf(_("%s: Only one -1 value admitted.\n"), "%hm_matrix"));
-        end
-        sz(k)=floor(P/(prod(sz(sz>0))))
-    end
-
-    if prod(P)<>prod(sz) then
-        error(msprintf(_("%s: Input and output matrices  must have the same number of elements"), "%hm_matrix"));
-    end
-
-    if type(a)<>17 then
-        a = matrix(a, sz)
-        return
-    end
-
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_max.sci b/scilab/modules/overloading/macros/%hm_max.sci
deleted file mode 100644 (file)
index e98482c..0000000
+++ /dev/null
@@ -1,110 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-// Copyright (C) 2012 - Scilab Enterprises - Adeline CARNIS
-//
-// 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.
-
-// THIS OVERLOAD SEEMS NO LONGER CALLED  => TO BE DELETED
-
-function [x,k] = %hm_max(varargin)
-    n = size(varargin)
-    v = varargin(1)
-
-    // One input argument
-    if n == 1 then
-        // Retrieve the dimensions
-        m = size(v)
-        // Compute the max of column vector
-        [x,k] = max(v(:))
-        // check if lhs = 2 and if varargin(1) is vector
-        if (argn(1) > 1 & (m($) <> size(v, "*"))) then    // not sure this condition is enough..
-            k = ind2sub(m, k(1))
-        end
-    else
-        if n==2 then
-            d = varargin(2)
-            // Check if d is a string
-            if type(d)==10 then
-                [x,k] = %hm_oriented_max(v,d)
-                return
-            end
-        end
-        // if the second input argument is a matrix or hypermatrix
-        // Obtain column vector
-        x = v(:)
-        dims = size(v)
-        for kk = 2:n
-            sz = size(varargin(kk))
-            // check if the dims are different
-            if or(dims<>sz) then
-                if prod(dims)<>1 & prod(sz)<>1 then
-                    msg = _("%s: Arguments #%d and #%d must have compatible sizes\n")
-                    error(msprintf(msg, "%hm_max",1, kk))
-                end
-                // the first argument is a scalar
-                if prod(dims)==1 then
-                    dims = sz
-                end
-            end
-            // max between hypermatrix and hypermatrix
-            [x,k] = max(x,varargin(kk)(:))
-        end
-        x = matrix(x, dims)
-        k = matrix(k, dims)
-    end
-endfunction
-
-function [x,k] = %hm_oriented_max(m,d)
-    dims = size(m)
-    if d=="m" then
-        d = find(dims>1,1)
-        if d==[] then
-            [x,k1] = max(m(:))
-            k = ind2sub(dims, k1(1))
-            return
-        end
-    elseif d=="r" then
-        d = 1
-    elseif d=="c" then
-        d = 2
-    end
-
-    N   = size(dims,"*");
-    p1  = prod(dims(1:d-1));// step for one max
-    p2  = p1*dims(d);       //step for beginning of vector to max
-    ind = (0:p1:p2-1)';     // selection for vector to max
-    deb = (1:p1);
-    I   = ind*ones(deb) + ones(ind)*deb
-
-    ind = (0:p2:prod(dims)-1);
-    I = ones(ind).*.I + ind.*.ones(I)
-
-    [x,k] = max(matrix(m(I),dims(d),-1),"r")
-
-    dims(d) = 1
-    if d==N then
-        dims = dims(1:$)
-    else
-        dims(d) = 1
-    end
-
-    x = matrix(x, dims)
-    k = matrix(k, dims)
-endfunction
-
-
-
-
-
-
-
-
-
-
diff --git a/scilab/modules/overloading/macros/%hm_mean.sci b/scilab/modules/overloading/macros/%hm_mean.sci
deleted file mode 100644 (file)
index 1233b9f..0000000
+++ /dev/null
@@ -1,41 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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.
-
-// THIS OVERLOAD SEEMS NO LONGER CALLED  => TO BE DELETED
-
-function x = %hm_mean(m,d)
-    if argn(2)==1 then
-        x = mean(m(:))
-        return
-    end
-    dims = size(m);
-
-    N  = size(dims,"*")
-    p1 = prod(dims(1:d-1)); // step to build one vector on which mean is applied
-    p2 = p1*dims(d);        // step for beginning of next vectors
-    ind = (0:p1:p2-1)';     // selection for building one vector
-    deb = (1:p1);
-    I = ind*ones(deb) + ones(ind)*deb
-
-    ind = (0:p2:prod(dims)-1);
-    I = ones(ind).*.I + ind.*.ones(I)
-
-    x = mean(matrix(m(I), dims(d),-1),1)
-    dims(d) = 1
-    if d==N then
-        dims = dims(1:$)
-    else
-        dims(d) = 1
-    end
-
-    x = matrix(x, dims)
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_median.sci b/scilab/modules/overloading/macros/%hm_median.sci
deleted file mode 100644 (file)
index 2fbd9bf..0000000
+++ /dev/null
@@ -1,43 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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.
-
-// THIS OVERLOAD IS NO LONGER CALLED (decimal numbers, integers) => TO BE DELETED
-
-function x=%hm_median(m,d)
-    if argn(2)==1 then
-        x=median(m.entries)
-        return
-    end
-    dims=m.dims;
-    N=size(dims,"*");
-    p1=prod(dims(1:d-1));// step to build one vector on which median is applied
-    p2=p1*dims(d);//step for beginning of next vectors
-    ind=(0:p1:p2-1)';// selection for building one vector
-    deb=(1:p1);
-    I=ind*ones(deb)+ones(ind)*deb
-
-    ind=(0:p2:prod(dims)-1);
-    I=ones(ind).*.I+ind.*.ones(I)
-
-    x=median(matrix(m.entries(I),dims(d),-1),1)
-    dims(d)=1
-    if d==N then
-        dims=dims(1:$)
-    else
-        dims(d)=1
-    end
-    if size(dims,"*")==2 then
-        x=matrix(x,dims(1),dims(2))
-    else
-        x=matrix(x, dims)
-    end
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_min.sci b/scilab/modules/overloading/macros/%hm_min.sci
deleted file mode 100644 (file)
index 61c477c..0000000
+++ /dev/null
@@ -1,104 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-// Copyright (C) 2012 - Scilab Enterprises - Adeline CARNIS
-//
-// 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.
-
-// THIS OVERLOAD SEEMS NO LONGER CALLED  => NOT UPDATED : TO BE DELETED
-
-function [x,k] = %hm_min(varargin)
-    n = size(varargin)
-    // One input argument
-    if n ==1 then
-        // Retrieve the dimensions
-        m = varargin(1).dims
-        // Compute the min of column vector
-        // varargin(1).entries gives column vector
-        [x,k] = min(varargin(1).entries)
-        // check if lhs = 2 and if varargin(1) is vector
-        if (argn(1) > 1 & (m(length(m)) <> size(varargin(1), "*"))) then
-            k = ind2sub(m, k(1))
-        end
-    else
-        if n==2 then
-            d=varargin(2)
-            // Check if d is a string
-            if type(d)==10 then
-                [x,k]=%hm_oriented_min(varargin(1),d)
-                return
-            end
-        end
-        // if the second input argument is a matrix or hypermatrix
-        // Obtain column vector
-        x=varargin(1)(:)
-        dims=size(varargin(1))
-        for kk=2:n
-            sz=size(varargin(kk))
-            // check if the dim are different
-            if or(dims<>sz) then
-                if prod(dims)<>1&prod(sz)<>1 then
-                    error(42)
-                end
-                // the first argument is a scalar
-                if prod(dims)==1 then dims=sz,end
-            end
-            // min between hypermatrix and hypermatrix
-            [x,k]=min(x,varargin(kk)(:))
-        end
-        x=matrix(x, dims)
-        k=matrix(k, dims)
-    end
-endfunction
-
-function [x,k]=%hm_oriented_min(m,d)
-    if d=="m" then
-        d=find(dims>1,1)
-        if d==[] then
-            [x,k1]=max(m.entries)
-            k=ind2sub(m.dims,k1(1))
-            return,
-        end
-    elseif d=="r" then
-        d=1
-    elseif d=="c" then
-        d=2
-    end
-    dims=m.dims;
-    if type(dims==8) then flag=1; dims=double(dims); else flag=0;end
-    N=size(dims,"*");
-    p1=prod(dims(1:d-1));// step for one min
-    p2=p1*dims(d);//step for beginning of vector to min
-    ind=(0:p1:p2-1)';// selection for vector to min
-    deb=(1:p1);
-    I=ind*ones(deb)+ones(ind)*deb
-
-    ind=(0:p2:prod(dims)-1);
-    I=ones(ind).*.I+ind.*.ones(I)
-
-    [x,k]=min(matrix(m.entries(I),dims(d),-1),"r")
-
-    dims(d)=1
-    if d==N then
-        dims=dims(1:$)
-    else
-        dims(d)=1
-    end
-    if size(dims,"*")==2 then
-        if flag==1 then dims=int32(dims);end
-        x=matrix(x,dims(1),dims(2))
-        k=matrix(k,dims(1),dims(2))
-    else
-        if flag==1 then dims=int32(dims);end
-        x=matrix(x, dims)
-        k=matrix(matrix(k,-1,1), dims)
-    end
-endfunction
-
-
diff --git a/scilab/modules/overloading/macros/%hm_ones.sci b/scilab/modules/overloading/macros/%hm_ones.sci
deleted file mode 100644 (file)
index 76ae98f..0000000
+++ /dev/null
@@ -1,39 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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.
-
-// THIS OVERLOAD SEEMS NO LONGER CALLED  => NOT UPDATED : TO BE DELETED
-
-function M=%hm_ones(varargin)
-
-    nv=size(varargin)
-    if nv==1 then
-        M=varargin(1)
-        if type(M)==1 then
-            dims=M
-        else
-            dims=M("dims")
-        end
-        M=matrix(ones(prod(double(dims)),1), dims)
-    else
-        dims=ones(1,nv)
-        for k=1:nv,dims(k)=int(varargin(k)),end
-        //remove highest singleton dimensions
-        ks=find(dims==1);
-        ns=size(ks,"*");
-        while ns>0&nv>2&ks(ns)==nv then ns=ns-1,nv=nv-1,end
-        if nv==2 then
-            M=ones(varargin(1:nv))
-        else
-            M=matrix(ones(prod(dims(1:nv)),1), dims(1:nv))
-        end
-    end
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_rand.sci b/scilab/modules/overloading/macros/%hm_rand.sci
deleted file mode 100644 (file)
index 660e9a3..0000000
+++ /dev/null
@@ -1,55 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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 M=%hm_rand(varargin)
-
-    //creates a random hypermatrix with shape given by vector of dimensions or an
-    //hypermatrix
-    nv=size(varargin)
-    if nv==1 then
-        M=varargin(1)
-        if type(M)==1 then
-            dims=M
-        else
-            dims=M("dims")
-        end
-        M=matrix(rand(prod(double(dims)),1), dims)
-    else
-
-        if type(varargin($))==10 then
-            opt=varargin($),nv=nv-1;
-            dims=ones(1,nv)
-            for k=1:nv,dims(k)=int(varargin(k)),end
-            //remove highest singleton dimensions
-            ks=find(dims==1);
-            ns=size(ks,"*");
-            while ns>0&nv>2&ks(ns)==nv then ns=ns-1,nv=nv-1,end
-            if nv==2 then
-                M=rand(varargin(1:nv),opt)
-            else
-                M=matrix(rand(prod(dims(1:nv)),1,opt), dims(1:nv))
-            end
-        else
-            dims=ones(1,nv)
-            for k=1:nv,dims(k)=int(varargin(k)),end
-            //remove highest singleton dimensions
-            ks=find(dims==1);
-            ns=size(ks,"*");
-            while ns>0&nv>2&ks(ns)==nv then ns=ns-1,nv=nv-1,end
-            if nv==2 then
-                M=rand(varargin(1:nv))
-            else
-                M=matrix(rand(prod(dims(1:nv)),1), dims(1:nv))
-            end
-        end
-    end
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_real.sci b/scilab/modules/overloading/macros/%hm_real.sci
deleted file mode 100644 (file)
index 174f06b..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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 M=%hm_real(M)
-
-    M("entries")=real(M("entries"))
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_round.sci b/scilab/modules/overloading/macros/%hm_round.sci
deleted file mode 100644 (file)
index 410b322..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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 M=%hm_round(M)
-
-    M("entries")=round(M("entries"))
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_sign.sci b/scilab/modules/overloading/macros/%hm_sign.sci
deleted file mode 100644 (file)
index 234bb40..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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 M=%hm_sign(M)
-
-    M("entries")=sign(M("entries"))
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_size.sci b/scilab/modules/overloading/macros/%hm_size.sci
deleted file mode 100644 (file)
index 737b994..0000000
+++ /dev/null
@@ -1,57 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-// Copyright (C) INRIA - 2011 - Serge STEER
-// Copyright (C) DIGITEO - 2011 - Allan CORNET
-//
-// 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 varargout = %hm_size(M, job)
-
-    // returns dimensions of an hyper matrix
-    [lhs, rhs] = argn(0);
-    dims = matrix(double(M.dims), 1, -1);
-    if rhs == 2 then
-        if type(job) == 10 then
-            select job
-            case "*" then
-                varargout(1) = prod(dims);
-            case "r" then
-                varargout(1) = dims(1);
-            case "c" then
-                varargout(1) = dims(2);
-            else
-                error(msprintf(_("%s: Wrong value for input argument #%d: ''%s'', ''%s'' or ''%s'' expected.\n"), "size", 2, "r", "c", "*"))
-            end
-            return
-        elseif type(job) == 1 then
-            if (size(job,"*") > 1) | (job <= 0)  then
-                error(msprintf(_("%s: Wrong value for input argument #%d: Scalar positive integer expected.\n"), "size", 2));
-            end
-            if job <= size(dims, "*") then
-                varargout(1) = dims(job);
-            else
-                varargout(1) = 1;
-            end
-        else
-            error(msprintf(_("%s: Wrong value for input argument #%d: Scalar positive integer or character string expected.\n"),"size", 2));
-        end
-        return
-    end
-    if lhs == 1 then
-        varargout(1) = matrix(dims, 1, -1);
-    else
-        if lhs > size(dims, "*") then
-            dims($+1:lhs) = 1;
-        end
-        for k = 1:lhs
-            varargout(k) = dims(k);
-        end
-    end
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_string.sci b/scilab/modules/overloading/macros/%hm_string.sci
deleted file mode 100644 (file)
index 236d2de..0000000
+++ /dev/null
@@ -1,14 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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 a=%hm_string(a)
-    a.entries=string(a.entries)
-endfunction
diff --git a/scilab/modules/overloading/macros/%hm_zeros.sci b/scilab/modules/overloading/macros/%hm_zeros.sci
deleted file mode 100644 (file)
index 531edbb..0000000
+++ /dev/null
@@ -1,41 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA
-//
-// 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.
-
-// THIS OVERLOAD SEEMS NO LONGER CALLED  => NOT UPDATED : TO BE DELETED
-
-function M=%hm_zeros(varargin)
-
-    //creates a zero hypermatrix with shape given by vector of dimensions or an
-    //hypermatrix
-    nv=size(varargin)
-    if nv==1 then
-        M=varargin(1)
-        if type(M)==1 then
-            dims=M
-        else
-            dims=M("dims")
-        end
-        M=matrix(zeros(prod(double(dims)),1), dims)
-    else
-        dims=ones(1,nv)
-        for k=1:nv,dims(k)=int(varargin(k)),end
-        //remove highest singleton dimensions
-        ks=find(dims==1);
-        ns=size(ks,"*");
-        while ns>0&nv>2&ks(ns)==nv then ns=ns-1,nv=nv-1,end
-        if nv==2 then
-            M=zeros(varargin(1:nv))
-        else
-            M=matrix(dims(1:nv))
-        end
-    end
-endfunction
diff --git a/scilab/modules/randlib/macros/%hm_grand.sci b/scilab/modules/randlib/macros/%hm_grand.sci
deleted file mode 100644 (file)
index 1c39741..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
-//
-// 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 y = %hm_grand(n, prm, vect)
-    // Overload to use grand on hypermatrix input
-
-    y = %grand_perm(floor(n), vect);
-
-endfunction