pspm_rev_con.m

function varargout = pspm_rev_con(model)
% ● Description
%   pspm_rev_con is a tool for reviewing contrasts of first level models
% ● Format
%   fighandle = pspm_rev_con(modelfile)
% ● Arguments
%   modelfile: filename and path of modelfile
% ● History
%   Introduced in PsPM 3.0
%   Written in 2008-2015 by Dominik R Bach (UZH, WTCN)

%% Initialise
global settings
if isempty(settings)
  pspm_init;
end
sts = -1;
fighandle = [];
switch nargout
  case 1
    varargout{1} = fighandle;
  case 2
    varargout{1} = sts;
    varargout{2} = fighandle;
end

% check input
% ------------------------------------------------------------------------
if nargin < 1, return;
elseif ~isfield(model, 'con')
  fprintf('No contrasts contained in model.\n');
  return;
end;

% print contrast names to screen
% ------------------------------------------------------------------------
fprintf('Contrast names for %s:\n---------------------------------------\n', model.modelfile);
for n=1:numel(model.con)
  fprintf('Contrast %d: %s\n',n,model.con(n).name);
end;
fprintf('---------------------------------------\n');

sts = 1;
switch nargout
  case 1
    varargout{1} = fighandle;
  case 2
    varargout{1} = sts;
    varargout{2} = fighandle;
end
return