source: trunk/src/xml2struct.m @ 1040

Last change on this file since 1040 was 1027, checked in by g7moreau, 6 years ago
  • Update Copyright 2017 -> 2018
File size: 4.7 KB
RevLine 
[356]1% 'xml2struct': read an xml file as a Matlab structure, converts numeric character strings into numbers
2%-----------------------------------------------------------------------
[686]3% function [s,RootTag,errormsg]=xml2struct(filename,varargin)
[356]4%
5% OUTPUT:
6% s= Matlab structure corresponding to the input xml file
[686]7% RootTag= name of the root tag in the xml file
8% errormsg: errormessage, ='' by default
[356]9%
10% INPUT:
11% filename: name of the xml file
[686]12% varargin: optional list of strings to restrict the reading to a selection of subtrees, for instance 'GeometryCalib' (save reading time)
[356]13
[809]14%=======================================================================
[1027]15% Copyright 2008-2018, LEGI UMR 5519 / CNRS UGA G-INP, Grenoble, France
[930]16
[809]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
[686]33function [s,RootTag,errormsg]=xml2struct(filename,varargin)
[685]34s=[];
[686]35RootTag='';
[685]36errormsg='';
37try
[772]38    t=xmltree(filename);% read the file as an xmltree object t
[685]39catch ME
40    errormsg=ME.message;
[687]41    if ~isempty(regexp(ME.message,'Undefined function'))||~isempty(regexp(ME.message,'Missing'))
[686]42        errormsg=[errormsg ': package xmltree not correctly installed, reload it from www.artefact.tk/software/matlab/xml'];
[685]43    end
44    return
45end
[565]46iline=0;
[685]47
[686]48while isempty(RootTag)
[565]49    iline=iline+1;
50    if strcmp(get(t,iline,'type'),'element')
[686]51        RootTag=get(t,iline,'name');
[565]52    end
53end
[560]54if nargin>1
55    for isub=1:nargin-1
[686]56        uid_sub=find(t,['/' RootTag '/' varargin{isub}]);
[565]57        if isempty(uid_sub)
58            s.(varargin{isub})=[];
59        else
[560]60        tsub=branch(t,uid_sub);
61        ss=convert(tsub);
62        s.(varargin{isub})=convert_string(ss);
[565]63        end
[560]64    end
65else
[997]66    try
[772]67    ss=convert(t);%transform the xmltree object into a Matlab structure.
[560]68    s=convert_string(ss);
[997]69    catch ME
70        errormsg=ME.message;
71    end
[560]72end
[320]73
74
[450]75function out=convert_string(ss)
76info=whos('ss');
[320]77switch info.class
78    case 'struct'
[471]79        out=[];%default
[450]80        names = fieldnames(ss);
[320]81        for k=1:length(names)
[450]82            out.(names{k})=convert_string(ss.(names{k}));
[320]83        end
[663]84    case 'char'
[675]85        % try to convert to number if the char does not correspond to a function (otherwise str2num calls this function as it uses 'eval')
[772]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
[675]88        else
[772]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
[450]100                end
101            end
[320]102        end
[379]103    case 'cell'
[697]104        out={};%default
[477]105        check_numeric=zeros(size(ss));
106        for ilist=1:numel(ss)
[663]107            if ~strcmp(ss{ilist},'image') && ~isempty(str2num(ss{ilist}))
[477]108                out{ilist,1}=str2num(ss{ilist});
109                check_numeric(ilist)=1;
110            else
[472]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
[453]120            end
[379]121        end
[477]122        if isequal(check_numeric,ones(size(ss)))
123            out=cell2mat(out);
124        end
[320]125    otherwise
[450]126        out=ss;
[320]127end
128
[809]129   
Note: See TracBrowser for help on using the repository browser.