webinstall_exportfig.m

function [ok]=webinstall_exportfig(mypath)
%WEBINSTALL_EXPORTFIG    Install export_fig components
%
%    Usage:    ok=webinstall_exportfig
%              ok=webinstall_exportfig(path)
%
%    Description:
%     OK=WEBINSTALL_EXPORTFIG downloads the export_fig zip file to the
%     directory where this mfile is located, extracts its contents to the
%     'export_fig' directory and adds/saves it to the path.  The download
%     is only 0.1 megabytes.  Just be aware that you will not be able to do
%     anything else at the Matlab/Octave prompt while waiting for the file
%     to download.
%
%     OK=WEBINSTALL_EXPORTFIG(PATH) installs the export_fig toolbox under
%     the directory given by PATH.
%
%    Notes:
%
%    Examples:
%     % Update export_fig by uninstalling, deleting the .zip & installing:
%     uninstall_exportfig;
%     delete([fileparts(which('webinstall_exportfig')) filesep ...
%         'export_fig.zip']);
%     webinstall_exportfig;
%
%    See also: UNINSTALL_EXPORTFIG, WEBINSTALL_GSHHS, UNINSTALL_GSHHS,
%              WEBINSTALL_NJTBX, UNINSTALL_NJTBX, WEBINSTALL_MMAP,
%              UNINSTALL_MMAP, WEBINSTALL_EXTRAS, UNINSTALL_EXTRAS,
%              WEBINSTALL_IRISWS, UNINSTALL_IRISWS, WEBINSTALL_TAUP,
%              UNINSTALL_TAUP, UNINSTALL_SEIZMO, INSTALL_SEIZMO, EXPORT_FIG

%     Version History:
%        Feb. 16, 2012 - initial version
%        Jan. 14, 2014 - throw warning if problem
%        Jan. 15, 2014 - updated example to actually update export_fig,
%                        updated See also list
%        Jan. 27, 2014 - added isabspath for abs path fix to path option
%        Feb. 27, 2014 - updated See also list
%        July  9, 2014 - update for export_fig being moved to github
%
%     Written by Garrett Euler (ggeuler at wustl dot edu)
%     Last Updated July  9, 2014 at 15:25 GMT

% todo:

% check nargin
error(nargchk(0,1,nargin));

% directory separator
fs=filesep;

% default path to seizmo directory
if(nargin<1 || isempty(mypath))
    mypath=fileparts(mfilename('fullpath'));
else
    if(~isabspath(mypath)); mypath=[pwd fs mypath]; end
end

% check path
if(~exist(mypath,'dir'))
    error('seizmo:webinstall_exportfig:badPath',...
        ['Directory (' mypath ') does not exist!']);
end

% attempt export_fig install
try
    % go to desired install location
    cwd=pwd;
    cd(mypath);
    
    % current version
    exportfig='export_fig.zip';
    
    % grab file
    url='https://github.com/ojwoodford/export_fig/archive/master.zip';
    disp([' Getting ' exportfig]);
    if(exist(exportfig,'file'))
        if(~exist([mypath fs exportfig],'file'))
            copyfile(which(exportfig),'.');
        end
    else
        urlwrite(url,exportfig);
    end
    
    % delete pre-existing directory if in Octave
    exportfigdir=[mypath fs exportfig(1:end-4)]; % strip .zip
    if(exist(exportfigdir,'dir') && exist('OCTAVE_VERSION','builtin')==5)
        fprintf('Output directory exists: %s\n',exportfigdir);
        y=rmdir(exportfigdir,'s');
        if(~y)
            disp('Replace All or None of the files? (A/N)?');
        end
    end
    
    % unpack and install export_fig
    unzip(exportfig,exportfigdir); % extract to export_fig dir
    addpath([mypath fs 'export_fig']);
    savepath;
    
    % return
    cd(cwd);
    
    % all good
    ok=true;
catch
    le=lasterror;
    warning(le.identifier,le.message);
    ok=false;
    cd(cwd);
end

end

function [lgc]=isabspath(path,iswindows)
%ISABSPATH    Determines if a path is an absolute path or not
%
%    Usage:    lgc=isabspath(path)
%              lgc=isabspath(path,iswindows)
%
%    Description:
%     LGC=ISABSPATH(PATH) checks if the path(s) in PATH are relative or
%     absolute and returns TRUE for those that are absolute paths.  PATHS
%     may be a string, char array or a cell string array.  LGC is a logical
%     array with one element per path in PATH.  This is useful to find
%     relative paths so you can convert them to absolute paths for
%     functions like EXIST.  The determination is done by discovering the
%     OS type of the current system using ISPC.
%
%     LGC=ISABSPATH(PATH,ISWINDOWS) allows setting the OS type for
%     determining if the paths are absolute or not when the paths are not
%     valid paths for the current machine.  For instance, set ISWINDOWS to
%     FALSE for Unix, Linux or MACOSX paths when you are using MicrosoftTM
%     WindowsTM.  ISWINDOWS must be TRUE or FALSE (scalar only).
%
%    Notes:
%     - The path is not required to exist or even to be valid!  This just
%       does a simple test on each path given the OS (e.g., is the first
%       character a '/' for unix).
%
%    Examples:
%     % Test a few relative paths:
%     isabspath('./somedir')
%     isabspath('../somedir')
%     isabspath('~/somedir')
%     isabspath('..\somewindir')
%
%     % Test a few absolute paths:
%     isabspath('/home')
%     isabspath('/usr/share/../bin')
%     isabspath('c:\Programs')
%
%     % And a few invalid ones:
%     isabspath('/\')                   % absolute path to the '\' dir?
%     isabspath('somedir\c:/somewhere') % win drive in a unix dir under pwd
%     isabspath('\\someserver\somedir') % maybe you can add this feature...
%
%    See also: ISPC, ISUNIX

%     Version History:
%        Jan. 27, 2014 - initial version
%
%     Written by Garrett Euler (ggeuler at wustl dot edu)
%     Last Updated Jan. 27, 2014 at 11:15 GMT

% todo:

% check number of inputs
error(nargchk(1,2,nargin));

% check/fix path
if(ischar(path))
    path=cellstr(path);
elseif(~iscellstr(path))
    error('seizmo:isabspath:badInput',...
        'PATH must be a string, char array or a cellstr array!');
end

% check/default os
if(nargin<2 || isempty(iswindows)); iswindows=ispc; end
if(~islogical(iswindows) || ~isscalar(iswindows))
    error('seizmo:isabspath:badInput',...
        'ISWINDOWS must be TRUE or FALSE!');
end

% preallocate output as all relative paths
lgc=false(size(path));

% act by os
if(iswindows) % windows
    for i=1:numel(path)
        % require drive char to be a-z,A-Z
        if(isempty(path{i})); continue; end
        drive=double(upper(path{i}(1)));
        lgc(i)=drive>=65 && drive<=90 && strcmp(path{i}(2:3),':\');
    end
else % unix, linux, macosx
    for i=1:numel(path)
        if(isempty(path{i})); continue; end
        lgc(i)=strcmp(path{i}(1),'/');
    end
end

end