function p = path(path1,path2)

%PATH Get/set search path.

%   PATH, by itself, prettyprints MATLAB's current search path. The initial

%   search path list is set by PATHDEF, and is perhaps individualized by

%   STARTUP.

%

%   P = PATH returns a character vector containing the path in P. PATH(P)

%   changes the path to P.

%

%   PATH(P1,P2) changes the path to the concatenation of the two search 

%   paths P1 and P2.  Thus PATH(PATH,P) appends the folder P to the

%   current path and PATH(P,PATH) prepends the folder P.  If P is already

%   on the path, then PATH(PATH,P) moves P to the end of the path,

%   and similarly, PATH(P,PATH) moves P to the beginning of the path.

%

%   For example, the following statements add another folder to MATLAB's

%   search path on various operating systems:

%

%     Unix:     path(path,'/home/myfriend/goodstuff')

%     Windows:  path(path,'c:\tools\goodstuff')

%

%   See also WHAT, CD, DIR, ADDPATH, RMPATH, GENPATH, PATHTOOL, SAVEPATH, REHASH.

%   Copyright 1984-2017 The MathWorks, Inc.

if nargin == 0  % Pretty-print 

    if nargout == 0

        matlabpath

    end

elseif nargin == 1 

    if ~isValidInput(path1)

        error(message('MATLAB:string:MustBeStringScalarOrCharacterVector'))

    end

    matlabpath(path1) % matlabpath will check and process path1

elseif nargin == 2 

    if ~isValidInput(path2) || ~isValidInput(path1) 

        error(message('MATLAB:string:MustBeStringScalarOrCharacterVector'))

    end 

    % If path1 is contained in path2 or vice versa, don't add it

    pp = matlabpath; 

    % Windows is case-insensitive

    % Use "Cased" variables for comparisons,

    %   but do real work on path1 and path2

	% Define FILESEP and PATHSEP, since these are not built-in

	% and PATH might be called with an empty MATLAB path

    if ispc 

        ps = ';';

        path1 = strrep(path1,'/','\');

        path2 = strrep(path2,'/','\');

        path1Cased  = lower(path1);

        path2Cased  = lower(path2);

        ppCased = lower(pp);

    else 

        ps = ':'; 

        path1Cased = path1; 

        path2Cased = path2; 

        ppCased = pp; 

    end 

    if isempty(path1Cased) 

        if ~strcmp(ppCased,path2Cased), matlabpath(path2), end

    elseif isempty(path2Cased) 

        if ~strcmp(ppCased,path1Cased), matlabpath(path1), end

    else 

        % Check for special cases path(path1,path) or path(path,path2)

        if strcmp(ppCased,path1Cased), append = 1; else append = 0; end 

        % Add path separator to path1 and path2

        if ~isempty(path1Cased) && path1Cased(end)~=ps, path1 = strcat(path1,ps); end 

        if ~isempty(path2Cased) && path2Cased(end)~=ps, path2 = strcat(path2,ps); end 

        cPath1 = parsedirs(path1); 

        cPath2 = parsedirs(path2); 

        % Use "Cased" variables for comparisons,

        %   but do real work on cPath1 and cPath2

        if ispc 

            cPath1Cased  = lower(cPath1);

            cPath2Cased  = lower(cPath2);

        else 

            cPath1Cased = cPath1; 

            cPath2Cased = cPath2; 

        end 

        % Loop through path to see if we're adding existing paths

        % If so, move them to the beginning or end as specified

        % On Windows, search without case, but use actual inputs when

        % calling MATLABPATH to preserve case

        if append 

            pmatch = false(size(cPath1));

            for n=1:length(cPath2Cased)

                pmatch = pmatch | strcmp(cPath2Cased{n},cPath1Cased);

            end

            cPath1(pmatch) = [];

        else 

            pmatch = false(size(cPath2)); 

            for n=1:length(cPath1Cased) 

                pmatch = pmatch | strcmp(cPath1Cased{n},cPath2Cased); 

            end 

            cPath2(pmatch) = []; 

        end 

        if isempty(cPath2) 

            matlabpath(path1);

        elseif isempty(cPath1) 

            matlabpath(path2);

        else 

            matlabpath([cPath1{:} cPath2{:}]); 

        end 

    end 

end 

if nargout==1, p = matlabpath; end