1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
-- UUAGC 0.9.56 (src-ag/DeclBlocks.ag)
module DeclBlocks where
{-# LINE 2 "src-ag/DeclBlocks.ag" #-}
import Code (Decl,Expr)
{-# LINE 9 "src-generated/DeclBlocks.hs" #-}
-- DeclBlocks --------------------------------------------------
{-
alternatives:
alternative DeclBlock:
child defs : {[Decl]}
child visit : {Decl}
child next : DeclBlocks
alternative DeclTerminator:
child defs : {[Decl]}
child result : {Expr}
-}
data DeclBlocks = DeclBlock (([Decl])) (Decl) (DeclBlocks)
| DeclTerminator (([Decl])) (Expr)
-- DeclBlocksRoot ----------------------------------------------
{-
alternatives:
alternative DeclBlocksRoot:
child blocks : DeclBlocks
-}
data DeclBlocksRoot = DeclBlocksRoot (DeclBlocks)
|
