Homec4science
Diffusion Instrument Control (TekRSA-Freq-vs-Time) Browse

rINSTCONTROL/Utility functions/Local settings utilities/getLocalPrograms.m
074d1c9847f7TekRSA-Freq-vs-Time

Last Change
Raw File

getLocalPrograms.m
View Options

function ProgList = getLocalPrograms()
% [run files, instruments, loggers]
ProgList = struct( ...
'name', {}, ...
'title', {}, ... % Display title
'info', {}, ...
'type', {}, ... % runfile/instrument/logger
'run_expr', {}, ... % Expression to run
'run_bg_expr', {} ... % Expression to run without GUI
);
RunFiles = readRunFiles();
% Add entries, automatically generated from the InstrumentList
InstrumentList = getLocalSettings('InstrumentList');
instr_names = fieldnames(InstrumentList);
j = 1; % Counter for the program list
for i = 1:length(instr_names)
% If a run file for instrument was not specified explicitly and if
% all the required fields in InstrList are filled, generate a new
% entry.
nm = instr_names{i};
if ismember(nm, {RunFiles.name})
continue
end
if isempty(InstrumentList.(nm).control_class)
continue
end
ProgList(j).name = nm;
ProgList(j).title = nm;
ProgList(j).type = 'instrument';
ProgList(j).info = ['% This entry is automatically generated ' ...
'from InstrumentList'];
ProgList(j).run_bg_expr = sprintf('runInstrument(''%s'');', nm);
if ~isempty(InstrumentList.(nm).gui)
% Add command for running the instrument with gui
ProgList(j).run_expr = ...
sprintf('runInstrumentWithGui(''%s'');', nm);
end
j = j+1;
if ismethod(InstrumentList.(nm).control_class, 'createLogger')
% Add entry for starting a logger with this instrument
ProgList(j) = struct( ...
'name', [nm 'Logger'], ...
'title', [nm 'Logger'], ...
'info', ['% This entry is automatically ' ...
'generated from InstrumentList'], ...
'type', 'logger', ...
'run_expr', ['runLogger(' nm ');'], ...
'run_bg_expr', '' ...
);
j = j+1;
end
end
ProgList = [RunFiles, ProgList];
end
%% Subroutines
% Read all the files which names start from 'run' from the local base
% directory and add entries, automatically generated from InstrumentList
function RunFiles = readRunFiles(dir)
if ~exist('dir', 'var')
% Search in the local base directory if directory name is not
% supplied explicitly
dir = getLocalBaseDir();
end
% Find all the names of .m files that start with 'run'
all_names = what(dir);
is_run = startsWith(all_names.m, 'run', 'IgnoreCase', false);
run_names = all_names.m(is_run);
RunFiles = struct( ...
'name', {}, ...
'title', {}, ... % Display title
'info', {}, ...
'type', {}, ... % runfile/instrument/logger
'run_expr', {}, ... % Expression to run
'run_bg_expr', {} ... % Expression to run without GUI
);
% Read headers of all the run*.m files
for i = 1:length(run_names)
RunFiles(i).type = 'runfile';
name_tok = regexp(run_names{i}, 'run(.*)\.m', 'tokens');
% Add information about the file name
RunFiles(i).name = name_tok{1}{1};
% By default title is the same as name
RunFiles(i).title = RunFiles(i).name;
% Make an expression that needs to be evaluated to run the program.
% (just the name of file by default)
[~, run_name, ~] = fileparts(run_names{i});
RunFiles(i).run_expr = run_name;
% Read the run file comment header
ParamList = readCommentHeader(fullfile(dir, run_names{i}));
if isfield(ParamList, 'comment_header')
RunFiles(i).info = ParamList.comment_header;
end
if isfield(ParamList, 'title')
RunFiles(i).title = ParamList.title;
end
% Menu title is an old alias for title
if isfield(ParamList, 'menu_title')
RunFiles(i).title = ParamList.menu_title;
end
if isfield(ParamList, 'run_expr')
RunFiles(i).run_expr = ParamList.run_expr;
end
if isfield(ParamList, 'run_bg_expr')
RunFiles(i).run_expr = ParamList.run_bg_expr;
end
end
end
c4science · Help