xmlsave.m

Go to the documentation of this file.

function xmlsave( fileName, SData, varargin)
import mxberry.xml.*;
import mxberry.core.throwerror;
import mxberry.core.check.checkgen;
import mxberry.core.check.lib.isstring;
%
checkgen(fileName,'isstring(x)');
if nargin<2
    throwerror('wrongInput','SData is an obligatory input argument');
end
%
[reg,~,isTsInserted]=mxberry.core.parseparext(varargin,...
    {'insertTimestamp';true;'islogical(x)&isscalar(x)'},[0 2],...
    'regDefList',{'on',struct()},...
    'regCheckList',...
    {@(x)isstring(x)&&ismember(x,{'on','off','forceon'}),...
    @(x)isstruct(x)&&isscalar(x)&&all(structfun(@ischar,x))});
%
attSwitch=reg{1};
SMetaData=reg{2};
%
if isempty(strfind(lower(fileName),'.xml'))
    fileName = strcat(fileName, '.xml');
end
%
[fid,errMsg] = fopen(fileName, 'w');
if fid==-1
    throwerror('wrongInput:badFile',...
        'Failed to open file %s for writing: %s',fileName,errMsg);
end
%
fprintf(fid, '<?xml version="1.0"?>\n');
%
if isTsInserted
    fprintf(fid, sprintf('<!-- written on %s -->\n', datestr(now)));
end
%
try
    fprintf(fid, '%s', xmlformat(SData, attSwitch,'root',0,SMetaData));
    fclose(fid);
catch meObj
    fclose(fid);
    rethrow(meObj);
end