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 = forever $ viewInformation "" [] "" @! ()
//	viewSharesGrid 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
//			)
//			
//	) @! ()


//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

viewSharesGrid :: [MTaskShare] -> Task [BCValue]
viewSharesGrid sh = allTasks [watch (getSDSShare m)\\m<-sh]
	>&^ \st->whileUnchanged st $ \mshs->enterChoice "" [ChooseFromGrid id]
		[{MTaskShare|ss&value=s}\\s<-fromJust mshs & ss<-sh]
		@! fromJust mshs
//		/*enterChoice "" [ChooseFromGrid id]*/viewInformation "" []  o fromJust

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 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

updateShare :: Int String -> 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 (fromByteCode val) (getSDSShare mts))
	>>| traceValue "Updated" @! ()