Commit 73635535 authored by Bas Lijnse's avatar Bas Lijnse

moved specialized versions of interact to a separate module

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@2399 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 8bdcd430
......@@ -99,16 +99,6 @@ watch :: !(ReadWriteShared r w) -> Task r | iTask r
*/
interact :: !d !(ReadOnlyShared r) (r -> (l,v,InteractionMask)) (l r v InteractionMask Bool -> (l,v,InteractionMask)) -> Task l | descr d & iTask l & iTask r & iTask v
interactNullEnter :: !d !v (v->l) -> Task l | descr d & iTask v & iTask l
interactNullUpdate :: !d !(l -> v) (l v -> l) l -> Task l | descr d & iTask l & iTask v
interactNullView :: !d (l->v) l -> Task l | descr d & iTask l & iTask v
interactSharedChoice :: !d !(ReadOnlyShared r) (Maybe l) (r (Maybe l) -> t v l)
-> Task (Maybe l) | descr d & Choice t & iTask r & iTask l & iTask (t v l)
interactSharedChoiceNoView :: !d !(ReadOnlyShared r) (Maybe l) (r (Maybe l) -> t l)
-> Task (Maybe l) | descr d & ChoiceNoView t & iTask r & iTask l & iTask (t l)
interactSharedInformation :: !d !(ReadOnlyShared r) (r -> v) -> Task r | descr d & iTask r & iTask v
/**
* Evaluate a "World" function that does not yield any result once.
*
......
This diff is collapsed.
definition module OptimizedCoreTasks
/**
* This module provides optimized specialized versions of the core 'basic tasks'
* this keeps the core set 'clean'. Derived tasks can use these for better performance when
* if not all expressive power is needed.
*/
import iTaskClass, Shared
from Task import :: Task
interactNullEnter :: !d !v (v->l) -> Task l | descr d & iTask v & iTask l
interactNullUpdate :: !d !(l -> v) (l v -> l) l -> Task l | descr d & iTask l & iTask v
interactNullView :: !d (l->v) l -> Task l | descr d & iTask l & iTask v
interactSharedChoice :: !d !(ReadOnlyShared r) (Maybe l) (r (Maybe l) -> t v l)
-> Task (Maybe l) | descr d & Choice t & iTask r & iTask l & iTask (t v l)
interactSharedChoiceNoView :: !d !(ReadOnlyShared r) (Maybe l) (r (Maybe l) -> t l)
-> Task (Maybe l) | descr d & ChoiceNoView t & iTask r & iTask l & iTask (t l)
interactSharedInformation :: !d !(ReadOnlyShared r) (r -> v) -> Task r | descr d & iTask r & iTask v
This diff is collapsed.
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment