summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--save.c27
1 files changed, 9 insertions, 18 deletions
diff --git a/save.c b/save.c
index faead35..1cc6abb 100644
--- a/save.c
+++ b/save.c
@@ -1,32 +1,23 @@
#include <windows.h>
#include <SWI-Prolog.h>
-INT WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
+INT WINAPI
+WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
PSTR lpCmdLine, INT nCmdShow)
{
char *plav[2];
-
- /* make the argument vector for Prolog */
+ int rval;
+ predicate_t pred;
+ term_t h0;
plav[0] = "save";
plav[1] = NULL;
- /* initialise Prolog */
-
if (!PL_initialise(1, plav))
PL_halt(1);
- /* Lookup calc/1 and make the arguments and call */
-
- {
- predicate_t pred = PL_predicate("main", 0, "user");
- term_t h0 = PL_new_term_refs(0);
- int rval;
-
- rval = PL_call_predicate(NULL, PL_Q_NORMAL, pred, h0);
-
- PL_halt(rval ? 0 : 1);
- }
-
- return 0;
+ 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);
} \ No newline at end of file