var2tgz

 $Id: var2tgz.m,v 1.2 2004/05/20 04:52:41 dalai Exp $

0001 % $Id: var2tgz.m,v 1.2 2004/05/20 04:52:41 dalai Exp $
0002 
0003 function [state,warning,tarname] = var2tgz(filename,tar_folder,tmp_folder,data)
0004 
0005 tarname = [filename,'.tar.gz'];
0006 tarpath = [tar_folder,'/',tarname];
0007 matname = [filename,'.mat'];
0008 matpath = [tmp_folder,'/',matname];
0009 
0010 disp(dispconsole('|',['exporting ' filename],':','in .mat format','|'));
0011 savedata(matpath,data);
0012 
0013 tar_cmd = ['cd ',tmp_folder,';','tar -cvzf',' ',tarpath,' ',matname];
0014 disp(dispconsole('|',['exporting ' matname],':','in .tar.gz format','|'));
0015 [s_tar,w_tar] = unix(tar_cmd);
0016 if (s_tar == 0)
0017     disp(dispconsole('|',tarname,':','ok','|'));
0018     % remove the .mat file
0019     disp(dispconsole('|',matname,':','removing','|'));
0020     [s_rm,w_rm] = unix(['rm ',matpath]);
0021     if ( s_rm == 0)
0022         disp(dispconsole('|',matname,':','removed','|'));
0023         state = 0;
0024         warning = 'pb';
0025     else
0026         disp(dispconsole('|',matname,':','error removing','|'));
0027         state = -1;
0028         warning = 'pb';
0029     end
0030 else
0031     disp(dispconsole('|',tarname,':','failed','|'));    
0032     state = -1;
0033     warning = 'targz failure';
0034 end
0035