Homec4science
Diffusion Instrument Control (confint-fix) Browse

rINSTCONTROL/Utility functions/runInstrument.m
47ca0ecc4598confint-fix

Last Change
Raw File

runInstrument.m
View Options

% Create instrument instance and add it to the collector
function Instr = runInstrument(name, instr_class, interface, address)
% Get the unique instance of Collector
Collector=MyCollector.instance();
if ~ismember(name, Collector.running_instruments)
if nargin()==1
% load instr_class, interface and address parameters
% from InstrumentList
InstrumentList = getLocalSettings('InstrumentList');
if ~isfield(InstrumentList, name)
error('%s is not a field of InstrumentList',...
name);
end
if ~isfield(InstrumentList.(name), 'interface')
error(['InstrumentList entry ', name,...
' has no ''interface'' field']);
else
interface = InstrumentList.(name).interface;
end
if ~isfield(InstrumentList.(name), 'address')
error(['InstrumentList entry ', name,...
' has no ''address'' field']);
else
address = InstrumentList.(name).address;
end
if ~isfield(InstrumentList.(name), 'control_class')
error(['InstrumentList entry ', name,...
' has no ''control_class'' field']);
else
instr_class = InstrumentList.(name).control_class;
end
% Make a list of optional name-value pairs
opt_args={};
if isfield(InstrumentList.(name), 'StartupOpts')
opt_names=fieldnames(InstrumentList.(name).StartupOpts);
for i=1:length(opt_names)
opt_args=[opt_args, {opt_names{i}, ...
InstrumentList.(name).StartupOpts.(opt_names{i})}]; %#ok<AGROW>
end
end
elseif nargin()==4
% Case when all the arguments are supplied explicitly, do
% nothing
opt_args={};
else
error(['Wrong number of input arguments. ',...
'Function can be called as f(name) or ',...
'f(name, instr_class, interface, address).'])
end
% Skip the interface and address arguments if they are empty
req_args={};
if ~isempty(interface)
req_args=[req_args,{interface}];
end
if ~isempty(address)
req_args=[req_args,{address}];
end
Instr = feval(instr_class, req_args{:}, opt_args{:}, 'name', name);
addInstrument(Collector, Instr);
else
% If instrument is already present in the Collector, do not create
% a new object, but try taking the existing one.
disp([name,' is already running. Assign existing instrument ',...
'instead of running a new one.']);
try
Instr = Collector.InstrList.(name);
catch
% Return with empty results in the case of falure
warning('Could not assign instrument %s from Collector',name);
Instr = [];
return
end
end
% Open device. Communication commands will re-open the device if is
% closed, but keepeing it always open speeds communication up.
if ismethod(Instr,'openDevice')
openDevice(Instr);
end
% Send identification request to the instrument
if ismethod(Instr,'idn')
idn(Instr);
end
end
c4science · Help