Changeset 925 for trunk/src/@xmltree/flush.m

Timestamp:

Feb 17, 2016, 12:52:48 PM (8 years ago)

Author:

sommeria

Message:

xmltree updated

File:

• trunk/src/@xmltree/flush.m (modified) (1 diff)

trunk/src/@xmltree/flush.m

@@ -5 +5 @@
 % 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
+%__________________________________________________________________________
+% Copyright (C) 2002-2011  http://www.artefact.tk/
 
-error(nargchk(1,2,nargin));
+% Guillaume Flandin
+% $Id: flush.m 4460 2011-09-05 14:52:16Z guillaume $
+
+
+%error(nargchk(1,2,nargin));
 
 if nargin == 1,
-        uid = root(tree);
+    uid = root(tree);
 end
 
 uid = uid(:);
 for i=1:length(uid)
-         tree = sub_flush(tree,uid(i));
+     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
+    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