Shares/mTaskShare.dcl

   1 definition module Shares.mTaskShare
   2
   3 import iTasks
   4 import iTasks._Framework.Serialization
   5 import mTask
   6 import Devices.mTaskDevice
   7
   8 derive class iTask MTaskShare
   9
  10 :: MTaskShare =
  11                 {withTask :: [String]
  12                 ,withDevice :: [String]
  13                 ,identifier :: Int
  14                 ,value :: BCValue
  15                 }
  16 //Constructor
  17 makeShare :: String String Int BCValue -> MTaskShare
  18
  19 //General viewing task
  20 manageShares :: [MTaskShare] -> Task MTaskShare
  21
  22 //Clean out shares when a task has been removed
  23 cleanSharesTask :: Int MTaskDevice -> Task [MTaskShare]
  24 //Clean out shares when a device has been removed
  25 cleanSharesDevice :: String -> Task [MTaskShare]
  26
  27 updateShare :: Int BCValue -> Task [MTaskShare]
  28
  29 //updateShare :: Int BCValue -> Task ()