Changeset 10352


Ignore:
Timestamp:
10/28/11 13:36:59 (13 years ago)
Author:
seroussi
Message:

minor

File:
1 edited

Legend:

Unmodified
Added
Removed
  • issm/trunk/src/m/utils/consistency/checkfield.m

    r10348 r10352  
    9898        fieldvalues=getfieldvalue(options,'values');
    9999        if iscell(fieldvalues), %strings
    100                 if ischar(field),
    101                         if any(~ismember(field,fieldvalues)),
    102                                 if length(fieldvalues)==1
    103                                         checkmessage(getfieldvalue(options,'message',...
    104                                                 ['field ''' fieldname ''' value should be ' fieldvalues{1} ]));
    105                                 elseif length(fieldvalues)==2
    106                                         checkmessage(getfieldvalue(options,'message',...
    107                                                 ['field ''' fieldname ''' values should be ' fieldvalues{1} ' or ' fieldvalues{2} ]));
    108                                 else
    109                                         checkmessage(getfieldvalue(options,'message',...
    110                                                 ['field ''' fieldname ''' should have values in ' sprintf('''%s'', ',fieldvalues{1:end-1}) 'or ''' fieldvalues{end} '''']));
    111                                 end
     100        if ischar(field) | iscell(fieldvalues),
     101                if any(~ismember(field,fieldvalues)),
     102                        if length(fieldvalues)==1
     103                                checkmessage(getfieldvalue(options,'message',...
     104                                        ['field ''' fieldname ''' value should be ' fieldvalues{1} ]));
     105                        elseif length(fieldvalues)==2
     106                                checkmessage(getfieldvalue(options,'message',...
     107                                        ['field ''' fieldname ''' values should be ' fieldvalues{1} ' or ' fieldvalues{2} ]));
     108                        else
     109                                checkmessage(getfieldvalue(options,'message',...
     110                                        ['field ''' fieldname ''' should have values in ' sprintf('''%s'', ',fieldvalues{1:end-1}) 'or ''' fieldvalues{end} '''']));
    112111                        end
    113                 else
    114                         checkmessage(getfieldvalue(options,'message',...
    115                                 ['field ''' fieldname ''' should be one of the following strings: ' sprintf('''%s'', ',fieldvalues{1:end-1}) 'or ''' fieldvalues{end} '''']));
    116112                end
    117113        else
    118                 field2=reshape(field,prod(size(field)),1);
    119                 if isnumeric(field),
    120                         if any(~ismember(field2,fieldvalues)),
    121                                 checkmessage(getfieldvalue(options,'message',...
    122                                         ['field ''' fieldname ''' should have values in [' num2str(fieldvalues) ']']));
    123                         end
    124                 else
     114                checkmessage(getfieldvalue(options,'message',...
     115                        ['field ''' fieldname ''' should be one of the following strings: ' sprintf('''%s'', ',fieldvalues{1:end-1}) 'or ''' fieldvalues{end} '''']));
     116        end
     117else
     118        field2=reshape(field,prod(size(field)),1);
     119        if isnumeric(field),
     120                if any(~ismember(field2,fieldvalues)),
    125121                        checkmessage(getfieldvalue(options,'message',...
    126                                 ['field ''' fieldname ''' should be a number in [' num2str(fieldvalues) ']']));
     122                                ['field ''' fieldname ''' should have values in [' num2str(fieldvalues) ']']));
    127123                end
     124        else
     125                checkmessage(getfieldvalue(options,'message',...
     126                        ['field ''' fieldname ''' should be a number in [' num2str(fieldvalues) ']']));
     127        end
    128128        end
    129129end
Note: See TracChangeset for help on using the changeset viewer.