home *** CD-ROM | disk | FTP | other *** search
- /*
- #### # # # #
- # # # # # The FreeWare C library for
- # # ## ### # # # # ### RISC OS machines
- # # # # # # # # # # # ___________________________________
- # # #### ### ## # # # #
- # # # # # # # # # # Please refer to the accompanying
- #### ### #### # # ##### # ### documentation for conditions of use
- ________________________________________________________________________
-
- File: Misc.strcpycr.c
- Author: Copyright © 1993 Jason Williams
- Version: 1.00 (16 May 1993)
- Purpose: Copies a CR-terminated string - note that this will change the
- terminator of the result to a NUL (0).
- */
-
-
- extern char *strcpycr(char *s1, char *s2)
- {
- register int index = 0;
-
- while (s2[index] > 31)
- {
- s1[index] = s2[index];
- index++;
- }
-
- s1[index] = 0;
- return(s1);
- }
-