iTasksTTY.dcl 334 Bytes
Newer Older
1
2
definition module iTasksTTY

Mart Lubbers's avatar
Mart Lubbers committed
3
4
5
6
7
from TTY import :: TTYSettings
import iTasks

derive class iTask TTYSettings

8
getTTYDevices :: !*env -> *(![String], !*env)
Mart Lubbers's avatar
Mart Lubbers committed
9

10
11
enterTTYSettings :: Task TTYSettings

Mart Lubbers's avatar
Mart Lubbers committed
12
syncSerialChannel :: TTYSettings (b -> String) (String -> (Either String [a], String)) (Shared ([a],[b],Bool)) -> Task () | iTask a & iTask b