Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
S
StdEnv-doc
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Cloogle
StdEnv-doc
Commits
89cf3191
Commit
89cf3191
authored
Jan 09, 2019
by
John van Groningen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
add fflush
parent
a1672064
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
2 deletions
+9
-2
StdFile.dcl
StdFile.dcl
+2
-0
StdFile.icl
StdFile.icl
+7
-2
No files found.
StdFile.dcl
View file @
89cf3191
...
...
@@ -157,3 +157,5 @@ sfposition :: !File -> Int
fshare
::
!*
File
->
File
/* Change a file so that from now it can only be used with sf... operations. */
fflush
::
!*
File
->
(!
Bool
,!*
File
)
StdFile.icl
View file @
89cf3191
...
...
@@ -485,9 +485,7 @@ instance FileEnv World where
appFiles
::
!.(*
Files
->
*
Files
)
!*
World
->
*
World
appFiles
appfun
world
#!
files1
=
create_files
// RWS ... #! files=appfun files
files
=
appfun
files1
// .. RWS
=
do_files
files
world
where
do_files
::
!*
Files
!*
World
->
*
World
...
...
@@ -498,3 +496,10 @@ instance FileEnv World where
}
create_files
:==
Files
;
fflush
::
!*
File
->
(!
Bool
,!*
File
)
fflush
f
=
code {
.d
0
2
f
jsr
flushF
.o
0
3
bf
}
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment