better path finders

Author: alecjacobson

wrappers/find_first_path.m

@@ -1,5 +1,5 @@
-function s = find_first_path(guesses)
-      s = ...
-        guesses{find(cellfun(@(guess) exist(guess,'file'),guesses),1,'first')};
-      assert(~isempty(s),'Could not find path');
+function [s] = find_first_path(guesses)
+  si = find(cellfun(@(guess) exist(guess,'file'),guesses),1,'first');
+  assert(~isempty(si),'Could not find path');
+  s = guesses{si};
 end

wrappers/path_to_medit.m

@@ -1,4 +1,4 @@
-function s = path_to_medit()
+function [s] = path_to_medit()
   % PATH_TO_MEDIT Return path to medit executable
   %
   % s = path_to_medit()
@@ -24,9 +24,7 @@
       guesses = { ...
         '/usr/local/bin/medit', ...
         '/opt/local/bin/medit'};
-      s = ...
-        guesses{find(cellfun(@(guess) exist(guess,'file'),guesses),1,'first')};
-      assert(~isempty(s),'Could not find medit');
+      s = find_first_path(guesses);
     end
   end
 end

wrappers/path_to_tetgen.m

@@ -12,9 +12,7 @@
       'Could you put tetgen there and change this accordingly?' ...
       'Thanks, Alec']);
     s = 'c:/prg/lib/tetgen/Release/tetgen.exe';
-  elseif ismac
-    s = '/usr/local/bin/tetgen';
-  elseif isunix
+  elseif ismac || isunix
     % I guess this means linux
     [~,s] = system('which tetgen');
     s = strtrim(s);