[uim-commit] r1605 - branches/r5rs/sigscheme
yamaken at freedesktop.org
yamaken at freedesktop.org
Mon Sep 26 19:48:28 PDT 2005
Author: yamaken
Date: 2005-09-26 19:48:24 -0700 (Mon, 26 Sep 2005)
New Revision: 1605
Modified:
branches/r5rs/sigscheme/eval.c
branches/r5rs/sigscheme/sigscheme.c
branches/r5rs/sigscheme/sigscheme.h
Log:
* sigscheme/sigscheme.c
- (Scm_RegisterSyntaxFixed6, Scm_RegisterSyntaxFixed7,
Scm_RegisterSyntaxFixed8, Scm_RegisterSyntaxFixed9,
Scm_RegisterSyntaxFixed10, Scm_RegisterSyntaxFixed11,
Scm_RegisterSyntaxFixed12, Scm_RegisterSyntaxFixed13,
Scm_RegisterSyntaxFixed14, Scm_RegisterSyntaxFixed15,
Scm_RegisterSyntaxFixedTailRec6, Scm_RegisterSyntaxFixedTailRec7,
Scm_RegisterSyntaxFixedTailRec8, Scm_RegisterSyntaxFixedTailRec9,
Scm_RegisterSyntaxFixedTailRec10,
Scm_RegisterSyntaxFixedTailRec11,
Scm_RegisterSyntaxFixedTailRec12,
Scm_RegisterSyntaxFixedTailRec13,
Scm_RegisterSyntaxFixedTailRec14,
Scm_RegisterSyntaxFixedTailRec15, Scm_RegisterSyntaxVariadic6,
Scm_RegisterSyntaxVariadic7, Scm_RegisterSyntaxVariadic8,
Scm_RegisterSyntaxVariadic9, Scm_RegisterSyntaxVariadic10,
Scm_RegisterSyntaxVariadic11, Scm_RegisterSyntaxVariadic12,
Scm_RegisterSyntaxVariadic13, Scm_RegisterSyntaxVariadic14,
Scm_RegisterSyntaxVariadic15, Scm_RegisterSyntaxVariadicTailRec6,
Scm_RegisterSyntaxVariadicTailRec7,
Scm_RegisterSyntaxVariadicTailRec8,
Scm_RegisterSyntaxVariadicTailRec9,
Scm_RegisterSyntaxVariadicTailRec10,
Scm_RegisterSyntaxVariadicTailRec11,
Scm_RegisterSyntaxVariadicTailRec12,
Scm_RegisterSyntaxVariadicTailRec13,
Scm_RegisterSyntaxVariadicTailRec14,
Scm_RegisterSyntaxVariadicTailRec15, Scm_RegisterProcedureFixed6,
Scm_RegisterProcedureFixed7, Scm_RegisterProcedureFixed8,
Scm_RegisterProcedureFixed9, Scm_RegisterProcedureFixed10,
Scm_RegisterProcedureFixed11, Scm_RegisterProcedureFixed12,
Scm_RegisterProcedureFixed13, Scm_RegisterProcedureFixed14,
Scm_RegisterProcedureFixed15, Scm_RegisterProcedureFixedTailRec6,
Scm_RegisterProcedureFixedTailRec7,
Scm_RegisterProcedureFixedTailRec8,
Scm_RegisterProcedureFixedTailRec9,
Scm_RegisterProcedureFixedTailRec10,
Scm_RegisterProcedureFixedTailRec11,
Scm_RegisterProcedureFixedTailRec12,
Scm_RegisterProcedureFixedTailRec13,
Scm_RegisterProcedureFixedTailRec14,
Scm_RegisterProcedureFixedTailRec15,
Scm_RegisterProcedureVariadic6, Scm_RegisterProcedureVariadic7,
Scm_RegisterProcedureVariadic8, Scm_RegisterProcedureVariadic9,
Scm_RegisterProcedureVariadic10, Scm_RegisterProcedureVariadic11,
Scm_RegisterProcedureVariadic12, Scm_RegisterProcedureVariadic13,
Scm_RegisterProcedureVariadic14, Scm_RegisterProcedureVariadic15,
Scm_RegisterProcedureVariadicTailRec6,
Scm_RegisterProcedureVariadicTailRec7,
Scm_RegisterProcedureVariadicTailRec8,
Scm_RegisterProcedureVariadicTailRec9,
Scm_RegisterProcedureVariadicTailRec10,
Scm_RegisterProcedureVariadicTailRec11,
Scm_RegisterProcedureVariadicTailRec12,
Scm_RegisterProcedureVariadicTailRec13,
Scm_RegisterProcedureVariadicTailRec14,
Scm_RegisterProcedureVariadicTailRec15, Scm_RegisterSyntaxFixed6,
Scm_RegisterSyntaxFixed7, Scm_RegisterSyntaxFixed8,
Scm_RegisterSyntaxFixed9, Scm_RegisterSyntaxFixed10,
Scm_RegisterSyntaxFixed11, Scm_RegisterSyntaxFixed12,
Scm_RegisterSyntaxFixed13, Scm_RegisterSyntaxFixed14,
Scm_RegisterSyntaxFixed15, Scm_RegisterSyntaxFixedTailRec6,
Scm_RegisterSyntaxFixedTailRec7, Scm_RegisterSyntaxFixedTailRec8,
Scm_RegisterSyntaxFixedTailRec9, Scm_RegisterSyntaxFixedTailRec10,
Scm_RegisterSyntaxFixedTailRec11,
Scm_RegisterSyntaxFixedTailRec12,
Scm_RegisterSyntaxFixedTailRec13,
Scm_RegisterSyntaxFixedTailRec14,
Scm_RegisterSyntaxFixedTailRec15, Scm_RegisterSyntaxVariadic6,
Scm_RegisterSyntaxVariadic7, Scm_RegisterSyntaxVariadic8,
Scm_RegisterSyntaxVariadic9, Scm_RegisterSyntaxVariadic10,
Scm_RegisterSyntaxVariadic11, Scm_RegisterSyntaxVariadic12,
Scm_RegisterSyntaxVariadic13, Scm_RegisterSyntaxVariadic14,
Scm_RegisterSyntaxVariadic15, Scm_RegisterSyntaxVariadicTailRec6,
Scm_RegisterSyntaxVariadicTailRec7,
Scm_RegisterSyntaxVariadicTailRec8,
Scm_RegisterSyntaxVariadicTailRec9,
Scm_RegisterSyntaxVariadicTailRec10,
Scm_RegisterSyntaxVariadicTailRec11,
Scm_RegisterSyntaxVariadicTailRec12,
Scm_RegisterSyntaxVariadicTailRec13,
Scm_RegisterSyntaxVariadicTailRec14,
Scm_RegisterSyntaxVariadicTailRec15, Scm_RegisterProcedureFixed6,
Scm_RegisterProcedureFixed7, Scm_RegisterProcedureFixed8,
Scm_RegisterProcedureFixed9, Scm_RegisterProcedureFixed10,
Scm_RegisterProcedureFixed11, Scm_RegisterProcedureFixed12,
Scm_RegisterProcedureFixed13, Scm_RegisterProcedureFixed14,
Scm_RegisterProcedureFixed15, Scm_RegisterProcedureFixedTailRec6,
Scm_RegisterProcedureFixedTailRec7,
Scm_RegisterProcedureFixedTailRec8,
Scm_RegisterProcedureFixedTailRec9,
Scm_RegisterProcedureFixedTailRec10,
Scm_RegisterProcedureFixedTailRec11,
Scm_RegisterProcedureFixedTailRec12,
Scm_RegisterProcedureFixedTailRec13,
Scm_RegisterProcedureFixedTailRec14,
Scm_RegisterProcedureFixedTailRec15,
Scm_RegisterProcedureVariadic6, Scm_RegisterProcedureVariadic7,
Scm_RegisterProcedureVariadic8, Scm_RegisterProcedureVariadic9,
Scm_RegisterProcedureVariadic10, Scm_RegisterProcedureVariadic11,
Scm_RegisterProcedureVariadic12, Scm_RegisterProcedureVariadic13,
Scm_RegisterProcedureVariadic14, Scm_RegisterProcedureVariadic15,
Scm_RegisterProcedureVariadicTailRec6,
Scm_RegisterProcedureVariadicTailRec7,
Scm_RegisterProcedureVariadicTailRec8,
Scm_RegisterProcedureVariadicTailRec9,
Scm_RegisterProcedureVariadicTailRec10,
Scm_RegisterProcedureVariadicTailRec11,
Scm_RegisterProcedureVariadicTailRec12,
Scm_RegisterProcedureVariadicTailRec13,
Scm_RegisterProcedureVariadicTailRec14,
Scm_RegisterProcedureVariadicTailRec15): Removed since they will
rarely be used. Source readability is preferred although they does
not affect actual code size
* sigscheme/eval.c
- (call): Follow the changes
Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c 2005-09-27 02:31:44 UTC (rev 1604)
+++ branches/r5rs/sigscheme/eval.c 2005-09-27 02:48:24 UTC (rev 1605)
@@ -447,46 +447,6 @@
case 7:
return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6]);
#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 6
- case 8:
- return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7]);
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 7
- case 9:
- return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7], argbuf[8]);
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 8
- case 10:
- return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7], argbuf[8], argbuf[9]);
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 9
- case 11:
- return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7], argbuf[8], argbuf[9], argbuf[10]);
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 10
- case 12:
- return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7], argbuf[8], argbuf[9], argbuf[10], argbuf[11]);
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 11
- case 13:
- return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7], argbuf[8], argbuf[9], argbuf[10], argbuf[11], argbuf[12]);
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 12
- case 14:
- return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7], argbuf[8], argbuf[9], argbuf[10], argbuf[11], argbuf[12], argbuf[13]);
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 13
- case 15:
- return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7], argbuf[8], argbuf[9], argbuf[10], argbuf[11], argbuf[12], argbuf[13], argbuf[14]);
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 14
- case 16:
- return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7], argbuf[8], argbuf[9], argbuf[10], argbuf[11], argbuf[12], argbuf[13], argbuf[14], argbuf[15]);
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 15
- case 17:
- return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7], argbuf[8], argbuf[9], argbuf[10], argbuf[11], argbuf[12], argbuf[13], argbuf[14], argbuf[15], argbuf[16]);
-#endif
default:
SigScm_Error("Corrupted function: typecode=0x%x", type);
}
Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c 2005-09-27 02:31:44 UTC (rev 1604)
+++ branches/r5rs/sigscheme/sigscheme.c 2005-09-27 02:48:24 UTC (rev 1605)
@@ -548,76 +548,6 @@
}
#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 6
-void Scm_RegisterSyntaxFixed6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 6);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 7
-void Scm_RegisterSyntaxFixed7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 7);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 8
-void Scm_RegisterSyntaxFixed8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 8);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 9
-void Scm_RegisterSyntaxFixed9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 9);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 10
-void Scm_RegisterSyntaxFixed10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 10);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 11
-void Scm_RegisterSyntaxFixed11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 11);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 12
-void Scm_RegisterSyntaxFixed12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 12);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 13
-void Scm_RegisterSyntaxFixed13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 13);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 14
-void Scm_RegisterSyntaxFixed14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 14);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 15
-void Scm_RegisterSyntaxFixed15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 15);
-}
-#endif
-
void Scm_RegisterSyntaxFixedTailRec0(const char *name, ScmObj (*func)(ScmEvalState*))
{
Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 0);
@@ -658,76 +588,6 @@
}
#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 6
-void Scm_RegisterSyntaxFixedTailRec6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 6);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 7
-void Scm_RegisterSyntaxFixedTailRec7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 7);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 8
-void Scm_RegisterSyntaxFixedTailRec8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 8);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 9
-void Scm_RegisterSyntaxFixedTailRec9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 9);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 10
-void Scm_RegisterSyntaxFixedTailRec10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 10);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 11
-void Scm_RegisterSyntaxFixedTailRec11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 11);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 12
-void Scm_RegisterSyntaxFixedTailRec12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 12);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 13
-void Scm_RegisterSyntaxFixedTailRec13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 13);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 14
-void Scm_RegisterSyntaxFixedTailRec14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 14);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 15
-void Scm_RegisterSyntaxFixedTailRec15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 15);
-}
-#endif
-
void Scm_RegisterSyntaxVariadic0(const char *name, ScmObj (*func)(ScmObj, ScmObj))
{
Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 0);
@@ -768,76 +628,6 @@
}
#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 6
-void Scm_RegisterSyntaxVariadic6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 6);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 7
-void Scm_RegisterSyntaxVariadic7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 7);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 8
-void Scm_RegisterSyntaxVariadic8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 8);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 9
-void Scm_RegisterSyntaxVariadic9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 9);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 10
-void Scm_RegisterSyntaxVariadic10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 10);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 11
-void Scm_RegisterSyntaxVariadic11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 11);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 12
-void Scm_RegisterSyntaxVariadic12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 12);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 13
-void Scm_RegisterSyntaxVariadic13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 13);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 14
-void Scm_RegisterSyntaxVariadic14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 14);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 15
-void Scm_RegisterSyntaxVariadic15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 15);
-}
-#endif
-
void Scm_RegisterSyntaxVariadicTailRec0(const char *name, ScmObj (*func)(ScmObj, ScmEvalState*))
{
Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 0);
@@ -878,76 +668,6 @@
}
#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 6
-void Scm_RegisterSyntaxVariadicTailRec6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 6);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 7
-void Scm_RegisterSyntaxVariadicTailRec7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 7);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 8
-void Scm_RegisterSyntaxVariadicTailRec8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 8);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 9
-void Scm_RegisterSyntaxVariadicTailRec9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 9);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 10
-void Scm_RegisterSyntaxVariadicTailRec10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 10);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 11
-void Scm_RegisterSyntaxVariadicTailRec11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 11);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 12
-void Scm_RegisterSyntaxVariadicTailRec12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 12);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 13
-void Scm_RegisterSyntaxVariadicTailRec13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 13);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 14
-void Scm_RegisterSyntaxVariadicTailRec14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 14);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 15
-void Scm_RegisterSyntaxVariadicTailRec15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 15);
-}
-#endif
-
void Scm_RegisterProcedureFixed0(const char *name, ScmObj (*func)())
{
Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 0);
@@ -988,76 +708,6 @@
}
#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 6
-void Scm_RegisterProcedureFixed6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 6);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 7
-void Scm_RegisterProcedureFixed7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 7);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 8
-void Scm_RegisterProcedureFixed8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 8);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 9
-void Scm_RegisterProcedureFixed9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 9);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 10
-void Scm_RegisterProcedureFixed10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 10);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 11
-void Scm_RegisterProcedureFixed11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 11);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 12
-void Scm_RegisterProcedureFixed12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 12);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 13
-void Scm_RegisterProcedureFixed13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 13);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 14
-void Scm_RegisterProcedureFixed14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 14);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 15
-void Scm_RegisterProcedureFixed15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 15);
-}
-#endif
-
void Scm_RegisterProcedureFixedTailRec0(const char *name, ScmObj (*func)(ScmEvalState*))
{
Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 0);
@@ -1098,76 +748,6 @@
}
#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 6
-void Scm_RegisterProcedureFixedTailRec6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 6);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 7
-void Scm_RegisterProcedureFixedTailRec7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 7);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 8
-void Scm_RegisterProcedureFixedTailRec8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 8);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 9
-void Scm_RegisterProcedureFixedTailRec9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 9);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 10
-void Scm_RegisterProcedureFixedTailRec10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 10);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 11
-void Scm_RegisterProcedureFixedTailRec11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 11);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 12
-void Scm_RegisterProcedureFixedTailRec12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 12);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 13
-void Scm_RegisterProcedureFixedTailRec13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 13);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 14
-void Scm_RegisterProcedureFixedTailRec14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 14);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 15
-void Scm_RegisterProcedureFixedTailRec15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 15);
-}
-#endif
-
void Scm_RegisterProcedureVariadic0(const char *name, ScmObj (*func)(ScmObj))
{
Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 0);
@@ -1208,76 +788,6 @@
}
#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 6
-void Scm_RegisterProcedureVariadic6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 6);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 7
-void Scm_RegisterProcedureVariadic7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 7);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 8
-void Scm_RegisterProcedureVariadic8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 8);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 9
-void Scm_RegisterProcedureVariadic9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 9);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 10
-void Scm_RegisterProcedureVariadic10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 10);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 11
-void Scm_RegisterProcedureVariadic11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 11);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 12
-void Scm_RegisterProcedureVariadic12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 12);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 13
-void Scm_RegisterProcedureVariadic13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 13);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 14
-void Scm_RegisterProcedureVariadic14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 14);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 15
-void Scm_RegisterProcedureVariadic15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 15);
-}
-#endif
-
void Scm_RegisterProcedureVariadicTailRec0(const char *name, ScmObj (*func)(ScmObj, ScmEvalState*))
{
Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 0);
@@ -1317,73 +827,3 @@
Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 5);
}
#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 6
-void Scm_RegisterProcedureVariadicTailRec6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 6);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 7
-void Scm_RegisterProcedureVariadicTailRec7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 7);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 8
-void Scm_RegisterProcedureVariadicTailRec8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 8);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 9
-void Scm_RegisterProcedureVariadicTailRec9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 9);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 10
-void Scm_RegisterProcedureVariadicTailRec10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 10);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 11
-void Scm_RegisterProcedureVariadicTailRec11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 11);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 12
-void Scm_RegisterProcedureVariadicTailRec12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 12);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 13
-void Scm_RegisterProcedureVariadicTailRec13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 13);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 14
-void Scm_RegisterProcedureVariadicTailRec14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 14);
-}
-#endif
-
-#if SCM_FUNCTYPE_MAND_MAX >= 15
-void Scm_RegisterProcedureVariadicTailRec15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
-{
- Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 15);
-}
-#endif
Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h 2005-09-27 02:31:44 UTC (rev 1604)
+++ branches/r5rs/sigscheme/sigscheme.h 2005-09-27 02:48:24 UTC (rev 1605)
@@ -202,36 +202,6 @@
#if SCM_FUNCTYPE_MAND_MAX >= 5
void Scm_RegisterSyntaxFixed5(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 6
-void Scm_RegisterSyntaxFixed6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 7
-void Scm_RegisterSyntaxFixed7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 8
-void Scm_RegisterSyntaxFixed8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 9
-void Scm_RegisterSyntaxFixed9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 10
-void Scm_RegisterSyntaxFixed10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 11
-void Scm_RegisterSyntaxFixed11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 12
-void Scm_RegisterSyntaxFixed12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 13
-void Scm_RegisterSyntaxFixed13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 14
-void Scm_RegisterSyntaxFixed14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 15
-void Scm_RegisterSyntaxFixed15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
void Scm_RegisterSyntaxFixedTailRec0(const char *name, ScmObj (*func)(ScmEvalState*));
#if SCM_FUNCTYPE_MAND_MAX >= 1
void Scm_RegisterSyntaxFixedTailRec1(const char *name, ScmObj (*func)(ScmObj, ScmEvalState*));
@@ -248,36 +218,6 @@
#if SCM_FUNCTYPE_MAND_MAX >= 5
void Scm_RegisterSyntaxFixedTailRec5(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 6
-void Scm_RegisterSyntaxFixedTailRec6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 7
-void Scm_RegisterSyntaxFixedTailRec7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 8
-void Scm_RegisterSyntaxFixedTailRec8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 9
-void Scm_RegisterSyntaxFixedTailRec9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 10
-void Scm_RegisterSyntaxFixedTailRec10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 11
-void Scm_RegisterSyntaxFixedTailRec11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 12
-void Scm_RegisterSyntaxFixedTailRec12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 13
-void Scm_RegisterSyntaxFixedTailRec13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 14
-void Scm_RegisterSyntaxFixedTailRec14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 15
-void Scm_RegisterSyntaxFixedTailRec15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
void Scm_RegisterSyntaxVariadic0(const char *name, ScmObj (*func)(ScmObj, ScmObj));
#if SCM_FUNCTYPE_MAND_MAX >= 1
void Scm_RegisterSyntaxVariadic1(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj));
@@ -294,36 +234,6 @@
#if SCM_FUNCTYPE_MAND_MAX >= 5
void Scm_RegisterSyntaxVariadic5(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 6
-void Scm_RegisterSyntaxVariadic6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 7
-void Scm_RegisterSyntaxVariadic7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 8
-void Scm_RegisterSyntaxVariadic8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 9
-void Scm_RegisterSyntaxVariadic9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 10
-void Scm_RegisterSyntaxVariadic10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 11
-void Scm_RegisterSyntaxVariadic11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 12
-void Scm_RegisterSyntaxVariadic12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 13
-void Scm_RegisterSyntaxVariadic13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 14
-void Scm_RegisterSyntaxVariadic14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 15
-void Scm_RegisterSyntaxVariadic15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
void Scm_RegisterSyntaxVariadicTailRec0(const char *name, ScmObj (*func)(ScmObj, ScmEvalState*));
#if SCM_FUNCTYPE_MAND_MAX >= 1
void Scm_RegisterSyntaxVariadicTailRec1(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmEvalState*));
@@ -340,36 +250,6 @@
#if SCM_FUNCTYPE_MAND_MAX >= 5
void Scm_RegisterSyntaxVariadicTailRec5(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 6
-void Scm_RegisterSyntaxVariadicTailRec6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 7
-void Scm_RegisterSyntaxVariadicTailRec7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 8
-void Scm_RegisterSyntaxVariadicTailRec8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 9
-void Scm_RegisterSyntaxVariadicTailRec9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 10
-void Scm_RegisterSyntaxVariadicTailRec10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 11
-void Scm_RegisterSyntaxVariadicTailRec11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 12
-void Scm_RegisterSyntaxVariadicTailRec12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 13
-void Scm_RegisterSyntaxVariadicTailRec13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 14
-void Scm_RegisterSyntaxVariadicTailRec14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 15
-void Scm_RegisterSyntaxVariadicTailRec15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
void Scm_RegisterProcedureFixed0(const char *name, ScmObj (*func)());
#if SCM_FUNCTYPE_MAND_MAX >= 1
void Scm_RegisterProcedureFixed1(const char *name, ScmObj (*func)(ScmObj));
@@ -386,36 +266,6 @@
#if SCM_FUNCTYPE_MAND_MAX >= 5
void Scm_RegisterProcedureFixed5(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 6
-void Scm_RegisterProcedureFixed6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 7
-void Scm_RegisterProcedureFixed7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 8
-void Scm_RegisterProcedureFixed8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 9
-void Scm_RegisterProcedureFixed9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 10
-void Scm_RegisterProcedureFixed10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 11
-void Scm_RegisterProcedureFixed11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 12
-void Scm_RegisterProcedureFixed12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 13
-void Scm_RegisterProcedureFixed13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 14
-void Scm_RegisterProcedureFixed14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 15
-void Scm_RegisterProcedureFixed15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
void Scm_RegisterProcedureFixedTailRec0(const char *name, ScmObj (*func)(ScmEvalState*));
#if SCM_FUNCTYPE_MAND_MAX >= 1
void Scm_RegisterProcedureFixedTailRec1(const char *name, ScmObj (*func)(ScmObj, ScmEvalState*));
@@ -432,36 +282,6 @@
#if SCM_FUNCTYPE_MAND_MAX >= 5
void Scm_RegisterProcedureFixedTailRec5(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 6
-void Scm_RegisterProcedureFixedTailRec6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 7
-void Scm_RegisterProcedureFixedTailRec7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 8
-void Scm_RegisterProcedureFixedTailRec8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 9
-void Scm_RegisterProcedureFixedTailRec9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 10
-void Scm_RegisterProcedureFixedTailRec10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 11
-void Scm_RegisterProcedureFixedTailRec11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 12
-void Scm_RegisterProcedureFixedTailRec12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 13
-void Scm_RegisterProcedureFixedTailRec13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 14
-void Scm_RegisterProcedureFixedTailRec14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 15
-void Scm_RegisterProcedureFixedTailRec15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
void Scm_RegisterProcedureVariadic0(const char *name, ScmObj (*func)(ScmObj));
#if SCM_FUNCTYPE_MAND_MAX >= 1
void Scm_RegisterProcedureVariadic1(const char *name, ScmObj (*func)(ScmObj, ScmObj));
@@ -478,36 +298,6 @@
#if SCM_FUNCTYPE_MAND_MAX >= 5
void Scm_RegisterProcedureVariadic5(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 6
-void Scm_RegisterProcedureVariadic6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 7
-void Scm_RegisterProcedureVariadic7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 8
-void Scm_RegisterProcedureVariadic8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 9
-void Scm_RegisterProcedureVariadic9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 10
-void Scm_RegisterProcedureVariadic10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 11
-void Scm_RegisterProcedureVariadic11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 12
-void Scm_RegisterProcedureVariadic12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 13
-void Scm_RegisterProcedureVariadic13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 14
-void Scm_RegisterProcedureVariadic14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 15
-void Scm_RegisterProcedureVariadic15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
-#endif
void Scm_RegisterProcedureVariadicTailRec0(const char *name, ScmObj (*func)(ScmObj, ScmEvalState*));
#if SCM_FUNCTYPE_MAND_MAX >= 1
void Scm_RegisterProcedureVariadicTailRec1(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmEvalState*));
@@ -524,36 +314,6 @@
#if SCM_FUNCTYPE_MAND_MAX >= 5
void Scm_RegisterProcedureVariadicTailRec5(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 6
-void Scm_RegisterProcedureVariadicTailRec6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 7
-void Scm_RegisterProcedureVariadicTailRec7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 8
-void Scm_RegisterProcedureVariadicTailRec8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 9
-void Scm_RegisterProcedureVariadicTailRec9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 10
-void Scm_RegisterProcedureVariadicTailRec10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 11
-void Scm_RegisterProcedureVariadicTailRec11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 12
-void Scm_RegisterProcedureVariadicTailRec12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 13
-void Scm_RegisterProcedureVariadicTailRec13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 14
-void Scm_RegisterProcedureVariadicTailRec14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
-#if SCM_FUNCTYPE_MAND_MAX >= 15
-void Scm_RegisterProcedureVariadicTailRec15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
-#endif
/* datas.c */
void SigScm_InitStorage(void);
More information about the uim-commit
mailing list