OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib-1.10.0/] [newlib/] [libc/] [stdlib/] [wctomb_r.c] - Blame information for rev 1773

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 1010 ivang
#include <stdlib.h>
2
#include <string.h>
3
#include <locale.h>
4
#include "mbctype.h"
5
 
6
int
7
_DEFUN (_wctomb_r, (r, s, wchar, state),
8
        struct _reent *r     _AND
9
        char          *s     _AND
10
        wchar_t        wchar _AND
11
        int           *state)
12
{
13
  if (strlen (r->_current_locale) <= 1)
14
    { /* fall-through */ }
15
  else if (!strcmp (r->_current_locale, "C-SJIS"))
16
    {
17
      unsigned char char2 = (unsigned char)wchar;
18
      unsigned char char1 = (unsigned char)(wchar >> 8);
19
 
20
      if (s == NULL)
21
        return 0;  /* not state-dependent */
22
 
23
      if (char1 != 0x00)
24
        {
25
        /* first byte is non-zero..validate multi-byte char */
26
          if (_issjis1(char1) && _issjis2(char2))
27
            {
28
              *s++ = (char)char1;
29
              *s = (char)char2;
30
              return 2;
31
            }
32
          else
33
            return -1;
34
        }
35
    }
36
  else if (!strcmp (r->_current_locale, "C-EUCJP"))
37
    {
38
      unsigned char char2 = (unsigned char)wchar;
39
      unsigned char char1 = (unsigned char)(wchar >> 8);
40
 
41
      if (s == NULL)
42
        return 0;  /* not state-dependent */
43
 
44
      if (char1 != 0x00)
45
        {
46
        /* first byte is non-zero..validate multi-byte char */
47
          if (_iseucjp (char1) && _iseucjp (char2))
48
            {
49
              *s++ = (char)char1;
50
              *s = (char)char2;
51
              return 2;
52
            }
53
          else
54
            return -1;
55
        }
56
    }
57
  else if (!strcmp (r->_current_locale, "C-JIS"))
58
    {
59
      int cnt = 0;
60
      unsigned char char2 = (unsigned char)wchar;
61
      unsigned char char1 = (unsigned char)(wchar >> 8);
62
 
63
      if (s == NULL)
64
        return 1;  /* state-dependent */
65
 
66
      if (char1 != 0x00)
67
        {
68
        /* first byte is non-zero..validate multi-byte char */
69
          if (_isjis (char1) && _isjis (char2))
70
            {
71
              if (*state == 0)
72
                {
73
                  /* must switch from ASCII to JIS state */
74
                  *state = 1;
75
                  *s++ = ESC_CHAR;
76
                  *s++ = '$';
77
                  *s++ = 'B';
78
                  cnt = 3;
79
                }
80
              *s++ = (char)char1;
81
              *s = (char)char2;
82
              return cnt + 2;
83
            }
84
          else
85
            return -1;
86
        }
87
      else
88
        {
89
          if (*state != 0)
90
            {
91
              /* must switch from JIS to ASCII state */
92
              *state = 0;
93
              *s++ = ESC_CHAR;
94
              *s++ = '(';
95
              *s++ = 'B';
96
              cnt = 3;
97
            }
98
          *s = (char)char2;
99
          return cnt + 1;
100
        }
101
    }
102
 
103
  if (s == NULL)
104
    return 0;
105
 
106
  /* otherwise we are dealing with a single byte character */
107
  *s = (char) wchar;
108
  return 1;
109
}
110
 
111
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.