locale/FreeBSD/none.c

   1 /*-
   2  * Copyright (c) 2002-2004 Tim J. Robbins. All rights reserved.
   3  * Copyright (c) 1993
   4  *      The Regents of the University of California.  All rights reserved.
   5  *
   6  * This code is derived from software contributed to Berkeley by
   7  * Paul Borman at Krystal Technologies.
   8  *
   9  * Redistribution and use in source and binary forms, with or without
  10  * modification, are permitted provided that the following conditions
  11  * are met:
  12  * 1. Redistributions of source code must retain the above copyright
  13  *    notice, this list of conditions and the following disclaimer.
  14  * 2. Redistributions in binary form must reproduce the above copyright
  15  *    notice, this list of conditions and the following disclaimer in the
  16  *    documentation and/or other materials provided with the distribution.
  17  * 4. Neither the name of the University nor the names of its contributors
  18  *    may be used to endorse or promote products derived from this software
  19  *    without specific prior written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31  * SUCH DAMAGE.
  32  */
  33
  34 #if defined(LIBC_SCCS) && !defined(lint)
  35 static char sccsid[] = "@(#)none.c      8.1 (Berkeley) 6/4/93";
  36 #endif /* LIBC_SCCS and not lint */
  37 #include <sys/cdefs.h>
  38 __FBSDID("$FreeBSD: src/lib/libc/locale/none.c,v 1.15 2007/10/13 16:28:22 ache Exp $");
  39
  40 #include "xlocale_private.h"
  41
  42 #include <errno.h>
  43 #include <limits.h>
  44 #include <runetype.h>
  45 #include <stddef.h>
  46 #include <stdio.h>
  47 #include <stdlib.h>
  48 #include <string.h>
  49 #include <wchar.h>
  50 #include "mblocal.h"
  51
  52 /* setup defaults */
  53
  54 int __mb_cur_max = 1;
  55 int __mb_sb_limit = 256; /* Expected to be <= _CACHED_RUNES */
  56
  57 __private_extern__ int
  58 _none_init(struct __xlocale_st_runelocale *xrl)
  59 {
  60
  61         xrl->__mbrtowc = _none_mbrtowc;
  62         xrl->__mbsinit = _none_mbsinit;
  63         xrl->__mbsnrtowcs = _none_mbsnrtowcs;
  64         xrl->__wcrtomb = _none_wcrtomb;
  65         xrl->__wcsnrtombs = _none_wcsnrtombs;
  66         xrl->__mb_cur_max = 1;
  67         xrl->__mb_sb_limit = 256;
  68         return(0);
  69 }
  70
  71 __private_extern__ int
  72 _none_mbsinit(const mbstate_t *ps __unused, locale_t loc __unused)
  73 {
  74
  75         /*
  76          * Encoding is not state dependent - we are always in the
  77          * initial state.
  78          */
  79         return (1);
  80 }
  81
  82 __private_extern__ size_t
  83 _none_mbrtowc(wchar_t * __restrict pwc, const char * __restrict s, size_t n,
  84     mbstate_t * __restrict ps __unused, locale_t loc __unused)
  85 {
  86
  87         if (s == NULL)
  88                 /* Reset to initial shift state (no-op) */
  89                 return (0);
  90         if (n == 0)
  91                 /* Incomplete multibyte sequence */
  92                 return ((size_t)-2);
  93         if (pwc != NULL)
  94                 *pwc = (unsigned char)*s;
  95         return (*s == '\0' ? 0 : 1);
  96 }
  97
  98 __private_extern__ size_t
  99 _none_wcrtomb(char * __restrict s, wchar_t wc,
 100     mbstate_t * __restrict ps __unused, locale_t loc __unused)
 101 {
 102
 103         if (s == NULL)
 104                 /* Reset to initial shift state (no-op) */
 105                 return (1);
 106         if (wc < 0 || wc > UCHAR_MAX) {
 107                 errno = EILSEQ;
 108                 return ((size_t)-1);
 109         }
 110         *s = (unsigned char)wc;
 111         return (1);
 112 }
 113
 114 __private_extern__ size_t
 115 _none_mbsnrtowcs(wchar_t * __restrict dst, const char ** __restrict src,
 116     size_t nms, size_t len, mbstate_t * __restrict ps __unused, locale_t loc __unused)
 117 {
 118         const char *s;
 119         size_t nchr;
 120
 121         if (dst == NULL) {
 122                 s = memchr(*src, '\0', nms);
 123                 return (s != NULL ? s - *src : nms);
 124         }
 125
 126         s = *src;
 127         nchr = 0;
 128         while (len-- > 0 && nms-- > 0) {
 129                 if ((*dst++ = (unsigned char)*s++) == L'\0') {
 130                         *src = NULL;
 131                         return (nchr);
 132                 }
 133                 nchr++;
 134         }
 135         *src = s;
 136         return (nchr);
 137 }
 138
 139 __private_extern__ size_t
 140 _none_wcsnrtombs(char * __restrict dst, const wchar_t ** __restrict src,
 141     size_t nwc, size_t len, mbstate_t * __restrict ps __unused, locale_t loc __unused)
 142 {
 143         const wchar_t *s;
 144         size_t nchr;
 145
 146         if (dst == NULL) {
 147                 for (s = *src; nwc > 0 && *s != L'\0'; s++, nwc--) {
 148                         if (*s < 0 || *s > UCHAR_MAX) {
 149                                 errno = EILSEQ;
 150                                 return ((size_t)-1);
 151                         }
 152                 }
 153                 return (s - *src);
 154         }
 155
 156         s = *src;
 157         nchr = 0;
 158         while (len-- > 0 && nwc-- > 0) {
 159                 if (*s < 0 || *s > UCHAR_MAX) {
 160                         errno = EILSEQ;
 161                         return ((size_t)-1);
 162                 }
 163                 if ((*dst++ = *s++) == '\0') {
 164                         *src = NULL;
 165                         return (nchr);
 166                 }
 167                 nchr++;
 168         }
 169         *src = s;
 170         return (nchr);
 171 }