suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added the code to mobilise arrays inside protocols

Browse Source
This commit is contained in:
Neil Brown 2009-03-20 11:26:54 +00:00
parent 3c4f76ed46
commit f5ce1c8f89
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
transformations/ImplicitMobility.hs
View File

@ -247,6 +247,25 @@ mobiliseArrays = pass "Make all arrays mobile" [] [] recurse
let A.Proc _ _ _ stub = A.ndSpecType nd in newSpecF stub})
return $ A.Spec m (A.Specification m' n (newSpecF body')) scope'
doStructured (A.Spec m (A.Specification m' n (A.Protocol m'' ts)) scope)
= do let ts' = [case t of
A.Array {} -> A.Mobile t
_ -> t
| t <- ts]
newSpec = A.Protocol m'' ts'
modifyName n (\nd -> nd {A.ndSpecType = newSpec})
scope' <- recurse scope
return $ A.Spec m (A.Specification m' n newSpec) scope'
doStructured (A.Spec m (A.Specification m' n (A.ProtocolCase m'' nts)) scope)
= do let nts' = [(n, [case t of
A.Array {} -> A.Mobile t
_ -> t
| t <- ts]) | (n, ts) <- nts]
newSpec = A.ProtocolCase m'' nts'
modifyName n (\nd -> nd {A.ndSpecType = newSpec})
scope' <- recurse scope
return $ A.Spec m (A.Specification m' n newSpec) scope'
-- Must also mobilise channels of arrays, and arrays of channels of arrays:
doStructured s@(A.Spec m (A.Specification m' n st) scope)