os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/compat/strncasecmp.c
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/compat/strncasecmp.c Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,142 @@
1.4 +/*
1.5 + * strncasecmp.c --
1.6 + *
1.7 + * Source code for the "strncasecmp" library routine.
1.8 + *
1.9 + * Copyright (c) 1988-1993 The Regents of the University of California.
1.10 + * Copyright (c) 1995-1996 Sun Microsystems, Inc.
1.11 + *
1.12 + * See the file "license.terms" for information on usage and redistribution
1.13 + * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
1.14 + *
1.15 + * RCS: @(#) $Id: strncasecmp.c,v 1.2 1998/09/14 18:39:45 stanton Exp $
1.16 + */
1.17 +
1.18 +#include "tclPort.h"
1.19 +
1.20 +/*
1.21 + * This array is designed for mapping upper and lower case letter
1.22 + * together for a case independent comparison. The mappings are
1.23 + * based upon ASCII character sequences.
1.24 + */
1.25 +
1.26 +static unsigned char charmap[] = {
1.27 + 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07,
1.28 + 0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f,
1.29 + 0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17,
1.30 + 0x18, 0x19, 0x1a, 0x1b, 0x1c, 0x1d, 0x1e, 0x1f,
1.31 + 0x20, 0x21, 0x22, 0x23, 0x24, 0x25, 0x26, 0x27,
1.32 + 0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f,
1.33 + 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37,
1.34 + 0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x3d, 0x3e, 0x3f,
1.35 + 0x40, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
1.36 + 0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f,
1.37 + 0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77,
1.38 + 0x78, 0x79, 0x7a, 0x5b, 0x5c, 0x5d, 0x5e, 0x5f,
1.39 + 0x60, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
1.40 + 0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f,
1.41 + 0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77,
1.42 + 0x78, 0x79, 0x7a, 0x7b, 0x7c, 0x7d, 0x7e, 0x7f,
1.43 + 0x80, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87,
1.44 + 0x88, 0x89, 0x8a, 0x8b, 0x8c, 0x8d, 0x8e, 0x8f,
1.45 + 0x90, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96, 0x97,
1.46 + 0x98, 0x99, 0x9a, 0x9b, 0x9c, 0x9d, 0x9e, 0x9f,
1.47 + 0xa0, 0xa1, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6, 0xa7,
1.48 + 0xa8, 0xa9, 0xaa, 0xab, 0xac, 0xad, 0xae, 0xaf,
1.49 + 0xb0, 0xb1, 0xb2, 0xb3, 0xb4, 0xb5, 0xb6, 0xb7,
1.50 + 0xb8, 0xb9, 0xba, 0xbb, 0xbc, 0xbd, 0xbe, 0xbf,
1.51 + 0xc0, 0xe1, 0xe2, 0xe3, 0xe4, 0xc5, 0xe6, 0xe7,
1.52 + 0xe8, 0xe9, 0xea, 0xeb, 0xec, 0xed, 0xee, 0xef,
1.53 + 0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7,
1.54 + 0xf8, 0xf9, 0xfa, 0xdb, 0xdc, 0xdd, 0xde, 0xdf,
1.55 + 0xe0, 0xe1, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, 0xe7,
1.56 + 0xe8, 0xe9, 0xea, 0xeb, 0xec, 0xed, 0xee, 0xef,
1.57 + 0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7,
1.58 + 0xf8, 0xf9, 0xfa, 0xfb, 0xfc, 0xfd, 0xfe, 0xff,
1.59 +};
1.60 +
1.61 +/*
1.62 + * Here are the prototypes just in case they are not included
1.63 + * in tclPort.h.
1.64 + */
1.65 +int strncasecmp _ANSI_ARGS_((CONST char *s1,
1.66 + CONST char *s2, size_t n));
1.67 +
1.68 +int strcasecmp _ANSI_ARGS_((CONST char *s1,
1.69 + CONST char *s2));
1.70 +
1.71 +/*
1.72 + *----------------------------------------------------------------------
1.73 + *
1.74 + * strcasecmp --
1.75 + *
1.76 + * Compares two strings, ignoring case differences.
1.77 + *
1.78 + * Results:
1.79 + * Compares two null-terminated strings s1 and s2, returning -1, 0,
1.80 + * or 1 if s1 is lexicographically less than, equal to, or greater
1.81 + * than s2.
1.82 + *
1.83 + * Side effects:
1.84 + * None.
1.85 + *
1.86 + *----------------------------------------------------------------------
1.87 + */
1.88 +
1.89 +int
1.90 +strcasecmp(s1, s2)
1.91 + CONST char *s1; /* First string. */
1.92 + CONST char *s2; /* Second string. */
1.93 +{
1.94 + unsigned char u1, u2;
1.95 +
1.96 + for ( ; ; s1++, s2++) {
1.97 + u1 = (unsigned char) *s1;
1.98 + u2 = (unsigned char) *s2;
1.99 + if ((u1 == '\0') || (charmap[u1] != charmap[u2])) {
1.100 + break;
1.101 + }
1.102 + }
1.103 + return charmap[u1] - charmap[u2];
1.104 +}
1.105 +
1.106 +/*
1.107 + *----------------------------------------------------------------------
1.108 + *
1.109 + * strncasecmp --
1.110 + *
1.111 + * Compares two strings, ignoring case differences.
1.112 + *
1.113 + * Results:
1.114 + * Compares up to length chars of s1 and s2, returning -1, 0, or 1
1.115 + * if s1 is lexicographically less than, equal to, or greater
1.116 + * than s2 over those characters.
1.117 + *
1.118 + * Side effects:
1.119 + * None.
1.120 + *
1.121 + *----------------------------------------------------------------------
1.122 + */
1.123 +
1.124 +int
1.125 +strncasecmp(s1, s2, length)
1.126 + CONST char *s1; /* First string. */
1.127 + CONST char *s2; /* Second string. */
1.128 + size_t length; /* Maximum number of characters to compare
1.129 + * (stop earlier if the end of either string
1.130 + * is reached). */
1.131 +{
1.132 + unsigned char u1, u2;
1.133 +
1.134 + for (; length != 0; length--, s1++, s2++) {
1.135 + u1 = (unsigned char) *s1;
1.136 + u2 = (unsigned char) *s2;
1.137 + if (charmap[u1] != charmap[u2]) {
1.138 + return charmap[u1] - charmap[u2];
1.139 + }
1.140 + if (u1 == '\0') {
1.141 + return 0;
1.142 + }
1.143 + }
1.144 + return 0;
1.145 +}