module test

import iTasks
import iTasks.Extensions.Process
import System.Time
//import System.Process

Start w = startEngine t w

t = withShared [] \stdin->withShared ([],[]) \stdout->
	pipe {tv_sec=0,tv_nsec=100000000}
		"/bin/ls" ["-a", "/home/mrl"] Nothing
		"/bin/grep" ["steam"] Nothing Nothing
		stdin stdout
	-&&- viewSharedInformation () [] stdout
	-&&- updateSharedInformation () [] stdin
	
//t = withShared [] \inq->
//	withShared ([], []) \outq->
//	externalProcess {tv_sec=0,tv_nsec=100000000} "/bin/bash" [] Nothing inq outq (Just termios)
//	-|| viewSharedInformation "Output" [] outq
//	-|| forever (enterInformation "Send" [] >>= \nl->upd (\l->l ++ [nl +++ "\n"]) inq)
//	>>* [OnAction (Action "Stop") (always (treturn ()))]
//termios = {defaultPtyOptions & childInNewSession=True, childControlsTty=True, useRawIO = False}