[PPL-devel] [GIT] ppl/ppl(master): Added stubs for 7 and 8 argument predicates.

[Patricia Hill]

Module: ppl/ppl
Branch: master
Commit: c7864c532efdf6321d1426a078d3156d7aef9982
URL:    http://www.cs.unipr.it/git/gitweb.cgi?p=ppl/ppl.git;a=commit;h=c7864c532efdf6321d1426a078d3156d7aef9982

Author: Patricia Hill <p.m.hill at leeds.ac.uk>
Date:   Wed Mar 24 06:47:20 2010 +0000

Added stubs for 7 and 8 argument predicates.

---

 .../Prolog/YAP/ppl_interface_generator_yap_cc.m4   |   27 ++++++++++++++++++++
 1 files changed, 27 insertions(+), 0 deletions(-)

diff --git a/interfaces/Prolog/YAP/ppl_interface_generator_yap_cc.m4 b/interfaces/Prolog/YAP/ppl_interface_generator_yap_cc.m4
index f89cfbc..a616575 100644
--- a/interfaces/Prolog/YAP/ppl_interface_generator_yap_cc.m4
+++ b/interfaces/Prolog/YAP/ppl_interface_generator_yap_cc.m4
@@ -95,6 +95,33 @@ yap_stub_##name() { \
   return name(arg1, arg2, arg3, arg4, arg5, arg6); \
 }
 
+#define YAP_STUB_7(name) \
+extern "C" Prolog_foreign_return_type \
+yap_stub_##name() { \
+  Prolog_term_ref arg1 = YAP_ARG1; \
+  Prolog_term_ref arg2 = YAP_ARG2; \
+  Prolog_term_ref arg3 = YAP_ARG3; \
+  Prolog_term_ref arg4 = YAP_ARG4; \
+  Prolog_term_ref arg5 = YAP_ARG5; \
+  Prolog_term_ref arg6 = YAP_ARG6; \
+  Prolog_term_ref arg7 = YAP_ARG7; \
+  return name(arg1, arg2, arg3, arg4, arg5, arg6, arg7); \
+}
+
+#define YAP_STUB_8(name) \
+extern "C" Prolog_foreign_return_type \
+yap_stub_##name() { \
+  Prolog_term_ref arg1 = YAP_ARG1; \
+  Prolog_term_ref arg2 = YAP_ARG2; \
+  Prolog_term_ref arg3 = YAP_ARG3; \
+  Prolog_term_ref arg4 = YAP_ARG4; \
+  Prolog_term_ref arg5 = YAP_ARG5; \
+  Prolog_term_ref arg6 = YAP_ARG6; \
+  Prolog_term_ref arg6 = YAP_ARG7; \
+  Prolog_term_ref arg6 = YAP_ARG8; \
+  return name(arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8); \
+}
+
 dnl
 dnl Place here YAP_STUB macros.
 dnl