Digital Research
This commit is contained in:
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions

View File

@@ -0,0 +1,29 @@
/****************************************************************************
* STRNCAT - concatenate strings (limited)
*
* BYTE *strncat(s1,s2,n)
* BYTE *s1, *s2; WORD n;
*
* 'strncat' copies at most n bytes of s2 onto the end of s1.
*
* Assumes null terminated strings. No check is made for string area
* overflow.
****************************************************************************/
#include <portab.h>
BYTE * strncat(s1,s2,num) /* CLEAR FUNCTION ***********/
BYTE *s1;
REG BYTE *s2; /* 'n' unsigned: if n<0, we'll */
WORD num; /* still decrement to 0. */
{
REG BYTE *cp;
for( cp=s1; *cp; cp++) /* save s1 for return. */
;
while( *s2 && num-- > 0 ) /* copy until eos(s2) or n==0: */
*cp++ = *s2++; /* no copy if n==0. */
*cp = NULL; /* make sure string gets eos. */
return(s1);
}