source: buchla-68k/orig/CLIBRARY/STRCPY.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: 428 bytes
RevLine 
[3ae31e9]1/*
2 =============================================================================
3 strcpy.c -- copy string
4 Version 1 -- 1987-06-12
5
6 Copy string s2 to s1. s1 must be large enough.
7 return s1
8 =============================================================================
9*/
10
11char *
12strcpy(s1, s2)
13register char *s1, *s2;
14{
15 register char *os1;
16
17 os1 = s1;
18
19 while(*s1++ = *s2++)
20 ;
21
22 return(os1);
23}
Note: See TracBrowser for help on using the repository browser.