implementation module Shares.mTaskShare

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

derive class iTask MTaskShareType, MTaskShare

manageShares :: [MTaskShare] -> Task ()
manageShares shares = withShared Nothing $ \cs->forever $
	(viewSharesGrid cs shares -|| updateShares shares <<@ ArrangeVertical) 
	@! ()
updateShares :: [MTaskShare] -> Task BCValue
updateShares shares = anyTask (map updateS shares) <<@ ArrangeWithTabs

updateS :: MTaskShare -> Task BCValue
updateS sh = flip (<<@) (Title $ toString sh.identifier) $ forever $
		viewSharedInformation "Current value" [] (getSDSShare sh)
	||- (
			updateSharedInformation "New value" [] (getSDSShare sh)
		>>= \nv->allTasks (map (sendMessages [MTUpd sh.identifier nv]) sh.withDevice)
		>>| treturn nv
		)
	<<@ ArrangeHorizontal

//	>&^ \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
//			)
//			
//	) @! ()


//viewShares :: [MTaskShare] -> Task BCValue
//viewShares shares = anyTask (map viewShare shares)
//
//viewAndDelete :: [MTaskShare] -> Task ()
//viewAndDelete shares 
//	= enterChoice "Choose share to update" [ChooseFromGrid id] shares @! ()

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

viewSharesGrid :: (Shared (Maybe MTaskShare)) [MTaskShare] -> Task [BCValue]
viewSharesGrid _ [] = viewInformation "No shares yet" [] []
viewSharesGrid cs sh = (allTasks [watch (getSDSShare m)\\m<-sh] <<@ NoUserInterface)
	>&^ \st->flip (<<@) NoUserInterface $ whileUnchanged st $ \mshs->enterChoice "" [ChooseFromGrid id]
		[{MTaskShare|ss&value=s}\\s<-fromJust mshs & ss<-sh]
//		>>* [OnValue (withValue $ \s->Just (set (Just s) cs))]
		@! fromJust mshs

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

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

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

updateShare :: Int BCValue -> Task ()
updateShare ident val = get sdsStore
	>>= \sh->(case find (\s->s.identifier==ident) sh of
		Nothing = abort "Help, no share found with this ident"
		Just mts = set val (getSDSShare mts))
	>>| traceValue "Updated" @! ()