basename.m

这是一个用于语音信号处理的工具箱

%
% Function to find out the basename and extension
% example: If a filename is speech.dat
%     then the basename is 'speech'
%     and the extention is 'dat'
% The basename.m file used here differs slightly from that used in the
% other software.  In this case the last line is deleted, i.e.,
% the line bname = lower(bname)is not used here.;
% 
function [ bname, xtent] = basename(s)

len=length(s);
for i=1:len,
	if s(i) == '.';
		break;
	end
end

bname=s(1:i-1);

if exist('i') & i == 1,
	bname='';
	xtent=s(i+1:len);
elseif exist('i') & i == len
	bname=s;
	xtent='';
else
	bname=s(1:i-1);
	xtent=s(i+1:len);
end
%bname=lower(bname);