1
/*===========================================================================
2
* Filename : functable-srfi1.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>
7
* Copyright (c) 2007 SigScheme Project <uim AT freedesktop.org>
11
* Redistribution and use in source and binary forms, with or without
12
* modification, are permitted provided that the following conditions
15
* 1. Redistributions of source code must retain the above copyright
16
* notice, this list of conditions and the following disclaimer.
17
* 2. Redistributions in binary form must reproduce the above copyright
18
* notice, this list of conditions and the following disclaimer in the
19
* documentation and/or other materials provided with the distribution.
20
* 3. Neither the name of authors nor the names of its contributors
21
* may be used to endorse or promote products derived from this software
22
* without specific prior written permission.
24
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
25
* IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
26
* THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
27
* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
28
* CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
29
* EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
30
* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
31
* OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
32
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
33
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
34
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
35
===========================================================================*/
39
#include "sigscheme.h"
42
static const struct scm_func_registration_info scm_functable_srfi1[] = {
44
{ "xcons", (ScmFuncType)scm_p_srfi1_xcons, SCM_PROCEDURE_FIXED_2 },
45
{ "cons*", (ScmFuncType)scm_p_srfi1_consstar, SCM_PROCEDURE_VARIADIC_0 },
46
{ "make-list", (ScmFuncType)scm_p_srfi1_make_list, SCM_PROCEDURE_VARIADIC_1 },
47
{ "list-tabulate", (ScmFuncType)scm_p_srfi1_list_tabulate, SCM_PROCEDURE_VARIADIC_1 },
48
{ "list-copy", (ScmFuncType)scm_p_srfi1_list_copy, SCM_PROCEDURE_FIXED_1 },
49
{ "circular-list", (ScmFuncType)scm_p_srfi1_circular_list, SCM_PROCEDURE_VARIADIC_0 },
50
{ "iota", (ScmFuncType)scm_p_srfi1_iota, SCM_PROCEDURE_VARIADIC_1 },
51
{ "proper-list?", (ScmFuncType)scm_p_srfi1_proper_listp, SCM_PROCEDURE_FIXED_1 },
52
{ "circular-list?", (ScmFuncType)scm_p_srfi1_circular_listp, SCM_PROCEDURE_FIXED_1 },
53
{ "dotted-list?", (ScmFuncType)scm_p_srfi1_dotted_listp, SCM_PROCEDURE_FIXED_1 },
54
{ "not-pair?", (ScmFuncType)scm_p_srfi1_not_pairp, SCM_PROCEDURE_FIXED_1 },
55
{ "null-list?", (ScmFuncType)scm_p_srfi1_null_listp, SCM_PROCEDURE_FIXED_1 },
56
{ "list=", (ScmFuncType)scm_p_srfi1_listequal, SCM_PROCEDURE_VARIADIC_1 },
57
{ "first", (ScmFuncType)scm_p_srfi1_first, SCM_PROCEDURE_FIXED_1 },
58
{ "second", (ScmFuncType)scm_p_srfi1_second, SCM_PROCEDURE_FIXED_1 },
59
{ "third", (ScmFuncType)scm_p_srfi1_third, SCM_PROCEDURE_FIXED_1 },
60
{ "fourth", (ScmFuncType)scm_p_srfi1_fourth, SCM_PROCEDURE_FIXED_1 },
61
{ "fifth", (ScmFuncType)scm_p_srfi1_fifth, SCM_PROCEDURE_FIXED_1 },
62
{ "sixth", (ScmFuncType)scm_p_srfi1_sixth, SCM_PROCEDURE_FIXED_1 },
63
{ "seventh", (ScmFuncType)scm_p_srfi1_seventh, SCM_PROCEDURE_FIXED_1 },
64
{ "eighth", (ScmFuncType)scm_p_srfi1_eighth, SCM_PROCEDURE_FIXED_1 },
65
{ "ninth", (ScmFuncType)scm_p_srfi1_ninth, SCM_PROCEDURE_FIXED_1 },
66
{ "tenth", (ScmFuncType)scm_p_srfi1_tenth, SCM_PROCEDURE_FIXED_1 },
67
{ "car+cdr", (ScmFuncType)scm_p_srfi1_carpluscdr, SCM_PROCEDURE_FIXED_1 },
68
{ "take", (ScmFuncType)scm_p_srfi1_take, SCM_PROCEDURE_FIXED_2 },
69
{ "drop", (ScmFuncType)scm_p_srfi1_drop, SCM_PROCEDURE_FIXED_2 },
70
{ "take-right", (ScmFuncType)scm_p_srfi1_take_right, SCM_PROCEDURE_FIXED_2 },
71
{ "drop-right", (ScmFuncType)scm_p_srfi1_drop_right, SCM_PROCEDURE_FIXED_2 },
72
{ "take!", (ScmFuncType)scm_p_srfi1_takex, SCM_PROCEDURE_FIXED_2 },
73
{ "drop-right!", (ScmFuncType)scm_p_srfi1_drop_rightx, SCM_PROCEDURE_FIXED_2 },
74
{ "split-at", (ScmFuncType)scm_p_srfi1_split_at, SCM_PROCEDURE_FIXED_2 },
75
{ "split-at!", (ScmFuncType)scm_p_srfi1_split_atx, SCM_PROCEDURE_FIXED_2 },
76
{ "last", (ScmFuncType)scm_p_srfi1_last, SCM_PROCEDURE_FIXED_1 },
77
{ "last-pair", (ScmFuncType)scm_p_srfi1_last_pair, SCM_PROCEDURE_FIXED_1 },
78
{ "length+", (ScmFuncType)scm_p_srfi1_lengthplus, SCM_PROCEDURE_FIXED_1 },
79
{ "concatenate", (ScmFuncType)scm_p_srfi1_concatenate, SCM_PROCEDURE_VARIADIC_0 },
81
{ NULL, NULL, SCM_FUNCTYPE_INVALID }