export2mat

 $Id: export2mat.m,v 1.3 2004/05/21 15:55:02 dalai Exp $
function savedata(filename,saveargs)
 convert cell array to a single string

0001 % $Id: export2mat.m,v 1.3 2004/05/21 15:55:02 dalai Exp $
0002 function [state,warning] = export2mat(matpath,matname,saveargs)
0003 %function savedata(filename,saveargs)
0004 % convert cell array to a single string
0005 if iscellstr(saveargs)
0006     tmpsaveargs = '';
0007     for n = 1:length(saveargs)
0008         tmpsaveargs = [tmpsaveargs ' ' saveargs{n}];
0009     end
0010     saveargs = tmpsaveargs;
0011 end
0012 
0013 filename = [matpath,'/',matname];
0014 
0015 % create string to execute that will save the data
0016 savestr = ['save ' filename ' ' saveargs];
0017 try,
0018     evalin('base',savestr);
0019     state = 0;
0020     warning = matname;
0021 catch,
0022     state = -1;
0023     warning = [matname,' failed'];
0024 end
0025 
0026 
0027 
0028 
0029 
0030 
0031 %  disp(dispconsole('|','exporting ', filename,':','in .mat format','|'));
0032 %  filemat = [filename,'.mat'];
0033 %  save(filemat,varargin{:});
0034 %  disp(dispconsole('|',filemat,':','ok','|'));