Removed the A.Main item from the AST entirely
This commit is contained in:
parent
d4a766c594
commit
acca3d03fd
|
@ -1488,7 +1488,6 @@ cgenProcess ops p = case p of
|
||||||
A.Wait m wm e -> call genWait ops wm e
|
A.Wait m wm e -> call genWait ops wm e
|
||||||
A.Skip m -> tell ["/* skip */\n"]
|
A.Skip m -> tell ["/* skip */\n"]
|
||||||
A.Stop m -> call genStop ops m "STOP process"
|
A.Stop m -> call genStop ops m "STOP process"
|
||||||
A.Main m -> tell ["/* main */\n"]
|
|
||||||
A.Seq _ s -> call genSeq ops s
|
A.Seq _ s -> call genSeq ops s
|
||||||
A.If m s -> call genIf ops m s
|
A.If m s -> call genIf ops m s
|
||||||
A.Case m e s -> call genCase ops m e s
|
A.Case m e s -> call genCase ops m e s
|
||||||
|
|
|
@ -478,13 +478,6 @@ data Process =
|
||||||
| Wait Meta WaitMode Expression
|
| Wait Meta WaitMode Expression
|
||||||
| Skip Meta
|
| Skip Meta
|
||||||
| Stop Meta
|
| Stop Meta
|
||||||
-- | The main process.
|
|
||||||
-- This is an artefact of how occam is structured. An occam program consists
|
|
||||||
-- of a series of scoped definitions; the last @PROC@ defined is run.
|
|
||||||
-- However, this means that a program as parsed must consist of a series of
|
|
||||||
-- 'Spec's with a magic value at the end to indicate where the program starts
|
|
||||||
-- -- and that's what this is for.
|
|
||||||
| Main Meta
|
|
||||||
| Seq Meta Structured
|
| Seq Meta Structured
|
||||||
| If Meta Structured
|
| If Meta Structured
|
||||||
| Case Meta Expression Structured
|
| Case Meta Expression Structured
|
||||||
|
|
|
@ -433,7 +433,7 @@ testInputCase = TestList
|
||||||
where
|
where
|
||||||
-- Various distinct simple processes:
|
-- Various distinct simple processes:
|
||||||
p0 = A.Skip emptyMeta
|
p0 = A.Skip emptyMeta
|
||||||
p1 = A.Main emptyMeta
|
p1 = A.Seq emptyMeta (A.Several emptyMeta [])
|
||||||
p2 = A.Stop emptyMeta
|
p2 = A.Stop emptyMeta
|
||||||
c = variable "c"
|
c = variable "c"
|
||||||
x = variable "x"
|
x = variable "x"
|
||||||
|
|
Loading…
Reference in New Issue
Block a user