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

Fixed the parser on normal ALT guards, after the extended rendezvous change broke it

Browse Source
This commit is contained in:
Neil Brown 2009-04-19 17:01:11 +00:00
parent 838de8a366
commit a48be18109
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
frontends/ParseOccam.hs
View File

@ -1716,7 +1716,7 @@ channelInput inAlt
eol
indent
p <- process
mp <- if inAlt then return Nothing else (tryVX process outdent >>* Just) <|> (outdent >> return Nothing)
mp <- if inAlt then return (Just $ error "internal ALT error") else (tryVX process outdent >>* Just) <|> (outdent >> return Nothing)
return (c, A.InputSimple m is (Just p), mp)
extCaseInput m c
@ -1726,7 +1726,8 @@ channelInput inAlt
indent
p <- process
mp <- if inAlt then return Nothing else (tryVX process outdent >>* Just) <|> (outdent >> return Nothing)
return (c, A.InputCase m A.InputCaseExtended (A.Only m (tl p mp)), Nothing)
return (c, A.InputCase m A.InputCaseExtended (A.Only m (tl p mp)),
if inAlt then Just $ error "internal ALT error" else Nothing)
timerInput :: OccParser (A.Variable, A.InputMode)
timerInput
@ -2012,15 +2013,15 @@ guardedAlternative
guard :: OccParser (A.Process -> A.Alternative, Bool)
guard
= do m <- md
(c, im, _) <- input True
return (A.Alternative m (A.True m) c im, True)
(c, im, ext) <- input True
return (A.Alternative m (A.True m) c im, isJust ext)
<|> do m <- md
sSKIP
eol
return (A.AlternativeSkip m (A.True m), False)
<|> do m <- md
b <- tryVX expression sAmp
do { (c, im, _) <- input True; return (A.Alternative m b c im, True) }
do { (c, im, ext) <- input True; return (A.Alternative m b c im, isJust ext) }
<|> do { sSKIP; eol; return (A.AlternativeSkip m b, False) }
<?> "guard"
--}}}