equal
deleted
inserted
replaced
5 |
5 |
6 data PascalUnit = |
6 data PascalUnit = |
7 Program Identifier Implementation Phrase |
7 Program Identifier Implementation Phrase |
8 | Unit Identifier Interface Implementation (Maybe Initialize) (Maybe Finalize) |
8 | Unit Identifier Interface Implementation (Maybe Initialize) (Maybe Finalize) |
9 | System [TypeVarDeclaration] |
9 | System [TypeVarDeclaration] |
|
10 | Redo [TypeVarDeclaration] |
10 deriving Show |
11 deriving Show |
11 data Interface = Interface Uses TypesAndVars |
12 data Interface = Interface Uses TypesAndVars |
12 deriving Show |
13 deriving Show |
13 data Implementation = Implementation Uses TypesAndVars |
14 data Implementation = Implementation Uses TypesAndVars |
14 deriving Show |
15 deriving Show |
16 deriving Show |
17 deriving Show |
17 data TypesAndVars = TypesAndVars [TypeVarDeclaration] |
18 data TypesAndVars = TypesAndVars [TypeVarDeclaration] |
18 deriving Show |
19 deriving Show |
19 data TypeVarDeclaration = TypeDeclaration Identifier TypeDecl |
20 data TypeVarDeclaration = TypeDeclaration Identifier TypeDecl |
20 | VarDeclaration Bool Bool ([Identifier], TypeDecl) (Maybe InitExpression) |
21 | VarDeclaration Bool Bool ([Identifier], TypeDecl) (Maybe InitExpression) |
21 | FunctionDeclaration Identifier TypeDecl [TypeVarDeclaration] (Maybe (TypesAndVars, Phrase)) |
22 | FunctionDeclaration Identifier Bool TypeDecl [TypeVarDeclaration] (Maybe (TypesAndVars, Phrase)) |
22 | OperatorDeclaration String Identifier TypeDecl [TypeVarDeclaration] (Maybe (TypesAndVars, Phrase)) |
23 | OperatorDeclaration String Identifier Bool TypeDecl [TypeVarDeclaration] (Maybe (TypesAndVars, Phrase)) |
23 deriving Show |
24 deriving Show |
24 data TypeDecl = SimpleType Identifier |
25 data TypeDecl = SimpleType Identifier |
25 | RangeType Range |
26 | RangeType Range |
26 | Sequence [Identifier] |
27 | Sequence [Identifier] |
27 | ArrayDecl (Maybe Range) TypeDecl |
28 | ArrayDecl (Maybe Range) TypeDecl |
46 deriving Show |
47 deriving Show |
47 data Phrase = ProcCall Reference [Expression] |
48 data Phrase = ProcCall Reference [Expression] |
48 | IfThenElse Expression Phrase (Maybe Phrase) |
49 | IfThenElse Expression Phrase (Maybe Phrase) |
49 | WhileCycle Expression Phrase |
50 | WhileCycle Expression Phrase |
50 | RepeatCycle Expression [Phrase] |
51 | RepeatCycle Expression [Phrase] |
51 | ForCycle Identifier Expression Expression Phrase |
52 | ForCycle Identifier Expression Expression Phrase Bool -- The last Boolean indicates wether it's up or down counting |
52 | WithBlock Reference Phrase |
53 | WithBlock Reference Phrase |
53 | Phrases [Phrase] |
54 | Phrases [Phrase] |
54 | SwitchCase Expression [([InitExpression], Phrase)] (Maybe [Phrase]) |
55 | SwitchCase Expression [([InitExpression], Phrase)] (Maybe [Phrase]) |
55 | Assignment Reference Expression |
56 | Assignment Reference Expression |
56 | BuiltInFunctionCall [Expression] Reference |
57 | BuiltInFunctionCall [Expression] Reference |