Mercurial > hg > octave-nkf
diff scripts/miscellaneous/orderfields.m @ 10549:95c3e38098bf
Untabify .m scripts
author | Rik <code@nomad.inbox5.com> |
---|---|
date | Fri, 23 Apr 2010 11:28:50 -0700 |
parents | 9d1a14e12431 |
children | be55736a0783 |
line wrap: on
line diff
--- a/scripts/miscellaneous/orderfields.m +++ b/scripts/miscellaneous/orderfields.m @@ -108,14 +108,14 @@ ## Two structures: return the fields in the order of s2. names = fieldnames (s2); if (! isequal (sort (fieldnames (s1)), sort (names))) - error ("orderfields: structures do not have same fields"); + error ("orderfields: structures do not have same fields"); endif elseif (iscellstr (s2)) ## A structure and a list of fields: order by the list of fields. t1 = sort (fieldnames (s1)); t2 = sort (s2(:)); if (! isequal (t1, t2)) - error ("orderfields: name list does not match structure fields"); + error ("orderfields: name list does not match structure fields"); endif names = s2; elseif (isvector (s2)) @@ -125,7 +125,7 @@ t1 = t1(:)'; t2 = 1:numel (names); if (! isequal (t1, t2)) - error ("orderfields: invalid permutation vector"); + error ("orderfields: invalid permutation vector"); endif names = names (s2); endif