-

[clean-tests.git] / new-external / test.icl

diff --git a/new-external/test.icl b/new-external/test.icl
deleted file mode 100644 (file)
index 03c1c35..0000000
--- a/new-external/test.icl
+++ /dev/null
@@ -1,24 +0,0 @@
-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}