source: issm/trunk/src/m/kml/kml_substyle.m@ 6454

%
%  definition for the kml_substyle super (base) and sub (derived) class.
%
%  [kml]=kml_substyle(varargin)
%
%  where the optional varargin and defaults are:
%    id            (char, substyle id, '')
%
%  note that zero arguments constructs a default instance; one
%  argument of the class copies the instance; and two or more
%  arguments constructs a new instance from the arguments.
%
classdef kml_substyle < kml_object
    properties
    end
    
    methods
        function [kml]=kml_substyle(varargin)

            kml=kml@kml_object(varargin{:});

            switch nargin

%  create a default object

                case 0

%  copy the object or create the object from the input

                otherwise
                    if (nargin == 1) && isa(varargin{1},class(kml))
                        kml=varargin{1};

                    else
                        fnames=fieldnames(kml);

                        for i=length(fieldnames(kml_object()))+1:min(nargin,length(fnames))
                            if isa(varargin{i},class(kml.(fnames{i})))
                                if ~isempty(varargin{i})
                                    kml.(fnames{i})=varargin{i};
                                end
                            else
                                if ~isempty(inputname(i))
                                    warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
                                        inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
                                else
                                    warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
                                        i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
                                end
                            end
                        end
                    end

            end

        end

%  display the object

        function []=disp(kml)

            for i=1:numel(kml)
                if strcmp(class(kml),'kml_substyle')
                    disp(sprintf('class ''%s'' object ''%s%s'' = \n',...
                        class(kml),inputname(1),string_dim(kml,i)));
                end
                disp@kml_object(kml(i));
                if strcmp(class(kml),'kml_substyle')
                    disp(sprintf('\n'));
                end
            end

        end

%  write the object

        function []=kml_write(kml,fid,indent)

           if ~exist('fid','var') || isempty(fid)
               fid=1;
           end
           if ~exist('indent','var') || isempty(indent)
               indent='';
           end

%  loop over the substyles

            for i=1:numel(kml)
                if strcmp(class(kml),'kml_substyle')
                    if ~isempty(kml(i).id)
                        fprintf(fid,'%s<!SubStyle id="%s">\n',indent,kml(i).id);
                    else
                        fprintf(fid,'%s<!SubStyle>\n',indent);
                    end
                end
                kml_write@kml_object(kml(i),fid,indent);
                if strcmp(class(kml),'kml_substyle')
                    fprintf(fid,'%s<!/SubStyle>\n',indent);
                end
            end

        end
        
    end
    
end