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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
--- parse tree ---
[ Comment
, SoftBreak
, Comment
, ParBreak
, Code
"typ/compiler/while-01.typ"
( line 4 , column 2 )
(FuncCall
(Ident (Identifier "test"))
[ NormalArg
(While (Literal (Boolean False)) (Block (CodeBlock [])))
, NormalArg (Literal None)
])
, ParBreak
, Code
"typ/compiler/while-01.typ"
( line 6 , column 2 )
(Let (BasicBind (Just (Identifier "i"))) (Literal (Int 0)))
, SoftBreak
, Code
"typ/compiler/while-01.typ"
( line 7 , column 2 )
(FuncCall
(Ident (Identifier "test"))
[ NormalArg
(FuncCall
(Ident (Identifier "type"))
[ NormalArg
(While
(LessThan (Ident (Identifier "i")) (Literal (Int 1)))
(Block
(Content
[ Code
"typ/compiler/while-01.typ"
( line 7 , column 26 )
(Assign
(Ident (Identifier "i"))
(Plus (Ident (Identifier "i")) (Literal (Int 1))))
])))
])
, NormalArg (Literal (String "content"))
])
, ParBreak
]
--- evaluated ---
document(body: { text(body: [
]),
parbreak(),
text(body: [✅]),
parbreak(),
text(body: [
]),
text(body: [✅]),
parbreak() })
|
