lib/libc/locale/localeio.c

   1 /*      $NetBSD: localeio.c,v 1.1.10.1 2009/01/04 17:02:19 christos 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.1.10.1 2009/01/04 17:02:19 christos 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
  41 #include <assert.h>
  42 #include <errno.h>
  43 #include <fcntl.h>
  44 #include <limits.h>
  45 #include <locale.h>
  46 #include <paths.h>
  47 #include <stdlib.h>
  48 #include <string.h>
  49 #include <unistd.h>
  50
  51 #include "localeio.h"
  52
  53 int
  54 __loadlocale(const char *name, size_t nstr, size_t nbytes,
  55     size_t localesize, void *currentlocale)
  56 {
  57         int fd, i, ret;
  58         unsigned char **ap, *buf, *bp, *cp, *cbp, *ebp;
  59         unsigned char ***locale;
  60         struct stat st;
  61         size_t bufsize;
  62
  63         _DIAGASSERT(name != NULL);
  64         _DIAGASSERT(localesize != 0);
  65         _DIAGASSERT(currentlocale != NULL);
  66
  67         if ((fd = open(name, O_RDONLY)) == -1)
  68                 return ENOENT;
  69
  70         if ((fstat(fd, &st) == -1) || !S_ISREG(st.st_mode) ||
  71             (st.st_size <= 0)) {
  72                 ret = EFTYPE;
  73                 goto error1;
  74         }
  75
  76         bufsize = localesize + (size_t)st.st_size;
  77         if ((buf = malloc(bufsize)) == NULL) {
  78                 ret = ENOMEM;
  79                 goto error1;
  80         }
  81
  82         bp = buf + localesize;
  83         if (read(fd, bp, (size_t)st.st_size) != st.st_size) {
  84                 ret = EFTYPE;
  85                 goto error2;
  86         }
  87
  88         ap = (unsigned char **)(void *)buf;
  89         for (i = 0, ebp = buf + bufsize; i < nstr; i++) {
  90                 ap[i] = bp;
  91                 while (bp != ebp && *bp != '\n')
  92                         bp++;
  93                 if (bp == ebp) {
  94                         ret = EFTYPE;
  95                         goto error2;
  96                 }
  97                 *bp++ = '\0';
  98         }
  99
 100         cp = buf + (sizeof(unsigned char *) * nstr);
 101         for (i = 0, cbp = bp; i < nbytes; i++) {
 102                 int n;
 103
 104                 while (bp != ebp && *bp != '\n')
 105                         bp++;
 106                 if (bp == ebp) {
 107                         ret = EFTYPE;
 108                         goto error2;
 109                 }
 110                 /* ignore overflow/underflow and bad characters */
 111                 n = (unsigned char)strtol((char *)cbp, NULL, 0);
 112                 cp[i] = (unsigned char)(n & CHAR_MAX);
 113                 cbp = bp;
 114         }
 115
 116         locale = currentlocale;
 117
 118         *locale = (unsigned char **)(void *)buf;
 119         (void)close(fd);
 120         return 0;
 121
 122 error2:
 123         free(buf);
 124
 125 error1:
 126         (void)close(fd);
 127         return ret;
 128 }