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