1169695Skan/* 2169695Skan * Copyright (c) 1987 Regents of the University of California. 3169695Skan * All rights reserved. 4169695Skan * 5169695Skan * Redistribution and use in source and binary forms are permitted 6169695Skan * provided that this notice is preserved and that due credit is given 7169695Skan * to the University of California at Berkeley. The name of the University 8169695Skan * may not be used to endorse or promote products derived from this 9169695Skan * software without specific written prior permission. This software 10169695Skan * is provided ``as is'' without express or implied warranty. 11169695Skan */ 12169695Skan 13169695Skan/* 14169695Skan 15169695Skan@deftypefn Supplemental int strcasecmp (const char *@var{s1}, const char *@var{s2}) 16169695Skan 17169695SkanA case-insensitive @code{strcmp}. 18169695Skan 19169695Skan@end deftypefn 20169695Skan 21169695Skan*/ 22169695Skan 23169695Skan#if defined(LIBC_SCCS) && !defined(lint) 24169695Skanstatic char sccsid[] = "@(#)strcasecmp.c 5.5 (Berkeley) 11/24/87"; 25169695Skan#endif /* LIBC_SCCS and not lint */ 26169695Skan 27169695Skan#include <ansidecl.h> 28169695Skan#include <stddef.h> 29169695Skan 30169695Skan/* 31169695Skan * This array is designed for mapping upper and lower case letter 32169695Skan * together for a case independent comparison. The mappings are 33169695Skan * based upon ascii character sequences. 34169695Skan */ 35169695Skantypedef unsigned char uc; 36169695Skanstatic const unsigned char charmap[] = { 37169695Skan (uc)'\000',(uc)'\001',(uc)'\002',(uc)'\003',(uc)'\004',(uc)'\005',(uc)'\006',(uc)'\007', 38169695Skan (uc)'\010',(uc)'\011',(uc)'\012',(uc)'\013',(uc)'\014',(uc)'\015',(uc)'\016',(uc)'\017', 39169695Skan (uc)'\020',(uc)'\021',(uc)'\022',(uc)'\023',(uc)'\024',(uc)'\025',(uc)'\026',(uc)'\027', 40169695Skan (uc)'\030',(uc)'\031',(uc)'\032',(uc)'\033',(uc)'\034',(uc)'\035',(uc)'\036',(uc)'\037', 41169695Skan (uc)'\040',(uc)'\041',(uc)'\042',(uc)'\043',(uc)'\044',(uc)'\045',(uc)'\046',(uc)'\047', 42169695Skan (uc)'\050',(uc)'\051',(uc)'\052',(uc)'\053',(uc)'\054',(uc)'\055',(uc)'\056',(uc)'\057', 43169695Skan (uc)'\060',(uc)'\061',(uc)'\062',(uc)'\063',(uc)'\064',(uc)'\065',(uc)'\066',(uc)'\067', 44169695Skan (uc)'\070',(uc)'\071',(uc)'\072',(uc)'\073',(uc)'\074',(uc)'\075',(uc)'\076',(uc)'\077', 45169695Skan (uc)'\100',(uc)'\141',(uc)'\142',(uc)'\143',(uc)'\144',(uc)'\145',(uc)'\146',(uc)'\147', 46169695Skan (uc)'\150',(uc)'\151',(uc)'\152',(uc)'\153',(uc)'\154',(uc)'\155',(uc)'\156',(uc)'\157', 47169695Skan (uc)'\160',(uc)'\161',(uc)'\162',(uc)'\163',(uc)'\164',(uc)'\165',(uc)'\166',(uc)'\167', 48169695Skan (uc)'\170',(uc)'\171',(uc)'\172',(uc)'\133',(uc)'\134',(uc)'\135',(uc)'\136',(uc)'\137', 49169695Skan (uc)'\140',(uc)'\141',(uc)'\142',(uc)'\143',(uc)'\144',(uc)'\145',(uc)'\146',(uc)'\147', 50169695Skan (uc)'\150',(uc)'\151',(uc)'\152',(uc)'\153',(uc)'\154',(uc)'\155',(uc)'\156',(uc)'\157', 51169695Skan (uc)'\160',(uc)'\161',(uc)'\162',(uc)'\163',(uc)'\164',(uc)'\165',(uc)'\166',(uc)'\167', 52169695Skan (uc)'\170',(uc)'\171',(uc)'\172',(uc)'\173',(uc)'\174',(uc)'\175',(uc)'\176',(uc)'\177', 53169695Skan (uc)'\200',(uc)'\201',(uc)'\202',(uc)'\203',(uc)'\204',(uc)'\205',(uc)'\206',(uc)'\207', 54169695Skan (uc)'\210',(uc)'\211',(uc)'\212',(uc)'\213',(uc)'\214',(uc)'\215',(uc)'\216',(uc)'\217', 55169695Skan (uc)'\220',(uc)'\221',(uc)'\222',(uc)'\223',(uc)'\224',(uc)'\225',(uc)'\226',(uc)'\227', 56169695Skan (uc)'\230',(uc)'\231',(uc)'\232',(uc)'\233',(uc)'\234',(uc)'\235',(uc)'\236',(uc)'\237', 57169695Skan (uc)'\240',(uc)'\241',(uc)'\242',(uc)'\243',(uc)'\244',(uc)'\245',(uc)'\246',(uc)'\247', 58169695Skan (uc)'\250',(uc)'\251',(uc)'\252',(uc)'\253',(uc)'\254',(uc)'\255',(uc)'\256',(uc)'\257', 59169695Skan (uc)'\260',(uc)'\261',(uc)'\262',(uc)'\263',(uc)'\264',(uc)'\265',(uc)'\266',(uc)'\267', 60169695Skan (uc)'\270',(uc)'\271',(uc)'\272',(uc)'\273',(uc)'\274',(uc)'\275',(uc)'\276',(uc)'\277', 61169695Skan (uc)'\300',(uc)'\341',(uc)'\342',(uc)'\343',(uc)'\344',(uc)'\345',(uc)'\346',(uc)'\347', 62169695Skan (uc)'\350',(uc)'\351',(uc)'\352',(uc)'\353',(uc)'\354',(uc)'\355',(uc)'\356',(uc)'\357', 63169695Skan (uc)'\360',(uc)'\361',(uc)'\362',(uc)'\363',(uc)'\364',(uc)'\365',(uc)'\366',(uc)'\367', 64169695Skan (uc)'\370',(uc)'\371',(uc)'\372',(uc)'\333',(uc)'\334',(uc)'\335',(uc)'\336',(uc)'\337', 65169695Skan (uc)'\340',(uc)'\341',(uc)'\342',(uc)'\343',(uc)'\344',(uc)'\345',(uc)'\346',(uc)'\347', 66169695Skan (uc)'\350',(uc)'\351',(uc)'\352',(uc)'\353',(uc)'\354',(uc)'\355',(uc)'\356',(uc)'\357', 67169695Skan (uc)'\360',(uc)'\361',(uc)'\362',(uc)'\363',(uc)'\364',(uc)'\365',(uc)'\366',(uc)'\367', 68169695Skan (uc)'\370',(uc)'\371',(uc)'\372',(uc)'\373',(uc)'\374',(uc)'\375',(uc)'\376',(uc)'\377', 69169695Skan}; 70169695Skan 71169695Skanint 72169695Skanstrcasecmp(const char *s1, const char *s2) 73169695Skan{ 74169695Skan register unsigned char u1, u2; 75169695Skan 76169695Skan for (;;) { 77169695Skan u1 = (unsigned char) *s1++; 78169695Skan u2 = (unsigned char) *s2++; 79169695Skan if (charmap[u1] != charmap[u2]) { 80169695Skan return charmap[u1] - charmap[u2]; 81169695Skan } 82169695Skan if (u1 == '\0') { 83169695Skan return 0; 84169695Skan } 85169695Skan } 86169695Skan} 87169695Skan 88