/* FilSuf - returns the suffix of a filename or path, optional in lower case DESCRIPTION returns the suffix (extension) of a filename or path, optional in lower case SYNTAX Suf FilSuf Spath,ilow INITIALIZATION Spath - full pathname (or filename) as string ilow - return ensuring lower case (1) or return as in Spath (0 = default) CREDITS joachim heintz 2012 */ opcode FilSuf, S, So Spath,ilow xin ipos strrindex Spath, "." Suf strsub Spath, ipos+1 if ilow != 0 then Suf strlower Suf endif xout Suf endop