Pipe connector in WRIGHT
Connector Pipe =role Write = write ? Writer ? close ? ?role Reader = let ExitOnly = close ? ? in let DoRead = (read ? Reader ? read-eof ? ExitOnly) in DoRead ? ExitOnlyglue = let ReadOnly =
Reader.Read ? ExitOnly Reader.read-eof ? Reader.close ? ? Reader.close ? ?
Ensures (among other things) that there is a way to notify reader than pipe is empty when writer closes the pipe