Shares/mTaskShare.icl

   1 implementation module Shares.mTaskShare
   2
   3 import dynamic_string
   4 import Utils.SDS
   5 import Utils.Devices
   6 import iTasks
   7 import mTask
   8 from Data.Func import $
   9
  10 derive class iTask MTaskShareType
  11
  12 derive gEditor MTaskShare
  13 derive gText MTaskShare
  14 derive JSONEncode MTaskShare
  15 derive JSONDecode MTaskShare
  16 derive gDefault MTaskShare
  17 gEq{|MTaskShare|} m1 m2 = m1.identifier == m2.identifier
  18
  19 manageShares :: [MTaskShare] -> Task ()
  20 manageShares shares =
  21         forever (enterChoice "Choose share to update" [ChooseFromGrid id] shares
  22         >&^ \st->whileUnchanged st $ \msh->case msh of
  23                 Nothing = viewShares shares
  24                 Just sh = forever (
  25                                 viewSharedInformation "View value" [] (getSDSShare sh) >>| treturn sh
  26 //                      >>* [OnAction (Action "Update") (withValue (Just o updateInformation "New value" []))]
  27 //                      >>= updateShare sh
  28                         )
  29
  30         ) @! ()
  31
  32 //updateShare :: MTaskShare a -> Task MTaskShare | toByteCode, iTask a
  33 //updateShare sh=:{withTask,identifier} a = getDeviceByName withTask
  34 //      >>= sendMessages [MTUpd identifier $ toString $ toByteCode a]
  35 //      >>| treturn sh
  36
  37
  38 viewShares :: [MTaskShare] -> Task MTaskShare
  39 viewShares sh = anyTask (map viewShare sh) <<@ ArrangeHorizontal
  40         >>| return (hd sh)
  41
  42 viewShare :: MTaskShare -> Task String
  43 viewShare m = viewSharedInformation "" [] (getSDSShare m)
  44         <<@ Title ("SDS: " +++ toString m.identifier)
  45
  46 getSDSShare :: MTaskShare -> Shared String
  47 getSDSShare s=:{realShare=(MTaskWithShare id)}
  48         = memoryShare id s.MTaskShare.value
  49
  50 makeShare :: String Int String -> Task MTaskShare
  51 makeShare withTask identifier value = treturn
  52                 {MTaskShare
  53                 |withTask=withTask
  54                 ,identifier=identifier
  55                 ,value=value
  56                 ,dynvalue=dynamic value
  57                 ,realShare=MTaskWithShare $ "mTaskSDS-" +++ toString identifier
  58                 } >>= \sh->set value (getSDSShare sh) >>| treturn sh