1 implementation module Shares.mTaskShare
9 from Data.Func import $
11 derive class iTask MTaskShareType, MTaskShare
13 manageShares :: [MTaskShare] -> Task ()
14 manageShares shares = withShared Nothing $ \cs->forever $
15 viewSharesGrid cs shares /*||- (viewSharedInformation "" [] cs*/ @! ()//)//||- editCurrentShare cs
17 // >&^ \st->whileUnchanged st $ \msh->case msh of
18 // Nothing = viewShares shares
19 // Just sh = forever (
20 // viewSharedInformation "View value" [] (getSDSShare sh) >>| treturn sh
21 // >>* [OnAction (Action "Update") (withValue (Just o updateInformation "New value" []))]
28 //viewShares :: [MTaskShare] -> Task BCValue
29 //viewShares shares = anyTask (map viewShare shares)
31 //viewAndDelete :: [MTaskShare] -> Task ()
32 //viewAndDelete shares
33 // = enterChoice "Choose share to update" [ChooseFromGrid id] shares @! ()
35 //updateShare :: MTaskShare a -> Task MTaskShare | toByteCode, iTask a
36 //updateShare sh=:{withTask,identifier} a = getDeviceByName withTask
37 // >>= sendMessages [MTUpd identifier $ toString $ toByteCode a]
40 from StdFunc import flip
42 viewSharesGrid :: (Shared (Maybe MTaskShare)) [MTaskShare] -> Task [BCValue]
43 viewSharesGrid _ [] = viewInformation "No shares yet" [] []
44 viewSharesGrid cs sh = (allTasks [watch (getSDSShare m)\\m<-sh] <<@ NoUserInterface)
45 >&^ \st->flip (<<@) NoUserInterface $ whileUnchanged st $ \mshs->enterChoice "" [ChooseFromGrid id]
46 [{MTaskShare|ss&value=s}\\s<-fromJust mshs & ss<-sh]
47 // >>* [OnValue (withValue $ \s->Just (set (Just s) cs))]
50 viewShare :: MTaskShare -> Task BCValue
51 viewShare m = viewSharedInformation "" [] (getSDSShare m)
52 <<@ Title ("SDS: " +++ toString m.identifier)
54 getSDSShare :: MTaskShare -> Shared BCValue
55 getSDSShare s=:{realShare=(MTaskWithShare id),value} = memoryShare id value
57 makeShare :: String Int BCValue -> Task MTaskShare
58 makeShare withTask identifier value = treturn
61 ,identifier=identifier
63 ,realShare=MTaskWithShare $ "mTaskSDS-" +++ toString identifier
64 } >>= \sh->set value (getSDSShare sh) >>| treturn sh
66 updateShare :: Int BCValue -> Task ()
67 updateShare ident val = get sdsStore
68 >>= \sh->(case find (\s->s.identifier==ident) sh of
69 Nothing = abort "Help, no share found with this ident"
70 Just mts = set val (getSDSShare mts))
71 >>| traceValue "Updated" @! ()