/**********************************************************************

	SCONCAT - String Concatenate

	concatenate strings S1 ... Sn into buffer B
	return B

**********************************************************************/

# ifdef snyder_compiler
#   define bumps *s++
# else
#   define bumps *s--
# endif

char *sconcat (b, n, s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13)
	char *b, *s1, *s2, *s3, *s4, *s5, *s6, *s7, *s8, *s9, *s10,
		*s11, *s12, *s13;

	{char **s;
	register char *p, *q;
	register int c;

	q = b;
	s = &s1;

	while (--n >= 0)
		{p = bumps;
		while (c = *p++) *q++ = c;
		}

	*q = 0;
	return (b);
	}

/**********************************************************************

	SLOWER - Convert String To Lower Case

**********************************************************************/

slower (s)
	register char *s;

	{register int c;
	while (c = *s) *s++ = lower (c);
	}

/****************************************************************

	CMOVE, SMOVE - copy non-overlapping regions

****************************************************************/

smove (from, to, n)
	int *from, *to, n;

	{if (n > 0) blt (from, to, n);}

cmove (from, to, n)
	char *from, *to;
	int n;

	{if (n > 0) blt (from, to, n);}

/****************************************************************

	CFILL, SFILL - fill a region with a given value

****************************************************************/

sfill (start, count, val)
	int *start, count, val;

	{if (count > 0)
		{*start = val;
		if (--count > 0) blt (start, start + 1, count);
		}
	}

cfill (start, count, val)
	char *start, val;
	int count;

	{if (count > 0)
		{*start = val;
		if (--count > 0) blt (start, start + 1, count);
		}
	}