root/branches/telle/v2.00-at/mfiles/@NXTmotor/subsref.m @ 390

function result = subsref(obj, Struct)
%SUBSREF Subscripted reference into NXTmotor objects.
%
%   SUBSREF Subscripted reference into NXTmotor objects.
%
%   OBJ.PROPERTY returns the property value of PROPERTY for motorsetting
%   object OBJ.
%
%   Supported syntax for NXTmotor objects:
%
%   Dot Notation:                  Equivalent Get Notation:
%   =============                  ========================
%   obj.Prop                       get(obj, 'Prop')
%   obj(k).Prop                    get(obj(k), 'Prop')
%   obj(k)

% Signature
%   Author: Aulis Telle (see AUTHORS)
%   Date: 2008/08/15
%   Copyright: 2007-2008, RWTH Aachen University
%
%
% ***********************************************************************************************
% *  This file is part of the RWTH - Mindstorms NXT Toolbox.                                    *
% *                                                                                             *
% *  The RWTH - Mindstorms NXT Toolbox is free software: you can redistribute it and/or modify  *
% *  it under the terms of the GNU General Public License as published by the Free Software     *
% *  Foundation, either version 3 of the License, or (at your option) any later version.        *
% *                                                                                             *
% *  The RWTH - Mindstorms NXT Toolbox is distributed in the hope that it will be useful,       *
% *  but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS  *
% *  FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.             *
% *                                                                                             *
% *  You should have received a copy of the GNU General Public License along with the           *
% *  RWTH - Mindstorms NXT Toolbox. If not, see <http://www.gnu.org/licenses/>.                 *
% ***********************************************************************************************

if ~isa(obj,'NXTmotor')
    error('MATLAB:RWTHMindstormsNXT:InvalidObject',...
        'No NXTmotor object.');
end

result = obj;

StructLength = length(Struct);

if StructLength > 2
    error('RWTHMINDSTORMS:motor:unsupportedSubscript','Too deep subscription');
end

if StructLength == 2 
    if (strcmp(Struct(1).type,'()') == 0) || (strcmp(Struct(2).type,'.') == 0)
        error('RWTHMINDSTORMS:motor:unsupportedSubscript','Unsupported subscription');        
    end

    Index = Struct(1).subs{:};
    result = get(obj(Index), Struct(2).subs);
else
    if strcmp(Struct(1).type,'.')
        result = get(obj, Struct(1).subs);
    elseif strcmp(Struct(1).type,'()')
        result = obj(Struct(1).subs{:});
    else
        error('RWTHMINDSTORMS:motor:unsupportedSubscript','Unsupported subscription');        
    end
end