Mercurial > octave-nkf
view test/@Snork/subsref.m @ 11542:695141f1c05c ss-3-3-55
snapshot 3.3.55
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Sat, 15 Jan 2011 04:53:04 -0500 |
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