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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
--- parse tree ---
[ Code
"test/typ/compiler/show-text-04.typ"
( line 1 , column 2 )
(Let
(BasicBind (Just (Identifier "test")))
(FuncExpr
[ NormalParam (Identifier "x") , NormalParam (Identifier "y") ]
(Block
(CodeBlock
[ If
[ ( Equals (Ident (Identifier "x")) (Ident (Identifier "y"))
, Block (Content [ Text "\9989" ])
)
, ( Literal (Boolean True)
, Block
(Content
[ Text "\10060"
, Text "("
, Code
"test/typ/compiler/show-text-04.typ"
( line 1 , column 47 )
(FuncCall
(Ident (Identifier "repr"))
[ NormalArg (Ident (Identifier "x")) ])
, Space
, Text "/"
, Text "="
, Space
, Code
"test/typ/compiler/show-text-04.typ"
( line 1 , column 59 )
(FuncCall
(Ident (Identifier "repr"))
[ NormalArg (Ident (Identifier "y")) ])
, Text ")"
])
)
]
]))))
, SoftBreak
, Comment
, Code
"test/typ/compiler/show-text-04.typ"
( line 3 , column 2 )
(Set
(Ident (Identifier "par"))
[ KeyValArg (Identifier "justify") (Literal (Boolean True)) ])
, SoftBreak
, Code
"test/typ/compiler/show-text-04.typ"
( line 4 , column 2 )
(Show
(Just
(FuncCall
(Ident (Identifier "regex"))
[ NormalArg (Literal (String "\\S")) ]))
(FuncExpr
[ NormalParam (Identifier "letter") ]
(FuncCall
(Ident (Identifier "box"))
[ KeyValArg (Identifier "stroke") (Literal (Numeric 1.0 Pt))
, KeyValArg (Identifier "inset") (Literal (Numeric 2.0 Pt))
, NormalArg
(FuncCall
(Ident (Identifier "upper"))
[ NormalArg (Ident (Identifier "letter")) ])
])))
, SoftBreak
, Code
"test/typ/compiler/show-text-04.typ"
( line 5 , column 2 )
(FuncCall
(Ident (Identifier "lorem")) [ NormalArg (Literal (Int 5)) ])
, ParBreak
]
--- evaluated ---
document(body: { text(body: [
]),
text(body: [
]),
text(body: [
]),
box(body: upper(text: [L]),
inset: 2.0pt,
stroke: 1.0pt),
box(body: upper(text: [o]),
inset: 2.0pt,
stroke: 1.0pt),
box(body: upper(text: [r]),
inset: 2.0pt,
stroke: 1.0pt),
box(body: upper(text: [e]),
inset: 2.0pt,
stroke: 1.0pt),
box(body: upper(text: [m]),
inset: 2.0pt,
stroke: 1.0pt),
text(body: [ ]),
box(body: upper(text: [i]),
inset: 2.0pt,
stroke: 1.0pt),
box(body: upper(text: [p]),
inset: 2.0pt,
stroke: 1.0pt),
box(body: upper(text: [s]),
inset: 2.0pt,
stroke: 1.0pt),
box(body: upper(text: [u]),
inset: 2.0pt,
stroke: 1.0pt),
box(body: upper(text: [m]),
inset: 2.0pt,
stroke: 1.0pt),
text(body: [ ]),
box(body: upper(text: [d]),
inset: 2.0pt,
stroke: 1.0pt),
box(body: upper(text: [o]),
inset: 2.0pt,
stroke: 1.0pt),
box(body: upper(text: [l]),
inset: 2.0pt,
stroke: 1.0pt),
box(body: upper(text: [o]),
inset: 2.0pt,
stroke: 1.0pt),
box(body: upper(text: [r]),
inset: 2.0pt,
stroke: 1.0pt),
text(body: [ ]),
box(body: upper(text: [s]),
inset: 2.0pt,
stroke: 1.0pt),
box(body: upper(text: [i]),
inset: 2.0pt,
stroke: 1.0pt),
box(body: upper(text: [t]),
inset: 2.0pt,
stroke: 1.0pt),
text(body: [ ]),
box(body: upper(text: [a]),
inset: 2.0pt,
stroke: 1.0pt),
box(body: upper(text: [m]),
inset: 2.0pt,
stroke: 1.0pt),
box(body: upper(text: [e]),
inset: 2.0pt,
stroke: 1.0pt),
box(body: upper(text: [t]),
inset: 2.0pt,
stroke: 1.0pt),
box(body: upper(text: [,]),
inset: 2.0pt,
stroke: 1.0pt),
parbreak() })
|
