From 98a18b797c63ea9baab31768ed720ad32c0004e8 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Mon, 14 May 2001 21:47:42 +0000 Subject: i can compile slang and newt with dietlibc now --- mdk-stage1/slang/slxstrng.c | 43 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 mdk-stage1/slang/slxstrng.c (limited to 'mdk-stage1/slang/slxstrng.c') diff --git a/mdk-stage1/slang/slxstrng.c b/mdk-stage1/slang/slxstrng.c new file mode 100644 index 000000000..3f8a4dffa --- /dev/null +++ b/mdk-stage1/slang/slxstrng.c @@ -0,0 +1,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); +} -- cgit v1.2.1