- added isabspath to determine if a path is

  absolute or relative
  - this helps with problems stemming from
    exist, isdir, fopen, etc allowing for
    relative paths to be from any directory
    in the path (not just the pwd)
- updated many functions that use exist on
  a filename or directory name to have the
  full path so there is no ambiguity
  - many more still to go (need to check
    for isdir & fopen too)
  - probably some bugs from this as I've
    gone cross-eyed fixing this many files

Author: g2e

Diff for: docs/seizmo_to_do.txt

@@ -11,24 +11,17 @@ sacpzdb
 octave installation under 3.8.0
 
 1. exist function problem
-  - returns true for any directory/file name on path so we need to test
-    for existence only in the current directory (if not absolute)
-  - the workaround (use absolute path if relative):
-     exist([pwd filesep dir],7)
-  - but how to know if the path is relative or absolute???
-    - first get the OS: use isunix or ispc
-    - if "unix" (unix/linux/macosx): '/' is 1st char
-    - if "pc" (windows): 'X:\' is 1st 3 char
-    - isabspath will be the new function name
+   - use isabspath to find rel paths then prepend pwd fs on those
+   - isdir needs this too!
+   - BONUS: fix string checking to use isstring ('must be a string!')
 2. fix topo functions
 3. 2d inversion on a sphere
 4. data grabbing codes
-    grab_events
+    grab_events (!)
     grab_stations
     grab_channels
-    grab_responses
-    grab_seismograms
-
+    grab_responses (!)
+    grab_seismograms (!)
 5 noise array phase and attenuation like in prieto 2009
     - noise_stack_delaz
     - stacking option

Diff for: misc/create_contents_file.m

@@ -26,22 +26,27 @@
 
 %     Version History:
 %        Jan.  3, 2011 - initial version
+%        Jan. 26, 2014 - abs path exist fix
 %
 %     Written by Garrett Euler (ggeuler at wustl dot edu)
-%     Last Updated Jan.  3, 2011 at 23:00 GMT
+%     Last Updated Jan. 26, 2014 at 23:00 GMT
 
 % todo:
 
 % check nargin
 error(nargchk(0,4,nargin));
 
+% directory separator
+fs=filesep;
+
 % check directory if given
 if(nargin>0 && ~isempty(mdir))
     % check directory
     if(~isstring(mdir))
         error('seizmo:create_contents_file:dirNotString',...
             'MDIR must be a string!');
     end
+    if(~isabspath(mdir)); mdir=[pwd fs mdir]; end
     if(~exist(mdir,'dir'))
         error('seizmo:create_contents_file:dirDoesNotExist',...
             'Directory: %s\nDoes Not Exist!',mdir);
@@ -98,7 +103,6 @@
 if(nargin<2 || isempty(desc)); desc=['Contents of ' mdir ':']; end
 
 % graphical file selections
-fs=filesep;
 if(nargin<3 || isempty(file))
     [file,path]=uiputfile(...
         {'*.m' 'M Files (*.m)';

Diff for: misc/isabspath.m

@@ -0,0 +1,90 @@
+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

Diff for: misc/readcsv.m

@@ -38,9 +38,10 @@
 %        Jan. 28, 2011 - handle empty entries (,,), allow alternate
 %                        field delimiter, require nonempty field name
 %        Feb. 28, 2012 - output is scalar struct now
+%        Jan. 26, 2014 - abs path exist fix
 %
 %     Written by Garrett Euler (ggeuler at wustl dot edu)
-%     Last Updated Feb. 28, 2012 at 17:25 GMT
+%     Last Updated Jan. 26, 2014 at 17:25 GMT
 
 % todo:
 % - text delimiter
@@ -53,6 +54,9 @@
 % check nargin
 error(nargchk(0,2,nargin));
 
+% directory separator
+fs=filesep;
+
 % graphical selection
 if(nargin<1 || isempty(file))
     [file,path]=uigetfile(...
@@ -63,13 +67,14 @@
         error('seizmo:readcsv:noFileSelected',...
             'No input file selected!');
     end
-    file=strcat(path,filesep,file);
+    file=[path fs file];
 else
     % check file
-    if(~ischar(file))
+    if(~isstring(file))
         error('seizmo:readcsv:fileNotString',...
             'FILE must be a string!');
     end
+    if(~isabspath(file)); file=[pwd fs file]; end
     if(~exist(file,'file'))
         error('seizmo:readcsv:fileDoesNotExist',...
             'CSV File: %s\nDoes Not Exist!',file);

Diff for: misc/readtxt.m

@@ -33,15 +33,19 @@
 %        July 30, 2010 - nargchk fix
 %        Aug. 10, 2010 - filterspec option added
 %        Nov.  1, 2011 - doc update
+%        Jan. 26, 2014 - abs path exist fix
 %
 %     Written by Garrett Euler (ggeuler at wustl dot edu)
-%     Last Updated Nov.  1, 2011 at 13:00 GMT
+%     Last Updated Jan. 26, 2014 at 13:00 GMT
 
 % todo:
 
 % check nargin
 error(nargchk(0,2,nargin));
 
+% directory separator
+fs=filesep;
+
 % default/check filterspec
 if(nargin<2 || isempty(filterspec))
     filterspec={'*.txt;*.TXT' 'TXT Files (*.txt,*.TXT)';
@@ -58,13 +62,14 @@
     if(isequal(0,file))
         error('seizmo:readtxt:noFileSelected','No input file selected!');
     end
-    file=strcat(path,filesep,file);
+    file=[path fs file];
 else
     % check file
-    if(~ischar(file))
+    if(~isstring(file))
         error('seizmo:readtxt:fileNotString',...
             'FILE must be a string!');
     end
+    if(~isabspath(file)); file=[pwd fs file]; end
     if(~exist(file,'file'))
         error('seizmo:readtxt:fileDoesNotExist',...
             'File: %s\nDoes Not Exist!',file);

Diff for: misc/unixcompressavi.m

@@ -77,9 +77,10 @@
 %        Apr.  3, 2012 - minor doc update
 %        Apr. 26, 2012 - add LD_LIBRARY_PATH="" to unix calls to avoid
 %                        linker issues (glibcxx_3.4.11 no found...)
+%        Jan. 26, 2014 - abs path exist fix
 %
 %     Written by Garrett Euler (ggeuler at wustl dot edu)
-%     Last Updated Apr. 26, 2012 at 17:45 GMT
+%     Last Updated Jan. 26, 2014 at 17:45 GMT
 
 % todo
 % - options for other codecs?
@@ -103,6 +104,9 @@
 % check nargin
 error(nargchk(1,4,nargin));
 
+% directory separator
+fs=filesep;
+
 % default codec
 if(nargin==1 || isempty(fileout)); fileout=filein; end
 if(nargin<3 || isempty(codec)); codec='lavc'; end
@@ -140,6 +144,7 @@
 
 % loop over filein checking each exists
 for i=1:n
+    if(~isabspath(filein{i})); filein{i}=[pwd fs filein{i}]; end
     if(~exist(filein{i},'file'))
         error('seizmo:unixcompressavi:fileNotFound',...
             'Could not locate file: %s',filein{i});

Diff for: misc/writecsv.m

@@ -49,15 +49,19 @@
 %        Feb.  5, 2010 - add check for overwrite flag
 %        Feb. 11, 2011 - mass nargchk fix, use fprintf
 %        Feb. 28, 2012 - input is scalar struct now, delimiter input
+%        Jan. 26, 2014 - abs path exist fix
 %
 %     Written by Garrett Euler (ggeuler at wustl dot edu)
-%     Last Updated Feb. 28, 2012 at 15:05 GMT
+%     Last Updated Jan. 26, 2014 at 15:05 GMT
 
 % todo:
 
 % check nargin
 error(nargchk(2,4,nargin));
 
+% directory separator
+fs=filesep;
+
 % defaults
 if(nargin<3 || isempty(delimiter)); delimiter=', '; end
 if(nargin<4 || isempty(overwrite)); overwrite=false; end
@@ -84,13 +88,14 @@
     if(isequal(0,file))
         error('seizmo:writecsv:noFileSelected','No output file selected!');
     end
-    file=strcat(path,filesep,file);
+    file=[path fs file];
 else
     % check file
-    if(~ischar(file) || ~isvector(file))
+    if(~isstring(file))
         error('seizmo:writecsv:fileNotString',...
             'FILE must be a string!');
     end
+    if(~isabspath(file)); file=[pwd fs file]; end
     if(exist(file,'file'))
         if(exist(file,'dir'))
             error('seizmo:writecsv:dirConflict',...

Diff for: models/read_cu_mod.m

@@ -31,19 +31,23 @@
 %     figure; imagesc(model.vsh(:,:,3));
 %     figure; imagesc(model.vsv(:,:,3));
 %
-%    See also:
+%    See also: READCRUST2, READCRUST10
 
 %     Version History:
 %        Jan. 21, 2011 - initial version
+%        Jan. 26, 2014 - abs path exist fix
 %
 %     Written by Garrett Euler (ggeuler at wustl dot edu)
-%     Last Updated Jan. 21, 2011 at 10:35 GMT
+%     Last Updated Jan. 26, 2014 at 10:35 GMT
 
 % todo
 
 % check nargin
 error(nargchk(0,1,nargin));
 
+% directory separator
+fs=filesep;
+
 % file input
 filterspec={
     '*.mod;*.MOD' 'MOD Files (*.mod,*.MOD)';
@@ -55,13 +59,14 @@
         error('seizmo:read_cu_mod:noFileSelected',...
             'No input file selected!');
     end
-    file=strcat(path,filesep,file);
+    file=[path fs file];
 else
     % check file
     if(~isstring(file))
         error('seizmo:read_cu_mod:fileNotString',...
             'FILE must be a string!');
     end
+    if(~isabspath(file)); file=[pwd fs file]; end
     if(~exist(file,'file'))
         error('seizmo:read_cu_mod:fileDoesNotExist',...
             'File: %s\nDoes Not Exist!',file);

Diff for: models/write_1dmodel_nd.m

@@ -49,15 +49,19 @@
 %        Sep. 18, 2010 - initial version
 %        Sep. 19, 2010 - support for inf Q output as 0
 %        Feb. 21, 2012 - noheader flag
+%        Jan. 26, 2014 - abs path exist fix
 %
 %     Written by Garrett Euler (ggeuler at wustl dot edu)
-%     Last Updated Feb. 21, 2012 at 10:35 GMT
+%     Last Updated Jan. 26, 2014 at 10:35 GMT
 
 % todo
 
 % check nargin
 error(nargchk(2,4,nargin));
 
+% directory separator
+fs=filesep;
+
 % default overwrite to false
 if(nargin<3 || isempty(overwrite)); overwrite=false; end
 if(nargin<4 || isempty(noheader)); noheader=false; end
@@ -88,13 +92,14 @@
         error('seizmo:write_1dmodel_nd:noFileSelected',...
             'No output file selected!');
     end
-    file=strcat(path,filesep,file);
+    file=[path fs file];
 else
     % check file
-    if(~ischar(file) || ~isvector(file))
+    if(~isstring(file))
         error('seizmo:write_1dmodel_nd:fileNotString',...
             'FILE must be a string!');
     end
+    if(~isabspath(file)); file=[pwd fs file]; end
     if(exist(file,'file'))
         if(exist(file,'dir'))
             error('seizmo:write_1dmodel_nd:dirConflict',...