function b=endswith(str,suffix)
% endswith - test to see if a string ends with  a certain suffix
%
% endswith :: string ~'string to check', string ~'suffix' -> bool.
%
% returns 1 iff end of string matches suffix (case insensitive)

if length(str)<length(suffix) b=0; else
b=strcmpi(str(end-length(suffix)+1:end),suffix);
end


