external/bsd/bind/dist/contrib/idn/idnkit-1.0-src/lib/util.c

   1 /*      $NetBSD: util.c,v 1.4 2014/12/10 04:37:55 christos Exp $        */
   2
   3 #ifndef lint
   4 static char *rcsid = "Id: util.c,v 1.1 2003/06/04 00:26:45 marka Exp ";
   5 #endif
   6
   7 /*
   8  * Copyright (c) 2000,2002 Japan Network Information Center.
   9  * All rights reserved.
  10  *
  11  * By using this file, you agree to the terms and conditions set forth bellow.
  12  *
  13  *                      LICENSE TERMS AND CONDITIONS
  14  *
  15  * The following License Terms and Conditions apply, unless a different
  16  * license is obtained from Japan Network Information Center ("JPNIC"),
  17  * a Japanese association, Kokusai-Kougyou-Kanda Bldg 6F, 2-3-4 Uchi-Kanda,
  18  * Chiyoda-ku, Tokyo 101-0047, Japan.
  19  *
  20  * 1. Use, Modification and Redistribution (including distribution of any
  21  *    modified or derived work) in source and/or binary forms is permitted
  22  *    under this License Terms and Conditions.
  23  *
  24  * 2. Redistribution of source code must retain the copyright notices as they
  25  *    appear in each source code file, this License Terms and Conditions.
  26  *
  27  * 3. Redistribution in binary form must reproduce the Copyright Notice,
  28  *    this License Terms and Conditions, in the documentation and/or other
  29  *    materials provided with the distribution.  For the purposes of binary
  30  *    distribution the "Copyright Notice" refers to the following language:
  31  *    "Copyright (c) 2000-2002 Japan Network Information Center.  All rights reserved."
  32  *
  33  * 4. The name of JPNIC may not be used to endorse or promote products
  34  *    derived from this Software without specific prior written approval of
  35  *    JPNIC.
  36  *
  37  * 5. Disclaimer/Limitation of Liability: THIS SOFTWARE IS PROVIDED BY JPNIC
  38  *    "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
  39  *    LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
  40  *    PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL JPNIC BE LIABLE
  41  *    FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  42  *    CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  43  *    SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
  44  *    BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  45  *    WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  46  *    OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
  47  *    ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
  48  */
  49
  50 #include <config.h>
  51
  52 #ifdef WIN32
  53 #include <windows.h>
  54 #undef ERROR
  55 #endif
  56
  57 #include <stddef.h>
  58
  59 #include <idn/assert.h>
  60 #include <idn/result.h>
  61 #include <idn/logmacro.h>
  62 #include <idn/util.h>
  63 #include <idn/ucs4.h>
  64
  65 #ifdef WIN32
  66 #define IDNKEY_IDNKIT           "Software\\JPNIC\\IDN"
  67 #endif
  68
  69 /*
  70  * ASCII ctype macros.
  71  * Note that these macros evaluate the argument multiple times.  Be careful.
  72  */
  73 #define ASCII_ISDIGIT(c) \
  74         ('0' <= (c) && (c) <= '9')
  75 #define ASCII_ISUPPER(c) \
  76         ('A' <= (c) && (c) <= 'Z')
  77 #define ASCII_ISLOWER(c) \
  78         ('a' <= (c) && (c) <= 'z')
  79 #define ASCII_ISALPHA(c) \
  80         (ASCII_ISUPPER(c) || ASCII_ISLOWER(c))
  81 #define ASCII_ISALNUM(c) \
  82         (ASCII_ISDIGIT(c) || ASCII_ISUPPER(c) || ASCII_ISLOWER(c))
  83
  84 #define ASCII_TOUPPER(c) \
  85         (('a' <= (c) && (c) <= 'z') ? ((c) - 'a' + 'A') : (c))
  86 #define ASCII_TOLOWER(c) \
  87         (('A' <= (c) && (c) <= 'Z') ? ((c) - 'A' + 'a') : (c))
  88
  89 int
  90 idn__util_asciihaveaceprefix(const char *str, const char *prefix) {
  91         assert(str != NULL && prefix != NULL);
  92
  93         while (*prefix != '\0') {
  94                 if (ASCII_TOLOWER(*str) != ASCII_TOLOWER(*prefix))
  95                         return 0;
  96                 str++;
  97                 prefix++;
  98         }
  99
 100         return (1);
 101 }
 102
 103 int
 104 idn__util_ucs4haveaceprefix(const unsigned long *str, const char *prefix) {
 105         assert(str != NULL && prefix != NULL);
 106
 107         while (*prefix != '\0') {
 108                 if (ASCII_TOLOWER(*str) != ASCII_TOLOWER(*prefix))
 109                         return 0;
 110                 str++;
 111                 prefix++;
 112         }
 113
 114         return (1);
 115 }
 116
 117 int
 118 idn__util_ucs4isasciirange(const unsigned long *str) {
 119         while (*str != '\0') {
 120                 if (*str > 0x7f)
 121                         return (0);
 122                 str++;
 123         }
 124
 125         return (1);
 126 }
 127
 128 #ifdef WIN32
 129 int
 130 idn__util_getregistrystring(idn__util_hkey_t topkey, const char *name,
 131                             char *str, size_t length)
 132 {
 133         HKEY top;
 134         LONG stat;
 135         HKEY hk;
 136         DWORD len, type;
 137
 138         assert((topkey == idn__util_hkey_currentuser ||
 139                 topkey == idn__util_hkey_localmachine) &&
 140                name != NULL && str != NULL);
 141
 142         if (topkey == idn__util_hkey_currentuser) {
 143                 top= HKEY_CURRENT_USER;
 144         } else {        /* idn__util_hkey_localmachine */
 145                 top = HKEY_LOCAL_MACHINE;
 146         }
 147
 148         stat = RegOpenKeyEx(top, IDNKEY_IDNKIT, 0, KEY_READ, &hk);
 149         if (stat != ERROR_SUCCESS) {
 150                 return (0);
 151         }
 152
 153         len = (DWORD)length;
 154         stat = RegQueryValueEx(hk, (LPCTSTR)name, NULL,
 155                                &type, (LPBYTE)str, &len);
 156         RegCloseKey(hk);
 157
 158         if (stat != ERROR_SUCCESS || type != REG_SZ) {
 159                 return (0);
 160         }
 161
 162         return (1);
 163 }
 164 #endif /* WIN32 */