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