From 44ab8a339c78bcc3460d44b2f435116f21faa60a Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Mon, 5 Jul 2021 16:27:38 +0000 Subject: First step on modules. Still very very rough. --- fns.h | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'fns.h') diff --git a/fns.h b/fns.h index 236b104..6435499 100644 --- a/fns.h +++ b/fns.h @@ -14,14 +14,15 @@ Term *mkcompound(Rune *, int, Term *); Term *mknumber(int, vlong, double); Term *mkstring(Rune *); Term *mklist(Term *); +Clause *copyclause(Clause *, uvlong *); /* eval.c */ -int evalquery(Term *, Term *, Binding **); +int evalquery(Term *, Binding **); int unify(Term *, Term *, Binding **); void applybinding(Term *, Binding *); /* repl.c */ -void repl(Term *); +void repl(void); /* builtins.c */ Builtin findbuiltin(Term *); @@ -55,4 +56,9 @@ int isoutputstream(Term *); int istextstream(Term *); int isbinarystream(Term *); int readterm(Term *, Term *, Term **); -void writeterm(Term *, Term *, Term *); \ No newline at end of file +void writeterm(Term *, Term *, Term *); + +/* module.c */ +void initmodules(void); +Module *parsemodule(char *); +Module *getmodule(Rune *); \ No newline at end of file -- cgit v1.2.3