setupConstants.m

function [constants, input, exit_stat] = setupConstants(input, ip)
exit_stat = 0;
defaults = ip.UsingDefaults;

constants.exp_start = GetSecs; % record the time the experiment began
constants.device = [];
% Get full path to the directory the function lives in, and add it to the path
constants.root_dir = fileparts(mfilename('fullpath'));
constants.lib_dir = fullfile(constants.root_dir, 'lib');
path(path,constants.root_dir);
path(path, genpath(constants.lib_dir));

% Define the location of some directories we might want to use
% constants.stimDir=fullfile(constants.root_dir,'stimuli');
switch input.responder
    case 'user'
        constants.savePath=fullfile(constants.root_dir,'analyses','data');
    otherwise
        constants.savePath=fullfile(constants.root_dir,'analyses','robo');
end
% instantiate the subject number validator function
subjectValidator = makeSubjectDataChecker(constants.savePath, input.debugLevel);

%% -------- GUI input option ----------------------------------------------------
expose = {'subject'}; % list of arguments to be exposed to the gui
if any(ismember(defaults, expose))
    % call gui for input
    guiInput = getSubjectInfo('subject',...
        struct('title', 'Subject Number', 'type', 'textinput', 'validationFcn', subjectValidator));
    if isempty(guiInput)
        exit_stat = 1;
        return
    else
        input = filterStructs(guiInput, input);
        input.subject = str2double(input.subject);
%         input.subject = input.subject;
    end
else
    [validSubNum, msg] = subjectValidator(input.subject, '.csv', input.debugLevel);
    assert(validSubNum, msg)
end

% now that we have all the input and it has passed validation, we can have
% a file path!
constants.subDir = fullfile(constants.savePath, ['subject', num2str(input.subject)]);
if ~exist(fullfile(constants.subDir), 'dir')
    mkdir(fullfile(constants.subDir));
end
constants.fName = fullfile(constants.subDir,...
    strjoin({'subject', num2str(input.subject)},''));

end


function overwriteCheck = makeSubjectDataChecker(directory, debugLevel)
% makeSubjectDataChecker function closer factory, used for the purpose
% of enclosing the directory where data will be stored. This way, the
% function handle it returns can be used as a validation function with getSubjectInfo to
% prevent accidentally overwritting any data.
    function [valid, msg] = subjectDataChecker(value, ~)
        % the actual validation logic
        
        subnum = str2double(value);
        if (~isnumeric(subnum) || isnan(subnum)) && ~isnumeric(value);
            valid = false;
            msg = 'Subject Number must be greater than 0';
            return
        end
        
        dirPathGlob = fullfile(directory, ['Subject', value]);
        if ~isempty(dir(dirPathGlob)) && debugLevel <= 10 %|| ~isempty(dir(filePathGlobLower)) %
            valid = false;
            msg = strjoin({'Data file for Subject',  value, 'already exists!'}, ' ');
        else
            valid = true;
            msg = 'ok';
        end
    end

overwriteCheck = @subjectDataChecker;
end