diff --git a/matlab/get_file_extension.m b/matlab/get_file_extension.m index 56c140d838a8d845bc1f7ef040adce9080f317e1..d922b36ac50150c4a8e925ad4446df03ad166ded 100644 --- a/matlab/get_file_extension.m +++ b/matlab/get_file_extension.m @@ -11,7 +11,7 @@ function ext = get_file_extension(file) % REMARKS % If the provided file name has no extension, the routine will return an empty array. -% Copyright (C) 2013 Dynare Team +% Copyright (C) 2013-2015 Dynare Team % % This file is part of Dynare. % @@ -28,15 +28,9 @@ function ext = get_file_extension(file) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. -% Clean-up path -file = strrep(file, '../', ''); -file = strrep(file, './', ''); +[dir, fname, ext] = fileparts(file); -remain = file; -while ~isempty(remain) - [ext, remain] = strtok(remain,'.'); -end - -if strcmp(ext,file) - ext = []; +if ~isempty(ext) + % Removes the leading dot. + ext = ext(2:end); end \ No newline at end of file