The R Project SVN R

char * strdup (const char *str)

{

  char *newstr;

  newstr = (char *) malloc (strlen (str) + 1);

  if (newstr)

    strcpy (newstr, str);

  return newstr;

}