lib/libc/locale/multibyte_amd1.c

   1 /*      $NetBSD: src/lib/libc/locale/multibyte_amd1.c,v 1.5 2003/03/05 20:18:16 tshiozak Exp $  */
   2 /*      $DragonFly: src/lib/libc/locale/multibyte_amd1.c,v 1.1 2005/03/16 06:54:41 joerg Exp $ */
   3
   4 /*-
   5  * Copyright (c)2002 Citrus Project,
   6  * All rights reserved.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  * 1. Redistributions of source code must retain the above copyright
  12  *    notice, this list of conditions and the following disclaimer.
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  *
  17  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  18  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  19  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  20  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  21  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  22  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  23  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  24  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  25  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  26  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  27  * SUCH DAMAGE.
  28  */
  29
  30 #include <sys/types.h>
  31 #include <assert.h>
  32 #include <errno.h>
  33 #include <wchar.h>
  34 #include "../citrus/citrus_module.h"
  35 #include "../citrus/citrus_ctype.h"
  36 #include "rune.h"
  37 #include "multibyte.h"
  38
  39 size_t
  40 mbrlen(const char *s, size_t n, mbstate_t *ps)
  41 {
  42         size_t ret;
  43         int err0;
  44
  45         _fixup_ps(_CurrentRuneLocale, ps, s == NULL);
  46
  47         err0 = _citrus_ctype_mbrlen(_ps_to_ctype(ps), s, n,
  48                                     _ps_to_private(ps), &ret);
  49         if (err0)
  50                 errno = err0;
  51
  52         return(ret);
  53 }
  54
  55 int
  56 mbsinit(const mbstate_t *ps)
  57 {
  58         int ret;
  59         int err0;
  60         _RuneLocale *rl;
  61
  62         if (ps == NULL)
  63                 return(1);
  64
  65         if (_ps_to_runelocale(ps) == NULL)
  66                 rl = _CurrentRuneLocale;
  67         else
  68                 rl = _ps_to_runelocale(ps);
  69
  70         /* mbsinit should cause no error... */
  71         err0 = _citrus_ctype_mbsinit(rl->rl_citrus_ctype,
  72                                       _ps_to_private_const(ps), &ret);
  73         if (err0)
  74                 errno = err0;
  75
  76         return(ret);
  77 }
  78
  79 size_t
  80 mbrtowc(wchar_t *pwc, const char *s, size_t n, mbstate_t *ps)
  81 {
  82         size_t ret;
  83         int err0;
  84
  85         _fixup_ps(_CurrentRuneLocale, ps, s==NULL);
  86
  87         err0 = _citrus_ctype_mbrtowc(_ps_to_ctype(ps), pwc, s, n,
  88                                       _ps_to_private(ps), &ret);
  89         if (err0)
  90                 errno = err0;
  91
  92         return(ret);
  93 }
  94
  95 size_t
  96 mbsrtowcs(wchar_t *pwcs, const char **s, size_t n, mbstate_t *ps)
  97 {
  98         size_t ret;
  99         int err0;
 100
 101         _fixup_ps(_CurrentRuneLocale, ps, s==NULL);
 102
 103         err0 = _citrus_ctype_mbsrtowcs(_ps_to_ctype(ps), pwcs, s, n,
 104                                         _ps_to_private(ps), &ret);
 105         if (err0)
 106                 errno = err0;
 107
 108         return(ret);
 109 }
 110
 111 size_t
 112 wcrtomb(char *s, wchar_t wc, mbstate_t *ps)
 113 {
 114         size_t ret;
 115         int err0;
 116
 117         _fixup_ps(_CurrentRuneLocale, ps, s==NULL);
 118
 119         err0 = _citrus_ctype_wcrtomb(_ps_to_ctype(ps), s, wc,
 120                                        _ps_to_private(ps), &ret);
 121         if (err0)
 122                 errno = err0;
 123
 124         return(ret);
 125 }
 126
 127 size_t
 128 wcsrtombs(char *s, const wchar_t **ppwcs, size_t n, mbstate_t *ps)
 129 {
 130         size_t ret;
 131         int err0;
 132
 133         _fixup_ps(_CurrentRuneLocale, ps, s==NULL);
 134
 135         err0 = _citrus_ctype_wcsrtombs(_ps_to_ctype(ps), s, ppwcs, n,
 136                                         _ps_to_private(ps), &ret);
 137         if (err0)
 138                 errno = err0;
 139
 140         return(ret);
 141 }
 142
 143 wint_t
 144 btowc(int c)
 145 {
 146         wint_t ret;
 147         int err0;
 148
 149         err0 = _citrus_ctype_btowc(_to_cur_ctype(), c, &ret);
 150         if (err0)
 151                 errno = err0;
 152
 153         return(ret);
 154 }
 155
 156 int
 157 wctob(wint_t wc)
 158 {
 159         int ret;
 160         int err0;
 161
 162         err0 = _citrus_ctype_wctob(_to_cur_ctype(), wc, &ret);
 163         if (err0)
 164                 errno = err0;
 165
 166         return(ret);
 167 }