source: trunk/src/@xmltree/delete.m @ 728

function tree = delete(tree,uid)
% XMLTREE/DELETE Delete (delete a subtree given its UID)
% 
% tree      - XMLTree object
% uid       - array of UID's of subtrees to be deleted
%_______________________________________________________________________
%
% Delete a subtree given its UID
% The tree parameter must be in input AND in output
%_______________________________________________________________________
% @(#)delete.m                 Guillaume Flandin               02/04/08

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

uid = uid(:);
for i=1:length(uid)
        if uid(i)==1
                warning('[XMLTree] Cannot delete root element.');
        else
                p = tree.tree{uid(i)}.parent;
                tree = sub_delete(tree,uid(i));
                tree.tree{p}.contents(find(tree.tree{p}.contents==uid(i))) = [];
        end
end

%=======================================================================
function tree = sub_delete(tree,uid)
        if isfield(tree.tree{uid},'contents')
                for i=1:length(tree.tree{uid}.contents)
                        tree = sub_delete(tree,tree.tree{uid}.contents(i));
                end
        end
        tree.tree{uid} = struct('type','deleted');