1 | % 'xml2struct': read an xml file as a Matlab structure, converts numeric character strings into numbers |
---|
2 | %----------------------------------------------------------------------- |
---|
3 | % function [s,RootTag,errormsg]=xml2struct(filename,varargin) |
---|
4 | % |
---|
5 | % OUTPUT: |
---|
6 | % s= Matlab structure corresponding to the input xml file |
---|
7 | % RootTag= name of the root tag in the xml file |
---|
8 | % errormsg: errormessage, ='' by default |
---|
9 | % |
---|
10 | % INPUT: |
---|
11 | % filename: name of the xml file |
---|
12 | % varargin: optional list of strings to restrict the reading to a selection of subtrees, for instance 'GeometryCalib' (save reading time) |
---|
13 | |
---|
14 | %======================================================================= |
---|
15 | % Copyright 2008-2016, LEGI UMR 5519 / CNRS UGA G-INP, Grenoble, France |
---|
16 | % http://www.legi.grenoble-inp.fr |
---|
17 | % Joel.Sommeria - Joel.Sommeria (A) legi.cnrs.fr |
---|
18 | % |
---|
19 | % This file is part of the toolbox UVMAT. |
---|
20 | % |
---|
21 | % UVMAT is free software; you can redistribute it and/or modify |
---|
22 | % it under the terms of the GNU General Public License as published |
---|
23 | % by the Free Software Foundation; either version 2 of the license, |
---|
24 | % or (at your option) any later version. |
---|
25 | % |
---|
26 | % UVMAT is distributed in the hope that it will be useful, |
---|
27 | % but WITHOUT ANY WARRANTY; without even the implied warranty of |
---|
28 | % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
---|
29 | % GNU General Public License (see LICENSE.txt) for more details. |
---|
30 | %======================================================================= |
---|
31 | |
---|
32 | function [s,RootTag,errormsg]=xml2struct(filename,varargin) |
---|
33 | s=[]; |
---|
34 | RootTag=''; |
---|
35 | errormsg=''; |
---|
36 | try |
---|
37 | t=xmltree(filename);% read the file as an xmltree object t |
---|
38 | catch ME |
---|
39 | errormsg=ME.message; |
---|
40 | if ~isempty(regexp(ME.message,'Undefined function'))||~isempty(regexp(ME.message,'Missing')) |
---|
41 | errormsg=[errormsg ': package xmltree not correctly installed, reload it from www.artefact.tk/software/matlab/xml']; |
---|
42 | end |
---|
43 | return |
---|
44 | end |
---|
45 | iline=0; |
---|
46 | |
---|
47 | while isempty(RootTag) |
---|
48 | iline=iline+1; |
---|
49 | if strcmp(get(t,iline,'type'),'element') |
---|
50 | RootTag=get(t,iline,'name'); |
---|
51 | end |
---|
52 | end |
---|
53 | if nargin>1 |
---|
54 | for isub=1:nargin-1 |
---|
55 | uid_sub=find(t,['/' RootTag '/' varargin{isub}]); |
---|
56 | if isempty(uid_sub) |
---|
57 | s.(varargin{isub})=[]; |
---|
58 | else |
---|
59 | tsub=branch(t,uid_sub); |
---|
60 | ss=convert(tsub); |
---|
61 | s.(varargin{isub})=convert_string(ss); |
---|
62 | end |
---|
63 | end |
---|
64 | else |
---|
65 | ss=convert(t);%transform the xmltree object into a Matlab structure. |
---|
66 | s=convert_string(ss); |
---|
67 | end |
---|
68 | |
---|
69 | |
---|
70 | function out=convert_string(ss) |
---|
71 | info=whos('ss'); |
---|
72 | switch info.class |
---|
73 | case 'struct' |
---|
74 | out=[];%default |
---|
75 | names = fieldnames(ss); |
---|
76 | for k=1:length(names) |
---|
77 | out.(names{k})=convert_string(ss.(names{k})); |
---|
78 | end |
---|
79 | case 'char' |
---|
80 | % try to convert to number if the char does not correspond to a function (otherwise str2num calls this function as it uses 'eval') |
---|
81 | if exist(ss,'builtin')||exist(ss,'file')% ss corresponds to the name of a builtin Matlab function or a file |
---|
82 | out=ss; %reproduce the input string |
---|
83 | else |
---|
84 | out=str2num(ss);% convert to number or vector (str2num applied to a fct name executes this fct by 'eval', thus this possibility had to be ruled out above |
---|
85 | if isempty(out) |
---|
86 | sep_ind=regexp(ss,'\s&\s');% check for separator ' & ' which indicates column separation in tables |
---|
87 | if ~isempty(sep_ind) |
---|
88 | sep_ind=[-2 sep_ind length(ss)+1]; |
---|
89 | out={}; |
---|
90 | for icolumn=1:length(sep_ind)-1 |
---|
91 | out{1,icolumn}=ss(sep_ind(icolumn)+3:sep_ind(icolumn+1)-1);% get info between separators as a cell array |
---|
92 | end |
---|
93 | else |
---|
94 | out=ss; %reproduce the input string |
---|
95 | end |
---|
96 | end |
---|
97 | end |
---|
98 | case 'cell' |
---|
99 | out={};%default |
---|
100 | check_numeric=zeros(size(ss)); |
---|
101 | for ilist=1:numel(ss) |
---|
102 | if ~strcmp(ss{ilist},'image') && ~isempty(str2num(ss{ilist})) |
---|
103 | out{ilist,1}=str2num(ss{ilist}); |
---|
104 | check_numeric(ilist)=1; |
---|
105 | else |
---|
106 | sep_ind=regexp(ss{ilist},'\s&\s');% check for separator ' & ' which indicates column separation in tables |
---|
107 | if ~isempty(sep_ind) |
---|
108 | sep_ind=[-2 sep_ind length(ss{ilist})+1]; |
---|
109 | for icolumn=1:length(sep_ind)-1 |
---|
110 | out{ilist,icolumn}=ss{ilist}(sep_ind(icolumn)+3:sep_ind(icolumn+1)-1); |
---|
111 | end |
---|
112 | else |
---|
113 | out{ilist,1}=ss{ilist}; %reproduce the input string |
---|
114 | end |
---|
115 | end |
---|
116 | end |
---|
117 | if isequal(check_numeric,ones(size(ss))) |
---|
118 | out=cell2mat(out); |
---|
119 | end |
---|
120 | otherwise |
---|
121 | out=ss; |
---|
122 | end |
---|
123 | |
---|
124 | |
---|