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  * $FreeBSD: head/lib/libc/string/strcoll.c 228202 2011-12-02 15:41:09Z eadler $
  33  */
  34
  35 #include <stdlib.h>
  36 #include <string.h>
  37 #include "collate.h"
  38
  39 #include <stdio.h>
  40
  41 int
  42 strcoll_l(const char *s, const char *s2, locale_t locale)
  43 {
  44         int len, len2, prim, prim2, sec, sec2, ret, ret2;
  45         const char *t, *t2;
  46         char *tt, *tt2;
  47         FIX_LOCALE(locale);
  48         struct xlocale_collate *table =
  49                 (struct xlocale_collate*)locale->components[XLC_COLLATE];
  50
  51         if (table->__collate_load_error)
  52                 return strcmp(s, s2);
  53
  54         len = len2 = 1;
  55         ret = ret2 = 0;
  56         if (table->__collate_substitute_nontrivial) {
  57                 t = tt = __collate_substitute(table, s);
  58                 t2 = tt2 = __collate_substitute(table, s2);
  59         } else {
  60                 tt = tt2 = NULL;
  61                 t = s;
  62                 t2 = s2;
  63         }
  64         while(*t && *t2) {
  65                 prim = prim2 = 0;
  66                 while(*t && !prim) {
  67                         __collate_lookup(table, t, &len, &prim, &sec);
  68                         t += len;
  69                 }
  70                 while(*t2 && !prim2) {
  71                         __collate_lookup(table, t2, &len2, &prim2, &sec2);
  72                         t2 += len2;
  73                 }
  74                 if(!prim || !prim2)
  75                         break;
  76                 if(prim != prim2) {
  77                         ret = prim - prim2;
  78                         goto end;
  79                 }
  80                 if(!ret2)
  81                         ret2 = sec - sec2;
  82         }
  83         if(!*t && *t2)
  84                 ret = -(int)((u_char)*t2);
  85         else if(*t && !*t2)
  86                 ret = (u_char)*t;
  87         else if(!*t && !*t2)
  88                 ret = ret2;
  89   end:
  90         free(tt);
  91         free(tt2);
  92
  93         return ret;
  94 }
  95
  96 int
  97 strcoll(const char *s, const char *s2)
  98 {
  99         return strcoll_l(s, s2, __get_locale());
 100 }
 101