locale/FreeBSD/mskanji.c

   1 /*
   2  *    ja_JP.SJIS locale table for BSD4.4/rune
   3  *    version 1.0
   4  *    (C) Sin'ichiro MIYATANI / Phase One, Inc
   5  *    May 12, 1995
   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  * 3. All advertising materials mentioning features or use of this software
  16  *    must display the following acknowledgement:
  17  *      This product includes software developed by Phase One, Inc.
  18  * 4. The name of Phase One, Inc. may be used to endorse or promote products
  19  *    derived from this software 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[] = "@(#)mskanji.c   1.0 (Phase One) 5/5/95";
  36 #endif /* LIBC_SCCS and not lint */
  37 #include <sys/cdefs.h>
  38 __FBSDID("$FreeBSD: src/lib/libc/locale/mskanji.c,v 1.8 2002/10/14 01:50:45 tjr Exp $");
  39
  40 #include <sys/types.h>
  41
  42 #include <rune.h>
  43 #include <stddef.h>
  44 #include <stdio.h>
  45 #include <stdlib.h>
  46
  47 rune_t  _MSKanji_sgetrune(const char *, size_t, char const **);
  48 int     _MSKanji_sputrune(rune_t, char *, size_t, char **);
  49
  50 int
  51 _MSKanji_init(rl)
  52         _RuneLocale *rl;
  53 {
  54         rl->sgetrune = _MSKanji_sgetrune;
  55         rl->sputrune = _MSKanji_sputrune;
  56
  57         _CurrentRuneLocale = rl;
  58         __mb_cur_max = 2;
  59         return (0);
  60 }
  61
  62 rune_t
  63 _MSKanji_sgetrune(string, n, result)
  64         const char *string;
  65         size_t n;
  66         char const **result;
  67 {
  68         rune_t rune = 0;
  69
  70         if (n < 1) {
  71                 if (result != NULL)
  72                         *result = string;
  73                 return (_INVALID_RUNE);
  74         }
  75
  76         rune = *string++ & 0xff;
  77         if ((rune > 0x80 && rune < 0xa0) ||
  78             (rune >= 0xe0 && rune < 0xfd)) {
  79                 if (n < 2) {
  80                         rune = _INVALID_RUNE;
  81                         --string;
  82                 } else
  83                         rune = (rune << 8) | (*string++ & 0xff);
  84         }
  85         if (result != NULL)
  86                 *result = string;
  87
  88         return (rune);
  89 }
  90
  91 int
  92 _MSKanji_sputrune(c, string, n, result)
  93         rune_t c;
  94         char *string, **result;
  95         size_t n;
  96 {
  97         int len, i;
  98
  99         len = (c > 0x100) ? 2 : 1;
 100         if (n < len) {
 101                 if (result != NULL)
 102                         *result = NULL;
 103         } else {
 104                 if (result != NULL)
 105                         *result = string + len;
 106                 for (i = len; i-- > 0; )
 107                         *string++ = c >> (i << 3);
 108         }
 109
 110         return (len);
 111 }