SAVEOBJ saves an object to a file. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DESCRIPTION: SAVEOBJ saves an object to a file. CALL: saveobj(obj, pl) INPUTS: obj - an object (for example, an AO) pl - parameter list with a 'filename' parameter OUTPUTS: VERSION: $Id: strpad.m,v 1.2 2007/07/13 12:17:39 ingo Exp $ HISTORY: 28-08-2007 M Hewitson Creation %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001 function saveobj(a, pl) 0002 0003 % SAVEOBJ saves an object to a file. 0004 % 0005 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0006 % 0007 % DESCRIPTION: SAVEOBJ saves an object to a file. 0008 % 0009 % CALL: saveobj(obj, pl) 0010 % 0011 % INPUTS: obj - an object (for example, an AO) 0012 % pl - parameter list with a 'filename' parameter 0013 % 0014 % OUTPUTS: 0015 % 0016 % VERSION: $Id: strpad.m,v 1.2 2007/07/13 12:17:39 ingo Exp $ 0017 % 0018 % HISTORY: 28-08-2007 M Hewitson 0019 % Creation 0020 % 0021 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0022 0023 0024 % get filename 0025 filename = find(pl, 'filename'); 0026 0027 % Inspect filename 0028 [path,name,ext,vers] = fileparts(filename); 0029 0030 switch ext 0031 case '.mat' 0032 0033 save(filename, 'a'); 0034 0035 case '.xml' 0036 0037 % convert object to xml 0038 x = xml(a); 0039 % Save the XML document. 0040 xmlwrite(filename,x.docNode); 0041 0042 otherwise 0043 error('### unknown file extension.'); 0044 end 0045