NetBSD-5.0.2/lib/libc/citrus/modules/citrus_mapper_serial.c
/* $NetBSD: citrus_mapper_serial.c,v 1.2 2003/07/12 15:39:20 tshiozak Exp $ */
/*-
* Copyright (c)2003 Citrus Project,
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/
#include <sys/cdefs.h>
#if defined(LIBC_SCCS) && !defined(lint)
__RCSID("$NetBSD: citrus_mapper_serial.c,v 1.2 2003/07/12 15:39:20 tshiozak Exp $");
#endif /* LIBC_SCCS and not lint */
#include <assert.h>
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <limits.h>
#include <sys/queue.h>
#include "citrus_namespace.h"
#include "citrus_types.h"
#include "citrus_bcs.h"
#include "citrus_module.h"
#include "citrus_region.h"
#include "citrus_memstream.h"
#include "citrus_mmap.h"
#include "citrus_hash.h"
#include "citrus_mapper.h"
#include "citrus_mapper_serial.h"
/* ---------------------------------------------------------------------- */
_CITRUS_MAPPER_DECLS(mapper_serial);
_CITRUS_MAPPER_DEF_OPS(mapper_serial);
#define _citrus_mapper_parallel_mapper_init \
_citrus_mapper_serial_mapper_init
#define _citrus_mapper_parallel_mapper_uninit \
_citrus_mapper_serial_mapper_uninit
#define _citrus_mapper_parallel_mapper_init_state \
_citrus_mapper_serial_mapper_init_state
static int _citrus_mapper_parallel_mapper_convert(
struct _citrus_mapper * __restrict, _index_t * __restrict, _index_t,
void * __restrict);
_CITRUS_MAPPER_DEF_OPS(mapper_parallel);
#undef _citrus_mapper_parallel_mapper_init
#undef _citrus_mapper_parallel_mapper_uninit
#undef _citrus_mapper_parallel_mapper_init_state
/* ---------------------------------------------------------------------- */
struct maplink {
SIMPLEQ_ENTRY(maplink) ml_entry;
struct _mapper *ml_mapper;
};
SIMPLEQ_HEAD(maplist, maplink);
struct _citrus_mapper_serial {
struct maplist sr_mappers;
};
int
_citrus_mapper_serial_mapper_getops(struct _citrus_mapper_ops *ops,
size_t lenops, uint32_t expected_version)
{
if (expected_version<_CITRUS_MAPPER_ABI_VERSION || lenops<sizeof(*ops))
return EINVAL;
memcpy(ops, &_citrus_mapper_serial_mapper_ops,
sizeof(_citrus_mapper_serial_mapper_ops));
return 0;
}
int
_citrus_mapper_parallel_mapper_getops(struct _citrus_mapper_ops *ops,
size_t lenops, uint32_t expected_version)
{
if (expected_version<_CITRUS_MAPPER_ABI_VERSION || lenops<sizeof(*ops))
return EINVAL;
memcpy(ops, &_citrus_mapper_parallel_mapper_ops,
sizeof(_citrus_mapper_parallel_mapper_ops));
return 0;
}
static void
uninit(struct _citrus_mapper_serial *sr)
{
struct maplink *ml;
while ((ml = SIMPLEQ_FIRST(&sr->sr_mappers)) != NULL) {
SIMPLEQ_REMOVE_HEAD(&sr->sr_mappers, ml_entry);
_mapper_close(ml->ml_mapper);
free(ml);
}
}
static int
parse_var(struct _citrus_mapper_area *__restrict ma,
struct _citrus_mapper_serial *sr, struct _memstream *ms)
{
int ret;
struct _region r;
char mapname[PATH_MAX];
struct maplink *ml;
SIMPLEQ_INIT(&sr->sr_mappers);
while (1) {
/* remove beginning white spaces */
_memstream_skip_ws(ms);
if (_memstream_iseof(ms))
break;
/* cut down a mapper name */
_memstream_chr(ms, &r, ',');
snprintf(mapname, sizeof(mapname), "%.*s",
(int)_region_size(&r), (char *)_region_head(&r));
/* remove trailing white spaces */
mapname[_bcs_skip_nonws(mapname)-mapname] = '\0';
/* create a new mapper record */
ml = malloc(sizeof(*ml));
if (ml == NULL)
return errno;
ret = _mapper_open(ma, &ml->ml_mapper, mapname);
if (ret) {
free(ml);
return ret;
}
/* support only 1:1 and stateless converter */
if (_mapper_get_src_max(ml->ml_mapper) != 1 ||
_mapper_get_dst_max(ml->ml_mapper) != 1 ||
_mapper_get_state_size(ml->ml_mapper) != 0) {
free(ml);
return EINVAL;
}
SIMPLEQ_INSERT_TAIL(&sr->sr_mappers, ml, ml_entry);
}
return 0;
}
static int
/*ARGSUSED*/
_citrus_mapper_serial_mapper_init(struct _citrus_mapper_area *__restrict ma,
struct _citrus_mapper * __restrict cm,
const char * __restrict dir,
const void * __restrict var, size_t lenvar,
struct _citrus_mapper_traits * __restrict mt,
size_t lenmt)
{
struct _citrus_mapper_serial *sr;
struct _memstream ms;
struct _region r;
_DIAGASSERT(cm && dir && mt);
if (lenmt<sizeof(*mt))
return EINVAL;
sr = malloc(sizeof(*sr));
if (sr == NULL)
return errno;
_region_init(&r, (void *)var, lenvar);
_memstream_bind(&ms, &r);
if (parse_var(ma, sr, &ms)) {
uninit(sr);
free(sr);
return EINVAL;
}
cm->cm_closure = sr;
mt->mt_src_max = mt->mt_dst_max = 1; /* 1:1 converter */
mt->mt_state_size = 0; /* stateless */
return 0;
}
static void
/*ARGSUSED*/
_citrus_mapper_serial_mapper_uninit(struct _citrus_mapper *cm)
{
if (cm && cm->cm_closure) {
uninit(cm->cm_closure);
free(cm->cm_closure);
}
}
static int
/*ARGSUSED*/
_citrus_mapper_serial_mapper_convert(struct _citrus_mapper * __restrict cm,
_index_t * __restrict dst, _index_t src,
void * __restrict ps)
{
int ret;
struct _citrus_mapper_serial *sr;
struct maplink *ml;
_DIAGASSERT(cm && cm->cm_closure);
sr = cm->cm_closure;
SIMPLEQ_FOREACH(ml, &sr->sr_mappers, ml_entry) {
ret = _mapper_convert(ml->ml_mapper, &src, src, NULL);
if (ret != _MAPPER_CONVERT_SUCCESS)
return ret;
}
*dst = src;
return _MAPPER_CONVERT_SUCCESS;
}
static int
/*ARGSUSED*/
_citrus_mapper_parallel_mapper_convert(struct _citrus_mapper * __restrict cm,
_index_t * __restrict dst, _index_t src,
void * __restrict ps)
{
int ret;
struct _citrus_mapper_serial *sr;
struct maplink *ml;
_index_t tmp;
_DIAGASSERT(cm && cm->cm_closure);
sr = cm->cm_closure;
SIMPLEQ_FOREACH(ml, &sr->sr_mappers, ml_entry) {
ret = _mapper_convert(ml->ml_mapper, &tmp, src, NULL);
if (ret == _MAPPER_CONVERT_SUCCESS) {
*dst = tmp;
return _MAPPER_CONVERT_SUCCESS;
} else if (ret == _MAPPER_CONVERT_ILSEQ)
return _MAPPER_CONVERT_ILSEQ;
}
return _MAPPER_CONVERT_NONIDENTICAL;
}
static void
/*ARGSUSED*/
_citrus_mapper_serial_mapper_init_state(struct _citrus_mapper * __restrict cm,
void * __restrict ps)
{
}