Add a standard library with the "builtins" that doesn't really need to be actual builtins

1 files changed, 13 insertions, 4 deletions

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);
 }