% ARTS   Call ARTS 
%
%    Calls ARTS where path to executable and verbosity are taken from personal
%    settings. That is, the settings ARTS_PATH and 
%    FMODEL_VERBOSITY are used (see futher*atmlab*).
%
%    Note that Matlab allows a call as
%        arts -h;
%    which can be usefull when working in Matlab and you want to use the
%    on-line documentation of ARTS. If your call needs an argument, put
%    all inside a string, as:
%       arts '-w all';
%
% FORMAT   [status,result] = arts( cfile [,errortol,noecho] )
%        
% OUT   status     Status returned by ARTS. Is 0 if all OK.
%       result     String containing messages to standard output.
% IN    cfile      Name on control file, or OK command line option such as
%                  '-h'.
% OPT   errortol   Flag to tolerate error. If set to 0, an ARTS error gives
%                  rise also to a Matlab error. Default is 0.
%       noecho     Flag to suppress screen output. Default is false.

% 2004-09-07   Created by Patrick Eriksson.

function [status,result] = arts(cfile,varargin)
%
[errortol,noecho] = optargs( varargin, { 0, false } );
                                                                

atmlab( 'require', {'ARTS_PATH','FMODEL_VERBOSITY'} );           %&%

exec   = atmlab( 'ARTS_PATH' );
rlevel = atmlab( 'FMODEL_VERBOSITY' );
                                                                 %&%
if isempty( exec )                                               %&%
  error('Path to ARTS executable must be a string.');            %&%
end                                                              %&%
if isempty( rlevel )                                             %&%
  rlevel = 0;                                                    %&%
end                                                              %&%

outdir = fileparts( cfile );

if noecho
  if isempty( outdir )
    [status,result] = system( ...
                       sprintf('%s -r%d0 %s', exec, rlevel, cfile ) );
  else
    [status,result] = system( ...
         sprintf('%s -r%d0 -o %s %s', exec, rlevel, outdir, cfile ) );
  end  
else
  if isempty( outdir )
    [status,result] = system( ...
                       sprintf('%s -r%d0 %s', exec, rlevel, cfile ), '-echo' );
  else
    [status,result] = system( ...
         sprintf('%s -r%d0 -o %s %s', exec, rlevel, outdir, cfile ), '-echo' );
  end
end


if status  &  ~errortol
  %disp( result )
  fprintf('\n');
  error('An error occured while executing ARTS. See above.')
end