SUBSREF Define field name indexing for history objects. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DESCRIPTION: SUBSREF Define field name indexing for history objects. EXAMPLES: All possible accesses are possible. VERSION: $Id: subsref.m,v 1.5 2008/02/22 22:26:41 hewitson Exp $ HISTORY: 31-01-07 M Hewitson Creation %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001 function B = subsref(A, S) 0002 % SUBSREF Define field name indexing for history objects. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: SUBSREF Define field name indexing for history objects. 0007 % 0008 % EXAMPLES: All possible accesses are possible. 0009 % 0010 % VERSION: $Id: subsref.m,v 1.5 2008/02/22 22:26:41 hewitson Exp $ 0011 % 0012 % HISTORY: 31-01-07 M Hewitson 0013 % Creation 0014 % 0015 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0016 0017 0018 % Check if this is a call for parameters 0019 if ischar(S) 0020 in = char(S); 0021 if strcmp(in, 'Params') 0022 B = plist; 0023 return 0024 elseif strcmp(in, 'Version') 0025 VERSION = '$Id: subsref.m,v 1.5 2008/02/22 22:26:41 hewitson Exp $'; 0026 B = VERSION; 0027 return 0028 elseif strcmp(in, 'Category') 0029 CATEGORY = 'Internal'; 0030 B = CATEGORY; 0031 return 0032 end 0033 end 0034 0035 B = builtin('subsref', A, S); 0036