Initial support for gambit-scheme v4.7.0

ports/gambc_ppapi/repl.c

Index: ports/gambc_ppapi/repl.c
diff --git a/ports/gambc_ppapi/repl.c b/ports/gambc_ppapi/repl.c
new file mode 100644
index 0000000000000000000000000000000000000000..4aea39ac4d2f839bb9f90757a84aa8a12938c83f
--- /dev/null
+++ b/ports/gambc_ppapi/repl.c
@@ -0,0 +1,155 @@
+#ifdef ___LINKER_INFO
+; File: "repl.c", produced by Gambit-C v4.7.0
+(
+407000
+" repl"
+(" repl")
+(
+)
+(
+)
+(
+" repl"
+)
+(
+"repl"
+)
+(
+"##repl-debug-main"
+)
+ #f
+)
+#else
+#define ___VERSION 407000
+#define ___MODULE_NAME " repl"
+#define ___LINKER_ID ____20_repl
+#define ___MH_PROC ___H__20_repl
+#define ___SCRIPT_LINE 0
+#define ___GLOCOUNT 3
+#define ___SUPCOUNT 2
+#define ___LBLCOUNT 5
+#include "gambit.h"
+
+___NEED_GLO(___G__20_repl)
+___NEED_GLO(___G__23__23_repl_2d_debug_2d_main)
+___NEED_GLO(___G_repl)
+
+___BEGIN_GLO
+___DEF_GLO(0," repl")
+___DEF_GLO(1,"repl")
+___DEF_GLO(2,"##repl-debug-main")
+___END_GLO
+
+#define ___GLO__20_repl ___GLO(0,___G__20_repl)
+#define ___PRM__20_repl ___PRM(0,___G__20_repl)
+#define ___GLO_repl ___GLO(1,___G_repl)
+#define ___PRM_repl ___PRM(1,___G_repl)
+#define ___GLO__23__23_repl_2d_debug_2d_main ___GLO(2,___G__23__23_repl_2d_debug_2d_main)
+#define ___PRM__23__23_repl_2d_debug_2d_main ___PRM(2,___G__23__23_repl_2d_debug_2d_main)
+
+#define ___C_LBL_repl 3
+
+ void repl ___PVOID
+{
+#define ___NARGS 0
+___BEGIN_SFUN_VOID(___MLBL(___C_LBL_repl))
+___BEGIN_SFUN_BODY
+___SFUN_CALL_VOID
+___SFUN_SET_RESULT_VOID
+___END_SFUN_BODY
+___SFUN_ERROR_VOID
+___SFUN_SET_RESULT_VOID
+___END_SFUN_VOID
+#undef ___NARGS
+}
+
+
+#undef ___MD_ALL
+#define ___MD_ALL ___D_FP ___D_R0 ___D_R1 ___D_R4
+#undef ___MR_ALL
+#define ___MR_ALL ___R_FP ___R_R0 ___R_R1 ___R_R4
+#undef ___MW_ALL
+#define ___MW_ALL ___W_R1 ___W_R4
+___BEGIN_M_COD
+___BEGIN_M_HLBL
+___DEF_M_HLBL_INTRO
+___DEF_M_HLBL(___L0__20_repl)
+___DEF_M_HLBL_INTRO
+___DEF_M_HLBL(___L0_repl)
+___DEF_M_HLBL(___L1_repl)
+___END_M_HLBL
+
+___BEGIN_M_SW
+
+#undef ___PH_PROC
+#define ___PH_PROC ___H__20_repl
+#undef ___PH_LBL0
+#define ___PH_LBL0 1
+#undef ___PD_ALL
+#define ___PD_ALL ___D_R0 ___D_R1
+#undef ___PR_ALL
+#define ___PR_ALL ___R_R0 ___R_R1
+#undef ___PW_ALL
+#define ___PW_ALL ___W_R1
+___BEGIN_P_COD
+___BEGIN_P_HLBL
+___DEF_P_HLBL_INTRO
+___DEF_P_HLBL(___L0__20_repl)
+___END_P_HLBL
+___BEGIN_P_SW
+___DEF_SLBL(0,___L0__20_repl)
+   ___IF_NARGS_EQ(0,___NOTHING)
+   ___WRONG_NARGS(0,0,0,0)
+___DEF_GLBL(___L__20_repl)
+   ___SET_GLO(1,___G_repl,___PRC(3))
+   ___SET_R1(___VOID)
+   ___JUMPPRM(___NOTHING,___R0)
+___END_P_SW
+___END_P_COD
+
+#undef ___PH_PROC
+#define ___PH_PROC ___H_repl
+#undef ___PH_LBL0
+#define ___PH_LBL0 3
+#undef ___PD_ALL
+#define ___PD_ALL ___D_FP ___D_R4
+#undef ___PR_ALL
+#define ___PR_ALL ___R_FP ___R_R4
+#undef ___PW_ALL
+#define ___PW_ALL ___W_R4
+___BEGIN_P_COD
+___BEGIN_P_HLBL
+___DEF_P_HLBL_INTRO
+___DEF_P_HLBL(___L0_repl)
+___DEF_P_HLBL(___L1_repl)
+___END_P_HLBL
+___BEGIN_P_SW
+___DEF_SLBL(0,___L0_repl)
+   ___IF_NARGS_EQ(0,___NOTHING)
+   ___WRONG_NARGS(0,0,0,0)
+___DEF_GLBL(___L_repl)
+   ___POLL(1)
+___DEF_SLBL(1,___L1_repl)
+   ___JUMPGLOSAFE(___SET_NARGS(0),2,___G__23__23_repl_2d_debug_2d_main)
+___END_P_SW
+___END_P_COD
+
+___END_M_SW
+___END_M_COD
+
+___BEGIN_LBL
+ ___DEF_LBL_INTRO(___H__20_repl," repl",___REF_FAL,1,0)
+,___DEF_LBL_PROC(___H__20_repl,0,-1)
+,___DEF_LBL_INTRO(___H_repl,0,___REF_FAL,2,repl)
+,___DEF_LBL_PROC(___H_repl,0,-1)
+,___DEF_LBL_RET(___H_repl,___IFD(___RETI,0,0,0x3fL))
+___END_LBL
+
+___BEGIN_MOD1
+___DEF_PRM(0,___G__20_repl,1)
+___END_MOD1
+
+___BEGIN_MOD2
+___END_MOD2
+
+#endif