source: trunk/src/@xmltree/flush.m @ 811

function tree = flush(tree,uid)
% XMLTREE/FLUSH Flush (Clear a subtree given its UID)
% 
% tree      - XMLTree object
% uid       - array of UID's of subtrees to be cleared
%             Default is root
%_______________________________________________________________________
%
% Clear a subtree given its UID (remove all the leaves of the tree)
% The tree parameter must be in input AND in output
%_______________________________________________________________________
% @(#)flush.m                  Guillaume Flandin               02/04/10

error(nargchk(1,2,nargin));

if nargin == 1,
        uid = root(tree);
end

uid = uid(:);
for i=1:length(uid)
         tree = sub_flush(tree,uid(i));
end

%=======================================================================
function tree = sub_flush(tree,uid)
        if isfield(tree.tree{uid},'contents')
                % contents is parsed in reverse order because each child is
                % deleted and the contents vector is then eventually reduced
                for i=length(tree.tree{uid}.contents):-1:1
                        tree = sub_flush(tree,tree.tree{uid}.contents(i));
                end
        end
        if strcmp(tree.tree{uid}.type,'chardata') |...
                strcmp(tree.tree{uid}.type,'pi') |...
                strcmp(tree.tree{uid}.type,'cdata') |...
                strcmp(tree.tree{uid}.type,'comment')
                tree = delete(tree,uid);
        end