lib/libcr/locale/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  * $FreeBSD: src/lib/libc/locale/mskanji.c,v 1.2.8.2 2001/03/05 10:22:45 obrien Exp $
  34  */
  35
  36 #if defined(LIBC_SCCS) && !defined(lint)
  37 static char sccsid[] = "@(#)mskanji.c   1.0 (Phase One) 5/5/95";
  38 #endif /* LIBC_SCCS and not lint */
  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 __P((const char *, size_t, char const **));
  48 int     _MSKanji_sputrune __P((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                 rune = _INVALID_RUNE;
  72         } else {
  73                 rune = *( string++ ) & 0xff;
  74                 if ( ( rune > 0x80 && rune < 0xa0 )
  75                 || ( rune >= 0xe0 && rune < 0xfa ) ) {
  76                         if ( n < 2 ) {
  77                                 rune = (rune_t)_INVALID_RUNE;
  78                                 --string;
  79                         } else {
  80                                 rune = ( rune << 8 ) | ( *( string++ ) & 0xff );
  81                         }
  82                 }
  83         }
  84         if (result) *result = string;
  85         return rune;
  86 }
  87
  88 int
  89 _MSKanji_sputrune(c, string, n, result)
  90         rune_t c;
  91         char *string, **result;
  92         size_t n;
  93 {
  94         int     len, i;
  95
  96         len = ( c > 0x100 ) ? 2 : 1;
  97         if ( n < len ) {
  98                 if ( result ) *result = (char *) 0;
  99         } else {
 100                 if ( result ) *result = string + len;
 101                 for ( i = len; i-- > 0; ) {
 102                         *( string++ ) = c >> ( i << 3 );
 103                 }
 104         }
 105         return len;
 106 }