Home > m > gui > ltpdv > callbacks > ltpdv_save_objects.m

ltpdv_save_objects

PURPOSE ^

Handles

SYNOPSIS ^

function ltpdv_save_objects(varargin)

DESCRIPTION ^

 Handles

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function ltpdv_save_objects(varargin)
0002 
0003 % Handles
0004 myh     = varargin{1};
0005 mainfig = varargin{end};
0006 
0007 % Get selected objects
0008 objs = ltpdv_get_selected_objs(mainfig);
0009 
0010 % Get filename from user
0011 [filename, pathname] = uiputfile( ...
0012   {'*.mat','MAT-files (*.mat)'; ...
0013   '*.xml','LTPDA-XML-files (*.xml)'}, ...
0014   'Save as')
0015 
0016 
0017 if isequal(filename,0) || isequal(pathname,0)
0018   disp('Cancelled.')
0019 else
0020   fname = fullfile(pathname, filename);
0021   % split filename up
0022   [pathstr, name, ext, vers] = fileparts(fname);
0023   
0024   switch ext
0025     case '.mat'
0026       
0027       save(fname, 'objs');
0028       
0029     case '.xml'
0030       
0031       
0032       % Save each object
0033       for j=1:numel(objs)
0034 
0035         obj = objs{j};
0036         
0037         % filename
0038         fname = fullfile(pathstr, sprintf('%s_%03d%s', name, j, ext));
0039         
0040         % save object
0041         save(obj, fname)
0042 
0043       end
0044 
0045     otherwise
0046       error('### Unsupported file format.');
0047   end
0048   
0049   
0050   
0051 end
0052 
0053 
0054 
0055 
0056 
0057 % END

Generated on Mon 08-Sep-2008 13:18:47 by m2html © 2003