lib/libc/string/strcoll.c

   1 /*-
   2  * Copyright (c) 1995 Alex Tatmanjants <alex@elvisti.kiev.ua>
   3  *              at Electronni Visti IA, Kiev, Ukraine.
   4  *                      All rights reserved.
   5  *
   6  * Copyright (c) 2011 The FreeBSD Foundation
   7  * All rights reserved.
   8  * Portions of this software were developed by David Chisnall
   9  * under sponsorship from the FreeBSD Foundation.
  10  *
  11  * Redistribution and use in source and binary forms, with or without
  12  * modification, are permitted provided that the following conditions
  13  * are met:
  14  * 1. Redistributions of source code must retain the above copyright
  15  *    notice, this list of conditions and the following disclaimer.
  16  * 2. Redistributions in binary form must reproduce the above copyright
  17  *    notice, this list of conditions and the following disclaimer in the
  18  *    documentation and/or other materials provided with the distribution.
  19  *
  20  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND
  21  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  22  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  23  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE
  24  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  25  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  26  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  27  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  28  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  29  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  30  * SUCH DAMAGE.
  31  */
  32
  33 #include <sys/cdefs.h>
  34 __FBSDID("$FreeBSD$");
  35
  36 #include <stdlib.h>
  37 #include <string.h>
  38 #include "collate.h"
  39
  40 #include <stdio.h>
  41
  42 int
  43 strcoll_l(const char *s, const char *s2, locale_t locale)
  44 {
  45         int len, len2, prim, prim2, sec, sec2, ret, ret2;
  46         const char *t, *t2;
  47         char *tt, *tt2;
  48         FIX_LOCALE(locale);
  49         struct xlocale_collate *table =
  50                 (struct xlocale_collate*)locale->components[XLC_COLLATE];
  51
  52         if (table->__collate_load_error)
  53                 return strcmp(s, s2);
  54
  55         len = len2 = 1;
  56         ret = ret2 = 0;
  57         if (table->__collate_substitute_nontrivial) {
  58                 t = tt = __collate_substitute(table, s);
  59                 t2 = tt2 = __collate_substitute(table, s2);
  60         } else {
  61                 tt = tt2 = NULL;
  62                 t = s;
  63                 t2 = s2;
  64         }
  65         while(*t && *t2) {
  66                 prim = prim2 = 0;
  67                 while(*t && !prim) {
  68                         __collate_lookup(table, t, &len, &prim, &sec);
  69                         t += len;
  70                 }
  71                 while(*t2 && !prim2) {
  72                         __collate_lookup(table, t2, &len2, &prim2, &sec2);
  73                         t2 += len2;
  74                 }
  75                 if(!prim || !prim2)
  76                         break;
  77                 if(prim != prim2) {
  78                         ret = prim - prim2;
  79                         goto end;
  80                 }
  81                 if(!ret2)
  82                         ret2 = sec - sec2;
  83         }
  84         if(!*t && *t2)
  85                 ret = -(int)((u_char)*t2);
  86         else if(*t && !*t2)
  87                 ret = (u_char)*t;
  88         else if(!*t && !*t2)
  89                 ret = ret2;
  90   end:
  91         free(tt);
  92         free(tt2);
  93
  94         return ret;
  95 }
  96
  97 int
  98 strcoll(const char *s, const char *s2)
  99 {
 100         return strcoll_l(s, s2, __get_locale());
 101 }
 102