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