/*************************************************************
 * File: lib/strdchr.c
 * Purpose: Part of C runtime library
 * Author: Phil Bunce (pjb@carmel.com)
 * Revision History:
 *	970304	Start of revision history
 */

#include "string.h"

/*************************************************************
* char *strdchr(p) 
*	deletes the first char from the string p 
*/
char *strdchr(p)
char *p;
{
char *t;

if (!p) return(p);
for (t=p;*t;t++) *t = *(t+1);
return(p);
}