lib/libc/locale/localeio.c

   1 /*      $NetBSD: localeio.c,v 1.5 2010/06/19 13:26:52 tnozaki Exp $     */
   2 /*
   3  * Copyright (c) 2008, The NetBSD Foundation, Inc.
   4  * All rights reserved.
   5  *
   6  * This code is derived from software contributed to The NetBSD Foundation
   7  * by Brian Ginsbach.
   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  *
  18  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  19  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  20  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  21  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  22  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  23  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  24  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  25  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  26  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  27  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  28  * POSSIBILITY OF SUCH DAMAGE.
  29  */
  30
  31 #include <sys/cdefs.h>
  32 #if defined(LIBC_SCCS) && !defined(lint)
  33 __RCSID("$NetBSD: localeio.c,v 1.5 2010/06/19 13:26:52 tnozaki Exp $");
  34 #endif /* LIBC_SCCS and not lint */
  35
  36 #include "namespace.h"
  37
  38 #include <sys/types.h>
  39 #include <sys/stat.h>
  40 #include <sys/mman.h>
  41
  42 #include <assert.h>
  43 #include <errno.h>
  44 #include <fcntl.h>
  45 #include <limits.h>
  46 #include <locale.h>
  47 #include <paths.h>
  48 #include <stdlib.h>
  49 #include <string.h>
  50 #include <unistd.h>
  51
  52 #include "localeio.h"
  53
  54 int
  55 _localeio_map_file(const char * __restrict path,
  56     void ** __restrict pvar, size_t * __restrict plenvar)
  57 {
  58         int fd, ret;
  59         struct stat st;
  60         void *var;
  61         size_t lenvar;
  62
  63         _DIAGASSERT(path != NULL);
  64         _DIAGASSERT(pvar != NULL);
  65         _DIAGASSERT(plenvar != NULL);
  66
  67         fd = open(path, O_RDONLY);
  68         if (fd == -1)
  69                 return errno;
  70         if (fcntl(fd, F_SETFD, FD_CLOEXEC) == -1 || fstat(fd, &st) == 1) {
  71                 ret = errno;
  72                 goto error;
  73         }
  74         if (!S_ISREG(st.st_mode)) {
  75                 ret = EBADF;
  76                 goto error;
  77         }
  78         lenvar = (size_t)st.st_size;
  79         if (lenvar < 1) {
  80                 ret = EFTYPE;
  81                 goto error;
  82         }
  83         var = mmap(NULL, lenvar, PROT_READ,
  84             MAP_FILE|MAP_PRIVATE, fd, (off_t)0);
  85         if (var == MAP_FAILED) {
  86                 ret = errno;
  87                 goto error;
  88         }
  89         *pvar = var;
  90         *plenvar = lenvar;
  91         return 0;
  92 error:
  93         return ret;
  94 }
  95
  96 void
  97 _localeio_unmap_file(void *var, size_t lenvar)
  98 {
  99         munmap(var, lenvar);
 100 }
 101
 102 int
 103 __loadlocale(const char *name, size_t nstr, size_t nbytes,
 104     size_t localesize, void *currentlocale)
 105 {
 106         int fd, ret;
 107         unsigned char **ap, *buf, *bp, *cp, *cbp, *ebp;
 108         unsigned char ***locale;
 109         struct stat st;
 110         size_t i, bufsize;
 111
 112         _DIAGASSERT(name != NULL);
 113         _DIAGASSERT(localesize != 0);
 114         _DIAGASSERT(currentlocale != NULL);
 115
 116         if ((fd = open(name, O_RDONLY)) == -1)
 117                 return ENOENT;
 118
 119         if ((fstat(fd, &st) == -1) || !S_ISREG(st.st_mode) ||
 120             (st.st_size <= 0)) {
 121                 ret = EFTYPE;
 122                 goto error1;
 123         }
 124
 125         bufsize = localesize + (size_t)st.st_size;
 126         if ((buf = malloc(bufsize)) == NULL) {
 127                 ret = ENOMEM;
 128                 goto error1;
 129         }
 130
 131         bp = buf + localesize;
 132         if (read(fd, bp, (size_t)st.st_size) != st.st_size) {
 133                 ret = EFTYPE;
 134                 goto error2;
 135         }
 136
 137         ap = (unsigned char **)(void *)buf;
 138         for (i = (size_t)0, ebp = buf + bufsize; i < nstr; i++) {
 139                 ap[i] = bp;
 140                 while (bp != ebp && *bp != '\n')
 141                         bp++;
 142                 if (bp == ebp) {
 143                         ret = EFTYPE;
 144                         goto error2;
 145                 }
 146                 *bp++ = '\0';
 147         }
 148
 149         cp = buf + (sizeof(unsigned char *) * nstr);
 150         for (i = 0, cbp = bp; i < nbytes; i++) {
 151                 int n;
 152
 153                 while (bp != ebp && *bp != '\n')
 154                         bp++;
 155                 if (bp == ebp) {
 156                         ret = EFTYPE;
 157                         goto error2;
 158                 }
 159                 /* ignore overflow/underflow and bad characters */
 160                 n = (unsigned char)strtol((char *)cbp, NULL, 0);
 161                 cp[i] = (unsigned char)(n & CHAR_MAX);
 162                 cbp = bp;
 163         }
 164
 165         locale = currentlocale;
 166
 167         *locale = (unsigned char **)(void *)buf;
 168         (void)close(fd);
 169         return 0;
 170
 171 error2:
 172         free(buf);
 173
 174 error1:
 175         (void)close(fd);
 176         return ret;
 177 }