view test/@Snork/subsref.m @ 12769:5a44c5f79638 stable

Added tag release-3-4-1 for changeset 901d466ee55a
author John W. Eaton <jwe@octave.org>
date Thu, 23 Jun 2011 17:45:36 -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