dhil/phd-dissertation
1
0
Fork 0
mirror of https://github.com/dhil/phd-dissertation synced 2026-03-12 18:48:25 +00:00
Code Issues Releases Wiki Activity

Update code

Browse Source
This commit is contained in:
Daniel Hillerström
2020-10-27 00:58:20 +00:00
parent 8700c0f439
commit e2af947cbd
3 changed files with 31 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
code/unix2.links
View File

@@ -545,15 +545,13 @@ fun init(fsys, main) {
### Stream redirection
###
sig >> : (Comp(a, { Create: (String) -> FileDescr
, Open: (String) {}-> Option (FileDescr)
, Write:(FileDescr, String) -> () |e}), String)
{ Create:(String) -> FileDescr
, Open:(String) -> Option (FileDescr)
, Write:(FileDescr, String) -> () |e}~> ()
, Write:(FileDescr, String) -> () |e}~> a
op f >> fname {
var fd = create(fname);
handle(f()) {
case Return(_) -> ()
case Return(x) -> x
case Write(_, cs, resume) ->
resume(write(fd, cs))
}