Home > m > helper > ltpda_saveobj.m

ltpda_saveobj

PURPOSE ^

SAVEOBJ saves an object to a file.

SYNOPSIS ^

function saveobj(a, pl)

DESCRIPTION ^

 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

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

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

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