Unused macros removed 04/19704/8
Samuel GOUGEON [Sat, 27 Jan 2018 23:26:49 +0000 (00:26 +0100)]
  Please remove the death tests before merging

Change-Id: Ib1e48528b0e277afa46dfa461ef9d3f4d7ece3bc

scilab/modules/overloading/macros/%ce_matrix.sci [deleted file]
scilab/modules/overloading/macros/generic_i_st.sci [deleted file]

diff --git a/scilab/modules/overloading/macros/%ce_matrix.sci b/scilab/modules/overloading/macros/%ce_matrix.sci
deleted file mode 100644 (file)
index 1d487f8..0000000
+++ /dev/null
@@ -1,28 +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=%ce_matrix(m,varargin)
-    dims=m.dims
-    new=[]
-    for v=varargin
-        new=[new,v]
-    end
-    n=find(new==-1)
-    if size(n,"*")==1 then
-        d=prod(dims)/abs(prod(new))
-        if d<>int(d) then error(60),end
-        new(n)=d
-    elseif n<>[] then
-        error(42)
-    end
-    if prod(new)<>prod(dims) then error(60),end
-    m.dims=new
-endfunction
diff --git a/scilab/modules/overloading/macros/generic_i_st.sci b/scilab/modules/overloading/macros/generic_i_st.sci
deleted file mode 100644 (file)
index 16a7887..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA -  F. Delebecque
-// Copyright (C) INRIA -  S. 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 out=generic_i_st(i,in,out)
-
-    // out.i=in
-    // this function is called only if the i field is not already defined in out
-    //
-    if prod(out.dims)>1 then
-        error(1);
-    end
-    T=getfield(1,out);
-    T($+1)=i;out=setfield(1,T,out)
-    out=setfield($+1,in,out)
-    if double(out.dims)==[0 0] then
-        out.dims=int32([1 1]);
-    end
-endfunction