Simplify templates.

1 files changed, 50 insertions, 49 deletions

diff --git a/c/pl.h b/c/pl.h
index 70839a9..1448361 100644
--- a/c/pl.h
+++ b/c/pl.h
@@ -5,7 +5,6 @@
 #include <SWI-Prolog.h>
 
 int PL_get_tchars(term_t t, TCHAR** pTsz, int iFlags);
-int Plx(const char* szMod, const char* szPred);
 
 struct Frame
 {
@@ -38,68 +37,70 @@ private:
 };
 
 /* Polymorphic aliases for PL_put_*, PL_get_*. */
-inline int PlPut(const term_t t, const int x) { return PL_put_integer(t, x); }
-inline int PlPut(const term_t t, const long x) { return PL_put_integer(t, x); }
-inline int PlPut(const term_t t, const long long x) { return PL_put_integer(t, x); }
-inline int PlPut(const term_t t, const atom_t x) { return PL_put_atom(t, x); }
-inline int PlPut(const term_t t, char* const x) { return PL_put_atom_chars(t, x); }
-inline int PlPut(const term_t t, const char* const x) { return PL_put_atom_chars(t, x); }
-inline int PlPut(const term_t t, wchar_t* const x) { return PL_unify_wchars(t, PL_ATOM, -1, x); }
-inline int PlPut(const term_t t, const wchar_t* const x) { return PL_unify_wchars(t, PL_ATOM, -1, x); }
-inline int PlPut(const term_t, int* const) { return -1; }
-inline int PlPut(const term_t, long* const) { return -1; }
-inline int PlPut(const term_t, long long* const) { return -1; }
-inline int PlPut(const term_t, atom_t* const) { return -1; }
-inline int PlPut(const term_t, char** const) { return -1; }
-inline int PlPut(const term_t, wchar_t** const) { return -1; }
+inline int PlPut(term_t t, int x) { return PL_put_integer(t, x); }
+inline int PlPut(term_t t, long x) { return PL_put_integer(t, x); }
+inline int PlPut(term_t t, long long x) { return PL_put_int64(t, x); }
+inline int PlPut(term_t t, atom_t x) { return PL_put_atom(t, x); }
+inline int PlPut(term_t t, char* x) { return PL_put_atom_chars(t, x); }
+inline int PlPut(term_t t, const char* x) { return PL_put_atom_chars(t, x); }
+inline int PlPut(term_t t, wchar_t* x) { return PL_unify_wchars(t, PL_ATOM, -1, x); }
+inline int PlPut(term_t t, const wchar_t* x) { return PL_unify_wchars(t, PL_ATOM, -1, x); }
+inline int PlPut(term_t, int*) { return -1; }
+inline int PlPut(term_t, long*) { return -1; }
+inline int PlPut(term_t, long long*) { return -1; }
+inline int PlPut(term_t, atom_t*) { return -1; }
+inline int PlPut(term_t, char**) { return -1; }
+inline int PlPut(term_t, wchar_t**) { return -1; }
 
-inline int PlGet(const term_t, const int) { return -1; }
-inline int PlGet(const term_t, const long) { return -1; }
-inline int PlGet(const term_t, const long long) { return -1; }
-inline int PlGet(const term_t, const atom_t) { return -1; }
-inline int PlGet(const term_t, char* const) { return -1; }
-inline int PlGet(const term_t, const char* const) { return -1; }
-inline int PlGet(const term_t t, int* const x) { return PL_get_integer(t, x); }
-inline int PlGet(const term_t t, long* const x) { return PL_get_long(t, x); }
-inline int PlGet(const term_t t, long long* const x) { return PL_get_int64(t, x); }
-inline int PlGet(const term_t t, atom_t* const x) { return PL_get_atom(t, x); }
-inline int PlGet(const term_t t, char** const x) { return PL_get_atom_chars(t, x); }
-inline int PlGet(const term_t t, wchar_t** const x) { size_t len; return PL_get_wchars(t, &len, x, CVT_ATOM); }
+inline int PlGet(term_t, int) { return -1; }
+inline int PlGet(term_t, long) { return -1; }
+inline int PlGet(term_t, long long) { return -1; }
+inline int PlGet(term_t, atom_t) { return -1; }
+inline int PlGet(term_t, char*) { return -1; }
+inline int PlGet(term_t, const char*) { return -1; }
+inline int PlGet(term_t, wchar_t*) { return -1; }
+inline int PlGet(term_t, const wchar_t*) { return -1; }
+inline int PlGet(term_t t, int* x) { return PL_get_integer(t, x); }
+inline int PlGet(term_t t, long* x) { return PL_get_long(t, x); }
+inline int PlGet(term_t t, long long* x) { return PL_get_int64(t, x); }
+inline int PlGet(term_t t, atom_t* x) { return PL_get_atom(t, x); }
+inline int PlGet(term_t t, char** x) { return PL_get_atom_chars(t, x); }
+inline int PlGet(term_t t, wchar_t** x) { size_t len; return PL_get_wchars(t, &len, x, CVT_ATOM); }
 
 /* Helper templates for Plx, Pl. */
-template <class T>
-int PlPutv(const term_t t, T arg) { return PlPut(t, arg); }
-template <class T, class... R>
-int PlPutv(const term_t t, T arg, R... rest) { return PlPut(t, arg)? PlPutv(t+1, rest...): 0; }
-template <class T>
-int PlGetv(const term_t t, T arg) { return PlGet(t, arg); }
-template <class T, class... R>
-int PlGetv(const term_t t, T arg, R... rest) { return PlGet(t, arg)? PlGetv(t+1, rest...): 0; }
-template <class T>
-int Countv(const int i, T) { return i+1; }
-template <class T, class... R>
-int Countv(const int i, T, R... rest) { return Countv(i+1, rest...); }
+template <typename = void>
+inline int PlPutN(term_t) { return -1; }
+template <typename T>
+inline int PlPutN(term_t t, T arg) { return PlPut(t, arg); }
+template <typename T, typename... U>
+inline int PlPutN(term_t t, T arg, U... xs) { return PlPut(t, arg) && PlPutN(t+1, xs...); }
+
+template <typename = void>
+inline int PlGetN(term_t) { return -1; }
+template <typename T>
+inline int PlGetN(term_t t, T arg) { return PlGet(t, arg); }
+template <typename T, typename... U>
+inline int PlGetN(term_t t, T arg, U... xs) { return PlGet(t, arg) && PlGetN(t+1, xs...); }
 
 /* Call Prolog predicate, propagating Prolog exceptions. */
-template <class... T>
-int Plx(const char* const szMod, const char* const szPred, T... args)
+template <typename... T>
+int Plx(const char* const szMod, const char* const szPred, T... xs)
 {
 	Frame f;
-	const int iArity = Countv(0, args...);
-	const term_t t = PL_new_term_refs(iArity);
-	if (!PlPutv(t, args...)) return 0;
-	Query q(NULL, PL_predicate(szPred, iArity, szMod), t);
+	const term_t t = PL_new_term_refs(sizeof...(T));
+	if (!PlPutN(t, xs...)) return 0;
+	Query q(NULL, PL_predicate(szPred, sizeof...(T), szMod), t);
 	if (!q.NextSolution()) return 0;
-	if (!PlGetv(t, args...)) return 0;
+	if (!PlGetN(t, xs...)) return 0;
 	return 1;
 }
 
 /* Call Prolog predicate, ignoring Prolog exceptions. */
-template <class... T>
-int Pl(const char* const szMod, const char* const szPred, T... args)
+template <typename... T>
+int Pl(const char* const szMod, const char* const szPred, T... xs)
 {
 	try {
-		return Plx(szMod, szPred, args...);
+		return Plx(szMod, szPred, xs...);
 	} catch (term_t& t) {
 		return 0;
 	}