1 /* $NetBSD: citrus_mapper_646.c,v 1.4 2003/07/14 11:37:49 tshiozak Exp $ */ 2 3 /*- 4 * SPDX-License-Identifier: BSD-2-Clause 5 * 6 * Copyright (c)2003 Citrus Project, 7 * All rights reserved. 8 * 9 * Redistribution and use in source and binary forms, with or without 10 * modification, are permitted provided that the following conditions 11 * are met: 12 * 1. Redistributions of source code must retain the above copyright 13 * notice, this list of conditions and the following disclaimer. 14 * 2. Redistributions in binary form must reproduce the above copyright 15 * notice, this list of conditions and the following disclaimer in the 16 * documentation and/or other materials provided with the distribution. 17 * 18 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 19 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 20 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 21 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 22 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 23 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 24 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 25 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 26 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 27 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 28 * SUCH DAMAGE. 29 */ 30 31 #include <sys/cdefs.h> 32 #include <sys/queue.h> 33 34 #include <assert.h> 35 #include <errno.h> 36 #include <limits.h> 37 #include <stdio.h> 38 #include <stdlib.h> 39 #include <string.h> 40 41 #include "citrus_namespace.h" 42 #include "citrus_types.h" 43 #include "citrus_bcs.h" 44 #include "citrus_module.h" 45 #include "citrus_region.h" 46 #include "citrus_memstream.h" 47 #include "citrus_mmap.h" 48 #include "citrus_hash.h" 49 #include "citrus_mapper.h" 50 #include "citrus_mapper_646.h" 51 52 /* ---------------------------------------------------------------------- */ 53 54 _CITRUS_MAPPER_DECLS(mapper_646); 55 _CITRUS_MAPPER_DEF_OPS(mapper_646); 56 57 /* ---------------------------------------------------------------------- */ 58 59 #define ILSEQ 0xFFFFFFFE 60 #define INVALID 0xFFFFFFFF 61 #define SPECIALS(x) \ 62 x(0x23) \ 63 x(0x24) \ 64 x(0x40) \ 65 x(0x5B) \ 66 x(0x5C) \ 67 x(0x5D) \ 68 x(0x5E) \ 69 x(0x60) \ 70 x(0x7B) \ 71 x(0x7C) \ 72 x(0x7D) \ 73 x(0x7E) 74 75 #define INDEX(x) INDEX_##x, 76 77 enum { 78 SPECIALS(INDEX) 79 NUM_OF_SPECIALS 80 }; 81 struct _citrus_mapper_646 { 82 _index_t m6_map[NUM_OF_SPECIALS]; 83 int m6_forward; 84 }; 85 86 int 87 _citrus_mapper_646_mapper_getops(struct _citrus_mapper_ops *ops) 88 { 89 90 memcpy(ops, &_citrus_mapper_646_mapper_ops, 91 sizeof(_citrus_mapper_646_mapper_ops)); 92 93 return (0); 94 } 95 96 #define T_COMM '#' 97 static int 98 parse_file(struct _citrus_mapper_646 *m6, const char *path) 99 { 100 struct _memstream ms; 101 struct _region r; 102 const char *p; 103 char *pp; 104 size_t len; 105 char buf[PATH_MAX]; 106 int i, ret; 107 108 ret = _map_file(&r, path); 109 if (ret) 110 return (ret); 111 _memstream_bind(&ms, &r); 112 for (i = 0; i < NUM_OF_SPECIALS; i++) { 113 retry: 114 p = _memstream_getln(&ms, &len); 115 if (p == NULL) { 116 ret = EINVAL; 117 break; 118 } 119 p = _bcs_skip_ws_len(p, &len); 120 if (*p == T_COMM || len==0) 121 goto retry; 122 if (!_bcs_isdigit(*p)) { 123 ret = EINVAL; 124 break; 125 } 126 snprintf(buf, sizeof(buf), "%.*s", (int)len, p); 127 pp = __DECONST(void *, p); 128 m6->m6_map[i] = strtoul(buf, (char **)&pp, 0); 129 p = _bcs_skip_ws(buf); 130 if (*p != T_COMM && !*p) { 131 ret = EINVAL; 132 break; 133 } 134 } 135 _unmap_file(&r); 136 137 return (ret); 138 }; 139 140 static int 141 parse_var(struct _citrus_mapper_646 *m6, struct _memstream *ms, 142 const char *dir) 143 { 144 struct _region r; 145 char path[PATH_MAX]; 146 147 m6->m6_forward = 1; 148 _memstream_skip_ws(ms); 149 /* whether backward */ 150 if (_memstream_peek(ms) == '!') { 151 _memstream_getc(ms); 152 m6->m6_forward = 0; 153 } 154 /* get description file path */ 155 _memstream_getregion(ms, &r, _memstream_remainder(ms)); 156 snprintf(path, sizeof(path), "%s/%.*s", 157 dir, (int)_region_size(&r), (char *)_region_head(&r)); 158 /* remove trailing white spaces */ 159 path[_bcs_skip_nonws(path)-path] = '\0'; 160 return (parse_file(m6, path)); 161 } 162 163 static int 164 /*ARGSUSED*/ 165 _citrus_mapper_646_mapper_init(struct _citrus_mapper_area *__restrict ma __unused, 166 struct _citrus_mapper * __restrict cm, const char * __restrict dir, 167 const void * __restrict var, size_t lenvar, 168 struct _citrus_mapper_traits * __restrict mt, size_t lenmt) 169 { 170 struct _citrus_mapper_646 *m6; 171 struct _memstream ms; 172 struct _region r; 173 int ret; 174 175 if (lenmt < sizeof(*mt)) 176 return (EINVAL); 177 178 m6 = malloc(sizeof(*m6)); 179 if (m6 == NULL) 180 return (errno); 181 182 _region_init(&r, __DECONST(void *, var), lenvar); 183 _memstream_bind(&ms, &r); 184 ret = parse_var(m6, &ms, dir); 185 if (ret) { 186 free(m6); 187 return (ret); 188 } 189 190 cm->cm_closure = m6; 191 mt->mt_src_max = mt->mt_dst_max = 1; /* 1:1 converter */ 192 mt->mt_state_size = 0; /* stateless */ 193 194 return (0); 195 } 196 197 static void 198 /*ARGSUSED*/ 199 _citrus_mapper_646_mapper_uninit(struct _citrus_mapper *cm) 200 { 201 202 if (cm && cm->cm_closure) 203 free(cm->cm_closure); 204 } 205 206 static int 207 /*ARGSUSED*/ 208 _citrus_mapper_646_mapper_convert(struct _citrus_mapper * __restrict cm, 209 _index_t * __restrict dst, _index_t src, void * __restrict ps __unused) 210 { 211 struct _citrus_mapper_646 *m6; 212 213 m6 = cm->cm_closure; 214 if (m6->m6_forward) { 215 /* forward */ 216 if (src >= 0x80) 217 return (_MAPPER_CONVERT_ILSEQ); 218 #define FORWARD(x) \ 219 if (src == (x)) { \ 220 if (m6->m6_map[INDEX_##x]==INVALID) \ 221 return (_MAPPER_CONVERT_NONIDENTICAL); \ 222 *dst = m6->m6_map[INDEX_##x]; \ 223 return (0); \ 224 } else 225 SPECIALS(FORWARD); 226 *dst = src; 227 } else { 228 /* backward */ 229 #define BACKWARD(x) \ 230 if (m6->m6_map[INDEX_##x] != INVALID && src == m6->m6_map[INDEX_##x]) { \ 231 *dst = (x); \ 232 return (0); \ 233 } else if (src == (x)) \ 234 return (_MAPPER_CONVERT_ILSEQ); \ 235 else 236 SPECIALS(BACKWARD); 237 if (src >= 0x80) 238 return (_MAPPER_CONVERT_NONIDENTICAL); 239 *dst = src; 240 } 241 242 return (_MAPPER_CONVERT_SUCCESS); 243 } 244 245 static void 246 /*ARGSUSED*/ 247 _citrus_mapper_646_mapper_init_state(void) 248 { 249 250 } 251