Home > classes > @history > xmladd.m

xmladd

PURPOSE ^

XMLADD add an history object to the given node of the input XML DOM

SYNOPSIS ^

function xml = xmladd(hs, xml, nodename, node)

DESCRIPTION ^

 XMLADD add an history object to the given node of the input XML DOM
 object.

 M Hewitson 14-02-07

 $Id: xml_add_hist.m,v 1.6 2007/07/30 12:13:10 ingo Exp $

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function xml = xmladd(hs, xml, nodename, node)
0002 
0003 % XMLADD add an history object to the given node of the input XML DOM
0004 % object.
0005 %
0006 % M Hewitson 14-02-07
0007 %
0008 % $Id: xml_add_hist.m,v 1.6 2007/07/30 12:13:10 ingo Exp $
0009 %
0010 
0011 el = xml.docNode.createElement(nodename);
0012 
0013 for j=1:length(hs)
0014   h = hs(j);
0015   % Now add object
0016   elc = xml.docNode.createElement('history');
0017 
0018   %--- add myself first
0019 
0020   % add name
0021   elcc = xml.docNode.createElement('name');
0022   elcc.appendChild(xml.docNode.createTextNode(get(h, 'name')));
0023   elc.appendChild(elcc);
0024 
0025   % add version
0026   elcc = xml.docNode.createElement('version');
0027   elcc.appendChild(xml.docNode.createTextNode(get(h, 'version')));
0028   elc.appendChild(elcc);
0029 
0030   % add created
0031   xml = xmladd(get(h, 'created'), xml, 'created', elc);
0032 
0033   % add n
0034   elcc = xml.docNode.createElement('n');
0035   elcc.appendChild(xml.docNode.createTextNode(ltpda_mat2str(get(h, 'n'))));
0036   elc.appendChild(elcc);
0037 
0038   % add pn
0039   elcc = xml.docNode.createElement('pn');
0040   elcc.appendChild(xml.docNode.createTextNode(ltpda_mat2str(get(h, 'pn'))));
0041   elc.appendChild(elcc);
0042 
0043   % add consver
0044   elcc = xml.docNode.createElement('consver');
0045   elcc.appendChild(xml.docNode.createTextNode(get(h, 'consver')));
0046   elc.appendChild(elcc);
0047 
0048   % add invars
0049   elcc = xml.docNode.createElement('invars');
0050   invars = get(h, 'invars');
0051   istr = '';
0052   for j=1:length(invars)
0053     istr = [istr ' ' invars{j}];
0054   end
0055   elcc.appendChild(xml.docNode.createTextNode(istr));
0056   elc.appendChild(elcc);
0057 
0058   % add plist
0059   pl = get(h, 'plist');
0060   if ~isempty(pl)
0061     xml = xmladd(pl, xml, 'plist', elc);
0062   end
0063 
0064   % add inhists
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 % END

Generated on Mon 03-Sep-2007 12:12:34 by m2html © 2003