Commit 89cf3191 authored by John van Groningen's avatar John van Groningen

add fflush

parent a1672064
...@@ -157,3 +157,5 @@ sfposition :: !File -> Int ...@@ -157,3 +157,5 @@ sfposition :: !File -> Int
fshare :: !*File -> File fshare :: !*File -> File
/* Change a file so that from now it can only be used with sf... operations. */ /* Change a file so that from now it can only be used with sf... operations. */
fflush :: !*File -> (!Bool,!*File)
...@@ -485,9 +485,7 @@ instance FileEnv World where ...@@ -485,9 +485,7 @@ instance FileEnv World where
appFiles :: !.(*Files -> *Files) !*World -> *World appFiles :: !.(*Files -> *Files) !*World -> *World
appFiles appfun world appFiles appfun world
#! files1=create_files #! files1=create_files
// RWS ... #! files=appfun files
files=appfun files1 files=appfun files1
// .. RWS
= do_files files world = do_files files world
where where
do_files :: !*Files !*World -> *World do_files :: !*Files !*World -> *World
...@@ -498,3 +496,10 @@ instance FileEnv World where ...@@ -498,3 +496,10 @@ instance FileEnv World where
} }
create_files :== Files; create_files :== Files;
fflush :: !*File -> (!Bool,!*File)
fflush f = code {
.d 0 2 f
jsr flushF
.o 0 3 bf
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment