samer@0: function y=subsref(a,S)
samer@0: % subsref - subsref for bufferdata
samer@0: 
samer@0: switch S(1).type
samer@0: case '()', y=paren(a,S(1));
samer@0: end
samer@0: 
samer@0: if length(S)>1, y=subsref(y,S(2:end)); end
samer@0: 
samer@0: