0001 function [obj, errmsg] = ...
0002 vb_batch_variable_table_add_column(obj, new_column_name)
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019 if ~exist('obj', 'var')
0020 error('obj is a required parameter.');
0021 end
0022 if ~exist('new_column_name', 'var')
0023 error('new_column_name is a required parameter.');
0024 end
0025 if ~ischar(new_column_name) || isempty(new_column_name)
0026 error('invalid column name is given');
0027 end
0028
0029
0030
0031
0032 errmsg = [];
0033
0034 ix = strmatch(new_column_name, obj.column_name_list, 'exact');
0035 if ~isempty(ix)
0036 errmsg = 'Specified variable name already exists.';
0037 warning(errmsg);
0038 else
0039
0040 [M, N] = size(obj.table);
0041 obj.table = [obj.table, cell(M,1)];
0042 obj.column_name_list{1, N+1} = new_column_name;
0043 end
0044
0045
0046
0047
0048 if nargout < 1
0049 error('function caller should receive this object.');
0050 end