1 files changed, 47 insertions, 0 deletions
diff --git a/CSXCAD/matlab/searchBinary.m b/CSXCAD/matlab/searchBinary.m
new file mode 100644
index 0000000..6310dde
--- /dev/null
+++ b/CSXCAD/matlab/searchBinary.m
@@ -0,0 +1,47 @@
+function [binary_location] = searchBinary(name, searchpath, err_fail)
+% [binary_location] = searchBinary(name, searchpath<, err_fail>)
+%
+% Function to search for executable. If the executable isn't found
+% in searchpath, look in environment search path.
+%
+% parameter:
+%   name:         name of the binary to search
+%   searchpath:   (list of) search paths
+%   err_fail:     0/1, throw an error if binary is not found (default is 1)
+%
+% Output:
+%  binary_location:
+%     if found in searchpath:                full path of binary
+%     if found in environment search path:   name of binary
+%     if not found:                          empty string
+%
+%
+% openEMS matlab/octave interface
+% -----------------------
+% (C) 2013 Stefan Mahr <dac922@gmx.de>
+
+if (nargin<3)
+    err_fail = 1;
+end
+
+if ischar(searchpath)
+    searchpath = {searchpath};
+end
+
+% append PATH search paths
+searchpath = [searchpath regexp(getenv('PATH'), pathsep, 'split')];
+
+% try all search paths
+for n=1:numel(searchpath)
+    binary_location = [searchpath{n} name];
+    if exist(binary_location, 'file')
+        return
+    end
+end
+
+% binary not found
+binary_location = '';
+
+if (err_fail)
+    error('CSXCAD:binary_location', [name ' binary not found!']);
+end