save.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#include <windows.h>
#include <SWI-Prolog.h>

INT WINAPI
WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
    PSTR lpCmdLine, INT nCmdShow)
{
	char *plav[2];
	int rval;
	predicate_t pred;
	term_t h0;

	plav[0] = "save";
	plav[1] = NULL;

	if (!PL_initialise(1, plav))
		PL_halt(1);

	pred = PL_predicate("main", 0, "user");
	h0 = PL_new_term_refs(0);
	rval = PL_call_predicate(NULL, PL_Q_NORMAL, pred, h0);
	PL_halt(rval ? 0 : 1);
}