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

Added some missing bits to ShowCode

Browse Source
This commit is contained in:
Neil Brown 2009-04-18 20:07:58 +00:00
parent 57ffc7bfa4
commit 307b0f906f
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
common/ShowCode.hs
View File

@ -454,6 +454,10 @@ instance ShowOccam A.RecordAttr where
= do when (A.packedRecord attr) $ tell ["PACKED "]
when (A.mobileRecord attr) $ tell ["MOBILE "]
instance ShowOccam A.RecMode where
showOccamM A.Recursive = tell ["RECURSIVE "]
showOccamM A.PlainRec = return ()
instance ShowOccam A.Specification where
-- TODO add specmode to the output
showOccamM (A.Specification _ n (A.Proc _ sm params (Just body)))
@ -473,6 +477,15 @@ instance ShowOccam A.Specification where
= showOccamLine $ (maybeVal am) >> showOccamM t >> space >> showName n >> tell [" IS "] >> showOccamM v >> colon
showOccamM (A.Specification _ n (A.DataType _ t))
= showOccamLine $ tell ["DATA TYPE "] >> showName n >> tell [" IS "] >> showOccamM t >> colon
showOccamM (A.Specification _ n (A.ChanBundleType _ rm nts))
= do showOccamLine $ showOccamM rm >> tell ["CHAN TYPE "] >> showName n
occamIndent
showOccamLine $ tell ["MOBILE RECORD"]
occamIndent
mapM_ (\(n,t) -> showOccamLine $ showOccamM t >> space >> showName n >> colon) nts
occamOutdent
occamOutdent
showOccamLine colon
showOccamM (A.Specification _ n (A.Forking _))
= showOccamLine $ tell ["FORKING --"] >> showName n
showOccamM (A.Specification _ n (A.RecordType _ attr fields))