From 259685f2aa2869177cc23715a6e89b0d2138b469 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Sat, 22 Jan 2022 19:14:53 +0100 Subject: Clean up save.c. --- save.c | 27 +++++++++------------------ 1 file 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 #include -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 -- cgit v1.2.3