function binname=mcpath(fname, ext)
%
% binname=mcpath(fname)
%
% get full executable path by prepending a command directory path
% parameters:
%
% author: Qianqian Fang, <q.fang at neu.edu>
%
% input:
% fname: input, a file name string
%
% output:
% binname: output, full file name located in the bin directory
%
% if global variable ISO2MESH_BIN is set in 'base', it will
% use [ISO2MESH_BIN filesep cmdname] as the command full path,
% otherwise, let matlab pass the cmdname to the shell, which
% will search command in the directories listed in system
% $PATH variable.
%
% -- this function is part of iso2mesh toolbox (http://iso2mesh.sf.net)
%
p=getvarfrom({'caller','base'},'ISO2MESH_BIN');
binname=[];
if(isempty(p))
% the bin folder under iso2mesh is searched first
tempname=[fileparts(which(mfilename)) filesep 'bin' filesep fname];
if(exist([fileparts(which(mfilename)) filesep 'bin'])==7)
if(nargin>=2 && ~isempty(ext))
if(exist([tempname ext],'file'))
binname=[tempname ext];
else
binname=fname; % use binary without suffix on system PATH
end
else
binname=tempname;
end
else
binname=fname;
end
else
binname=[p filesep fname];
end
% on 64bit windows machine, try 'exename_x86-64.exe' first
if(ispc && ~isempty(regexp(computer,'64', 'once')) && isempty(regexp(fname,'_x86-64$', 'once')))
w64bin=regexprep(binname,'(\.[eE][xX][eE])*$','_x86-64.exe','emptymatch');
if(exist(w64bin,'file'))
binname=w64bin;
end
end
% if no such executable exist in iso2mesh/bin, find it in PATH env variable
if(nargin>=2 && ~exist(binname,'file'))
binname=fname;
end
