psom_mkdir.m

function [success,message,message_id] = psom_mkdir(path_name)
% Create a new directory. Several levels of subdirectories can be created.
%
% SYNTAX:
% [SUCCESS,MESSAGE,MESSAGE_ID] = PSOM_MKDIR(PATH_NAME)
%
% _________________________________________________________________________
% INPUTS:
%
% PATH_NAME      
%       (string) the name of the path to create
%       
% _________________________________________________________________________
% OUTPUTS:
%
% SUCCESS     
%       (boolean) define the outcome of PSOM_MKDIR. 
%           1 : PSOM_MKDIR executed successfully.
%           0 : an error occurred.
%
% MESSAGE     
%       (string)  define the error or warning message. 
%           empty string : PSOM_MKDIR executed successfully.
%           message : an error or warning message, as applicable.
%
% MESSAGE_ID   
%       (string) defining the error or warning identifier.
%           empty string : PSOM_MKDIR executed successfully.
%           message id: the MATLAB error or warning message
%           identifier
%           
% _________________________________________________________________________
% SEE ALSO:
%
% _________________________________________________________________________
% COMMENTS:
%
% Contrary to the regular MKDIR command, SUCCESS = 1 if the directory
% already exists.
%
% Copyright (c) Pierre Bellec, Montreal Neurological Institute, 2008.
% Maintainer : pbellec@bic.mni.mcgill.ca
% See licensing information in the code.
% Keywords : medical imaging, pipeline, fMRI, PSOM

% Permission is hereby granted, free of charge, to any person obtaining a copy
% of this software and associated documentation files (the "Software"), to deal
% in the Software without restriction, including without limitation the rights
% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
% copies of the Software, and to permit persons to whom the Software is
% furnished to do so, subject to the following conditions:
%
% The above copyright notice and this permission notice shall be included in
% all copies or substantial portions of the Software.
%
% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
% THE SOFTWARE.

if ~isdir(path_name)
    [success,message,message_id] = mkdir(path_name);

    if ~exist('OCTAVE_VERSION','builtin')    
        % This is matlab    
        return
    end

    % This is Octave
    if success==0
        % Recursive creation of directories does not work in Octave yet, try it    
        list_path = psom_string2words(path_name,{filesep});

        if ispc
            % This is windows, include the volume name in the root directory
            path_curr = list_path{1};
            path_curr = [path_curr filesep];
            list_path = list_path(2:end);
        else
            % this is a reasonable OS, the root is /
            path_curr = filesep;
        end

        success = 1;
        message = '';
        message_id = '';

        for num_p = 1:length(list_path)
            path_curr = [path_curr list_path{num_p} filesep];
            [success,message,message_id] = mkdir(path_curr);
        end
    end
else
    % Nothing to do here
    success = 1;
    message = '';
    message_id = '';
end