lib/libc/citrus/citrus_stdenc.c

   1 /*      $NetBSD: citrus_stdenc.c,v 1.4 2011/11/19 18:39:58 tnozaki Exp $        */
   2
   3 /*-
   4  * Copyright (c)2003 Citrus Project,
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  17  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  18  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  19  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  20  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  21  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  22  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  23  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  24  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  25  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  26  * SUCH DAMAGE.
  27  */
  28
  29 #include <sys/cdefs.h>
  30 #if defined(LIBC_SCCS) && !defined(lint)
  31 __RCSID("$NetBSD: citrus_stdenc.c,v 1.4 2011/11/19 18:39:58 tnozaki Exp $");
  32 #endif /* LIBC_SCCS and not lint */
  33
  34 #include "namespace.h"
  35 #include <assert.h>
  36 #include <errno.h>
  37 #include <stdlib.h>
  38 #include <string.h>
  39
  40 #include "citrus_namespace.h"
  41 #include "citrus_types.h"
  42 #include "citrus_module.h"
  43 #include "citrus_stdenc.h"
  44 #include "citrus_none.h"
  45
  46 struct _citrus_stdenc _citrus_stdenc_default = {
  47         &_citrus_NONE_stdenc_ops,       /* ce_ops */
  48         NULL,                           /* ce_closure */
  49         NULL,                           /* ce_module */
  50         &_citrus_NONE_stdenc_traits,    /* ce_traits */
  51 };
  52
  53 #ifdef _I18N_DYNAMIC
  54
  55 static int
  56 /*ARGSUSED*/
  57 get_state_desc_default(struct _citrus_stdenc * __restrict ce,
  58                        void * __restrict ps,
  59                        int id,
  60                        struct _citrus_stdenc_state_desc * __restrict d)
  61 {
  62         return EOPNOTSUPP;
  63 }
  64
  65 int
  66 _citrus_stdenc_open(struct _citrus_stdenc * __restrict * __restrict rce,
  67                     char const * __restrict encname,
  68                     const void * __restrict variable, size_t lenvar)
  69 {
  70         int ret;
  71         _citrus_module_t handle;
  72         struct _citrus_stdenc *ce;
  73         _citrus_stdenc_getops_t getops;
  74
  75         _DIAGASSERT(encname != NULL);
  76         _DIAGASSERT(!lenvar || variable!=NULL);
  77         _DIAGASSERT(rce != NULL);
  78
  79         if (!strcmp(encname, _CITRUS_DEFAULT_STDENC_NAME)) {
  80                 *rce = &_citrus_stdenc_default;
  81                 return (0);
  82         }
  83         ce = malloc(sizeof(*ce));
  84         if (ce==NULL) {
  85                 ret = errno;
  86                 goto bad;
  87         }
  88         ce->ce_ops = NULL;
  89         ce->ce_closure = NULL;
  90         ce->ce_module = NULL;
  91         ce->ce_traits = NULL;
  92
  93         ret = _citrus_load_module(&handle, encname);
  94         if (ret)
  95                 goto bad;
  96
  97         ce->ce_module = handle;
  98
  99         getops =
 100             (_citrus_stdenc_getops_t)_citrus_find_getops(ce->ce_module,
 101                                                          encname, "stdenc");
 102         if (getops == NULL) {
 103                 ret = EINVAL;
 104                 goto bad;
 105         }
 106
 107         ce->ce_ops = (struct _citrus_stdenc_ops *)malloc(sizeof(*ce->ce_ops));
 108         if (ce->ce_ops == NULL) {
 109                 ret = errno;
 110                 goto bad;
 111         }
 112
 113         ret = (*getops)(ce->ce_ops, sizeof(*ce->ce_ops),
 114                         _CITRUS_STDENC_ABI_VERSION);
 115         if (ret)
 116                 goto bad;
 117
 118         /* If return ABI version is not expected, should fixup it */
 119         if (ce->ce_ops->eo_abi_version < 0x00000002) {
 120                 ce->ce_ops->eo_get_state_desc = &get_state_desc_default;
 121         }
 122
 123         /* validation check */
 124         if (ce->ce_ops->eo_init == NULL ||
 125             ce->ce_ops->eo_uninit == NULL ||
 126             ce->ce_ops->eo_init_state == NULL ||
 127             ce->ce_ops->eo_mbtocs == NULL ||
 128             ce->ce_ops->eo_cstomb == NULL ||
 129             ce->ce_ops->eo_mbtowc == NULL ||
 130             ce->ce_ops->eo_wctomb == NULL ||
 131             ce->ce_ops->eo_get_state_desc == NULL) {
 132                 ret = EINVAL;
 133                 goto bad;
 134         }
 135
 136         /* allocate traits */
 137         ce->ce_traits = malloc(sizeof(*ce->ce_traits));
 138         if (ce->ce_traits == NULL) {
 139                 ret = errno;
 140                 goto bad;
 141         }
 142         /* init and get closure */
 143         ret = (*ce->ce_ops->eo_init)(ce, variable, lenvar, ce->ce_traits);
 144         if (ret)
 145                 goto bad;
 146
 147         *rce = ce;
 148
 149         return (0);
 150
 151 bad:
 152         _citrus_stdenc_close(ce);
 153         return (ret);
 154 }
 155
 156 void
 157 _citrus_stdenc_close(struct _citrus_stdenc *ce)
 158 {
 159
 160         _DIAGASSERT(ce != NULL);
 161
 162         if (ce == &_citrus_stdenc_default)
 163                 return;
 164
 165         if (ce->ce_module) {
 166                 if (ce->ce_ops) {
 167                         if (ce->ce_closure && ce->ce_ops->eo_uninit)
 168                                 (*ce->ce_ops->eo_uninit)(ce);
 169                         free(ce->ce_ops);
 170                 }
 171                 free(ce->ce_traits);
 172                 _citrus_unload_module(ce->ce_module);
 173         }
 174         free(ce);
 175 }
 176
 177 #else
 178 /* !_I18N_DYNAMIC */
 179
 180 int
 181 /*ARGSUSED*/
 182 _citrus_stdenc_open(struct _citrus_stdenc * __restrict * __restrict rce,
 183                     char const * __restrict encname,
 184                     const void * __restrict variable, size_t lenvar)
 185 {
 186         if (!strcmp(encname, _CITRUS_DEFAULT_STDENC_NAME)) {
 187                 *rce = &_citrus_stdenc_default;
 188                 return (0);
 189         }
 190         return (EINVAL);
 191 }
 192
 193 void
 194 /*ARGSUSED*/
 195 _citrus_stdenc_close(struct _citrus_stdenc *ce)
 196 {
 197 }
 198
 199 #endif