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 import Data.List
   9 from Data.Func import $
  10
  11 derive class iTask MTaskShareType, MTaskShare
  12
  13 manageShares :: [MTaskShare] -> Task ()
  14 manageShares shares = forever $
  15         /*viewSharesGrid shares -|| */viewShares shares @! ()
  16
  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" []))]
  22 //                      >>= updateShare sh
  23 //                      )
  24 //
  25 //      ) @! ()
  26
  27
  28 viewShares :: [MTaskShare] -> Task BCValue
  29 viewShares shares = anyTask (map viewShare shares)
  30
  31 viewAndDelete :: [MTaskShare] -> Task ()
  32 viewAndDelete shares
  33         = enterChoice "Choose share to update" [ChooseFromGrid id] shares @! ()
  34
  35 //updateShare :: MTaskShare a -> Task MTaskShare | toByteCode, iTask a
  36 //updateShare sh=:{withTask,identifier} a = getDeviceByName withTask
  37 //      >>= sendMessages [MTUpd identifier $ toString $ toByteCode a]
  38 //      >>| treturn sh
  39
  40 //viewSharesGrid :: [MTaskShare] -> Task [MTaskShare]
  41 //viewSharesGrid sh = allTasks [whileUnchanged (get $ getSDSShare m) (\s->treturn (m, s))\\m<-sh]
  42 //      @ map (\(s,v)->{MTaskShare|s&value=v})
  43 //      >>= enterChoice "Choose share" [ChooseFromGrid id]
  44 //      >>= \s->treturn [s]
  45 //{anyTask (map viewShare sh) <<@ ArrangeHorizontal
  46 //      >>| return (hd sh)
  47
  48 viewShare :: MTaskShare -> Task BCValue
  49 viewShare m = viewSharedInformation "" [] (getSDSShare m)
  50         <<@ Title ("SDS: " +++ toString m.identifier)
  51
  52 getSDSShare :: MTaskShare -> Shared BCValue
  53 getSDSShare s=:{realShare=(MTaskWithShare id),value} = memoryShare id value
  54
  55 makeShare :: String Int BCValue -> Task MTaskShare
  56 makeShare withTask identifier value = treturn
  57                 {MTaskShare
  58                 |withTask=withTask
  59                 ,identifier=identifier
  60                 ,value=value
  61                 ,realShare=MTaskWithShare $ "mTaskSDS-" +++ toString identifier
  62                 } >>= \sh->set value (getSDSShare sh) >>| treturn sh
  63
  64 updateShare :: Int String -> Task ()
  65 updateShare ident val = get sdsStore
  66         >>= \sh->(case find (\s->s.identifier==ident) sh of
  67                 Nothing = abort "Help, no share found with this ident"
  68                 Just mts = set (fromByteCode val) (getSDSShare mts))
  69         >>| traceValue "Updated" @! ()