source: buchla-68k/orig/CLIBRARY/STRCCPY.C@ cbe2c15

Last change on this file since cbe2c15 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Imported original source code.

  • Property mode set to 100755
File size: 907 bytes
Line 
1/*
2 =============================================================================
3 strccpy.c -- copy string up to specified character
4 Version 1 -- 1987-04-03 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
8/*
9 =============================================================================
10 strccpy(s1, s2, c) -- copy string up to specified character
11
12 Copy string s2 to s1 up to but not including the first occurrence of c.
13 s1 must be large enough to contain the copied bytes.
14 No checking is done. Character c is not copied. Returns s1.
15 =============================================================================
16 */
17
18char *
19strccpy(s1, s2, c)
20register char *s1, *s2, c;
21{
22 register char *os1;
23 register char x;
24
25 os1 = s1;
26
27 while(c != (x = *s1++))
28 *s2++ = x;
29
30 return(os1);
31}
Note: See TracBrowser for help on using the repository browser.