#ident "$URL: svn://elmer/devel/SVN/SDDAS/trunk/libant/PastWhite.c $ %D% SwRI"
/*
  PastWhite.c -- look past leading white space in string
*/
 


#include <ctype.h>

#ifndef NUL
#define NUL '\0'
#endif

/* PastWhite -- returns ptr to first char past white space in string */
char *
PastWhite(char  *str)
{
  while (str && *str != NUL && isspace((int) *str))
    str++;
  return str;
}