add ifdefs to interface.h

[mTask.git] / miTask.icl

diff --git a/miTask.icl b/miTask.icl
index 2b9d4e0..5c2b47a 100644 (file)
--- a/miTask.icl
+++ b/miTask.icl
@@ -24,7 +24,9 @@ import iTasks._Framework.Serialization
 
 import TTY, iTasksTTY
 
-Start :: *World -> *World
+//derive class iTask ByteSize, Parity, BaudRate, TTYSettings, TCPSettings
+//derive class iTask MTaskDeviceSpec, MTaskResource, MTaskTask, MTaskDevice
+
 Start world = startEngine (mTaskManager
        >>* [OnAction (Action "Shutdown") (always $ shutDown)]) world
 
@@ -66,10 +68,6 @@ mTaskManager = startupDevices >>| anyTask
                                        MTPub i val = updateShare i val
                                        MTTaskAck i = deviceTaskAcked device i
                                        MTTaskDelAck i = deviceTaskDeleteAcked device i @! ()
+                                       MTDevSpec s = treturn ()//deviceAddSpec device s @! ()
                                        _ = treturn ()
                                        ) >>| proc ms
-
-               mapPar :: (a -> Task a) [a] -> Task ()
-               mapPar f l = foldr1 (\x y->f x ||- y) l <<@ ArrangeWithTabs @! ()
-               allAtOnce t = foldr1 (||-) t @! ()
-               //allAtOnce = (flip (@!) ()) o foldr1 (||-)