Mercurial > octave-nkf
view test/@Snork/subsref.m @ 10454:79a56d0a6a0d ss-3-3-51
version is now 3.3.51
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Wed, 24 Mar 2010 16:27:05 -0400 |
parents | f9ab19428cd8 |
children |
line wrap: on
line source
function b = subsref (snk, s) if (isempty (s)) error ('Snork: missing index'); end switch (s(1).type) case '()' ind = s(1).subs; if (numel (ind) ~= 1) error ('Snork: need exactly one index'); else b = snk.cack(ind{1}); end case '{}' ind = s(1).subs; if (numel (ind) ~= 1) error ('Snork: need exactly one index'); else b = snk.cack(ind{1}); end case '.' fld = s.subs; if (strcmp (fld, 'gick')) b = snk.gick; else error ('Snork/subsref: invalid property \"%s\"', fld); end otherwise error ('invalid subscript type'); end end