% DELETE_TMPFOLDER   Removes folders in the work area.
%
%    The function removes a folder in the folder set as work area in
%    *atmlab*. See CONFIGURE for information about *atmlab*. A work area 
%    is a required setting. Only folders in the work area are removed for
%    safety reasons.
%
%    No good and safe way to use the Matlab delete function has been found,
%    and platforms specific commands are used. So far, only Unix type
%    platforms are handled.
%
% FORMAT   delete_tmpfolder(tmpfolder)
%
% IN       tmpfolder   Full path of folder to remove. 

% 2002-12-20  Created by Patrick Eriksson, based on older version
%             in AMI (part of arts-1).


function delete_tmpfolder(tmpfolder)


%=== Require that a work area is set as a personal setting
%
workarea = atmlab_get( 'WORK_AREA', 1 );


if ~strncmp( workarea, tmpfolder, length(workarea) )
  error('The given directory is not inside the work area.');
end


%=== The Matlab delete function was tested but no good and secury solution 
%=== could be found and system commands are used instead.
%
if isunix
  eval([ '!rm -r ', tmpfolder ])
else
  error('Unknown computer type.');
end