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

Added support in recordFields for channel bundles (which are similar enough to records)

Browse Source
This commit is contained in:
Neil Brown 2009-03-23 18:59:41 +00:00
parent 19e0fb0573
commit 78f9fb6196
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
common/Types.hs
View File

@ -137,6 +137,21 @@ recordFields m (A.Record rec)
case st of case st of
A.RecordType _ _ fs -> return fs A.RecordType _ _ fs -> return fs
_ -> dieP m "not record type" _ -> dieP m "not record type"
recordFields m (A.ChanDataType A.DirInput _ n)
= do st <- specTypeOfName n
case st of
A.ChanBundleType _ _ fs -> return fs
_ -> dieP m "not record type"
-- Directions are flipped for the ! end:
recordFields m (A.ChanDataType A.DirOutput _ n)
= do st <- specTypeOfName n
case st of
A.ChanBundleType _ _ fs -> return [(n, flipDirOfEnd t) | (n, t) <- fs]
_ -> dieP m "not record type"
where
flipDirOfEnd (A.ChanEnd dir attr t) = A.ChanEnd (flipDir dir) attr t
flipDir A.DirInput = A.DirOutput
flipDir A.DirOutput = A.DirInput
recordFields m _ = dieP m "not record type" recordFields m _ = dieP m "not record type"
recordAttr :: (CSMR m, Die m) => Meta -> A.Type -> m A.RecordAttr recordAttr :: (CSMR m, Die m) => Meta -> A.Type -> m A.RecordAttr