export_targz

 $Id: export_targz.m,v 1.10 2004/05/15 22:47:19 dalai Exp $

0001 % $Id: export_targz.m,v 1.10 2004/05/15 22:47:19 dalai Exp $
0002 function [state,filetargz] = export_targz(pref,filename,filemat);
0003 
0004 disp(dispconsole('|',['exporting ' filemat],':','in .tar.gz format','|'));
0005 filetargz = [filename,'.tar.gz'];
0006 [tar_s,tar_w] = unix(['tar -cvzf',' ',pref.dir,'/results/',filetargz,' ',filemat]);
0007 if (tar_s == 0)
0008     disp(dispconsole('|',filetargz,':','ok','|'));
0009 
0010     % remove the .mat file
0011     [rm_s,rm_w] = unix(['rm',' ',filemat]);
0012     disp(dispconsole('|',filemat,':','removed','|'));
0013     state = 0;
0014 else
0015     state =-1;
0016 end
0017