From baea4aa939861fd4efbc71b96f93ba890f01ac40 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Wed, 30 Jun 2021 17:48:49 +0000 Subject: Add a standard library with the "builtins" that doesn't really need to be actual builtins --- main.c | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) (limited to 'main.c') diff --git a/main.c b/main.c index 416e832..c30e5f7 100644 --- a/main.c +++ b/main.c @@ -25,21 +25,30 @@ main(int argc, char *argv[]) if(argc != 0) usage(); + int fd = open("./stdlib.pl", OREAD); + if(fd < 0){ + print("Can't open ./stdlib.pl\n"); + exits("open"); + } + Term *database = parse(fd, 0); + close(fd); + if(parsetestfile){ int fd = open(parsetestfile, OREAD); if(fd < 0) exits("open"); - Term *database = parse(fd, 0); - + Term *clauses = parse(fd, 0); + database = appendterm(database, clauses); + Term *goal; for(goal = initgoals; goal != nil; goal = goal->next){ Binding *bindings = nil; evalquery(database, goal, &bindings); } - - repl(database); } + repl(database); + exits(nil); } -- cgit v1.2.3