1: /* $Header$ */ 2: 3: /* 4: * Author: Peter J. Nicklin 5: */ 6: 7: /* 8: * pfxcpy() copies the prefix of s2 to s1. 9: */ 10: char * 11: pfxcpy(s1, s2) 12: register char *s1; /* target string */ 13: register char *s2; /* source string */ 14: { 15: char *ss1 = s1; /* start of s1 */ 16: 17: while ((*s1 = *s2) && *s2 != '.') 18: s1++, s2++; 19: *s1 = '\0'; 20: return(ss1); 21: }