Remove unused overloads % structures 27/20927/3
Samuel GOUGEON [Sat, 6 Apr 2019 21:39:27 +0000 (23:39 +0200)]
Change-Id: I8142300a7febe57a5a088a3f9158807aea5eccbc

scilab/modules/helptools/data/configuration/scilab_macros.txt
scilab/modules/overloading/macros/%st_matrix.sci [deleted file]
scilab/modules/overloading/macros/%st_size.sci [deleted file]
scilab/modules/overloading/macros/%st_t.sci [deleted file]

index f1c3f55..d499507 100644 (file)
@@ -1108,7 +1108,6 @@ systmat
 %st_i_sp
 %st_i_spb
 %st_i_st
-%st_matrix
 %st_n_c
 %st_n_l
 %st_n_mc
@@ -1120,9 +1119,7 @@ systmat
 %st_o_p
 %st_o_s
 %st_p
-%st_size
 %st_string
-%st_t
 %ticks_i_h
 %xls_e
 %xls_p
diff --git a/scilab/modules/overloading/macros/%st_matrix.sci b/scilab/modules/overloading/macros/%st_matrix.sci
deleted file mode 100644 (file)
index 047e440..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 M=%st_matrix(M,varargin)
-    //implements matrix function for structs
-    if size(varargin)==1 then
-        sz=varargin(1)
-        if type(sz)<>1 then
-            error(msprintf(_("%s: Wrong type for argument #%d: Real vector expected.\n"),"matrix",2))
-        end
-    else
-        sz=[];
-        for k=1:size(varargin)
-            if size(varargin(k),"*")<>1|type(varargin(k))<>1 then
-                error(msprintf(_("%s: Wrong type for argument #%d: Real scalar expected.\n"),"matrix",k+1))
-            end
-            sz=[sz varargin(k)]
-        end
-        sz=round(sz)
-    end
-    if size(sz,"*")<2 then sz=[sz,1],end
-    Dims=size(M,"*")
-    if Dims<>prod(sz) then
-        error(msprintf(_("%s: input and output matrices  must have the same number of elements.\n"),"matrix"))
-    end
-    M.dims=int32(matrix(sz,1,-1))
-endfunction
diff --git a/scilab/modules/overloading/macros/%st_size.sci b/scilab/modules/overloading/macros/%st_size.sci
deleted file mode 100644 (file)
index b87aa3f..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.
-
-function varargout=%st_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 job=="*" then
-            varargout(1)=prod(dims)
-            return
-        elseif type(job)==1 then
-            if size(job,"*") >1 then error(msprintf(_("%s: Wrong size for input argument #%d.\n"),"%st_size",2));end
-            if job<=0|job>size(dims,"*") then
-                error(msprintf(_("%s: Wrong size or value for input argument #%d.\n"),"%st_size",2));
-            end
-            varargout(1)=dims(job)
-        else
-            error(msprintf(_("%s: Wrong value for input argument #%d.\n"),"%st_size",2))
-        end
-        return
-    end
-    if lhs==1 then
-        varargout(1)=matrix(dims,1,-1)
-    else
-        if lhs>size(dims,"*") then error(msprintf(_("%s: Wrong number of output arguments.\n"),"%st_size")),end
-        for k=1:lhs
-            varargout(k)=dims(k)
-        end
-    end
-endfunction
diff --git a/scilab/modules/overloading/macros/%st_t.sci b/scilab/modules/overloading/macros/%st_t.sci
deleted file mode 100644 (file)
index 5a4f2f6..0000000
+++ /dev/null
@@ -1,26 +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 R=%st_t(M)
-
-    D=double(M.dims)
-    if size(D,"*")>2 then
-        error(msprintf(_("%s: Wrong size for input argument #%d: Transpose can not be defined.\n"),"%st_t",1));
-    end
-    NewInd=matrix(matrix(1:prod(D),D)',1,-1)
-    F=getfield(1,M)
-    R=mlist(F,int32([D(2) D(1)]))
-    for k=3:size(F,"*")
-        v=getfield(k,M)
-        R=setfield(k,list(v(NewInd)),R)
-    end
-endfunction