/*-------------------------------------------------------------------
  xlastpos(needle, haystack)
   If needle not found, 0 is returned
   Mark McDonald 2008
  -------------------------------------------------------------------*/
int *xlastpos(char *xneedle, char xhay){
  int xret = 0;
  xret = strfindlast(xhay, xneedle);
return(xret);
}//xlastpos