Changeset 6455


Ignore:
Timestamp:
10/29/10 10:13:49 (14 years ago)
Author:
jschierm
Message:

Addition of set methods to all the kml classes.

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

Legend:

Unmodified
Added
Removed

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

    r6454 r6455  
    4646                            else
    4747                                if ~isempty(inputname(i))
    48                                     warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     48                                    warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    4949                                        inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5050                                else
    51                                     warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     51                                    warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5252                                        i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5353                                end
    … …  
    7575                else
    7676                    disp(sprintf('     colormode: ''%s'''  ,kml(i).colormode));
     77                end
     78            end
     79
     80        end
     81
     82%  set the properties of the object
     83
     84        function [kml]=set(kml,varargin)
     85
     86            kmlref=feval(class(kml));
     87
     88%  loop through each parameter in the input list (comparing to the reference
     89%  object in case property types have been changed)
     90
     91            for i=1:2:length(varargin)
     92                if isfield(kmlref,varargin{i})
     93                    if isa(varargin{i+1},class(kmlref.(varargin{i})))
     94                        kml.(varargin{i})=varargin{i+1};
     95                    else
     96                        if ~isempty(inputname(i+1))
     97                            warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     98                                inputname(i+1),varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     99                        else
     100                            warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     101                                i+1           ,varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     102                        end
     103                    end
     104                else
     105                    warning('Property ''%s'' for class ''%s'' does not exist.',...
     106                        varargin{i},class(kmlref));
    77107                end
    78108            end

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

    r6454 r6455  
    4949                            else
    5050                                if ~isempty(inputname(i))
    51                                     warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     51                                    warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5252                                        inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5353                                else
    54                                     warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     54                                    warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5555                                        i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5656                                end
    … …  
    7575                if strcmp(class(kml),'kml_container')
    7676                    disp(sprintf('\n'));
     77                end
     78            end
     79
     80        end
     81
     82%  set the properties of the object
     83
     84        function [kml]=set(kml,varargin)
     85
     86            kmlref=feval(class(kml));
     87
     88%  loop through each parameter in the input list (comparing to the reference
     89%  object in case property types have been changed)
     90
     91            for i=1:2:length(varargin)
     92                if isfield(kmlref,varargin{i})
     93                    if isa(varargin{i+1},class(kmlref.(varargin{i})))
     94                        kml.(varargin{i})=varargin{i+1};
     95                    else
     96                        if ~isempty(inputname(i+1))
     97                            warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     98                                inputname(i+1),varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     99                        else
     100                            warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     101                                i+1           ,varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     102                        end
     103                    end
     104                else
     105                    warning('Property ''%s'' for class ''%s'' does not exist.',...
     106                        varargin{i},class(kmlref));
    77107                end
    78108            end

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

    r6454 r6455  
    5151                            else
    5252                                if ~isempty(inputname(i))
    53                                     warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     53                                    warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5454                                        inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5555                                else
    56                                     warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     56                                    warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5757                                        i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5858                                end
    … …  
    7575                disp(sprintf('       feature: %s %s\n' ,string_size(kml(i).feature),...
    7676                             class(kml(i).feature)));
     77            end
     78
     79        end
     80
     81%  set the properties of the object
     82
     83        function [kml]=set(kml,varargin)
     84
     85            kmlref=feval(class(kml));
     86
     87%  loop through each parameter in the input list (comparing to the reference
     88%  object in case property types have been changed)
     89
     90            for i=1:2:length(varargin)
     91                if isfield(kmlref,varargin{i})
     92                    if isa(varargin{i+1},class(kmlref.(varargin{i})))
     93                        kml.(varargin{i})=varargin{i+1};
     94                    else
     95                        if ~isempty(inputname(i+1))
     96                            warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     97                                inputname(i+1),varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     98                        else
     99                            warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     100                                i+1           ,varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     101                        end
     102                    end
     103                else
     104                    warning('Property ''%s'' for class ''%s'' does not exist.',...
     105                        varargin{i},class(kmlref));
     106                end
    77107            end
    78108

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

    r6454 r6455  
    5656                            else
    5757                                if ~isempty(inputname(i))
    58                                     warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     58                                    warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5959                                        inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    6060                                else
    61                                     warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     61                                    warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    6262                                        i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    6363                                end
    … …  
    9292                    disp(sprintf('         style: %s %s'   ,string_size(kml(i).style),...
    9393                                 class(kml(i).style)));
     94                end
     95            end
     96
     97        end
     98
     99%  set the properties of the object
     100
     101        function [kml]=set(kml,varargin)
     102
     103            kmlref=feval(class(kml));
     104
     105%  loop through each parameter in the input list (comparing to the reference
     106%  object in case property types have been changed)
     107
     108            for i=1:2:length(varargin)
     109                if isfield(kmlref,varargin{i})
     110                    if isa(varargin{i+1},class(kmlref.(varargin{i})))
     111                        kml.(varargin{i})=varargin{i+1};
     112                    else
     113                        if ~isempty(inputname(i+1))
     114                            warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     115                                inputname(i+1),varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     116                        else
     117                            warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     118                                i+1           ,varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     119                        end
     120                    end
     121                else
     122                    warning('Property ''%s'' for class ''%s'' does not exist.',...
     123                        varargin{i},class(kmlref));
    94124                end
    95125            end

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

    r6454 r6455  
    5151                            else
    5252                                if ~isempty(inputname(i))
    53                                     warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     53                                    warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5454                                        inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5555                                else
    56                                     warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     56                                    warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5757                                        i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5858                                end
    … …  
    7575                disp(sprintf('       feature: %s %s\n' ,string_size(kml(i).feature),...
    7676                             class(kml(i).feature)));
     77            end
     78
     79        end
     80
     81%  set the properties of the object
     82
     83        function [kml]=set(kml,varargin)
     84
     85            kmlref=feval(class(kml));
     86
     87%  loop through each parameter in the input list (comparing to the reference
     88%  object in case property types have been changed)
     89
     90            for i=1:2:length(varargin)
     91                if isfield(kmlref,varargin{i})
     92                    if isa(varargin{i+1},class(kmlref.(varargin{i})))
     93                        kml.(varargin{i})=varargin{i+1};
     94                    else
     95                        if ~isempty(inputname(i+1))
     96                            warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     97                                inputname(i+1),varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     98                        else
     99                            warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     100                                i+1           ,varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     101                        end
     102                    end
     103                else
     104                    warning('Property ''%s'' for class ''%s'' does not exist.',...
     105                        varargin{i},class(kmlref));
     106                end
    77107            end
    78108

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

    r6454 r6455  
    4242                            else
    4343                                if ~isempty(inputname(i))
    44                                     warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     44                                    warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    4545                                        inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    4646                                else
    47                                     warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     47                                    warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    4848                                        i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    4949                                end
    … …  
    6868                if strcmp(class(kml),'kml_geometry')
    6969                    disp(sprintf('\n'));
     70                end
     71            end
     72
     73        end
     74
     75%  set the properties of the object
     76
     77        function [kml]=set(kml,varargin)
     78
     79            kmlref=feval(class(kml));
     80
     81%  loop through each parameter in the input list (comparing to the reference
     82%  object in case property types have been changed)
     83
     84            for i=1:2:length(varargin)
     85                if isfield(kmlref,varargin{i})
     86                    if isa(varargin{i+1},class(kmlref.(varargin{i})))
     87                        kml.(varargin{i})=varargin{i+1};
     88                    else
     89                        if ~isempty(inputname(i+1))
     90                            warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     91                                inputname(i+1),varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     92                        else
     93                            warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     94                                i+1           ,varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     95                        end
     96                    end
     97                else
     98                    warning('Property ''%s'' for class ''%s'' does not exist.',...
     99                        varargin{i},class(kmlref));
    70100                end
    71101            end

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

    r6454 r6455  
    5050                            else
    5151                                if ~isempty(inputname(i))
    52                                     warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     52                                    warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5353                                        inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5454                                else
    55                                     warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     55                                    warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5656                                        i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5757                                end
    … …  
    7777                disp(sprintf('        coords: %s %s\n' ,string_size(kml(i).coords),...
    7878                             class(kml(i).coords)));
     79            end
     80
     81        end
     82
     83%  set the properties of the object
     84
     85        function [kml]=set(kml,varargin)
     86
     87            kmlref=feval(class(kml));
     88
     89%  loop through each parameter in the input list (comparing to the reference
     90%  object in case property types have been changed)
     91
     92            for i=1:2:length(varargin)
     93                if isfield(kmlref,varargin{i})
     94                    if isa(varargin{i+1},class(kmlref.(varargin{i})))
     95                        kml.(varargin{i})=varargin{i+1};
     96                    else
     97                        if ~isempty(inputname(i+1))
     98                            warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     99                                inputname(i+1),varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     100                        else
     101                            warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     102                                i+1           ,varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     103                        end
     104                    end
     105                else
     106                    warning('Property ''%s'' for class ''%s'' does not exist.',...
     107                        varargin{i},class(kmlref));
     108                end
    79109            end
    80110

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

    r6454 r6455  
    5050                            else
    5151                                if ~isempty(inputname(i))
    52                                     warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     52                                    warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5353                                        inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5454                                else
    55                                     warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     55                                    warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5656                                        i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5757                                end
    … …  
    7777                disp(sprintf('        coords: %s %s\n' ,string_size(kml(i).coords),...
    7878                             class(kml(i).coords)));
     79            end
     80
     81        end
     82
     83%  set the properties of the object
     84
     85        function [kml]=set(kml,varargin)
     86
     87            kmlref=feval(class(kml));
     88
     89%  loop through each parameter in the input list (comparing to the reference
     90%  object in case property types have been changed)
     91
     92            for i=1:2:length(varargin)
     93                if isfield(kmlref,varargin{i})
     94                    if isa(varargin{i+1},class(kmlref.(varargin{i})))
     95                        kml.(varargin{i})=varargin{i+1};
     96                    else
     97                        if ~isempty(inputname(i+1))
     98                            warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     99                                inputname(i+1),varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     100                        else
     101                            warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     102                                i+1           ,varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     103                        end
     104                    end
     105                else
     106                    warning('Property ''%s'' for class ''%s'' does not exist.',...
     107                        varargin{i},class(kmlref));
     108                end
    79109            end
    80110

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

    r6454 r6455  
    4646                            else
    4747                                if ~isempty(inputname(i))
    48                                     warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     48                                    warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    4949                                        inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5050                                else
    51                                     warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     51                                    warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5252                                        i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5353                                end
    … …  
    6969                disp@kml_colorstyle(kml(i));
    7070                disp(sprintf('         width: %d\n'    ,kml(i).width));
     71            end
     72
     73        end
     74
     75%  set the properties of the object
     76
     77        function [kml]=set(kml,varargin)
     78
     79            kmlref=feval(class(kml));
     80
     81%  loop through each parameter in the input list (comparing to the reference
     82%  object in case property types have been changed)
     83
     84            for i=1:2:length(varargin)
     85                if isfield(kmlref,varargin{i})
     86                    if isa(varargin{i+1},class(kmlref.(varargin{i})))
     87                        kml.(varargin{i})=varargin{i+1};
     88                    else
     89                        if ~isempty(inputname(i+1))
     90                            warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     91                                inputname(i+1),varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     92                        else
     93                            warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     94                                i+1           ,varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     95                        end
     96                    end
     97                else
     98                    warning('Property ''%s'' for class ''%s'' does not exist.',...
     99                        varargin{i},class(kmlref));
     100                end
    71101            end
    72102

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

    r6454 r6455  
    4444                            else
    4545                                if ~isempty(inputname(i))
    46                                     warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     46                                    warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    4747                                        inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    4848                                else
    49                                     warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     49                                    warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5050                                        i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5151                                end
    … …  
    5454                    end
    5555
     56            end
     57
     58        end
     59
     60%  set the properties of the object
     61
     62        function [kml]=set(kml,varargin)
     63
     64            kmlref=feval(class(kml));
     65
     66%  loop through each parameter in the input list (comparing to the reference
     67%  object in case property types have been changed)
     68
     69            for i=1:2:length(varargin)
     70                if isfield(kmlref,varargin{i})
     71                    if isa(varargin{i+1},class(kmlref.(varargin{i})))
     72                        kml.(varargin{i})=varargin{i+1};
     73                    else
     74                        if ~isempty(inputname(i+1))
     75                            warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     76                                inputname(i+1),varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     77                        else
     78                            warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     79                                i+1           ,varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     80                        end
     81                    end
     82                else
     83                    warning('Property ''%s'' for class ''%s'' does not exist.',...
     84                        varargin{i},class(kmlref));
     85                end
    5686            end
    5787

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

    r6454 r6455  
    4141                            else
    4242                                if ~isempty(inputname(i))
    43                                     warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     43                                    warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    4444                                        inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    4545                                else
    46                                     warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     46                                    warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    4747                                        i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    4848                                end
    … …  
    6969                else
    7070                    disp(sprintf('            id: ''%s'''  ,kml(i).id));
     71                end
     72            end
     73
     74        end
     75
     76%  set the properties of the object
     77
     78        function [kml]=set(kml,varargin)
     79
     80            kmlref=feval(class(kml));
     81
     82%  loop through each parameter in the input list (comparing to the reference
     83%  object in case property types have been changed)
     84
     85            for i=1:2:length(varargin)
     86                if isfield(kmlref,varargin{i})
     87                    if isa(varargin{i+1},class(kmlref.(varargin{i})))
     88                        kml.(varargin{i})=varargin{i+1};
     89                    else
     90                        if ~isempty(inputname(i+1))
     91                            warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     92                                inputname(i+1),varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     93                        else
     94                            warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     95                                i+1           ,varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     96                        end
     97                    end
     98                else
     99                    warning('Property ''%s'' for class ''%s'' does not exist.',...
     100                        varargin{i},class(kmlref));
    71101                end
    72102            end

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

    r6454 r6455  
    5151                            else
    5252                                if ~isempty(inputname(i))
    53                                     warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     53                                    warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5454                                        inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5555                                else
    56                                     warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     56                                    warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5757                                        i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5858                                end
    … …  
    7575                disp(sprintf('      geometry: %s %s\n' ,string_size(kml(i).geometry),...
    7676                             class(kml(i).geometry)));
     77            end
     78
     79        end
     80
     81%  set the properties of the object
     82
     83        function [kml]=set(kml,varargin)
     84
     85            kmlref=feval(class(kml));
     86
     87%  loop through each parameter in the input list (comparing to the reference
     88%  object in case property types have been changed)
     89
     90            for i=1:2:length(varargin)
     91                if isfield(kmlref,varargin{i})
     92                    if isa(varargin{i+1},class(kmlref.(varargin{i})))
     93                        kml.(varargin{i})=varargin{i+1};
     94                    else
     95                        if ~isempty(inputname(i+1))
     96                            warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     97                                inputname(i+1),varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     98                        else
     99                            warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     100                                i+1           ,varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     101                        end
     102                    end
     103                else
     104                    warning('Property ''%s'' for class ''%s'' does not exist.',...
     105                        varargin{i},class(kmlref));
     106                end
    77107            end
    78108

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

    r6454 r6455  
    5252                            else
    5353                                if ~isempty(inputname(i))
    54                                     warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     54                                    warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5555                                        inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5656                                else
    57                                     warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     57                                    warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5858                                        i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5959                                end
    … …  
    8181                disp(sprintf('         inner: %s %s\n' ,string_size(kml(i).inner),...
    8282                             class(kml(i).inner)));
     83            end
     84
     85        end
     86
     87%  set the properties of the object
     88
     89        function [kml]=set(kml,varargin)
     90
     91            kmlref=feval(class(kml));
     92
     93%  loop through each parameter in the input list (comparing to the reference
     94%  object in case property types have been changed)
     95
     96            for i=1:2:length(varargin)
     97                if isfield(kmlref,varargin{i})
     98                    if isa(varargin{i+1},class(kmlref.(varargin{i})))
     99                        kml.(varargin{i})=varargin{i+1};
     100                    else
     101                        if ~isempty(inputname(i+1))
     102                            warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     103                                inputname(i+1),varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     104                        else
     105                            warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     106                                i+1           ,varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     107                        end
     108                    end
     109                else
     110                    warning('Property ''%s'' for class ''%s'' does not exist.',...
     111                        varargin{i},class(kmlref));
     112                end
    83113            end
    84114

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

    r6454 r6455  
    4848                            else
    4949                                if ~isempty(inputname(i))
    50                                     warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     50                                    warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5151                                        inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5252                                else
    53                                     warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     53                                    warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    5454                                        i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    5555                                end
    … …  
    7272                disp(sprintf('          fill: %d'      ,kml(i).fill));
    7373                disp(sprintf('       outline: %d\n'    ,kml(i).outline));
     74            end
     75
     76        end
     77
     78%  set the properties of the object
     79
     80        function [kml]=set(kml,varargin)
     81
     82            kmlref=feval(class(kml));
     83
     84%  loop through each parameter in the input list (comparing to the reference
     85%  object in case property types have been changed)
     86
     87            for i=1:2:length(varargin)
     88                if isfield(kmlref,varargin{i})
     89                    if isa(varargin{i+1},class(kmlref.(varargin{i})))
     90                        kml.(varargin{i})=varargin{i+1};
     91                    else
     92                        if ~isempty(inputname(i+1))
     93                            warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     94                                inputname(i+1),varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     95                        else
     96                            warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     97                                i+1           ,varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     98                        end
     99                    end
     100                else
     101                    warning('Property ''%s'' for class ''%s'' does not exist.',...
     102                        varargin{i},class(kmlref));
     103                end
    74104            end
    75105

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

    r6454 r6455  
    5858                            else
    5959                                if ~isempty(inputname(i))
    60                                     warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     60                                    warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    6161                                        inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    6262                                else
    63                                     warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     63                                    warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    6464                                        i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    6565                                end
    … …  
    9292                disp(sprintf('          list: %s %s\n' ,string_size(kml(i).list),...
    9393                             class(kml(i).list)));
     94            end
     95
     96        end
     97
     98%  set the properties of the object
     99
     100        function [kml]=set(kml,varargin)
     101
     102            kmlref=feval(class(kml));
     103
     104%  loop through each parameter in the input list (comparing to the reference
     105%  object in case property types have been changed)
     106
     107            for i=1:2:length(varargin)
     108                if isfield(kmlref,varargin{i})
     109                    if isa(varargin{i+1},class(kmlref.(varargin{i})))
     110                        kml.(varargin{i})=varargin{i+1};
     111                    else
     112                        if ~isempty(inputname(i+1))
     113                            warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     114                                inputname(i+1),varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     115                        else
     116                            warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     117                                i+1           ,varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     118                        end
     119                    end
     120                else
     121                    warning('Property ''%s'' for class ''%s'' does not exist.',...
     122                        varargin{i},class(kmlref));
     123                end
    94124            end
    95125

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

    r6454 r6455  
    4242                            else
    4343                                if ~isempty(inputname(i))
    44                                     warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     44                                    warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    4545                                        inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    4646                                else
    47                                     warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     47                                    warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    4848                                        i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    4949                                end
    … …  
    6868                if strcmp(class(kml),'kml_styleselector')
    6969                    disp(sprintf('\n'));
     70                end
     71            end
     72
     73        end
     74
     75%  set the properties of the object
     76
     77        function [kml]=set(kml,varargin)
     78
     79            kmlref=feval(class(kml));
     80
     81%  loop through each parameter in the input list (comparing to the reference
     82%  object in case property types have been changed)
     83
     84            for i=1:2:length(varargin)
     85                if isfield(kmlref,varargin{i})
     86                    if isa(varargin{i+1},class(kmlref.(varargin{i})))
     87                        kml.(varargin{i})=varargin{i+1};
     88                    else
     89                        if ~isempty(inputname(i+1))
     90                            warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     91                                inputname(i+1),varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     92                        else
     93                            warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     94                                i+1           ,varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     95                        end
     96                    end
     97                else
     98                    warning('Property ''%s'' for class ''%s'' does not exist.',...
     99                        varargin{i},class(kmlref));
    70100                end
    71101            end

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

    r6454 r6455  
    4242                            else
    4343                                if ~isempty(inputname(i))
    44                                     warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     44                                    warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    4545                                        inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    4646                                else
    47                                     warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
     47                                    warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
    4848                                        i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
    4949                                end
    … …  
    6868                if strcmp(class(kml),'kml_substyle')
    6969                    disp(sprintf('\n'));
     70                end
     71            end
     72
     73        end
     74
     75%  set the properties of the object
     76
     77        function [kml]=set(kml,varargin)
     78
     79            kmlref=feval(class(kml));
     80
     81%  loop through each parameter in the input list (comparing to the reference
     82%  object in case property types have been changed)
     83
     84            for i=1:2:length(varargin)
     85                if isfield(kmlref,varargin{i})
     86                    if isa(varargin{i+1},class(kmlref.(varargin{i})))
     87                        kml.(varargin{i})=varargin{i+1};
     88                    else
     89                        if ~isempty(inputname(i+1))
     90                            warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     91                                inputname(i+1),varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     92                        else
     93                            warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
     94                                i+1           ,varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
     95                        end
     96                    end
     97                else
     98                    warning('Property ''%s'' for class ''%s'' does not exist.',...
     99                        varargin{i},class(kmlref));
    70100                end
    71101            end
Note: See TracChangeset for help on using the changeset viewer.