X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=methods.top.tex;h=b54b50f9eedc4f01090fb91a021b47f9e5848b63;hb=9662cccfffecb70d621318b5f3a35e46b6029f3c;hp=cb951a13198e73f989f0aceff7ed189a9e8b391a;hpb=7b0fe8509016c0841d35239dc87150e945cfd960;p=msc-thesis1617.git diff --git a/methods.top.tex b/methods.top.tex index cb951a1..b54b50f 100644 --- a/methods.top.tex +++ b/methods.top.tex @@ -124,19 +124,33 @@ Listing~\ref{lst:combinators}. or in the \gls{iTasks} system. The shared data can be a file on disk, it can be the time, a random integer or just some data stored in memory. The actual \gls{SDS} is just a record containing functions on how to read and write the -source. In these functions the \CI{*World} is available and therefore it can -interact with the outside world. The \CI{*IWorld} is also available and -therefore the functions can also access other shares, possibly combining them. +source. In these functions the \CI{*IWorld} which in turn contains the real +program \CI{*World}. Accessing the outside world is required for interacting +with it and thus the functions can access files on disk, raw memory, other +shares and combine shares. The basic operations for \glspl{SDS} are get, set and update. The signatures -for these functions are shown in Listing~\ref{lst:shares}. All of the -operations are atomic in the sense that during reading no other tasks are -executed. +for these functions are shown in Listing~\ref{lst:shares}. By default, all +shares are files containing a \gls{JSON} encoded version of the object and thus +are persistent between restarts of the program. Library functions for shares +residing in memory are available as well. The three main operations on shares +are atomic in the sense that during reading no other tasks are executed. + +The basic type for \glspl{SDS} has three \todo{parametric +lenses}\cite{domoszlai_parametric_2014}. \begin{lstlisting}[% label={lst:shares},caption={\Gls{SDS} functions}] +:: RWShared p r w = ... +:: ReadWriteShared r w :== RWShared () r w +:: ROShared p r :== RWShared p () r +:: ReadOnlyShared r :== ROShared () r + +:: Shared r :== ReadWriteShared r r + get :: (ReadWriteShared r w) -> Task r | iTask r set :: w (ReadWriteShared r w) -> Task w | iTask w upd :: (r -> w) (ReadWriteShared r w) -> Task w | iTask r & iTask w +sharedStore :: String a -> Shared a | JSONEncode{|*|}, JSONDecode{|*|} \end{lstlisting}