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

Added code for the Mobile types to the ShowCode module

Browse Source
This commit is contained in:
Neil Brown 2007-10-21 14:18:51 +00:00
parent 441b700d8d
commit 86054ba754
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
common/ShowCode.hs
View File

@ -199,6 +199,7 @@ instance ShowOccam A.Type where
showOccamM A.Timer = return "TIMER" showOccamM A.Timer = return "TIMER"
showOccamM A.Time = return "TIME" showOccamM A.Time = return "TIME"
showOccamM (A.Mobile t) = return "MOBILE " +>> showOccamM t
showOccamM (A.Array ds t) showOccamM (A.Array ds t)
= (return $ concat [case d of = (return $ concat [case d of
A.Dimension n -> "[" ++ show n ++ "]" A.Dimension n -> "[" ++ show n ++ "]"
@ -232,6 +233,8 @@ instance ShowRain A.Type where
ao :: Bool -> String ao :: Bool -> String
ao b = if b then "any" else "one" ao b = if b then "any" else "one"
showRain A.Time = "time" showRain A.Time = "time"
-- Mobility is not explicit in Rain:
showRain (A.Mobile t) = showRain t
showRain x = "<invalid Rain type: " ++ show x ++ ">" showRain x = "<invalid Rain type: " ++ show x ++ ">"
instance ShowOccam A.DyadicOp where instance ShowOccam A.DyadicOp where