1 /* Id: unicode.c,v 1.9 2015/07/19 13:20:37 ragge Exp */
2 /* $NetBSD: unicode.c,v 1.1.1.2 2016/02/09 20:29:20 plunky Exp $ */
3 /*
4 * Copyright (c) 2014 Eric Olson <ejolson@renomath.org>
5 * Some rights reserved.
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 *
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in
15 * the documentation and/or other materials provided with the
16 * distribution.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
19 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
20 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
21 * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
22 * COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
23 * INCIDENTAL, SPECIAL, EXEMPLARY OR CONSEQUENTIAL DAMAGES (INCLUDING,
24 * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
25 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
26 * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
27 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
28 * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * SUCH DAMAGE.
30 */
31
32 #include <stdio.h>
33 #include <ctype.h>
34 #include "pass1.h"
35 #include "manifest.h"
36 #include "unicode.h"
37
38 /*
39 * decode 32-bit code point from UTF-8
40 * move pointer
41 */
42 long
u82cp(char ** q)43 u82cp(char **q)
44 {
45 unsigned char *t = (unsigned char *)*q;
46 unsigned long c, r;
47 int i, sz;
48
49 if (*t == '\\')
50 c = esccon((char **)&t);
51 else
52 c = *t++;
53
54 /* always eat the first value */
55 *q = (char *)t;
56
57 if (c > 0x7F) {
58 if ((c & 0xE0) == 0xC0) {
59 sz = 2;
60 r = c & 0x1F;
61 } else if ((c & 0xF0) == 0xE0) {
62 sz = 3;
63 r = c & 0x0F;
64 } else if ((c & 0xF8) == 0xF0) {
65 sz = 4;
66 r = c & 0x07;
67 } else if ((c & 0xFC) == 0xF8) {
68 sz = 5;
69 r = c & 0x03;
70 } else if ((c & 0xFE) == 0xFC) {
71 sz = 6;
72 r = c & 0x01;
73 } else {
74 u8error("invalid utf-8 prefix");
75 return 0xFFFFUL;
76 }
77
78 for (i = 1; i < sz; i++) {
79 if (*t == '\\')
80 c = esccon((char **)&t);
81 else
82 c = *t++;
83
84 if ((c & 0xC0) == 0x80) {
85 r = (r << 6) + (c & 0x3F);
86 } else {
87 u8error("utf-8 encoding %d bytes too short", sz - i);
88 return 0xFFFFUL;
89 }
90 }
91
92 *q = (char *)t;
93 } else {
94 r = c;
95 }
96
97 return r;
98 }
99
100 /*
101 * Create UTF-16 from unicode number.
102 * Expects s to point to two words.
103 */
104 void
cp2u16(long num,unsigned short * s)105 cp2u16(long num, unsigned short *s)
106 {
107 s[0] = s[1] = 0;
108 if (num <= 0xd7ff || (num >= 0xe000 && num <= 0xffffL)) {
109 *s = num;
110 } else if (num >= 0x010000L && num <= 0x10ffffL) {
111 num -= 0x010000L;
112 s[0] = ((num >> 10) + 0xd800);
113 s[1] = ((num & 0x3ff) + 0xdc00);
114 } else if (num > 0x10ffffL)
115 werror("illegal UTF-16 value");
116 }
117