source: buchla-68k/orig/CLIBRARY/STRCAT.C@ 6099cac

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

Imported original source code.

  • Property mode set to 100755
File size: 560 bytes
Line 
1/*
2 =============================================================================
3 strcat.c -- concatenate strings
4 Version 1 -- 1987-06-12
5
6 Concatenate s2 onto the end of s1. S1's space must be large enough.
7 Return s1.
8 =============================================================================
9*/
10
11char *
12strcat(s1, s2)
13register char *s1, *s2;
14{
15 register char *os1;
16
17 os1 = s1;
18
19 while(*s1++)
20 ;
21
22 --s1;
23
24 while(*s1++ = *s2++)
25 ;
26
27 return(os1);
28}
Note: See TracBrowser for help on using the repository browser.