mirror of
https://github.com/PDP-10/its.git
synced 2026-03-23 01:16:20 +00:00
90 lines
1.7 KiB
C
90 lines
1.7 KiB
C
/**********************************************************************
|
|
|
|
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);
|
|
}
|
|
}
|