Skip to content
Snippets Groups Projects
Commit 21457ea2 authored by wlott's avatar wlott
Browse files

Added definition of strcasecmp for non-cmucs sites.

parent ebd84c6f
No related branches found
No related tags found
No related merge requests found
/* $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;
{
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment