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


#include <stdlib.h>
#include <string.h>
#include <locale.h>
#include "mbctype.h"
 
int
_DEFUN (_wctomb_r, (r, s, wchar, state),
        struct _reent *r     _AND
        char          *s     _AND
        wchar_t        wchar _AND
        int           *state)
{
  if (strlen (r->_current_locale) <= 1)
    { /* fall-through */ }
  else if (!strcmp (r->_current_locale, "C-SJIS"))
    {
      unsigned char char2 = (unsigned char)wchar;
      unsigned char char1 = (unsigned char)(wchar >> 8);
 
      if (s == NULL)
        return 0;  /* not state-dependent */
 
      if (char1 != 0x00)
        {
        /* first byte is non-zero..validate multi-byte char */
          if (_issjis1(char1) && _issjis2(char2))
            {
              *s++ = (char)char1;
              *s = (char)char2;
              return 2;
            }
          else
            return -1;
        }
    }
  else if (!strcmp (r->_current_locale, "C-EUCJP"))
    {
      unsigned char char2 = (unsigned char)wchar;
      unsigned char char1 = (unsigned char)(wchar >> 8);
 
      if (s == NULL)
        return 0;  /* not state-dependent */
 
      if (char1 != 0x00)
        {
        /* first byte is non-zero..validate multi-byte char */
          if (_iseucjp (char1) && _iseucjp (char2))
            {
              *s++ = (char)char1;
              *s = (char)char2;
              return 2;
            }
          else
            return -1;
        }
    }
  else if (!strcmp (r->_current_locale, "C-JIS"))
    {
      int cnt = 0;
      unsigned char char2 = (unsigned char)wchar;
      unsigned char char1 = (unsigned char)(wchar >> 8);
 
      if (s == NULL)
        return 1;  /* state-dependent */
 
      if (char1 != 0x00)
        {
        /* first byte is non-zero..validate multi-byte char */
          if (_isjis (char1) && _isjis (char2))
            {
              if (*state == 0)
                {
                  /* must switch from ASCII to JIS state */
                  *state = 1;
                  *s++ = ESC_CHAR;
                  *s++ = '$';
                  *s++ = 'B';
                  cnt = 3;
                }
              *s++ = (char)char1;
              *s = (char)char2;
              return cnt + 2;
            }
          else
            return -1;
        }
      else
        {
          if (*state != 0)
            {
              /* must switch from JIS to ASCII state */
              *state = 0;
              *s++ = ESC_CHAR;
              *s++ = '(';
              *s++ = 'B';
              cnt = 3;
            }
          *s = (char)char2;
          return cnt + 1;
        }
    }
 
  if (s == NULL)
    return 0;
 
  /* otherwise we are dealing with a single byte character */
  *s = (char) wchar;
  return 1;
}
 
 

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

Browse

Tools

Subversion Repositories or1k

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