From 2f6bd216d1411bd6ec96eaebf815dc3d5ab5a2f4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Fri, 15 Jul 2022 02:03:30 +0200
Subject: Reimplement Pl with variadic templates

This is a bit safer and about as complex.
---
 c/pl.cpp | 135 ++-------------------------------------------------------------
 1 file changed, 4 insertions(+), 131 deletions(-)

(limited to 'c/pl.cpp')

diff --git a/c/pl.cpp b/c/pl.cpp
index 7c86d0d..30b70a9 100644
--- a/c/pl.cpp
+++ b/c/pl.cpp
@@ -1,136 +1,9 @@
-#include <stdarg.h>
-#include <string.h>
 #include <SWI-Prolog.h>
-#include "defs.h"
 
-static int Plpv(term_t, const char *, va_list);
-static int Plgv(term_t, const char *, va_list);
-
-/* Call Prolog predicate once. */
-int Pl(const char *szMod, const char *szPred, const char *szFmt, ...)
-{
-	int iArity;
-	term_t t;
-	va_list vl, vl2;
-
-	iArity = strlen(szFmt);
-	t = PL_new_term_refs(iArity);
-
-	va_start(vl, szFmt);
-	va_copy(vl2, vl);
-
-	if (!Plpv(t, szFmt, vl)) goto f;
-	if (!PL_call_predicate(NULL, PL_Q_NORMAL,
-		PL_predicate(szPred, iArity, szMod), t))
-		goto f;
-	if (!Plgv(t, szFmt, vl2)) goto f;
-
-	va_end(vl);
-	va_end(vl2);
-	return 1;
-f:	va_end(vl);
-	va_end(vl2);
-	return 0;
-}
-
-/* Put known values in term. */
-int Plp(term_t t, const char *szFmt, ...)
-{
-	int r;
-	va_list vl;
-	va_start(vl, szFmt);
-	r = Plpv(t, szFmt, vl);
-	va_end(vl);
-	return r;
-}
-int Plpv(term_t t, const char *szFmt, va_list vl)
-{
-	int i;
-	for (i = 0; szFmt[i]; i++) {
-		switch (szFmt[i]) {
-		case 'I':
-		    {
-			int x;
-			x = va_arg(vl, int);
-			if (!PL_put_integer(t+i, x)) return 0;
-			break;
-		    }
-		case 'A':
-		    {
-			atom_t x;
-			x = va_arg(vl, atom_t);
-			if (!PL_put_atom(t+i, x)) return 0;
-			break;
-		    }
-		case 'S':
-		    {
-			atom_t a;
-			char *x;
-			x = va_arg(vl, char *);
-			a = PL_new_atom(x);
-			if (!PL_put_atom(t+i, a)) return 0;
-			break;
-		    }
-		case 'i':
-			va_arg(vl, int *);
-			break;
-		case 'a':
-			va_arg(vl, atom_t *);
-			break;
-		case 's':
-			va_arg(vl, char **);
-			break;
-		}
-	}
-	return 1;
-}
-
-/* Get unknown values from term. */
-int Plg(term_t t, const char *szFmt, ...)
-{
-	int r;
-	va_list vl;
-	va_start(vl, szFmt);
-	r = Plgv(t, szFmt, vl);
-	va_end(vl);
-	return r;
-}
-int Plgv(term_t t, const char *szFmt, va_list vl)
+int Pl(const char *szMod, const char *szPred)
 {
-	int i;
-	for (i = 0; szFmt[i]; i++) {
-		switch (szFmt[i]) {
-		case 'i':
-		    {
-			int *lp;
-			lp = va_arg(vl, int *);
-			if (!PL_get_integer(t+i, lp)) return 0;
-			break;
-		    }
-		case 'a':
-		    {
-			atom_t *lp;
-			lp = va_arg(vl, atom_t *);
-			if (!PL_get_atom(t+i, lp)) return 0;
-			break;
-		    }
-		case 's':
-		    {
-			char **lp;
-			lp = va_arg(vl, char **);
-			if (!PL_get_atom_chars(t+i, lp)) return 0;
-			break;
-		    }
-		case 'I':
-			va_arg(vl, int);
-			break;
-		case 'A':
-			va_arg(vl, atom_t);
-			break;
-		case 'S':
-			va_arg(vl, char *);
-			break;
-		}
-	}
+	term_t t = PL_new_term_refs(0);
+	if (!PL_call_predicate(NULL, PL_Q_NORMAL, PL_predicate(szPred, 0, szMod), t))
+		return 0;
 	return 1;
 }
-- 
cgit v1.2.3