% removeext - remove extension from a file name
%
% removeext :: string -> string.
function nm=removeext(path)
dot=max(strfind(path,'.'));
if isempty(dot), nm=path;
else nm=path(1:(dot-1));
end
