1
/*===========================================================================
2
* FileName : functable-srfi60.c
3
* About : Built-in function table
4
* This file is auto-generated by build_func_table.rb
6
* Copyright (C) 2005-2006 Kazuki Ohta <mover AT hct.zaq.ne.jp>
10
* Redistribution and use in source and binary forms, with or without
11
* modification, are permitted provided that the following conditions
14
* 1. Redistributions of source code must retain the above copyright
15
* notice, this list of conditions and the following disclaimer.
16
* 2. Redistributions in binary form must reproduce the above copyright
17
* notice, this list of conditions and the following disclaimer in the
18
* documentation and/or other materials provided with the distribution.
19
* 3. Neither the name of authors nor the names of its contributors
20
* may be used to endorse or promote products derived from this software
21
* without specific prior written permission.
23
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
24
* IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
25
* THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
26
* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
27
* CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
28
* EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
29
* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
30
* OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
31
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
32
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
33
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
34
===========================================================================*/
36
static struct scm_func_registration_info scm_srfi60_func_info_table[] = {
38
{ "logand", (ScmFuncType)scm_p_srfi60_logand, (ScmRegisterFunc)scm_register_reduction_operator },
39
{ "logior", (ScmFuncType)scm_p_srfi60_logior, (ScmRegisterFunc)scm_register_reduction_operator },
40
{ "logxor", (ScmFuncType)scm_p_srfi60_logxor, (ScmRegisterFunc)scm_register_reduction_operator },
41
{ "lognot", (ScmFuncType)scm_p_srfi60_lognot, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
42
{ "bitwise-if", (ScmFuncType)scm_p_srfi60_bitwise_if, (ScmRegisterFunc)scm_register_procedure_fixed_3 },
43
{ "logtest", (ScmFuncType)scm_p_srfi60_logtest, (ScmRegisterFunc)scm_register_procedure_fixed_2 },