function CoreCompileMexFiles(mex_cache, output_directory, mex_files_to_compile, force_recompile, retry_instructions, reporting)
    % CoreCompileMexFiles. Checks if mex files are up to date and re-compiles if
    % necessary
    %
    %     CoreCompileMexFiles takes in a list of mex files to be compiled,
    %     with version numbers. The last compiled versions
    %     are cached using the supplied mex_cache. If the versions have changed, files
    %     are automatically recompiled. Recompilation also occurs if the output
    %     files are missing or the mex_cache file has been deleted.
    %
    %     CoreCompileMexFiles checks for the presence of compilers and warns the
    %     user if no compiler has been detected. CoreCompileMexFiles does not
    %     attempt to recompile a particular mex file again after a failed
    %     compile attempt. Recompilation can be achieved using the
    %     force_recompile flag or by deleting the mex_cache file.
    %
    %
    %     Licence
    %     -------
    %     Part of CoreMat. https://github.com/tomdoel/coremat
    %     Author: Tom Doel, 2013.  www.tomdoel.com
    %     Distributed under the MIT licence. Please see website for details.
    %    
    
    cached_mex_file_info = mex_cache.MexInfoMap;
    framework_cache_was_missing = mex_cache.IsNewlyCreated;
    
    compiler = GetNameOfCppCompiler;
    if isempty(compiler)
        compiler = MexSetup(retry_instructions, reporting);
    end
    cuda_compiler = GetCudaCompiler;
    
    if ~isempty(compiler)
        CheckMexFiles(mex_files_to_compile, cached_mex_file_info, output_directory, framework_cache_was_missing, reporting);
        Compile(mex_files_to_compile, mex_cache, cached_mex_file_info, output_directory, compiler, cuda_compiler, force_recompile, retry_instructions, reporting);
    end
    
    mex_cache.UpdateCache(mex_files_to_compile, reporting);
end

function compiler = MexSetup(retry_instructions, reporting)
    cpp_compilers = mex.getCompilerConfigurations('C++', 'Installed');
    if isempty(cpp_compilers)
        compiler = [];
        reporting.ShowWarning('CoreCompileMexFiles:NoCompiler', ['I cannot compile mex files because no C++ compiler has been found on this system. Some parts of the Toolkit will not function. Install a C++ compiler.' retry_instructions], []);
    else
        disp('***********************************************************************');
        disp(' CoreMat - running MEX steup ');
        disp(' ');
        disp(' Follow the instructions below to select a C++ compiler. Normally the default options are good');
        disp(' ');        
        disp('***********************************************************************');
        mex -setup;
        compiler = GetNameOfCppCompiler;
        if isempty(compiler)
            reporting.ShowWarning('CoreCompileMexFiles:NoCompiler', ['I cannot compile mex files because no C++ compiler has been selected. Run mex -setup to choose your C++ compiler.' retry_instructions], []);
        end
    end
end

function Compile(mex_files_to_compile, framework_cache, cached_mex_file_info, output_directory, compiler, cuda_compiler, force_recompile, retry_instructions, reporting)
    progress_message_showing_compile = false;
    for mex_file_s = mex_files_to_compile.values
        mex_file = mex_file_s{1};
        
        if (~mex_file.NeedsRecompile) && (~force_recompile)
            reporting.LogVerbose([mex_file.Name ' is up to date']);
            if ~strcmp(mex_file.StatusID, 'CoreCompileMexFiles:NoRecompileNeeded')
                reporting.Error('CoreCompileMexFiles:WrongStatus', 'Program error: mex status should be OK if a recompile is not required');
            end
        else
            if strcmp(mex_file.StatusID, 'CoreCompileMexFiles:VersionChanged')
                reporting.ShowMessage('CoreCompileMexFiles:VersionChanged', [mex_file.Name ' is out of date.']);
            elseif strcmp(mex_file.StatusID, 'CoreCompileMexFiles:TimestampChanged')
                reporting.ShowMessage('CoreCompileMexFiles:TimestampChanged', [mex_file.Name ' has been modified.']);
            elseif strcmp(mex_file.StatusID, 'CoreCompileMexFiles:CompiledFileRemoved')
                reporting.ShowMessage('CoreCompileMexFiles:CompiledFileRemoved', [mex_file.Name ': The compiled mex file was removed and must be recompiled.']);
            elseif strcmp(mex_file.StatusID, 'CoreCompileMexFiles:FileAdded')
                reporting.ShowMessage('CoreCompileMexFiles:FileAdded', ['A new mex file ' mex_file.Name ' has been found and requires compilation.']);
            elseif strcmp(mex_file.StatusID, 'CoreCompileMexFiles:NoCachedInfoForMex')
                reporting.Log([mex_file.Name ' requires compilation.']);
            elseif strcmp(mex_file.StatusID, 'CoreCompileMexFiles:CacheFileDeleted')
                reporting.ShowMessage('CoreCompileMexFiles:CacheFileDeleted', [mex_file.Name ' requires recompilation because it appears the cache file ' framework_cache.GetCacheFilename ' was deleted.']);
            elseif strcmp(mex_file.StatusID, 'CoreCompileMexFiles:CompiledFileNotFound')
                reporting.Log([mex_file.Name ' requires compilation.']);


            elseif strcmp(mex_file.StatusID, 'CoreCompileMexFiles:NoRecompileNeeded')
                if force_recompile
                    reporting.ShowMessage('CoreCompileMexFiles:ForcingRecompile', ['Forcing recompile of ' mex_file.Name '.']);
                else
                    reporting.Error('CoreCompileMexFiles:UnexpectedStatus', 'Program error: An unexpected status condiiton was found');
                end
            else
                reporting.Error('CoreCompileMexFiles:UnexpectedStatus', 'Program error: An unexpected status condiiton was found'); 
            end

            src_filename = [mex_file.Name '.' mex_file.Extension];
            src_fullfile = fullfile(mex_file.Path, src_filename);
            files = dir(src_fullfile);
            last_modified_datenum = files.date;
            
            if cached_mex_file_info.isKey(mex_file.Name)
                cached_mex_file = cached_mex_file_info(mex_file.Name);
                version_unchanged_since_last_compilation_attempt = isequal(cached_mex_file.LastAttemptedCompiledVersion, mex_file.CurrentVersion);
                compiler_unchanged_since_last_compilation_attempt = isequal(cached_mex_file.LastAttemptedCompiler, compiler);
                if isempty(cached_mex_file.LastAttemptedCompileDatenum)
                    datenum_unchanged_since_last_compilation_attempt = true;
                else
                    datenum_unchanged_since_last_compilation_attempt = isequal(cached_mex_file.LastAttemptedCompileDatenum, last_modified_datenum);
                end
                compiled_failed_last_time = cached_mex_file.LastCompileFailed;
                if isempty(compiled_failed_last_time)
                    compiled_failed_last_time = false;
                end
                
                if compiled_failed_last_time && version_unchanged_since_last_compilation_attempt && compiler_unchanged_since_last_compilation_attempt && datenum_unchanged_since_last_compilation_attempt;
                    try_compilation_again = false;
                else
                    try_compilation_again = true;
                end
            else
                try_compilation_again = true;
            end
            
            if ~(try_compilation_again || force_recompile)
                reporting.ShowWarning('CoreCompileMexFiles:NotRecompiling', ['The mex source file ' src_fullfile ' needs recompilation, but the previous attempt to compile failed so I am not going to try again. You need to force a recompilation.' retry_instructions], []);
            else
                if ~exist(src_fullfile, 'file')
                    reporting.ShowWarning('CoreCompileMexFiles:SourceFileNotFound', ['The mex source file ' src_fullfile ' was not found. If this file has been removed it should also be removed from the list of mex files'], []);
                else
                    if ~progress_message_showing_compile
                        progress_message_showing_compile = true;
                        reporting.ShowProgress('Compiling mex files');
                    end
                    use_cuda = false;
                    if isa(mex_file, 'CoreCudaInfo')
                        if isempty(cuda_compiler)
                            reporting.ShowWarning('CoreCompileMexFiles:NoCudaCompilerFound', ['The mex source file ' src_fullfile ' requires the CUDA SDK to be installed.'], []);
                        else
                            use_cuda = true;
                        end
                    end
                    
                    if use_cuda
                        mex_result = CoreCudaCompile.Compile(cuda_compiler, mex_file, src_fullfile, output_directory);
                    else
                        mex_result = CoreMexCompile.Compile(compiler, mex_file, src_fullfile, output_directory);
                    end
                    mex_file.LastAttemptedCompiledVersion = mex_file.CurrentVersion;
                    mex_file.LastAttemptedCompiler = compiler;
                    mex_file.LastAttemptedCompileDatenum = last_modified_datenum;
                    if (mex_result == 0)
                        mex_file.LastCompileFailed = false;
                        mex_file.LastSuccessfulCompiledVersion = mex_file.CurrentVersion;
                        mex_file.LastSuccessfulCompileDatenum = last_modified_datenum;
                        mex_file.LastSuccessfulCompiler = compiler;
                        reporting.ShowMessage('CoreCompileMexFiles:MexCompilationSucceeded', [' - ' src_filename ' compiled successfully.']);
                    else
                        mex_file.LastCompileFailed = true;
                        reporting.ShowWarning('CoreCompileMexFiles:MexCompilationFailed', [' - ' src_fullfile ' failed to compile.'], []);
                    end
                end
            end
        end
    end
    if progress_message_showing_compile
        reporting.CompleteProgress;        
    end
end

function CheckMexFiles(mex_files_to_compile, cached_mex_file_info, output_directory, framework_cache_was_missing, reporting)
    mex_extension = mexext;
    if ~isempty(mex_extension)
        mex_extension = ['.' mex_extension];
    end
    
    % Iterate through all the mex files to compile
    for mex_file_s = mex_files_to_compile.values
        mex_file = mex_file_s{1};
        
        mex_file.NeedsRecompile = false;
        
        % Check whether the currently compiled file is up to date
        if cached_mex_file_info.isKey(mex_file.Name)
            cached_mex_file = cached_mex_file_info(mex_file.Name);
            
            file_info = dir(fullfile(mex_file.Path, [mex_file.Name '.' mex_file.Extension]));
            if numel(file_info) > 0
                current_file_timestamp = file_info.date;
            else
                current_file_timestamp = [];
            end
            
            % Copy across the cached values
            mex_file.LastSuccessfulCompiledVersion = cached_mex_file.LastSuccessfulCompiledVersion;
            mex_file.LastSuccessfulCompiler = cached_mex_file.LastSuccessfulCompiler;
            mex_file.LastAttemptedCompiledVersion = cached_mex_file.LastAttemptedCompiledVersion;
            mex_file.LastAttemptedCompiler = cached_mex_file.LastAttemptedCompiler;
            mex_file.LastCompileFailed = cached_mex_file.LastCompileFailed;
            mex_file.LastAttemptedCompileDatenum = cached_mex_file.LastAttemptedCompileDatenum;
            mex_file.LastSuccessfulCompileDatenum = cached_mex_file.LastSuccessfulCompileDatenum;
            
            if ~isequal(cached_mex_file.LastSuccessfulCompiledVersion, mex_file.CurrentVersion)
                mex_file.StatusID = 'CoreCompileMexFiles:VersionChanged';
                mex_file.NeedsRecompile = true;
                
            elseif ~isequal(cached_mex_file.LastSuccessfulCompileDatenum, current_file_timestamp)
                mex_file.StatusID = 'CoreCompileMexFiles:TimestampChanged';
                mex_file.NeedsRecompile = true;
                
            else
                mex_file.StatusID = 'CoreCompileMexFiles:NoRecompileNeeded';
            end

            % Check whether compiled file exists. We only need to do this if the
            % cache was found, because otherwise we will be recompiling anyway
            if isa(mex_file, 'CoreCudaInfo')
                compiled_file_extension = '.ptx';
            else
                compiled_file_extension = mex_extension;
            end
            dst_fullfile = fullfile(output_directory, [mex_file.Name, compiled_file_extension]);
            if ~exist(dst_fullfile, 'file')
                mex_file.NeedsRecompile = true;
                
                % Only display a warning message here if there is a record of a
                % previous compilation
                if (~isempty(mex_file.LastSuccessfulCompiledVersion)) && (~mex_file.LastCompileFailed)
                    mex_file.StatusID = 'CoreCompileMexFiles:CompiledFileRemoved';
                else
                    mex_file.StatusID = 'CoreCompileMexFiles:CompiledFileNotFound';
                end
            end
            
        else
            % No cached file was found. No need to check for existance of
            % output file as we will try to recompile anyway
            if framework_cache_was_missing
                dst_fullfile = fullfile(output_directory, [mex_file.Name, mex_extension]);
                if exist(dst_fullfile, 'file')
                    mex_file.StatusID = 'CoreCompileMexFiles:CacheFileDeleted';
                else
                    mex_file.StatusID = 'CoreCompileMexFiles:NoCachedInfoForMex';
                end
            else
                mex_file.StatusID = 'CoreCompileMexFiles:FileAdded';
            end
            mex_file.NeedsRecompile = true;
        end
        
    end
end

function name = GetNameOfCppCompiler()
    cc = mex.getCompilerConfigurations('C++', 'Selected');
    if isempty(cc)
        name = [];
    else
        name = cc(1).Name;
    end
end

function cuda_compiler = GetCudaCompiler()
    cuda_compiler = CoreSystemUtilities.FindFirstExecutableOnPath('nvcc');
    if isempty(cuda_compiler)
        if ispc
            cuda_compiler = TryToFindCudaCompilerPc(fullfile(getenv('ProgramFiles'), 'NVIDIA GPU Computing Toolkit', 'CUDA'));
            if isempty(cuda_compiler)
                cuda_compiler = TryToFindCudaCompilerPc(fullfile(getenv('ProgramW6432'), 'NVIDIA GPU Computing Toolkit', 'CUDA'));
            end
            if isempty(cuda_compiler)
                cuda_compiler = TryToFindCudaCompilerPc(fullfile(getenv('ProgramFiles(x86)'), 'NVIDIA GPU Computing Toolkit', 'CUDA'));
            end
        else
            if 2 == exist('/usr/local/cuda/bin/nvcc', 'file')
                cuda_compiler = '/usr/local/cuda/bin/nvcc';
            else
                cuda_compiler = [];
            end
        end
    end
end

function compiler = TryToFindCudaCompilerPc(base_dir)
    compiler = [];
    directories = CoreDiskUtilities.GetListOfDirectories(base_dir);
    
    for dir_name = directories
        bin_dir = fullfile(base_dir, dir_name{1}, 'bin');
        if isdir(bin_dir)
            compiler = fullfile(bin_dir, 'NVCC.EXE');
            return;
        end
    end
end


tomdoel
github-repos/MATLAB/tomdoel-pulmonarytoolkit/pulmonarytoolkit-09688a006d548fb85795df0338d1ed4f4a010fb9/External/coremat/MexCompile/CoreCompileMexFiles.m
pulmonarytoolkit
github-repos/MATLAB/tomdoel-pulmonarytoolkit
09688a006d548fb85795df0338d1ed4f4a010fb9