Adding itaVA setup GUI (figure file missing, yet)

applications/VirtualAcoustics/VA/itaVA_setup.m

+function varargout = itaVA_setup(varargin)
+% ITAVA_SETUP MATLAB code for itaVA_setup.fig
+%      ITAVA_SETUP, by itself, creates a new ITAVA_SETUP or raises the existing
+%      singleton*.
+%
+%      H = ITAVA_SETUP returns the handle to a new ITAVA_SETUP or the handle to
+%      the existing singleton*.
+%
+%      ITAVA_SETUP('CALLBACK',hObject,eventData,handles,...) calls the local
+%      function named CALLBACK in ITAVA_SETUP.M with the given input arguments.
+%
+%      ITAVA_SETUP('Property','Value',...) creates a new ITAVA_SETUP or raises the
+%      existing singleton*.  Starting from the left, property value pairs are
+%      applied to the GUI before itaVA_setup_OpeningFcn gets called.  An
+%      unrecognized property name or invalid value makes property application
+%      stop.  All inputs are passed to itaVA_setup_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 itaVA_setup
+
+% Last Modified by GUIDE v2.5 24-Oct-2016 16:33:03
+
+% Begin initialization code - DO NOT EDIT
+gui_Singleton = 1;
+gui_State = struct('gui_Name',       mfilename, ...
+                   'gui_Singleton',  gui_Singleton, ...
+                   'gui_OpeningFcn', @itaVA_setup_OpeningFcn, ...
+                   'gui_OutputFcn',  @itaVA_setup_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 just before itaVA_setup is made visible.
+function itaVA_setup_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 itaVA_setup (see VARARGIN)
+
+% Choose default command line output for itaVA_setup
+handles.output = hObject;
+
+% Update handles structure
+guidata(hObject, handles);
+
+current_va_mex_dir = which( 'VAMatlab' );
+
+if ~isempty( current_va_mex_dir )
+    [ va_mex_path, ~, ~ ] = fileparts( current_va_mex_dir );
+    set( handles.va_search_dir, 'String', fullfile( va_mex_path, '..' ) );
+end
+
+% UIWAIT makes itaVA_setup wait for user response (see UIRESUME)
+% uiwait(handles.figure1);
+
+
+% --- Outputs from this function are returned to the command line.
+function varargout = itaVA_setup_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 on button press in pushbutton_close.
+function pushbutton_close_Callback(hObject, eventdata, handles)
+% hObject    handle to pushbutton_close (see GCBO)
+% eventdata  reserved - to be defined in a future version of MATLAB
+% handles    structure with handles and user data (see GUIDATA)
+close( gcf )
+
+
+function edit_vamatlab_full_path_Callback(hObject, eventdata, handles)
+% hObject    handle to edit_vamatlab_full_path (see GCBO)
+% eventdata  reserved - to be defined in a future version of MATLAB
+% handles    structure with handles and user data (see GUIDATA)
+
+% Hints: get(hObject,'String') returns contents of edit_vamatlab_full_path as text
+%        str2double(get(hObject,'String')) returns contents of edit_vamatlab_full_path as a double
+
+
+% --- Executes during object creation, after setting all properties.
+function edit_vamatlab_full_path_CreateFcn(hObject, eventdata, handles)
+% hObject    handle to edit_vamatlab_full_path (see GCBO)
+% eventdata  reserved - to be defined in a future version of MATLAB
+% handles    empty - handles not created until after all CreateFcns called
+
+% Hint: edit 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
+
+
+function edit_vaserver_full_path_Callback(hObject, eventdata, handles)
+% hObject    handle to edit_vaserver_full_path (see GCBO)
+% eventdata  reserved - to be defined in a future version of MATLAB
+% handles    structure with handles and user data (see GUIDATA)
+
+% Hints: get(hObject,'String') returns contents of edit_vaserver_full_path as text
+%        str2double(get(hObject,'String')) returns contents of edit_vaserver_full_path as a double
+
+
+% --- Executes during object creation, after setting all properties.
+function edit_vaserver_full_path_CreateFcn(hObject, eventdata, handles)
+% hObject    handle to edit_vaserver_full_path (see GCBO)
+% eventdata  reserved - to be defined in a future version of MATLAB
+% handles    empty - handles not created until after all CreateFcns called
+
+% Hint: edit 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 during object creation, after setting all properties.
+function va_search_dir_CreateFcn(hObject, eventdata, handles)
+% hObject    handle to va_search_dir (see GCBO)
+% eventdata  reserved - to be defined in a future version of MATLAB
+% handles    empty - handles not created until after all CreateFcns called
+
+% Hint: edit 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
+
+
+function checkbox_recursively_Callback(hObject, eventdata, handles)
+function checkbox_permanently_Callback(hObject, eventdata, handles)
+
+% --- Executes on button press in pushbutton_va_dir_browse.
+function pushbutton_va_dir_browse_Callback(hObject, eventdata, handles)
+% hObject    handle to pushbutton_va_dir_browse (see GCBO)
+% eventdata  reserved - to be defined in a future version of MATLAB
+% handles    structure with handles and user data (see GUIDATA)
+
+start_path = get( handles.va_search_dir, 'String' );
+if exist( start_path, 'file' ) ~= 7
+    start_path = pwd;
+end
+
+va_search_dir = uigetdir( start_path );
+
+if ~isempty( va_search_dir )
+    set( handles.va_search_dir, 'String', va_search_dir )
+    find_VA( va_search_dir, handles )
+end
+
+function find_VA( va_search_dir, handles )
+
+recursive_flag = get( handles.checkbox_recursively, 'Value' );
+permanent_flag = get( handles.checkbox_permanently, 'Value' );
+
+set( handles.edit_vamatlab_full_path, 'String', 'Scanning ... ' )
+set( handles.edit_vaserver_full_path, 'String', 'Scanning ... ' )
+
+% VAMatlab
+[ vamatlab_found, vamatlab_dir ] = find_VA_Component( va_search_dir, [ 'VAMatlab.' mexext ], recursive_flag );
+if vamatlab_found
+    addpath( vamatlab_dir )
+    if permanent_flag
+        savepath
+    end
+    set( handles.edit_vamatlab_full_path, 'String', fullfile( vamatlab_dir, [ 'VAMatlab.' mexext ] ) )
+    v = VAMatlab( 'getVersion' );
+    set( handles.edit_vamatlab_version, 'String', v )
+else
+    set( handles.edit_vamatlab_full_path, 'String', 'not found' )
+end
+
+% VAServer
+[ vaserver_found, vaserver_dir ] = find_VA_Component( va_search_dir, 'VAServer.exe', recursive_flag );
+if vaserver_found
+    addpath( vaserver_dir )
+    if permanent_flag
+        savepath
+    end
+    vaserver_path = fullfile( vaserver_dir, 'VAServer.exe' );
+    set( handles.edit_vaserver_full_path, 'String', vaserver_path )
+    v = system( [ vaserver_path ' --version' ] );
+    set( handles.edit_vamatlab_version, 'String', v )
+else
+    set( handles.edit_vaserver_full_path, 'String', 'not found' )
+end
+
+function [ found, va_component_dir ] = find_VA_Component( va_search_dir, component, recursive )
+found = false;
+va_component_dir = '';
+    
+if exist( fullfile( va_search_dir, component ), 'file' )
+    found = true;
+    va_component_dir = fullfile( va_search_dir ); % Base path is one folder up
+end
+
+if ~found && recursive
+    listing = dir( va_search_dir );    
+    for idx = 1:length( listing )
+        current_file_name = listing( idx ).name;
+        if listing( idx ).isdir && current_file_name(1) ~= '.'
+            [ found, va_component_dir ] = find_VA_Component( fullfile( va_search_dir, current_file_name ), component, recursive );
+            if found
+                break % Find first
+            end
+        end 
+    end
+end
+
+
+
+function va_search_dir_Callback(hObject, eventdata, handles)
+% hObject    handle to va_search_dir (see GCBO)
+% eventdata  reserved - to be defined in a future version of MATLAB
+% handles    structure with handles and user data (see GUIDATA)
+
+% Hints: get(hObject,'String') returns contents of va_search_dir as text
+%        str2double(get(hObject,'String')) returns contents of va_search_dir as a double
+
+
+% --- If Enable == 'on', executes on mouse press in 5 pixel border.
+% --- Otherwise, executes on mouse press in 5 pixel border or over pushbutton_close.
+function pushbutton_close_ButtonDownFcn(hObject, eventdata, handles)
+% hObject    handle to pushbutton_close (see GCBO)
+% eventdata  reserved - to be defined in a future version of MATLAB
+% handles    structure with handles and user data (see GUIDATA)
+close( handles.gui )
+
+
+
+function edit_vamatlab_version_Callback(hObject, eventdata, handles)
+% hObject    handle to edit_vamatlab_version (see GCBO)
+% eventdata  reserved - to be defined in a future version of MATLAB
+% handles    structure with handles and user data (see GUIDATA)
+
+% Hints: get(hObject,'String') returns contents of edit_vamatlab_version as text
+%        str2double(get(hObject,'String')) returns contents of edit_vamatlab_version as a double
+
+
+% --- Executes during object creation, after setting all properties.
+function edit_vamatlab_version_CreateFcn(hObject, eventdata, handles)
+% hObject    handle to edit_vamatlab_version (see GCBO)
+% eventdata  reserved - to be defined in a future version of MATLAB
+% handles    empty - handles not created until after all CreateFcns called
+
+% Hint: edit 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
+
+
+
+function edit_vaserver_version_Callback(hObject, eventdata, handles)
+% hObject    handle to edit_vaserver_version (see GCBO)
+% eventdata  reserved - to be defined in a future version of MATLAB
+% handles    structure with handles and user data (see GUIDATA)
+
+% Hints: get(hObject,'String') returns contents of edit_vaserver_version as text
+%        str2double(get(hObject,'String')) returns contents of edit_vaserver_version as a double
+
+
+% --- Executes during object creation, after setting all properties.
+function edit_vaserver_version_CreateFcn(hObject, eventdata, handles)
+% hObject    handle to edit_vaserver_version (see GCBO)
+% eventdata  reserved - to be defined in a future version of MATLAB
+% handles    empty - handles not created until after all CreateFcns called
+
+% Hint: edit 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