xExperiment.m

clear;
sca;
clc;

% set running mode
% debugging         - to test script with minimal number of trials
% dummymodeTracker  - to test eyetracker scripts in a dummy mode
% dummymodeLpt      - to test LPT scripts in a dummy mode
% smallscreen       - to test PTB in a smaller window
% smallscreenhome   - to test PTB on a laptop
% gitpush           - to push data commits to remote repo (not-recommended)
runmode                 = {...
    ... 'debugging', ...
    ... 'dummymodeTracker', ...
    ... 'dummymodeLpt', ...
    ... 'smallscreen', ...
    ... 'smallscreenhome', ...
    };

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% NO-EDIT ALLOWED BELOW
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%% set fixed parameters
datarepo                = fullfile('..', 'imat-spc1-data-ptb');
dataremote              = 'mdrive';
commitmsg               = 'add data:';
tasknames               = {};
tasknames.visible       = {...
    'trackersetup', ...  
    'shockcalibration', ...
    'task01-asso', ...
    'task02-con', ...
    'task03-inf', ...
    'task04-afc', ...
    };
tasknames.storage       = {...
    'trackersetup', ...
    'shockcalibration', ...
    'task01', ...
    'task02', ...
    'task03', ...
    'task04', ...
    };


%% check matlab version
VER = version('-release');
if ~any(strcmp(VER, {'2017b', '2022a'}))
    fprintf('Wrong matlab version!\n');
    fprintf('Switch to matlab 2017b\n');
    return
end

%% check if remote repo is available
[status, ~] = system(sprintf('git -C %s ls-remote', datarepo));
if  status ~= 0 && ~isempty(find(strcmp(runmode, 'gitpush'),1))
    fprintf('Cannot connect to remote data repo...\n');
    cleanup;
    return
end

%% select task
[ status, indx ]        = runlistdlg( tasknames.visible );
if status ~= 0
    cleanup;
    return;
end
taskname                = tasknames.storage{indx};

%% ask for eyetracker
if ismember(taskname, {'task01', 'task02', 'task03'})
    answer = questdlg('Do you want to use eyetracker?', ...
        'Eyetracker', ...
        'Yes', 'No', 'Yes');
    switch answer
        case 'No'
            runmode{end+1} = 'dummymodeTracker';
    end
end

%% test the tracker or run shock calibration
switch taskname
    case 'trackersetup'
        trackersetup( runmode );
        return
    case 'shockcalibration'
        calibShocks( runmode );
        return
end

%% read in subject id
[ status, subjid ]      = readinsubjid();
if status ~= 0
    cleanup;
    return;
end
%% init log parameters
[ logpars ]             = initlogpars( subjid, taskname, ...
    datarepo, dataremote, commitmsg, ...
    runmode);

%% check if there are some uncommited data
commitmsg = sprintf('add data outside ptb');
gitcommitdata(logpars.datarepo, commitmsg, logpars.dataremote, 'gitpush', logpars.gitpush);

%% init ptb log
timeStamp = datestr( now(),'yyyy-mm-dd_HH-MM-SS' );
ptlogfile = fullfile(logpars.subjdir, ...
    sprintf('%s_ptb_log.txt', logpars.taskname));
if exist(ptlogfile, 'file') == 2
    delete(ptlogfile);
end
diary(ptlogfile);

%% save logpars
fprintf('Initialising experiment...\n\n');


%% init LPT port
if all([logpars.dummymodeLpt, logpars.parallelmodeLpt])
    [ status, LPT ]     = initlpt('dummy', 'parallel');
elseif logpars.dummymodeLpt
    [ status, LPT ]     = initlpt('dummy');
elseif logpars.parallelmodeLpt
    [ status, LPT ]     = initlpt('parallel');
else
    [ status, LPT ]     = initlpt();
end
if status ~= 0
    cleanup('LPT', LPT);
    return;
end

%% init tracker
if logpars.dummymodeTracker
    [ status, EThndl, trackerSettings ]  = inittracker( logpars.bgclr, logpars.nPoint, 'dummy' );
else
    [ status, EThndl, trackerSettings ]  = inittracker( logpars.bgclr, logpars.nPoint );
end
if status ~= 0
    cleanup('LPT', LPT, 'ET', EThndl);
    return
end

% save eyetracker setting
save(logpars.etfilename, getname(trackerSettings));

%% open PTB
if logpars.smallscreen == 1
    [ PTB ]             = openPTB( logpars.bgclr, 'smallscreen' );
elseif logpars.smallscreen == 2
    [ PTB ]             = openPTB( logpars.bgclr, 'smallscreenhome' );
else
    [ PTB ]             = openPTB( logpars.bgclr );
end

%% run the experiment
try
    switch taskname
        case 'task01'
            task01( logpars,PTB,EThndl,LPT );
        case 'task02'
            task02( logpars,PTB,EThndl,LPT );
        case 'task03'
            task03( logpars,PTB,EThndl,LPT );
        case 'task04'
            task04( logpars,PTB,LPT );
    end
catch ME
    fprintf('\n\n')
    fprintf('Error...\n')
    fprintf('Catching data...\n')
    % save tracker data
    LPT.sendMarker(254);
    EThndl.saveData(fullfile(cd,sprintf('%s_catch', logpars.idffilename)), logpars.subjid, logpars.taskname, true);
    disp(ME.getReport);
    cleanup('LPT', LPT, 'ET', EThndl);
    % commit data
    commitmsg = sprintf('catch data: subject %s %s', ...
        logpars.subjid, logpars.taskname);
    gitcommitdata(logpars.datarepo, commitmsg, logpars.dataremote, 'gitpush', logpars.gitpush);
    rethrow(ME);
end

%% Clean
cleanup('LPT', LPT, 'ET', EThndl);

%% commit data
gitcommitdata(logpars.datarepo, logpars.commitmsg, logpars.dataremote, 'gitpush', logpars.gitpush);