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

   1 /*      $NetBSD: unicode_template.c,v 1.4 2014/12/10 04:37:55 christos Exp $    */
   2
   3 /* Id: unicode_template.c,v 1.1 2003/06/04 00:26:16 marka Exp  */
   4
   5 /*
   6  * Copyright (c) 2000,2001 Japan Network Information Center.
   7  * All rights reserved.
   8  *
   9  * By using this file, you agree to the terms and conditions set forth bellow.
  10  *
  11  *                      LICENSE TERMS AND CONDITIONS
  12  *
  13  * The following License Terms and Conditions apply, unless a different
  14  * license is obtained from Japan Network Information Center ("JPNIC"),
  15  * a Japanese association, Kokusai-Kougyou-Kanda Bldg 6F, 2-3-4 Uchi-Kanda,
  16  * Chiyoda-ku, Tokyo 101-0047, Japan.
  17  *
  18  * 1. Use, Modification and Redistribution (including distribution of any
  19  *    modified or derived work) in source and/or binary forms is permitted
  20  *    under this License Terms and Conditions.
  21  *
  22  * 2. Redistribution of source code must retain the copyright notices as they
  23  *    appear in each source code file, this License Terms and Conditions.
  24  *
  25  * 3. Redistribution in binary form must reproduce the Copyright Notice,
  26  *    this License Terms and Conditions, in the documentation and/or other
  27  *    materials provided with the distribution.  For the purposes of binary
  28  *    distribution the "Copyright Notice" refers to the following language:
  29  *    "Copyright (c) 2000-2002 Japan Network Information Center.  All rights reserved."
  30  *
  31  * 4. The name of JPNIC may not be used to endorse or promote products
  32  *    derived from this Software without specific prior written approval of
  33  *    JPNIC.
  34  *
  35  * 5. Disclaimer/Limitation of Liability: THIS SOFTWARE IS PROVIDED BY JPNIC
  36  *    "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
  37  *    LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
  38  *    PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL JPNIC BE LIABLE
  39  *    FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  40  *    CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  41  *    SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
  42  *    BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  43  *    WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  44  *    OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
  45  *    ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
  46  */
  47
  48 #ifndef UNICODE_TEMPLATE_INIT
  49 #define UNICODE_TEMPLATE_INIT
  50
  51 /*
  52  * Macro for multi-level index table.
  53  */
  54 #define LOOKUPTBL(vprefix, mprefix, v) \
  55         DMAP(vprefix)[\
  56                 IMAP(vprefix)[\
  57                         IMAP(vprefix)[IDX0(mprefix, v)] + IDX1(mprefix, v)\
  58                 ]\
  59         ].tbl[IDX2(mprefix, v)]
  60
  61 #define IDX0(mprefix, v) IDX_0(v, BITS1(mprefix), BITS2(mprefix))
  62 #define IDX1(mprefix, v) IDX_1(v, BITS1(mprefix), BITS2(mprefix))
  63 #define IDX2(mprefix, v) IDX_2(v, BITS1(mprefix), BITS2(mprefix))
  64
  65 #define IDX_0(v, bits1, bits2)  ((v) >> ((bits1) + (bits2)))
  66 #define IDX_1(v, bits1, bits2)  (((v) >> (bits2)) & ((1 << (bits1)) - 1))
  67 #define IDX_2(v, bits1, bits2)  ((v) & ((1 << (bits2)) - 1))
  68
  69 #define BITS1(mprefix)  mprefix ## _BITS_1
  70 #define BITS2(mprefix)  mprefix ## _BITS_2
  71
  72 #define IMAP(vprefix)   concat4(VERSION, _, vprefix, _imap)
  73 #define DMAP(vprefix)   concat4(VERSION, _, vprefix, _table)
  74 #define SEQ(vprefix)    concat4(VERSION, _, vprefix, _seq)
  75 #define concat4(a,b,c,d)        concat4X(a, b, c, d)
  76 #define concat4X(a,b,c,d)       a ## b ## c ## d
  77
  78 #endif /* UNICODE_TEMPLATE_INIT */
  79
  80 static int
  81 compose_sym(canonclass_, VERSION) (unsigned long c) {
  82         /* Look up canonicalclass table. */
  83         return (LOOKUPTBL(canon_class, CANON_CLASS, c));
  84 }
  85
  86 static int
  87 compose_sym(decompose_, VERSION) (unsigned long c, const unsigned long **seqp)
  88 {
  89         /* Look up decomposition table. */
  90         int seqidx = LOOKUPTBL(decompose, DECOMP, c);
  91         *seqp = SEQ(decompose) + (seqidx & ~DECOMP_COMPAT);
  92         return (seqidx);
  93 }
  94
  95 static int
  96 compose_sym(compose_, VERSION) (unsigned long c,
  97                                 const struct composition **compp)
  98 {
  99         /* Look up composition table. */
 100         int seqidx = LOOKUPTBL(compose, CANON_COMPOSE, c);
 101         *compp = SEQ(compose) + (seqidx & 0xffff);
 102         return (seqidx >> 16);
 103 }