noise/@gauss/subsasgn.m

   1 function OBJ = subsasgn(OBJ, S, B)
   2 % SUBSASGN Subscripted assignment
   3 %   Implements access to set-able properties
   4
   5 % Copyright (C) 2005  Gustaf Hendeby
   6 %
   7 % This program is free software; you can redistribute it and/or
   8 % modify it under the terms of the GNU General Public License
   9 % as published by the Free Software Foundation; either version 2
  10 % of the License, or (at your option) any later version.
  11 %
  12 % This program is distributed in the hope that it will be useful,
  13 % but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 % GNU General Public License for more details.
  16 %
  17 % You should have received a copy of the GNU General Public License
  18 % along with this program; if not, write to the Free Software
  19 % Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
  20
  21 % FIXME: Implement this...
  22
  23   if length(S)>1
  24     error('Not implemented...');
  25   end
  26
  27   switch S(1).type
  28    case '.'
  29     B = set(OBJ, S(1).subs, B);
  30    otherwise
  31     error('Not supported...');
  32   end