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 viewShares :: [MTaskShare] -> Task MTaskShare
  38 viewShares sh = anyTask (map viewShare sh) <<@ ArrangeHorizontal
  39         >>| return (hd sh)
  40
  41 viewShare :: MTaskShare -> Task BCValue
  42 viewShare m = viewSharedInformation "" [] (getSDSShare m)
  43         <<@ Title ("SDS: " +++ toString m.identifier)
  44
  45 getSDSShare :: MTaskShare -> Shared BCValue
  46 getSDSShare s=:{realShare=(MTaskWithShare id),value}
  47         = memoryShare id value//s.MTaskShare.value
  48
  49 makeShare :: String Int BCValue -> Task MTaskShare
  50 makeShare withTask identifier value=:(BCValue v) = treturn
  51                 {MTaskShare
  52                 |withTask=withTask
  53                 ,identifier=identifier
  54                 ,value=value
  55                 ,realShare=MTaskWithShare $ "mTaskSDS-" +++ toString identifier
  56                 } >>= \sh->set value (getSDSShare sh) >>| treturn sh