summaryrefslogtreecommitdiffstats log msg author committer range
blob: 759d5f7bf67f854c5b1098ccd11cc1247bfd05be (plain)
 ```1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 ``` ``````// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab // Copyright (C) ????-2008 - INRIA - Vincent COUVERT // // 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 function s=struct(varargin) // Equivalent for Matlab struct function rhs=argn(2) fields=["st","dims"] if rhs==0 then // No Matlab equivalent s=mlist(fields,int32([0,0])) return end if floor(rhs/2)*2<>rhs then error(msprintf(gettext("%s: Wrong number of input argument(s)."),'struct')); end nbfields=size(varargin)/2 dims=[] for kf=1:2:size(varargin) fields=[fields varargin(kf)] end dims=[1 1] // Search struct size for kf=2:2:size(varargin) if typeof(varargin(kf))=="ce" then if or(double(varargin(kf).dims)<>[1 1]) then dims=varargin(kf).dims break end end end s=mlist(fields,int32(dims)) // Search if one value is a scalar cell fnb=3 for kf=2:2:size(varargin) if typeof(varargin(kf))<>"ce" then value=list() for kk=1:prod(double(dims)) value(kk)=varargin(kf) end elseif and(double(varargin(kf).dims)==[1 1]) then value=list() for kk=1:prod(double(dims)) value(kk)=varargin(kf).entries end else value=varargin(kf).entries end if prod(double(dims))==1 then setfield(fnb,value(1),s) else setfield(fnb,value,s) end fnb=fnb+1 end endfunction ``````