Mercurial > octave
view scripts/miscellaneous/orderfields.m @ 28896:90fea9cc9caa
test: Add expected error message <Invalid call> to BIST tests for nargin.
* acosd.m, acot.m, acotd.m, acoth.m, acsc.m, acscd.m, acsch.m, asec.m,
asecd.m, asech.m, asind.m, atand.m, cosd.m, cot.m, cotd.m, coth.m, csc.m,
cscd.m, csch.m, sec.m, secd.m, sech.m, sind.m, tand.m, cart2pol.m, cart2sph.m,
celldisp.m, common_size.m, deal.m, del2.m, fliplr.m, integral2.m, interp1.m,
isequal.m, isequaln.m, nextpow2.m, pol2cart.m, quad2d.m, quadl.m, quadv.m,
randi.m, rat.m, repelem.m, rescale.m, shiftdim.m, sortrows.m, sph2cart.m,
xor.m, convhull.m, delaunay.m, delaunayn.m, griddata.m, griddatan.m,
inpolygon.m, voronoi.m, voronoin.m, listdlg.m, msgbox.m, questdlg.m,
rmappdata.m, setappdata.m, __gripe_missing_component__.m,
get_first_help_sentence.m, type.m, which.m, cmpermute.m, cmunique.m,
gray2ind.m, imfinfo.m, imshow.m, imwrite.m, ind2rgb.m, movie.m, rgb2ind.m,
importdata.m, bandwidth.m, condeig.m, gls.m, housh.m, linsolve.m, logm.m,
lscov.m, normest.m, normest1.m, ols.m, ordeig.m, planerot.m, qzhess.m, rref.m,
copyfile.m, delete.m, dos.m, fileparts.m, getfield.m, menu.m, mkdir.m,
movefile.m, orderfields.m, publish.m, setfield.m, substruct.m, unix.m,
unpack.m, decic.m, ode23.m, ode23s.m, ode45.m, fminsearch.m, lsqnonneg.m,
pqpnonneg.m, sqp.m, annotation.m, lighting.m, shading.m, area.m, compass.m,
contourc.m, feather.m, fplot.m, hist.m, isocaps.m, isocolors.m, isonormals.m,
isosurface.m, ostreamtube.m, pie.m, pie3.m, reducepatch.m, reducevolume.m,
rose.m, smooth3.m, stairs.m, stem.m, stem3.m, stream2.m, stream3.m,
streamline.m, streamribbon.m, streamtube.m, surfnorm.m, trimesh.m, trisurf.m,
colstyle.m, hgload.m, linkprop.m, meshgrid.m, ndgrid.m, padecoef.m, polyfit.m,
polyval.m, unmkpp.m, profexport.m, ismember.m, unique.m, movfun.m, movslice.m,
periodogram.m, sinc.m, spdiags.m, sprandsym.m, betaincinv.m, ellipke.m,
factor.m, gammainc.m, gammaincinv.m, isprime.m, lcm.m, gallery.m, hadamard.m,
bounds.m, corrcoef.m, discrete_rnd.m, empirical_rnd.m, histc.m, mode.m,
movmad.m, movmax.m, movmean.m, movmedian.m, movmin.m, movprod.m, movstd.m,
movsum.m, movvar.m, ranks.m, runlength.m, zscore.m, str2num.m, strchr.m,
strsplit.m, strtok.m, untabify.m, assert.m, demo.m, example.m, speed.m, test.m,
datenum.m, datevec.m, webread.m, webwrite.m:
Add expected error message <Invalid call> to BIST tests for nargin.
Remove redundant tests for nargin greater than the number of declared inputs
which are now handled by interpreter.
author | Rik <rik@octave.org> |
---|---|
date | Sun, 11 Oct 2020 21:59:35 -0700 |
parents | 28de41192f3c |
children | 7854d5752dd2 |
line wrap: on
line source
######################################################################## ## ## Copyright (C) 2006-2020 The Octave Project Developers ## ## See the file COPYRIGHT.md in the top-level directory of this ## distribution or <https://octave.org/copyright/>. ## ## This file is part of Octave. ## ## Octave is free software: you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by ## the Free Software Foundation, either version 3 of the License, or ## (at your option) any later version. ## ## Octave is distributed in the hope that it will be useful, but ## WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ## GNU General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with Octave; see the file COPYING. If not, see ## <https://www.gnu.org/licenses/>. ## ######################################################################## ## -*- texinfo -*- ## @deftypefn {} {@var{sout} =} orderfields (@var{s1}) ## @deftypefnx {} {@var{sout} =} orderfields (@var{s1}, @var{s2}) ## @deftypefnx {} {@var{sout} =} orderfields (@var{s1}, @{@var{cellstr}@}) ## @deftypefnx {} {@var{sout} =} orderfields (@var{s1}, @var{p}) ## @deftypefnx {} {[@var{sout}, @var{p}] =} orderfields (@dots{}) ## Return a @emph{copy} of @var{s1} with fields arranged alphabetically, or as ## specified by the second input. ## ## Given one input struct @var{s1}, arrange field names alphabetically. ## ## If a second struct argument is given, arrange field names in @var{s1} as ## they appear in @var{s2}. The second argument may also specify the order ## in a cell array of strings @var{cellstr}. The second argument may also ## be a permutation vector. ## ## The optional second output argument @var{p} is the permutation vector which ## converts the original name order to the new name order. ## ## Examples: ## ## @example ## @group ## s = struct ("d", 4, "b", 2, "a", 1, "c", 3); ## t1 = orderfields (s) ## @result{} t1 = ## scalar structure containing the fields: ## a = 1 ## b = 2 ## c = 3 ## d = 4 ## @end group ## @end example ## ## @example ## @group ## t = struct ("d", @{@}, "c", @{@}, "b", @{@}, "a", @{@}); ## t2 = orderfields (s, t) ## @result{} t2 = ## scalar structure containing the fields: ## d = 4 ## c = 3 ## b = 2 ## a = 1 ## @end group ## @end example ## ## @example ## @group ## t3 = orderfields (s, [3, 2, 4, 1]) ## @result{} t3 = ## scalar structure containing the fields: ## a = 1 ## b = 2 ## c = 3 ## d = 4 ## @end group ## @end example ## ## @example ## @group ## [t4, p] = orderfields (s, @{"d", "c", "b", "a"@}) ## @result{} t4 = ## scalar structure containing the fields: ## d = 4 ## c = 3 ## b = 2 ## a = 1 ## p = ## 1 ## 4 ## 2 ## 3 ## @end group ## @end example ## ## @seealso{fieldnames, getfield, setfield, rmfield, isfield, isstruct, struct} ## @end deftypefn function [sout, p] = orderfields (s1, s2) if (nargin < 1) print_usage (); endif if (! isstruct (s1)) error ("orderfields: S1 must be a struct"); endif names = fieldnames (s1); if (nargin == 1) ## One structure: return the fields in alphabetical order. [~, p] = sort (names); elseif (nargin == 2) if (isstruct (s2)) ## Two structures: return the fields in the order of s2. names2 = fieldnames (s2); [ns1, idx1] = sort (names); [ns2, idx2] = sort (names2); if (! isequal (ns1, ns2)) error ("orderfields: structures S1 and S2 do not have the same fields"); endif p = eye (numel (idx2))(idx2,:).' * idx1; elseif (iscellstr (s2)) ## A structure and a list of fields: order by the list of fields. names2 = s2(:); [ns1, idx1] = sort (names); [ns2, idx2] = sort (names2); if (! isequal (ns1, ns2)) error ("orderfields: CELLSTR list does not match structure fields"); endif p = eye (numel (idx2))(idx2,:).' * idx1; elseif (isnumeric (s2)) ## A structure and a permutation vector: permute the order of s1. p = s2(:); if (! isequal (sort (p), (1:numel (names)).')) error ("orderfields: invalid permutation vector P"); endif else error ("orderfields: second argument must be structure, cellstr, or permutation vector"); endif endif ## Permute the names in the structure. names = names(p); C = struct2cell (s1); C = C(p,:); sout = cell2struct (C, names); ## Inherit dimensions. sout = reshape (sout, size (s1)); endfunction %!shared a, b, c %! a = struct ("C", {1, 2}, "A", {3, 4}, "B", {5, 6}); %! b = struct ("A", 1, "B", 2, "C", 3); %! c = struct ("B", {7, 8}, "C", 9, "A", 10); %!test %! x = orderfields (b, a); %! assert (fieldnames (x), {"C"; "A"; "B"}); %! assert (x.A, 1); %! assert (x.B, 2); %! assert (x.C, 3); %!test %! [x, p] = orderfields (b, [3 2 1]); %! assert (fieldnames (x), {"C"; "B"; "A"}); %! assert (p, [3; 2; 1]); %! assert (x.A, 1); %! assert (x.B, 2); %! assert (x.C, 3); %!test %! x = orderfields (b, {"B", "C", "A"}); %! assert (fieldnames (x), {"B"; "C"; "A"}); %! assert (x.A, 1); %! assert (x.B, 2); %! assert (x.C, 3); %!test %! x(1:2) = orderfields (c, {"C", "A", "B"}); %! assert (fieldnames (x), {"C"; "A"; "B"}); %! assert (x(2).A, 10); %! assert (x(2).B, 8); %! assert (x(2).C, 9); %!test %! aa.x = {1, 2}; %! aa.y = 3; %! aa(2).x = {4, 5}; %! bb.y = {6, 7}; %! bb.x = 8; %! aa(2) = orderfields (bb, aa); %! assert (aa(2).x, 8); %! assert (aa(2).y{1}, 6); ## Corner case of empty struct %!assert <*40224> (orderfields (struct ()), struct ()) %!test %! s(2,2).a = 1; %! s(1,1).b = 2; %! s = resize (s, [1 0]); %! s2 = orderfields (s, {"b", "a"}); %! assert (fieldnames (s2), {"b"; "a"}); %! assert (size_equal (s, s2)); ## Test input validation %!error <Invalid call> orderfields () %!error <S1 must be a struct> orderfields (1) %!error <S1 and S2 do not have the same fields> %! s1.a = 1; %! s2.b = 2; %! orderfields (s1, s2); %!error <CELLSTR list does not match structure fields> %! s1.a = 1; %! orderfields (s1, {"b"}); %!error <invalid permutation vector P> %! s1.a = 1; %! orderfields (s1, [2 1]); %!error <invalid permutation vector P> %! s1.a = 1; %! orderfields (s1, ones (2,2)); %!error <second argument must be structure, cellstr, or permutation vector> %! s1.a = 1; %! orderfields (s1, "foobar");