From 21457ea2be39367e84fffba4cb5ac1dbdc9f3a73 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 24 May 1991 18:34:59 +0000 Subject: [PATCH] Added definition of strcasecmp for non-cmucs sites. --- ldb/parse.c | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) diff --git a/ldb/parse.c b/ldb/parse.c index 3c36b181c..6d04ccf13 100644 --- a/ldb/parse.c +++ b/ldb/parse.c @@ -1,4 +1,4 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/parse.c,v 1.6 1991/02/16 01:00:41 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/parse.c,v 1.7 1991/05/24 18:34:59 wlott Exp $ */ #include <stdio.h> #include <ctype.h> #include <signal.h> @@ -12,6 +12,24 @@ #include "interrupt.h" #include "lispregs.h" +static int strcasecmp(s1,s2) +char *s1,*s2; +{ + int c1, c2; + + do{ + c1=(*s1++); + if(isupper(c1)) + c1=tolower(c1); + + c2=(*s2++); + if(isupper(c2)) + c2=tolower(c2); + }while(c1==c2 && c1!=0); + + return c1-c2; +} + static void skip_ws(ptr) char **ptr; { -- GitLab