1 | % 'xml2struct': read an xml file as a Matlab structure, converts numeric character strings into numbers |
---|
2 | %----------------------------------------------------------------------- |
---|
3 | % function s=xml2struct(filename) |
---|
4 | % |
---|
5 | % OUTPUT: |
---|
6 | % s= Matlab structure corresponding to the input xml file |
---|
7 | % |
---|
8 | % INPUT: |
---|
9 | % filename: name of the xml file |
---|
10 | % varargin: optional list of strings to restrict the reading to a selection of subtrees, for instance 'GeometryCalib' (save time) |
---|
11 | |
---|
12 | function [s,Heading]=xml2struct(filename,varargin) |
---|
13 | t=xmltree(filename); |
---|
14 | iline=0; |
---|
15 | Heading=''; |
---|
16 | while isempty(Heading) |
---|
17 | iline=iline+1; |
---|
18 | if strcmp(get(t,iline,'type'),'element') |
---|
19 | Heading=get(t,iline,'name'); |
---|
20 | end |
---|
21 | end |
---|
22 | if nargin>1 |
---|
23 | for isub=1:nargin-1 |
---|
24 | uid_sub=find(t,['/' Heading '/' varargin{isub}]); |
---|
25 | if isempty(uid_sub) |
---|
26 | s.(varargin{isub})=[]; |
---|
27 | else |
---|
28 | tsub=branch(t,uid_sub); |
---|
29 | ss=convert(tsub); |
---|
30 | s.(varargin{isub})=convert_string(ss); |
---|
31 | end |
---|
32 | end |
---|
33 | else |
---|
34 | ss=convert(t); |
---|
35 | s=convert_string(ss); |
---|
36 | end |
---|
37 | |
---|
38 | |
---|
39 | function out=convert_string(ss) |
---|
40 | info=whos('ss'); |
---|
41 | switch info.class |
---|
42 | case 'struct' |
---|
43 | out=[];%default |
---|
44 | names = fieldnames(ss); |
---|
45 | for k=1:length(names) |
---|
46 | out.(names{k})=convert_string(ss.(names{k})); |
---|
47 | end |
---|
48 | case 'char' |
---|
49 | out=ss; %reproduce the input string |
---|
50 | if ~strcmp(ss,'image')% bug with Matlab str2num('image')-> child face |
---|
51 | out=str2num(ss); |
---|
52 | %if isempty(regexp(ss,'^(-*\d+\.*\d*\ *)+$'))% if the string does not contain a set of numbers (with possible sign and decimal) separated by blanks |
---|
53 | if isempty(out) |
---|
54 | sep_ind=regexp(ss,'\s&\s');% check for separator ' & ' which indicates column separation in tables |
---|
55 | if ~isempty(sep_ind) |
---|
56 | sep_ind=[-2 sep_ind length(ss)+1]; |
---|
57 | for icolumn=1:length(sep_ind)-1 |
---|
58 | out{1,icolumn}=ss(sep_ind(icolumn)+3:sep_ind(icolumn+1)-1); |
---|
59 | end |
---|
60 | else |
---|
61 | out=ss; %reproduce the input string |
---|
62 | end |
---|
63 | end |
---|
64 | end |
---|
65 | case 'cell' |
---|
66 | out=[];%default |
---|
67 | check_numeric=zeros(size(ss)); |
---|
68 | for ilist=1:numel(ss) |
---|
69 | if ~strcmp(ss{ilist},'image') && ~isempty(str2num(ss{ilist})) |
---|
70 | out{ilist,1}=str2num(ss{ilist}); |
---|
71 | check_numeric(ilist)=1; |
---|
72 | else |
---|
73 | sep_ind=regexp(ss{ilist},'\s&\s');% check for separator ' & ' which indicates column separation in tables |
---|
74 | if ~isempty(sep_ind) |
---|
75 | sep_ind=[-2 sep_ind length(ss{ilist})+1]; |
---|
76 | for icolumn=1:length(sep_ind)-1 |
---|
77 | out{ilist,icolumn}=ss{ilist}(sep_ind(icolumn)+3:sep_ind(icolumn+1)-1); |
---|
78 | end |
---|
79 | else |
---|
80 | out{ilist,1}=ss{ilist}; %reproduce the input string |
---|
81 | end |
---|
82 | end |
---|
83 | end |
---|
84 | if isequal(check_numeric,ones(size(ss))) |
---|
85 | out=cell2mat(out); |
---|
86 | end |
---|
87 | otherwise |
---|
88 | out=ss; |
---|
89 | end |
---|
90 | |
---|
91 | |
---|