From 1d9a4b73a37c6e942f909c2d42ca13b5c47e8362 Mon Sep 17 00:00:00 2001 From: Mystery Man Date: Tue, 5 Apr 2005 19:41:54 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'V10_2_20mdk'. --- mdk-stage1/slang/slxstrng.c | 43 ------------------------------------------- 1 file changed, 43 deletions(-) delete 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 deleted file mode 100644 index 3f8a4dffa..000000000 --- a/mdk-stage1/slang/slxstrng.c +++ /dev/null @@ -1,43 +0,0 @@ -/* 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