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