/*
 * uvector - uniform (homogeneous) numeric vector types (SRFI-4)
 *
 *   Copyright (c) 1999-2007 Shiro Kawai, 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.
 *
 *   3. Neither the name of the authors nor the names of its contributors
 *      may be used to endorse or promote products derived from this
 *      software without specific prior written permission.
 *
 *   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS 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 COPYRIGHT
 *   OWNER 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.
 *
 *  This file is automatically generated.  DO NOT EDIT.
 */

#ifndef GAUCHE_UVECT_H
#define GAUCHE_UVECT_H

#include <gauche.h>

SCM_DECL_BEGIN

#if defined(EXTUVECTOR_EXPORTS)
#define LIBGAUCHE_EXT_BODY
#endif
#include <gauche/extern.h>      /* redefine SCM_EXTERN */

/*
 * This header file is for other extension modules which need
 * to access uniform vectors in C level.
 */

SCM_EXTERN ScmObj Scm_UVectorAlias(ScmClass *klass, ScmUVector *v,
                                   ScmSmallInt start, ScmSmallInt end);

SCM_EXTERN ScmObj Scm_UVectorCopy(ScmUVector *v,
                                  ScmSmallInt start, ScmSmallInt end);
SCM_EXTERN ScmObj Scm_UVectorSwapBytes(ScmUVector *v, int option);
SCM_EXTERN ScmObj Scm_UVectorSwapBytesX(ScmUVector *v, int option);

SCM_EXTERN ScmObj Scm_ReadBlockX(ScmUVector *v, ScmPort *port,
                                 ScmSmallInt start, ScmSmallInt end,
                                 ScmSymbol *endian);
SCM_EXTERN ScmObj Scm_WriteBlock(ScmUVector *v, ScmPort *port,
                                 ScmSmallInt start, ScmSmallInt end, 
                                 ScmSymbol *endian);

/* S8Vector */

SCM_EXTERN ScmObj Scm_S8VectorFill(ScmS8Vector *vec, int8_t fill, int, int);
SCM_EXTERN ScmObj Scm_S8VectorSet(ScmS8Vector *vec, int index, ScmObj val, int clamp);
SCM_EXTERN ScmObj Scm_S8VectorToList(ScmS8Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_S8VectorCopy(ScmS8Vector *vec,
                                     ScmSmallInt start, ScmSmallInt end);
SCM_EXTERN ScmObj Scm_S8VectorCopyX(ScmS8Vector *dst, ScmSmallInt dstart,
                                      ScmS8Vector *src, ScmSmallInt sstart,
                                      ScmSmallInt send);
SCM_EXTERN ScmObj Scm_ObjArrayToS8Vector(ScmObj *arr, int size, int clamp);
SCM_EXTERN ScmObj Scm_S8VectorToVector(ScmS8Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_VectorToS8Vector(ScmVector *vec, int start, int end, int clamp);

/* arithmetics */
SCM_EXTERN ScmObj Scm_S8VectorAdd(ScmS8Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S8VectorAddX(ScmS8Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S8VectorSub(ScmS8Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S8VectorSubX(ScmS8Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S8VectorMul(ScmS8Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S8VectorMulX(ScmS8Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S8VectorDiv(ScmS8Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S8VectorDivX(ScmS8Vector *s0, ScmObj s1, int clamp);

SCM_EXTERN ScmObj Scm_S8VectorAnd(ScmS8Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S8VectorAndX(ScmS8Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S8VectorIor(ScmS8Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S8VectorIorX(ScmS8Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S8VectorXor(ScmS8Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S8VectorXorX(ScmS8Vector *s0, ScmObj s1);

SCM_EXTERN ScmObj Scm_S8VectorDotProd(ScmS8Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_VMS8VectorDotProd(ScmS8Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_S8VectorRangeCheck(ScmS8Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_S8VectorClamp(ScmS8Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_S8VectorClampX(ScmS8Vector *v0, ScmObj min, ScmObj max);

SCM_EXTERN ScmObj Scm_S8VectorSwapBytes(ScmS8Vector *v0);
SCM_EXTERN ScmObj Scm_S8VectorSwapBytesX(ScmS8Vector *v0);

/* U8Vector */

SCM_EXTERN ScmObj Scm_U8VectorFill(ScmU8Vector *vec, uint8_t fill, int, int);
SCM_EXTERN ScmObj Scm_U8VectorSet(ScmU8Vector *vec, int index, ScmObj val, int clamp);
SCM_EXTERN ScmObj Scm_U8VectorToList(ScmU8Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_U8VectorCopy(ScmU8Vector *vec,
                                     ScmSmallInt start, ScmSmallInt end);
SCM_EXTERN ScmObj Scm_U8VectorCopyX(ScmU8Vector *dst, ScmSmallInt dstart,
                                      ScmU8Vector *src, ScmSmallInt sstart,
                                      ScmSmallInt send);
SCM_EXTERN ScmObj Scm_ObjArrayToU8Vector(ScmObj *arr, int size, int clamp);
SCM_EXTERN ScmObj Scm_U8VectorToVector(ScmU8Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_VectorToU8Vector(ScmVector *vec, int start, int end, int clamp);

/* arithmetics */
SCM_EXTERN ScmObj Scm_U8VectorAdd(ScmU8Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U8VectorAddX(ScmU8Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U8VectorSub(ScmU8Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U8VectorSubX(ScmU8Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U8VectorMul(ScmU8Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U8VectorMulX(ScmU8Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U8VectorDiv(ScmU8Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U8VectorDivX(ScmU8Vector *s0, ScmObj s1, int clamp);

SCM_EXTERN ScmObj Scm_U8VectorAnd(ScmU8Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U8VectorAndX(ScmU8Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U8VectorIor(ScmU8Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U8VectorIorX(ScmU8Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U8VectorXor(ScmU8Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U8VectorXorX(ScmU8Vector *s0, ScmObj s1);

SCM_EXTERN ScmObj Scm_U8VectorDotProd(ScmU8Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_VMU8VectorDotProd(ScmU8Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_U8VectorRangeCheck(ScmU8Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_U8VectorClamp(ScmU8Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_U8VectorClampX(ScmU8Vector *v0, ScmObj min, ScmObj max);

SCM_EXTERN ScmObj Scm_U8VectorSwapBytes(ScmU8Vector *v0);
SCM_EXTERN ScmObj Scm_U8VectorSwapBytesX(ScmU8Vector *v0);

/* S16Vector */

SCM_EXTERN ScmObj Scm_S16VectorFill(ScmS16Vector *vec, int16_t fill, int, int);
SCM_EXTERN ScmObj Scm_S16VectorSet(ScmS16Vector *vec, int index, ScmObj val, int clamp);
SCM_EXTERN ScmObj Scm_S16VectorToList(ScmS16Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_S16VectorCopy(ScmS16Vector *vec,
                                     ScmSmallInt start, ScmSmallInt end);
SCM_EXTERN ScmObj Scm_S16VectorCopyX(ScmS16Vector *dst, ScmSmallInt dstart,
                                      ScmS16Vector *src, ScmSmallInt sstart,
                                      ScmSmallInt send);
SCM_EXTERN ScmObj Scm_ObjArrayToS16Vector(ScmObj *arr, int size, int clamp);
SCM_EXTERN ScmObj Scm_S16VectorToVector(ScmS16Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_VectorToS16Vector(ScmVector *vec, int start, int end, int clamp);

/* arithmetics */
SCM_EXTERN ScmObj Scm_S16VectorAdd(ScmS16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S16VectorAddX(ScmS16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S16VectorSub(ScmS16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S16VectorSubX(ScmS16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S16VectorMul(ScmS16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S16VectorMulX(ScmS16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S16VectorDiv(ScmS16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S16VectorDivX(ScmS16Vector *s0, ScmObj s1, int clamp);

SCM_EXTERN ScmObj Scm_S16VectorAnd(ScmS16Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S16VectorAndX(ScmS16Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S16VectorIor(ScmS16Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S16VectorIorX(ScmS16Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S16VectorXor(ScmS16Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S16VectorXorX(ScmS16Vector *s0, ScmObj s1);

SCM_EXTERN ScmObj Scm_S16VectorDotProd(ScmS16Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_VMS16VectorDotProd(ScmS16Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_S16VectorRangeCheck(ScmS16Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_S16VectorClamp(ScmS16Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_S16VectorClampX(ScmS16Vector *v0, ScmObj min, ScmObj max);

SCM_EXTERN ScmObj Scm_S16VectorSwapBytes(ScmS16Vector *v0);
SCM_EXTERN ScmObj Scm_S16VectorSwapBytesX(ScmS16Vector *v0);

/* U16Vector */

SCM_EXTERN ScmObj Scm_U16VectorFill(ScmU16Vector *vec, uint16_t fill, int, int);
SCM_EXTERN ScmObj Scm_U16VectorSet(ScmU16Vector *vec, int index, ScmObj val, int clamp);
SCM_EXTERN ScmObj Scm_U16VectorToList(ScmU16Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_U16VectorCopy(ScmU16Vector *vec,
                                     ScmSmallInt start, ScmSmallInt end);
SCM_EXTERN ScmObj Scm_U16VectorCopyX(ScmU16Vector *dst, ScmSmallInt dstart,
                                      ScmU16Vector *src, ScmSmallInt sstart,
                                      ScmSmallInt send);
SCM_EXTERN ScmObj Scm_ObjArrayToU16Vector(ScmObj *arr, int size, int clamp);
SCM_EXTERN ScmObj Scm_U16VectorToVector(ScmU16Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_VectorToU16Vector(ScmVector *vec, int start, int end, int clamp);

/* arithmetics */
SCM_EXTERN ScmObj Scm_U16VectorAdd(ScmU16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U16VectorAddX(ScmU16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U16VectorSub(ScmU16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U16VectorSubX(ScmU16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U16VectorMul(ScmU16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U16VectorMulX(ScmU16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U16VectorDiv(ScmU16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U16VectorDivX(ScmU16Vector *s0, ScmObj s1, int clamp);

SCM_EXTERN ScmObj Scm_U16VectorAnd(ScmU16Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U16VectorAndX(ScmU16Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U16VectorIor(ScmU16Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U16VectorIorX(ScmU16Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U16VectorXor(ScmU16Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U16VectorXorX(ScmU16Vector *s0, ScmObj s1);

SCM_EXTERN ScmObj Scm_U16VectorDotProd(ScmU16Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_VMU16VectorDotProd(ScmU16Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_U16VectorRangeCheck(ScmU16Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_U16VectorClamp(ScmU16Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_U16VectorClampX(ScmU16Vector *v0, ScmObj min, ScmObj max);

SCM_EXTERN ScmObj Scm_U16VectorSwapBytes(ScmU16Vector *v0);
SCM_EXTERN ScmObj Scm_U16VectorSwapBytesX(ScmU16Vector *v0);

/* S32Vector */

SCM_EXTERN ScmObj Scm_S32VectorFill(ScmS32Vector *vec, int32_t fill, int, int);
SCM_EXTERN ScmObj Scm_S32VectorSet(ScmS32Vector *vec, int index, ScmObj val, int clamp);
SCM_EXTERN ScmObj Scm_S32VectorToList(ScmS32Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_S32VectorCopy(ScmS32Vector *vec,
                                     ScmSmallInt start, ScmSmallInt end);
SCM_EXTERN ScmObj Scm_S32VectorCopyX(ScmS32Vector *dst, ScmSmallInt dstart,
                                      ScmS32Vector *src, ScmSmallInt sstart,
                                      ScmSmallInt send);
SCM_EXTERN ScmObj Scm_ObjArrayToS32Vector(ScmObj *arr, int size, int clamp);
SCM_EXTERN ScmObj Scm_S32VectorToVector(ScmS32Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_VectorToS32Vector(ScmVector *vec, int start, int end, int clamp);

/* arithmetics */
SCM_EXTERN ScmObj Scm_S32VectorAdd(ScmS32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S32VectorAddX(ScmS32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S32VectorSub(ScmS32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S32VectorSubX(ScmS32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S32VectorMul(ScmS32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S32VectorMulX(ScmS32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S32VectorDiv(ScmS32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S32VectorDivX(ScmS32Vector *s0, ScmObj s1, int clamp);

SCM_EXTERN ScmObj Scm_S32VectorAnd(ScmS32Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S32VectorAndX(ScmS32Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S32VectorIor(ScmS32Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S32VectorIorX(ScmS32Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S32VectorXor(ScmS32Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S32VectorXorX(ScmS32Vector *s0, ScmObj s1);

SCM_EXTERN ScmObj Scm_S32VectorDotProd(ScmS32Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_VMS32VectorDotProd(ScmS32Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_S32VectorRangeCheck(ScmS32Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_S32VectorClamp(ScmS32Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_S32VectorClampX(ScmS32Vector *v0, ScmObj min, ScmObj max);

SCM_EXTERN ScmObj Scm_S32VectorSwapBytes(ScmS32Vector *v0);
SCM_EXTERN ScmObj Scm_S32VectorSwapBytesX(ScmS32Vector *v0);

/* U32Vector */

SCM_EXTERN ScmObj Scm_U32VectorFill(ScmU32Vector *vec, uint32_t fill, int, int);
SCM_EXTERN ScmObj Scm_U32VectorSet(ScmU32Vector *vec, int index, ScmObj val, int clamp);
SCM_EXTERN ScmObj Scm_U32VectorToList(ScmU32Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_U32VectorCopy(ScmU32Vector *vec,
                                     ScmSmallInt start, ScmSmallInt end);
SCM_EXTERN ScmObj Scm_U32VectorCopyX(ScmU32Vector *dst, ScmSmallInt dstart,
                                      ScmU32Vector *src, ScmSmallInt sstart,
                                      ScmSmallInt send);
SCM_EXTERN ScmObj Scm_ObjArrayToU32Vector(ScmObj *arr, int size, int clamp);
SCM_EXTERN ScmObj Scm_U32VectorToVector(ScmU32Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_VectorToU32Vector(ScmVector *vec, int start, int end, int clamp);

/* arithmetics */
SCM_EXTERN ScmObj Scm_U32VectorAdd(ScmU32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U32VectorAddX(ScmU32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U32VectorSub(ScmU32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U32VectorSubX(ScmU32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U32VectorMul(ScmU32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U32VectorMulX(ScmU32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U32VectorDiv(ScmU32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U32VectorDivX(ScmU32Vector *s0, ScmObj s1, int clamp);

SCM_EXTERN ScmObj Scm_U32VectorAnd(ScmU32Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U32VectorAndX(ScmU32Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U32VectorIor(ScmU32Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U32VectorIorX(ScmU32Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U32VectorXor(ScmU32Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U32VectorXorX(ScmU32Vector *s0, ScmObj s1);

SCM_EXTERN ScmObj Scm_U32VectorDotProd(ScmU32Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_VMU32VectorDotProd(ScmU32Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_U32VectorRangeCheck(ScmU32Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_U32VectorClamp(ScmU32Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_U32VectorClampX(ScmU32Vector *v0, ScmObj min, ScmObj max);

SCM_EXTERN ScmObj Scm_U32VectorSwapBytes(ScmU32Vector *v0);
SCM_EXTERN ScmObj Scm_U32VectorSwapBytesX(ScmU32Vector *v0);

/* S64Vector */

SCM_EXTERN ScmObj Scm_S64VectorFill(ScmS64Vector *vec, ScmInt64 fill, int, int);
SCM_EXTERN ScmObj Scm_S64VectorSet(ScmS64Vector *vec, int index, ScmObj val, int clamp);
SCM_EXTERN ScmObj Scm_S64VectorToList(ScmS64Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_S64VectorCopy(ScmS64Vector *vec,
                                     ScmSmallInt start, ScmSmallInt end);
SCM_EXTERN ScmObj Scm_S64VectorCopyX(ScmS64Vector *dst, ScmSmallInt dstart,
                                      ScmS64Vector *src, ScmSmallInt sstart,
                                      ScmSmallInt send);
SCM_EXTERN ScmObj Scm_ObjArrayToS64Vector(ScmObj *arr, int size, int clamp);
SCM_EXTERN ScmObj Scm_S64VectorToVector(ScmS64Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_VectorToS64Vector(ScmVector *vec, int start, int end, int clamp);

/* arithmetics */
SCM_EXTERN ScmObj Scm_S64VectorAdd(ScmS64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S64VectorAddX(ScmS64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S64VectorSub(ScmS64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S64VectorSubX(ScmS64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S64VectorMul(ScmS64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S64VectorMulX(ScmS64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S64VectorDiv(ScmS64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_S64VectorDivX(ScmS64Vector *s0, ScmObj s1, int clamp);

SCM_EXTERN ScmObj Scm_S64VectorAnd(ScmS64Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S64VectorAndX(ScmS64Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S64VectorIor(ScmS64Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S64VectorIorX(ScmS64Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S64VectorXor(ScmS64Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_S64VectorXorX(ScmS64Vector *s0, ScmObj s1);

SCM_EXTERN ScmObj Scm_S64VectorDotProd(ScmS64Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_VMS64VectorDotProd(ScmS64Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_S64VectorRangeCheck(ScmS64Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_S64VectorClamp(ScmS64Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_S64VectorClampX(ScmS64Vector *v0, ScmObj min, ScmObj max);

SCM_EXTERN ScmObj Scm_S64VectorSwapBytes(ScmS64Vector *v0);
SCM_EXTERN ScmObj Scm_S64VectorSwapBytesX(ScmS64Vector *v0);

/* U64Vector */

SCM_EXTERN ScmObj Scm_U64VectorFill(ScmU64Vector *vec, ScmUInt64 fill, int, int);
SCM_EXTERN ScmObj Scm_U64VectorSet(ScmU64Vector *vec, int index, ScmObj val, int clamp);
SCM_EXTERN ScmObj Scm_U64VectorToList(ScmU64Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_U64VectorCopy(ScmU64Vector *vec,
                                     ScmSmallInt start, ScmSmallInt end);
SCM_EXTERN ScmObj Scm_U64VectorCopyX(ScmU64Vector *dst, ScmSmallInt dstart,
                                      ScmU64Vector *src, ScmSmallInt sstart,
                                      ScmSmallInt send);
SCM_EXTERN ScmObj Scm_ObjArrayToU64Vector(ScmObj *arr, int size, int clamp);
SCM_EXTERN ScmObj Scm_U64VectorToVector(ScmU64Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_VectorToU64Vector(ScmVector *vec, int start, int end, int clamp);

/* arithmetics */
SCM_EXTERN ScmObj Scm_U64VectorAdd(ScmU64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U64VectorAddX(ScmU64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U64VectorSub(ScmU64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U64VectorSubX(ScmU64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U64VectorMul(ScmU64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U64VectorMulX(ScmU64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U64VectorDiv(ScmU64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_U64VectorDivX(ScmU64Vector *s0, ScmObj s1, int clamp);

SCM_EXTERN ScmObj Scm_U64VectorAnd(ScmU64Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U64VectorAndX(ScmU64Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U64VectorIor(ScmU64Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U64VectorIorX(ScmU64Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U64VectorXor(ScmU64Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_U64VectorXorX(ScmU64Vector *s0, ScmObj s1);

SCM_EXTERN ScmObj Scm_U64VectorDotProd(ScmU64Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_VMU64VectorDotProd(ScmU64Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_U64VectorRangeCheck(ScmU64Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_U64VectorClamp(ScmU64Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_U64VectorClampX(ScmU64Vector *v0, ScmObj min, ScmObj max);

SCM_EXTERN ScmObj Scm_U64VectorSwapBytes(ScmU64Vector *v0);
SCM_EXTERN ScmObj Scm_U64VectorSwapBytesX(ScmU64Vector *v0);

/* F16Vector */

SCM_EXTERN ScmObj Scm_F16VectorFill(ScmF16Vector *vec, ScmHalfFloat fill, int, int);
SCM_EXTERN ScmObj Scm_F16VectorSet(ScmF16Vector *vec, int index, ScmObj val, int clamp);
SCM_EXTERN ScmObj Scm_F16VectorToList(ScmF16Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_F16VectorCopy(ScmF16Vector *vec,
                                     ScmSmallInt start, ScmSmallInt end);
SCM_EXTERN ScmObj Scm_F16VectorCopyX(ScmF16Vector *dst, ScmSmallInt dstart,
                                      ScmF16Vector *src, ScmSmallInt sstart,
                                      ScmSmallInt send);
SCM_EXTERN ScmObj Scm_ObjArrayToF16Vector(ScmObj *arr, int size, int clamp);
SCM_EXTERN ScmObj Scm_F16VectorToVector(ScmF16Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_VectorToF16Vector(ScmVector *vec, int start, int end, int clamp);

/* arithmetics */
SCM_EXTERN ScmObj Scm_F16VectorAdd(ScmF16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F16VectorAddX(ScmF16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F16VectorSub(ScmF16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F16VectorSubX(ScmF16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F16VectorMul(ScmF16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F16VectorMulX(ScmF16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F16VectorDiv(ScmF16Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F16VectorDivX(ScmF16Vector *s0, ScmObj s1, int clamp);

SCM_EXTERN ScmObj Scm_F16VectorAnd(ScmF16Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_F16VectorAndX(ScmF16Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_F16VectorIor(ScmF16Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_F16VectorIorX(ScmF16Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_F16VectorXor(ScmF16Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_F16VectorXorX(ScmF16Vector *s0, ScmObj s1);

SCM_EXTERN ScmObj Scm_F16VectorDotProd(ScmF16Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_VMF16VectorDotProd(ScmF16Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_F16VectorRangeCheck(ScmF16Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_F16VectorClamp(ScmF16Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_F16VectorClampX(ScmF16Vector *v0, ScmObj min, ScmObj max);

SCM_EXTERN ScmObj Scm_F16VectorSwapBytes(ScmF16Vector *v0);
SCM_EXTERN ScmObj Scm_F16VectorSwapBytesX(ScmF16Vector *v0);

/* F32Vector */

SCM_EXTERN ScmObj Scm_F32VectorFill(ScmF32Vector *vec, float fill, int, int);
SCM_EXTERN ScmObj Scm_F32VectorSet(ScmF32Vector *vec, int index, ScmObj val, int clamp);
SCM_EXTERN ScmObj Scm_F32VectorToList(ScmF32Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_F32VectorCopy(ScmF32Vector *vec,
                                     ScmSmallInt start, ScmSmallInt end);
SCM_EXTERN ScmObj Scm_F32VectorCopyX(ScmF32Vector *dst, ScmSmallInt dstart,
                                      ScmF32Vector *src, ScmSmallInt sstart,
                                      ScmSmallInt send);
SCM_EXTERN ScmObj Scm_ObjArrayToF32Vector(ScmObj *arr, int size, int clamp);
SCM_EXTERN ScmObj Scm_F32VectorToVector(ScmF32Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_VectorToF32Vector(ScmVector *vec, int start, int end, int clamp);

/* arithmetics */
SCM_EXTERN ScmObj Scm_F32VectorAdd(ScmF32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F32VectorAddX(ScmF32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F32VectorSub(ScmF32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F32VectorSubX(ScmF32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F32VectorMul(ScmF32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F32VectorMulX(ScmF32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F32VectorDiv(ScmF32Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F32VectorDivX(ScmF32Vector *s0, ScmObj s1, int clamp);

SCM_EXTERN ScmObj Scm_F32VectorAnd(ScmF32Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_F32VectorAndX(ScmF32Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_F32VectorIor(ScmF32Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_F32VectorIorX(ScmF32Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_F32VectorXor(ScmF32Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_F32VectorXorX(ScmF32Vector *s0, ScmObj s1);

SCM_EXTERN ScmObj Scm_F32VectorDotProd(ScmF32Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_VMF32VectorDotProd(ScmF32Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_F32VectorRangeCheck(ScmF32Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_F32VectorClamp(ScmF32Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_F32VectorClampX(ScmF32Vector *v0, ScmObj min, ScmObj max);

SCM_EXTERN ScmObj Scm_F32VectorSwapBytes(ScmF32Vector *v0);
SCM_EXTERN ScmObj Scm_F32VectorSwapBytesX(ScmF32Vector *v0);

/* F64Vector */

SCM_EXTERN ScmObj Scm_F64VectorFill(ScmF64Vector *vec, double fill, int, int);
SCM_EXTERN ScmObj Scm_F64VectorSet(ScmF64Vector *vec, int index, ScmObj val, int clamp);
SCM_EXTERN ScmObj Scm_F64VectorToList(ScmF64Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_F64VectorCopy(ScmF64Vector *vec,
                                     ScmSmallInt start, ScmSmallInt end);
SCM_EXTERN ScmObj Scm_F64VectorCopyX(ScmF64Vector *dst, ScmSmallInt dstart,
                                      ScmF64Vector *src, ScmSmallInt sstart,
                                      ScmSmallInt send);
SCM_EXTERN ScmObj Scm_ObjArrayToF64Vector(ScmObj *arr, int size, int clamp);
SCM_EXTERN ScmObj Scm_F64VectorToVector(ScmF64Vector *vec, int start, int end);
SCM_EXTERN ScmObj Scm_VectorToF64Vector(ScmVector *vec, int start, int end, int clamp);

/* arithmetics */
SCM_EXTERN ScmObj Scm_F64VectorAdd(ScmF64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F64VectorAddX(ScmF64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F64VectorSub(ScmF64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F64VectorSubX(ScmF64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F64VectorMul(ScmF64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F64VectorMulX(ScmF64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F64VectorDiv(ScmF64Vector *s0, ScmObj s1, int clamp);
SCM_EXTERN ScmObj Scm_F64VectorDivX(ScmF64Vector *s0, ScmObj s1, int clamp);

SCM_EXTERN ScmObj Scm_F64VectorAnd(ScmF64Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_F64VectorAndX(ScmF64Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_F64VectorIor(ScmF64Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_F64VectorIorX(ScmF64Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_F64VectorXor(ScmF64Vector *s0, ScmObj s1);
SCM_EXTERN ScmObj Scm_F64VectorXorX(ScmF64Vector *s0, ScmObj s1);

SCM_EXTERN ScmObj Scm_F64VectorDotProd(ScmF64Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_VMF64VectorDotProd(ScmF64Vector *v0, ScmObj v1);
SCM_EXTERN ScmObj Scm_F64VectorRangeCheck(ScmF64Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_F64VectorClamp(ScmF64Vector *v0, ScmObj min, ScmObj max);
SCM_EXTERN ScmObj Scm_F64VectorClampX(ScmF64Vector *v0, ScmObj min, ScmObj max);

SCM_EXTERN ScmObj Scm_F64VectorSwapBytes(ScmF64Vector *v0);
SCM_EXTERN ScmObj Scm_F64VectorSwapBytesX(ScmF64Vector *v0);


#undef LIBGAUCHE_EXT_BODY

SCM_DECL_END

#endif /* GAUCHE_UVECT_H */

