cfg_ui_multibatch.m
31022b3a13e6master

cfg_ui_multibatch.m
View Options

			function varargout = cfg_ui_multibatch(varargin)
			% CFG_UI_MULTIBATCH MATLAB code for cfg_ui_multibatch.fig
			% CFG_UI_MULTIBATCH, by itself, creates a new CFG_UI_MULTIBATCH or raises the existing
			% singleton*.
			%
			% H = CFG_UI_MULTIBATCH returns the handle to a new CFG_UI_MULTIBATCH or the handle to
			% the existing singleton*.
			%
			% CFG_UI_MULTIBATCH('CALLBACK',hObject,eventData,handles,...) calls the local
			% function named CALLBACK in CFG_UI_MULTIBATCH.M with the given input arguments.
			%
			% CFG_UI_MULTIBATCH('Property','Value',...) creates a new CFG_UI_MULTIBATCH or raises the
			% existing singleton*. Starting from the left, property value pairs are
			% applied to the GUI before cfg_ui_multibatch_OpeningFcn gets called. An
			% unrecognized property name or invalid value makes property application
			% stop. All inputs are passed to cfg_ui_multibatch_OpeningFcn via varargin.
			%
			% *See GUI Options on GUIDE's Tools menu. Choose "GUI allows only one
			% instance to run (singleton)".
			%
			% See also: GUIDE, GUIDATA, GUIHANDLES

			% Edit the above text to modify the response to help cfg_ui_multibatch

			% Last Modified by GUIDE v2.5 24-Sep-2013 15:11:49

			% Begin initialization code - DO NOT EDIT
			gui_Singleton = 1;
			gui_State = struct('gui_Name', mfilename, ...
			'gui_Singleton', gui_Singleton, ...
			'gui_OpeningFcn', @cfg_ui_multibatch_OpeningFcn, ...
			'gui_OutputFcn', @cfg_ui_multibatch_OutputFcn, ...
			'gui_LayoutFcn', [] , ...
			'gui_Callback', []);
			if nargin && ischar(varargin{1})
			gui_State.gui_Callback = str2func(varargin{1});
			end

			if nargout
			[varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
			else
			gui_mainfcn(gui_State, varargin{:});
			end
			% End initialization code - DO NOT EDIT


			% --- Executes when user attempts to close cfg_ui_multibatch.
			function cfg_ui_multibatch_CloseRequestFcn(hObject, eventdata, handles)
			% hObject handle to cfg_ui_multibatch (see GCBO)
			% eventdata reserved - to be defined in a future version of MATLAB
			% handles structure with handles and user data (see GUIDATA)

			% Hint: delete(hObject) closes the figure
			try
			cfg_util('deljob', handles.ud.cjob);
			end
			delete(hObject);

			% --- Executes just before cfg_ui_multibatch is made visible.
			function cfg_ui_multibatch_OpeningFcn(hObject, eventdata, handles, varargin)
			% This function has no output args, see OutputFcn.
			% hObject handle to figure
			% eventdata reserved - to be defined in a future version of MATLAB
			% handles structure with handles and user data (see GUIDATA)
			% varargin command line arguments to cfg_ui_multibatch (see VARARGIN)

			% Choose default command line output for cfg_ui_multibatch
			handles.output = hObject;

			% Update handles structure
			guidata(hObject, handles);

			% UIWAIT makes cfg_ui_multibatch wait for user response (see UIRESUME)
			% uiwait(handles.cfg_ui_multibatch);

			% Register fatal errors with cfg_message
			cfg_message('error', 'level', 'cfg_ui_multibatch:wrongclass');

			% If called with extra arguments, try to init them as job
			if ~isempty(varargin)
			local_initjob(handles, varargin)
			end

			% --- Outputs from this function are returned to the command line.
			function varargout = cfg_ui_multibatch_OutputFcn(hObject, eventdata, handles)
			% varargout cell array for returning output args (see VARARGOUT);
			% hObject handle to figure
			% eventdata reserved - to be defined in a future version of MATLAB
			% handles structure with handles and user data (see GUIDATA)

			% Get default command line output from handles structure
			varargout{1} = handles.output;

			% --- Executes when cfg_ui_multibatch is resized.
			function cfg_ui_multibatch_ResizeFcn(hObject, eventdata, handles)
			% hObject handle to cfg_ui_multibatch (see GCBO)
			% eventdata reserved - to be defined in a future version of MATLAB
			% handles structure with handles and user data (see GUIDATA)

			% --- Executes on button press in BtnRowAddRow.
			function BtnRowAddRow_Callback(hObject, eventdata, handles)
			% hObject handle to BtnRowAddRow (see GCBO)
			% eventdata reserved - to be defined in a future version of MATLAB
			% handles structure with handles and user data (see GUIDATA)
			local_AddRow(handles);

			% --- Executes on button press in BtnRowDelRow.
			function BtnRowDelRow_Callback(hObject, eventdata, handles)
			% hObject handle to BtnRowDelRow (see GCBO)
			% eventdata reserved - to be defined in a future version of MATLAB
			% handles structure with handles and user data (see GUIDATA)
			local_DelRow(handles);

			% --- Executes on button press in BtnValEditVal.
			function BtnValEditVal_Callback(hObject, eventdata, handles)
			% hObject handle to BtnValEditVal (see GCBO)
			% eventdata reserved - to be defined in a future version of MATLAB
			% handles structure with handles and user data (see GUIDATA)

			% --------------------------------------------------------------------
			function MenuFileLoad_Callback(hObject, eventdata, handles)
			% hObject handle to MenuFileLoad (see GCBO)
			% eventdata reserved - to be defined in a future version of MATLAB
			% handles structure with handles and user data (see GUIDATA)
			jobfiles = cfg_getfile([1 inf], 'batch', 'Select batch file(s)');
			if ~isempty(jobfiles)
			local_initjob(handles, jobfiles);
			end

			% --------------------------------------------------------------------
			function MenuFileSave_Callback(hObject, eventdata, handles)
			% hObject handle to MenuFileSave (see GCBO)
			% eventdata reserved - to be defined in a future version of MATLAB
			% handles structure with handles and user data (see GUIDATA)
			[job_ids, job_sts] = local_filljobs(handles);
			[file, pth, idx] = uiputfile({'*.mat','Matlab .mat File';...
			'*.m','Matlab .m Script File'}, 'Basename for jobs');
			if isnumeric(file) && file == 0
			return;
			end;
			[p, n, e] = fileparts(file);
			if isempty(e) \|\| ~any(strcmp(e,{'.mat','.m'}))
			e1 = {'.mat','.m'};
			e2 = e1{idx};
			file = sprintf('%s%s', n, e);
			else
			file = n;
			e2 = e;
			end
			file = sprintf('%s_%%0%dd', file, floor(log10(numel(job_ids))+1));
			try
			for cj = 1:numel(job_ids)
			cfg_util('savejob', job_ids{cj}, fullfile(pth, [sprintf(file, cj) e2]));
			end
			catch
			l = lasterror;
			errordlg(l.message,'Error saving job', 'modal');
			end

			% --------------------------------------------------------------------
			function MenuFileRun_Callback(hObject, eventdata, handles)
			% hObject handle to MenuFileRun (see GCBO)
			% eventdata reserved - to be defined in a future version of MATLAB
			% handles structure with handles and user data (see GUIDATA)
			[job_ids, job_sts] = local_filljobs(handles);
			job_ids = job_ids(job_sts);
			for cj = 1:numel(job_ids)
			cfg_util('run', job_ids{cj});
			end

			% --------------------------------------------------------------------
			function MenuFileQuit_Callback(hObject, eventdata, handles)
			% hObject handle to MenuFileQuit (see GCBO)
			% eventdata reserved - to be defined in a future version of MATLAB
			% handles structure with handles and user data (see GUIDATA)
			close(handles.cfg_ui_multibatch);

			% --------------------------------------------------------------------
			function MenuEditRowAddRow_Callback(hObject, eventdata, handles)
			% hObject handle to MenuEditRowAddRow (see GCBO)
			% eventdata reserved - to be defined in a future version of MATLAB
			% handles structure with handles and user data (see GUIDATA)
			local_AddRow(handles);

			% --------------------------------------------------------------------
			function MenuEditRowDelRow_Callback(hObject, eventdata, handles)
			% hObject handle to MenuEditRowDelRow (see GCBO)
			% eventdata reserved - to be defined in a future version of MATLAB
			% handles structure with handles and user data (see GUIDATA)
			local_DelRow(handles);

			% --------------------------------------------------------------------
			function MenuEditValEditVal_Callback(hObject, eventdata, handles)
			% hObject handle to MenuEditValEditVal (see GCBO)
			% eventdata reserved - to be defined in a future version of MATLAB
			% handles structure with handles and user data (see GUIDATA)

			% --- Executes when selected cell(s) is changed in default_table.
			function default_table_CellSelectionCallback(hObject, eventdata, handles)
			% hObject handle to default_table (see GCBO)
			% eventdata structure with the following fields (see UITABLE)
			% Indices: row and column indices of the cell(s) currently selecteds
			% handles structure with handles and user data (see GUIDATA)
			if size(eventdata.Indices, 1) == 1
			local_showvaledit_default(handles, eventdata.Indices)
			end

			% --- Executes on selection change in valshow.
			function valshow_Callback(hObject, eventdata, handles)
			% hObject handle to valshow (see GCBO)
			% eventdata reserved - to be defined in a future version of MATLAB
			% handles structure with handles and user data (see GUIDATA)

			% Hints: contents = cellstr(get(hObject,'String')) returns valshow contents as cell array
			% contents{get(hObject,'Value')} returns selected item from valshow

			% --- Executes during object creation, after setting all properties.
			function valshow_CreateFcn(hObject, eventdata, handles)
			% hObject handle to valshow (see GCBO)
			% eventdata reserved - to be defined in a future version of MATLAB
			% handles empty - handles not created until after all CreateFcns called

			% Hint: listbox controls usually have a white background on Windows.
			% See ISPC and COMPUTER.
			if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
			set(hObject,'BackgroundColor','white');
			end

			% --- Executes on selection change in helpbox.
			function helpbox_Callback(hObject, eventdata, handles)
			% hObject handle to helpbox (see GCBO)
			% eventdata reserved - to be defined in a future version of MATLAB
			% handles structure with handles and user data (see GUIDATA)

			% Hints: contents = cellstr(get(hObject,'String')) returns helpbox contents as cell array
			% contents{get(hObject,'Value')} returns selected item from helpbox

			% --- Executes during object creation, after setting all properties.
			function helpbox_CreateFcn(hObject, eventdata, handles)
			% hObject handle to helpbox (see GCBO)
			% eventdata reserved - to be defined in a future version of MATLAB
			% handles empty - handles not created until after all CreateFcns called

			% Hint: listbox controls usually have a white background on Windows.
			% See ISPC and COMPUTER.
			if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
			set(hObject,'BackgroundColor','white');
			end

			% --- Executes when selected cell(s) is changed in values_table.
			function values_table_CellSelectionCallback(hObject, eventdata, handles)
			% hObject handle to values_table (see GCBO)
			% eventdata structure with the following fields (see UITABLE)
			% Indices: row and column indices of the cell(s) currently selecteds
			% handles structure with handles and user data (see GUIDATA)
			if size(eventdata.Indices, 1) == 1
			if isequal(get(handles.cfg_ui_multibatch, 'CurrentCharacter'), char(13))
			% handle RETURN character - edit current cell instead of new one.
			% After that, advance to new cell (this behaviour is unwanted, but
			% MATLAB does not allow to set the selected cell otherwise).
			if ~isempty(handles.ud.values_editcb)
			feval(handles.ud.values_editcb);
			handles = guidata(handles.cfg_ui_multibatch);
			end
			set(handles.cfg_ui_multibatch, 'CurrentCharacter', char(0));
			end
			local_showvaledit_values(handles, eventdata.Indices);
			handles = guidata(hObject);
			end
			handles.ud.values_indices = eventdata.Indices;
			guidata(handles.cfg_ui_multibatch, handles);

			% --------------------------------------------------------------------
			function local_AddRow(handles)
			handles.ud.values_contents = [handles.ud.values_contents; handles.ud.default_contents];
			guidata(handles.cfg_ui_multibatch, handles);
			local_show_values(handles);

			% --------------------------------------------------------------------
			function local_DelRow(handles)
			if ~isempty(handles.ud.values_indices)
			todel = handles.ud.values_indices(:,1);
			handles.ud.values_contents(todel, :) = [];
			handles.ud.values_editcb = [];
			handles.ud.values_indices = [];
			guidata(handles.cfg_ui_multibatch, handles);
			local_show_values(handles);
			end

			% --------------------------------------------------------------------
			function local_initjob(handles, jobs)
			try
			if numel(jobs) == 1 && cfg_util('isjob_id', jobs{1})
			cjob = jobs{1};
			else
			cjob = cfg_util('initjob', jobs);
			end
			catch le
			cfg_message(le);
			end
			[mod_job_idlist, mod_names, mod_item_idx, item_mod_idlists, item_names] = cfg_util('getopeninputs', cjob);
			if isempty(mod_job_idlist)
			cfg_util('deljob', cjob);
			cfg_message('cfg_ui_multibatch:noopenitems', 'nothing to fill in');
			else
			item_names = [item_names{:}];
			handles.ud.cjob = cjob;
			handles.ud.mod_job_idlist = mod_job_idlist(mod_item_idx);
			handles.ud.item_mod_idlist = [item_mod_idlists{:}];
			handles.ud.default_contents = cell(size(item_names));
			handles.ud.values_editcb = [];
			handles.ud.values_indices = [];
			for citem=1:numel(item_names)
			handles.ud.default_contents{citem} = cfg_ui_util('showitem', ...
			{handles.ud.cjob, handles.ud.mod_job_idlist{citem}, ...
			handles.ud.item_mod_idlist{citem}}, false);
			if ~any(strcmp(handles.ud.default_contents{citem}{5}, {'cfg_entry', 'cfg_files', 'cfg_menu'}))
			cfg_util('deljob', cjob);
			cfg_message('cfg_ui_multibatch:wrongclass', 'can not fill in items of class "%s"', handles.ud.default_contents{citem}{5});
			end
			end
			column_names = cellfun(@(mod,item)sprintf('%s\|%s', mod, item), mod_names(mod_item_idx), item_names, 'UniformOutput', false);
			set(handles.default_table, 'ColumnName', column_names, 'Data', cell(size(item_names)));
			handles.ud.values_contents = cell(0, size(item_names, 2));
			set(handles.values_table, 'ColumnName', column_names, 'Data', cell(0, size(item_names, 2)));
			guidata(handles.cfg_ui_multibatch, handles);
			end

			% --------------------------------------------------------------------
			function local_show_values(handles)
			handles = guidata(handles.cfg_ui_multibatch);
			datastr = cell(size(handles.ud.values_contents));
			for k = 1:numel(datastr)
			[~, datastr{k}] = cfg_ui_util('showitemstr', handles.ud.values_contents{k}, false);
			end
			set(handles.values_table, 'Data', datastr);

			% --------------------------------------------------------------------
			function local_showvaledit_default(handles, index)
			ciid = {handles.ud.cjob, ...
			handles.ud.mod_job_idlist{index(2)}, ...
			handles.ud.item_mod_idlist{index(2)}};
			contents = handles.ud.default_contents{index(2)};
			cfg_ui_util('showvaledit', handles.cfg_ui_multibatch, ciid, contents, [], false, ...
			@(nval)local_set_defaultstable(handles, index, nval), ...
			@()local_update_defaultstable(handles, index));
			column_names = get(handles.default_table, 'ColumnName');
			set(findobj(handles.cfg_ui_multibatch, '-regexp', 'Tag','.*EditVal$'), ...
			'Callback', @(ob,ev)cfg_ui_util('valedit_editvalue', ciid, ...
			column_names{index(2)}, contents{2}));

			% --------------------------------------------------------------------
			function local_showvaledit_values(handles, index)
			ciid = {handles.ud.cjob, ...
			handles.ud.mod_job_idlist{index(2)}, ...
			handles.ud.item_mod_idlist{index(2)}};
			contents = handles.ud.values_contents{index(1), index(2)};
			cfg_ui_util('showvaledit', handles.cfg_ui_multibatch, ciid, contents, [], false, ...
			@(nval)local_set_valuestable(handles, index, nval), ...
			@()local_show_values(handles));
			column_names = get(handles.default_table, 'ColumnName');
			handles.ud.values_editcb = @(ob,ev)cfg_ui_util('valedit_editvalue', ciid, ...
			column_names{index(2)}, contents{2});
			set(findobj(handles.cfg_ui_multibatch, '-regexp', 'Tag','.*EditVal$'), ...
			'Callback', handles.ud.values_editcb);
			guidata(handles.cfg_ui_multibatch, handles);

			% --------------------------------------------------------------------
			function local_set_defaultstable(handles, index, val)
			switch handles.ud.default_contents{index(2)}{5}
			case {'cfg_entry','cfg_files'}
			handles.ud.default_contents{index(2)}{2} = {val};
			case {'cfg_menu'}
			handles.ud.default_contents{index(2)}{2} = handles.ud.default_contents{index(2)}{4}(val);
			end
			handles.ud.default_contents{index(2)}{7} = true;
			handles.ud.default_contents{index(2)}{8} = true;
			for k = 1:size(handles.ud.values_contents,1)
			handles.ud.values_contents{k,index(2)}{2} = handles.ud.default_contents{index(2)}{2};
			handles.ud.values_contents{k,index(2)}{7} = true;
			handles.ud.values_contents{k,index(2)}{8} = true;
			end
			guidata(handles.cfg_ui_multibatch, handles);

			% --------------------------------------------------------------------
			function local_set_valuestable(handles, index, val)
			switch handles.ud.default_contents{index(2)}{5}
			case {'cfg_entry','cfg_files'}
			handles.ud.values_contents{index(1), index(2)}{2} = {val};
			case {'cfg_menu'}
			handles.ud.values_contents{index(1), index(2)}{2} = handles.ud.default_contents{index(2)}{4}(val);
			end
			handles.ud.values_contents{index(1), index(2)}{7} = true;
			handles.ud.values_contents{index(1), index(2)}{8} = true;
			guidata(handles.cfg_ui_multibatch, handles);

			% --------------------------------------------------------------------
			function local_update_defaultstable(handles, index)
			handles = guidata(handles.cfg_ui_multibatch);
			[~, datastr] = cfg_ui_util('showitemstr', handles.ud.default_contents{index(2)}, false);
			dat = get(handles.default_table, 'Data');
			dat{index(1), index(2)} = datastr;
			set(handles.default_table, 'Data', dat);
			local_showvaledit_default(handles, index);
			local_show_values(handles);

			% --------------------------------------------------------------------
			function [job_ids, job_sts] = local_filljobs(handles)
			% retrieve data from values_table and fill jobs
			job_ids = cell(size(handles.ud.values_contents, 1), 1);
			job_sts = false(size(handles.ud.values_contents, 1), 1);
			for cj = 1:size(handles.ud.values_contents, 1)
			values = cell(1, size(handles.ud.values_contents, 2));
			for cv = 1:size(handles.ud.values_contents, 2)
			if ~isempty(handles.ud.values_contents{cj, cv}{2})
			values{cv} = handles.ud.values_contents{cj, cv}{2}{1};
			end
			end
			job_ids{cj} = cfg_util('clonejob', handles.ud.cjob);
			job_sts(cj) = cfg_util('filljob', job_ids{cj}, values{:});
			end

iCAPs/packages/spm12/matlabbatch/cfg_ui_multibatch.m31022b3a13e6master

cfg_ui_multibatch.mView Options

iCAPs/packages/spm12/matlabbatch/cfg_ui_multibatch.m
31022b3a13e6master

cfg_ui_multibatch.m
View Options