From d81447526cde6fa98dfa792a65f71acb78ef1398 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Fri, 2 Jul 2021 22:01:59 +0000 Subject: Start work on input/output streams --- fns.h | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'fns.h') diff --git a/fns.h b/fns.h index c897ddb..d8932dd 100644 --- a/fns.h +++ b/fns.h @@ -40,3 +40,15 @@ Term *representationerror(Rune *); Term *evaluationerror(Rune *); Term *resourceerror(Rune *); Term *syntaxerror(Rune *); + +/* streams.c */ +void initstreams(void); +int openstream(Rune *, Rune *, Term *, Term **); +void closestream(Term *); +Term *currentinputstream(void); +Term *currentoutputstream(void); +void setcurrentinputstream(Term *); +void setcurrentoutputstream(Term *); +int isopenstream(Term *); +int isinputstream(Term *); +int isoutputstream(Term *); \ No newline at end of file -- cgit v1.2.3