Changeset 7128


Ignore:
Timestamp:
01/20/11 15:46:34 (14 years ago)
Author:
jschierm
Message:

kml: added parameter name checking to all kml functions.

Location:
issm/trunk/src/m/kml
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • issm/trunk/src/m/kml/kml_mesh_elem.m

    r7127 r7128  
    4242while (iarg <= nargin-1)
    4343    if ischar(varargin{iarg})
    44         eval([varargin{iarg} '=varargin{iarg+1};']);
    45         if (numel(varargin{iarg+1}) <= 20)
    46             disp([varargin{iarg} '=' any2str(varargin{iarg+1}) ';']);
     44        if ~isempty(strmatch(varargin{iarg},...
     45                {'data','alt',...
     46                 'cmin','cmax','cmap'},...
     47                'exact'))
     48            eval([varargin{iarg} '=varargin{iarg+1};']);
     49            if (numel(varargin{iarg+1}) <= 20)
     50                disp([varargin{iarg} '=' any2str(varargin{iarg+1}) ';']);
     51            else
     52                disp([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ';']);
     53            end
    4754        else
    48             disp([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ';']);
    49         end
    50         if strcmpi(varargin{iarg},'data')
    51             cdata=inputname(iarg+1);
     55            if (numel(varargin{iarg+1}) <= 20)
     56                warning([varargin{iarg} '=' any2str(varargin{iarg+1}) ' is not recognized.']);
     57            else
     58                warning([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ' is not recognized.']);
     59            end
    5260        end
    5361    else
    5462        error(['''' any2str(varargin{iarg}) ''' is not a parameter name.']);
     63    end
     64    if strcmpi(varargin{iarg},'data')
     65        cdata=inputname(iarg+1);
    5566    end
    5667    iarg=iarg+2;

  • issm/trunk/src/m/kml/kml_mesh_write.m

    r6561 r7128  
    4848while (iarg <= nargin-1)
    4949    if ischar(varargin{iarg})
    50         eval([varargin{iarg} '=varargin{iarg+1};']);
    51         if (numel(varargin{iarg+1}) <= 20)
    52             disp([varargin{iarg} '=' any2str(varargin{iarg+1}) ';']);
     50        if ~isempty(strmatch(varargin{iarg},...
     51                {'data','alt','lwidth','popac',...
     52                 'cmin','cmax','cmap','prtplt'},...
     53                'exact'))
     54            eval([varargin{iarg} '=varargin{iarg+1};']);
     55            if (numel(varargin{iarg+1}) <= 20)
     56                disp([varargin{iarg} '=' any2str(varargin{iarg+1}) ';']);
     57            else
     58                disp([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ';']);
     59            end
    5360        else
    54             disp([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ';']);
    55         end
    56         if strcmpi(varargin{iarg},'data')
    57             cdata=inputname(iarg+1);
     61            if (numel(varargin{iarg+1}) <= 20)
     62                warning([varargin{iarg} '=' any2str(varargin{iarg+1}) ' is not recognized.']);
     63            else
     64                warning([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ' is not recognized.']);
     65            end
    5866        end
    5967    else
    6068        error(['''' any2str(varargin{iarg}) ''' is not a parameter name.']);
     69    end
     70    if strcmpi(varargin{iarg},'data')
     71        cdata=inputname(iarg+1);
    6172    end
    6273    iarg=iarg+2;

  • issm/trunk/src/m/kml/kml_part_edges.m

    r7127 r7128  
    4343while (iarg <= nargin-1)
    4444    if ischar(varargin{iarg})
    45         eval([varargin{iarg} '=varargin{iarg+1};']);
    46         if (numel(varargin{iarg+1}) <= 20)
    47             disp([varargin{iarg} '=' any2str(varargin{iarg+1}) ';']);
     45        if ~isempty(strmatch(varargin{iarg},...
     46                {'data','alt',...
     47                 'cmin','cmax','cmap','prtplt'},...
     48                'exact'))
     49            eval([varargin{iarg} '=varargin{iarg+1};']);
     50            if (numel(varargin{iarg+1}) <= 20)
     51                disp([varargin{iarg} '=' any2str(varargin{iarg+1}) ';']);
     52            else
     53                disp([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ';']);
     54            end
    4855        else
    49             disp([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ';']);
    50         end
    51         if strcmpi(varargin{iarg},'data')
    52             cdata=inputname(iarg+1);
     56            if (numel(varargin{iarg+1}) <= 20)
     57                warning([varargin{iarg} '=' any2str(varargin{iarg+1}) ' is not recognized.']);
     58            else
     59                warning([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ' is not recognized.']);
     60            end
    5361        end
    5462    else
    5563        error(['''' any2str(varargin{iarg}) ''' is not a parameter name.']);
     64    end
     65    if strcmpi(varargin{iarg},'data')
     66        cdata=inputname(iarg+1);
    5667    end
    5768    iarg=iarg+2;

  • issm/trunk/src/m/kml/kml_part_elems.m

    r7127 r7128  
    4343while (iarg <= nargin-1)
    4444    if ischar(varargin{iarg})
    45         eval([varargin{iarg} '=varargin{iarg+1};']);
    46         if (numel(varargin{iarg+1}) <= 20)
    47             disp([varargin{iarg} '=' any2str(varargin{iarg+1}) ';']);
     45        if ~isempty(strmatch(varargin{iarg},...
     46                {'data','alt',...
     47                 'cmin','cmax','cmap','prtplt'},...
     48                'exact'))
     49            eval([varargin{iarg} '=varargin{iarg+1};']);
     50            if (numel(varargin{iarg+1}) <= 20)
     51                disp([varargin{iarg} '=' any2str(varargin{iarg+1}) ';']);
     52            else
     53                disp([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ';']);
     54            end
    4855        else
    49             disp([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ';']);
    50         end
    51         if strcmpi(varargin{iarg},'data')
    52             cdata=inputname(iarg+1);
     56            if (numel(varargin{iarg+1}) <= 20)
     57                warning([varargin{iarg} '=' any2str(varargin{iarg+1}) ' is not recognized.']);
     58            else
     59                warning([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ' is not recognized.']);
     60            end
    5361        end
    5462    else
    5563        error(['''' any2str(varargin{iarg}) ''' is not a parameter name.']);
     64    end
     65    if strcmpi(varargin{iarg},'data')
     66        cdata=inputname(iarg+1);
    5667    end
    5768    iarg=iarg+2;

  • issm/trunk/src/m/kml/kml_part_flagedges.m

    r7127 r7128  
    3939while (iarg <= nargin-1)
    4040    if ischar(varargin{iarg})
    41         eval([varargin{iarg} '=varargin{iarg+1};']);
    42         if (numel(varargin{iarg+1}) <= 20)
    43             disp([varargin{iarg} '=' any2str(varargin{iarg+1}) ';']);
     41        if ~isempty(strmatch(varargin{iarg},...
     42                {'alt','prtplt'},...
     43                'exact'))
     44            eval([varargin{iarg} '=varargin{iarg+1};']);
     45            if (numel(varargin{iarg+1}) <= 20)
     46                disp([varargin{iarg} '=' any2str(varargin{iarg+1}) ';']);
     47            else
     48                disp([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ';']);
     49            end
    4450        else
    45             disp([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ';']);
     51            if (numel(varargin{iarg+1}) <= 20)
     52                warning([varargin{iarg} '=' any2str(varargin{iarg+1}) ' is not recognized.']);
     53            else
     54                warning([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ' is not recognized.']);
     55            end
    4656        end
    4757    else

  • issm/trunk/src/m/kml/kml_partitions.m

    r7127 r7128  
    4444while (iarg <= nargin-1)
    4545    if ischar(varargin{iarg})
    46         eval([varargin{iarg} '=varargin{iarg+1};']);
    47         if (numel(varargin{iarg+1}) <= 20)
    48             disp([varargin{iarg} '=' any2str(varargin{iarg+1}) ';']);
     46        if ~isempty(strmatch(varargin{iarg},...
     47                {'data','alt',...
     48                 'cmin','cmax','cmap','prtplt'},...
     49                'exact'))
     50            eval([varargin{iarg} '=varargin{iarg+1};']);
     51            if (numel(varargin{iarg+1}) <= 20)
     52                disp([varargin{iarg} '=' any2str(varargin{iarg+1}) ';']);
     53            else
     54                disp([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ';']);
     55            end
    4956        else
    50             disp([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ';']);
    51         end
    52         if strcmpi(varargin{iarg},'data')
    53             cdata=inputname(iarg+1);
     57            if (numel(varargin{iarg+1}) <= 20)
     58                warning([varargin{iarg} '=' any2str(varargin{iarg+1}) ' is not recognized.']);
     59            else
     60                warning([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ' is not recognized.']);
     61            end
    5462        end
    5563    else
    5664        error(['''' any2str(varargin{iarg}) ''' is not a parameter name.']);
     65    end
     66    if strcmpi(varargin{iarg},'data')
     67        cdata=inputname(iarg+1);
    5768    end
    5869    iarg=iarg+2;

  • issm/trunk/src/m/kml/kml_unsh_edges.m

    r7127 r7128  
    3939while (iarg <= nargin-1)
    4040    if ischar(varargin{iarg})
    41         eval([varargin{iarg} '=varargin{iarg+1};']);
    42         if (numel(varargin{iarg+1}) <= 20)
    43             disp([varargin{iarg} '=' any2str(varargin{iarg+1}) ';']);
     41        if ~isempty(strmatch(varargin{iarg},...
     42                {'alt','prtplt'},...
     43                'exact'))
     44            eval([varargin{iarg} '=varargin{iarg+1};']);
     45            if (numel(varargin{iarg+1}) <= 20)
     46                disp([varargin{iarg} '=' any2str(varargin{iarg+1}) ';']);
     47            else
     48                disp([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ';']);
     49            end
    4450        else
    45             disp([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ';']);
     51            if (numel(varargin{iarg+1}) <= 20)
     52                warning([varargin{iarg} '=' any2str(varargin{iarg+1}) ' is not recognized.']);
     53            else
     54                warning([varargin{iarg} '=' string_size(varargin{iarg+1}) ' ' class(varargin{iarg+1}) ' is not recognized.']);
     55            end
    4656        end
    4757    else
Note: See TracChangeset for help on using the changeset viewer.