Changeset 450 for trunk/src/struct2xml.m

Timestamp:

Jun 12, 2012, 12:27:42 AM (12 years ago)

Author:

sommeria

Message:

various bugs repaired

File:

• trunk/src/struct2xml.m (modified) (2 diffs)

trunk/src/struct2xml.m

@@ -24 +24 @@
 fieldnames=fields(Object);
 for ilist=1:length(fieldnames)
-   eval(['val=Object.' fieldnames{ilist} ';'])
+   val=Object.(fieldnames{ilist});
    if isstruct(val)
       [t,uid]=add(t,root_uid,'element',fieldnames{ilist});
@@ -60 +60 @@
            end
        end
+ elseif iscell(val)
+      siz=size(val);
+      if length(siz)<=2 %do not translate cell matrices with more than 2 indices
+          separator='   '; %mark the separation of columns
+          for iline=1:siz(1)
+                val_str=cell2mat(cell2tab(val(iline,:),' & ')); % produce a line string with column separator ' & '
+                [t,new_uid]=add(t,uid,'element',key);
+                if siz(1)>1
+                    t = attributes(t,'add',new_uid,'i',num2str(iline));
+                end
+                [t]=add(t,new_uid,'chardata',val_str);
+          end
+      end
  end