0001 function xml = xmladd(hs, xml, nodename, node)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011 el = xml.docNode.createElement(nodename);
0012
0013 for j=1:length(hs)
0014 h = hs(j);
0015
0016 elc = xml.docNode.createElement('history');
0017
0018
0019
0020
0021 elcc = xml.docNode.createElement('name');
0022 elcc.appendChild(xml.docNode.createTextNode(get(h, 'name')));
0023 elc.appendChild(elcc);
0024
0025
0026 elcc = xml.docNode.createElement('version');
0027 elcc.appendChild(xml.docNode.createTextNode(get(h, 'version')));
0028 elc.appendChild(elcc);
0029
0030
0031 xml = xmladd(get(h, 'created'), xml, 'created', elc);
0032
0033
0034 elcc = xml.docNode.createElement('n');
0035 elcc.appendChild(xml.docNode.createTextNode(ltpda_mat2str(get(h, 'n'))));
0036 elc.appendChild(elcc);
0037
0038
0039 elcc = xml.docNode.createElement('pn');
0040 elcc.appendChild(xml.docNode.createTextNode(ltpda_mat2str(get(h, 'pn'))));
0041 elc.appendChild(elcc);
0042
0043
0044 elcc = xml.docNode.createElement('consver');
0045 elcc.appendChild(xml.docNode.createTextNode(get(h, 'consver')));
0046 elc.appendChild(elcc);
0047
0048
0049 elcc = xml.docNode.createElement('invars');
0050 invars = get(h, 'invars');
0051 istr = '';
0052 for jj=1:length(invars)
0053 istr = [istr ' ' invars{jj}];
0054 end
0055 elcc.appendChild(xml.docNode.createTextNode(istr));
0056 elc.appendChild(elcc);
0057
0058
0059 pl = get(h, 'plist');
0060 if ~isempty(pl)
0061 xml = xmladd(pl, xml, 'plist', elc);
0062 end
0063
0064
0065 ih = get(h, 'inhists');
0066 if ~isempty(ih)
0067 xml = xmladd(ih, xml, 'inhists', elc);
0068 end
0069
0070 el.appendChild(elc);
0071 end
0072 node.appendChild(el);
0073
0074
0075
0076