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

Timestamp:

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

Author:

sommeria

Message:

xmltree updated

File:

• trunk/src/@xmltree/branch.m (modified) (2 diffs)

trunk/src/@xmltree/branch.m

@@ -6 +6 @@
 % uid     - UID of the root element of the subtree
 % subtree - XMLTree object (a subtree from tree)
-%_______________________________________________________________________
+%__________________________________________________________________________
 %
 % Return a subtree from a tree.
-%_______________________________________________________________________
-% @(#)branch.m                  Guillaume Flandin              02/04/17
+%__________________________________________________________________________
+% Copyright (C) 2002-2011  http://www.artefact.tk/
 
-error(nargchk(2,2,nargin));
+% Guillaume Flandin
+% $Id: branch.m 4460 2011-09-05 14:52:16Z guillaume $
 
-if uid > length(tree) | ...
-   prod(size(uid))~=1 | ...
+
+%error(nargchk(2,2,nargin));
+
+if uid > length(tree) || ...
+   numel(uid)~=1 || ...
    ~strcmp(tree.tree{uid}.type,'element')
-        error('[XMLTree] Invalid UID.');
+    error('[XMLTree] Invalid UID.');
 end
 
@@ -28 +32 @@
 
 for i=1:length(child)
-        l = length(subtree);
-        subtree = sub_branch(tree,subtree,child(i),root(subtree));
-        subtree.tree{root(subtree)}.contents = [subtree.tree{root(subtree)}.contents l+1];
+    l = length(subtree);
+    subtree = sub_branch(tree,subtree,child(i),root(subtree));
+    subtree.tree{root(subtree)}.contents = [subtree.tree{root(subtree)}.contents l+1];
 end
 
-%=======================================================================
+%==========================================================================
 function tree = sub_branch(t,tree,uid,p)
 
-        l = length(tree);
-        tree.tree{l+1} = t.tree{uid};
-        tree.tree{l+1}.uid = l + 1;
-        tree.tree{l+1}.parent = p;
-        tree.tree{l+1}.contents = [];
-        if isfield(t.tree{uid},'contents')
-                contents = get(t,uid,'contents');
-                m = length(tree);
-                for i=1:length(contents)
-                        tree.tree{l+1}.contents = [tree.tree{l+1}.contents m+1];
-                        tree = sub_branch(t,tree,contents(i),l+1);
-                        m = length(tree);
-                end
-        end
+    l = length(tree);
+    tree.tree{l+1} = t.tree{uid};
+    tree.tree{l+1}.uid = l + 1;
+    tree.tree{l+1}.parent = p;
+    tree.tree{l+1}.contents = [];
+    if isfield(t.tree{uid},'contents')
+        contents = get(t,uid,'contents');
+        m = length(tree);
+        for i=1:length(contents)
+            tree.tree{l+1}.contents = [tree.tree{l+1}.contents m+1];
+            tree = sub_branch(t,tree,contents(i),l+1);
+            m = length(tree);
+        end
+    end