lib/i18n_module/mapper_zone/citrus_mapper_zone.c

   1 /* $FreeBSD: head/lib/libiconv_modules/mapper_zone/citrus_mapper_zone.c 219019 2011-02-25 00:04:39Z gabor $ */
   2 /*      $NetBSD: citrus_mapper_zone.c,v 1.4 2003/07/12 15:39:21 tshiozak Exp $  */
   3
   4 /*-
   5  * Copyright (c)2003 Citrus Project,
   6  * All rights reserved.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  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 the
  15  *    documentation and/or other materials provided with the distribution.
  16  *
  17  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  18  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  19  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  20  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  21  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  22  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  23  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  24  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  25  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  26  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  27  * SUCH DAMAGE.
  28  */
  29
  30 #include <sys/cdefs.h>
  31 #include <sys/queue.h>
  32
  33 #include <assert.h>
  34 #include <errno.h>
  35 #include <stdio.h>
  36 #include <stdlib.h>
  37 #include <string.h>
  38
  39 #include "citrus_namespace.h"
  40 #include "citrus_types.h"
  41 #include "citrus_bcs.h"
  42 #include "citrus_module.h"
  43 #include "citrus_region.h"
  44 #include "citrus_memstream.h"
  45 #include "citrus_mmap.h"
  46 #include "citrus_hash.h"
  47 #include "citrus_mapper.h"
  48 #include "citrus_mapper_zone.h"
  49
  50 /* ---------------------------------------------------------------------- */
  51
  52 _CITRUS_MAPPER_DECLS(mapper_zone);
  53 _CITRUS_MAPPER_DEF_OPS(mapper_zone);
  54
  55
  56 /* ---------------------------------------------------------------------- */
  57
  58 struct _zone {
  59         uint32_t         z_begin;
  60         uint32_t         z_end;
  61 };
  62
  63 struct _citrus_mapper_zone {
  64         struct _zone     mz_col;
  65         struct _zone     mz_row;
  66         int32_t          mz_col_offset;
  67         int32_t          mz_row_offset;
  68         int              mz_col_bits;
  69 };
  70
  71 struct _parse_state {
  72         enum { S_BEGIN, S_OFFSET }      ps_state;
  73         union {
  74                 uint32_t        u_imm;
  75                 int32_t         s_imm;
  76                 struct _zone    zone;
  77         } u;
  78 #define ps_u_imm        u.u_imm
  79 #define ps_s_imm        u.s_imm
  80 #define ps_zone         u.zone
  81         int ps_top;
  82 };
  83
  84 int
  85 _citrus_mapper_zone_mapper_getops(struct _citrus_mapper_ops *ops)
  86 {
  87
  88         memcpy(ops, &_citrus_mapper_zone_mapper_ops,
  89                sizeof(_citrus_mapper_zone_mapper_ops));
  90
  91         return (0);
  92 }
  93
  94 #define BUFSIZE 20
  95 #define T_ERR   0x100
  96 #define T_IMM   0x101
  97
  98 static int
  99 get_imm(struct _memstream *ms, struct _parse_state *ps)
 100 {
 101         int c, i, sign = 0;
 102         char buf[BUFSIZE + 1];
 103         char *p;
 104
 105         for (i = 0; i < BUFSIZE; i++) {
 106 retry:
 107                 c = _memstream_peek(ms);
 108                 if (i == 0) {
 109                         if (sign == 0 && (c == '+' || c == '-')) {
 110                                 sign = c;
 111                                 _memstream_getc(ms);
 112                                 goto retry;
 113                         } else if (!_bcs_isdigit(c))
 114                                 break;
 115                 } else if (!_bcs_isxdigit(c))
 116                         if (!(i == 1 && c == 'x'))
 117                                 break;
 118                 buf[i] = _memstream_getc(ms);
 119         }
 120         buf[i] = '\0';
 121         ps->ps_u_imm = strtoul(buf, &p, 0);
 122         if ((p - buf) != i)
 123                 return (T_ERR);
 124         if (sign == '-')
 125                 ps->ps_u_imm = (unsigned long)-(long)ps->ps_u_imm;
 126         return (T_IMM);
 127 }
 128
 129 static int
 130 get_tok(struct _memstream *ms, struct _parse_state *ps)
 131 {
 132         int c;
 133
 134 loop:
 135         c = _memstream_peek(ms);
 136         if (c == 0x00)
 137                 return (EOF);
 138         if (_bcs_isspace(c)) {
 139                 _memstream_getc(ms);
 140                 goto loop;
 141         }
 142
 143         switch (ps->ps_state) {
 144         case S_BEGIN:
 145                 switch (c) {
 146                 case ':':
 147                 case '-':
 148                 case '/':
 149                         _memstream_getc(ms);
 150                         return (c);
 151                 case '0':
 152                 case '1':
 153                 case '2':
 154                 case '3':
 155                 case '4':
 156                 case '5':
 157                 case '6':
 158                 case '7':
 159                 case '8':
 160                 case '9':
 161                         return (get_imm(ms, ps));
 162                 }
 163                 break;
 164         case S_OFFSET:
 165                 switch (c) {
 166                 case '/':
 167                         _memstream_getc(ms);
 168                         return (c);
 169                 case '+':
 170                 case '-':
 171                 case '0':
 172                 case '1':
 173                 case '2':
 174                 case '3':
 175                 case '4':
 176                 case '5':
 177                 case '6':
 178                 case '7':
 179                 case '8':
 180                 case '9':
 181                         return (get_imm(ms, ps));
 182                 }
 183                 break;
 184         }
 185         return (T_ERR);
 186 }
 187
 188 static int
 189 parse_zone(struct _memstream *ms, struct _parse_state *ps, struct _zone *z)
 190 {
 191
 192         if (get_tok(ms, ps) != T_IMM)
 193                 return (-1);
 194         z->z_begin = ps->ps_u_imm;
 195         if (get_tok(ms, ps) != '-')
 196                 return (-1);
 197         if (get_tok(ms, ps) != T_IMM)
 198                 return (-1);
 199         z->z_end = ps->ps_u_imm;
 200
 201         if (z->z_begin > z->z_end)
 202                 return (-1);
 203
 204         return (0);
 205 }
 206
 207 static int
 208 check_rowcol(struct _zone *z, int32_t ofs, uint32_t maxval)
 209 {
 210         uint32_t remain;
 211
 212         if (maxval != 0 && z->z_end >= maxval)
 213                 return (-1);
 214
 215         if (ofs > 0) {
 216                 if (maxval == 0)
 217                         /* this should 0x100000000 - z->z_end */
 218                         remain = (z->z_end == 0) ? 0xFFFFFFFF :
 219                             0xFFFFFFFF - z->z_end + 1;
 220                 else
 221                         remain = maxval - z->z_end;
 222                 if ((uint32_t)ofs > remain)
 223                         return (-1);
 224         } else if (ofs < 0) {
 225                 if (z->z_begin < (uint32_t)-ofs)
 226                         return (-1);
 227         }
 228
 229         return (0);
 230 }
 231
 232 static int
 233 parse_var(struct _citrus_mapper_zone *mz, struct _memstream *ms)
 234 {
 235         struct _parse_state ps;
 236         uint32_t colmax, rowmax;
 237         int isrc, ret;
 238
 239         ps.ps_state = S_BEGIN;
 240
 241         if (parse_zone(ms, &ps, &mz->mz_col))
 242                 return (-1);
 243
 244         ret = get_tok(ms, &ps);
 245         if (ret == '/') {
 246                 /* rowzone / colzone / bits */
 247                 isrc = 1;
 248                 mz->mz_row = mz->mz_col;
 249
 250                 if (parse_zone(ms, &ps, &mz->mz_col))
 251                         return (-1);
 252                 if (get_tok(ms, &ps) != '/')
 253                         return (-1);
 254                 if (get_tok(ms, &ps) != T_IMM)
 255                         return (-1);
 256                 mz->mz_col_bits = ps.ps_u_imm;
 257                 if (mz->mz_col_bits < 0 || mz->mz_col_bits > 32)
 258                         return (-1);
 259                 ret = get_tok(ms, &ps);
 260         } else {
 261                 /* colzone */
 262                 isrc = 0;
 263                 mz->mz_col_bits = 32;
 264                 mz->mz_row.z_begin = mz->mz_row.z_end = 0;
 265         }
 266         if (ret == ':') {
 267                 /* offset */
 268                 ps.ps_state = S_OFFSET;
 269                 if (get_tok(ms, &ps) != T_IMM)
 270                         return (-1);
 271                 mz->mz_col_offset = ps.ps_s_imm;
 272                 if (isrc) {
 273                         /* row/col */
 274                         mz->mz_row_offset = mz->mz_col_offset;
 275                         if (get_tok(ms, &ps) != '/')
 276                                 return (-1);
 277                         if (get_tok(ms, &ps) != T_IMM)
 278                                 return (-1);
 279                         mz->mz_col_offset = ps.ps_s_imm;
 280                 } else
 281                         mz->mz_row_offset = 0;
 282                 ret = get_tok(ms, &ps);
 283         }
 284         if (ret != EOF)
 285                 return (-1);
 286
 287         /* sanity check */
 288         colmax = (mz->mz_col_bits == 32) ? 0 : 1 << mz->mz_col_bits;
 289         rowmax = (mz->mz_col_bits == 0) ? 0 : 1 << (32-mz->mz_col_bits);
 290         if (check_rowcol(&mz->mz_col, mz->mz_col_offset, colmax))
 291                 return (-1);
 292         if (check_rowcol(&mz->mz_row, mz->mz_row_offset, rowmax))
 293                 return (-1);
 294
 295         return (0);
 296 }
 297
 298 static int
 299 /*ARGSUSED*/
 300 _citrus_mapper_zone_mapper_init(struct _citrus_mapper_area *__restrict ma __unused,
 301     struct _citrus_mapper * __restrict cm, const char * __restrict dir __unused,
 302     const void * __restrict var, size_t lenvar,
 303     struct _citrus_mapper_traits * __restrict mt, size_t lenmt)
 304 {
 305         struct _citrus_mapper_zone *mz;
 306         struct _memstream ms;
 307         struct _region r;
 308
 309         if (lenmt < sizeof(*mt))
 310                 return (EINVAL);
 311
 312         mz = malloc(sizeof(*mz));
 313         if (mz == NULL)
 314                 return (errno);
 315
 316         mz->mz_col.z_begin = mz->mz_col.z_end = 0;
 317         mz->mz_row.z_begin = mz->mz_row.z_end = 0;
 318         mz->mz_col_bits = 0;
 319         mz->mz_row_offset = 0;
 320         mz->mz_col_offset = 0;
 321
 322         _region_init(&r, __DECONST(void *, var), lenvar);
 323         _memstream_bind(&ms, &r);
 324         if (parse_var(mz, &ms)) {
 325                 free(mz);
 326                 return (EINVAL);
 327         }
 328         cm->cm_closure = mz;
 329         mt->mt_src_max = mt->mt_dst_max = 1;    /* 1:1 converter */
 330         mt->mt_state_size = 0;                  /* stateless */
 331
 332         return (0);
 333 }
 334
 335 static void
 336 /*ARGSUSED*/
 337 _citrus_mapper_zone_mapper_uninit(struct _citrus_mapper *cm __unused)
 338 {
 339
 340 }
 341
 342 static int
 343 /*ARGSUSED*/
 344 _citrus_mapper_zone_mapper_convert(struct _citrus_mapper * __restrict cm,
 345     _citrus_index_t * __restrict dst, _citrus_index_t src,
 346     void * __restrict ps __unused)
 347 {
 348         struct _citrus_mapper_zone *mz = cm->cm_closure;
 349         uint32_t col, row;
 350
 351         if (mz->mz_col_bits == 32) {
 352                 col = src;
 353                 row = 0;
 354                 if (col < mz->mz_col.z_begin || col > mz->mz_col.z_end)
 355                         return (_CITRUS_MAPPER_CONVERT_NONIDENTICAL);
 356                 if (mz->mz_col_offset > 0)
 357                         col += (uint32_t)mz->mz_col_offset;
 358                 else
 359                         col -= (uint32_t)-mz->mz_col_offset;
 360                 *dst = col;
 361         } else {
 362                 col = src & (((uint32_t)1 << mz->mz_col_bits) - 1);
 363                 row = src >> mz->mz_col_bits;
 364                 if (row < mz->mz_row.z_begin || row > mz->mz_row.z_end ||
 365                     col < mz->mz_col.z_begin || col > mz->mz_col.z_end)
 366                         return (_CITRUS_MAPPER_CONVERT_NONIDENTICAL);
 367                 if (mz->mz_col_offset > 0)
 368                         col += (uint32_t)mz->mz_col_offset;
 369                 else
 370                         col -= (uint32_t)-mz->mz_col_offset;
 371                 if (mz->mz_row_offset > 0)
 372                         row += (uint32_t)mz->mz_row_offset;
 373                 else
 374                         row -= (uint32_t)-mz->mz_row_offset;
 375                 *dst = col | (row << mz->mz_col_bits);
 376         }
 377         return (_CITRUS_MAPPER_CONVERT_SUCCESS);
 378 }
 379
 380 static void
 381 /*ARGSUSED*/
 382 _citrus_mapper_zone_mapper_init_state(void)
 383 {
 384
 385 }