implementation module Shares.mTaskShare

import dynamic_string
import Utils.SDS
import Utils.Devices
import iTasks
import mTask
from Data.Func import $

derive class iTask MTaskShareType

derive gEditor MTaskShare
derive gText MTaskShare
derive JSONEncode MTaskShare
derive JSONDecode MTaskShare
derive gDefault MTaskShare
gEq{|MTaskShare|} m1 m2 = m1.identifier == m2.identifier

manageShares :: [MTaskShare] -> Task ()
manageShares shares =
	forever (enterChoice "Choose share to update" [ChooseFromGrid id] shares
	>&^ \st->whileUnchanged st $ \msh->case msh of
		Nothing = viewShares shares
		Just sh = forever (
				viewSharedInformation "View value" [] (getSDSShare sh) >>| treturn sh
//			>>* [OnAction (Action "Update") (withValue (Just o updateInformation "New value" []))]
//			>>= updateShare sh
			)
			
	) @! ()

//updateShare :: MTaskShare a -> Task MTaskShare | toByteCode, iTask a
//updateShare sh=:{withTask,identifier} a = getDeviceByName withTask
//	>>= sendMessages [MTUpd identifier $ toString $ toByteCode a]
//	>>| treturn sh


viewShares :: [MTaskShare] -> Task MTaskShare
viewShares sh = anyTask (map viewShare sh) <<@ ArrangeHorizontal
	>>| return (hd sh)

viewShare :: MTaskShare -> Task BCValue
viewShare m = viewSharedInformation "" [] (getSDSShare m)
	<<@ Title ("SDS: " +++ toString m.identifier)

getSDSShare :: MTaskShare -> Shared BCValue
getSDSShare s=:{realShare=(MTaskWithShare id)}
	= memoryShare id s.MTaskShare.value

makeShare :: String Int BCValue -> Task MTaskShare
makeShare withTask identifier value = treturn 
		{MTaskShare
		|withTask=withTask
		,identifier=identifier
		,value=value
		,realShare=MTaskWithShare $ "mTaskSDS-" +++ toString identifier
		} >>= \sh->set value (getSDSShare sh) >>| treturn sh