blob: 3f8a4dffa646366dbad77182c2adfb7dd1152802 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
/* Copyright (c) 1992, 1999, 2001 John E. Davis
* This file is part of the S-Lang library.
*
* You may distribute under the terms of either the GNU General Public
* License or the Perl Artistic License.
*/
/* These routines are simple and inefficient. They were designed to work on
* SunOS when using Electric Fence.
*/
#include "slang.h"
#include "_slang.h"
char *SLstrcpy(register char *aa, register char *b)
{
char *a = aa;
while ((*a++ = *b++) != 0);
return aa;
}
int SLstrcmp(register char *a, register char *b)
{
while (*a && (*a == *b))
{
a++;
b++;
}
if (*a) return((unsigned char) *a - (unsigned char) *b);
else if (*b) return ((unsigned char) *a - (unsigned char) *b);
else return 0;
}
char *SLstrncpy(char *a, register char *b,register int n)
{
register char *aa = a;
while ((n > 0) && *b)
{
*aa++ = *b++;
n--;
}
while (n-- > 0) *aa++ = 0;
return (a);
}
|
