1 /* 2 * binary.h - Binary I/O routines 3 * 4 * Copyright (c) 2004-2020 Shiro Kawai <shiro@acm.org> 5 * 6 * Redistribution and use in source and binary forms, with or without 7 * modification, are permitted provided that the following conditions 8 * are met: 9 * 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 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 * 3. Neither the name of the authors nor the names of its contributors 18 * may be used to endorse or promote products derived from this 19 * software without specific prior written permission. 20 * 21 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 22 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 23 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 24 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 25 * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 26 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 27 * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 28 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 29 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 30 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 31 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 32 */ 33 34 #include <gauche.h> 35 #include <gauche/priv/builtin-syms.h> 36 37 extern ScmObj Scm_ReadBinaryU8(ScmPort *iport, ScmSymbol *e); 38 extern ScmObj Scm_ReadBinaryU16(ScmPort *iport, ScmSymbol *e); 39 extern ScmObj Scm_ReadBinaryU32(ScmPort *iport, ScmSymbol *e); 40 extern ScmObj Scm_ReadBinaryU64(ScmPort *iport, ScmSymbol *e); 41 extern ScmObj Scm_ReadBinaryS8(ScmPort *iport, ScmSymbol *e); 42 extern ScmObj Scm_ReadBinaryS16(ScmPort *iport, ScmSymbol *e); 43 extern ScmObj Scm_ReadBinaryS32(ScmPort *iport, ScmSymbol *e); 44 extern ScmObj Scm_ReadBinaryS64(ScmPort *iport, ScmSymbol *e); 45 extern ScmObj Scm_ReadBinaryF16(ScmPort *iport, ScmSymbol *e); 46 extern ScmObj Scm_ReadBinaryF32(ScmPort *iport, ScmSymbol *e); 47 extern ScmObj Scm_ReadBinaryF64(ScmPort *iport, ScmSymbol *e); 48 49 extern void Scm_WriteBinaryU8(ScmObj val, ScmPort *oport, ScmSymbol *e); 50 extern void Scm_WriteBinaryU16(ScmObj val, ScmPort *oport, ScmSymbol *e); 51 extern void Scm_WriteBinaryU32(ScmObj val, ScmPort *oport, ScmSymbol *e); 52 extern void Scm_WriteBinaryU64(ScmObj val, ScmPort *oport, ScmSymbol *e); 53 extern void Scm_WriteBinaryS8(ScmObj val, ScmPort *oport, ScmSymbol *e); 54 extern void Scm_WriteBinaryS16(ScmObj val, ScmPort *oport, ScmSymbol *e); 55 extern void Scm_WriteBinaryS32(ScmObj val, ScmPort *oport, ScmSymbol *e); 56 extern void Scm_WriteBinaryS64(ScmObj val, ScmPort *oport, ScmSymbol *e); 57 extern void Scm_WriteBinaryF16(ScmObj val, ScmPort *oport, ScmSymbol *e); 58 extern void Scm_WriteBinaryF32(ScmObj val, ScmPort *oport, ScmSymbol *e); 59 extern void Scm_WriteBinaryF64(ScmObj val, ScmPort *oport, ScmSymbol *e); 60 61 extern ScmObj Scm_GetBinaryU8(ScmUVector *uv, int off, ScmSymbol *e); 62 extern ScmObj Scm_GetBinaryU16(ScmUVector *uv, int off, ScmSymbol *e); 63 extern ScmObj Scm_GetBinaryU32(ScmUVector *uv, int off, ScmSymbol *e); 64 extern ScmObj Scm_GetBinaryU64(ScmUVector *uv, int off, ScmSymbol *e); 65 extern ScmObj Scm_GetBinaryS8(ScmUVector *uv, int off, ScmSymbol *e); 66 extern ScmObj Scm_GetBinaryS16(ScmUVector *uv, int off, ScmSymbol *e); 67 extern ScmObj Scm_GetBinaryS32(ScmUVector *uv, int off, ScmSymbol *e); 68 extern ScmObj Scm_GetBinaryS64(ScmUVector *uv, int off, ScmSymbol *e); 69 extern ScmObj Scm_GetBinaryF16(ScmUVector *uv, int off, ScmSymbol *e); 70 extern ScmObj Scm_GetBinaryF32(ScmUVector *uv, int off, ScmSymbol *e); 71 extern ScmObj Scm_GetBinaryF64(ScmUVector *uv, int off, ScmSymbol *e); 72 73 extern void Scm_PutBinaryU8(ScmUVector *uv, int off, ScmObj v, ScmSymbol *e); 74 extern void Scm_PutBinaryU16(ScmUVector *uv, int off, ScmObj v, ScmSymbol *e); 75 extern void Scm_PutBinaryU32(ScmUVector *uv, int off, ScmObj v, ScmSymbol *e); 76 extern void Scm_PutBinaryU64(ScmUVector *uv, int off, ScmObj v, ScmSymbol *e); 77 extern void Scm_PutBinaryS8(ScmUVector *uv, int off, ScmObj v, ScmSymbol *e); 78 extern void Scm_PutBinaryS16(ScmUVector *uv, int off, ScmObj v, ScmSymbol *e); 79 extern void Scm_PutBinaryS32(ScmUVector *uv, int off, ScmObj v, ScmSymbol *e); 80 extern void Scm_PutBinaryS64(ScmUVector *uv, int off, ScmObj v, ScmSymbol *e); 81 extern void Scm_PutBinaryF16(ScmUVector *uv, int off, ScmObj v, ScmSymbol *e); 82 extern void Scm_PutBinaryF32(ScmUVector *uv, int off, ScmObj v, ScmSymbol *e); 83 extern void Scm_PutBinaryF64(ScmUVector *uv, int off, ScmObj v, ScmSymbol *e); 84