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 manageShares :: [MTaskShare] -> Task ()
  12 manageShares shares =
  13         forever (enterChoice "Choose share to update" [ChooseFromGrid id] shares
  14         >&^ \st->whileUnchanged st $ \msh->case msh of
  15                 Nothing = viewShares shares
  16                 Just sh = forever (
  17                                 viewSharedInformation "View value" [] (getSDSShare sh) >>| treturn sh
  18 //                      >>* [OnAction (Action "Update") (withValue (Just o updateInformation "New value" []))]
  19 //                      >>= updateShare sh
  20                         )
  21
  22         ) @! ()
  23
  24 //updateShare :: MTaskShare a -> Task MTaskShare | toByteCode, iTask a
  25 //updateShare sh=:{withTask,identifier} a = getDeviceByName withTask
  26 //      >>= sendMessages [MTUpd identifier $ toString $ toByteCode a]
  27 //      >>| treturn sh
  28
  29
  30 viewShares :: [MTaskShare] -> Task MTaskShare
  31 viewShares sh = anyTask (map viewShare sh) <<@ ArrangeHorizontal
  32         >>| return (hd sh)
  33
  34 viewShare :: MTaskShare -> Task String
  35 viewShare m = viewSharedInformation "" [] (getSDSShare m)
  36         <<@ Title ("SDS: " +++ toString m.identifier)
  37
  38 getSDSShare :: MTaskShare -> Shared String
  39 getSDSShare s=:{realShare=(MTaskWithShare id)}
  40         = memoryShare id s.MTaskShare.value
  41
  42 makeShare :: String Int String -> Task MTaskShare
  43 makeShare withTask identifier value = treturn
  44                 {MTaskShare
  45                 |withTask=withTask
  46                 ,identifier=identifier
  47                 ,value=value
  48                 ,realShare=MTaskWithShare $ "mTaskSDS-" +++ toString identifier
  49                 } >>= \sh->set value (getSDSShare sh) >>| treturn sh