Add emacs/vim local variables
[yaz-moved-to-github.git] / src / cclstr.c
1 /* This file is part of the YAZ toolkit.
2  * Copyright (C) 1995-2011 Index Data
3  * See the file LICENSE for details.
4  */
5 /** 
6  * \file cclstr.c
7  * \brief Implements CCL string compare utilities
8  */
9 #if HAVE_CONFIG_H
10 #include <config.h>
11 #endif
12 #include <yaz/yaz-iconv.h>
13 #include <stdio.h>
14 #include <stdlib.h>
15
16 #include <yaz/ccl.h>
17
18 static int ccli_toupper (int c)
19 {
20     if (yaz_islower(c))
21         return yaz_toupper(c);
22     else
23         return c;
24 }
25
26 int (*ccl_toupper)(int c) = NULL;
27
28 int ccl_stricmp (const char *s1, const char *s2)
29 {
30     if (!ccl_toupper)
31         ccl_toupper = ccli_toupper;
32     while (*s1 && *s2)
33     {
34         int c1, c2;
35         c1 = (*ccl_toupper)(*s1);
36         c2 = (*ccl_toupper)(*s2);
37         if (c1 != c2)
38             return c1 - c2;
39         s1++;
40         s2++;
41     }
42     return (*ccl_toupper)(*s1) - (*ccl_toupper)(*s2);
43 }
44
45 int ccl_memicmp (const char *s1, const char *s2, size_t n)
46 {
47     if (!ccl_toupper)
48         ccl_toupper = ccli_toupper;
49     while (1)
50     {
51         int c1, c2;
52
53         c1 = (*ccl_toupper)(*s1);
54         c2 = (*ccl_toupper)(*s2);
55         if (n <= 1 || c1 != c2)
56             return c1 - c2;
57         s1++;
58         s2++;
59         --n;
60     }
61 }
62
63 /*
64  * Local variables:
65  * c-basic-offset: 4
66  * c-file-style: "Stroustrup"
67  * indent-tabs-mode: nil
68  * End:
69  * vim: shiftwidth=4 tabstop=8 expandtab
70  */
71