1/* Access functions for JISX0212 conversion.
2 Copyright (C) 1997-2021 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4 Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997.
5
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
10
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Lesser General Public License for more details.
15
16 You should have received a copy of the GNU Lesser General Public
17 License along with the GNU C Library; if not, see
18 <https://www.gnu.org/licenses/>. */
19
20#ifndef _JIS0212_H
21#define _JIS0212_H 1
22
23#include <assert.h>
24#include <gconv.h>
25#include <stdint.h>
26
27
28/* Struct for table with indices in mapping table. */
29struct jisx0212_idx
30{
31 uint16_t start;
32 uint16_t end;
33 uint16_t idx;
34};
35
36/* Conversion table. */
37extern const struct jisx0212_idx __jisx0212_to_ucs_idx[];
38extern const uint16_t __jisx0212_to_ucs[];
39
40extern const struct jisx0212_idx __jisx0212_from_ucs_idx[];
41extern const char __jisx0212_from_ucs[][2];
42
43
44static inline uint32_t
45__attribute ((always_inline))
46jisx0212_to_ucs4 (const unsigned char **s, size_t avail, unsigned char offset)
47{
48 const struct jisx0212_idx *rp = __jisx0212_to_ucs_idx;
49 unsigned char ch = *(*s);
50 unsigned char ch2;
51 uint32_t wch = 0;
52 int idx;
53
54 if (ch < offset || (ch - offset) < 0x22 || (ch - offset) > 0x6d)
55 return __UNKNOWN_10646_CHAR;
56
57 if (avail < 2)
58 return 0;
59
60 ch2 = (*s)[1];
61 if (ch2 < offset || (ch2 - offset) <= 0x20 || (ch2 - offset) >= 0x7f)
62 return __UNKNOWN_10646_CHAR;
63
64 idx = (ch - offset - 0x21) * 94 + (ch2 - offset - 0x21);
65
66 while (idx > rp->end)
67 ++rp;
68 if (idx >= rp->start)
69 wch = __jisx0212_to_ucs[rp->idx + idx - rp->start];
70
71 if (wch != L'\0')
72 (*s) += 2;
73 else
74 wch = __UNKNOWN_10646_CHAR;
75
76 return wch;
77}
78
79
80static inline size_t
81__attribute ((always_inline))
82ucs4_to_jisx0212 (uint32_t wch, unsigned char *s, size_t avail)
83{
84 const struct jisx0212_idx *rp = __jisx0212_from_ucs_idx;
85 unsigned int ch = (unsigned int) wch;
86 const char *cp;
87
88 if (ch >= 0xffff)
89 return __UNKNOWN_10646_CHAR;
90 while (ch > rp->end)
91 ++rp;
92 if (ch >= rp->start)
93 cp = __jisx0212_from_ucs[rp->idx + ch - rp->start];
94 else
95 return __UNKNOWN_10646_CHAR;
96
97 if (cp[0] == '\0')
98 return __UNKNOWN_10646_CHAR;
99
100 s[0] = cp[0];
101 assert (cp[1] != '\0');
102 if (avail < 2)
103 return 0;
104
105 s[1] = cp[1];
106 return 2;
107}
108
109#endif /* jis0212.h */
110