diff options
Diffstat (limited to 'testdata')
123 files changed, 6139 insertions, 5648 deletions
diff --git a/testdata/Builtins.out b/testdata/Builtins.out index e27f95cd..c47b4fd5 100644 --- a/testdata/Builtins.out +++ b/testdata/Builtins.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | id = \(a :: _) -> _rhs a | 3 | id = _lhs id \(a :: _) -> _rhs a |
4 | 4 | ||
5 | data VecS (_ :: Type) :: Nat -> Type where | 5 | data VecS (_ :: Type) :: Nat -> Type where |
6 | V2 :: forall a . a -> a -> VecS a (fromInt 2) | 6 | V2 :: forall a . a -> a -> VecS a (fromInt 2) |
@@ -9,27 +9,31 @@ data VecS (_ :: Type) :: Nat -> Type where | |||
9 | 9 | ||
10 | mapVec :: forall (a :: _) (b :: _) (c :: _) . (a -> b) -> VecS a c -> VecS b c | 10 | mapVec :: forall (a :: _) (b :: _) (c :: _) . (a -> b) -> VecS a c -> VecS b c |
11 | mapVec | 11 | mapVec |
12 | = \(a :: _) (b :: _) -> case'VecS | 12 | = _lhs |
13 | (\(_ :: _) (_ :: _) -> _) | 13 | mapVec |
14 | (\(c :: _) (d :: _) -> _rhs (V2 (a c) (a d))) | 14 | \(a :: _) (b :: _) -> case'VecS |
15 | (\(e :: _) (f :: _) (g :: _) -> _rhs (V3 (a e) (a f) (a g))) | 15 | (\(_ :: _) (_ :: _) -> _) |
16 | (\(h :: _) (i :: _) (j :: _) (k :: _) -> _rhs (V4 (a h) (a i) (a j) (a k))) | 16 | (\(c :: _) (d :: _) -> _rhs (V2 (a c) (a d))) |
17 | b | 17 | (\(e :: _) (f :: _) (g :: _) -> _rhs (V3 (a e) (a f) (a g))) |
18 | (\(h :: _) (i :: _) (j :: _) (k :: _) -> _rhs (V4 (a h) (a i) (a j) (a k))) | ||
19 | b | ||
18 | 20 | ||
19 | 'Vec :: Nat -> Type -> Type | 21 | 'Vec :: Nat -> Type -> Type |
20 | 'Vec = \(a :: _) (b :: _) -> _rhs ('VecS b a) | 22 | 'Vec = _lhs 'Vec \(a :: _) (b :: _) -> _rhs ('VecS b a) |
21 | 23 | ||
22 | 'VecScalar :: Nat -> Type -> Type | 24 | 'VecScalar :: Nat -> Type -> Type |
23 | 'VecScalar | 25 | 'VecScalar |
24 | = \(a :: _) (b :: _) -> case'Nat | 26 | = _lhs |
25 | (\(_ :: _) -> _) | 27 | 'VecScalar |
26 | undefined | 28 | \(a :: _) (b :: _) -> case'Nat |
27 | (\(c :: _) -> case'Nat | ||
28 | (\(_ :: _) -> _) | 29 | (\(_ :: _) -> _) |
29 | (_rhs b) | 30 | undefined |
30 | (\(d :: _) -> _rhs ('Vec (Succ (Succ d)) b)) | 31 | (\(c :: _) -> case'Nat |
31 | c) | 32 | (\(_ :: _) -> _) |
32 | a | 33 | (_rhs b) |
34 | (\(d :: _) -> _rhs ('Vec (Succ (Succ d)) b)) | ||
35 | c) | ||
36 | a | ||
33 | 37 | ||
34 | data Mat :: Nat -> Nat -> Type -> Type where | 38 | data Mat :: Nat -> Nat -> Type -> Type where |
35 | M22F | 39 | M22F |
@@ -71,368 +75,347 @@ data Mat :: Nat -> Nat -> Type -> Type where | |||
71 | 75 | ||
72 | 'MatVecScalarElem :: Type -> Type | 76 | 'MatVecScalarElem :: Type -> Type |
73 | 'MatVecScalarElem | 77 | 'MatVecScalarElem |
74 | = \(a :: _) -> match'Float | 78 | = _lhs |
75 | (\(_ :: _) -> _) | 79 | 'MatVecScalarElem |
76 | (_rhs 'Float) | 80 | \(a :: _) -> match'Float |
77 | a | ||
78 | (match'Bool | ||
79 | (\(_ :: _) -> _) | 81 | (\(_ :: _) -> _) |
80 | (_rhs 'Bool) | 82 | (_rhs 'Float) |
81 | a | 83 | a |
82 | (match'Int | 84 | (match'Bool |
83 | (\(_ :: _) -> _) | 85 | (\(_ :: _) -> _) |
84 | (_rhs 'Int) | 86 | (_rhs 'Bool) |
85 | a | 87 | a |
86 | (match'VecS | 88 | (match'Int |
87 | (\(_ :: _) -> _) | 89 | (\(_ :: _) -> _) |
88 | (\(b :: _) (_ :: _) -> _rhs b) | 90 | (_rhs 'Int) |
89 | a | 91 | a |
90 | (match'Mat | 92 | (match'VecS |
91 | (\(_ :: _) -> _) | 93 | (\(_ :: _) -> _) |
92 | (\(_ :: _) (_ :: _) (c :: _) -> _rhs c) | 94 | (\(b :: _) (_ :: _) -> _rhs b) |
93 | a | 95 | a |
94 | undefined)))) | 96 | (match'Mat |
97 | (\(_ :: _) -> _) | ||
98 | (\(_ :: _) (_ :: _) (c :: _) -> _rhs c) | ||
99 | a | ||
100 | undefined)))) | ||
95 | 101 | ||
96 | 'Signed :: Type -> Constraint | 102 | 'Signed :: Type -> Constraint |
97 | 'Signed | 103 | 'Signed |
98 | = \(a :: _) -> match'Int | 104 | = _lhs |
99 | (\(_ :: _) -> _) | 105 | 'Signed |
100 | (_rhs 'CUnit) | 106 | \(a :: _) -> match'Int |
101 | a | ||
102 | (match'Float | ||
103 | (\(_ :: _) -> _) | 107 | (\(_ :: _) -> _) |
104 | (_rhs 'CUnit) | 108 | (_rhs 'CUnit) |
105 | a | 109 | a |
106 | (_rhs ('CEmpty "no instance of 'Signed on ???"))) | 110 | (match'Float |
111 | (\(_ :: _) -> _) | ||
112 | (_rhs 'CUnit) | ||
113 | a | ||
114 | (_rhs ('CEmpty "no instance of 'Signed on ???"))) | ||
107 | 115 | ||
108 | 'Component :: Type -> Constraint | 116 | 'Component :: Type -> Constraint |
109 | 'Component | 117 | 'Component |
110 | = \(a :: _) -> match'Int | 118 | = _lhs |
111 | (\(_ :: _) -> _) | 119 | 'Component |
112 | (_rhs 'CUnit) | 120 | \(a :: _) -> match'Int |
113 | a | ||
114 | (match'Word | ||
115 | (\(_ :: _) -> _) | 121 | (\(_ :: _) -> _) |
116 | (_rhs 'CUnit) | 122 | (_rhs 'CUnit) |
117 | a | 123 | a |
118 | (match'Float | 124 | (match'Word |
119 | (\(_ :: _) -> _) | 125 | (\(_ :: _) -> _) |
120 | (_rhs 'CUnit) | 126 | (_rhs 'CUnit) |
121 | a | 127 | a |
122 | (match'VecS | 128 | (match'Float |
123 | (\(_ :: _) -> _) | 129 | (\(_ :: _) -> _) |
124 | (\(b :: _) (c :: _) -> match'Float | 130 | (_rhs 'CUnit) |
131 | a | ||
132 | (match'VecS | ||
125 | (\(_ :: _) -> _) | 133 | (\(_ :: _) -> _) |
126 | (case'Nat | 134 | (\(b :: _) (c :: _) -> match'Float |
127 | (\(_ :: _) -> _) | 135 | (\(_ :: _) -> _) |
128 | (_rhs ('CEmpty "no instance of 'Component on ???")) | 136 | (case'Nat |
129 | (\(d :: _) -> case'Nat | ||
130 | (\(_ :: _) -> _) | 137 | (\(_ :: _) -> _) |
131 | (_rhs ('CEmpty "no instance of 'Component on ???")) | 138 | (_rhs ('CEmpty "no instance of 'Component on ???")) |
132 | (\(e :: _) -> case'Nat | 139 | (\(d :: _) -> case'Nat |
133 | (\(_ :: _) -> _) | 140 | (\(_ :: _) -> _) |
134 | (_rhs 'CUnit) | 141 | (_rhs ('CEmpty "no instance of 'Component on ???")) |
135 | (\(f :: _) -> case'Nat | 142 | (\(e :: _) -> case'Nat |
136 | (\(_ :: _) -> _) | 143 | (\(_ :: _) -> _) |
137 | (_rhs 'CUnit) | 144 | (_rhs 'CUnit) |
138 | (\(g :: _) -> case'Nat | 145 | (\(f :: _) -> case'Nat |
139 | (\(_ :: _) -> _) | 146 | (\(_ :: _) -> _) |
140 | (_rhs 'CUnit) | 147 | (_rhs 'CUnit) |
141 | (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Component on ???")) | 148 | (\(g :: _) -> case'Nat |
142 | g) | 149 | (\(_ :: _) -> _) |
143 | f) | 150 | (_rhs 'CUnit) |
144 | e) | 151 | (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Component on ???")) |
145 | d) | 152 | g) |
146 | c) | 153 | f) |
147 | b | 154 | e) |
148 | (match'Bool | 155 | d) |
149 | (\(_ :: _) -> _) | 156 | c) |
150 | (case'Nat | 157 | b |
158 | (match'Bool | ||
151 | (\(_ :: _) -> _) | 159 | (\(_ :: _) -> _) |
152 | (_rhs ('CEmpty "no instance of 'Component on ???")) | 160 | (case'Nat |
153 | (\(h :: _) -> case'Nat | ||
154 | (\(_ :: _) -> _) | 161 | (\(_ :: _) -> _) |
155 | (_rhs ('CEmpty "no instance of 'Component on ???")) | 162 | (_rhs ('CEmpty "no instance of 'Component on ???")) |
156 | (\(i :: _) -> case'Nat | 163 | (\(h :: _) -> case'Nat |
157 | (\(_ :: _) -> _) | 164 | (\(_ :: _) -> _) |
158 | (_rhs 'CUnit) | 165 | (_rhs ('CEmpty "no instance of 'Component on ???")) |
159 | (\(j :: _) -> case'Nat | 166 | (\(i :: _) -> case'Nat |
160 | (\(_ :: _) -> _) | 167 | (\(_ :: _) -> _) |
161 | (_rhs 'CUnit) | 168 | (_rhs 'CUnit) |
162 | (\(k :: _) -> case'Nat | 169 | (\(j :: _) -> case'Nat |
163 | (\(_ :: _) -> _) | 170 | (\(_ :: _) -> _) |
164 | (_rhs 'CUnit) | 171 | (_rhs 'CUnit) |
165 | (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Component on ???")) | 172 | (\(k :: _) -> case'Nat |
166 | k) | 173 | (\(_ :: _) -> _) |
167 | j) | 174 | (_rhs 'CUnit) |
168 | i) | 175 | (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Component on ???")) |
169 | h) | 176 | k) |
170 | c) | 177 | j) |
171 | b | 178 | i) |
172 | (_rhs ('CEmpty "no instance of 'Component on ???")))) | 179 | h) |
173 | a | 180 | c) |
174 | (match'Bool | 181 | b |
175 | (\(_ :: _) -> _) | 182 | (_rhs ('CEmpty "no instance of 'Component on ???")))) |
176 | (_rhs 'CUnit) | ||
177 | a | 183 | a |
178 | (_rhs ('CEmpty "no instance of 'Component on ???")))))) | 184 | (match'Bool |
185 | (\(_ :: _) -> _) | ||
186 | (_rhs 'CUnit) | ||
187 | a | ||
188 | (_rhs ('CEmpty "no instance of 'Component on ???")))))) | ||
179 | 189 | ||
180 | zero :: forall a . Component a => a | 190 | zero :: forall a . Component a => a |
181 | zero | 191 | zero |
182 | = \ @a @(_ :: _) -> match'Int | 192 | = _lhs |
183 | (\(_ :: _) -> _) | 193 | zero |
184 | (_rhs let b = _rhs (fromInt 0 :: Int) in b) | 194 | \ @a @(_ :: _) -> match'Int |
185 | a | ||
186 | (match'Word | ||
187 | (\(_ :: _) -> _) | 195 | (\(_ :: _) -> _) |
188 | (_rhs let c = _rhs (fromInt 0 :: Word) in c) | 196 | (_rhs let b = _lhs zero (_rhs (fromInt 0 :: Int)) in b) |
189 | a | 197 | a |
190 | (match'Float | 198 | (match'Word |
191 | (\(_ :: _) -> _) | 199 | (\(_ :: _) -> _) |
192 | (_rhs let d = _rhs 0.0 in d) | 200 | (_rhs let c = _lhs zero (_rhs (fromInt 0 :: Word)) in c) |
193 | a | 201 | a |
194 | (match'VecS | 202 | (match'Float |
195 | (\(_ :: _) -> _) | 203 | (\(_ :: _) -> _) |
196 | (\(e :: _) (f :: _) -> match'Float | 204 | (_rhs let d = _lhs zero (_rhs 0.0) in d) |
205 | a | ||
206 | (match'VecS | ||
197 | (\(_ :: _) -> _) | 207 | (\(_ :: _) -> _) |
198 | (case'Nat | 208 | (\(e :: _) (f :: _) -> match'Float |
199 | (\(_ :: _) -> _) | ||
200 | (_rhs undefined) | ||
201 | (\(g :: _) -> case'Nat | ||
202 | (\(_ :: _) -> _) | ||
203 | (_rhs undefined) | ||
204 | (\(h :: _) -> case'Nat | ||
205 | (\(_ :: _) -> _) | ||
206 | (_rhs let i = _rhs (V2 0.0 0.0) in i) | ||
207 | (\(j :: _) -> case'Nat | ||
208 | (\(_ :: _) -> _) | ||
209 | (_rhs let k = _rhs (V3 0.0 0.0 0.0) in k) | ||
210 | (\(l :: _) -> case'Nat | ||
211 | (\(_ :: _) -> _) | ||
212 | (_rhs let m = _rhs (V4 0.0 0.0 0.0 0.0) in m) | ||
213 | (\(_ :: _) -> _rhs undefined) | ||
214 | l) | ||
215 | j) | ||
216 | h) | ||
217 | g) | ||
218 | f) | ||
219 | e | ||
220 | (match'Bool | ||
221 | (\(_ :: _) -> _) | 209 | (\(_ :: _) -> _) |
222 | (case'Nat | 210 | (case'Nat |
223 | (\(_ :: _) -> _) | 211 | (\(_ :: _) -> _) |
224 | (_rhs undefined) | 212 | (_rhs undefined) |
225 | (\(n :: _) -> case'Nat | 213 | (\(g :: _) -> case'Nat |
226 | (\(_ :: _) -> _) | 214 | (\(_ :: _) -> _) |
227 | (_rhs undefined) | 215 | (_rhs undefined) |
228 | (\(o :: _) -> case'Nat | 216 | (\(h :: _) -> case'Nat |
229 | (\(_ :: _) -> _) | 217 | (\(_ :: _) -> _) |
230 | (_rhs let p = _rhs (V2 False False) in p) | 218 | (_rhs let i = _lhs zero (_rhs (V2 0.0 0.0)) in i) |
231 | (\(q :: _) -> case'Nat | 219 | (\(j :: _) -> case'Nat |
232 | (\(_ :: _) -> _) | 220 | (\(_ :: _) -> _) |
233 | (_rhs let r = _rhs (V3 False False False) in r) | 221 | (_rhs let k = _lhs zero (_rhs (V3 0.0 0.0 0.0)) in k) |
234 | (\(s :: _) -> case'Nat | 222 | (\(l :: _) -> case'Nat |
235 | (\(_ :: _) -> _) | 223 | (\(_ :: _) -> _) |
236 | (_rhs let t = _rhs (V4 False False False False) in t) | 224 | (_rhs let m = _lhs zero (_rhs (V4 0.0 0.0 0.0 0.0)) in m) |
237 | (\(_ :: _) -> _rhs undefined) | 225 | (\(_ :: _) -> _rhs undefined) |
238 | s) | 226 | l) |
239 | q) | 227 | j) |
240 | o) | 228 | h) |
241 | n) | 229 | g) |
242 | f) | 230 | f) |
243 | e | 231 | e |
244 | (_rhs undefined))) | 232 | (match'Bool |
245 | a | 233 | (\(_ :: _) -> _) |
246 | (match'Bool | 234 | (case'Nat |
247 | (\(_ :: _) -> _) | 235 | (\(_ :: _) -> _) |
248 | (_rhs let u = _rhs False in u) | 236 | (_rhs undefined) |
237 | (\(n :: _) -> case'Nat | ||
238 | (\(_ :: _) -> _) | ||
239 | (_rhs undefined) | ||
240 | (\(o :: _) -> case'Nat | ||
241 | (\(_ :: _) -> _) | ||
242 | (_rhs let p = _lhs zero (_rhs (V2 False False)) in p) | ||
243 | (\(q :: _) -> case'Nat | ||
244 | (\(_ :: _) -> _) | ||
245 | (_rhs let r = _lhs zero (_rhs (V3 False False False)) in r) | ||
246 | (\(s :: _) -> case'Nat | ||
247 | (\(_ :: _) -> _) | ||
248 | (_rhs let t = _lhs zero (_rhs (V4 False False False False)) in t) | ||
249 | (\(_ :: _) -> _rhs undefined) | ||
250 | s) | ||
251 | q) | ||
252 | o) | ||
253 | n) | ||
254 | f) | ||
255 | e | ||
256 | (_rhs undefined))) | ||
249 | a | 257 | a |
250 | (_rhs undefined))))) | 258 | (match'Bool |
259 | (\(_ :: _) -> _) | ||
260 | (_rhs let u = _lhs zero (_rhs False) in u) | ||
261 | a | ||
262 | (_rhs undefined))))) | ||
251 | 263 | ||
252 | one :: forall a . Component a => a | 264 | one :: forall a . Component a => a |
253 | one | 265 | one |
254 | = \ @a @(_ :: _) -> match'Int | 266 | = _lhs |
255 | (\(_ :: _) -> _) | 267 | one |
256 | (_rhs let b = _rhs (fromInt 1 :: Int) in b) | 268 | \ @a @(_ :: _) -> match'Int |
257 | a | ||
258 | (match'Word | ||
259 | (\(_ :: _) -> _) | 269 | (\(_ :: _) -> _) |
260 | (_rhs let c = _rhs (fromInt 1 :: Word) in c) | 270 | (_rhs let b = _lhs one (_rhs (fromInt 1 :: Int)) in b) |
261 | a | 271 | a |
262 | (match'Float | 272 | (match'Word |
263 | (\(_ :: _) -> _) | 273 | (\(_ :: _) -> _) |
264 | (_rhs let d = _rhs 1.0 in d) | 274 | (_rhs let c = _lhs one (_rhs (fromInt 1 :: Word)) in c) |
265 | a | 275 | a |
266 | (match'VecS | 276 | (match'Float |
267 | (\(_ :: _) -> _) | 277 | (\(_ :: _) -> _) |
268 | (\(e :: _) (f :: _) -> match'Float | 278 | (_rhs let d = _lhs one (_rhs 1.0) in d) |
279 | a | ||
280 | (match'VecS | ||
269 | (\(_ :: _) -> _) | 281 | (\(_ :: _) -> _) |
270 | (case'Nat | 282 | (\(e :: _) (f :: _) -> match'Float |
271 | (\(_ :: _) -> _) | ||
272 | (_rhs undefined) | ||
273 | (\(g :: _) -> case'Nat | ||
274 | (\(_ :: _) -> _) | ||
275 | (_rhs undefined) | ||
276 | (\(h :: _) -> case'Nat | ||
277 | (\(_ :: _) -> _) | ||
278 | (_rhs let i = _rhs (V2 1.0 1.0) in i) | ||
279 | (\(j :: _) -> case'Nat | ||
280 | (\(_ :: _) -> _) | ||
281 | (_rhs let k = _rhs (V3 1.0 1.0 1.0) in k) | ||
282 | (\(l :: _) -> case'Nat | ||
283 | (\(_ :: _) -> _) | ||
284 | (_rhs let m = _rhs (V4 1.0 1.0 1.0 1.0) in m) | ||
285 | (\(_ :: _) -> _rhs undefined) | ||
286 | l) | ||
287 | j) | ||
288 | h) | ||
289 | g) | ||
290 | f) | ||
291 | e | ||
292 | (match'Bool | ||
293 | (\(_ :: _) -> _) | 283 | (\(_ :: _) -> _) |
294 | (case'Nat | 284 | (case'Nat |
295 | (\(_ :: _) -> _) | 285 | (\(_ :: _) -> _) |
296 | (_rhs undefined) | 286 | (_rhs undefined) |
297 | (\(n :: _) -> case'Nat | 287 | (\(g :: _) -> case'Nat |
298 | (\(_ :: _) -> _) | 288 | (\(_ :: _) -> _) |
299 | (_rhs undefined) | 289 | (_rhs undefined) |
300 | (\(o :: _) -> case'Nat | 290 | (\(h :: _) -> case'Nat |
301 | (\(_ :: _) -> _) | 291 | (\(_ :: _) -> _) |
302 | (_rhs let p = _rhs (V2 True True) in p) | 292 | (_rhs let i = _lhs one (_rhs (V2 1.0 1.0)) in i) |
303 | (\(q :: _) -> case'Nat | 293 | (\(j :: _) -> case'Nat |
304 | (\(_ :: _) -> _) | 294 | (\(_ :: _) -> _) |
305 | (_rhs let r = _rhs (V3 True True True) in r) | 295 | (_rhs let k = _lhs one (_rhs (V3 1.0 1.0 1.0)) in k) |
306 | (\(s :: _) -> case'Nat | 296 | (\(l :: _) -> case'Nat |
307 | (\(_ :: _) -> _) | 297 | (\(_ :: _) -> _) |
308 | (_rhs let t = _rhs (V4 True True True True) in t) | 298 | (_rhs let m = _lhs one (_rhs (V4 1.0 1.0 1.0 1.0)) in m) |
309 | (\(_ :: _) -> _rhs undefined) | 299 | (\(_ :: _) -> _rhs undefined) |
310 | s) | 300 | l) |
311 | q) | 301 | j) |
312 | o) | 302 | h) |
313 | n) | 303 | g) |
314 | f) | 304 | f) |
315 | e | 305 | e |
316 | (_rhs undefined))) | 306 | (match'Bool |
317 | a | 307 | (\(_ :: _) -> _) |
318 | (match'Bool | 308 | (case'Nat |
319 | (\(_ :: _) -> _) | 309 | (\(_ :: _) -> _) |
320 | (_rhs let u = _rhs True in u) | 310 | (_rhs undefined) |
311 | (\(n :: _) -> case'Nat | ||
312 | (\(_ :: _) -> _) | ||
313 | (_rhs undefined) | ||
314 | (\(o :: _) -> case'Nat | ||
315 | (\(_ :: _) -> _) | ||
316 | (_rhs let p = _lhs one (_rhs (V2 True True)) in p) | ||
317 | (\(q :: _) -> case'Nat | ||
318 | (\(_ :: _) -> _) | ||
319 | (_rhs let r = _lhs one (_rhs (V3 True True True)) in r) | ||
320 | (\(s :: _) -> case'Nat | ||
321 | (\(_ :: _) -> _) | ||
322 | (_rhs let t = _lhs one (_rhs (V4 True True True True)) in t) | ||
323 | (\(_ :: _) -> _rhs undefined) | ||
324 | s) | ||
325 | q) | ||
326 | o) | ||
327 | n) | ||
328 | f) | ||
329 | e | ||
330 | (_rhs undefined))) | ||
321 | a | 331 | a |
322 | (_rhs undefined))))) | 332 | (match'Bool |
333 | (\(_ :: _) -> _) | ||
334 | (_rhs let u = _lhs one (_rhs True) in u) | ||
335 | a | ||
336 | (_rhs undefined))))) | ||
323 | 337 | ||
324 | 'Integral :: Type -> Constraint | 338 | 'Integral :: Type -> Constraint |
325 | 'Integral | 339 | 'Integral |
326 | = \(a :: _) -> match'Int | 340 | = _lhs |
327 | (\(_ :: _) -> _) | 341 | 'Integral |
328 | (_rhs 'CUnit) | 342 | \(a :: _) -> match'Int |
329 | a | ||
330 | (match'Word | ||
331 | (\(_ :: _) -> _) | 343 | (\(_ :: _) -> _) |
332 | (_rhs 'CUnit) | 344 | (_rhs 'CUnit) |
333 | a | 345 | a |
334 | (_rhs ('CEmpty "no instance of 'Integral on ???"))) | 346 | (match'Word |
347 | (\(_ :: _) -> _) | ||
348 | (_rhs 'CUnit) | ||
349 | a | ||
350 | (_rhs ('CEmpty "no instance of 'Integral on ???"))) | ||
335 | 351 | ||
336 | 'Floating :: Type -> Constraint | 352 | 'Floating :: Type -> Constraint |
337 | 'Floating | 353 | 'Floating |
338 | = \(a :: _) -> match'Float | 354 | = _lhs |
339 | (\(_ :: _) -> _) | 355 | 'Floating |
340 | (_rhs 'CUnit) | 356 | \(a :: _) -> match'Float |
341 | a | ||
342 | (match'VecS | ||
343 | (\(_ :: _) -> _) | 357 | (\(_ :: _) -> _) |
344 | (\(b :: _) (c :: _) -> match'Float | 358 | (_rhs 'CUnit) |
359 | a | ||
360 | (match'VecS | ||
345 | (\(_ :: _) -> _) | 361 | (\(_ :: _) -> _) |
346 | (case'Nat | 362 | (\(b :: _) (c :: _) -> match'Float |
347 | (\(_ :: _) -> _) | 363 | (\(_ :: _) -> _) |
348 | (_rhs ('CEmpty "no instance of 'Floating on ???")) | 364 | (case'Nat |
349 | (\(d :: _) -> case'Nat | ||
350 | (\(_ :: _) -> _) | 365 | (\(_ :: _) -> _) |
351 | (_rhs ('CEmpty "no instance of 'Floating on ???")) | 366 | (_rhs ('CEmpty "no instance of 'Floating on ???")) |
352 | (\(e :: _) -> case'Nat | 367 | (\(d :: _) -> case'Nat |
353 | (\(_ :: _) -> _) | 368 | (\(_ :: _) -> _) |
354 | (_rhs 'CUnit) | 369 | (_rhs ('CEmpty "no instance of 'Floating on ???")) |
355 | (\(f :: _) -> case'Nat | 370 | (\(e :: _) -> case'Nat |
356 | (\(_ :: _) -> _) | 371 | (\(_ :: _) -> _) |
357 | (_rhs 'CUnit) | 372 | (_rhs 'CUnit) |
358 | (\(g :: _) -> case'Nat | 373 | (\(f :: _) -> case'Nat |
359 | (\(_ :: _) -> _) | 374 | (\(_ :: _) -> _) |
360 | (_rhs 'CUnit) | 375 | (_rhs 'CUnit) |
361 | (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???")) | 376 | (\(g :: _) -> case'Nat |
362 | g) | 377 | (\(_ :: _) -> _) |
363 | f) | 378 | (_rhs 'CUnit) |
364 | e) | 379 | (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???")) |
365 | d) | 380 | g) |
366 | c) | 381 | f) |
367 | b | 382 | e) |
368 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) | 383 | d) |
369 | a | 384 | c) |
370 | (match'Mat | 385 | b |
371 | (\(_ :: _) -> _) | 386 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) |
372 | (\(h :: _) (i :: _) (j :: _) -> case'Nat | 387 | a |
388 | (match'Mat | ||
373 | (\(_ :: _) -> _) | 389 | (\(_ :: _) -> _) |
374 | (_rhs ('CEmpty "no instance of 'Floating on ???")) | 390 | (\(h :: _) (i :: _) (j :: _) -> case'Nat |
375 | (\(k :: _) -> case'Nat | ||
376 | (\(_ :: _) -> _) | 391 | (\(_ :: _) -> _) |
377 | (_rhs ('CEmpty "no instance of 'Floating on ???")) | 392 | (_rhs ('CEmpty "no instance of 'Floating on ???")) |
378 | (\(l :: _) -> case'Nat | 393 | (\(k :: _) -> case'Nat |
379 | (\(_ :: _) -> _) | 394 | (\(_ :: _) -> _) |
380 | (case'Nat | 395 | (_rhs ('CEmpty "no instance of 'Floating on ???")) |
381 | (\(_ :: _) -> _) | 396 | (\(l :: _) -> case'Nat |
382 | (_rhs ('CEmpty "no instance of 'Floating on ???")) | ||
383 | (\(m :: _) -> case'Nat | ||
384 | (\(_ :: _) -> _) | ||
385 | (_rhs ('CEmpty "no instance of 'Floating on ???")) | ||
386 | (\(n :: _) -> case'Nat | ||
387 | (\(_ :: _) -> _) | ||
388 | (match'Float | ||
389 | (\(_ :: _) -> _) | ||
390 | (_rhs 'CUnit) | ||
391 | j | ||
392 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) | ||
393 | (\(o :: _) -> case'Nat | ||
394 | (\(_ :: _) -> _) | ||
395 | (match'Float | ||
396 | (\(_ :: _) -> _) | ||
397 | (_rhs 'CUnit) | ||
398 | j | ||
399 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) | ||
400 | (\(p :: _) -> case'Nat | ||
401 | (\(_ :: _) -> _) | ||
402 | (match'Float | ||
403 | (\(_ :: _) -> _) | ||
404 | (_rhs 'CUnit) | ||
405 | j | ||
406 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) | ||
407 | (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???")) | ||
408 | p) | ||
409 | o) | ||
410 | n) | ||
411 | m) | ||
412 | i) | ||
413 | (\(q :: _) -> case'Nat | ||
414 | (\(_ :: _) -> _) | 397 | (\(_ :: _) -> _) |
415 | (case'Nat | 398 | (case'Nat |
416 | (\(_ :: _) -> _) | 399 | (\(_ :: _) -> _) |
417 | (_rhs ('CEmpty "no instance of 'Floating on ???")) | 400 | (_rhs ('CEmpty "no instance of 'Floating on ???")) |
418 | (\(r :: _) -> case'Nat | 401 | (\(m :: _) -> case'Nat |
419 | (\(_ :: _) -> _) | 402 | (\(_ :: _) -> _) |
420 | (_rhs ('CEmpty "no instance of 'Floating on ???")) | 403 | (_rhs ('CEmpty "no instance of 'Floating on ???")) |
421 | (\(s :: _) -> case'Nat | 404 | (\(n :: _) -> case'Nat |
422 | (\(_ :: _) -> _) | 405 | (\(_ :: _) -> _) |
423 | (match'Float | 406 | (match'Float |
424 | (\(_ :: _) -> _) | 407 | (\(_ :: _) -> _) |
425 | (_rhs 'CUnit) | 408 | (_rhs 'CUnit) |
426 | j | 409 | j |
427 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) | 410 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) |
428 | (\(t :: _) -> case'Nat | 411 | (\(o :: _) -> case'Nat |
429 | (\(_ :: _) -> _) | 412 | (\(_ :: _) -> _) |
430 | (match'Float | 413 | (match'Float |
431 | (\(_ :: _) -> _) | 414 | (\(_ :: _) -> _) |
432 | (_rhs 'CUnit) | 415 | (_rhs 'CUnit) |
433 | j | 416 | j |
434 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) | 417 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) |
435 | (\(u :: _) -> case'Nat | 418 | (\(p :: _) -> case'Nat |
436 | (\(_ :: _) -> _) | 419 | (\(_ :: _) -> _) |
437 | (match'Float | 420 | (match'Float |
438 | (\(_ :: _) -> _) | 421 | (\(_ :: _) -> _) |
@@ -440,34 +423,34 @@ one | |||
440 | j | 423 | j |
441 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) | 424 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) |
442 | (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???")) | 425 | (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???")) |
443 | u) | 426 | p) |
444 | t) | 427 | o) |
445 | s) | 428 | n) |
446 | r) | 429 | m) |
447 | i) | 430 | i) |
448 | (\(v :: _) -> case'Nat | 431 | (\(q :: _) -> case'Nat |
449 | (\(_ :: _) -> _) | 432 | (\(_ :: _) -> _) |
450 | (case'Nat | 433 | (case'Nat |
451 | (\(_ :: _) -> _) | 434 | (\(_ :: _) -> _) |
452 | (_rhs ('CEmpty "no instance of 'Floating on ???")) | 435 | (_rhs ('CEmpty "no instance of 'Floating on ???")) |
453 | (\(w :: _) -> case'Nat | 436 | (\(r :: _) -> case'Nat |
454 | (\(_ :: _) -> _) | 437 | (\(_ :: _) -> _) |
455 | (_rhs ('CEmpty "no instance of 'Floating on ???")) | 438 | (_rhs ('CEmpty "no instance of 'Floating on ???")) |
456 | (\(x :: _) -> case'Nat | 439 | (\(s :: _) -> case'Nat |
457 | (\(_ :: _) -> _) | 440 | (\(_ :: _) -> _) |
458 | (match'Float | 441 | (match'Float |
459 | (\(_ :: _) -> _) | 442 | (\(_ :: _) -> _) |
460 | (_rhs 'CUnit) | 443 | (_rhs 'CUnit) |
461 | j | 444 | j |
462 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) | 445 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) |
463 | (\(y :: _) -> case'Nat | 446 | (\(t :: _) -> case'Nat |
464 | (\(_ :: _) -> _) | 447 | (\(_ :: _) -> _) |
465 | (match'Float | 448 | (match'Float |
466 | (\(_ :: _) -> _) | 449 | (\(_ :: _) -> _) |
467 | (_rhs 'CUnit) | 450 | (_rhs 'CUnit) |
468 | j | 451 | j |
469 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) | 452 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) |
470 | (\(z :: _) -> case'Nat | 453 | (\(u :: _) -> case'Nat |
471 | (\(_ :: _) -> _) | 454 | (\(_ :: _) -> _) |
472 | (match'Float | 455 | (match'Float |
473 | (\(_ :: _) -> _) | 456 | (\(_ :: _) -> _) |
@@ -475,19 +458,54 @@ one | |||
475 | j | 458 | j |
476 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) | 459 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) |
477 | (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???")) | 460 | (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???")) |
478 | z) | 461 | u) |
479 | y) | 462 | t) |
480 | x) | 463 | s) |
481 | w) | 464 | r) |
482 | i) | 465 | i) |
483 | (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???")) | 466 | (\(v :: _) -> case'Nat |
484 | v) | 467 | (\(_ :: _) -> _) |
485 | q) | 468 | (case'Nat |
486 | l) | 469 | (\(_ :: _) -> _) |
487 | k) | 470 | (_rhs ('CEmpty "no instance of 'Floating on ???")) |
488 | h) | 471 | (\(w :: _) -> case'Nat |
489 | a | 472 | (\(_ :: _) -> _) |
490 | (_rhs ('CEmpty "no instance of 'Floating on ???")))) | 473 | (_rhs ('CEmpty "no instance of 'Floating on ???")) |
474 | (\(x :: _) -> case'Nat | ||
475 | (\(_ :: _) -> _) | ||
476 | (match'Float | ||
477 | (\(_ :: _) -> _) | ||
478 | (_rhs 'CUnit) | ||
479 | j | ||
480 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) | ||
481 | (\(y :: _) -> case'Nat | ||
482 | (\(_ :: _) -> _) | ||
483 | (match'Float | ||
484 | (\(_ :: _) -> _) | ||
485 | (_rhs 'CUnit) | ||
486 | j | ||
487 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) | ||
488 | (\(z :: _) -> case'Nat | ||
489 | (\(_ :: _) -> _) | ||
490 | (match'Float | ||
491 | (\(_ :: _) -> _) | ||
492 | (_rhs 'CUnit) | ||
493 | j | ||
494 | (_rhs ('CEmpty "no instance of 'Floating on ???"))) | ||
495 | (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???")) | ||
496 | z) | ||
497 | y) | ||
498 | x) | ||
499 | w) | ||
500 | i) | ||
501 | (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???")) | ||
502 | v) | ||
503 | q) | ||
504 | l) | ||
505 | k) | ||
506 | h) | ||
507 | a | ||
508 | (_rhs ('CEmpty "no instance of 'Floating on ???")))) | ||
491 | 509 | ||
492 | PrimAdd :: forall (a :: _) . Num (MatVecScalarElem a) => a -> a -> a | 510 | PrimAdd :: forall (a :: _) . Num (MatVecScalarElem a) => a -> a -> a |
493 | 511 | ||
@@ -778,44 +796,54 @@ PrimNoise3 :: forall (a :: _) . VecScalar a Float -> Vec (fromInt 3) Float | |||
778 | PrimNoise4 :: forall (a :: _) . VecScalar a Float -> Vec (fromInt 4) Float | 796 | PrimNoise4 :: forall (a :: _) . VecScalar a Float -> Vec (fromInt 4) Float |
779 | 797 | ||
780 | head | 798 | head |
781 | = \(a :: _) -> case'List | 799 | = _lhs |
782 | (\(_ :: _) -> _) | 800 | head |
783 | (_rhs undefined) | 801 | \(a :: _) -> case'List |
784 | (\(b :: _) (_ :: _) -> _rhs b) | 802 | (\(_ :: _) -> _) |
785 | a | 803 | (_rhs undefined) |
804 | (\(b :: _) (_ :: _) -> _rhs b) | ||
805 | a | ||
786 | 806 | ||
787 | (++) | 807 | (++) |
788 | = \(a :: _) (b :: _) -> case'List | 808 | = _lhs |
789 | (\(_ :: _) -> _) | 809 | (++) |
790 | (_rhs b) | 810 | \(a :: _) (b :: _) -> case'List |
791 | (\(c :: _) (d :: _) -> _rhs (c : d ++ b)) | 811 | (\(_ :: _) -> _) |
792 | a | 812 | (_rhs b) |
813 | (\(c :: _) (d :: _) -> _rhs (c : d ++ b)) | ||
814 | a | ||
793 | 815 | ||
794 | foldr | 816 | foldr |
795 | = \(a :: _) (b :: _) (c :: _) -> case'List | 817 | = _lhs |
796 | (\(_ :: _) -> _) | 818 | foldr |
797 | (_rhs b) | 819 | \(a :: _) (b :: _) (c :: _) -> case'List |
798 | (\(d :: _) (e :: _) -> _rhs (a d (foldr a b e))) | 820 | (\(_ :: _) -> _) |
799 | c | 821 | (_rhs b) |
822 | (\(d :: _) (e :: _) -> _rhs (a d (foldr a b e))) | ||
823 | c | ||
800 | 824 | ||
801 | concat = _rhs (foldr (++) []) | 825 | concat = _lhs concat (_rhs (foldr (++) [])) |
802 | 826 | ||
803 | map | 827 | map |
804 | = \(a :: _) (b :: _) -> case'List | 828 | = _lhs |
805 | (\(_ :: _) -> _) | 829 | map |
806 | (_rhs []) | 830 | \(a :: _) (b :: _) -> case'List |
807 | (\(c :: _) (d :: _) -> _rhs (a c : map a d)) | 831 | (\(_ :: _) -> _) |
808 | b | 832 | (_rhs []) |
833 | (\(c :: _) (d :: _) -> _rhs (a c : map a d)) | ||
834 | b | ||
809 | 835 | ||
810 | concatMap :: forall (a :: _) (b :: _) . (a -> [b]) -> [a] -> [b] | 836 | concatMap :: forall (a :: _) (b :: _) . (a -> [b]) -> [a] -> [b] |
811 | concatMap = \(a :: _) (b :: _) -> _rhs (concat (map a b)) | 837 | concatMap = _lhs concatMap \(a :: _) (b :: _) -> _rhs (concat (map a b)) |
812 | 838 | ||
813 | len | 839 | len |
814 | = \(a :: _) -> case'List | 840 | = _lhs |
815 | (\(_ :: _) -> _) | 841 | len |
816 | (_rhs (fromInt 0)) | 842 | \(a :: _) -> case'List |
817 | (\(_ :: _) (b :: _) -> _rhs (fromInt 1 `primAddInt` len b)) | 843 | (\(_ :: _) -> _) |
818 | a | 844 | (_rhs (fromInt 0)) |
845 | (\(_ :: _) (b :: _) -> _rhs (fromInt 1 `primAddInt` len b)) | ||
846 | a | ||
819 | 847 | ||
820 | data Maybe (_ :: Type) :: Type where | 848 | data Maybe (_ :: Type) :: Type where |
821 | Nothing :: forall a . Maybe a | 849 | Nothing :: forall a . Maybe a |
@@ -840,16 +868,19 @@ mapPrimitive | |||
840 | :: forall (a :: _) (b :: _) (c :: _) | 868 | :: forall (a :: _) (b :: _) (c :: _) |
841 | . (a -> b) -> Primitive a c -> Primitive b c | 869 | . (a -> b) -> Primitive a c -> Primitive b c |
842 | 870 | ||
843 | 'PrimitiveStream = \(a :: _) (b :: _) -> _rhs ['Primitive b a] | 871 | 'PrimitiveStream |
872 | = _lhs 'PrimitiveStream \(a :: _) (b :: _) -> _rhs ['Primitive b a] | ||
844 | 873 | ||
845 | mapPrimitives | 874 | mapPrimitives |
846 | :: forall (a :: _) (b :: _) (c :: _) | 875 | :: forall (a :: _) (b :: _) (c :: _) |
847 | . (a -> b) -> PrimitiveStream c a -> PrimitiveStream c b | 876 | . (a -> b) -> PrimitiveStream c a -> PrimitiveStream c b |
848 | mapPrimitives = \(a :: _) -> _rhs (map (mapPrimitive a)) | 877 | mapPrimitives = _lhs mapPrimitives \(a :: _) -> _rhs (map (mapPrimitive a)) |
849 | 878 | ||
850 | 'ListElem :: Type -> Type | 879 | 'ListElem :: Type -> Type |
851 | 'ListElem | 880 | 'ListElem |
852 | = \(a :: _) -> match'List (\(_ :: _) -> _) (\(b :: _) -> _rhs b) a undefined | 881 | = _lhs |
882 | 'ListElem | ||
883 | \(a :: _) -> match'List (\(_ :: _) -> _) (\(b :: _) -> _rhs b) a undefined | ||
853 | 884 | ||
854 | fetchArrays | 885 | fetchArrays |
855 | :: forall (a :: _) (b :: _) (c :: _) | 886 | :: forall (a :: _) (b :: _) (c :: _) |
@@ -868,21 +899,29 @@ fetchStream | |||
868 | data SimpleFragment (_ :: Type) :: Type where | 899 | data SimpleFragment (_ :: Type) :: Type where |
869 | SimpleFragment :: forall a . Vec (fromInt 3) Float -> a -> SimpleFragment a | 900 | SimpleFragment :: forall a . Vec (fromInt 3) Float -> a -> SimpleFragment a |
870 | 901 | ||
871 | 'Fragment = \(a :: _) (b :: _) -> _rhs ('Vector a ('Maybe ('SimpleFragment b))) | 902 | 'Fragment |
903 | = _lhs | ||
904 | 'Fragment | ||
905 | \(a :: _) (b :: _) -> _rhs ('Vector a ('Maybe ('SimpleFragment b))) | ||
872 | 906 | ||
873 | sFragmentCoords | 907 | sFragmentCoords |
874 | = \(a :: _) -> case'SimpleFragment | 908 | = _lhs |
875 | (\(_ :: _) -> _) | 909 | sFragmentCoords |
876 | (\(b :: _) (_ :: _) -> _rhs b) | 910 | \(a :: _) -> case'SimpleFragment |
877 | a | 911 | (\(_ :: _) -> _) |
912 | (\(b :: _) (_ :: _) -> _rhs b) | ||
913 | a | ||
878 | 914 | ||
879 | sFragmentValue | 915 | sFragmentValue |
880 | = \(a :: _) -> case'SimpleFragment | 916 | = _lhs |
881 | (\(_ :: _) -> _) | 917 | sFragmentValue |
882 | (\(_ :: _) (b :: _) -> _rhs b) | 918 | \(a :: _) -> case'SimpleFragment |
883 | a | 919 | (\(_ :: _) -> _) |
920 | (\(_ :: _) (b :: _) -> _rhs b) | ||
921 | a | ||
884 | 922 | ||
885 | 'FragmentStream = \(a :: _) (b :: _) -> _rhs ['Fragment a b] | 923 | 'FragmentStream |
924 | = _lhs 'FragmentStream \(a :: _) (b :: _) -> _rhs ['Fragment a b] | ||
886 | 925 | ||
887 | customizeDepth | 926 | customizeDepth |
888 | :: forall (a :: _) (b :: _) . (a -> Float) -> Fragment b a -> Fragment b a | 927 | :: forall (a :: _) (b :: _) . (a -> Float) -> Fragment b a -> Fragment b a |
@@ -890,7 +929,8 @@ customizeDepth | |||
890 | customizeDepths | 929 | customizeDepths |
891 | :: forall (a :: _) (b :: _) | 930 | :: forall (a :: _) (b :: _) |
892 | . (a -> Float) -> FragmentStream b a -> FragmentStream b a | 931 | . (a -> Float) -> FragmentStream b a -> FragmentStream b a |
893 | customizeDepths = \(a :: _) -> _rhs (map (customizeDepth a)) | 932 | customizeDepths |
933 | = _lhs customizeDepths \(a :: _) -> _rhs (map (customizeDepth a)) | ||
894 | 934 | ||
895 | filterFragment | 935 | filterFragment |
896 | :: forall (a :: _) (b :: _) . (a -> Bool) -> Fragment b a -> Fragment b a | 936 | :: forall (a :: _) (b :: _) . (a -> Bool) -> Fragment b a -> Fragment b a |
@@ -898,7 +938,8 @@ filterFragment | |||
898 | filterFragments | 938 | filterFragments |
899 | :: forall (a :: _) (b :: _) | 939 | :: forall (a :: _) (b :: _) |
900 | . (a -> Bool) -> FragmentStream b a -> FragmentStream b a | 940 | . (a -> Bool) -> FragmentStream b a -> FragmentStream b a |
901 | filterFragments = \(a :: _) -> _rhs (map (filterFragment a)) | 941 | filterFragments |
942 | = _lhs filterFragments \(a :: _) -> _rhs (map (filterFragment a)) | ||
902 | 943 | ||
903 | mapFragment | 944 | mapFragment |
904 | :: forall (a :: _) (b :: _) (c :: _) . (a -> b) -> Fragment c a -> Fragment c b | 945 | :: forall (a :: _) (b :: _) (c :: _) . (a -> b) -> Fragment c a -> Fragment c b |
@@ -906,7 +947,7 @@ mapFragment | |||
906 | mapFragments | 947 | mapFragments |
907 | :: forall (a :: _) (b :: _) (c :: _) | 948 | :: forall (a :: _) (b :: _) (c :: _) |
908 | . (a -> b) -> FragmentStream c a -> FragmentStream c b | 949 | . (a -> b) -> FragmentStream c a -> FragmentStream c b |
909 | mapFragments = \(a :: _) -> _rhs (map (mapFragment a)) | 950 | mapFragments = _lhs mapFragments \(a :: _) -> _rhs (map (mapFragment a)) |
910 | 951 | ||
911 | data ImageKind :: Type where | 952 | data ImageKind :: Type where |
912 | Color :: Type -> ImageKind | 953 | Color :: Type -> ImageKind |
@@ -915,12 +956,14 @@ data ImageKind :: Type where | |||
915 | 956 | ||
916 | imageType :: ImageKind -> Type | 957 | imageType :: ImageKind -> Type |
917 | imageType | 958 | imageType |
918 | = \(a :: _) -> case'ImageKind | 959 | = _lhs |
919 | (\(_ :: _) -> _) | 960 | imageType |
920 | (\(b :: _) -> _rhs b) | 961 | \(a :: _) -> case'ImageKind |
921 | (_rhs 'Float) | 962 | (\(_ :: _) -> _) |
922 | (_rhs 'Int) | 963 | (\(b :: _) -> _rhs b) |
923 | a | 964 | (_rhs 'Float) |
965 | (_rhs 'Int) | ||
966 | a | ||
924 | 967 | ||
925 | data Image (_ :: Nat) (_ :: ImageKind) :: Type where | 968 | data Image (_ :: Nat) (_ :: ImageKind) :: Type where |
926 | 969 | ||
@@ -933,9 +976,9 @@ DepthImage :: forall (a :: _) . Float -> Image a Depth | |||
933 | 976 | ||
934 | StencilImage :: forall (a :: _) . Int -> Image a Stencil | 977 | StencilImage :: forall (a :: _) . Int -> Image a Stencil |
935 | 978 | ||
936 | emptyDepthImage = _rhs (DepthImage @(fromInt 1)) | 979 | emptyDepthImage = _lhs emptyDepthImage (_rhs (DepthImage @(fromInt 1))) |
937 | 980 | ||
938 | emptyColorImage = _rhs (ColorImage @(fromInt 1)) | 981 | emptyColorImage = _lhs emptyColorImage (_rhs (ColorImage @(fromInt 1))) |
939 | 982 | ||
940 | data Swizz :: Type where | 983 | data Swizz :: Type where |
941 | Sx :: Swizz | 984 | Sx :: Swizz |
@@ -945,48 +988,54 @@ data Swizz :: Type where | |||
945 | 988 | ||
946 | swizzscalar :: forall (a :: _) (b :: _) . Vec b a -> Swizz -> a | 989 | swizzscalar :: forall (a :: _) (b :: _) . Vec b a -> Swizz -> a |
947 | swizzscalar | 990 | swizzscalar |
948 | = \(a :: _) (b :: _) -> case'VecS | 991 | = _lhs |
949 | (\(_ :: _) (_ :: _) -> _) | 992 | swizzscalar |
950 | (\(c :: _) (d :: _) -> case'Swizz | 993 | \(a :: _) (b :: _) -> case'VecS |
951 | (\(_ :: _) -> _) | 994 | (\(_ :: _) (_ :: _) -> _) |
952 | (_rhs c) | 995 | (\(c :: _) (d :: _) -> case'Swizz |
953 | (_rhs d) | 996 | (\(_ :: _) -> _) |
954 | (_rhs undefined) | 997 | (_rhs c) |
955 | (_rhs undefined) | 998 | (_rhs d) |
956 | b) | 999 | (_rhs undefined) |
957 | (\(e :: _) (f :: _) (g :: _) -> case'Swizz | 1000 | (_rhs undefined) |
958 | (\(_ :: _) -> _) | 1001 | b) |
959 | (_rhs e) | 1002 | (\(e :: _) (f :: _) (g :: _) -> case'Swizz |
960 | (_rhs f) | 1003 | (\(_ :: _) -> _) |
961 | (_rhs g) | 1004 | (_rhs e) |
962 | (_rhs undefined) | 1005 | (_rhs f) |
963 | b) | 1006 | (_rhs g) |
964 | (\(h :: _) (i :: _) (j :: _) (k :: _) -> case'Swizz | 1007 | (_rhs undefined) |
965 | (\(_ :: _) -> _) | 1008 | b) |
966 | (_rhs h) | 1009 | (\(h :: _) (i :: _) (j :: _) (k :: _) -> case'Swizz |
967 | (_rhs i) | 1010 | (\(_ :: _) -> _) |
968 | (_rhs j) | 1011 | (_rhs h) |
969 | (_rhs k) | 1012 | (_rhs i) |
970 | b) | 1013 | (_rhs j) |
971 | a | 1014 | (_rhs k) |
1015 | b) | ||
1016 | a | ||
972 | 1017 | ||
973 | definedVec :: forall (a :: _) (b :: _) . Vec b a -> Bool | 1018 | definedVec :: forall (a :: _) (b :: _) . Vec b a -> Bool |
974 | definedVec | 1019 | definedVec |
975 | = \(a :: _) -> case'VecS | 1020 | = _lhs |
976 | (\(_ :: _) (_ :: _) -> _) | 1021 | definedVec |
977 | (\(_ :: _) (_ :: _) -> _rhs True) | 1022 | \(a :: _) -> case'VecS |
978 | (\(_ :: _) (_ :: _) (_ :: _) -> _rhs True) | 1023 | (\(_ :: _) (_ :: _) -> _) |
979 | (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs True) | 1024 | (\(_ :: _) (_ :: _) -> _rhs True) |
980 | a | 1025 | (\(_ :: _) (_ :: _) (_ :: _) -> _rhs True) |
1026 | (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs True) | ||
1027 | a | ||
981 | 1028 | ||
982 | swizzvector | 1029 | swizzvector |
983 | :: forall (a :: _) (b :: _) (c :: _) . Vec b a -> Vec c Swizz -> Vec c a | 1030 | :: forall (a :: _) (b :: _) (c :: _) . Vec b a -> Vec c Swizz -> Vec c a |
984 | swizzvector | 1031 | swizzvector |
985 | = \(a :: _) (b :: _) -> case'Bool | 1032 | = _lhs |
986 | (\(_ :: _) -> _) | 1033 | swizzvector |
987 | (_rhs undefined) | 1034 | \(a :: _) (b :: _) -> case'Bool |
988 | (_rhs (mapVec (swizzscalar a) b)) | 1035 | (\(_ :: _) -> _) |
989 | (definedVec a) | 1036 | (_rhs undefined) |
1037 | (_rhs (mapVec (swizzscalar a) b)) | ||
1038 | (definedVec a) | ||
990 | 1039 | ||
991 | data BlendingFactor :: Type where | 1040 | data BlendingFactor :: Type where |
992 | ZeroBF :: BlendingFactor | 1041 | ZeroBF :: BlendingFactor |
@@ -1126,53 +1175,64 @@ rasterizePrimitive | |||
1126 | -> Primitive (HList c) d -> FragmentStream (fromInt 1) (HList a) | 1175 | -> Primitive (HList c) d -> FragmentStream (fromInt 1) (HList a) |
1127 | 1176 | ||
1128 | rasterizePrimitives | 1177 | rasterizePrimitives |
1129 | = \(a :: _) (b :: _) (c :: _) -> _rhs (concat (map (rasterizePrimitive b a) c)) | 1178 | = _lhs |
1179 | rasterizePrimitives | ||
1180 | \(a :: _) (b :: _) (c :: _) -> _rhs (concat (map (rasterizePrimitive b a) c)) | ||
1130 | 1181 | ||
1131 | 'ImageLC :: Type -> Nat | 1182 | 'ImageLC :: Type -> Nat |
1132 | 'ImageLC | 1183 | 'ImageLC |
1133 | = \(a :: _) -> match'Image | 1184 | = _lhs |
1134 | (\(_ :: _) -> _) | 1185 | 'ImageLC |
1135 | (\(b :: _) (_ :: _) -> _rhs b) | 1186 | \(a :: _) -> match'Image |
1136 | a | 1187 | (\(_ :: _) -> _) |
1137 | undefined | 1188 | (\(b :: _) (_ :: _) -> _rhs b) |
1189 | a | ||
1190 | undefined | ||
1138 | 1191 | ||
1139 | allSame :: forall (a :: _) . [a] -> Constraint | 1192 | allSame :: forall (a :: _) . [a] -> Constraint |
1140 | allSame | 1193 | allSame |
1141 | = \(a :: _) -> case'List | 1194 | = _lhs |
1142 | (\(_ :: _) -> _) | 1195 | allSame |
1143 | (_rhs 'CUnit) | 1196 | \(a :: _) -> case'List |
1144 | (\(b :: _) (c :: _) -> case'List | ||
1145 | (\(_ :: _) -> _) | 1197 | (\(_ :: _) -> _) |
1146 | (_rhs 'CUnit) | 1198 | (_rhs 'CUnit) |
1147 | (\(d :: _) (e :: _) -> _rhs ('T2 (b `'EqCTt` d) (allSame (d : e)))) | 1199 | (\(b :: _) (c :: _) -> case'List |
1148 | c) | 1200 | (\(_ :: _) -> _) |
1149 | a | 1201 | (_rhs 'CUnit) |
1202 | (\(d :: _) (e :: _) -> _rhs ('T2 (b `'EqCTt` d) (allSame (d : e)))) | ||
1203 | c) | ||
1204 | a | ||
1150 | 1205 | ||
1151 | sameLayerCounts = \(a :: _) -> _rhs (allSame (map 'ImageLC a)) | 1206 | sameLayerCounts |
1207 | = _lhs sameLayerCounts \(a :: _) -> _rhs (allSame (map 'ImageLC a)) | ||
1152 | 1208 | ||
1153 | data FrameBuffer (_ :: Nat) (_ :: [ImageKind]) :: Type where | 1209 | data FrameBuffer (_ :: Nat) (_ :: [ImageKind]) :: Type where |
1154 | 1210 | ||
1155 | 1211 | ||
1156 | imageType' :: [ImageKind] -> [Type] | 1212 | imageType' :: [ImageKind] -> [Type] |
1157 | imageType' | 1213 | imageType' |
1158 | = \(a :: _) -> case'List | 1214 | = _lhs |
1159 | (\(_ :: _) -> _) | 1215 | imageType' |
1160 | (_rhs (map imageType a)) | 1216 | \(a :: _) -> case'List |
1161 | (\(b :: _) (c :: _) -> case'ImageKind | ||
1162 | (\(_ :: _) -> _) | 1217 | (\(_ :: _) -> _) |
1163 | (\(_ :: _) -> _rhs (map imageType a)) | ||
1164 | (_rhs (map imageType c)) | ||
1165 | (_rhs (map imageType a)) | 1218 | (_rhs (map imageType a)) |
1166 | b) | 1219 | (\(b :: _) (c :: _) -> case'ImageKind |
1167 | a | 1220 | (\(_ :: _) -> _) |
1221 | (\(_ :: _) -> _rhs (map imageType a)) | ||
1222 | (_rhs (map imageType c)) | ||
1223 | (_rhs (map imageType a)) | ||
1224 | b) | ||
1225 | a | ||
1168 | 1226 | ||
1169 | 'FragmentOperationKind :: Type -> ImageKind | 1227 | 'FragmentOperationKind :: Type -> ImageKind |
1170 | 'FragmentOperationKind | 1228 | 'FragmentOperationKind |
1171 | = \(a :: _) -> match'FragmentOperation | 1229 | = _lhs |
1172 | (\(_ :: _) -> _) | 1230 | 'FragmentOperationKind |
1173 | (\(b :: _) -> _rhs b) | 1231 | \(a :: _) -> match'FragmentOperation |
1174 | a | 1232 | (\(_ :: _) -> _) |
1175 | undefined | 1233 | (\(b :: _) -> _rhs b) |
1234 | a | ||
1235 | undefined | ||
1176 | 1236 | ||
1177 | Accumulate | 1237 | Accumulate |
1178 | :: forall (a :: _) (b :: Nat) (c :: [Type]) | 1238 | :: forall (a :: _) (b :: Nat) (c :: [Type]) |
@@ -1180,37 +1240,42 @@ Accumulate | |||
1180 | => HList c | 1240 | => HList c |
1181 | -> FragmentStream b (HList (imageType' a)) -> FrameBuffer b a -> FrameBuffer b a | 1241 | -> FragmentStream b (HList (imageType' a)) -> FrameBuffer b a -> FrameBuffer b a |
1182 | 1242 | ||
1183 | accumulateWith = \(a :: _) (b :: _) -> _rhs (a, b) | 1243 | accumulateWith = _lhs accumulateWith \(a :: _) (b :: _) -> _rhs (a, b) |
1184 | 1244 | ||
1185 | overlay | 1245 | overlay |
1186 | = \(a :: _) (b :: _) -> hlistConsCase | 1246 | = _lhs |
1187 | _ | 1247 | overlay |
1188 | (\(c :: _) (d :: _) -> hlistConsCase | 1248 | \(a :: _) (b :: _) -> hlistConsCase |
1189 | _ | 1249 | _ |
1190 | (\(e :: _) (f :: _) -> hlistNilCase _ (_rhs (Accumulate c e a)) f) | 1250 | (\(c :: _) (d :: _) -> hlistConsCase |
1191 | d) | 1251 | _ |
1192 | b | 1252 | (\(e :: _) (f :: _) -> hlistNilCase _ (_rhs (Accumulate c e a)) f) |
1253 | d) | ||
1254 | b | ||
1193 | 1255 | ||
1194 | infixl 0 overlay | 1256 | infixl 0 overlay |
1195 | 1257 | ||
1196 | 'GetImageKind :: Type -> ImageKind | 1258 | 'GetImageKind :: Type -> ImageKind |
1197 | 'GetImageKind | 1259 | 'GetImageKind |
1198 | = \(a :: _) -> match'Image | 1260 | = _lhs |
1199 | (\(_ :: _) -> _) | 1261 | 'GetImageKind |
1200 | (\(_ :: _) (b :: _) -> _rhs b) | 1262 | \(a :: _) -> match'Image |
1201 | a | 1263 | (\(_ :: _) -> _) |
1202 | undefined | 1264 | (\(_ :: _) (b :: _) -> _rhs b) |
1265 | a | ||
1266 | undefined | ||
1203 | 1267 | ||
1204 | FrameBuffer | 1268 | FrameBuffer |
1205 | :: forall (a :: [Type]) | 1269 | :: forall (a :: [Type]) |
1206 | . sameLayerCounts a | 1270 | . sameLayerCounts a |
1207 | => HList a -> FrameBuffer (ImageLC (head a)) (map GetImageKind a) | 1271 | => HList a -> FrameBuffer (ImageLC (head a)) (map GetImageKind a) |
1208 | 1272 | ||
1209 | imageFrame = _rhs FrameBuffer | 1273 | imageFrame = _lhs imageFrame (_rhs FrameBuffer) |
1210 | 1274 | ||
1211 | accumulate | 1275 | accumulate |
1212 | = \(a :: _) (b :: _) (c :: _) (d :: _) -> _rhs | 1276 | = _lhs |
1213 | (Accumulate a (mapFragments b c) d) | 1277 | accumulate |
1278 | \(a :: _) (b :: _) (c :: _) (d :: _) -> _rhs (Accumulate a (mapFragments b c) d) | ||
1214 | 1279 | ||
1215 | PrjImage | 1280 | PrjImage |
1216 | :: forall (a :: _) . FrameBuffer (fromInt 1) ' [a] -> Image (fromInt 1) a | 1281 | :: forall (a :: _) . FrameBuffer (fromInt 1) ' [a] -> Image (fromInt 1) a |
@@ -1222,7 +1287,7 @@ PrjImageColor | |||
1222 | data Output :: Type where | 1287 | data Output :: Type where |
1223 | ScreenOut :: forall (a :: _) (b :: _) . FrameBuffer a b -> Output | 1288 | ScreenOut :: forall (a :: _) (b :: _) . FrameBuffer a b -> Output |
1224 | 1289 | ||
1225 | renderFrame = _rhs ScreenOut | 1290 | renderFrame = _lhs renderFrame (_rhs ScreenOut) |
1226 | 1291 | ||
1227 | data Texture :: Type where | 1292 | data Texture :: Type where |
1228 | Texture2DSlot :: String -> Texture | 1293 | Texture2DSlot :: String -> Texture |
@@ -1244,7 +1309,7 @@ data Sampler :: Type where | |||
1244 | 1309 | ||
1245 | texture2D :: Sampler -> Vec (fromInt 2) Float -> Vec (fromInt 4) Float | 1310 | texture2D :: Sampler -> Vec (fromInt 2) Float -> Vec (fromInt 4) Float |
1246 | 1311 | ||
1247 | accumulationContext = \(a :: _) -> _rhs a | 1312 | accumulationContext = _lhs accumulationContext \(a :: _) -> _rhs a |
1248 | ------------ core code | 1313 | ------------ core code |
1249 | 'BlendEquation :: Type | 1314 | 'BlendEquation :: Type |
1250 | 'BlendEquation | 1315 | 'BlendEquation |
diff --git a/testdata/Internals.out b/testdata/Internals.out index a66b70d3..a04281f0 100644 --- a/testdata/Internals.out +++ b/testdata/Internals.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | typeAnn = \(a :: _) -> _rhs a | 3 | typeAnn = _lhs typeAnn \(a :: _) -> _rhs a |
4 | 4 | ||
5 | parens = \(a :: _) -> _rhs a | 5 | parens = _lhs parens \(a :: _) -> _rhs a |
6 | 6 | ||
7 | undefined :: forall a . a | 7 | undefined :: forall a . a |
8 | 8 | ||
@@ -33,7 +33,7 @@ parEval :: forall (a :: _) -> a -> a -> a | |||
33 | 33 | ||
34 | match'Type :: forall (a :: Type -> Type) -> a Type -> forall b -> a b -> a b | 34 | match'Type :: forall (a :: Type -> Type) -> a Type -> forall b -> a b -> a b |
35 | 35 | ||
36 | 'EqCTt = _rhs ('EqCT (_ :: _)) | 36 | 'EqCTt = _lhs 'EqCTt (_rhs ('EqCT (_ :: _))) |
37 | 37 | ||
38 | t2C :: Unit -> Unit -> Unit | 38 | t2C :: Unit -> Unit -> Unit |
39 | 39 | ||
@@ -96,171 +96,197 @@ primRound :: Float -> Int | |||
96 | 96 | ||
97 | primIfThenElse :: forall (a :: _) . Bool -> a -> a -> a | 97 | primIfThenElse :: forall (a :: _) . Bool -> a -> a -> a |
98 | primIfThenElse | 98 | primIfThenElse |
99 | = \(a :: _) (b :: _) (c :: _) -> case'Bool (\(_ :: _) -> _) (_rhs c) (_rhs b) a | 99 | = _lhs |
100 | primIfThenElse | ||
101 | \(a :: _) (b :: _) (c :: _) -> case'Bool (\(_ :: _) -> _) (_rhs c) (_rhs b) a | ||
100 | 102 | ||
101 | isEQ | 103 | isEQ |
102 | = \(a :: _) -> case'Ordering | 104 | = _lhs |
103 | (\(_ :: _) -> _) | 105 | isEQ |
104 | (_rhs False) | 106 | \(a :: _) -> case'Ordering |
105 | (_rhs True) | 107 | (\(_ :: _) -> _) |
106 | (_rhs False) | 108 | (_rhs False) |
107 | a | 109 | (_rhs True) |
110 | (_rhs False) | ||
111 | a | ||
108 | 112 | ||
109 | 'Num :: Type -> Constraint | 113 | 'Num :: Type -> Constraint |
110 | 'Num | 114 | 'Num |
111 | = \(a :: _) -> match'Int | 115 | = _lhs |
112 | (\(_ :: _) -> _) | 116 | 'Num |
113 | (_rhs 'CUnit) | 117 | \(a :: _) -> match'Int |
114 | a | ||
115 | (match'Word | ||
116 | (\(_ :: _) -> _) | 118 | (\(_ :: _) -> _) |
117 | (_rhs 'CUnit) | 119 | (_rhs 'CUnit) |
118 | a | 120 | a |
119 | (match'Float | 121 | (match'Word |
120 | (\(_ :: _) -> _) | 122 | (\(_ :: _) -> _) |
121 | (_rhs 'CUnit) | 123 | (_rhs 'CUnit) |
122 | a | 124 | a |
123 | (match'Nat | 125 | (match'Float |
124 | (\(_ :: _) -> _) | 126 | (\(_ :: _) -> _) |
125 | (_rhs 'CUnit) | 127 | (_rhs 'CUnit) |
126 | a | 128 | a |
127 | (_rhs ('CEmpty "no instance of 'Num on ???"))))) | 129 | (match'Nat |
130 | (\(_ :: _) -> _) | ||
131 | (_rhs 'CUnit) | ||
132 | a | ||
133 | (_rhs ('CEmpty "no instance of 'Num on ???"))))) | ||
128 | 134 | ||
129 | fromInt :: forall a . Num a => Int -> a | 135 | fromInt :: forall a . Num a => Int -> a |
130 | fromInt | 136 | fromInt |
131 | = \ @a @(_ :: _) -> match'Int | 137 | = _lhs |
132 | (\(_ :: _) -> _) | 138 | fromInt |
133 | (_rhs let b = _rhs \(c :: _) -> c in b) | 139 | \ @a @(_ :: _) -> match'Int |
134 | a | ||
135 | (match'Word | ||
136 | (\(_ :: _) -> _) | 140 | (\(_ :: _) -> _) |
137 | (_rhs let d = _rhs primIntToWord in d) | 141 | (_rhs let b = _lhs fromInt (_rhs \(c :: _) -> c) in b) |
138 | a | 142 | a |
139 | (match'Float | 143 | (match'Word |
140 | (\(_ :: _) -> _) | 144 | (\(_ :: _) -> _) |
141 | (_rhs let e = _rhs primIntToFloat in e) | 145 | (_rhs let d = _lhs fromInt (_rhs primIntToWord) in d) |
142 | a | 146 | a |
143 | (match'Nat | 147 | (match'Float |
144 | (\(_ :: _) -> _) | 148 | (\(_ :: _) -> _) |
145 | (_rhs let f = _rhs primIntToNat in f) | 149 | (_rhs let e = _lhs fromInt (_rhs primIntToFloat) in e) |
146 | a | 150 | a |
147 | (_rhs undefined)))) | 151 | (match'Nat |
152 | (\(_ :: _) -> _) | ||
153 | (_rhs let f = _lhs fromInt (_rhs primIntToNat) in f) | ||
154 | a | ||
155 | (_rhs undefined)))) | ||
148 | 156 | ||
149 | compare :: forall a . Num a => a -> a -> Ordering | 157 | compare :: forall a . Num a => a -> a -> Ordering |
150 | compare | 158 | compare |
151 | = \ @a @(_ :: _) -> match'Int | 159 | = _lhs |
152 | (\(_ :: _) -> _) | 160 | compare |
153 | (_rhs let b = _rhs primCompareInt in b) | 161 | \ @a @(_ :: _) -> match'Int |
154 | a | ||
155 | (match'Word | ||
156 | (\(_ :: _) -> _) | 162 | (\(_ :: _) -> _) |
157 | (_rhs let c = _rhs primCompareWord in c) | 163 | (_rhs let b = _lhs compare (_rhs primCompareInt) in b) |
158 | a | 164 | a |
159 | (match'Float | 165 | (match'Word |
160 | (\(_ :: _) -> _) | 166 | (\(_ :: _) -> _) |
161 | (_rhs let d = _rhs primCompareFloat in d) | 167 | (_rhs let c = _lhs compare (_rhs primCompareWord) in c) |
162 | a | 168 | a |
163 | (match'Nat | 169 | (match'Float |
164 | (\(_ :: _) -> _) | 170 | (\(_ :: _) -> _) |
165 | (_rhs let e = _rhs undefined in e) | 171 | (_rhs let d = _lhs compare (_rhs primCompareFloat) in d) |
166 | a | 172 | a |
167 | (_rhs undefined)))) | 173 | (match'Nat |
174 | (\(_ :: _) -> _) | ||
175 | (_rhs let e = _lhs compare (_rhs undefined) in e) | ||
176 | a | ||
177 | (_rhs undefined)))) | ||
168 | 178 | ||
169 | negate :: forall a . Num a => a -> a | 179 | negate :: forall a . Num a => a -> a |
170 | negate | 180 | negate |
171 | = \ @a @(_ :: _) -> match'Int | 181 | = _lhs |
172 | (\(_ :: _) -> _) | 182 | negate |
173 | (_rhs let b = _rhs primNegateInt in b) | 183 | \ @a @(_ :: _) -> match'Int |
174 | a | ||
175 | (match'Word | ||
176 | (\(_ :: _) -> _) | 184 | (\(_ :: _) -> _) |
177 | (_rhs let c = _rhs primNegateWord in c) | 185 | (_rhs let b = _lhs negate (_rhs primNegateInt) in b) |
178 | a | 186 | a |
179 | (match'Float | 187 | (match'Word |
180 | (\(_ :: _) -> _) | 188 | (\(_ :: _) -> _) |
181 | (_rhs let d = _rhs primNegateFloat in d) | 189 | (_rhs let c = _lhs negate (_rhs primNegateWord) in c) |
182 | a | 190 | a |
183 | (match'Nat | 191 | (match'Float |
184 | (\(_ :: _) -> _) | 192 | (\(_ :: _) -> _) |
185 | (_rhs let e = _rhs undefined in e) | 193 | (_rhs let d = _lhs negate (_rhs primNegateFloat) in d) |
186 | a | 194 | a |
187 | (_rhs undefined)))) | 195 | (match'Nat |
196 | (\(_ :: _) -> _) | ||
197 | (_rhs let e = _lhs negate (_rhs undefined) in e) | ||
198 | a | ||
199 | (_rhs undefined)))) | ||
188 | 200 | ||
189 | 'Eq :: Type -> Constraint | 201 | 'Eq :: Type -> Constraint |
190 | 'Eq | 202 | 'Eq |
191 | = \(a :: _) -> match'String | 203 | = _lhs |
192 | (\(_ :: _) -> _) | 204 | 'Eq |
193 | (_rhs 'CUnit) | 205 | \(a :: _) -> match'String |
194 | a | ||
195 | (match'Char | ||
196 | (\(_ :: _) -> _) | 206 | (\(_ :: _) -> _) |
197 | (_rhs 'CUnit) | 207 | (_rhs 'CUnit) |
198 | a | 208 | a |
199 | (match'Int | 209 | (match'Char |
200 | (\(_ :: _) -> _) | 210 | (\(_ :: _) -> _) |
201 | (_rhs 'CUnit) | 211 | (_rhs 'CUnit) |
202 | a | 212 | a |
203 | (match'Float | 213 | (match'Int |
204 | (\(_ :: _) -> _) | 214 | (\(_ :: _) -> _) |
205 | (_rhs 'CUnit) | 215 | (_rhs 'CUnit) |
206 | a | 216 | a |
207 | (match'Bool | 217 | (match'Float |
208 | (\(_ :: _) -> _) | 218 | (\(_ :: _) -> _) |
209 | (_rhs 'CUnit) | 219 | (_rhs 'CUnit) |
210 | a | 220 | a |
211 | (match'Nat | 221 | (match'Bool |
212 | (\(_ :: _) -> _) | 222 | (\(_ :: _) -> _) |
213 | (_rhs 'CUnit) | 223 | (_rhs 'CUnit) |
214 | a | 224 | a |
215 | (_rhs ('CEmpty "no instance of 'Eq on ???"))))))) | 225 | (match'Nat |
226 | (\(_ :: _) -> _) | ||
227 | (_rhs 'CUnit) | ||
228 | a | ||
229 | (_rhs ('CEmpty "no instance of 'Eq on ???"))))))) | ||
216 | 230 | ||
217 | (==) :: forall a . Eq a => a -> a -> Bool | 231 | (==) :: forall a . Eq a => a -> a -> Bool |
218 | (==) | 232 | (==) |
219 | = \ @a @(_ :: _) -> match'String | 233 | = _lhs |
220 | (\(_ :: _) -> _) | 234 | (==) |
221 | (_rhs let b = \(c :: _) (d :: _) -> _rhs (isEQ (primCompareString c d)) in b) | 235 | \ @a @(_ :: _) -> match'String |
222 | a | ||
223 | (match'Char | ||
224 | (\(_ :: _) -> _) | 236 | (\(_ :: _) -> _) |
225 | (_rhs let e = \(f :: _) (g :: _) -> _rhs (isEQ (primCompareChar f g)) in e) | 237 | (_rhs |
238 | let | ||
239 | b = _lhs (==) \(c :: _) (d :: _) -> _rhs (isEQ (primCompareString c d)) | ||
240 | in b) | ||
226 | a | 241 | a |
227 | (match'Int | 242 | (match'Char |
228 | (\(_ :: _) -> _) | 243 | (\(_ :: _) -> _) |
229 | (_rhs let h = \(i :: _) (j :: _) -> _rhs (isEQ (primCompareInt i j)) in h) | 244 | (_rhs |
245 | let e = _lhs (==) \(f :: _) (g :: _) -> _rhs (isEQ (primCompareChar f g)) in e) | ||
230 | a | 246 | a |
231 | (match'Float | 247 | (match'Int |
232 | (\(_ :: _) -> _) | 248 | (\(_ :: _) -> _) |
233 | (_rhs let k = \(l :: _) (m :: _) -> _rhs (isEQ (primCompareFloat l m)) in k) | 249 | (_rhs |
250 | let h = _lhs (==) \(i :: _) (j :: _) -> _rhs (isEQ (primCompareInt i j)) in h) | ||
234 | a | 251 | a |
235 | (match'Bool | 252 | (match'Float |
236 | (\(_ :: _) -> _) | 253 | (\(_ :: _) -> _) |
237 | (_rhs | 254 | (_rhs |
238 | let | 255 | let k = _lhs (==) \(l :: _) (m :: _) -> _rhs (isEQ (primCompareFloat l m)) in k) |
239 | n | ||
240 | = \(o :: _) (p :: _) -> case'Bool | ||
241 | (\(_ :: _) -> _) | ||
242 | (case'Bool (\(_ :: _) -> _) (_rhs True) (_rhs False) p) | ||
243 | (case'Bool (\(_ :: _) -> _) (_rhs False) (_rhs True) p) | ||
244 | o | ||
245 | in n) | ||
246 | a | 256 | a |
247 | (match'Nat | 257 | (match'Bool |
248 | (\(_ :: _) -> _) | 258 | (\(_ :: _) -> _) |
249 | (_rhs | 259 | (_rhs |
250 | let | 260 | let |
251 | q | 261 | n |
252 | = \(r :: _) (s :: _) -> case'Nat | 262 | = _lhs |
253 | (\(_ :: _) -> _) | 263 | (==) |
254 | (case'Nat (\(_ :: _) -> _) (_rhs True) (\(_ :: _) -> _rhs False) s) | 264 | \(o :: _) (p :: _) -> case'Bool |
255 | (\(t :: _) -> case'Nat | ||
256 | (\(_ :: _) -> _) | 265 | (\(_ :: _) -> _) |
257 | (_rhs False) | 266 | (case'Bool (\(_ :: _) -> _) (_rhs True) (_rhs False) p) |
258 | (\(u :: _) -> _rhs (t == u)) | 267 | (case'Bool (\(_ :: _) -> _) (_rhs False) (_rhs True) p) |
259 | s) | 268 | o |
260 | r | 269 | in n) |
261 | in q) | ||
262 | a | 270 | a |
263 | (_rhs undefined)))))) | 271 | (match'Nat |
272 | (\(_ :: _) -> _) | ||
273 | (_rhs | ||
274 | let | ||
275 | q | ||
276 | = _lhs | ||
277 | (==) | ||
278 | \(r :: _) (s :: _) -> case'Nat | ||
279 | (\(_ :: _) -> _) | ||
280 | (case'Nat (\(_ :: _) -> _) (_rhs True) (\(_ :: _) -> _rhs False) s) | ||
281 | (\(t :: _) -> case'Nat | ||
282 | (\(_ :: _) -> _) | ||
283 | (_rhs False) | ||
284 | (\(u :: _) -> _rhs (t == u)) | ||
285 | s) | ||
286 | r | ||
287 | in q) | ||
288 | a | ||
289 | (_rhs undefined)))))) | ||
264 | 290 | ||
265 | infix 4 == | 291 | infix 4 == |
266 | 292 | ||
diff --git a/testdata/Material.out b/testdata/Material.out index c64db179..cc61ae3b 100644 --- a/testdata/Material.out +++ b/testdata/Material.out | |||
@@ -1,7 +1,7 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | identityLight :: Float | 3 | identityLight :: Float |
4 | identityLight = _rhs (fromInt 1) | 4 | identityLight = _lhs identityLight (_rhs (fromInt 1)) |
5 | 5 | ||
6 | data Entity :: Type where | 6 | data Entity :: Type where |
7 | Entity | 7 | Entity |
@@ -10,28 +10,36 @@ data Entity :: Type where | |||
10 | -> Vec (fromInt 3) Float -> Vec (fromInt 4) Float -> Entity | 10 | -> Vec (fromInt 3) Float -> Vec (fromInt 4) Float -> Entity |
11 | 11 | ||
12 | eAmbientLight | 12 | eAmbientLight |
13 | = \(a :: _) -> case'Entity | 13 | = _lhs |
14 | (\(_ :: _) -> _) | 14 | eAmbientLight |
15 | (\(b :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs b) | 15 | \(a :: _) -> case'Entity |
16 | a | 16 | (\(_ :: _) -> _) |
17 | (\(b :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs b) | ||
18 | a | ||
17 | 19 | ||
18 | eDirectedLight | 20 | eDirectedLight |
19 | = \(a :: _) -> case'Entity | 21 | = _lhs |
20 | (\(_ :: _) -> _) | 22 | eDirectedLight |
21 | (\(_ :: _) (b :: _) (_ :: _) (_ :: _) -> _rhs b) | 23 | \(a :: _) -> case'Entity |
22 | a | 24 | (\(_ :: _) -> _) |
25 | (\(_ :: _) (b :: _) (_ :: _) (_ :: _) -> _rhs b) | ||
26 | a | ||
23 | 27 | ||
24 | eLightDir | 28 | eLightDir |
25 | = \(a :: _) -> case'Entity | 29 | = _lhs |
26 | (\(_ :: _) -> _) | 30 | eLightDir |
27 | (\(_ :: _) (_ :: _) (b :: _) (_ :: _) -> _rhs b) | 31 | \(a :: _) -> case'Entity |
28 | a | 32 | (\(_ :: _) -> _) |
33 | (\(_ :: _) (_ :: _) (b :: _) (_ :: _) -> _rhs b) | ||
34 | a | ||
29 | 35 | ||
30 | eShaderRGBA | 36 | eShaderRGBA |
31 | = \(a :: _) -> case'Entity | 37 | = _lhs |
32 | (\(_ :: _) -> _) | 38 | eShaderRGBA |
33 | (\(_ :: _) (_ :: _) (_ :: _) (b :: _) -> _rhs b) | 39 | \(a :: _) -> case'Entity |
34 | a | 40 | (\(_ :: _) -> _) |
41 | (\(_ :: _) (_ :: _) (_ :: _) (b :: _) -> _rhs b) | ||
42 | a | ||
35 | 43 | ||
36 | data WaveType :: Type where | 44 | data WaveType :: Type where |
37 | WT_Sin :: WaveType | 45 | WT_Sin :: WaveType |
@@ -146,119 +154,143 @@ data StageAttrs :: Type where | |||
146 | -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs | 154 | -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs |
147 | 155 | ||
148 | saBlend | 156 | saBlend |
149 | = \(a :: _) -> case'StageAttrs | 157 | = _lhs |
150 | (\(_ :: _) -> _) | 158 | saBlend |
151 | (\(b :: _) | 159 | \(a :: _) -> case'StageAttrs |
152 | (_ :: _) | 160 | (\(_ :: _) -> _) |
153 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 161 | (\(b :: _) |
154 | -> _rhs b) | 162 | (_ :: _) |
155 | a | 163 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
164 | -> _rhs b) | ||
165 | a | ||
156 | 166 | ||
157 | saRGBGen | 167 | saRGBGen |
158 | = \(a :: _) -> case'StageAttrs | 168 | = _lhs |
159 | (\(_ :: _) -> _) | 169 | saRGBGen |
160 | (\(_ :: _) | 170 | \(a :: _) -> case'StageAttrs |
161 | (b :: _) | 171 | (\(_ :: _) -> _) |
162 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 172 | (\(_ :: _) |
163 | -> _rhs b) | 173 | (b :: _) |
164 | a | 174 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
175 | -> _rhs b) | ||
176 | a | ||
165 | 177 | ||
166 | saAlphaGen | 178 | saAlphaGen |
167 | = \(a :: _) -> case'StageAttrs | 179 | = _lhs |
168 | (\(_ :: _) -> _) | 180 | saAlphaGen |
169 | (\(_ :: _) | 181 | \(a :: _) -> case'StageAttrs |
170 | (_ :: _) | 182 | (\(_ :: _) -> _) |
171 | (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 183 | (\(_ :: _) |
172 | -> _rhs b) | 184 | (_ :: _) |
173 | a | 185 | (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
186 | -> _rhs b) | ||
187 | a | ||
174 | 188 | ||
175 | saTCGen | 189 | saTCGen |
176 | = \(a :: _) -> case'StageAttrs | 190 | = _lhs |
177 | (\(_ :: _) -> _) | 191 | saTCGen |
178 | (\(_ :: _) | 192 | \(a :: _) -> case'StageAttrs |
179 | (_ :: _) | 193 | (\(_ :: _) -> _) |
180 | (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 194 | (\(_ :: _) |
181 | -> _rhs b) | 195 | (_ :: _) |
182 | a | 196 | (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
197 | -> _rhs b) | ||
198 | a | ||
183 | 199 | ||
184 | saTCMod | 200 | saTCMod |
185 | = \(a :: _) -> case'StageAttrs | 201 | = _lhs |
186 | (\(_ :: _) -> _) | 202 | saTCMod |
187 | (\(_ :: _) | 203 | \(a :: _) -> case'StageAttrs |
188 | (_ :: _) | 204 | (\(_ :: _) -> _) |
189 | (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 205 | (\(_ :: _) |
190 | -> _rhs b) | 206 | (_ :: _) |
191 | a | 207 | (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
208 | -> _rhs b) | ||
209 | a | ||
192 | 210 | ||
193 | saTexture | 211 | saTexture |
194 | = \(a :: _) -> case'StageAttrs | 212 | = _lhs |
195 | (\(_ :: _) -> _) | 213 | saTexture |
196 | (\(_ :: _) | 214 | \(a :: _) -> case'StageAttrs |
197 | (_ :: _) | 215 | (\(_ :: _) -> _) |
198 | (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 216 | (\(_ :: _) |
199 | -> _rhs b) | 217 | (_ :: _) |
200 | a | 218 | (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
219 | -> _rhs b) | ||
220 | a | ||
201 | 221 | ||
202 | saDepthWrite | 222 | saDepthWrite |
203 | = \(a :: _) -> case'StageAttrs | 223 | = _lhs |
204 | (\(_ :: _) -> _) | 224 | saDepthWrite |
205 | (\(_ :: _) | 225 | \(a :: _) -> case'StageAttrs |
206 | (_ :: _) | 226 | (\(_ :: _) -> _) |
207 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 227 | (\(_ :: _) |
208 | -> _rhs b) | 228 | (_ :: _) |
209 | a | 229 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
230 | -> _rhs b) | ||
231 | a | ||
210 | 232 | ||
211 | saDepthFunc | 233 | saDepthFunc |
212 | = \(a :: _) -> case'StageAttrs | 234 | = _lhs |
213 | (\(_ :: _) -> _) | 235 | saDepthFunc |
214 | (\(_ :: _) | 236 | \(a :: _) -> case'StageAttrs |
215 | (_ :: _) | 237 | (\(_ :: _) -> _) |
216 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) | 238 | (\(_ :: _) |
217 | -> _rhs b) | 239 | (_ :: _) |
218 | a | 240 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) |
241 | -> _rhs b) | ||
242 | a | ||
219 | 243 | ||
220 | saAlphaFunc | 244 | saAlphaFunc |
221 | = \(a :: _) -> case'StageAttrs | 245 | = _lhs |
222 | (\(_ :: _) -> _) | 246 | saAlphaFunc |
223 | (\(_ :: _) | 247 | \(a :: _) -> case'StageAttrs |
224 | (_ :: _) | 248 | (\(_ :: _) -> _) |
225 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) | 249 | (\(_ :: _) |
226 | -> _rhs b) | 250 | (_ :: _) |
227 | a | 251 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) |
252 | -> _rhs b) | ||
253 | a | ||
228 | 254 | ||
229 | saDepthMaskExplicit | 255 | saDepthMaskExplicit |
230 | = \(a :: _) -> case'StageAttrs | 256 | = _lhs |
231 | (\(_ :: _) -> _) | 257 | saDepthMaskExplicit |
232 | (\(_ :: _) | 258 | \(a :: _) -> case'StageAttrs |
233 | (_ :: _) | 259 | (\(_ :: _) -> _) |
234 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) | 260 | (\(_ :: _) |
235 | -> _rhs b) | 261 | (_ :: _) |
236 | a | 262 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) |
263 | -> _rhs b) | ||
264 | a | ||
237 | 265 | ||
238 | saTextureUniform | 266 | saTextureUniform |
239 | = \(a :: _) -> case'StageAttrs | 267 | = _lhs |
240 | (\(_ :: _) -> _) | 268 | saTextureUniform |
241 | (\(_ :: _) | 269 | \(a :: _) -> case'StageAttrs |
242 | (_ :: _) | 270 | (\(_ :: _) -> _) |
243 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) | 271 | (\(_ :: _) |
244 | -> _rhs b) | 272 | (_ :: _) |
245 | a | 273 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) |
274 | -> _rhs b) | ||
275 | a | ||
246 | 276 | ||
247 | defaultStageAttrs :: StageAttrs | 277 | defaultStageAttrs :: StageAttrs |
248 | defaultStageAttrs | 278 | defaultStageAttrs |
249 | = _rhs | 279 | = _lhs |
250 | (StageAttrs | 280 | defaultStageAttrs |
251 | Nothing | 281 | (_rhs |
252 | RGB_Undefined | 282 | (StageAttrs |
253 | A_Identity | 283 | Nothing |
254 | TG_Undefined | 284 | RGB_Undefined |
255 | [] | 285 | A_Identity |
256 | ST_WhiteImage | 286 | TG_Undefined |
257 | True | 287 | [] |
258 | D_Lequal | 288 | ST_WhiteImage |
259 | Nothing | 289 | True |
260 | False | 290 | D_Lequal |
261 | "") | 291 | Nothing |
292 | False | ||
293 | "")) | ||
262 | 294 | ||
263 | data CommonAttrs :: Type where | 295 | data CommonAttrs :: Type where |
264 | CommonAttrs | 296 | CommonAttrs |
@@ -271,141 +303,167 @@ data CommonAttrs :: Type where | |||
271 | -> CullType -> [Deform] -> Bool -> Bool -> [StageAttrs] -> Bool -> CommonAttrs | 303 | -> CullType -> [Deform] -> Bool -> Bool -> [StageAttrs] -> Bool -> CommonAttrs |
272 | 304 | ||
273 | caSkyParms | 305 | caSkyParms |
274 | = \(a :: _) -> case'CommonAttrs | 306 | = _lhs |
275 | (\(_ :: _) -> _) | 307 | caSkyParms |
276 | (\(b :: _) | 308 | \(a :: _) -> case'CommonAttrs |
277 | (_ :: _) | 309 | (\(_ :: _) -> _) |
310 | (\(b :: _) | ||
278 | (_ :: _) | 311 | (_ :: _) |
279 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 312 | (_ :: _) |
280 | -> _rhs b) | 313 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
281 | a | 314 | -> _rhs b) |
315 | a | ||
282 | 316 | ||
283 | caFogParms | 317 | caFogParms |
284 | = \(a :: _) -> case'CommonAttrs | 318 | = _lhs |
285 | (\(_ :: _) -> _) | 319 | caFogParms |
286 | (\(_ :: _) | 320 | \(a :: _) -> case'CommonAttrs |
287 | (b :: _) | 321 | (\(_ :: _) -> _) |
288 | (_ :: _) | 322 | (\(_ :: _) |
289 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 323 | (b :: _) |
290 | -> _rhs b) | 324 | (_ :: _) |
291 | a | 325 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
326 | -> _rhs b) | ||
327 | a | ||
292 | 328 | ||
293 | caPortal | 329 | caPortal |
294 | = \(a :: _) -> case'CommonAttrs | 330 | = _lhs |
295 | (\(_ :: _) -> _) | 331 | caPortal |
296 | (\(_ :: _) | 332 | \(a :: _) -> case'CommonAttrs |
297 | (_ :: _) | 333 | (\(_ :: _) -> _) |
298 | (b :: _) | 334 | (\(_ :: _) |
299 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 335 | (_ :: _) |
300 | -> _rhs b) | 336 | (b :: _) |
301 | a | 337 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
338 | -> _rhs b) | ||
339 | a | ||
302 | 340 | ||
303 | caSort | 341 | caSort |
304 | = \(a :: _) -> case'CommonAttrs | 342 | = _lhs |
305 | (\(_ :: _) -> _) | 343 | caSort |
306 | (\(_ :: _) | 344 | \(a :: _) -> case'CommonAttrs |
307 | (_ :: _) | 345 | (\(_ :: _) -> _) |
346 | (\(_ :: _) | ||
308 | (_ :: _) | 347 | (_ :: _) |
309 | (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 348 | (_ :: _) |
310 | -> _rhs b) | 349 | (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
311 | a | 350 | -> _rhs b) |
351 | a | ||
312 | 352 | ||
313 | caEntityMergable | 353 | caEntityMergable |
314 | = \(a :: _) -> case'CommonAttrs | 354 | = _lhs |
315 | (\(_ :: _) -> _) | 355 | caEntityMergable |
316 | (\(_ :: _) | 356 | \(a :: _) -> case'CommonAttrs |
317 | (_ :: _) | 357 | (\(_ :: _) -> _) |
358 | (\(_ :: _) | ||
318 | (_ :: _) | 359 | (_ :: _) |
319 | (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 360 | (_ :: _) |
320 | -> _rhs b) | 361 | (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
321 | a | 362 | -> _rhs b) |
363 | a | ||
322 | 364 | ||
323 | caFogOnly | 365 | caFogOnly |
324 | = \(a :: _) -> case'CommonAttrs | 366 | = _lhs |
325 | (\(_ :: _) -> _) | 367 | caFogOnly |
326 | (\(_ :: _) | 368 | \(a :: _) -> case'CommonAttrs |
327 | (_ :: _) | 369 | (\(_ :: _) -> _) |
370 | (\(_ :: _) | ||
328 | (_ :: _) | 371 | (_ :: _) |
329 | (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 372 | (_ :: _) |
330 | -> _rhs b) | 373 | (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
331 | a | 374 | -> _rhs b) |
375 | a | ||
332 | 376 | ||
333 | caCull | 377 | caCull |
334 | = \(a :: _) -> case'CommonAttrs | 378 | = _lhs |
335 | (\(_ :: _) -> _) | 379 | caCull |
336 | (\(_ :: _) | 380 | \(a :: _) -> case'CommonAttrs |
337 | (_ :: _) | 381 | (\(_ :: _) -> _) |
382 | (\(_ :: _) | ||
338 | (_ :: _) | 383 | (_ :: _) |
339 | (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 384 | (_ :: _) |
340 | -> _rhs b) | 385 | (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
341 | a | 386 | -> _rhs b) |
387 | a | ||
342 | 388 | ||
343 | caDeformVertexes | 389 | caDeformVertexes |
344 | = \(a :: _) -> case'CommonAttrs | 390 | = _lhs |
345 | (\(_ :: _) -> _) | 391 | caDeformVertexes |
346 | (\(_ :: _) | 392 | \(a :: _) -> case'CommonAttrs |
347 | (_ :: _) | 393 | (\(_ :: _) -> _) |
394 | (\(_ :: _) | ||
348 | (_ :: _) | 395 | (_ :: _) |
349 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 396 | (_ :: _) |
350 | -> _rhs b) | 397 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
351 | a | 398 | -> _rhs b) |
399 | a | ||
352 | 400 | ||
353 | caNoMipMaps | 401 | caNoMipMaps |
354 | = \(a :: _) -> case'CommonAttrs | 402 | = _lhs |
355 | (\(_ :: _) -> _) | 403 | caNoMipMaps |
356 | (\(_ :: _) | 404 | \(a :: _) -> case'CommonAttrs |
357 | (_ :: _) | 405 | (\(_ :: _) -> _) |
406 | (\(_ :: _) | ||
358 | (_ :: _) | 407 | (_ :: _) |
359 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) | 408 | (_ :: _) |
360 | -> _rhs b) | 409 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) |
361 | a | 410 | -> _rhs b) |
411 | a | ||
362 | 412 | ||
363 | caPolygonOffset | 413 | caPolygonOffset |
364 | = \(a :: _) -> case'CommonAttrs | 414 | = _lhs |
365 | (\(_ :: _) -> _) | 415 | caPolygonOffset |
366 | (\(_ :: _) | 416 | \(a :: _) -> case'CommonAttrs |
367 | (_ :: _) | 417 | (\(_ :: _) -> _) |
418 | (\(_ :: _) | ||
368 | (_ :: _) | 419 | (_ :: _) |
369 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) | 420 | (_ :: _) |
370 | -> _rhs b) | 421 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) |
371 | a | 422 | -> _rhs b) |
423 | a | ||
372 | 424 | ||
373 | caStages | 425 | caStages |
374 | = \(a :: _) -> case'CommonAttrs | 426 | = _lhs |
375 | (\(_ :: _) -> _) | 427 | caStages |
376 | (\(_ :: _) | 428 | \(a :: _) -> case'CommonAttrs |
377 | (_ :: _) | 429 | (\(_ :: _) -> _) |
430 | (\(_ :: _) | ||
378 | (_ :: _) | 431 | (_ :: _) |
379 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) | 432 | (_ :: _) |
380 | -> _rhs b) | 433 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) |
381 | a | 434 | -> _rhs b) |
435 | a | ||
382 | 436 | ||
383 | caIsSky | 437 | caIsSky |
384 | = \(a :: _) -> case'CommonAttrs | 438 | = _lhs |
385 | (\(_ :: _) -> _) | 439 | caIsSky |
386 | (\(_ :: _) | 440 | \(a :: _) -> case'CommonAttrs |
387 | (_ :: _) | 441 | (\(_ :: _) -> _) |
442 | (\(_ :: _) | ||
388 | (_ :: _) | 443 | (_ :: _) |
389 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) | 444 | (_ :: _) |
390 | -> _rhs b) | 445 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) |
391 | a | 446 | -> _rhs b) |
447 | a | ||
392 | 448 | ||
393 | defaultCommonAttrs :: CommonAttrs | 449 | defaultCommonAttrs :: CommonAttrs |
394 | defaultCommonAttrs | 450 | defaultCommonAttrs |
395 | = _rhs | 451 | = _lhs |
396 | (CommonAttrs | 452 | defaultCommonAttrs |
397 | () | 453 | (_rhs |
398 | () | 454 | (CommonAttrs |
399 | False | 455 | () |
400 | (fromInt 0) | 456 | () |
401 | False | 457 | False |
402 | False | 458 | (fromInt 0) |
403 | CT_FrontSided | 459 | False |
404 | [] | 460 | False |
405 | False | 461 | CT_FrontSided |
406 | False | 462 | [] |
407 | [] | 463 | False |
408 | False) | 464 | False |
465 | [] | ||
466 | False)) | ||
409 | ------------ core code | 467 | ------------ core code |
410 | 'AlphaFunction :: Type | 468 | 'AlphaFunction :: Type |
411 | 'AlphaFunction | 469 | 'AlphaFunction |
diff --git a/testdata/Prelude.out b/testdata/Prelude.out index 556b39e2..ea497d05 100644 --- a/testdata/Prelude.out +++ b/testdata/Prelude.out | |||
@@ -12,208 +12,248 @@ infixr 3 *** | |||
12 | 12 | ||
13 | infixr 0 $ | 13 | infixr 0 $ |
14 | 14 | ||
15 | const = \(a :: _) (_ :: _) -> _rhs a | 15 | const = _lhs const \(a :: _) (_ :: _) -> _rhs a |
16 | 16 | ||
17 | otherwise = _rhs True | 17 | otherwise = _lhs otherwise (_rhs True) |
18 | 18 | ||
19 | (&) = \(a :: _) (b :: _) -> _rhs (b a) | 19 | (&) = _lhs (&) \(a :: _) (b :: _) -> _rhs (b a) |
20 | 20 | ||
21 | ($) = _rhs \(a :: _) (b :: _) -> a b | 21 | ($) = _lhs ($) (_rhs \(a :: _) (b :: _) -> a b) |
22 | 22 | ||
23 | (.) = _rhs \(a :: _) (b :: _) (c :: _) -> a (b c) | 23 | (.) = _lhs (.) (_rhs \(a :: _) (b :: _) (c :: _) -> a (b c)) |
24 | 24 | ||
25 | uncurry | 25 | uncurry |
26 | = \(a :: _) (b :: _) -> hlistConsCase | 26 | = _lhs |
27 | _ | 27 | uncurry |
28 | (\(c :: _) (d :: _) -> hlistConsCase | 28 | \(a :: _) (b :: _) -> hlistConsCase |
29 | _ | 29 | _ |
30 | (\(e :: _) (f :: _) -> hlistNilCase _ (_rhs (a c e)) f) | 30 | (\(c :: _) (d :: _) -> hlistConsCase |
31 | d) | 31 | _ |
32 | b | 32 | (\(e :: _) (f :: _) -> hlistNilCase _ (_rhs (a c e)) f) |
33 | d) | ||
34 | b | ||
33 | 35 | ||
34 | (***) | 36 | (***) |
35 | = \(a :: _) (b :: _) (c :: _) -> hlistConsCase | 37 | = _lhs |
36 | _ | 38 | (***) |
37 | (\(d :: _) (e :: _) -> hlistConsCase | 39 | \(a :: _) (b :: _) (c :: _) -> hlistConsCase |
38 | _ | 40 | _ |
39 | (\(f :: _) (g :: _) -> hlistNilCase _ (_rhs (a d, b f)) g) | 41 | (\(d :: _) (e :: _) -> hlistConsCase |
40 | e) | 42 | _ |
41 | c | 43 | (\(f :: _) (g :: _) -> hlistNilCase _ (_rhs (a d, b f)) g) |
44 | e) | ||
45 | c | ||
42 | 46 | ||
43 | pi = _rhs 3.141592653589793 | 47 | pi = _lhs pi (_rhs 3.141592653589793) |
44 | 48 | ||
45 | zip :: forall (a :: _) (b :: _) . [a] -> [b] -> [(a, b)] | 49 | zip :: forall (a :: _) (b :: _) . [a] -> [b] -> [(a, b)] |
46 | zip | 50 | zip |
47 | = \(a :: _) (b :: _) -> case'List | 51 | = _lhs |
48 | (\(_ :: _) -> _) | 52 | zip |
49 | (_rhs []) | 53 | \(a :: _) (b :: _) -> case'List |
50 | (\(c :: _) (d :: _) -> case'List | ||
51 | (\(_ :: _) -> _) | 54 | (\(_ :: _) -> _) |
52 | (_rhs []) | 55 | (_rhs []) |
53 | (\(e :: _) (f :: _) -> _rhs ((c, e) : zip d f)) | 56 | (\(c :: _) (d :: _) -> case'List |
54 | b) | 57 | (\(_ :: _) -> _) |
55 | a | 58 | (_rhs []) |
59 | (\(e :: _) (f :: _) -> _rhs ((c, e) : zip d f)) | ||
60 | b) | ||
61 | a | ||
56 | 62 | ||
57 | unzip :: forall (a :: _) (b :: _) . [(a, b)] -> ([a], [b]) | 63 | unzip :: forall (a :: _) (b :: _) . [(a, b)] -> ([a], [b]) |
58 | unzip | 64 | unzip |
59 | = \(a :: _) -> case'List | 65 | = _lhs |
60 | (\(_ :: _) -> _) | 66 | unzip |
61 | (_rhs ([], [])) | 67 | \(a :: _) -> case'List |
62 | (\(b :: _) (c :: _) -> hlistConsCase | 68 | (\(_ :: _) -> _) |
63 | _ | 69 | (_rhs ([], [])) |
64 | (\(d :: _) (e :: _) -> hlistConsCase | 70 | (\(b :: _) (c :: _) -> hlistConsCase |
65 | _ | 71 | _ |
66 | (\(f :: _) (g :: _) -> hlistNilCase | 72 | (\(d :: _) (e :: _) -> hlistConsCase |
67 | _ | 73 | _ |
68 | (_rhs | 74 | (\(f :: _) (g :: _) -> hlistNilCase |
69 | let | 75 | _ |
70 | h = _rhs (unzip c); | 76 | (_rhs |
71 | i | 77 | let |
72 | = _rhs | 78 | h = _lhs _bs_as (_rhs (unzip c)); |
73 | ((\(k :: _) -> hlistConsCase | 79 | i |
74 | _ | 80 | = _lhs |
75 | (\(_ :: _) (l :: _) -> hlistConsCase | 81 | bs |
76 | _ | 82 | (_rhs |
77 | (\(m :: _) (n :: _) -> hlistNilCase _ m n) | 83 | ((\(k :: _) -> hlistConsCase |
78 | l) | 84 | _ |
79 | k) | 85 | (\(_ :: _) (l :: _) -> hlistConsCase |
80 | h); | 86 | _ |
81 | j | 87 | (\(m :: _) (n :: _) -> hlistNilCase _ m n) |
82 | = _rhs | 88 | l) |
83 | ((\(o :: _) -> hlistConsCase | 89 | k) |
84 | _ | 90 | h)); |
85 | (\(p :: _) (q :: _) -> hlistConsCase | 91 | j |
86 | _ | 92 | = _lhs |
87 | (\(_ :: _) (r :: _) -> hlistNilCase _ p r) | 93 | as |
88 | q) | 94 | (_rhs |
89 | o) | 95 | ((\(o :: _) -> hlistConsCase |
90 | h) | 96 | _ |
91 | in (d : j, f : i)) | 97 | (\(p :: _) (q :: _) -> hlistConsCase |
92 | g) | 98 | _ |
93 | e) | 99 | (\(_ :: _) (r :: _) -> hlistNilCase _ p r) |
94 | b) | 100 | q) |
95 | a | 101 | o) |
102 | h)) | ||
103 | in (d : j, f : i)) | ||
104 | g) | ||
105 | e) | ||
106 | b) | ||
107 | a | ||
96 | 108 | ||
97 | filter | 109 | filter |
98 | = \(a :: _) (b :: _) -> case'List | 110 | = _lhs |
99 | (\(_ :: _) -> _) | 111 | filter |
100 | (_rhs []) | 112 | \(a :: _) (b :: _) -> case'List |
101 | (\(c :: _) (d :: _) -> _rhs | 113 | (\(_ :: _) -> _) |
102 | ((\(e :: _) -> case'Bool (\(_ :: _) -> _) (filter a d) (c : filter a d) e) | 114 | (_rhs []) |
103 | (a c))) | 115 | (\(c :: _) (d :: _) -> _rhs |
104 | b | 116 | ((\(e :: _) -> case'Bool (\(_ :: _) -> _) (filter a d) (c : filter a d) e) |
117 | (a c))) | ||
118 | b | ||
105 | 119 | ||
106 | tail :: forall (a :: _) . [a] -> [a] | 120 | tail :: forall (a :: _) . [a] -> [a] |
107 | tail | 121 | tail |
108 | = \(a :: _) -> case'List | 122 | = _lhs |
109 | (\(_ :: _) -> _) | 123 | tail |
110 | (_rhs undefined) | 124 | \(a :: _) -> case'List |
111 | (\(_ :: _) (b :: _) -> _rhs b) | 125 | (\(_ :: _) -> _) |
112 | a | 126 | (_rhs undefined) |
127 | (\(_ :: _) (b :: _) -> _rhs b) | ||
128 | a | ||
113 | 129 | ||
114 | pairs :: forall (a :: _) . [a] -> [(a, a)] | 130 | pairs :: forall (a :: _) . [a] -> [(a, a)] |
115 | pairs = \(a :: _) -> _rhs (zip a (tail a)) | 131 | pairs = _lhs pairs \(a :: _) -> _rhs (zip a (tail a)) |
116 | 132 | ||
117 | foldl' | 133 | foldl' |
118 | = \(a :: _) (b :: _) (c :: _) -> case'List | 134 | = _lhs |
119 | (\(_ :: _) -> _) | 135 | foldl' |
120 | (_rhs b) | 136 | \(a :: _) (b :: _) (c :: _) -> case'List |
121 | (\(d :: _) (e :: _) -> _rhs (foldl' a (a b d) e)) | 137 | (\(_ :: _) -> _) |
122 | c | 138 | (_rhs b) |
139 | (\(d :: _) (e :: _) -> _rhs (foldl' a (a b d) e)) | ||
140 | c | ||
123 | 141 | ||
124 | foldr1 | 142 | foldr1 |
125 | = \(a :: _) (b :: _) -> case'List | 143 | = _lhs |
126 | (\(_ :: _) -> _) | 144 | foldr1 |
127 | (_rhs undefined) | 145 | \(a :: _) (b :: _) -> case'List |
128 | (\(c :: _) (d :: _) -> _rhs (foldr a c d)) | 146 | (\(_ :: _) -> _) |
129 | b | 147 | (_rhs undefined) |
148 | (\(c :: _) (d :: _) -> _rhs (foldr a c d)) | ||
149 | b | ||
130 | 150 | ||
131 | split | 151 | split |
132 | = \(a :: _) -> case'List | 152 | = _lhs |
133 | (\(_ :: _) -> _) | 153 | split |
134 | (_rhs ([], [])) | 154 | \(a :: _) -> case'List |
135 | (\(b :: _) (c :: _) -> _rhs | 155 | (\(_ :: _) -> _) |
136 | let | 156 | (_rhs ([], [])) |
137 | d = _rhs (split c); | 157 | (\(b :: _) (c :: _) -> _rhs |
138 | e | 158 | let |
139 | = _rhs | 159 | d = _lhs _bs_as (_rhs (split c)); |
140 | ((\(g :: _) -> hlistConsCase | 160 | e |
141 | _ | 161 | = _lhs |
142 | (\(_ :: _) (h :: _) -> hlistConsCase | 162 | bs |
143 | _ | 163 | (_rhs |
144 | (\(i :: _) (j :: _) -> hlistNilCase _ i j) | 164 | ((\(g :: _) -> hlistConsCase |
145 | h) | 165 | _ |
146 | g) | 166 | (\(_ :: _) (h :: _) -> hlistConsCase |
147 | d); | 167 | _ |
148 | f | 168 | (\(i :: _) (j :: _) -> hlistNilCase _ i j) |
149 | = _rhs | 169 | h) |
150 | ((\(k :: _) -> hlistConsCase | 170 | g) |
151 | _ | 171 | d)); |
152 | (\(l :: _) (m :: _) -> hlistConsCase | 172 | f |
153 | _ | 173 | = _lhs |
154 | (\(_ :: _) (n :: _) -> hlistNilCase _ l n) | 174 | as |
155 | m) | 175 | (_rhs |
156 | k) | 176 | ((\(k :: _) -> hlistConsCase |
157 | d) | 177 | _ |
158 | in (b : e, f)) | 178 | (\(l :: _) (m :: _) -> hlistConsCase |
159 | a | 179 | _ |
180 | (\(_ :: _) (n :: _) -> hlistNilCase _ l n) | ||
181 | m) | ||
182 | k) | ||
183 | d)) | ||
184 | in (b : e, f)) | ||
185 | a | ||
160 | 186 | ||
161 | mergeBy | 187 | mergeBy |
162 | = \(a :: _) (b :: _) (c :: _) -> case'List | 188 | = _lhs |
163 | (\(_ :: _) -> _) | 189 | mergeBy |
164 | (_rhs c) | 190 | \(a :: _) (b :: _) (c :: _) -> case'List |
165 | (\(d :: _) (e :: _) -> case'List | ||
166 | (\(_ :: _) -> _) | 191 | (\(_ :: _) -> _) |
167 | (_rhs b) | 192 | (_rhs c) |
168 | (\(f :: _) (g :: _) -> _rhs | 193 | (\(d :: _) (e :: _) -> case'List |
169 | ((\(h :: _) -> case'Ordering | 194 | (\(_ :: _) -> _) |
170 | (\(_ :: _) -> _) | 195 | (_rhs b) |
171 | (d : mergeBy a e (f : g)) | 196 | (\(f :: _) (g :: _) -> _rhs |
172 | (f : mergeBy a (d : e) g) | 197 | ((\(h :: _) -> case'Ordering |
173 | (f : mergeBy a (d : e) g) | 198 | (\(_ :: _) -> _) |
174 | h) | 199 | (d : mergeBy a e (f : g)) |
175 | (a d f))) | 200 | (f : mergeBy a (d : e) g) |
176 | c) | 201 | (f : mergeBy a (d : e) g) |
177 | b | 202 | h) |
203 | (a d f))) | ||
204 | c) | ||
205 | b | ||
178 | 206 | ||
179 | sortBy | 207 | sortBy |
180 | = \(a :: _) (b :: _) -> case'List | 208 | = _lhs |
181 | (\(_ :: _) -> _) | 209 | sortBy |
182 | (_rhs []) | 210 | \(a :: _) (b :: _) -> case'List |
183 | (\(c :: _) (d :: _) -> case'List | ||
184 | (\(_ :: _) -> _) | 211 | (\(_ :: _) -> _) |
185 | (_rhs [c]) | 212 | (_rhs []) |
186 | (\(_ :: _) (_ :: _) -> _rhs | 213 | (\(c :: _) (d :: _) -> case'List |
187 | (uncurry (mergeBy a) ((sortBy a *** sortBy a) (split b)))) | 214 | (\(_ :: _) -> _) |
188 | d) | 215 | (_rhs [c]) |
189 | b | 216 | (\(_ :: _) (_ :: _) -> _rhs |
217 | (uncurry (mergeBy a) ((sortBy a *** sortBy a) (split b)))) | ||
218 | d) | ||
219 | b | ||
190 | 220 | ||
191 | iterate :: forall (a :: _) . (a -> a) -> a -> [a] | 221 | iterate :: forall (a :: _) . (a -> a) -> a -> [a] |
192 | iterate = \(a :: _) (b :: _) -> _rhs (b : iterate a (a b)) | 222 | iterate = _lhs iterate \(a :: _) (b :: _) -> _rhs (b : iterate a (a b)) |
193 | 223 | ||
194 | fst | 224 | fst |
195 | = \(a :: _) -> hlistConsCase | 225 | = _lhs |
196 | _ | 226 | fst |
197 | (\(b :: _) (c :: _) -> hlistConsCase | 227 | \(a :: _) -> hlistConsCase |
198 | _ | 228 | _ |
199 | (\(_ :: _) (d :: _) -> hlistNilCase _ (_rhs b) d) | 229 | (\(b :: _) (c :: _) -> hlistConsCase |
200 | c) | 230 | _ |
201 | a | 231 | (\(_ :: _) (d :: _) -> hlistNilCase _ (_rhs b) d) |
232 | c) | ||
233 | a | ||
202 | 234 | ||
203 | snd | 235 | snd |
204 | = \(a :: _) -> hlistConsCase | 236 | = _lhs |
205 | _ | 237 | snd |
206 | (\(_ :: _) (b :: _) -> hlistConsCase | 238 | \(a :: _) -> hlistConsCase |
207 | _ | 239 | _ |
208 | (\(c :: _) (d :: _) -> hlistNilCase _ (_rhs c) d) | 240 | (\(_ :: _) (b :: _) -> hlistConsCase |
209 | b) | 241 | _ |
210 | a | 242 | (\(c :: _) (d :: _) -> hlistNilCase _ (_rhs c) d) |
243 | b) | ||
244 | a | ||
211 | 245 | ||
212 | (|||) = \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs b) (_rhs True) a | 246 | (|||) |
247 | = _lhs | ||
248 | (|||) | ||
249 | \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs b) (_rhs True) a | ||
213 | 250 | ||
214 | infixr 2 ||| | 251 | infixr 2 ||| |
215 | 252 | ||
216 | (&&&) = \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs False) (_rhs b) a | 253 | (&&&) |
254 | = _lhs | ||
255 | (&&&) | ||
256 | \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs False) (_rhs b) a | ||
217 | 257 | ||
218 | infixr 3 &&& | 258 | infixr 3 &&& |
219 | 259 | ||
@@ -221,255 +261,263 @@ data RecItem :: Type where | |||
221 | RecItem :: String -> Type -> RecItem | 261 | RecItem :: String -> Type -> RecItem |
222 | 262 | ||
223 | recItemType | 263 | recItemType |
224 | = \(a :: _) -> case'RecItem (\(_ :: _) -> _) (\(_ :: _) (b :: _) -> _rhs b) a | 264 | = _lhs |
265 | recItemType | ||
266 | \(a :: _) -> case'RecItem (\(_ :: _) -> _) (\(_ :: _) (b :: _) -> _rhs b) a | ||
225 | 267 | ||
226 | data RecordC (_ :: [RecItem]) :: Type where | 268 | data RecordC (_ :: [RecItem]) :: Type where |
227 | RecordCons :: forall (a :: [RecItem]) . HList (map recItemType a) -> RecordC a | 269 | RecordCons :: forall (a :: [RecItem]) . HList (map recItemType a) -> RecordC a |
228 | 270 | ||
229 | isKeyC | 271 | isKeyC |
230 | = \(a :: _) (b :: _) (c :: _) -> case'List | 272 | = _lhs |
231 | (\(_ :: _) -> _) | 273 | isKeyC |
232 | (_rhs ('CEmpty "")) | 274 | \(a :: _) (b :: _) (c :: _) -> case'List |
233 | (\(d :: _) (e :: _) -> case'RecItem | ||
234 | (\(_ :: _) -> _) | 275 | (\(_ :: _) -> _) |
235 | (\(f :: _) (g :: _) -> _rhs | 276 | (_rhs ('CEmpty "")) |
236 | (primIfThenElse (a == f) (b `'EqCTt` g) (isKeyC a b e))) | 277 | (\(d :: _) (e :: _) -> case'RecItem |
237 | d) | 278 | (\(_ :: _) -> _) |
238 | c | 279 | (\(f :: _) (g :: _) -> _rhs |
280 | (primIfThenElse (a == f) (b `'EqCTt` g) (isKeyC a b e))) | ||
281 | d) | ||
282 | c | ||
239 | 283 | ||
240 | fstTup = _rhs (hlistConsCase (_ :: _) \(a :: _) (_ :: _) -> a) | 284 | fstTup = _lhs fstTup (_rhs (hlistConsCase (_ :: _) \(a :: _) (_ :: _) -> a)) |
241 | 285 | ||
242 | sndTup = _rhs (hlistConsCase (_ :: _) \(_ :: _) (a :: _) -> a) | 286 | sndTup = _lhs sndTup (_rhs (hlistConsCase (_ :: _) \(_ :: _) (a :: _) -> a)) |
243 | 287 | ||
244 | project | 288 | project |
245 | :: forall (a :: _) (b :: [RecItem]) | 289 | :: forall (a :: _) (b :: [RecItem]) |
246 | . forall (c :: String) -> isKeyC c a b => RecordC b -> a | 290 | . forall (c :: String) -> isKeyC c a b => RecordC b -> a |
247 | project | 291 | project |
248 | = \ @(a :: _) @(b :: _) (c :: _) @(_ :: _) (d :: _) -> case'List | 292 | = _lhs |
249 | (\(_ :: _) -> _) | 293 | project |
250 | (_rhs undefined) | 294 | \ @(a :: _) @(b :: _) (c :: _) @(_ :: _) (d :: _) -> case'List |
251 | (\(e :: _) (f :: _) -> case'RecItem | ||
252 | (\(_ :: _) -> _) | 295 | (\(_ :: _) -> _) |
253 | (\(g :: _) (_ :: _) -> case'RecordC | 296 | (_rhs undefined) |
297 | (\(e :: _) (f :: _) -> case'RecItem | ||
254 | (\(_ :: _) -> _) | 298 | (\(_ :: _) -> _) |
255 | (\(h :: _) -> case'Bool | 299 | (\(g :: _) (_ :: _) -> case'RecordC |
256 | (\(_ :: _) -> _) | 300 | (\(_ :: _) -> _) |
257 | (_rhs | 301 | (\(h :: _) -> case'Bool |
258 | (project | 302 | (\(_ :: _) -> _) |
259 | @a | 303 | (_rhs |
260 | @f | 304 | (project |
261 | c | 305 | @a |
262 | @(undefined @('CW (isKeyC c a f))) | 306 | @f |
263 | (RecordCons | 307 | c |
264 | (sndTup (unsafeCoerce @(_ :: _) @('HList (a : map recItemType f)) h))))) | 308 | @(undefined @('CW (isKeyC c a f))) |
265 | (_rhs (fstTup (unsafeCoerce @(_ :: _) @('HList (a : map recItemType f)) h))) | 309 | (RecordCons |
266 | (c == g)) | 310 | (sndTup (unsafeCoerce @(_ :: _) @('HList (a : map recItemType f)) h))))) |
267 | d) | 311 | (_rhs (fstTup (unsafeCoerce @(_ :: _) @('HList (a : map recItemType f)) h))) |
268 | e) | 312 | (c == g)) |
269 | b | 313 | d) |
314 | e) | ||
315 | b | ||
270 | 316 | ||
271 | rgb = \(a :: _) (b :: _) (c :: _) -> _rhs (V4 a b c 1.0) | 317 | rgb = _lhs rgb \(a :: _) (b :: _) (c :: _) -> _rhs (V4 a b c 1.0) |
272 | 318 | ||
273 | black = _rhs (rgb 0.0 0.0 0.0) | 319 | black = _lhs black (_rhs (rgb 0.0 0.0 0.0)) |
274 | 320 | ||
275 | gray = _rhs (rgb 0.5 0.5 0.5) | 321 | gray = _lhs gray (_rhs (rgb 0.5 0.5 0.5)) |
276 | 322 | ||
277 | silver = _rhs (rgb 0.75 0.75 0.75) | 323 | silver = _lhs silver (_rhs (rgb 0.75 0.75 0.75)) |
278 | 324 | ||
279 | white = _rhs (rgb 1.0 1.0 1.0) | 325 | white = _lhs white (_rhs (rgb 1.0 1.0 1.0)) |
280 | 326 | ||
281 | maroon = _rhs (rgb 0.5 0.0 0.0) | 327 | maroon = _lhs maroon (_rhs (rgb 0.5 0.0 0.0)) |
282 | 328 | ||
283 | red = _rhs (rgb 1.0 0.0 0.0) | 329 | red = _lhs red (_rhs (rgb 1.0 0.0 0.0)) |
284 | 330 | ||
285 | olive = _rhs (rgb 0.5 0.5 0.0) | 331 | olive = _lhs olive (_rhs (rgb 0.5 0.5 0.0)) |
286 | 332 | ||
287 | yellow = _rhs (rgb 1.0 1.0 0.0) | 333 | yellow = _lhs yellow (_rhs (rgb 1.0 1.0 0.0)) |
288 | 334 | ||
289 | green = _rhs (rgb 0.0 0.5 0.0) | 335 | green = _lhs green (_rhs (rgb 0.0 0.5 0.0)) |
290 | 336 | ||
291 | lime = _rhs (rgb 0.0 1.0 0.0) | 337 | lime = _lhs lime (_rhs (rgb 0.0 1.0 0.0)) |
292 | 338 | ||
293 | teal = _rhs (rgb 0.0 0.5 0.5) | 339 | teal = _lhs teal (_rhs (rgb 0.0 0.5 0.5)) |
294 | 340 | ||
295 | aqua = _rhs (rgb 0.0 1.0 1.0) | 341 | aqua = _lhs aqua (_rhs (rgb 0.0 1.0 1.0)) |
296 | 342 | ||
297 | navy = _rhs (rgb 0.0 0.0 0.5) | 343 | navy = _lhs navy (_rhs (rgb 0.0 0.0 0.5)) |
298 | 344 | ||
299 | blue = _rhs (rgb 0.0 0.0 1.0) | 345 | blue = _lhs blue (_rhs (rgb 0.0 0.0 1.0)) |
300 | 346 | ||
301 | purple = _rhs (rgb 0.5 0.0 0.5) | 347 | purple = _lhs purple (_rhs (rgb 0.5 0.0 0.5)) |
302 | 348 | ||
303 | fuchsia = _rhs (rgb 1.0 0.0 1.0) | 349 | fuchsia = _lhs fuchsia (_rhs (rgb 1.0 0.0 1.0)) |
304 | 350 | ||
305 | colorImage1 = _rhs (ColorImage @(fromInt 1)) | 351 | colorImage1 = _lhs colorImage1 (_rhs (ColorImage @(fromInt 1))) |
306 | 352 | ||
307 | colorImage2 = _rhs (ColorImage @(fromInt 2)) | 353 | colorImage2 = _lhs colorImage2 (_rhs (ColorImage @(fromInt 2))) |
308 | 354 | ||
309 | depthImage1 = _rhs (DepthImage @(fromInt 1)) | 355 | depthImage1 = _lhs depthImage1 (_rhs (DepthImage @(fromInt 1))) |
310 | 356 | ||
311 | v3FToV4F :: Vec (fromInt 3) Float -> Vec (fromInt 4) Float | 357 | v3FToV4F :: Vec (fromInt 3) Float -> Vec (fromInt 4) Float |
312 | v3FToV4F | 358 | v3FToV4F |
313 | = \(a :: _) -> _rhs | 359 | = _lhs |
314 | (V4 (swizzscalar a Sx) (swizzscalar a Sy) (swizzscalar a Sz) (fromInt 1)) | 360 | v3FToV4F |
361 | \(a :: _) -> _rhs | ||
362 | (V4 (swizzscalar a Sx) (swizzscalar a Sy) (swizzscalar a Sz) (fromInt 1)) | ||
315 | 363 | ||
316 | radians = _rhs PrimRadians | 364 | radians = _lhs radians (_rhs PrimRadians) |
317 | 365 | ||
318 | degrees = _rhs PrimDegrees | 366 | degrees = _lhs degrees (_rhs PrimDegrees) |
319 | 367 | ||
320 | sin = _rhs PrimSin | 368 | sin = _lhs sin (_rhs PrimSin) |
321 | 369 | ||
322 | cos = _rhs PrimCos | 370 | cos = _lhs cos (_rhs PrimCos) |
323 | 371 | ||
324 | tan = _rhs PrimTan | 372 | tan = _lhs tan (_rhs PrimTan) |
325 | 373 | ||
326 | sinh = _rhs PrimSinH | 374 | sinh = _lhs sinh (_rhs PrimSinH) |
327 | 375 | ||
328 | cosh = _rhs PrimCosH | 376 | cosh = _lhs cosh (_rhs PrimCosH) |
329 | 377 | ||
330 | tanh = _rhs PrimTanH | 378 | tanh = _lhs tanh (_rhs PrimTanH) |
331 | 379 | ||
332 | asin = _rhs PrimASin | 380 | asin = _lhs asin (_rhs PrimASin) |
333 | 381 | ||
334 | asinh = _rhs PrimASinH | 382 | asinh = _lhs asinh (_rhs PrimASinH) |
335 | 383 | ||
336 | acos = _rhs PrimACos | 384 | acos = _lhs acos (_rhs PrimACos) |
337 | 385 | ||
338 | acosh = _rhs PrimACosH | 386 | acosh = _lhs acosh (_rhs PrimACosH) |
339 | 387 | ||
340 | atan = _rhs PrimATan | 388 | atan = _lhs atan (_rhs PrimATan) |
341 | 389 | ||
342 | atanh = _rhs PrimATanH | 390 | atanh = _lhs atanh (_rhs PrimATanH) |
343 | 391 | ||
344 | atan2 = _rhs PrimATan2 | 392 | atan2 = _lhs atan2 (_rhs PrimATan2) |
345 | 393 | ||
346 | pow = _rhs PrimPow | 394 | pow = _lhs pow (_rhs PrimPow) |
347 | 395 | ||
348 | exp = _rhs PrimExp | 396 | exp = _lhs exp (_rhs PrimExp) |
349 | 397 | ||
350 | log = _rhs PrimLog | 398 | log = _lhs log (_rhs PrimLog) |
351 | 399 | ||
352 | exp2 = _rhs PrimExp2 | 400 | exp2 = _lhs exp2 (_rhs PrimExp2) |
353 | 401 | ||
354 | log2 = _rhs PrimLog2 | 402 | log2 = _lhs log2 (_rhs PrimLog2) |
355 | 403 | ||
356 | sqrt = _rhs PrimSqrt | 404 | sqrt = _lhs sqrt (_rhs PrimSqrt) |
357 | 405 | ||
358 | inversesqrt = _rhs PrimInvSqrt | 406 | inversesqrt = _lhs inversesqrt (_rhs PrimInvSqrt) |
359 | 407 | ||
360 | abs = _rhs PrimAbs | 408 | abs = _lhs abs (_rhs PrimAbs) |
361 | 409 | ||
362 | sign = _rhs PrimSign | 410 | sign = _lhs sign (_rhs PrimSign) |
363 | 411 | ||
364 | floor = _rhs PrimFloor | 412 | floor = _lhs floor (_rhs PrimFloor) |
365 | 413 | ||
366 | trunc = _rhs PrimTrunc | 414 | trunc = _lhs trunc (_rhs PrimTrunc) |
367 | 415 | ||
368 | round = _rhs PrimRound | 416 | round = _lhs round (_rhs PrimRound) |
369 | 417 | ||
370 | roundEven = _rhs PrimRoundEven | 418 | roundEven = _lhs roundEven (_rhs PrimRoundEven) |
371 | 419 | ||
372 | ceil = _rhs PrimCeil | 420 | ceil = _lhs ceil (_rhs PrimCeil) |
373 | 421 | ||
374 | fract = _rhs PrimFract | 422 | fract = _lhs fract (_rhs PrimFract) |
375 | 423 | ||
376 | mod = _rhs PrimMod | 424 | mod = _lhs mod (_rhs PrimMod) |
377 | 425 | ||
378 | min = _rhs PrimMin | 426 | min = _lhs min (_rhs PrimMin) |
379 | 427 | ||
380 | max = _rhs PrimMax | 428 | max = _lhs max (_rhs PrimMax) |
381 | 429 | ||
382 | modF = _rhs PrimModF | 430 | modF = _lhs modF (_rhs PrimModF) |
383 | 431 | ||
384 | clamp = _rhs PrimClamp | 432 | clamp = _lhs clamp (_rhs PrimClamp) |
385 | 433 | ||
386 | clampS = _rhs PrimClampS | 434 | clampS = _lhs clampS (_rhs PrimClampS) |
387 | 435 | ||
388 | mix = _rhs PrimMix | 436 | mix = _lhs mix (_rhs PrimMix) |
389 | 437 | ||
390 | mixS = _rhs PrimMixS | 438 | mixS = _lhs mixS (_rhs PrimMixS) |
391 | 439 | ||
392 | mixB = _rhs PrimMixB | 440 | mixB = _lhs mixB (_rhs PrimMixB) |
393 | 441 | ||
394 | step = _rhs PrimStep | 442 | step = _lhs step (_rhs PrimStep) |
395 | 443 | ||
396 | stepS = _rhs PrimStepS | 444 | stepS = _lhs stepS (_rhs PrimStepS) |
397 | 445 | ||
398 | smoothstep = _rhs PrimSmoothStep | 446 | smoothstep = _lhs smoothstep (_rhs PrimSmoothStep) |
399 | 447 | ||
400 | smoothstepS = _rhs PrimSmoothStepS | 448 | smoothstepS = _lhs smoothstepS (_rhs PrimSmoothStepS) |
401 | 449 | ||
402 | isNan = _rhs PrimIsNan | 450 | isNan = _lhs isNan (_rhs PrimIsNan) |
403 | 451 | ||
404 | isInf = _rhs PrimIsInf | 452 | isInf = _lhs isInf (_rhs PrimIsInf) |
405 | 453 | ||
406 | dFdx = _rhs PrimDFdx | 454 | dFdx = _lhs dFdx (_rhs PrimDFdx) |
407 | 455 | ||
408 | dFdy = _rhs PrimDFdy | 456 | dFdy = _lhs dFdy (_rhs PrimDFdy) |
409 | 457 | ||
410 | fWidth = _rhs PrimFWidth | 458 | fWidth = _lhs fWidth (_rhs PrimFWidth) |
411 | 459 | ||
412 | noise1 = _rhs PrimNoise1 | 460 | noise1 = _lhs noise1 (_rhs PrimNoise1) |
413 | 461 | ||
414 | noise2 = _rhs PrimNoise2 | 462 | noise2 = _lhs noise2 (_rhs PrimNoise2) |
415 | 463 | ||
416 | noise3 = _rhs PrimNoise3 | 464 | noise3 = _lhs noise3 (_rhs PrimNoise3) |
417 | 465 | ||
418 | noise4 = _rhs PrimNoise4 | 466 | noise4 = _lhs noise4 (_rhs PrimNoise4) |
419 | 467 | ||
420 | length = _rhs PrimLength | 468 | length = _lhs length (_rhs PrimLength) |
421 | 469 | ||
422 | distance = _rhs PrimDistance | 470 | distance = _lhs distance (_rhs PrimDistance) |
423 | 471 | ||
424 | dot = _rhs PrimDot | 472 | dot = _lhs dot (_rhs PrimDot) |
425 | 473 | ||
426 | cross = _rhs PrimCross | 474 | cross = _lhs cross (_rhs PrimCross) |
427 | 475 | ||
428 | normalize = _rhs PrimNormalize | 476 | normalize = _lhs normalize (_rhs PrimNormalize) |
429 | 477 | ||
430 | faceforward = _rhs PrimFaceForward | 478 | faceforward = _lhs faceforward (_rhs PrimFaceForward) |
431 | 479 | ||
432 | reflect = _rhs PrimReflect | 480 | reflect = _lhs reflect (_rhs PrimReflect) |
433 | 481 | ||
434 | refract = _rhs PrimRefract | 482 | refract = _lhs refract (_rhs PrimRefract) |
435 | 483 | ||
436 | transpose = _rhs PrimTranspose | 484 | transpose = _lhs transpose (_rhs PrimTranspose) |
437 | 485 | ||
438 | det = _rhs PrimDeterminant | 486 | det = _lhs det (_rhs PrimDeterminant) |
439 | 487 | ||
440 | inv = _rhs PrimInverse | 488 | inv = _lhs inv (_rhs PrimInverse) |
441 | 489 | ||
442 | outer = _rhs PrimOuterProduct | 490 | outer = _lhs outer (_rhs PrimOuterProduct) |
443 | 491 | ||
444 | bAnd = _rhs PrimBAnd | 492 | bAnd = _lhs bAnd (_rhs PrimBAnd) |
445 | 493 | ||
446 | bOr = _rhs PrimBOr | 494 | bOr = _lhs bOr (_rhs PrimBOr) |
447 | 495 | ||
448 | bXor = _rhs PrimBXor | 496 | bXor = _lhs bXor (_rhs PrimBXor) |
449 | 497 | ||
450 | bNot = _rhs PrimBNot | 498 | bNot = _lhs bNot (_rhs PrimBNot) |
451 | 499 | ||
452 | bAndS = _rhs PrimBAndS | 500 | bAndS = _lhs bAndS (_rhs PrimBAndS) |
453 | 501 | ||
454 | bOrS = _rhs PrimBOrS | 502 | bOrS = _lhs bOrS (_rhs PrimBOrS) |
455 | 503 | ||
456 | bXorS = _rhs PrimBXorS | 504 | bXorS = _lhs bXorS (_rhs PrimBXorS) |
457 | 505 | ||
458 | shiftL = _rhs PrimBShiftL | 506 | shiftL = _lhs shiftL (_rhs PrimBShiftL) |
459 | 507 | ||
460 | shiftR = _rhs PrimBShiftR | 508 | shiftR = _lhs shiftR (_rhs PrimBShiftR) |
461 | 509 | ||
462 | shiftLS = _rhs PrimBShiftLS | 510 | shiftLS = _lhs shiftLS (_rhs PrimBShiftLS) |
463 | 511 | ||
464 | shiftRS = _rhs PrimBShiftRS | 512 | shiftRS = _lhs shiftRS (_rhs PrimBShiftRS) |
465 | 513 | ||
466 | floatBitsToInt = _rhs PrimFloatBitsToInt | 514 | floatBitsToInt = _lhs floatBitsToInt (_rhs PrimFloatBitsToInt) |
467 | 515 | ||
468 | floatBitsToWord = _rhs PrimFloatBitsToUInt | 516 | floatBitsToWord = _lhs floatBitsToWord (_rhs PrimFloatBitsToUInt) |
469 | 517 | ||
470 | intBitsToFloat = _rhs PrimIntBitsToFloat | 518 | intBitsToFloat = _lhs intBitsToFloat (_rhs PrimIntBitsToFloat) |
471 | 519 | ||
472 | wordBitsToFloat = _rhs PrimUIntBitsToFloat | 520 | wordBitsToFloat = _lhs wordBitsToFloat (_rhs PrimUIntBitsToFloat) |
473 | 521 | ||
474 | infixl 7 * | 522 | infixl 7 * |
475 | 523 | ||
@@ -505,45 +553,45 @@ infixl 7 .* | |||
505 | 553 | ||
506 | infixl 7 .*. | 554 | infixl 7 .*. |
507 | 555 | ||
508 | (+) = \(a :: _) (b :: _) -> _rhs (PrimAdd a b) | 556 | (+) = _lhs (+) \(a :: _) (b :: _) -> _rhs (PrimAdd a b) |
509 | 557 | ||
510 | (-) = \(a :: _) (b :: _) -> _rhs (PrimSub a b) | 558 | (-) = _lhs (-) \(a :: _) (b :: _) -> _rhs (PrimSub a b) |
511 | 559 | ||
512 | (*) = \(a :: _) (b :: _) -> _rhs (PrimMul a b) | 560 | (*) = _lhs (*) \(a :: _) (b :: _) -> _rhs (PrimMul a b) |
513 | 561 | ||
514 | (/) = \(a :: _) (b :: _) -> _rhs (PrimDiv a b) | 562 | (/) = _lhs (/) \(a :: _) (b :: _) -> _rhs (PrimDiv a b) |
515 | 563 | ||
516 | (%) = \(a :: _) (b :: _) -> _rhs (PrimMod a b) | 564 | (%) = _lhs (%) \(a :: _) (b :: _) -> _rhs (PrimMod a b) |
517 | 565 | ||
518 | neg = \(a :: _) -> _rhs (PrimNeg a) | 566 | neg = _lhs neg \(a :: _) -> _rhs (PrimNeg a) |
519 | 567 | ||
520 | (/=) = \(a :: _) (b :: _) -> _rhs (PrimNotEqual a b) | 568 | (/=) = _lhs (/=) \(a :: _) (b :: _) -> _rhs (PrimNotEqual a b) |
521 | 569 | ||
522 | (<) = \(a :: _) (b :: _) -> _rhs (PrimLessThan a b) | 570 | (<) = _lhs (<) \(a :: _) (b :: _) -> _rhs (PrimLessThan a b) |
523 | 571 | ||
524 | (<=) = \(a :: _) (b :: _) -> _rhs (PrimLessThanEqual a b) | 572 | (<=) = _lhs (<=) \(a :: _) (b :: _) -> _rhs (PrimLessThanEqual a b) |
525 | 573 | ||
526 | (>=) = \(a :: _) (b :: _) -> _rhs (PrimGreaterThanEqual a b) | 574 | (>=) = _lhs (>=) \(a :: _) (b :: _) -> _rhs (PrimGreaterThanEqual a b) |
527 | 575 | ||
528 | (>) = \(a :: _) (b :: _) -> _rhs (PrimGreaterThan a b) | 576 | (>) = _lhs (>) \(a :: _) (b :: _) -> _rhs (PrimGreaterThan a b) |
529 | 577 | ||
530 | (&&) = \(a :: _) (b :: _) -> _rhs (PrimAnd a b) | 578 | (&&) = _lhs (&&) \(a :: _) (b :: _) -> _rhs (PrimAnd a b) |
531 | 579 | ||
532 | (||) = \(a :: _) (b :: _) -> _rhs (PrimOr a b) | 580 | (||) = _lhs (||) \(a :: _) (b :: _) -> _rhs (PrimOr a b) |
533 | 581 | ||
534 | xor = _rhs PrimXor | 582 | xor = _lhs xor (_rhs PrimXor) |
535 | 583 | ||
536 | not = \(a :: _) -> _rhs (PrimNot a) | 584 | not = _lhs not \(a :: _) -> _rhs (PrimNot a) |
537 | 585 | ||
538 | any = \(a :: _) -> _rhs (PrimAny a) | 586 | any = _lhs any \(a :: _) -> _rhs (PrimAny a) |
539 | 587 | ||
540 | all = \(a :: _) -> _rhs (PrimAll a) | 588 | all = _lhs all \(a :: _) -> _rhs (PrimAll a) |
541 | 589 | ||
542 | (.*.) = \(a :: _) (b :: _) -> _rhs (PrimMulMatMat a b) | 590 | (.*.) = _lhs (.*.) \(a :: _) (b :: _) -> _rhs (PrimMulMatMat a b) |
543 | 591 | ||
544 | (*.) = \(a :: _) (b :: _) -> _rhs (PrimMulMatVec a b) | 592 | (*.) = _lhs (*.) \(a :: _) (b :: _) -> _rhs (PrimMulMatVec a b) |
545 | 593 | ||
546 | (.*) = \(a :: _) (b :: _) -> _rhs (PrimMulVecMat a b) | 594 | (.*) = _lhs (.*) \(a :: _) (b :: _) -> _rhs (PrimMulVecMat a b) |
547 | 595 | ||
548 | infixl 7 *! | 596 | infixl 7 *! |
549 | 597 | ||
@@ -555,118 +603,142 @@ infixl 6 +! | |||
555 | 603 | ||
556 | infixl 6 -! | 604 | infixl 6 -! |
557 | 605 | ||
558 | (+!) = \(a :: _) (b :: _) -> _rhs (PrimAddS a b) | 606 | (+!) = _lhs (+!) \(a :: _) (b :: _) -> _rhs (PrimAddS a b) |
559 | 607 | ||
560 | (-!) = \(a :: _) (b :: _) -> _rhs (PrimSubS a b) | 608 | (-!) = _lhs (-!) \(a :: _) (b :: _) -> _rhs (PrimSubS a b) |
561 | 609 | ||
562 | (*!) = \(a :: _) (b :: _) -> _rhs (PrimMulS a b) | 610 | (*!) = _lhs (*!) \(a :: _) (b :: _) -> _rhs (PrimMulS a b) |
563 | 611 | ||
564 | (/!) = \(a :: _) (b :: _) -> _rhs (PrimDivS a b) | 612 | (/!) = _lhs (/!) \(a :: _) (b :: _) -> _rhs (PrimDivS a b) |
565 | 613 | ||
566 | (%!) = \(a :: _) (b :: _) -> _rhs (PrimModS a b) | 614 | (%!) = _lhs (%!) \(a :: _) (b :: _) -> _rhs (PrimModS a b) |
567 | 615 | ||
568 | perspective | 616 | perspective |
569 | :: Float -> Float -> Float -> Float -> Mat (fromInt 4) (fromInt 4) Float | 617 | :: Float -> Float -> Float -> Float -> Mat (fromInt 4) (fromInt 4) Float |
570 | perspective | 618 | perspective |
571 | = \(a :: _) (b :: _) (c :: _) (d :: _) -> _rhs | 619 | = _lhs |
572 | let | 620 | perspective |
573 | e = _rhs (a * tan (c / fromInt 2)); | 621 | \(a :: _) (b :: _) (c :: _) (d :: _) -> _rhs |
574 | f = _rhs (fromInt 0 - e); | 622 | let |
575 | g = _rhs (d * e); | 623 | e = _lhs t (_rhs (a * tan (c / fromInt 2))); |
576 | h = _rhs (fromInt 0 - g) | 624 | f = _lhs b (_rhs (fromInt 0 - e)); |
577 | in M44F | 625 | g = _lhs r (_rhs (d * e)); |
578 | (V4 (fromInt 2 * a / (g - h)) (fromInt 0) (fromInt 0) (fromInt 0)) | 626 | h = _lhs l (_rhs (fromInt 0 - g)) |
579 | (V4 (fromInt 0) (fromInt 2 * a / (e - f)) (fromInt 0) (fromInt 0)) | 627 | in M44F |
580 | (V4 | 628 | (V4 (fromInt 2 * a / (g - h)) (fromInt 0) (fromInt 0) (fromInt 0)) |
581 | ((g + h) / (g - h)) | 629 | (V4 (fromInt 0) (fromInt 2 * a / (e - f)) (fromInt 0) (fromInt 0)) |
582 | ((e + f) / (e - f)) | 630 | (V4 |
583 | (fromInt 0 - (b + a) / (b - a)) | 631 | ((g + h) / (g - h)) |
584 | (fromInt 0 - fromInt 1)) | 632 | ((e + f) / (e - f)) |
585 | (V4 | 633 | (fromInt 0 - (b + a) / (b - a)) |
586 | (fromInt 0) | 634 | (fromInt 0 - fromInt 1)) |
587 | (fromInt 0) | 635 | (V4 |
588 | (fromInt 0 - fromInt 2 * b * a / (b - a)) | 636 | (fromInt 0) |
589 | (fromInt 0)) | 637 | (fromInt 0) |
638 | (fromInt 0 - fromInt 2 * b * a / (b - a)) | ||
639 | (fromInt 0)) | ||
590 | 640 | ||
591 | rotMatrixZ | 641 | rotMatrixZ |
592 | = \(a :: _) -> _rhs | 642 | = _lhs |
593 | let b = _rhs (cos a); c = _rhs (sin a) in M44F | 643 | rotMatrixZ |
594 | (V4 b c (fromInt 0) (fromInt 0)) | 644 | \(a :: _) -> _rhs |
595 | (V4 (fromInt 0 - c) b (fromInt 0) (fromInt 0)) | 645 | let b = _lhs c (_rhs (cos a)); c = _lhs s (_rhs (sin a)) in M44F |
596 | (V4 (fromInt 0) (fromInt 0) (fromInt 1) (fromInt 0)) | 646 | (V4 b c (fromInt 0) (fromInt 0)) |
597 | (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1)) | 647 | (V4 (fromInt 0 - c) b (fromInt 0) (fromInt 0)) |
648 | (V4 (fromInt 0) (fromInt 0) (fromInt 1) (fromInt 0)) | ||
649 | (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1)) | ||
598 | 650 | ||
599 | rotMatrixY | 651 | rotMatrixY |
600 | = \(a :: _) -> _rhs | 652 | = _lhs |
601 | let b = _rhs (cos a); c = _rhs (sin a) in M44F | 653 | rotMatrixY |
602 | (V4 b (fromInt 0) (fromInt 0 - c) (fromInt 0)) | 654 | \(a :: _) -> _rhs |
603 | (V4 (fromInt 0) (fromInt 1) (fromInt 0) (fromInt 0)) | 655 | let b = _lhs c (_rhs (cos a)); c = _lhs s (_rhs (sin a)) in M44F |
604 | (V4 c (fromInt 0) b (fromInt 0)) | 656 | (V4 b (fromInt 0) (fromInt 0 - c) (fromInt 0)) |
605 | (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1)) | 657 | (V4 (fromInt 0) (fromInt 1) (fromInt 0) (fromInt 0)) |
658 | (V4 c (fromInt 0) b (fromInt 0)) | ||
659 | (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1)) | ||
606 | 660 | ||
607 | rotMatrixX | 661 | rotMatrixX |
608 | = \(a :: _) -> _rhs | 662 | = _lhs |
609 | let b = _rhs (cos a); c = _rhs (sin a) in M44F | 663 | rotMatrixX |
610 | (V4 (fromInt 1) (fromInt 0) (fromInt 0) (fromInt 0)) | 664 | \(a :: _) -> _rhs |
611 | (V4 (fromInt 0) b c (fromInt 0)) | 665 | let b = _lhs c (_rhs (cos a)); c = _lhs s (_rhs (sin a)) in M44F |
612 | (V4 (fromInt 0) (fromInt 0 - c) b (fromInt 0)) | 666 | (V4 (fromInt 1) (fromInt 0) (fromInt 0) (fromInt 0)) |
613 | (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1)) | 667 | (V4 (fromInt 0) b c (fromInt 0)) |
668 | (V4 (fromInt 0) (fromInt 0 - c) b (fromInt 0)) | ||
669 | (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1)) | ||
614 | 670 | ||
615 | rotationEuler | 671 | rotationEuler |
616 | = \(a :: _) (b :: _) (c :: _) -> _rhs | 672 | = _lhs |
617 | (rotMatrixY a .*. rotMatrixX b .*. rotMatrixZ c) | 673 | rotationEuler |
674 | \(a :: _) (b :: _) (c :: _) -> _rhs | ||
675 | (rotMatrixY a .*. rotMatrixX b .*. rotMatrixZ c) | ||
618 | 676 | ||
619 | translateBefore4 :: Vec (fromInt 3) Float -> Mat (fromInt 4) (fromInt 4) Float | 677 | translateBefore4 :: Vec (fromInt 3) Float -> Mat (fromInt 4) (fromInt 4) Float |
620 | translateBefore4 | 678 | translateBefore4 |
621 | = \(a :: _) -> _rhs | 679 | = _lhs |
622 | let | 680 | translateBefore4 |
623 | b = _rhs (V4 (fromInt 1) (fromInt 0) (fromInt 0) (fromInt 0)); | 681 | \(a :: _) -> _rhs |
624 | c = _rhs (V4 (fromInt 0) (fromInt 1) (fromInt 0) (fromInt 0)); | 682 | let |
625 | d = _rhs (V4 (fromInt 0) (fromInt 0) (fromInt 1) (fromInt 0)); | 683 | b = _lhs r1 (_rhs (V4 (fromInt 1) (fromInt 0) (fromInt 0) (fromInt 0))); |
626 | e | 684 | c = _lhs r2 (_rhs (V4 (fromInt 0) (fromInt 1) (fromInt 0) (fromInt 0))); |
627 | = _rhs (V4 (swizzscalar a Sx) (swizzscalar a Sy) (swizzscalar a Sz) (fromInt 1)) | 685 | d = _lhs r3 (_rhs (V4 (fromInt 0) (fromInt 0) (fromInt 1) (fromInt 0))); |
628 | in M44F b c d e | 686 | e |
687 | = _lhs | ||
688 | r4 | ||
689 | (_rhs (V4 (swizzscalar a Sx) (swizzscalar a Sy) (swizzscalar a Sz) (fromInt 1))) | ||
690 | in M44F b c d e | ||
629 | 691 | ||
630 | lookat | 692 | lookat |
631 | :: Vec (fromInt 3) Float | 693 | :: Vec (fromInt 3) Float |
632 | -> Vec (fromInt 3) Float | 694 | -> Vec (fromInt 3) Float |
633 | -> Vec (fromInt 3) Float -> Mat (fromInt 4) (fromInt 4) Float | 695 | -> Vec (fromInt 3) Float -> Mat (fromInt 4) (fromInt 4) Float |
634 | lookat | 696 | lookat |
635 | = \(a :: _) (b :: _) (c :: _) -> _rhs | 697 | = _lhs |
636 | let | 698 | lookat |
637 | d | 699 | \(a :: _) (b :: _) (c :: _) -> _rhs |
638 | = \(i :: _) -> _rhs | 700 | let |
639 | (V4 (swizzscalar i Sx) (swizzscalar i Sy) (swizzscalar i Sz) (fromInt 0)); | 701 | d |
640 | e = _rhs (normalize $ a - b); | 702 | = _lhs |
641 | f = _rhs (normalize $ c `cross` e); | 703 | ext0 |
642 | g = _rhs (e `cross` f); | 704 | \(i :: _) -> _rhs |
643 | h | 705 | (V4 (swizzscalar i Sx) (swizzscalar i Sy) (swizzscalar i Sz) (fromInt 0)); |
644 | = _rhs | 706 | e = _lhs w (_rhs (normalize $ a - b)); |
645 | (transpose | 707 | f = _lhs u (_rhs (normalize $ c `cross` e)); |
646 | $ M44F (d f) (d g) (d e) (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1))) | 708 | g = _lhs v (_rhs (e `cross` f)); |
647 | in h .*. translateBefore4 (neg a) | 709 | h |
648 | 710 | = _lhs | |
649 | scale = \(a :: _) (b :: _) -> _rhs (b * V4 a a a 1.0) | 711 | r |
712 | (_rhs | ||
713 | (transpose | ||
714 | $ M44F (d f) (d g) (d e) (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1)))) | ||
715 | in h .*. translateBefore4 (neg a) | ||
716 | |||
717 | scale = _lhs scale \(a :: _) (b :: _) -> _rhs (b * V4 a a a 1.0) | ||
650 | 718 | ||
651 | fromTo :: Float -> Float -> [Float] | 719 | fromTo :: Float -> Float -> [Float] |
652 | fromTo | 720 | fromTo |
653 | = \(a :: _) (b :: _) -> case'Bool | 721 | = _lhs |
654 | (\(_ :: _) -> _) | 722 | fromTo |
655 | (_rhs (a : fromTo (a + fromInt 1) b)) | 723 | \(a :: _) (b :: _) -> case'Bool |
656 | (_rhs []) | 724 | (\(_ :: _) -> _) |
657 | (a > b) | 725 | (_rhs (a : fromTo (a + fromInt 1) b)) |
726 | (_rhs []) | ||
727 | (a > b) | ||
658 | 728 | ||
659 | (!!) :: forall (a :: _) . [a] -> Int -> a | 729 | (!!) :: forall (a :: _) . [a] -> Int -> a |
660 | (!!) | 730 | (!!) |
661 | = \(a :: _) (b :: _) -> case'List | 731 | = _lhs |
662 | (\(_ :: _) -> _) | 732 | (!!) |
663 | (_rhs undefined) | 733 | \(a :: _) (b :: _) -> case'List |
664 | (\(c :: _) (d :: _) -> case'Bool | ||
665 | (\(_ :: _) -> _) | 734 | (\(_ :: _) -> _) |
666 | (_rhs (d !! (b - fromInt 1))) | 735 | (_rhs undefined) |
667 | (_rhs c) | 736 | (\(c :: _) (d :: _) -> case'Bool |
668 | (fromInt 0 == b)) | 737 | (\(_ :: _) -> _) |
669 | a | 738 | (_rhs (d !! (b - fromInt 1))) |
739 | (_rhs c) | ||
740 | (fromInt 0 == b)) | ||
741 | a | ||
670 | ------------ core code | 742 | ------------ core code |
671 | !! :: forall a . [a] -> Int -> a | 743 | !! :: forall a . [a] -> Int -> a |
672 | !! | 744 | !! |
diff --git a/testdata/SampleMaterial.out b/testdata/SampleMaterial.out index 70bcb06a..58f4be80 100644 --- a/testdata/SampleMaterial.out +++ b/testdata/SampleMaterial.out | |||
@@ -1,1881 +1,1883 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | sampleMaterial | 3 | sampleMaterial |
4 | = _rhs | 4 | = _lhs |
5 | [("textures/gothic_block/blocks11b" | 5 | sampleMaterial |
6 | , CommonAttrs | 6 | (_rhs |
7 | () | 7 | [("textures/gothic_block/blocks11b" |
8 | () | 8 | , CommonAttrs |
9 | False | 9 | () |
10 | (fromInt 0) | 10 | () |
11 | False | 11 | False |
12 | False | 12 | (fromInt 0) |
13 | CT_FrontSided | 13 | False |
14 | [] | 14 | False |
15 | False | 15 | CT_FrontSided |
16 | False | 16 | [] |
17 | [StageAttrs | 17 | False |
18 | Nothing | 18 | False |
19 | RGB_IdentityLighting | 19 | [StageAttrs |
20 | A_Identity | 20 | Nothing |
21 | TG_Base | 21 | RGB_IdentityLighting |
22 | [] | 22 | A_Identity |
23 | (ST_Map "textures/gothic_block/blocks11b") | 23 | TG_Base |
24 | True | 24 | [] |
25 | D_Lequal | 25 | (ST_Map "textures/gothic_block/blocks11b") |
26 | Nothing | 26 | True |
27 | False | 27 | D_Lequal |
28 | "Tex_4288602201" | 28 | Nothing |
29 | , StageAttrs | 29 | False |
30 | (Just (B_DstColor, B_Zero)) | 30 | "Tex_4288602201" |
31 | RGB_IdentityLighting | 31 | , StageAttrs |
32 | A_Identity | 32 | (Just (B_DstColor, B_Zero)) |
33 | TG_Lightmap | 33 | RGB_IdentityLighting |
34 | [] | 34 | A_Identity |
35 | ST_Lightmap | 35 | TG_Lightmap |
36 | True | 36 | [] |
37 | D_Lequal | 37 | ST_Lightmap |
38 | Nothing | 38 | True |
39 | False | 39 | D_Lequal |
40 | "Tex_3226210144"] | 40 | Nothing |
41 | False) | 41 | False |
42 | , ("textures/gothic_block/blocks15" | 42 | "Tex_3226210144"] |
43 | , CommonAttrs | 43 | False) |
44 | () | 44 | , ("textures/gothic_block/blocks15" |
45 | () | 45 | , CommonAttrs |
46 | False | 46 | () |
47 | (fromInt 0) | 47 | () |
48 | False | 48 | False |
49 | False | 49 | (fromInt 0) |
50 | CT_FrontSided | 50 | False |
51 | [] | 51 | False |
52 | False | 52 | CT_FrontSided |
53 | False | 53 | [] |
54 | [StageAttrs | 54 | False |
55 | Nothing | 55 | False |
56 | RGB_IdentityLighting | 56 | [StageAttrs |
57 | A_Identity | 57 | Nothing |
58 | TG_Base | 58 | RGB_IdentityLighting |
59 | [] | 59 | A_Identity |
60 | (ST_Map "textures/gothic_block/blocks15") | 60 | TG_Base |
61 | True | 61 | [] |
62 | D_Lequal | 62 | (ST_Map "textures/gothic_block/blocks15") |
63 | Nothing | 63 | True |
64 | False | 64 | D_Lequal |
65 | "Tex_2523116863" | 65 | Nothing |
66 | , StageAttrs | 66 | False |
67 | (Just (B_DstColor, B_Zero)) | 67 | "Tex_2523116863" |
68 | RGB_IdentityLighting | 68 | , StageAttrs |
69 | A_Identity | 69 | (Just (B_DstColor, B_Zero)) |
70 | TG_Lightmap | 70 | RGB_IdentityLighting |
71 | [] | 71 | A_Identity |
72 | ST_Lightmap | 72 | TG_Lightmap |
73 | True | 73 | [] |
74 | D_Lequal | 74 | ST_Lightmap |
75 | Nothing | 75 | True |
76 | False | 76 | D_Lequal |
77 | "Tex_3226210144"] | 77 | Nothing |
78 | False) | 78 | False |
79 | , ("textures/gothic_block/blocks18b" | 79 | "Tex_3226210144"] |
80 | , CommonAttrs | 80 | False) |
81 | () | 81 | , ("textures/gothic_block/blocks18b" |
82 | () | 82 | , CommonAttrs |
83 | False | 83 | () |
84 | (fromInt 0) | 84 | () |
85 | False | 85 | False |
86 | False | 86 | (fromInt 0) |
87 | CT_FrontSided | 87 | False |
88 | [] | 88 | False |
89 | False | 89 | CT_FrontSided |
90 | False | 90 | [] |
91 | [StageAttrs | 91 | False |
92 | Nothing | 92 | False |
93 | RGB_IdentityLighting | 93 | [StageAttrs |
94 | A_Identity | 94 | Nothing |
95 | TG_Base | 95 | RGB_IdentityLighting |
96 | [] | 96 | A_Identity |
97 | (ST_Map "textures/gothic_block/blocks18b") | 97 | TG_Base |
98 | True | 98 | [] |
99 | D_Lequal | 99 | (ST_Map "textures/gothic_block/blocks18b") |
100 | Nothing | 100 | True |
101 | False | 101 | D_Lequal |
102 | "Tex_2639119078" | 102 | Nothing |
103 | , StageAttrs | 103 | False |
104 | (Just (B_DstColor, B_Zero)) | 104 | "Tex_2639119078" |
105 | RGB_IdentityLighting | 105 | , StageAttrs |
106 | A_Identity | 106 | (Just (B_DstColor, B_Zero)) |
107 | TG_Lightmap | 107 | RGB_IdentityLighting |
108 | [] | 108 | A_Identity |
109 | ST_Lightmap | 109 | TG_Lightmap |
110 | True | 110 | [] |
111 | D_Lequal | 111 | ST_Lightmap |
112 | Nothing | 112 | True |
113 | False | 113 | D_Lequal |
114 | "Tex_3226210144"] | 114 | Nothing |
115 | False) | 115 | False |
116 | , ("textures/gothic_block/blocks18c_3" | 116 | "Tex_3226210144"] |
117 | , CommonAttrs | 117 | False) |
118 | () | 118 | , ("textures/gothic_block/blocks18c_3" |
119 | () | 119 | , CommonAttrs |
120 | False | 120 | () |
121 | (fromInt 0) | 121 | () |
122 | False | 122 | False |
123 | False | 123 | (fromInt 0) |
124 | CT_FrontSided | 124 | False |
125 | [] | 125 | False |
126 | False | 126 | CT_FrontSided |
127 | False | 127 | [] |
128 | [StageAttrs | 128 | False |
129 | Nothing | 129 | False |
130 | RGB_IdentityLighting | 130 | [StageAttrs |
131 | A_Identity | 131 | Nothing |
132 | TG_Base | 132 | RGB_IdentityLighting |
133 | [] | 133 | A_Identity |
134 | (ST_Map "textures/gothic_block/blocks18c_3") | 134 | TG_Base |
135 | True | 135 | [] |
136 | D_Lequal | 136 | (ST_Map "textures/gothic_block/blocks18c_3") |
137 | Nothing | 137 | True |
138 | False | 138 | D_Lequal |
139 | "Tex_3939430064" | 139 | Nothing |
140 | , StageAttrs | 140 | False |
141 | (Just (B_DstColor, B_Zero)) | 141 | "Tex_3939430064" |
142 | RGB_IdentityLighting | 142 | , StageAttrs |
143 | A_Identity | 143 | (Just (B_DstColor, B_Zero)) |
144 | TG_Lightmap | 144 | RGB_IdentityLighting |
145 | [] | 145 | A_Identity |
146 | ST_Lightmap | 146 | TG_Lightmap |
147 | True | 147 | [] |
148 | D_Lequal | 148 | ST_Lightmap |
149 | Nothing | 149 | True |
150 | False | 150 | D_Lequal |
151 | "Tex_3226210144"] | 151 | Nothing |
152 | False) | 152 | False |
153 | , ("textures/gothic_block/demon_block15fx" | 153 | "Tex_3226210144"] |
154 | , CommonAttrs | 154 | False) |
155 | () | 155 | , ("textures/gothic_block/demon_block15fx" |
156 | () | 156 | , CommonAttrs |
157 | False | 157 | () |
158 | (fromInt 3) | 158 | () |
159 | False | 159 | False |
160 | False | 160 | (fromInt 3) |
161 | CT_FrontSided | 161 | False |
162 | [] | 162 | False |
163 | False | 163 | CT_FrontSided |
164 | False | 164 | [] |
165 | [StageAttrs | 165 | False |
166 | Nothing | 166 | False |
167 | RGB_Identity | 167 | [StageAttrs |
168 | A_Identity | 168 | Nothing |
169 | TG_Base | 169 | RGB_Identity |
170 | [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 1.6, TM_Scale 4.0 4.0] | 170 | A_Identity |
171 | (ST_Map "textures/sfx/firegorre.tga") | 171 | TG_Base |
172 | True | 172 | [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 1.6, TM_Scale 4.0 4.0] |
173 | D_Lequal | 173 | (ST_Map "textures/sfx/firegorre.tga") |
174 | Nothing | 174 | True |
175 | False | 175 | D_Lequal |
176 | "Tex_47037129" | 176 | Nothing |
177 | , StageAttrs | 177 | False |
178 | (Just (B_SrcAlpha, B_OneMinusSrcAlpha)) | 178 | "Tex_47037129" |
179 | RGB_Identity | 179 | , StageAttrs |
180 | A_Identity | 180 | (Just (B_SrcAlpha, B_OneMinusSrcAlpha)) |
181 | TG_Base | 181 | RGB_Identity |
182 | [] | 182 | A_Identity |
183 | (ST_Map "textures/gothic_block/demon_block15fx.tga") | 183 | TG_Base |
184 | False | 184 | [] |
185 | D_Lequal | 185 | (ST_Map "textures/gothic_block/demon_block15fx.tga") |
186 | Nothing | 186 | False |
187 | False | 187 | D_Lequal |
188 | "Tex_3562558025" | 188 | Nothing |
189 | , StageAttrs | 189 | False |
190 | (Just (B_DstColor, B_OneMinusDstAlpha)) | 190 | "Tex_3562558025" |
191 | RGB_Identity | 191 | , StageAttrs |
192 | A_Identity | 192 | (Just (B_DstColor, B_OneMinusDstAlpha)) |
193 | TG_Lightmap | 193 | RGB_Identity |
194 | [] | 194 | A_Identity |
195 | ST_Lightmap | 195 | TG_Lightmap |
196 | False | 196 | [] |
197 | D_Lequal | 197 | ST_Lightmap |
198 | Nothing | 198 | False |
199 | False | 199 | D_Lequal |
200 | "Tex_2065974340"] | 200 | Nothing |
201 | False) | 201 | False |
202 | , ("textures/gothic_block/killblock" | 202 | "Tex_2065974340"] |
203 | , CommonAttrs | 203 | False) |
204 | () | 204 | , ("textures/gothic_block/killblock" |
205 | () | 205 | , CommonAttrs |
206 | False | 206 | () |
207 | (fromInt 0) | 207 | () |
208 | False | 208 | False |
209 | False | 209 | (fromInt 0) |
210 | CT_FrontSided | 210 | False |
211 | [] | 211 | False |
212 | False | 212 | CT_FrontSided |
213 | False | 213 | [] |
214 | [StageAttrs | 214 | False |
215 | Nothing | 215 | False |
216 | RGB_IdentityLighting | 216 | [StageAttrs |
217 | A_Identity | 217 | Nothing |
218 | TG_Base | 218 | RGB_IdentityLighting |
219 | [] | 219 | A_Identity |
220 | (ST_Map "textures/gothic_block/killblock") | 220 | TG_Base |
221 | True | 221 | [] |
222 | D_Lequal | 222 | (ST_Map "textures/gothic_block/killblock") |
223 | Nothing | 223 | True |
224 | False | 224 | D_Lequal |
225 | "Tex_3647563961" | 225 | Nothing |
226 | , StageAttrs | 226 | False |
227 | (Just (B_DstColor, B_Zero)) | 227 | "Tex_3647563961" |
228 | RGB_IdentityLighting | 228 | , StageAttrs |
229 | A_Identity | 229 | (Just (B_DstColor, B_Zero)) |
230 | TG_Lightmap | 230 | RGB_IdentityLighting |
231 | [] | 231 | A_Identity |
232 | ST_Lightmap | 232 | TG_Lightmap |
233 | True | 233 | [] |
234 | D_Lequal | 234 | ST_Lightmap |
235 | Nothing | 235 | True |
236 | False | 236 | D_Lequal |
237 | "Tex_3226210144"] | 237 | Nothing |
238 | False) | 238 | False |
239 | , ("textures/gothic_block/killblock_i" | 239 | "Tex_3226210144"] |
240 | , CommonAttrs | 240 | False) |
241 | () | 241 | , ("textures/gothic_block/killblock_i" |
242 | () | 242 | , CommonAttrs |
243 | False | 243 | () |
244 | (fromInt 0) | 244 | () |
245 | False | 245 | False |
246 | False | 246 | (fromInt 0) |
247 | CT_FrontSided | 247 | False |
248 | [] | 248 | False |
249 | False | 249 | CT_FrontSided |
250 | False | 250 | [] |
251 | [StageAttrs | 251 | False |
252 | Nothing | 252 | False |
253 | RGB_IdentityLighting | 253 | [StageAttrs |
254 | A_Identity | 254 | Nothing |
255 | TG_Base | 255 | RGB_IdentityLighting |
256 | [] | 256 | A_Identity |
257 | (ST_Map "textures/gothic_block/killblock_i") | 257 | TG_Base |
258 | True | 258 | [] |
259 | D_Lequal | 259 | (ST_Map "textures/gothic_block/killblock_i") |
260 | Nothing | 260 | True |
261 | False | 261 | D_Lequal |
262 | "Tex_209322640" | 262 | Nothing |
263 | , StageAttrs | 263 | False |
264 | (Just (B_DstColor, B_Zero)) | 264 | "Tex_209322640" |
265 | RGB_IdentityLighting | 265 | , StageAttrs |
266 | A_Identity | 266 | (Just (B_DstColor, B_Zero)) |
267 | TG_Lightmap | 267 | RGB_IdentityLighting |
268 | [] | 268 | A_Identity |
269 | ST_Lightmap | 269 | TG_Lightmap |
270 | True | 270 | [] |
271 | D_Lequal | 271 | ST_Lightmap |
272 | Nothing | 272 | True |
273 | False | 273 | D_Lequal |
274 | "Tex_3226210144"] | 274 | Nothing |
275 | False) | 275 | False |
276 | , ("textures/gothic_block/killblock_i4" | 276 | "Tex_3226210144"] |
277 | , CommonAttrs | 277 | False) |
278 | () | 278 | , ("textures/gothic_block/killblock_i4" |
279 | () | 279 | , CommonAttrs |
280 | False | 280 | () |
281 | (fromInt 0) | 281 | () |
282 | False | 282 | False |
283 | False | 283 | (fromInt 0) |
284 | CT_FrontSided | 284 | False |
285 | [] | 285 | False |
286 | False | 286 | CT_FrontSided |
287 | False | 287 | [] |
288 | [StageAttrs | 288 | False |
289 | Nothing | 289 | False |
290 | RGB_IdentityLighting | 290 | [StageAttrs |
291 | A_Identity | 291 | Nothing |
292 | TG_Base | 292 | RGB_IdentityLighting |
293 | [] | 293 | A_Identity |
294 | (ST_Map "textures/gothic_block/killblock_i4") | 294 | TG_Base |
295 | True | 295 | [] |
296 | D_Lequal | 296 | (ST_Map "textures/gothic_block/killblock_i4") |
297 | Nothing | 297 | True |
298 | False | 298 | D_Lequal |
299 | "Tex_3617993418" | 299 | Nothing |
300 | , StageAttrs | 300 | False |
301 | (Just (B_DstColor, B_Zero)) | 301 | "Tex_3617993418" |
302 | RGB_IdentityLighting | 302 | , StageAttrs |
303 | A_Identity | 303 | (Just (B_DstColor, B_Zero)) |
304 | TG_Lightmap | 304 | RGB_IdentityLighting |
305 | [] | 305 | A_Identity |
306 | ST_Lightmap | 306 | TG_Lightmap |
307 | True | 307 | [] |
308 | D_Lequal | 308 | ST_Lightmap |
309 | Nothing | 309 | True |
310 | False | 310 | D_Lequal |
311 | "Tex_3226210144"] | 311 | Nothing |
312 | False) | 312 | False |
313 | , ("textures/gothic_door/km_arena1archfinalc_mid" | 313 | "Tex_3226210144"] |
314 | , CommonAttrs | 314 | False) |
315 | () | 315 | , ("textures/gothic_door/km_arena1archfinalc_mid" |
316 | () | 316 | , CommonAttrs |
317 | False | 317 | () |
318 | (fromInt 0) | 318 | () |
319 | False | 319 | False |
320 | False | 320 | (fromInt 0) |
321 | CT_FrontSided | 321 | False |
322 | [] | 322 | False |
323 | False | 323 | CT_FrontSided |
324 | False | 324 | [] |
325 | [StageAttrs | 325 | False |
326 | Nothing | 326 | False |
327 | RGB_IdentityLighting | 327 | [StageAttrs |
328 | A_Identity | 328 | Nothing |
329 | TG_Base | 329 | RGB_IdentityLighting |
330 | [] | 330 | A_Identity |
331 | (ST_Map "textures/gothic_door/km_arena1archfinalc_mid") | 331 | TG_Base |
332 | True | 332 | [] |
333 | D_Lequal | 333 | (ST_Map "textures/gothic_door/km_arena1archfinalc_mid") |
334 | Nothing | 334 | True |
335 | False | 335 | D_Lequal |
336 | "Tex_2073154888" | 336 | Nothing |
337 | , StageAttrs | 337 | False |
338 | (Just (B_DstColor, B_Zero)) | 338 | "Tex_2073154888" |
339 | RGB_IdentityLighting | 339 | , StageAttrs |
340 | A_Identity | 340 | (Just (B_DstColor, B_Zero)) |
341 | TG_Lightmap | 341 | RGB_IdentityLighting |
342 | [] | 342 | A_Identity |
343 | ST_Lightmap | 343 | TG_Lightmap |
344 | True | 344 | [] |
345 | D_Lequal | 345 | ST_Lightmap |
346 | Nothing | 346 | True |
347 | False | 347 | D_Lequal |
348 | "Tex_3226210144"] | 348 | Nothing |
349 | False) | 349 | False |
350 | , ("textures/gothic_door/km_arena1archfinalc_top" | 350 | "Tex_3226210144"] |
351 | , CommonAttrs | 351 | False) |
352 | () | 352 | , ("textures/gothic_door/km_arena1archfinalc_top" |
353 | () | 353 | , CommonAttrs |
354 | False | 354 | () |
355 | (fromInt 0) | 355 | () |
356 | False | 356 | False |
357 | False | 357 | (fromInt 0) |
358 | CT_FrontSided | 358 | False |
359 | [] | 359 | False |
360 | False | 360 | CT_FrontSided |
361 | False | 361 | [] |
362 | [StageAttrs | 362 | False |
363 | Nothing | 363 | False |
364 | RGB_IdentityLighting | 364 | [StageAttrs |
365 | A_Identity | 365 | Nothing |
366 | TG_Base | 366 | RGB_IdentityLighting |
367 | [] | 367 | A_Identity |
368 | (ST_Map "textures/gothic_door/km_arena1archfinalc_top") | 368 | TG_Base |
369 | True | 369 | [] |
370 | D_Lequal | 370 | (ST_Map "textures/gothic_door/km_arena1archfinalc_top") |
371 | Nothing | 371 | True |
372 | False | 372 | D_Lequal |
373 | "Tex_3071107621" | 373 | Nothing |
374 | , StageAttrs | 374 | False |
375 | (Just (B_DstColor, B_Zero)) | 375 | "Tex_3071107621" |
376 | RGB_IdentityLighting | 376 | , StageAttrs |
377 | A_Identity | 377 | (Just (B_DstColor, B_Zero)) |
378 | TG_Lightmap | 378 | RGB_IdentityLighting |
379 | [] | 379 | A_Identity |
380 | ST_Lightmap | 380 | TG_Lightmap |
381 | True | 381 | [] |
382 | D_Lequal | 382 | ST_Lightmap |
383 | Nothing | 383 | True |
384 | False | 384 | D_Lequal |
385 | "Tex_3226210144"] | 385 | Nothing |
386 | False) | 386 | False |
387 | , ("textures/gothic_door/km_arena1archfinald_bot" | 387 | "Tex_3226210144"] |
388 | , CommonAttrs | 388 | False) |
389 | () | 389 | , ("textures/gothic_door/km_arena1archfinald_bot" |
390 | () | 390 | , CommonAttrs |
391 | False | 391 | () |
392 | (fromInt 0) | 392 | () |
393 | False | 393 | False |
394 | False | 394 | (fromInt 0) |
395 | CT_FrontSided | 395 | False |
396 | [] | 396 | False |
397 | False | 397 | CT_FrontSided |
398 | False | 398 | [] |
399 | [StageAttrs | 399 | False |
400 | Nothing | 400 | False |
401 | RGB_IdentityLighting | 401 | [StageAttrs |
402 | A_Identity | 402 | Nothing |
403 | TG_Base | 403 | RGB_IdentityLighting |
404 | [] | 404 | A_Identity |
405 | (ST_Map "textures/gothic_door/km_arena1archfinald_bot") | 405 | TG_Base |
406 | True | 406 | [] |
407 | D_Lequal | 407 | (ST_Map "textures/gothic_door/km_arena1archfinald_bot") |
408 | Nothing | 408 | True |
409 | False | 409 | D_Lequal |
410 | "Tex_1201212243" | 410 | Nothing |
411 | , StageAttrs | 411 | False |
412 | (Just (B_DstColor, B_Zero)) | 412 | "Tex_1201212243" |
413 | RGB_IdentityLighting | 413 | , StageAttrs |
414 | A_Identity | 414 | (Just (B_DstColor, B_Zero)) |
415 | TG_Lightmap | 415 | RGB_IdentityLighting |
416 | [] | 416 | A_Identity |
417 | ST_Lightmap | 417 | TG_Lightmap |
418 | True | 418 | [] |
419 | D_Lequal | 419 | ST_Lightmap |
420 | Nothing | 420 | True |
421 | False | 421 | D_Lequal |
422 | "Tex_3226210144"] | 422 | Nothing |
423 | False) | 423 | False |
424 | , ("textures/gothic_door/km_arena1archfinald_mid" | 424 | "Tex_3226210144"] |
425 | , CommonAttrs | 425 | False) |
426 | () | 426 | , ("textures/gothic_door/km_arena1archfinald_mid" |
427 | () | 427 | , CommonAttrs |
428 | False | 428 | () |
429 | (fromInt 0) | 429 | () |
430 | False | 430 | False |
431 | False | 431 | (fromInt 0) |
432 | CT_FrontSided | 432 | False |
433 | [] | 433 | False |
434 | False | 434 | CT_FrontSided |
435 | False | 435 | [] |
436 | [StageAttrs | 436 | False |
437 | Nothing | 437 | False |
438 | RGB_IdentityLighting | 438 | [StageAttrs |
439 | A_Identity | 439 | Nothing |
440 | TG_Base | 440 | RGB_IdentityLighting |
441 | [] | 441 | A_Identity |
442 | (ST_Map "textures/gothic_door/km_arena1archfinald_mid") | 442 | TG_Base |
443 | True | 443 | [] |
444 | D_Lequal | 444 | (ST_Map "textures/gothic_door/km_arena1archfinald_mid") |
445 | Nothing | 445 | True |
446 | False | 446 | D_Lequal |
447 | "Tex_3768122504" | 447 | Nothing |
448 | , StageAttrs | 448 | False |
449 | (Just (B_DstColor, B_Zero)) | 449 | "Tex_3768122504" |
450 | RGB_IdentityLighting | 450 | , StageAttrs |
451 | A_Identity | 451 | (Just (B_DstColor, B_Zero)) |
452 | TG_Lightmap | 452 | RGB_IdentityLighting |
453 | [] | 453 | A_Identity |
454 | ST_Lightmap | 454 | TG_Lightmap |
455 | True | 455 | [] |
456 | D_Lequal | 456 | ST_Lightmap |
457 | Nothing | 457 | True |
458 | False | 458 | D_Lequal |
459 | "Tex_3226210144"] | 459 | Nothing |
460 | False) | 460 | False |
461 | , ("textures/gothic_door/skull_door_a" | 461 | "Tex_3226210144"] |
462 | , CommonAttrs | 462 | False) |
463 | () | 463 | , ("textures/gothic_door/skull_door_a" |
464 | () | 464 | , CommonAttrs |
465 | False | 465 | () |
466 | (fromInt 0) | 466 | () |
467 | False | 467 | False |
468 | False | 468 | (fromInt 0) |
469 | CT_FrontSided | 469 | False |
470 | [] | 470 | False |
471 | False | 471 | CT_FrontSided |
472 | False | 472 | [] |
473 | [StageAttrs | 473 | False |
474 | Nothing | 474 | False |
475 | RGB_IdentityLighting | 475 | [StageAttrs |
476 | A_Identity | 476 | Nothing |
477 | TG_Base | 477 | RGB_IdentityLighting |
478 | [] | 478 | A_Identity |
479 | (ST_Map "textures/gothic_door/skull_door_a") | 479 | TG_Base |
480 | True | 480 | [] |
481 | D_Lequal | 481 | (ST_Map "textures/gothic_door/skull_door_a") |
482 | Nothing | 482 | True |
483 | False | 483 | D_Lequal |
484 | "Tex_1284708166" | 484 | Nothing |
485 | , StageAttrs | 485 | False |
486 | (Just (B_DstColor, B_Zero)) | 486 | "Tex_1284708166" |
487 | RGB_IdentityLighting | 487 | , StageAttrs |
488 | A_Identity | 488 | (Just (B_DstColor, B_Zero)) |
489 | TG_Lightmap | 489 | RGB_IdentityLighting |
490 | [] | 490 | A_Identity |
491 | ST_Lightmap | 491 | TG_Lightmap |
492 | True | 492 | [] |
493 | D_Lequal | 493 | ST_Lightmap |
494 | Nothing | 494 | True |
495 | False | 495 | D_Lequal |
496 | "Tex_3226210144"] | 496 | Nothing |
497 | False) | 497 | False |
498 | , ("textures/gothic_door/skull_door_b" | 498 | "Tex_3226210144"] |
499 | , CommonAttrs | 499 | False) |
500 | () | 500 | , ("textures/gothic_door/skull_door_b" |
501 | () | 501 | , CommonAttrs |
502 | False | 502 | () |
503 | (fromInt 0) | 503 | () |
504 | False | 504 | False |
505 | False | 505 | (fromInt 0) |
506 | CT_FrontSided | 506 | False |
507 | [] | 507 | False |
508 | False | 508 | CT_FrontSided |
509 | False | 509 | [] |
510 | [StageAttrs | 510 | False |
511 | Nothing | 511 | False |
512 | RGB_IdentityLighting | 512 | [StageAttrs |
513 | A_Identity | 513 | Nothing |
514 | TG_Base | 514 | RGB_IdentityLighting |
515 | [] | 515 | A_Identity |
516 | (ST_Map "textures/gothic_door/skull_door_b") | 516 | TG_Base |
517 | True | 517 | [] |
518 | D_Lequal | 518 | (ST_Map "textures/gothic_door/skull_door_b") |
519 | Nothing | 519 | True |
520 | False | 520 | D_Lequal |
521 | "Tex_1318715778" | 521 | Nothing |
522 | , StageAttrs | 522 | False |
523 | (Just (B_DstColor, B_Zero)) | 523 | "Tex_1318715778" |
524 | RGB_IdentityLighting | 524 | , StageAttrs |
525 | A_Identity | 525 | (Just (B_DstColor, B_Zero)) |
526 | TG_Lightmap | 526 | RGB_IdentityLighting |
527 | [] | 527 | A_Identity |
528 | ST_Lightmap | 528 | TG_Lightmap |
529 | True | 529 | [] |
530 | D_Lequal | 530 | ST_Lightmap |
531 | Nothing | 531 | True |
532 | False | 532 | D_Lequal |
533 | "Tex_3226210144"] | 533 | Nothing |
534 | False) | 534 | False |
535 | , ("textures/gothic_door/skull_door_c" | 535 | "Tex_3226210144"] |
536 | , CommonAttrs | 536 | False) |
537 | () | 537 | , ("textures/gothic_door/skull_door_c" |
538 | () | 538 | , CommonAttrs |
539 | False | 539 | () |
540 | (fromInt 0) | 540 | () |
541 | False | 541 | False |
542 | False | 542 | (fromInt 0) |
543 | CT_FrontSided | 543 | False |
544 | [] | 544 | False |
545 | False | 545 | CT_FrontSided |
546 | False | 546 | [] |
547 | [StageAttrs | 547 | False |
548 | Nothing | 548 | False |
549 | RGB_IdentityLighting | 549 | [StageAttrs |
550 | A_Identity | 550 | Nothing |
551 | TG_Base | 551 | RGB_IdentityLighting |
552 | [] | 552 | A_Identity |
553 | (ST_Map "textures/gothic_door/skull_door_c") | 553 | TG_Base |
554 | True | 554 | [] |
555 | D_Lequal | 555 | (ST_Map "textures/gothic_door/skull_door_c") |
556 | Nothing | 556 | True |
557 | False | 557 | D_Lequal |
558 | "Tex_4189195777" | 558 | Nothing |
559 | , StageAttrs | 559 | False |
560 | (Just (B_DstColor, B_Zero)) | 560 | "Tex_4189195777" |
561 | RGB_IdentityLighting | 561 | , StageAttrs |
562 | A_Identity | 562 | (Just (B_DstColor, B_Zero)) |
563 | TG_Lightmap | 563 | RGB_IdentityLighting |
564 | [] | 564 | A_Identity |
565 | ST_Lightmap | 565 | TG_Lightmap |
566 | True | 566 | [] |
567 | D_Lequal | 567 | ST_Lightmap |
568 | Nothing | 568 | True |
569 | False | 569 | D_Lequal |
570 | "Tex_3226210144"] | 570 | Nothing |
571 | False) | 571 | False |
572 | , ("textures/gothic_door/skull_door_d" | 572 | "Tex_3226210144"] |
573 | , CommonAttrs | 573 | False) |
574 | () | 574 | , ("textures/gothic_door/skull_door_d" |
575 | () | 575 | , CommonAttrs |
576 | False | 576 | () |
577 | (fromInt 0) | 577 | () |
578 | False | 578 | False |
579 | False | 579 | (fromInt 0) |
580 | CT_FrontSided | 580 | False |
581 | [] | 581 | False |
582 | False | 582 | CT_FrontSided |
583 | False | 583 | [] |
584 | [StageAttrs | 584 | False |
585 | Nothing | 585 | False |
586 | RGB_IdentityLighting | 586 | [StageAttrs |
587 | A_Identity | 587 | Nothing |
588 | TG_Base | 588 | RGB_IdentityLighting |
589 | [] | 589 | A_Identity |
590 | (ST_Map "textures/gothic_door/skull_door_d") | 590 | TG_Base |
591 | True | 591 | [] |
592 | D_Lequal | 592 | (ST_Map "textures/gothic_door/skull_door_d") |
593 | Nothing | 593 | True |
594 | False | 594 | D_Lequal |
595 | "Tex_1250438154" | 595 | Nothing |
596 | , StageAttrs | 596 | False |
597 | (Just (B_DstColor, B_Zero)) | 597 | "Tex_1250438154" |
598 | RGB_IdentityLighting | 598 | , StageAttrs |
599 | A_Identity | 599 | (Just (B_DstColor, B_Zero)) |
600 | TG_Lightmap | 600 | RGB_IdentityLighting |
601 | [] | 601 | A_Identity |
602 | ST_Lightmap | 602 | TG_Lightmap |
603 | True | 603 | [] |
604 | D_Lequal | 604 | ST_Lightmap |
605 | Nothing | 605 | True |
606 | False | 606 | D_Lequal |
607 | "Tex_3226210144"] | 607 | Nothing |
608 | False) | 608 | False |
609 | , ("textures/gothic_door/skull_door_e" | 609 | "Tex_3226210144"] |
610 | , CommonAttrs | 610 | False) |
611 | () | 611 | , ("textures/gothic_door/skull_door_e" |
612 | () | 612 | , CommonAttrs |
613 | False | 613 | () |
614 | (fromInt 0) | 614 | () |
615 | False | 615 | False |
616 | False | 616 | (fromInt 0) |
617 | CT_FrontSided | 617 | False |
618 | [] | 618 | False |
619 | False | 619 | CT_FrontSided |
620 | False | 620 | [] |
621 | [StageAttrs | 621 | False |
622 | Nothing | 622 | False |
623 | RGB_IdentityLighting | 623 | [StageAttrs |
624 | A_Identity | 624 | Nothing |
625 | TG_Base | 625 | RGB_IdentityLighting |
626 | [] | 626 | A_Identity |
627 | (ST_Map "textures/gothic_door/skull_door_e") | 627 | TG_Base |
628 | True | 628 | [] |
629 | D_Lequal | 629 | (ST_Map "textures/gothic_door/skull_door_e") |
630 | Nothing | 630 | True |
631 | False | 631 | D_Lequal |
632 | "Tex_4255130505" | 632 | Nothing |
633 | , StageAttrs | 633 | False |
634 | (Just (B_DstColor, B_Zero)) | 634 | "Tex_4255130505" |
635 | RGB_IdentityLighting | 635 | , StageAttrs |
636 | A_Identity | 636 | (Just (B_DstColor, B_Zero)) |
637 | TG_Lightmap | 637 | RGB_IdentityLighting |
638 | [] | 638 | A_Identity |
639 | ST_Lightmap | 639 | TG_Lightmap |
640 | True | 640 | [] |
641 | D_Lequal | 641 | ST_Lightmap |
642 | Nothing | 642 | True |
643 | False | 643 | D_Lequal |
644 | "Tex_3226210144"] | 644 | Nothing |
645 | False) | 645 | False |
646 | , ("textures/gothic_door/skull_door_f" | 646 | "Tex_3226210144"] |
647 | , CommonAttrs | 647 | False) |
648 | () | 648 | , ("textures/gothic_door/skull_door_f" |
649 | () | 649 | , CommonAttrs |
650 | False | 650 | () |
651 | (fromInt 0) | 651 | () |
652 | False | 652 | False |
653 | False | 653 | (fromInt 0) |
654 | CT_FrontSided | 654 | False |
655 | [] | 655 | False |
656 | False | 656 | CT_FrontSided |
657 | False | 657 | [] |
658 | [StageAttrs | 658 | False |
659 | Nothing | 659 | False |
660 | RGB_IdentityLighting | 660 | [StageAttrs |
661 | A_Identity | 661 | Nothing |
662 | TG_Base | 662 | RGB_IdentityLighting |
663 | [] | 663 | A_Identity |
664 | (ST_Map "textures/gothic_door/skull_door_f") | 664 | TG_Base |
665 | True | 665 | [] |
666 | D_Lequal | 666 | (ST_Map "textures/gothic_door/skull_door_f") |
667 | Nothing | 667 | True |
668 | False | 668 | D_Lequal |
669 | "Tex_4289279309" | 669 | Nothing |
670 | , StageAttrs | 670 | False |
671 | (Just (B_DstColor, B_Zero)) | 671 | "Tex_4289279309" |
672 | RGB_IdentityLighting | 672 | , StageAttrs |
673 | A_Identity | 673 | (Just (B_DstColor, B_Zero)) |
674 | TG_Lightmap | 674 | RGB_IdentityLighting |
675 | [] | 675 | A_Identity |
676 | ST_Lightmap | 676 | TG_Lightmap |
677 | True | 677 | [] |
678 | D_Lequal | 678 | ST_Lightmap |
679 | Nothing | 679 | True |
680 | False | 680 | D_Lequal |
681 | "Tex_3226210144"] | 681 | Nothing |
682 | False) | 682 | False |
683 | , ("textures/gothic_door/skullarch_a" | 683 | "Tex_3226210144"] |
684 | , CommonAttrs | 684 | False) |
685 | () | 685 | , ("textures/gothic_door/skullarch_a" |
686 | () | 686 | , CommonAttrs |
687 | False | 687 | () |
688 | (fromInt 0) | 688 | () |
689 | False | 689 | False |
690 | False | 690 | (fromInt 0) |
691 | CT_FrontSided | 691 | False |
692 | [] | 692 | False |
693 | False | 693 | CT_FrontSided |
694 | False | 694 | [] |
695 | [StageAttrs | 695 | False |
696 | Nothing | 696 | False |
697 | RGB_IdentityLighting | 697 | [StageAttrs |
698 | A_Identity | 698 | Nothing |
699 | TG_Base | 699 | RGB_IdentityLighting |
700 | [] | 700 | A_Identity |
701 | (ST_Map "textures/gothic_door/skullarch_a") | 701 | TG_Base |
702 | True | 702 | [] |
703 | D_Lequal | 703 | (ST_Map "textures/gothic_door/skullarch_a") |
704 | Nothing | 704 | True |
705 | False | 705 | D_Lequal |
706 | "Tex_3448884269" | 706 | Nothing |
707 | , StageAttrs | 707 | False |
708 | (Just (B_DstColor, B_Zero)) | 708 | "Tex_3448884269" |
709 | RGB_IdentityLighting | 709 | , StageAttrs |
710 | A_Identity | 710 | (Just (B_DstColor, B_Zero)) |
711 | TG_Lightmap | 711 | RGB_IdentityLighting |
712 | [] | 712 | A_Identity |
713 | ST_Lightmap | 713 | TG_Lightmap |
714 | True | 714 | [] |
715 | D_Lequal | 715 | ST_Lightmap |
716 | Nothing | 716 | True |
717 | False | 717 | D_Lequal |
718 | "Tex_3226210144"] | 718 | Nothing |
719 | False) | 719 | False |
720 | , ("textures/gothic_door/skullarch_b" | 720 | "Tex_3226210144"] |
721 | , CommonAttrs | 721 | False) |
722 | () | 722 | , ("textures/gothic_door/skullarch_b" |
723 | () | 723 | , CommonAttrs |
724 | False | 724 | () |
725 | (fromInt 3) | 725 | () |
726 | False | 726 | False |
727 | False | 727 | (fromInt 3) |
728 | CT_FrontSided | 728 | False |
729 | [] | 729 | False |
730 | False | 730 | CT_FrontSided |
731 | False | 731 | [] |
732 | [StageAttrs | 732 | False |
733 | Nothing | 733 | False |
734 | RGB_Identity | 734 | [StageAttrs |
735 | A_Identity | 735 | Nothing |
736 | TG_Base | 736 | RGB_Identity |
737 | [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 5.6, TM_Scale 1.5 1.5] | 737 | A_Identity |
738 | (ST_Map "textures/sfx/firegorre.tga") | 738 | TG_Base |
739 | True | 739 | [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 5.6, TM_Scale 1.5 1.5] |
740 | D_Lequal | 740 | (ST_Map "textures/sfx/firegorre.tga") |
741 | Nothing | 741 | True |
742 | False | 742 | D_Lequal |
743 | "Tex_3416962274" | 743 | Nothing |
744 | , StageAttrs | 744 | False |
745 | (Just (B_SrcAlpha, B_OneMinusSrcAlpha)) | 745 | "Tex_3416962274" |
746 | RGB_Identity | 746 | , StageAttrs |
747 | A_Identity | 747 | (Just (B_SrcAlpha, B_OneMinusSrcAlpha)) |
748 | TG_Base | 748 | RGB_Identity |
749 | [] | 749 | A_Identity |
750 | (ST_Map "textures/gothic_door/skullarch_b.tga") | 750 | TG_Base |
751 | False | 751 | [] |
752 | D_Lequal | 752 | (ST_Map "textures/gothic_door/skullarch_b.tga") |
753 | Nothing | 753 | False |
754 | False | 754 | D_Lequal |
755 | "Tex_4077187607" | 755 | Nothing |
756 | , StageAttrs | 756 | False |
757 | (Just (B_DstColor, B_Zero)) | 757 | "Tex_4077187607" |
758 | RGB_Identity | 758 | , StageAttrs |
759 | A_Identity | 759 | (Just (B_DstColor, B_Zero)) |
760 | TG_Lightmap | 760 | RGB_Identity |
761 | [] | 761 | A_Identity |
762 | ST_Lightmap | 762 | TG_Lightmap |
763 | False | 763 | [] |
764 | D_Lequal | 764 | ST_Lightmap |
765 | Nothing | 765 | False |
766 | False | 766 | D_Lequal |
767 | "Tex_1196599720"] | 767 | Nothing |
768 | False) | 768 | False |
769 | , ("textures/gothic_door/skullarch_c" | 769 | "Tex_1196599720"] |
770 | , CommonAttrs | 770 | False) |
771 | () | 771 | , ("textures/gothic_door/skullarch_c" |
772 | () | 772 | , CommonAttrs |
773 | False | 773 | () |
774 | (fromInt 0) | 774 | () |
775 | False | 775 | False |
776 | False | 776 | (fromInt 0) |
777 | CT_FrontSided | 777 | False |
778 | [] | 778 | False |
779 | False | 779 | CT_FrontSided |
780 | False | 780 | [] |
781 | [StageAttrs | 781 | False |
782 | Nothing | 782 | False |
783 | RGB_IdentityLighting | 783 | [StageAttrs |
784 | A_Identity | 784 | Nothing |
785 | TG_Base | 785 | RGB_IdentityLighting |
786 | [] | 786 | A_Identity |
787 | (ST_Map "textures/gothic_door/skullarch_c") | 787 | TG_Base |
788 | True | 788 | [] |
789 | D_Lequal | 789 | (ST_Map "textures/gothic_door/skullarch_c") |
790 | Nothing | 790 | True |
791 | False | 791 | D_Lequal |
792 | "Tex_2024854890" | 792 | Nothing |
793 | , StageAttrs | 793 | False |
794 | (Just (B_DstColor, B_Zero)) | 794 | "Tex_2024854890" |
795 | RGB_IdentityLighting | 795 | , StageAttrs |
796 | A_Identity | 796 | (Just (B_DstColor, B_Zero)) |
797 | TG_Lightmap | 797 | RGB_IdentityLighting |
798 | [] | 798 | A_Identity |
799 | ST_Lightmap | 799 | TG_Lightmap |
800 | True | 800 | [] |
801 | D_Lequal | 801 | ST_Lightmap |
802 | Nothing | 802 | True |
803 | False | 803 | D_Lequal |
804 | "Tex_3226210144"] | 804 | Nothing |
805 | False) | 805 | False |
806 | , ("textures/gothic_door/xian_tourneyarch_inside2" | 806 | "Tex_3226210144"] |
807 | , CommonAttrs | 807 | False) |
808 | () | 808 | , ("textures/gothic_door/xian_tourneyarch_inside2" |
809 | () | 809 | , CommonAttrs |
810 | False | 810 | () |
811 | (fromInt 0) | 811 | () |
812 | False | 812 | False |
813 | False | 813 | (fromInt 0) |
814 | CT_FrontSided | 814 | False |
815 | [] | 815 | False |
816 | False | 816 | CT_FrontSided |
817 | False | 817 | [] |
818 | [StageAttrs | 818 | False |
819 | Nothing | 819 | False |
820 | RGB_IdentityLighting | 820 | [StageAttrs |
821 | A_Identity | 821 | Nothing |
822 | TG_Base | 822 | RGB_IdentityLighting |
823 | [] | 823 | A_Identity |
824 | (ST_Map "textures/gothic_door/xian_tourneyarch_inside2") | 824 | TG_Base |
825 | True | 825 | [] |
826 | D_Lequal | 826 | (ST_Map "textures/gothic_door/xian_tourneyarch_inside2") |
827 | Nothing | 827 | True |
828 | False | 828 | D_Lequal |
829 | "Tex_1435187472" | 829 | Nothing |
830 | , StageAttrs | 830 | False |
831 | (Just (B_DstColor, B_Zero)) | 831 | "Tex_1435187472" |
832 | RGB_IdentityLighting | 832 | , StageAttrs |
833 | A_Identity | 833 | (Just (B_DstColor, B_Zero)) |
834 | TG_Lightmap | 834 | RGB_IdentityLighting |
835 | [] | 835 | A_Identity |
836 | ST_Lightmap | 836 | TG_Lightmap |
837 | True | 837 | [] |
838 | D_Lequal | 838 | ST_Lightmap |
839 | Nothing | 839 | True |
840 | False | 840 | D_Lequal |
841 | "Tex_3226210144"] | 841 | Nothing |
842 | False) | 842 | False |
843 | , ("textures/gothic_floor/blocks17floor2" | 843 | "Tex_3226210144"] |
844 | , CommonAttrs | 844 | False) |
845 | () | 845 | , ("textures/gothic_floor/blocks17floor2" |
846 | () | 846 | , CommonAttrs |
847 | False | 847 | () |
848 | (fromInt 0) | 848 | () |
849 | False | 849 | False |
850 | False | 850 | (fromInt 0) |
851 | CT_FrontSided | 851 | False |
852 | [] | 852 | False |
853 | False | 853 | CT_FrontSided |
854 | False | 854 | [] |
855 | [StageAttrs | 855 | False |
856 | Nothing | 856 | False |
857 | RGB_IdentityLighting | 857 | [StageAttrs |
858 | A_Identity | 858 | Nothing |
859 | TG_Base | 859 | RGB_IdentityLighting |
860 | [] | 860 | A_Identity |
861 | (ST_Map "textures/gothic_floor/blocks17floor2") | 861 | TG_Base |
862 | True | 862 | [] |
863 | D_Lequal | 863 | (ST_Map "textures/gothic_floor/blocks17floor2") |
864 | Nothing | 864 | True |
865 | False | 865 | D_Lequal |
866 | "Tex_3814342582" | 866 | Nothing |
867 | , StageAttrs | 867 | False |
868 | (Just (B_DstColor, B_Zero)) | 868 | "Tex_3814342582" |
869 | RGB_IdentityLighting | 869 | , StageAttrs |
870 | A_Identity | 870 | (Just (B_DstColor, B_Zero)) |
871 | TG_Lightmap | 871 | RGB_IdentityLighting |
872 | [] | 872 | A_Identity |
873 | ST_Lightmap | 873 | TG_Lightmap |
874 | True | 874 | [] |
875 | D_Lequal | 875 | ST_Lightmap |
876 | Nothing | 876 | True |
877 | False | 877 | D_Lequal |
878 | "Tex_3226210144"] | 878 | Nothing |
879 | False) | 879 | False |
880 | , ("textures/gothic_floor/largerblock3b" | 880 | "Tex_3226210144"] |
881 | , CommonAttrs | 881 | False) |
882 | () | 882 | , ("textures/gothic_floor/largerblock3b" |
883 | () | 883 | , CommonAttrs |
884 | False | 884 | () |
885 | (fromInt 0) | 885 | () |
886 | False | 886 | False |
887 | False | 887 | (fromInt 0) |
888 | CT_FrontSided | 888 | False |
889 | [] | 889 | False |
890 | False | 890 | CT_FrontSided |
891 | False | 891 | [] |
892 | [StageAttrs | 892 | False |
893 | Nothing | 893 | False |
894 | RGB_IdentityLighting | 894 | [StageAttrs |
895 | A_Identity | 895 | Nothing |
896 | TG_Base | 896 | RGB_IdentityLighting |
897 | [] | 897 | A_Identity |
898 | (ST_Map "textures/gothic_floor/largerblock3b") | 898 | TG_Base |
899 | True | 899 | [] |
900 | D_Lequal | 900 | (ST_Map "textures/gothic_floor/largerblock3b") |
901 | Nothing | 901 | True |
902 | False | 902 | D_Lequal |
903 | "Tex_2966885788" | 903 | Nothing |
904 | , StageAttrs | 904 | False |
905 | (Just (B_DstColor, B_Zero)) | 905 | "Tex_2966885788" |
906 | RGB_IdentityLighting | 906 | , StageAttrs |
907 | A_Identity | 907 | (Just (B_DstColor, B_Zero)) |
908 | TG_Lightmap | 908 | RGB_IdentityLighting |
909 | [] | 909 | A_Identity |
910 | ST_Lightmap | 910 | TG_Lightmap |
911 | True | 911 | [] |
912 | D_Lequal | 912 | ST_Lightmap |
913 | Nothing | 913 | True |
914 | False | 914 | D_Lequal |
915 | "Tex_3226210144"] | 915 | Nothing |
916 | False) | 916 | False |
917 | , ("textures/gothic_floor/metalbridge06" | 917 | "Tex_3226210144"] |
918 | , CommonAttrs | 918 | False) |
919 | () | 919 | , ("textures/gothic_floor/metalbridge06" |
920 | () | 920 | , CommonAttrs |
921 | False | 921 | () |
922 | (fromInt 0) | 922 | () |
923 | False | 923 | False |
924 | False | 924 | (fromInt 0) |
925 | CT_FrontSided | 925 | False |
926 | [] | 926 | False |
927 | False | 927 | CT_FrontSided |
928 | False | 928 | [] |
929 | [StageAttrs | 929 | False |
930 | Nothing | 930 | False |
931 | RGB_IdentityLighting | 931 | [StageAttrs |
932 | A_Identity | 932 | Nothing |
933 | TG_Base | 933 | RGB_IdentityLighting |
934 | [] | 934 | A_Identity |
935 | (ST_Map "textures/gothic_floor/metalbridge06") | 935 | TG_Base |
936 | True | 936 | [] |
937 | D_Lequal | 937 | (ST_Map "textures/gothic_floor/metalbridge06") |
938 | Nothing | 938 | True |
939 | False | 939 | D_Lequal |
940 | "Tex_1581337759" | 940 | Nothing |
941 | , StageAttrs | 941 | False |
942 | (Just (B_DstColor, B_Zero)) | 942 | "Tex_1581337759" |
943 | RGB_IdentityLighting | 943 | , StageAttrs |
944 | A_Identity | 944 | (Just (B_DstColor, B_Zero)) |
945 | TG_Lightmap | 945 | RGB_IdentityLighting |
946 | [] | 946 | A_Identity |
947 | ST_Lightmap | 947 | TG_Lightmap |
948 | True | 948 | [] |
949 | D_Lequal | 949 | ST_Lightmap |
950 | Nothing | 950 | True |
951 | False | 951 | D_Lequal |
952 | "Tex_3226210144"] | 952 | Nothing |
953 | False) | 953 | False |
954 | , ("textures/gothic_floor/metalbridge06broke" | 954 | "Tex_3226210144"] |
955 | , CommonAttrs | 955 | False) |
956 | () | 956 | , ("textures/gothic_floor/metalbridge06broke" |
957 | () | 957 | , CommonAttrs |
958 | False | 958 | () |
959 | (fromInt 0) | 959 | () |
960 | False | 960 | False |
961 | False | 961 | (fromInt 0) |
962 | CT_FrontSided | 962 | False |
963 | [] | 963 | False |
964 | False | 964 | CT_FrontSided |
965 | False | 965 | [] |
966 | [StageAttrs | 966 | False |
967 | Nothing | 967 | False |
968 | RGB_IdentityLighting | 968 | [StageAttrs |
969 | A_Identity | 969 | Nothing |
970 | TG_Base | 970 | RGB_IdentityLighting |
971 | [] | 971 | A_Identity |
972 | (ST_Map "textures/gothic_floor/metalbridge06broke") | 972 | TG_Base |
973 | True | 973 | [] |
974 | D_Lequal | 974 | (ST_Map "textures/gothic_floor/metalbridge06broke") |
975 | Nothing | 975 | True |
976 | False | 976 | D_Lequal |
977 | "Tex_3921745736" | 977 | Nothing |
978 | , StageAttrs | 978 | False |
979 | (Just (B_DstColor, B_Zero)) | 979 | "Tex_3921745736" |
980 | RGB_IdentityLighting | 980 | , StageAttrs |
981 | A_Identity | 981 | (Just (B_DstColor, B_Zero)) |
982 | TG_Lightmap | 982 | RGB_IdentityLighting |
983 | [] | 983 | A_Identity |
984 | ST_Lightmap | 984 | TG_Lightmap |
985 | True | 985 | [] |
986 | D_Lequal | 986 | ST_Lightmap |
987 | Nothing | 987 | True |
988 | False | 988 | D_Lequal |
989 | "Tex_3226210144"] | 989 | Nothing |
990 | False) | 990 | False |
991 | , ("textures/gothic_floor/xstairtop4" | 991 | "Tex_3226210144"] |
992 | , CommonAttrs | 992 | False) |
993 | () | 993 | , ("textures/gothic_floor/xstairtop4" |
994 | () | 994 | , CommonAttrs |
995 | False | 995 | () |
996 | (fromInt 0) | 996 | () |
997 | False | 997 | False |
998 | False | 998 | (fromInt 0) |
999 | CT_FrontSided | 999 | False |
1000 | [] | 1000 | False |
1001 | False | 1001 | CT_FrontSided |
1002 | False | 1002 | [] |
1003 | [StageAttrs | 1003 | False |
1004 | Nothing | 1004 | False |
1005 | RGB_IdentityLighting | 1005 | [StageAttrs |
1006 | A_Identity | 1006 | Nothing |
1007 | TG_Base | 1007 | RGB_IdentityLighting |
1008 | [] | 1008 | A_Identity |
1009 | (ST_Map "textures/gothic_floor/xstairtop4") | 1009 | TG_Base |
1010 | True | 1010 | [] |
1011 | D_Lequal | 1011 | (ST_Map "textures/gothic_floor/xstairtop4") |
1012 | Nothing | 1012 | True |
1013 | False | 1013 | D_Lequal |
1014 | "Tex_3836020895" | 1014 | Nothing |
1015 | , StageAttrs | 1015 | False |
1016 | (Just (B_DstColor, B_Zero)) | 1016 | "Tex_3836020895" |
1017 | RGB_IdentityLighting | 1017 | , StageAttrs |
1018 | A_Identity | 1018 | (Just (B_DstColor, B_Zero)) |
1019 | TG_Lightmap | 1019 | RGB_IdentityLighting |
1020 | [] | 1020 | A_Identity |
1021 | ST_Lightmap | 1021 | TG_Lightmap |
1022 | True | 1022 | [] |
1023 | D_Lequal | 1023 | ST_Lightmap |
1024 | Nothing | 1024 | True |
1025 | False | 1025 | D_Lequal |
1026 | "Tex_3226210144"] | 1026 | Nothing |
1027 | False) | 1027 | False |
1028 | , ("textures/gothic_floor/xstepborder3" | 1028 | "Tex_3226210144"] |
1029 | , CommonAttrs | 1029 | False) |
1030 | () | 1030 | , ("textures/gothic_floor/xstepborder3" |
1031 | () | 1031 | , CommonAttrs |
1032 | False | 1032 | () |
1033 | (fromInt 0) | 1033 | () |
1034 | False | 1034 | False |
1035 | False | 1035 | (fromInt 0) |
1036 | CT_FrontSided | 1036 | False |
1037 | [] | 1037 | False |
1038 | False | 1038 | CT_FrontSided |
1039 | False | 1039 | [] |
1040 | [StageAttrs | 1040 | False |
1041 | Nothing | 1041 | False |
1042 | RGB_IdentityLighting | 1042 | [StageAttrs |
1043 | A_Identity | 1043 | Nothing |
1044 | TG_Base | 1044 | RGB_IdentityLighting |
1045 | [] | 1045 | A_Identity |
1046 | (ST_Map "textures/gothic_floor/xstepborder3") | 1046 | TG_Base |
1047 | True | 1047 | [] |
1048 | D_Lequal | 1048 | (ST_Map "textures/gothic_floor/xstepborder3") |
1049 | Nothing | 1049 | True |
1050 | False | 1050 | D_Lequal |
1051 | "Tex_3269743316" | 1051 | Nothing |
1052 | , StageAttrs | 1052 | False |
1053 | (Just (B_DstColor, B_Zero)) | 1053 | "Tex_3269743316" |
1054 | RGB_IdentityLighting | 1054 | , StageAttrs |
1055 | A_Identity | 1055 | (Just (B_DstColor, B_Zero)) |
1056 | TG_Lightmap | 1056 | RGB_IdentityLighting |
1057 | [] | 1057 | A_Identity |
1058 | ST_Lightmap | 1058 | TG_Lightmap |
1059 | True | 1059 | [] |
1060 | D_Lequal | 1060 | ST_Lightmap |
1061 | Nothing | 1061 | True |
1062 | False | 1062 | D_Lequal |
1063 | "Tex_3226210144"] | 1063 | Nothing |
1064 | False) | 1064 | False |
1065 | , ("textures/gothic_trim/baseboard04" | 1065 | "Tex_3226210144"] |
1066 | , CommonAttrs | 1066 | False) |
1067 | () | 1067 | , ("textures/gothic_trim/baseboard04" |
1068 | () | 1068 | , CommonAttrs |
1069 | False | 1069 | () |
1070 | (fromInt 0) | 1070 | () |
1071 | False | 1071 | False |
1072 | False | 1072 | (fromInt 0) |
1073 | CT_FrontSided | 1073 | False |
1074 | [] | 1074 | False |
1075 | False | 1075 | CT_FrontSided |
1076 | False | 1076 | [] |
1077 | [StageAttrs | 1077 | False |
1078 | Nothing | 1078 | False |
1079 | RGB_IdentityLighting | 1079 | [StageAttrs |
1080 | A_Identity | 1080 | Nothing |
1081 | TG_Base | 1081 | RGB_IdentityLighting |
1082 | [] | 1082 | A_Identity |
1083 | (ST_Map "textures/gothic_trim/baseboard04") | 1083 | TG_Base |
1084 | True | 1084 | [] |
1085 | D_Lequal | 1085 | (ST_Map "textures/gothic_trim/baseboard04") |
1086 | Nothing | 1086 | True |
1087 | False | 1087 | D_Lequal |
1088 | "Tex_1002517541" | 1088 | Nothing |
1089 | , StageAttrs | 1089 | False |
1090 | (Just (B_DstColor, B_Zero)) | 1090 | "Tex_1002517541" |
1091 | RGB_IdentityLighting | 1091 | , StageAttrs |
1092 | A_Identity | 1092 | (Just (B_DstColor, B_Zero)) |
1093 | TG_Lightmap | 1093 | RGB_IdentityLighting |
1094 | [] | 1094 | A_Identity |
1095 | ST_Lightmap | 1095 | TG_Lightmap |
1096 | True | 1096 | [] |
1097 | D_Lequal | 1097 | ST_Lightmap |
1098 | Nothing | 1098 | True |
1099 | False | 1099 | D_Lequal |
1100 | "Tex_3226210144"] | 1100 | Nothing |
1101 | False) | 1101 | False |
1102 | , ("textures/gothic_trim/baseboard09_c3" | 1102 | "Tex_3226210144"] |
1103 | , CommonAttrs | 1103 | False) |
1104 | () | 1104 | , ("textures/gothic_trim/baseboard09_c3" |
1105 | () | 1105 | , CommonAttrs |
1106 | False | 1106 | () |
1107 | (fromInt 0) | 1107 | () |
1108 | False | 1108 | False |
1109 | False | 1109 | (fromInt 0) |
1110 | CT_FrontSided | 1110 | False |
1111 | [] | 1111 | False |
1112 | False | 1112 | CT_FrontSided |
1113 | False | 1113 | [] |
1114 | [StageAttrs | 1114 | False |
1115 | Nothing | 1115 | False |
1116 | RGB_IdentityLighting | 1116 | [StageAttrs |
1117 | A_Identity | 1117 | Nothing |
1118 | TG_Base | 1118 | RGB_IdentityLighting |
1119 | [] | 1119 | A_Identity |
1120 | (ST_Map "textures/gothic_trim/baseboard09_c3") | 1120 | TG_Base |
1121 | True | 1121 | [] |
1122 | D_Lequal | 1122 | (ST_Map "textures/gothic_trim/baseboard09_c3") |
1123 | Nothing | 1123 | True |
1124 | False | 1124 | D_Lequal |
1125 | "Tex_2289735512" | 1125 | Nothing |
1126 | , StageAttrs | 1126 | False |
1127 | (Just (B_DstColor, B_Zero)) | 1127 | "Tex_2289735512" |
1128 | RGB_IdentityLighting | 1128 | , StageAttrs |
1129 | A_Identity | 1129 | (Just (B_DstColor, B_Zero)) |
1130 | TG_Lightmap | 1130 | RGB_IdentityLighting |
1131 | [] | 1131 | A_Identity |
1132 | ST_Lightmap | 1132 | TG_Lightmap |
1133 | True | 1133 | [] |
1134 | D_Lequal | 1134 | ST_Lightmap |
1135 | Nothing | 1135 | True |
1136 | False | 1136 | D_Lequal |
1137 | "Tex_3226210144"] | 1137 | Nothing |
1138 | False) | 1138 | False |
1139 | , ("textures/gothic_trim/baseboard09_e" | 1139 | "Tex_3226210144"] |
1140 | , CommonAttrs | 1140 | False) |
1141 | () | 1141 | , ("textures/gothic_trim/baseboard09_e" |
1142 | () | 1142 | , CommonAttrs |
1143 | False | 1143 | () |
1144 | (fromInt 0) | 1144 | () |
1145 | False | 1145 | False |
1146 | False | 1146 | (fromInt 0) |
1147 | CT_FrontSided | 1147 | False |
1148 | [] | 1148 | False |
1149 | False | 1149 | CT_FrontSided |
1150 | False | 1150 | [] |
1151 | [StageAttrs | 1151 | False |
1152 | Nothing | 1152 | False |
1153 | RGB_IdentityLighting | 1153 | [StageAttrs |
1154 | A_Identity | 1154 | Nothing |
1155 | TG_Base | 1155 | RGB_IdentityLighting |
1156 | [] | 1156 | A_Identity |
1157 | (ST_Map "textures/gothic_trim/baseboard09_e") | 1157 | TG_Base |
1158 | True | 1158 | [] |
1159 | D_Lequal | 1159 | (ST_Map "textures/gothic_trim/baseboard09_e") |
1160 | Nothing | 1160 | True |
1161 | False | 1161 | D_Lequal |
1162 | "Tex_2367525081" | 1162 | Nothing |
1163 | , StageAttrs | 1163 | False |
1164 | (Just (B_DstColor, B_Zero)) | 1164 | "Tex_2367525081" |
1165 | RGB_IdentityLighting | 1165 | , StageAttrs |
1166 | A_Identity | 1166 | (Just (B_DstColor, B_Zero)) |
1167 | TG_Lightmap | 1167 | RGB_IdentityLighting |
1168 | [] | 1168 | A_Identity |
1169 | ST_Lightmap | 1169 | TG_Lightmap |
1170 | True | 1170 | [] |
1171 | D_Lequal | 1171 | ST_Lightmap |
1172 | Nothing | 1172 | True |
1173 | False | 1173 | D_Lequal |
1174 | "Tex_3226210144"] | 1174 | Nothing |
1175 | False) | 1175 | False |
1176 | , ("textures/gothic_trim/baseboard09_e2" | 1176 | "Tex_3226210144"] |
1177 | , CommonAttrs | 1177 | False) |
1178 | () | 1178 | , ("textures/gothic_trim/baseboard09_e2" |
1179 | () | 1179 | , CommonAttrs |
1180 | False | 1180 | () |
1181 | (fromInt 0) | 1181 | () |
1182 | False | 1182 | False |
1183 | False | 1183 | (fromInt 0) |
1184 | CT_FrontSided | 1184 | False |
1185 | [] | 1185 | False |
1186 | False | 1186 | CT_FrontSided |
1187 | False | 1187 | [] |
1188 | [StageAttrs | 1188 | False |
1189 | Nothing | 1189 | False |
1190 | RGB_IdentityLighting | 1190 | [StageAttrs |
1191 | A_Identity | 1191 | Nothing |
1192 | TG_Base | 1192 | RGB_IdentityLighting |
1193 | [] | 1193 | A_Identity |
1194 | (ST_Map "textures/gothic_trim/baseboard09_e2") | 1194 | TG_Base |
1195 | True | 1195 | [] |
1196 | D_Lequal | 1196 | (ST_Map "textures/gothic_trim/baseboard09_e2") |
1197 | Nothing | 1197 | True |
1198 | False | 1198 | D_Lequal |
1199 | "Tex_3694494180" | 1199 | Nothing |
1200 | , StageAttrs | 1200 | False |
1201 | (Just (B_DstColor, B_Zero)) | 1201 | "Tex_3694494180" |
1202 | RGB_IdentityLighting | 1202 | , StageAttrs |
1203 | A_Identity | 1203 | (Just (B_DstColor, B_Zero)) |
1204 | TG_Lightmap | 1204 | RGB_IdentityLighting |
1205 | [] | 1205 | A_Identity |
1206 | ST_Lightmap | 1206 | TG_Lightmap |
1207 | True | 1207 | [] |
1208 | D_Lequal | 1208 | ST_Lightmap |
1209 | Nothing | 1209 | True |
1210 | False | 1210 | D_Lequal |
1211 | "Tex_3226210144"] | 1211 | Nothing |
1212 | False) | 1212 | False |
1213 | , ("textures/gothic_trim/baseboard09_l2" | 1213 | "Tex_3226210144"] |
1214 | , CommonAttrs | 1214 | False) |
1215 | () | 1215 | , ("textures/gothic_trim/baseboard09_l2" |
1216 | () | 1216 | , CommonAttrs |
1217 | False | 1217 | () |
1218 | (fromInt 0) | 1218 | () |
1219 | False | 1219 | False |
1220 | False | 1220 | (fromInt 0) |
1221 | CT_FrontSided | 1221 | False |
1222 | [] | 1222 | False |
1223 | False | 1223 | CT_FrontSided |
1224 | False | 1224 | [] |
1225 | [StageAttrs | 1225 | False |
1226 | Nothing | 1226 | False |
1227 | RGB_IdentityLighting | 1227 | [StageAttrs |
1228 | A_Identity | 1228 | Nothing |
1229 | TG_Base | 1229 | RGB_IdentityLighting |
1230 | [] | 1230 | A_Identity |
1231 | (ST_Map "textures/gothic_trim/baseboard09_l2") | 1231 | TG_Base |
1232 | True | 1232 | [] |
1233 | D_Lequal | 1233 | (ST_Map "textures/gothic_trim/baseboard09_l2") |
1234 | Nothing | 1234 | True |
1235 | False | 1235 | D_Lequal |
1236 | "Tex_3202786139" | 1236 | Nothing |
1237 | , StageAttrs | 1237 | False |
1238 | (Just (B_DstColor, B_Zero)) | 1238 | "Tex_3202786139" |
1239 | RGB_IdentityLighting | 1239 | , StageAttrs |
1240 | A_Identity | 1240 | (Just (B_DstColor, B_Zero)) |
1241 | TG_Lightmap | 1241 | RGB_IdentityLighting |
1242 | [] | 1242 | A_Identity |
1243 | ST_Lightmap | 1243 | TG_Lightmap |
1244 | True | 1244 | [] |
1245 | D_Lequal | 1245 | ST_Lightmap |
1246 | Nothing | 1246 | True |
1247 | False | 1247 | D_Lequal |
1248 | "Tex_3226210144"] | 1248 | Nothing |
1249 | False) | 1249 | False |
1250 | , ("textures/gothic_trim/baseboard09_o3" | 1250 | "Tex_3226210144"] |
1251 | , CommonAttrs | 1251 | False) |
1252 | () | 1252 | , ("textures/gothic_trim/baseboard09_o3" |
1253 | () | 1253 | , CommonAttrs |
1254 | False | 1254 | () |
1255 | (fromInt 0) | 1255 | () |
1256 | False | 1256 | False |
1257 | False | 1257 | (fromInt 0) |
1258 | CT_FrontSided | 1258 | False |
1259 | [] | 1259 | False |
1260 | False | 1260 | CT_FrontSided |
1261 | False | 1261 | [] |
1262 | [StageAttrs | 1262 | False |
1263 | Nothing | 1263 | False |
1264 | RGB_IdentityLighting | 1264 | [StageAttrs |
1265 | A_Identity | 1265 | Nothing |
1266 | TG_Base | 1266 | RGB_IdentityLighting |
1267 | [] | 1267 | A_Identity |
1268 | (ST_Map "textures/gothic_trim/baseboard09_o3") | 1268 | TG_Base |
1269 | True | 1269 | [] |
1270 | D_Lequal | 1270 | (ST_Map "textures/gothic_trim/baseboard09_o3") |
1271 | Nothing | 1271 | True |
1272 | False | 1272 | D_Lequal |
1273 | "Tex_2512757607" | 1273 | Nothing |
1274 | , StageAttrs | 1274 | False |
1275 | (Just (B_DstColor, B_Zero)) | 1275 | "Tex_2512757607" |
1276 | RGB_IdentityLighting | 1276 | , StageAttrs |
1277 | A_Identity | 1277 | (Just (B_DstColor, B_Zero)) |
1278 | TG_Lightmap | 1278 | RGB_IdentityLighting |
1279 | [] | 1279 | A_Identity |
1280 | ST_Lightmap | 1280 | TG_Lightmap |
1281 | True | 1281 | [] |
1282 | D_Lequal | 1282 | ST_Lightmap |
1283 | Nothing | 1283 | True |
1284 | False | 1284 | D_Lequal |
1285 | "Tex_3226210144"] | 1285 | Nothing |
1286 | False) | 1286 | False |
1287 | , ("textures/gothic_trim/km_arena1tower4" | 1287 | "Tex_3226210144"] |
1288 | , CommonAttrs | 1288 | False) |
1289 | () | 1289 | , ("textures/gothic_trim/km_arena1tower4" |
1290 | () | 1290 | , CommonAttrs |
1291 | False | 1291 | () |
1292 | (fromInt 0) | 1292 | () |
1293 | False | 1293 | False |
1294 | False | 1294 | (fromInt 0) |
1295 | CT_FrontSided | 1295 | False |
1296 | [] | 1296 | False |
1297 | False | 1297 | CT_FrontSided |
1298 | False | 1298 | [] |
1299 | [StageAttrs | 1299 | False |
1300 | Nothing | 1300 | False |
1301 | RGB_IdentityLighting | 1301 | [StageAttrs |
1302 | A_Identity | 1302 | Nothing |
1303 | TG_Base | 1303 | RGB_IdentityLighting |
1304 | [] | 1304 | A_Identity |
1305 | (ST_Map "textures/gothic_trim/km_arena1tower4") | 1305 | TG_Base |
1306 | True | 1306 | [] |
1307 | D_Lequal | 1307 | (ST_Map "textures/gothic_trim/km_arena1tower4") |
1308 | Nothing | 1308 | True |
1309 | False | 1309 | D_Lequal |
1310 | "Tex_3479185666" | 1310 | Nothing |
1311 | , StageAttrs | 1311 | False |
1312 | (Just (B_DstColor, B_Zero)) | 1312 | "Tex_3479185666" |
1313 | RGB_IdentityLighting | 1313 | , StageAttrs |
1314 | A_Identity | 1314 | (Just (B_DstColor, B_Zero)) |
1315 | TG_Lightmap | 1315 | RGB_IdentityLighting |
1316 | [] | 1316 | A_Identity |
1317 | ST_Lightmap | 1317 | TG_Lightmap |
1318 | True | 1318 | [] |
1319 | D_Lequal | 1319 | ST_Lightmap |
1320 | Nothing | 1320 | True |
1321 | False | 1321 | D_Lequal |
1322 | "Tex_3226210144"] | 1322 | Nothing |
1323 | False) | 1323 | False |
1324 | , ("textures/gothic_trim/km_arena1tower4_a" | 1324 | "Tex_3226210144"] |
1325 | , CommonAttrs | 1325 | False) |
1326 | () | 1326 | , ("textures/gothic_trim/km_arena1tower4_a" |
1327 | () | 1327 | , CommonAttrs |
1328 | False | 1328 | () |
1329 | (fromInt 0) | 1329 | () |
1330 | False | 1330 | False |
1331 | False | 1331 | (fromInt 0) |
1332 | CT_FrontSided | 1332 | False |
1333 | [] | 1333 | False |
1334 | False | 1334 | CT_FrontSided |
1335 | False | 1335 | [] |
1336 | [StageAttrs | 1336 | False |
1337 | Nothing | 1337 | False |
1338 | RGB_IdentityLighting | 1338 | [StageAttrs |
1339 | A_Identity | 1339 | Nothing |
1340 | TG_Base | 1340 | RGB_IdentityLighting |
1341 | [] | 1341 | A_Identity |
1342 | (ST_Map "textures/gothic_trim/km_arena1tower4_a") | 1342 | TG_Base |
1343 | True | 1343 | [] |
1344 | D_Lequal | 1344 | (ST_Map "textures/gothic_trim/km_arena1tower4_a") |
1345 | Nothing | 1345 | True |
1346 | False | 1346 | D_Lequal |
1347 | "Tex_3012001075" | 1347 | Nothing |
1348 | , StageAttrs | 1348 | False |
1349 | (Just (B_DstColor, B_Zero)) | 1349 | "Tex_3012001075" |
1350 | RGB_IdentityLighting | 1350 | , StageAttrs |
1351 | A_Identity | 1351 | (Just (B_DstColor, B_Zero)) |
1352 | TG_Lightmap | 1352 | RGB_IdentityLighting |
1353 | [] | 1353 | A_Identity |
1354 | ST_Lightmap | 1354 | TG_Lightmap |
1355 | True | 1355 | [] |
1356 | D_Lequal | 1356 | ST_Lightmap |
1357 | Nothing | 1357 | True |
1358 | False | 1358 | D_Lequal |
1359 | "Tex_3226210144"] | 1359 | Nothing |
1360 | False) | 1360 | False |
1361 | , ("textures/gothic_trim/metaldemonkillblock" | 1361 | "Tex_3226210144"] |
1362 | , CommonAttrs | 1362 | False) |
1363 | () | 1363 | , ("textures/gothic_trim/metaldemonkillblock" |
1364 | () | 1364 | , CommonAttrs |
1365 | False | 1365 | () |
1366 | (fromInt 0) | 1366 | () |
1367 | False | 1367 | False |
1368 | False | 1368 | (fromInt 0) |
1369 | CT_FrontSided | 1369 | False |
1370 | [] | 1370 | False |
1371 | False | 1371 | CT_FrontSided |
1372 | False | 1372 | [] |
1373 | [StageAttrs | 1373 | False |
1374 | Nothing | 1374 | False |
1375 | RGB_IdentityLighting | 1375 | [StageAttrs |
1376 | A_Identity | 1376 | Nothing |
1377 | TG_Base | 1377 | RGB_IdentityLighting |
1378 | [] | 1378 | A_Identity |
1379 | (ST_Map "textures/gothic_trim/metaldemonkillblock") | 1379 | TG_Base |
1380 | True | 1380 | [] |
1381 | D_Lequal | 1381 | (ST_Map "textures/gothic_trim/metaldemonkillblock") |
1382 | Nothing | 1382 | True |
1383 | False | 1383 | D_Lequal |
1384 | "Tex_1062467595" | 1384 | Nothing |
1385 | , StageAttrs | 1385 | False |
1386 | (Just (B_DstColor, B_Zero)) | 1386 | "Tex_1062467595" |
1387 | RGB_IdentityLighting | 1387 | , StageAttrs |
1388 | A_Identity | 1388 | (Just (B_DstColor, B_Zero)) |
1389 | TG_Lightmap | 1389 | RGB_IdentityLighting |
1390 | [] | 1390 | A_Identity |
1391 | ST_Lightmap | 1391 | TG_Lightmap |
1392 | True | 1392 | [] |
1393 | D_Lequal | 1393 | ST_Lightmap |
1394 | Nothing | 1394 | True |
1395 | False | 1395 | D_Lequal |
1396 | "Tex_3226210144"] | 1396 | Nothing |
1397 | False) | 1397 | False |
1398 | , ("textures/gothic_trim/metalsupport4b" | 1398 | "Tex_3226210144"] |
1399 | , CommonAttrs | 1399 | False) |
1400 | () | 1400 | , ("textures/gothic_trim/metalsupport4b" |
1401 | () | 1401 | , CommonAttrs |
1402 | False | 1402 | () |
1403 | (fromInt 0) | 1403 | () |
1404 | False | 1404 | False |
1405 | False | 1405 | (fromInt 0) |
1406 | CT_FrontSided | 1406 | False |
1407 | [] | 1407 | False |
1408 | False | 1408 | CT_FrontSided |
1409 | False | 1409 | [] |
1410 | [StageAttrs | 1410 | False |
1411 | Nothing | 1411 | False |
1412 | RGB_IdentityLighting | 1412 | [StageAttrs |
1413 | A_Identity | 1413 | Nothing |
1414 | TG_Base | 1414 | RGB_IdentityLighting |
1415 | [] | 1415 | A_Identity |
1416 | (ST_Map "textures/gothic_trim/metalsupport4b") | 1416 | TG_Base |
1417 | True | 1417 | [] |
1418 | D_Lequal | 1418 | (ST_Map "textures/gothic_trim/metalsupport4b") |
1419 | Nothing | 1419 | True |
1420 | False | 1420 | D_Lequal |
1421 | "Tex_3593923076" | 1421 | Nothing |
1422 | , StageAttrs | 1422 | False |
1423 | (Just (B_DstColor, B_Zero)) | 1423 | "Tex_3593923076" |
1424 | RGB_IdentityLighting | 1424 | , StageAttrs |
1425 | A_Identity | 1425 | (Just (B_DstColor, B_Zero)) |
1426 | TG_Lightmap | 1426 | RGB_IdentityLighting |
1427 | [] | 1427 | A_Identity |
1428 | ST_Lightmap | 1428 | TG_Lightmap |
1429 | True | 1429 | [] |
1430 | D_Lequal | 1430 | ST_Lightmap |
1431 | Nothing | 1431 | True |
1432 | False | 1432 | D_Lequal |
1433 | "Tex_3226210144"] | 1433 | Nothing |
1434 | False) | 1434 | False |
1435 | , ("textures/gothic_trim/metalsupsolid" | 1435 | "Tex_3226210144"] |
1436 | , CommonAttrs | 1436 | False) |
1437 | () | 1437 | , ("textures/gothic_trim/metalsupsolid" |
1438 | () | 1438 | , CommonAttrs |
1439 | False | 1439 | () |
1440 | (fromInt 0) | 1440 | () |
1441 | False | 1441 | False |
1442 | False | 1442 | (fromInt 0) |
1443 | CT_FrontSided | 1443 | False |
1444 | [] | 1444 | False |
1445 | False | 1445 | CT_FrontSided |
1446 | False | 1446 | [] |
1447 | [StageAttrs | 1447 | False |
1448 | Nothing | 1448 | False |
1449 | RGB_IdentityLighting | 1449 | [StageAttrs |
1450 | A_Identity | 1450 | Nothing |
1451 | TG_Base | 1451 | RGB_IdentityLighting |
1452 | [] | 1452 | A_Identity |
1453 | (ST_Map "textures/gothic_trim/metalsupsolid") | 1453 | TG_Base |
1454 | True | 1454 | [] |
1455 | D_Lequal | 1455 | (ST_Map "textures/gothic_trim/metalsupsolid") |
1456 | Nothing | 1456 | True |
1457 | False | 1457 | D_Lequal |
1458 | "Tex_2893650486" | 1458 | Nothing |
1459 | , StageAttrs | 1459 | False |
1460 | (Just (B_DstColor, B_Zero)) | 1460 | "Tex_2893650486" |
1461 | RGB_IdentityLighting | 1461 | , StageAttrs |
1462 | A_Identity | 1462 | (Just (B_DstColor, B_Zero)) |
1463 | TG_Lightmap | 1463 | RGB_IdentityLighting |
1464 | [] | 1464 | A_Identity |
1465 | ST_Lightmap | 1465 | TG_Lightmap |
1466 | True | 1466 | [] |
1467 | D_Lequal | 1467 | ST_Lightmap |
1468 | Nothing | 1468 | True |
1469 | False | 1469 | D_Lequal |
1470 | "Tex_3226210144"] | 1470 | Nothing |
1471 | False) | 1471 | False |
1472 | , ("textures/gothic_trim/pitted_rust" | 1472 | "Tex_3226210144"] |
1473 | , CommonAttrs | 1473 | False) |
1474 | () | 1474 | , ("textures/gothic_trim/pitted_rust" |
1475 | () | 1475 | , CommonAttrs |
1476 | False | 1476 | () |
1477 | (fromInt 0) | 1477 | () |
1478 | False | 1478 | False |
1479 | False | 1479 | (fromInt 0) |
1480 | CT_FrontSided | 1480 | False |
1481 | [] | 1481 | False |
1482 | False | 1482 | CT_FrontSided |
1483 | False | 1483 | [] |
1484 | [StageAttrs | 1484 | False |
1485 | Nothing | 1485 | False |
1486 | RGB_IdentityLighting | 1486 | [StageAttrs |
1487 | A_Identity | 1487 | Nothing |
1488 | TG_Base | 1488 | RGB_IdentityLighting |
1489 | [] | 1489 | A_Identity |
1490 | (ST_Map "textures/gothic_trim/pitted_rust") | 1490 | TG_Base |
1491 | True | 1491 | [] |
1492 | D_Lequal | 1492 | (ST_Map "textures/gothic_trim/pitted_rust") |
1493 | Nothing | 1493 | True |
1494 | False | 1494 | D_Lequal |
1495 | "Tex_1243894392" | 1495 | Nothing |
1496 | , StageAttrs | 1496 | False |
1497 | (Just (B_DstColor, B_Zero)) | 1497 | "Tex_1243894392" |
1498 | RGB_IdentityLighting | 1498 | , StageAttrs |
1499 | A_Identity | 1499 | (Just (B_DstColor, B_Zero)) |
1500 | TG_Lightmap | 1500 | RGB_IdentityLighting |
1501 | [] | 1501 | A_Identity |
1502 | ST_Lightmap | 1502 | TG_Lightmap |
1503 | True | 1503 | [] |
1504 | D_Lequal | 1504 | ST_Lightmap |
1505 | Nothing | 1505 | True |
1506 | False | 1506 | D_Lequal |
1507 | "Tex_3226210144"] | 1507 | Nothing |
1508 | False) | 1508 | False |
1509 | , ("textures/gothic_trim/pitted_rust2" | 1509 | "Tex_3226210144"] |
1510 | , CommonAttrs | 1510 | False) |
1511 | () | 1511 | , ("textures/gothic_trim/pitted_rust2" |
1512 | () | 1512 | , CommonAttrs |
1513 | False | 1513 | () |
1514 | (fromInt 0) | 1514 | () |
1515 | False | 1515 | False |
1516 | False | 1516 | (fromInt 0) |
1517 | CT_FrontSided | 1517 | False |
1518 | [] | 1518 | False |
1519 | False | 1519 | CT_FrontSided |
1520 | False | 1520 | [] |
1521 | [StageAttrs | 1521 | False |
1522 | Nothing | 1522 | False |
1523 | RGB_IdentityLighting | 1523 | [StageAttrs |
1524 | A_Identity | 1524 | Nothing |
1525 | TG_Base | 1525 | RGB_IdentityLighting |
1526 | [] | 1526 | A_Identity |
1527 | (ST_Map "textures/gothic_trim/pitted_rust2") | 1527 | TG_Base |
1528 | True | 1528 | [] |
1529 | D_Lequal | 1529 | (ST_Map "textures/gothic_trim/pitted_rust2") |
1530 | Nothing | 1530 | True |
1531 | False | 1531 | D_Lequal |
1532 | "Tex_2099456856" | 1532 | Nothing |
1533 | , StageAttrs | 1533 | False |
1534 | (Just (B_DstColor, B_Zero)) | 1534 | "Tex_2099456856" |
1535 | RGB_IdentityLighting | 1535 | , StageAttrs |
1536 | A_Identity | 1536 | (Just (B_DstColor, B_Zero)) |
1537 | TG_Lightmap | 1537 | RGB_IdentityLighting |
1538 | [] | 1538 | A_Identity |
1539 | ST_Lightmap | 1539 | TG_Lightmap |
1540 | True | 1540 | [] |
1541 | D_Lequal | 1541 | ST_Lightmap |
1542 | Nothing | 1542 | True |
1543 | False | 1543 | D_Lequal |
1544 | "Tex_3226210144"] | 1544 | Nothing |
1545 | False) | 1545 | False |
1546 | , ("textures/gothic_trim/pitted_rust2_trans" | 1546 | "Tex_3226210144"] |
1547 | , CommonAttrs | 1547 | False) |
1548 | () | 1548 | , ("textures/gothic_trim/pitted_rust2_trans" |
1549 | () | 1549 | , CommonAttrs |
1550 | False | 1550 | () |
1551 | (fromInt 3) | 1551 | () |
1552 | False | 1552 | False |
1553 | False | 1553 | (fromInt 3) |
1554 | CT_FrontSided | 1554 | False |
1555 | [] | 1555 | False |
1556 | False | 1556 | CT_FrontSided |
1557 | False | 1557 | [] |
1558 | [StageAttrs | 1558 | False |
1559 | Nothing | 1559 | False |
1560 | RGB_Identity | 1560 | [StageAttrs |
1561 | A_Identity | 1561 | Nothing |
1562 | TG_Lightmap | 1562 | RGB_Identity |
1563 | [] | 1563 | A_Identity |
1564 | ST_Lightmap | 1564 | TG_Lightmap |
1565 | True | 1565 | [] |
1566 | D_Lequal | 1566 | ST_Lightmap |
1567 | Nothing | 1567 | True |
1568 | False | 1568 | D_Lequal |
1569 | "Tex_511571587" | 1569 | Nothing |
1570 | , StageAttrs | 1570 | False |
1571 | (Just (B_DstColor, B_Zero)) | 1571 | "Tex_511571587" |
1572 | RGB_Identity | 1572 | , StageAttrs |
1573 | A_Identity | 1573 | (Just (B_DstColor, B_Zero)) |
1574 | TG_Base | 1574 | RGB_Identity |
1575 | [] | 1575 | A_Identity |
1576 | (ST_Map "textures/gothic_trim/pitted_rust2.tga") | 1576 | TG_Base |
1577 | False | 1577 | [] |
1578 | D_Lequal | 1578 | (ST_Map "textures/gothic_trim/pitted_rust2.tga") |
1579 | Nothing | 1579 | False |
1580 | False | 1580 | D_Lequal |
1581 | "Tex_1910997598"] | 1581 | Nothing |
1582 | False) | 1582 | False |
1583 | , ("textures/gothic_trim/pitted_rust3" | 1583 | "Tex_1910997598"] |
1584 | , CommonAttrs | 1584 | False) |
1585 | () | 1585 | , ("textures/gothic_trim/pitted_rust3" |
1586 | () | 1586 | , CommonAttrs |
1587 | False | 1587 | () |
1588 | (fromInt 0) | 1588 | () |
1589 | False | 1589 | False |
1590 | False | 1590 | (fromInt 0) |
1591 | CT_FrontSided | 1591 | False |
1592 | [] | 1592 | False |
1593 | False | 1593 | CT_FrontSided |
1594 | False | 1594 | [] |
1595 | [StageAttrs | 1595 | False |
1596 | Nothing | 1596 | False |
1597 | RGB_IdentityLighting | 1597 | [StageAttrs |
1598 | A_Identity | 1598 | Nothing |
1599 | TG_Base | 1599 | RGB_IdentityLighting |
1600 | [] | 1600 | A_Identity |
1601 | (ST_Map "textures/gothic_trim/pitted_rust3") | 1601 | TG_Base |
1602 | True | 1602 | [] |
1603 | D_Lequal | 1603 | (ST_Map "textures/gothic_trim/pitted_rust3") |
1604 | Nothing | 1604 | True |
1605 | False | 1605 | D_Lequal |
1606 | "Tex_3389727963" | 1606 | Nothing |
1607 | , StageAttrs | 1607 | False |
1608 | (Just (B_DstColor, B_Zero)) | 1608 | "Tex_3389727963" |
1609 | RGB_IdentityLighting | 1609 | , StageAttrs |
1610 | A_Identity | 1610 | (Just (B_DstColor, B_Zero)) |
1611 | TG_Lightmap | 1611 | RGB_IdentityLighting |
1612 | [] | 1612 | A_Identity |
1613 | ST_Lightmap | 1613 | TG_Lightmap |
1614 | True | 1614 | [] |
1615 | D_Lequal | 1615 | ST_Lightmap |
1616 | Nothing | 1616 | True |
1617 | False | 1617 | D_Lequal |
1618 | "Tex_3226210144"] | 1618 | Nothing |
1619 | False) | 1619 | False |
1620 | , ("textures/gothic_trim/skullsvertgray02b" | 1620 | "Tex_3226210144"] |
1621 | , CommonAttrs | 1621 | False) |
1622 | () | 1622 | , ("textures/gothic_trim/skullsvertgray02b" |
1623 | () | 1623 | , CommonAttrs |
1624 | False | 1624 | () |
1625 | (fromInt 0) | 1625 | () |
1626 | False | 1626 | False |
1627 | False | 1627 | (fromInt 0) |
1628 | CT_FrontSided | 1628 | False |
1629 | [] | 1629 | False |
1630 | False | 1630 | CT_FrontSided |
1631 | False | 1631 | [] |
1632 | [StageAttrs | 1632 | False |
1633 | Nothing | 1633 | False |
1634 | RGB_IdentityLighting | 1634 | [StageAttrs |
1635 | A_Identity | 1635 | Nothing |
1636 | TG_Base | 1636 | RGB_IdentityLighting |
1637 | [] | 1637 | A_Identity |
1638 | (ST_Map "textures/gothic_trim/skullsvertgray02b") | 1638 | TG_Base |
1639 | True | 1639 | [] |
1640 | D_Lequal | 1640 | (ST_Map "textures/gothic_trim/skullsvertgray02b") |
1641 | Nothing | 1641 | True |
1642 | False | 1642 | D_Lequal |
1643 | "Tex_2634868983" | 1643 | Nothing |
1644 | , StageAttrs | 1644 | False |
1645 | (Just (B_DstColor, B_Zero)) | 1645 | "Tex_2634868983" |
1646 | RGB_IdentityLighting | 1646 | , StageAttrs |
1647 | A_Identity | 1647 | (Just (B_DstColor, B_Zero)) |
1648 | TG_Lightmap | 1648 | RGB_IdentityLighting |
1649 | [] | 1649 | A_Identity |
1650 | ST_Lightmap | 1650 | TG_Lightmap |
1651 | True | 1651 | [] |
1652 | D_Lequal | 1652 | ST_Lightmap |
1653 | Nothing | 1653 | True |
1654 | False | 1654 | D_Lequal |
1655 | "Tex_3226210144"] | 1655 | Nothing |
1656 | False) | 1656 | False |
1657 | , ("textures/gothic_wall/iron01_e" | 1657 | "Tex_3226210144"] |
1658 | , CommonAttrs | 1658 | False) |
1659 | () | 1659 | , ("textures/gothic_wall/iron01_e" |
1660 | () | 1660 | , CommonAttrs |
1661 | False | 1661 | () |
1662 | (fromInt 0) | 1662 | () |
1663 | False | 1663 | False |
1664 | False | 1664 | (fromInt 0) |
1665 | CT_FrontSided | 1665 | False |
1666 | [] | 1666 | False |
1667 | False | 1667 | CT_FrontSided |
1668 | False | 1668 | [] |
1669 | [StageAttrs | 1669 | False |
1670 | Nothing | 1670 | False |
1671 | RGB_IdentityLighting | 1671 | [StageAttrs |
1672 | A_Identity | 1672 | Nothing |
1673 | TG_Base | 1673 | RGB_IdentityLighting |
1674 | [] | 1674 | A_Identity |
1675 | (ST_Map "textures/gothic_wall/iron01_e") | 1675 | TG_Base |
1676 | True | 1676 | [] |
1677 | D_Lequal | 1677 | (ST_Map "textures/gothic_wall/iron01_e") |
1678 | Nothing | 1678 | True |
1679 | False | 1679 | D_Lequal |
1680 | "Tex_2432583247" | 1680 | Nothing |
1681 | , StageAttrs | 1681 | False |
1682 | (Just (B_DstColor, B_Zero)) | 1682 | "Tex_2432583247" |
1683 | RGB_IdentityLighting | 1683 | , StageAttrs |
1684 | A_Identity | 1684 | (Just (B_DstColor, B_Zero)) |
1685 | TG_Lightmap | 1685 | RGB_IdentityLighting |
1686 | [] | 1686 | A_Identity |
1687 | ST_Lightmap | 1687 | TG_Lightmap |
1688 | True | 1688 | [] |
1689 | D_Lequal | 1689 | ST_Lightmap |
1690 | Nothing | 1690 | True |
1691 | False | 1691 | D_Lequal |
1692 | "Tex_3226210144"] | 1692 | Nothing |
1693 | False) | 1693 | False |
1694 | , ("textures/gothic_wall/iron01_ntech3" | 1694 | "Tex_3226210144"] |
1695 | , CommonAttrs | 1695 | False) |
1696 | () | 1696 | , ("textures/gothic_wall/iron01_ntech3" |
1697 | () | 1697 | , CommonAttrs |
1698 | False | 1698 | () |
1699 | (fromInt 0) | 1699 | () |
1700 | False | 1700 | False |
1701 | False | 1701 | (fromInt 0) |
1702 | CT_FrontSided | 1702 | False |
1703 | [] | 1703 | False |
1704 | False | 1704 | CT_FrontSided |
1705 | False | 1705 | [] |
1706 | [StageAttrs | 1706 | False |
1707 | Nothing | 1707 | False |
1708 | RGB_IdentityLighting | 1708 | [StageAttrs |
1709 | A_Identity | 1709 | Nothing |
1710 | TG_Base | 1710 | RGB_IdentityLighting |
1711 | [] | 1711 | A_Identity |
1712 | (ST_Map "textures/gothic_wall/iron01_ntech3") | 1712 | TG_Base |
1713 | True | 1713 | [] |
1714 | D_Lequal | 1714 | (ST_Map "textures/gothic_wall/iron01_ntech3") |
1715 | Nothing | 1715 | True |
1716 | False | 1716 | D_Lequal |
1717 | "Tex_442868841" | 1717 | Nothing |
1718 | , StageAttrs | 1718 | False |
1719 | (Just (B_DstColor, B_Zero)) | 1719 | "Tex_442868841" |
1720 | RGB_IdentityLighting | 1720 | , StageAttrs |
1721 | A_Identity | 1721 | (Just (B_DstColor, B_Zero)) |
1722 | TG_Lightmap | 1722 | RGB_IdentityLighting |
1723 | [] | 1723 | A_Identity |
1724 | ST_Lightmap | 1724 | TG_Lightmap |
1725 | True | 1725 | [] |
1726 | D_Lequal | 1726 | ST_Lightmap |
1727 | Nothing | 1727 | True |
1728 | False | 1728 | D_Lequal |
1729 | "Tex_3226210144"] | 1729 | Nothing |
1730 | False) | 1730 | False |
1731 | , ("textures/gothic_wall/skull4" | 1731 | "Tex_3226210144"] |
1732 | , CommonAttrs | 1732 | False) |
1733 | () | 1733 | , ("textures/gothic_wall/skull4" |
1734 | () | 1734 | , CommonAttrs |
1735 | False | 1735 | () |
1736 | (fromInt 0) | 1736 | () |
1737 | False | 1737 | False |
1738 | False | 1738 | (fromInt 0) |
1739 | CT_FrontSided | 1739 | False |
1740 | [] | 1740 | False |
1741 | False | 1741 | CT_FrontSided |
1742 | False | 1742 | [] |
1743 | [StageAttrs | 1743 | False |
1744 | Nothing | 1744 | False |
1745 | RGB_IdentityLighting | 1745 | [StageAttrs |
1746 | A_Identity | 1746 | Nothing |
1747 | TG_Base | 1747 | RGB_IdentityLighting |
1748 | [] | 1748 | A_Identity |
1749 | (ST_Map "textures/gothic_wall/skull4") | 1749 | TG_Base |
1750 | True | 1750 | [] |
1751 | D_Lequal | 1751 | (ST_Map "textures/gothic_wall/skull4") |
1752 | Nothing | 1752 | True |
1753 | False | 1753 | D_Lequal |
1754 | "Tex_2239853403" | 1754 | Nothing |
1755 | , StageAttrs | 1755 | False |
1756 | (Just (B_DstColor, B_Zero)) | 1756 | "Tex_2239853403" |
1757 | RGB_IdentityLighting | 1757 | , StageAttrs |
1758 | A_Identity | 1758 | (Just (B_DstColor, B_Zero)) |
1759 | TG_Lightmap | 1759 | RGB_IdentityLighting |
1760 | [] | 1760 | A_Identity |
1761 | ST_Lightmap | 1761 | TG_Lightmap |
1762 | True | 1762 | [] |
1763 | D_Lequal | 1763 | ST_Lightmap |
1764 | Nothing | 1764 | True |
1765 | False | 1765 | D_Lequal |
1766 | "Tex_3226210144"] | 1766 | Nothing |
1767 | False) | 1767 | False |
1768 | , ("textures/gothic_wall/slateroofc" | 1768 | "Tex_3226210144"] |
1769 | , CommonAttrs | 1769 | False) |
1770 | () | 1770 | , ("textures/gothic_wall/slateroofc" |
1771 | () | 1771 | , CommonAttrs |
1772 | False | 1772 | () |
1773 | (fromInt 0) | 1773 | () |
1774 | False | 1774 | False |
1775 | False | 1775 | (fromInt 0) |
1776 | CT_FrontSided | 1776 | False |
1777 | [] | 1777 | False |
1778 | False | 1778 | CT_FrontSided |
1779 | False | 1779 | [] |
1780 | [StageAttrs | 1780 | False |
1781 | Nothing | 1781 | False |
1782 | RGB_IdentityLighting | 1782 | [StageAttrs |
1783 | A_Identity | 1783 | Nothing |
1784 | TG_Base | 1784 | RGB_IdentityLighting |
1785 | [] | 1785 | A_Identity |
1786 | (ST_Map "textures/gothic_wall/slateroofc") | 1786 | TG_Base |
1787 | True | 1787 | [] |
1788 | D_Lequal | 1788 | (ST_Map "textures/gothic_wall/slateroofc") |
1789 | Nothing | 1789 | True |
1790 | False | 1790 | D_Lequal |
1791 | "Tex_2490648334" | 1791 | Nothing |
1792 | , StageAttrs | 1792 | False |
1793 | (Just (B_DstColor, B_Zero)) | 1793 | "Tex_2490648334" |
1794 | RGB_IdentityLighting | 1794 | , StageAttrs |
1795 | A_Identity | 1795 | (Just (B_DstColor, B_Zero)) |
1796 | TG_Lightmap | 1796 | RGB_IdentityLighting |
1797 | [] | 1797 | A_Identity |
1798 | ST_Lightmap | 1798 | TG_Lightmap |
1799 | True | 1799 | [] |
1800 | D_Lequal | 1800 | ST_Lightmap |
1801 | Nothing | 1801 | True |
1802 | False | 1802 | D_Lequal |
1803 | "Tex_3226210144"] | 1803 | Nothing |
1804 | False) | 1804 | False |
1805 | , ("textures/gothic_wall/supportborder_blue_b" | 1805 | "Tex_3226210144"] |
1806 | , CommonAttrs | 1806 | False) |
1807 | () | 1807 | , ("textures/gothic_wall/supportborder_blue_b" |
1808 | () | 1808 | , CommonAttrs |
1809 | False | 1809 | () |
1810 | (fromInt 0) | 1810 | () |
1811 | False | 1811 | False |
1812 | False | 1812 | (fromInt 0) |
1813 | CT_FrontSided | 1813 | False |
1814 | [] | 1814 | False |
1815 | False | 1815 | CT_FrontSided |
1816 | False | 1816 | [] |
1817 | [StageAttrs | 1817 | False |
1818 | Nothing | 1818 | False |
1819 | RGB_IdentityLighting | 1819 | [StageAttrs |
1820 | A_Identity | 1820 | Nothing |
1821 | TG_Base | 1821 | RGB_IdentityLighting |
1822 | [] | 1822 | A_Identity |
1823 | (ST_Map "textures/gothic_wall/supportborder_blue_b") | 1823 | TG_Base |
1824 | True | 1824 | [] |
1825 | D_Lequal | 1825 | (ST_Map "textures/gothic_wall/supportborder_blue_b") |
1826 | Nothing | 1826 | True |
1827 | False | 1827 | D_Lequal |
1828 | "Tex_564811775" | 1828 | Nothing |
1829 | , StageAttrs | 1829 | False |
1830 | (Just (B_DstColor, B_Zero)) | 1830 | "Tex_564811775" |
1831 | RGB_IdentityLighting | 1831 | , StageAttrs |
1832 | A_Identity | 1832 | (Just (B_DstColor, B_Zero)) |
1833 | TG_Lightmap | 1833 | RGB_IdentityLighting |
1834 | [] | 1834 | A_Identity |
1835 | ST_Lightmap | 1835 | TG_Lightmap |
1836 | True | 1836 | [] |
1837 | D_Lequal | 1837 | ST_Lightmap |
1838 | Nothing | 1838 | True |
1839 | False | 1839 | D_Lequal |
1840 | "Tex_3226210144"] | 1840 | Nothing |
1841 | False) | 1841 | False |
1842 | , ("textures/gothic_wall/supportborder_blue_c" | 1842 | "Tex_3226210144"] |
1843 | , CommonAttrs | 1843 | False) |
1844 | () | 1844 | , ("textures/gothic_wall/supportborder_blue_c" |
1845 | () | 1845 | , CommonAttrs |
1846 | False | 1846 | () |
1847 | (fromInt 0) | 1847 | () |
1848 | False | 1848 | False |
1849 | False | 1849 | (fromInt 0) |
1850 | CT_FrontSided | 1850 | False |
1851 | [] | 1851 | False |
1852 | False | 1852 | CT_FrontSided |
1853 | False | 1853 | [] |
1854 | [StageAttrs | 1854 | False |
1855 | Nothing | 1855 | False |
1856 | RGB_IdentityLighting | 1856 | [StageAttrs |
1857 | A_Identity | 1857 | Nothing |
1858 | TG_Base | 1858 | RGB_IdentityLighting |
1859 | [] | 1859 | A_Identity |
1860 | (ST_Map "textures/gothic_wall/supportborder_blue_c") | 1860 | TG_Base |
1861 | True | 1861 | [] |
1862 | D_Lequal | 1862 | (ST_Map "textures/gothic_wall/supportborder_blue_c") |
1863 | Nothing | 1863 | True |
1864 | False | 1864 | D_Lequal |
1865 | "Tex_2525124732" | 1865 | Nothing |
1866 | , StageAttrs | 1866 | False |
1867 | (Just (B_DstColor, B_Zero)) | 1867 | "Tex_2525124732" |
1868 | RGB_IdentityLighting | 1868 | , StageAttrs |
1869 | A_Identity | 1869 | (Just (B_DstColor, B_Zero)) |
1870 | TG_Lightmap | 1870 | RGB_IdentityLighting |
1871 | [] | 1871 | A_Identity |
1872 | ST_Lightmap | 1872 | TG_Lightmap |
1873 | True | 1873 | [] |
1874 | D_Lequal | 1874 | ST_Lightmap |
1875 | Nothing | 1875 | True |
1876 | False | 1876 | D_Lequal |
1877 | "Tex_3226210144"] | 1877 | Nothing |
1878 | False)] | 1878 | False |
1879 | "Tex_3226210144"] | ||
1880 | False)]) | ||
1879 | ------------ core code | 1881 | ------------ core code |
1880 | sampleMaterial :: [(String, CommonAttrs)] | 1882 | sampleMaterial :: [(String, CommonAttrs)] |
1881 | sampleMaterial | 1883 | sampleMaterial |
diff --git a/testdata/ambig.out b/testdata/ambig.out index dd058a85..c78ba1de 100644 --- a/testdata/ambig.out +++ b/testdata/ambig.out | |||
@@ -1,19 +1,23 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | h | 3 | h |
4 | = \(a :: _) (b :: _) (_ :: _) -> _rhs | 4 | = _lhs |
5 | let | 5 | h |
6 | c | 6 | \(a :: _) (b :: _) (_ :: _) -> _rhs |
7 | = _rhs | 7 | let |
8 | ((\(d :: _) -> hlistConsCase | 8 | c |
9 | _ | 9 | = _lhs |
10 | (\(e :: _) (f :: _) -> hlistConsCase | 10 | x |
11 | _ | 11 | (_rhs |
12 | (\(g :: _) (h :: _) -> hlistNilCase _ (a e g) h) | 12 | ((\(d :: _) -> hlistConsCase |
13 | f) | 13 | _ |
14 | d) | 14 | (\(e :: _) (f :: _) -> hlistConsCase |
15 | b) | 15 | _ |
16 | in c | 16 | (\(g :: _) (h :: _) -> hlistNilCase _ (a e g) h) |
17 | f) | ||
18 | d) | ||
19 | b)) | ||
20 | in c | ||
17 | ------------ core code | 21 | ------------ core code |
18 | h :: forall a b c d . (b -> d -> c) -> (b, d) -> a -> c | 22 | h :: forall a b c d . (b -> d -> c) -> (b, d) -> a -> c |
19 | h | 23 | h |
diff --git a/testdata/complex.out b/testdata/complex.out index 913661e9..4bcb401b 100644 --- a/testdata/complex.out +++ b/testdata/complex.out | |||
@@ -8,105 +8,117 @@ data Complex :: Repr -> Type where | |||
8 | Complex :: forall (a :: _) . Float -> Float -> Complex a | 8 | Complex :: forall (a :: _) . Float -> Float -> Complex a |
9 | 9 | ||
10 | repr :: forall (a :: _) . Complex a -> Repr | 10 | repr :: forall (a :: _) . Complex a -> Repr |
11 | repr = \ @(a :: _) (_ :: _) -> _rhs a | 11 | repr = _lhs repr \ @(a :: _) (_ :: _) -> _rhs a |
12 | 12 | ||
13 | normal :: Float -> Float -> Complex Normal | 13 | normal :: Float -> Float -> Complex Normal |
14 | normal = \(a :: _) (b :: _) -> _rhs (Complex a b) | 14 | normal = _lhs normal \(a :: _) (b :: _) -> _rhs (Complex a b) |
15 | 15 | ||
16 | polar :: Float -> Float -> Complex Polar | 16 | polar :: Float -> Float -> Complex Polar |
17 | polar = \(a :: _) (b :: _) -> _rhs (Complex a b) | 17 | polar = _lhs polar \(a :: _) (b :: _) -> _rhs (Complex a b) |
18 | 18 | ||
19 | cabs :: forall (a :: _) . Complex a -> Float | 19 | cabs :: forall (a :: _) . Complex a -> Float |
20 | cabs | 20 | cabs |
21 | = \ @(a :: _) (b :: _) -> case'Repr | 21 | = _lhs |
22 | (\(_ :: _) -> _) | 22 | cabs |
23 | (case'Complex | 23 | \ @(a :: _) (b :: _) -> case'Repr |
24 | (\(_ :: _) (_ :: _) -> _) | 24 | (\(_ :: _) -> _) |
25 | (\(c :: _) (d :: _) -> _rhs (sqrt (c * c + d * d))) | 25 | (case'Complex |
26 | b) | 26 | (\(_ :: _) (_ :: _) -> _) |
27 | (case'Complex (\(_ :: _) (_ :: _) -> _) (\(e :: _) (_ :: _) -> _rhs e) b) | 27 | (\(c :: _) (d :: _) -> _rhs (sqrt (c * c + d * d))) |
28 | a | 28 | b) |
29 | (case'Complex (\(_ :: _) (_ :: _) -> _) (\(e :: _) (_ :: _) -> _rhs e) b) | ||
30 | a | ||
29 | 31 | ||
30 | toPolar :: Complex Normal -> Complex Polar | 32 | toPolar :: Complex Normal -> Complex Polar |
31 | toPolar | 33 | toPolar |
32 | = \(a :: _) -> case'Complex | 34 | = _lhs |
33 | (\(_ :: _) (_ :: _) -> _) | 35 | toPolar |
34 | (\(b :: _) (c :: _) -> _rhs | 36 | \(a :: _) -> case'Complex |
35 | let d = _rhs (sqrt (b * b + c * c)) in primIfThenElse | 37 | (\(_ :: _) (_ :: _) -> _) |
36 | (b > 0.0) | 38 | (\(b :: _) (c :: _) -> _rhs |
37 | (polar d (atan (c / b))) | 39 | let d = _lhs r (_rhs (sqrt (b * b + c * c))) in primIfThenElse |
38 | (primIfThenElse | 40 | (b > 0.0) |
39 | (b < 0.0 && c >= 0.0) | 41 | (polar d (atan (c / b))) |
40 | (polar d (atan (c / b) + pi)) | ||
41 | (primIfThenElse | 42 | (primIfThenElse |
42 | (b < 0.0 && c < 0.0) | 43 | (b < 0.0 && c >= 0.0) |
43 | (polar d (atan (c / b) - pi)) | 44 | (polar d (atan (c / b) + pi)) |
44 | (primIfThenElse | 45 | (primIfThenElse |
45 | (b == 0.0 && c >= 0.0) | 46 | (b < 0.0 && c < 0.0) |
46 | (polar d (pi / 2.0)) | 47 | (polar d (atan (c / b) - pi)) |
47 | (primIfThenElse | 48 | (primIfThenElse |
48 | (b == 0.0 && c < 0.0) | 49 | (b == 0.0 && c >= 0.0) |
49 | (polar d (fromInt 0 - pi / 2.0)) | 50 | (polar d (pi / 2.0)) |
50 | undefined))))) | 51 | (primIfThenElse |
51 | a | 52 | (b == 0.0 && c < 0.0) |
53 | (polar d (fromInt 0 - pi / 2.0)) | ||
54 | undefined))))) | ||
55 | a | ||
52 | 56 | ||
53 | toNormal :: Complex Polar -> Complex Normal | 57 | toNormal :: Complex Polar -> Complex Normal |
54 | toNormal | 58 | toNormal |
55 | = \(a :: _) -> case'Complex | 59 | = _lhs |
56 | (\(_ :: _) (_ :: _) -> _) | 60 | toNormal |
57 | (\(b :: _) (c :: _) -> _rhs (Complex (b * cos c) (b * sin c))) | 61 | \(a :: _) -> case'Complex |
58 | a | 62 | (\(_ :: _) (_ :: _) -> _) |
63 | (\(b :: _) (c :: _) -> _rhs (Complex (b * cos c) (b * sin c))) | ||
64 | a | ||
59 | 65 | ||
60 | it_should_fail | 66 | it_should_fail |
61 | = \(a :: _) -> case'Complex | 67 | = _lhs |
62 | (\(_ :: _) (_ :: _) -> _) | 68 | it_should_fail |
63 | (\(b :: _) (_ :: _) -> _rhs b) | 69 | \(a :: _) -> case'Complex |
64 | a | 70 | (\(_ :: _) (_ :: _) -> _) |
71 | (\(b :: _) (_ :: _) -> _rhs b) | ||
72 | a | ||
65 | 73 | ||
66 | add :: forall (a :: _) (b :: _) . Complex a -> Complex b -> Complex a | 74 | add :: forall (a :: _) (b :: _) . Complex a -> Complex b -> Complex a |
67 | add | 75 | add |
68 | = \ @(a :: _) @(b :: _) (c :: _) (d :: _) -> case'Repr | 76 | = _lhs |
69 | (\(_ :: _) -> _) | 77 | add |
70 | (case'Repr | 78 | \ @(a :: _) @(b :: _) (c :: _) (d :: _) -> case'Repr |
71 | (\(_ :: _) -> _) | 79 | (\(_ :: _) -> _) |
72 | (case'Complex | 80 | (case'Repr |
73 | (\(_ :: _) (_ :: _) -> _) | 81 | (\(_ :: _) -> _) |
74 | (\(e :: _) (f :: _) -> case'Complex | 82 | (case'Complex |
75 | (\(_ :: _) (_ :: _) -> _) | 83 | (\(_ :: _) (_ :: _) -> _) |
76 | (\(g :: _) (h :: _) -> _rhs (Complex (e + g) (f + h))) | 84 | (\(e :: _) (f :: _) -> case'Complex |
77 | d) | 85 | (\(_ :: _) (_ :: _) -> _) |
78 | c) | 86 | (\(g :: _) (h :: _) -> _rhs (Complex (e + g) (f + h))) |
87 | d) | ||
88 | c) | ||
89 | (_rhs undefined) | ||
90 | b) | ||
79 | (_rhs undefined) | 91 | (_rhs undefined) |
80 | b) | 92 | a |
81 | (_rhs undefined) | ||
82 | a | ||
83 | 93 | ||
84 | mul :: forall (a :: _) (b :: _) . Complex a -> Complex b -> Complex a | 94 | mul :: forall (a :: _) (b :: _) . Complex a -> Complex b -> Complex a |
85 | mul | 95 | mul |
86 | = \ @(a :: _) @(b :: _) (c :: _) (d :: _) -> case'Repr | 96 | = _lhs |
87 | (\(_ :: _) -> _) | 97 | mul |
88 | (case'Repr | 98 | \ @(a :: _) @(b :: _) (c :: _) (d :: _) -> case'Repr |
89 | (\(_ :: _) -> _) | 99 | (\(_ :: _) -> _) |
90 | (case'Complex | 100 | (case'Repr |
91 | (\(_ :: _) (_ :: _) -> _) | 101 | (\(_ :: _) -> _) |
92 | (\(e :: _) (f :: _) -> case'Complex | 102 | (case'Complex |
93 | (\(_ :: _) (_ :: _) -> _) | 103 | (\(_ :: _) (_ :: _) -> _) |
94 | (\(g :: _) (h :: _) -> _rhs (Complex (e * g - f * h) (f * g + e * h))) | 104 | (\(e :: _) (f :: _) -> case'Complex |
95 | d) | 105 | (\(_ :: _) (_ :: _) -> _) |
96 | c) | 106 | (\(g :: _) (h :: _) -> _rhs (Complex (e * g - f * h) (f * g + e * h))) |
107 | d) | ||
108 | c) | ||
109 | (_rhs undefined) | ||
110 | b) | ||
97 | (_rhs undefined) | 111 | (_rhs undefined) |
98 | b) | 112 | a |
99 | (_rhs undefined) | ||
100 | a | ||
101 | 113 | ||
102 | s :: forall (a :: _) . Complex a -> Complex a | 114 | s :: forall (a :: _) . Complex a -> Complex a |
103 | s = \(a :: _) -> _rhs (mul a a `add` a) | 115 | s = _lhs s \(a :: _) -> _rhs (mul a a `add` a) |
104 | 116 | ||
105 | s4 = \(a :: _) -> _rhs (s (s (s (s a)))) | 117 | s4 = _lhs s4 \(a :: _) -> _rhs (s (s (s (s a)))) |
106 | 118 | ||
107 | iter = _rhs s4 | 119 | iter = _lhs iter (_rhs s4) |
108 | 120 | ||
109 | mandel = \(a :: _) -> _rhs (cabs (iter a) < 2.0) | 121 | mandel = _lhs mandel \(a :: _) -> _rhs (cabs (iter a) < 2.0) |
110 | ------------ core code | 122 | ------------ core code |
111 | 'Complex :: Repr -> Type | 123 | 'Complex :: Repr -> Type |
112 | 'Complex = <<type constructor with 1 indices; constructors: Complex>> | 124 | 'Complex = <<type constructor with 1 indices; constructors: Complex>> |
diff --git a/testdata/data.out b/testdata/data.out index 1d441619..d0e3b82f 100644 --- a/testdata/data.out +++ b/testdata/data.out | |||
@@ -13,22 +13,26 @@ data Data2 :: Type where | |||
13 | Data24 :: Data2 | 13 | Data24 :: Data2 |
14 | 14 | ||
15 | x | 15 | x |
16 | = \(a :: _) -> case'Data2 | 16 | = _lhs |
17 | (\(_ :: _) -> _) | 17 | x |
18 | (\(_ :: _) -> _rhs undefined) | 18 | \(a :: _) -> case'Data2 |
19 | (\(b :: _) (_ :: _) -> _rhs b) | 19 | (\(_ :: _) -> _) |
20 | (\(c :: _) -> _rhs c) | 20 | (\(_ :: _) -> _rhs undefined) |
21 | (_rhs undefined) | 21 | (\(b :: _) (_ :: _) -> _rhs b) |
22 | a | 22 | (\(c :: _) -> _rhs c) |
23 | (_rhs undefined) | ||
24 | a | ||
23 | 25 | ||
24 | y | 26 | y |
25 | = \(a :: _) -> case'Data2 | 27 | = _lhs |
26 | (\(_ :: _) -> _) | 28 | y |
27 | (\(_ :: _) -> _rhs undefined) | 29 | \(a :: _) -> case'Data2 |
28 | (\(_ :: _) (b :: _) -> _rhs b) | 30 | (\(_ :: _) -> _) |
29 | (\(_ :: _) -> _rhs undefined) | 31 | (\(_ :: _) -> _rhs undefined) |
30 | (_rhs undefined) | 32 | (\(_ :: _) (b :: _) -> _rhs b) |
31 | a | 33 | (\(_ :: _) -> _rhs undefined) |
34 | (_rhs undefined) | ||
35 | a | ||
32 | 36 | ||
33 | data Data5 (_ :: Type) (_ :: Type) (_ :: Type) :: Type where | 37 | data Data5 (_ :: Type) (_ :: Type) (_ :: Type) :: Type where |
34 | Data51 :: forall a b c . a -> Data5 a b c | 38 | Data51 :: forall a b c . a -> Data5 a b c |
@@ -36,28 +40,34 @@ data Data5 (_ :: Type) (_ :: Type) (_ :: Type) :: Type where | |||
36 | Data53 :: forall g h i . Int -> g -> Float -> h -> i -> Data5 g h i | 40 | Data53 :: forall g h i . Int -> g -> Float -> h -> i -> Data5 g h i |
37 | 41 | ||
38 | a5 | 42 | a5 |
39 | = \(a :: _) -> case'Data5 | 43 | = _lhs |
40 | (\(_ :: _) -> _) | 44 | a5 |
41 | (\(b :: _) -> _rhs b) | 45 | \(a :: _) -> case'Data5 |
42 | (\(c :: _) (_ :: _) (_ :: _) -> _rhs c) | 46 | (\(_ :: _) -> _) |
43 | (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs undefined) | 47 | (\(b :: _) -> _rhs b) |
44 | a | 48 | (\(c :: _) (_ :: _) (_ :: _) -> _rhs c) |
49 | (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs undefined) | ||
50 | a | ||
45 | 51 | ||
46 | b5 | 52 | b5 |
47 | = \(a :: _) -> case'Data5 | 53 | = _lhs |
48 | (\(_ :: _) -> _) | 54 | b5 |
49 | (\(_ :: _) -> _rhs undefined) | 55 | \(a :: _) -> case'Data5 |
50 | (\(_ :: _) (b :: _) (_ :: _) -> _rhs b) | 56 | (\(_ :: _) -> _) |
51 | (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs undefined) | 57 | (\(_ :: _) -> _rhs undefined) |
52 | a | 58 | (\(_ :: _) (b :: _) (_ :: _) -> _rhs b) |
59 | (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs undefined) | ||
60 | a | ||
53 | 61 | ||
54 | c5 | 62 | c5 |
55 | = \(a :: _) -> case'Data5 | 63 | = _lhs |
56 | (\(_ :: _) -> _) | 64 | c5 |
57 | (\(_ :: _) -> _rhs undefined) | 65 | \(a :: _) -> case'Data5 |
58 | (\(_ :: _) (_ :: _) (b :: _) -> _rhs b) | 66 | (\(_ :: _) -> _) |
59 | (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs undefined) | 67 | (\(_ :: _) -> _rhs undefined) |
60 | a | 68 | (\(_ :: _) (_ :: _) (b :: _) -> _rhs b) |
69 | (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs undefined) | ||
70 | a | ||
61 | ------------ core code | 71 | ------------ core code |
62 | 'Data0 :: Type | 72 | 'Data0 :: Type |
63 | 'Data0 = <<type constructor with 0 indices; constructors: Data0>> | 73 | 'Data0 = <<type constructor with 0 indices; constructors: Data0>> |
diff --git a/testdata/id.out b/testdata/id.out index c05db920..e9d1758f 100644 --- a/testdata/id.out +++ b/testdata/id.out | |||
@@ -1,6 +1,7 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | main' = _rhs let a = _rhs \(b :: _) -> b in (a 4.0, a True) | 3 | main' |
4 | = _lhs main' (_rhs let a = _lhs id' (_rhs \(b :: _) -> b) in (a 4.0, a True)) | ||
4 | ------------ core code | 5 | ------------ core code |
5 | main' :: (Float, Bool) | 6 | main' :: (Float, Bool) |
6 | main' = _rhs (4.0, True) | 7 | main' = _rhs (4.0, True) |
diff --git a/testdata/instantiate.out b/testdata/instantiate.out index f1310ba2..95bc2af4 100644 --- a/testdata/instantiate.out +++ b/testdata/instantiate.out | |||
@@ -1,6 +1,7 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | main' = _rhs let a = _rhs PrimAdd in a (V2 1.0 2.0) (V2 1.0 2.0) | 3 | main' |
4 | = _lhs main' (_rhs let a = _lhs f (_rhs PrimAdd) in a (V2 1.0 2.0) (V2 1.0 2.0)) | ||
4 | ------------ core code | 5 | ------------ core code |
5 | main' :: VecS Float 2 | 6 | main' :: VecS Float 2 |
6 | main' = _rhs (PrimAdd ('VecS 'Float 2) TT (V2 1.0 2.0) (V2 1.0 2.0)) | 7 | main' = _rhs (PrimAdd ('VecS 'Float 2) TT (V2 1.0 2.0) (V2 1.0 2.0)) |
diff --git a/testdata/language-features/basic-list/list01.out b/testdata/language-features/basic-list/list01.out index 14eb5c08..4a4d6cda 100644 --- a/testdata/language-features/basic-list/list01.out +++ b/testdata/language-features/basic-list/list01.out | |||
@@ -1,10 +1,10 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value1 = _rhs [] | 3 | value1 = _lhs value1 (_rhs []) |
4 | 4 | ||
5 | value2 = _rhs [fromInt 1, fromInt 2, fromInt 3, fromInt 4] | 5 | value2 = _lhs value2 (_rhs [fromInt 1, fromInt 2, fromInt 3, fromInt 4]) |
6 | 6 | ||
7 | value3 = _rhs ['h', 'e', 'l', 'l', 'o'] | 7 | value3 = _lhs value3 (_rhs ['h', 'e', 'l', 'l', 'o']) |
8 | ------------ core code | 8 | ------------ core code |
9 | value1 :: forall a . [a] | 9 | value1 :: forall a . [a] |
10 | value1 = _rhs [] | 10 | value1 = _rhs [] |
diff --git a/testdata/language-features/basic-list/list02.out b/testdata/language-features/basic-list/list02.out index 8710b507..290d0482 100644 --- a/testdata/language-features/basic-list/list02.out +++ b/testdata/language-features/basic-list/list02.out | |||
@@ -1,10 +1,10 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value1 = _rhs [] | 3 | value1 = _lhs value1 (_rhs []) |
4 | 4 | ||
5 | value2 = _rhs [fromInt 1, fromInt 2, fromInt 3, fromInt 4] | 5 | value2 = _lhs value2 (_rhs [fromInt 1, fromInt 2, fromInt 3, fromInt 4]) |
6 | 6 | ||
7 | value3 = _rhs ['h', 'e', 'l', 'l', 'o'] | 7 | value3 = _lhs value3 (_rhs ['h', 'e', 'l', 'l', 'o']) |
8 | ------------ core code | 8 | ------------ core code |
9 | value1 :: forall a . [a] | 9 | value1 :: forall a . [a] |
10 | value1 = _rhs [] | 10 | value1 = _rhs [] |
diff --git a/testdata/language-features/basic-list/list08.out b/testdata/language-features/basic-list/list08.out index e92d9b36..a9ed3391 100644 --- a/testdata/language-features/basic-list/list08.out +++ b/testdata/language-features/basic-list/list08.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value = _rhs [fromInt 1, 1.2] | 3 | value = _lhs value (_rhs [fromInt 1, 1.2]) |
4 | ------------ core code | 4 | ------------ core code |
5 | value :: [Float] | 5 | value :: [Float] |
6 | value = _rhs [1.0, 1.2] | 6 | value = _rhs [1.0, 1.2] |
diff --git a/testdata/language-features/basic-list/list09.out b/testdata/language-features/basic-list/list09.out index 676c1ed6..c46fb913 100644 --- a/testdata/language-features/basic-list/list09.out +++ b/testdata/language-features/basic-list/list09.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value = _rhs ([fromInt 1, 1.2] :: [Float]) | 3 | value = _lhs value (_rhs ([fromInt 1, 1.2] :: [Float])) |
4 | ------------ core code | 4 | ------------ core code |
5 | value :: [Float] | 5 | value :: [Float] |
6 | value = _rhs [1.0, 1.2] | 6 | value = _rhs [1.0, 1.2] |
diff --git a/testdata/language-features/basic-list/list11.out b/testdata/language-features/basic-list/list11.out index 00b52310..9777fcff 100644 --- a/testdata/language-features/basic-list/list11.out +++ b/testdata/language-features/basic-list/list11.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value = _rhs [fromInt 1] | 3 | value = _lhs value (_rhs [fromInt 1]) |
4 | ------------ core code | 4 | ------------ core code |
5 | value :: forall a . Num a => [a] | 5 | value :: forall a . Num a => [a] |
6 | value = \a b -> _rhs [fromInt a b 1] | 6 | value = \a b -> _rhs [fromInt a b 1] |
diff --git a/testdata/language-features/basic-list/list12.out b/testdata/language-features/basic-list/list12.out index 9e289ae6..e8e480be 100644 --- a/testdata/language-features/basic-list/list12.out +++ b/testdata/language-features/basic-list/list12.out | |||
@@ -1,6 +1,7 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value = _rhs [fromInt 1, fromInt 2, fromInt 3, fromInt 4, fromInt 5] | 3 | value |
4 | = _lhs value (_rhs [fromInt 1, fromInt 2, fromInt 3, fromInt 4, fromInt 5]) | ||
4 | ------------ core code | 5 | ------------ core code |
5 | value :: forall a . Num a => [a] | 6 | value :: forall a . Num a => [a] |
6 | value | 7 | value |
diff --git a/testdata/language-features/basic-list/list13.out b/testdata/language-features/basic-list/list13.out index bb27f13d..c1c89f70 100644 --- a/testdata/language-features/basic-list/list13.out +++ b/testdata/language-features/basic-list/list13.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value = _rhs ['h', 'e', 'l', 'l', 'o'] | 3 | value = _lhs value (_rhs ['h', 'e', 'l', 'l', 'o']) |
4 | ------------ core code | 4 | ------------ core code |
5 | value :: [Char] | 5 | value :: [Char] |
6 | value = _rhs ['h', 'e', 'l', 'l', 'o'] | 6 | value = _rhs ['h', 'e', 'l', 'l', 'o'] |
diff --git a/testdata/language-features/basic-list/listcomp01.out b/testdata/language-features/basic-list/listcomp01.out index e02d3045..ace40823 100644 --- a/testdata/language-features/basic-list/listcomp01.out +++ b/testdata/language-features/basic-list/listcomp01.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value = _rhs (concatMap (\(_ :: _) -> [()]) [(), (), (), ()]) | 3 | value = _lhs value (_rhs (concatMap (\(_ :: _) -> [()]) [(), (), (), ()])) |
4 | ------------ core code | 4 | ------------ core code |
5 | value :: [()] | 5 | value :: [()] |
6 | value = _rhs [(), (), (), ()] | 6 | value = _rhs [(), (), (), ()] |
diff --git a/testdata/language-features/basic-list/listcomp02.out b/testdata/language-features/basic-list/listcomp02.out index aa811e16..18619ff6 100644 --- a/testdata/language-features/basic-list/listcomp02.out +++ b/testdata/language-features/basic-list/listcomp02.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | l = _rhs [(), (), (), ()] | 3 | l = _lhs l (_rhs [(), (), (), ()]) |
4 | 4 | ||
5 | value = _rhs (concatMap (\(a :: _) -> [a]) l) | 5 | value = _lhs value (_rhs (concatMap (\(a :: _) -> [a]) l)) |
6 | ------------ core code | 6 | ------------ core code |
7 | l :: [()] | 7 | l :: [()] |
8 | l = _rhs [(), (), (), ()] | 8 | l = _rhs [(), (), (), ()] |
diff --git a/testdata/language-features/basic-list/listcomp03.out b/testdata/language-features/basic-list/listcomp03.out index e3192970..0ba6b347 100644 --- a/testdata/language-features/basic-list/listcomp03.out +++ b/testdata/language-features/basic-list/listcomp03.out | |||
@@ -1,7 +1,9 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value | 3 | value |
4 | = _rhs (concatMap (\(_ :: _) -> primIfThenElse False [()] []) [(), (), (), ()]) | 4 | = _lhs |
5 | value | ||
6 | (_rhs (concatMap (\(_ :: _) -> primIfThenElse False [()] []) [(), (), (), ()])) | ||
5 | ------------ core code | 7 | ------------ core code |
6 | value :: [()] | 8 | value :: [()] |
7 | value = _rhs [] | 9 | value = _rhs [] |
diff --git a/testdata/language-features/basic-list/listcomp04.out b/testdata/language-features/basic-list/listcomp04.out index 9352d6ae..4d43ac94 100644 --- a/testdata/language-features/basic-list/listcomp04.out +++ b/testdata/language-features/basic-list/listcomp04.out | |||
@@ -1,8 +1,9 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | l = _rhs [(), (), (), ()] | 3 | l = _lhs l (_rhs [(), (), (), ()]) |
4 | 4 | ||
5 | value = _rhs (concatMap (\(_ :: _) -> concatMap (\(_ :: _) -> [()]) l) l) | 5 | value |
6 | = _lhs value (_rhs (concatMap (\(_ :: _) -> concatMap (\(_ :: _) -> [()]) l) l)) | ||
6 | ------------ core code | 7 | ------------ core code |
7 | l :: [()] | 8 | l :: [()] |
8 | l = _rhs [(), (), (), ()] | 9 | l = _rhs [(), (), (), ()] |
diff --git a/testdata/language-features/basic-list/listcomp05.out b/testdata/language-features/basic-list/listcomp05.out index c3984bc7..c9e56736 100644 --- a/testdata/language-features/basic-list/listcomp05.out +++ b/testdata/language-features/basic-list/listcomp05.out | |||
@@ -1,10 +1,14 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value | 3 | value |
4 | = _rhs | 4 | = _lhs |
5 | (concatMap | 5 | value |
6 | (\(_ :: _) -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in [b]) | 6 | (_rhs |
7 | [(), ()]) | 7 | (concatMap |
8 | (\(_ :: _) -> let | ||
9 | a = _lhs _u (_rhs ()); b = _lhs u (_rhs ((\(c :: _) -> c) a)) | ||
10 | in [b]) | ||
11 | [(), ()])) | ||
8 | ------------ core code | 12 | ------------ core code |
9 | value :: [()] | 13 | value :: [()] |
10 | value = _rhs [(), ()] | 14 | value = _rhs [(), ()] |
diff --git a/testdata/language-features/basic-list/listcomp06.out b/testdata/language-features/basic-list/listcomp06.out index 3fc12622..cf4e2b31 100644 --- a/testdata/language-features/basic-list/listcomp06.out +++ b/testdata/language-features/basic-list/listcomp06.out | |||
@@ -1,22 +1,25 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value1 | 3 | value1 |
4 | = _rhs | 4 | = _lhs |
5 | (concatMap | 5 | value1 |
6 | (\(_ :: _) -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse | 6 | (_rhs |
7 | True | 7 | (concatMap |
8 | [b] | 8 | (\(_ :: _) -> let |
9 | []) | 9 | a = _lhs _u (_rhs ()); b = _lhs u (_rhs ((\(c :: _) -> c) a)) |
10 | [(), ()]) | 10 | in primIfThenElse True [b] []) |
11 | [(), ()])) | ||
11 | 12 | ||
12 | value2 | 13 | value2 |
13 | = _rhs | 14 | = _lhs |
14 | (concatMap | 15 | value2 |
15 | (\(_ :: _) -> primIfThenElse | 16 | (_rhs |
16 | True | 17 | (concatMap |
17 | (let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in [b]) | 18 | (\(_ :: _) -> primIfThenElse |
18 | []) | 19 | True |
19 | [(), ()]) | 20 | (let a = _lhs _u (_rhs ()); b = _lhs u (_rhs ((\(c :: _) -> c) a)) in [b]) |
21 | []) | ||
22 | [(), ()])) | ||
20 | ------------ core code | 23 | ------------ core code |
21 | value1 :: [()] | 24 | value1 :: [()] |
22 | value1 = _rhs [(), ()] | 25 | value1 = _rhs [(), ()] |
diff --git a/testdata/language-features/basic-list/listcomp07.out b/testdata/language-features/basic-list/listcomp07.out index 1923e806..2f4d633a 100644 --- a/testdata/language-features/basic-list/listcomp07.out +++ b/testdata/language-features/basic-list/listcomp07.out | |||
@@ -1,31 +1,43 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value1 | 3 | value1 |
4 | = _rhs | 4 | = _lhs |
5 | (concatMap | 5 | value1 |
6 | (\(_ :: _) -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse | 6 | (_rhs |
7 | True | 7 | (concatMap |
8 | (let d = _rhs b; e = _rhs ((\(f :: _) -> f) d) in [b]) | 8 | (\(_ :: _) -> let |
9 | []) | 9 | a = _lhs _u (_rhs ()); b = _lhs u (_rhs ((\(c :: _) -> c) a)) |
10 | [(), ()]) | 10 | in primIfThenElse |
11 | True | ||
12 | (let d = _lhs _v (_rhs b); e = _lhs v (_rhs ((\(f :: _) -> f) d)) in [b]) | ||
13 | []) | ||
14 | [(), ()])) | ||
11 | 15 | ||
12 | value2 | 16 | value2 |
13 | = _rhs | 17 | = _lhs |
14 | (concatMap | 18 | value2 |
15 | (\(_ :: _) -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse | 19 | (_rhs |
16 | True | 20 | (concatMap |
17 | (let d = _rhs b; e = _rhs ((\(f :: _) -> f) d) in [b]) | 21 | (\(_ :: _) -> let |
18 | []) | 22 | a = _lhs _u (_rhs ()); b = _lhs u (_rhs ((\(c :: _) -> c) a)) |
19 | [(), ()]) | 23 | in primIfThenElse |
24 | True | ||
25 | (let d = _lhs _v (_rhs b); e = _lhs v (_rhs ((\(f :: _) -> f) d)) in [b]) | ||
26 | []) | ||
27 | [(), ()])) | ||
20 | 28 | ||
21 | value3 | 29 | value3 |
22 | = _rhs | 30 | = _lhs |
23 | (concatMap | 31 | value3 |
24 | (\(_ :: _) -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse | 32 | (_rhs |
25 | True | 33 | (concatMap |
26 | (let d = _rhs b; e = _rhs ((\(f :: _) -> f) d) in [b]) | 34 | (\(_ :: _) -> let |
27 | []) | 35 | a = _lhs _u (_rhs ()); b = _lhs u (_rhs ((\(c :: _) -> c) a)) |
28 | [(), ()]) | 36 | in primIfThenElse |
37 | True | ||
38 | (let d = _lhs _v (_rhs b); e = _lhs v (_rhs ((\(f :: _) -> f) d)) in [b]) | ||
39 | []) | ||
40 | [(), ()])) | ||
29 | ------------ core code | 41 | ------------ core code |
30 | value1 :: [()] | 42 | value1 :: [()] |
31 | value1 = _rhs [(), ()] | 43 | value1 = _rhs [(), ()] |
diff --git a/testdata/language-features/basic-list/listcomp09.out b/testdata/language-features/basic-list/listcomp09.out index b83e6611..6c1c9d6d 100644 --- a/testdata/language-features/basic-list/listcomp09.out +++ b/testdata/language-features/basic-list/listcomp09.out | |||
@@ -1,7 +1,9 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value1 | 3 | value1 |
4 | = _rhs (concatMap (\(_ :: _) -> [\(a :: _) -> hlistNilCase _ "Hello" a]) []) | 4 | = _lhs |
5 | value1 | ||
6 | (_rhs (concatMap (\(_ :: _) -> [\(a :: _) -> hlistNilCase _ "Hello" a]) [])) | ||
5 | ------------ core code | 7 | ------------ core code |
6 | value1 :: @Type -> [() -> String] | 8 | value1 :: @Type -> [() -> String] |
7 | value1 = \_ -> _rhs [] | 9 | value1 = \_ -> _rhs [] |
diff --git a/testdata/language-features/basic-values/bool01.out b/testdata/language-features/basic-values/bool01.out index ee5e9859..5d0f35af 100644 --- a/testdata/language-features/basic-values/bool01.out +++ b/testdata/language-features/basic-values/bool01.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value1 = _rhs True | 3 | value1 = _lhs value1 (_rhs True) |
4 | 4 | ||
5 | value2 = _rhs False | 5 | value2 = _lhs value2 (_rhs False) |
6 | ------------ core code | 6 | ------------ core code |
7 | value1 :: Bool | 7 | value1 :: Bool |
8 | value1 = _rhs True | 8 | value1 = _rhs True |
diff --git a/testdata/language-features/basic-values/case01.out b/testdata/language-features/basic-values/case01.out index ee13f28e..eff9fb43 100644 --- a/testdata/language-features/basic-values/case01.out +++ b/testdata/language-features/basic-values/case01.out | |||
@@ -1,16 +1,16 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value1 = _rhs ((\(a :: _) -> hlistNilCase _ () a) ()) | 3 | value1 = _lhs value1 (_rhs ((\(a :: _) -> hlistNilCase _ () a) ())) |
4 | 4 | ||
5 | value2 = _rhs ((\(a :: _) -> hlistNilCase _ () a) ()) | 5 | value2 = _lhs value2 (_rhs ((\(a :: _) -> hlistNilCase _ () a) ())) |
6 | 6 | ||
7 | value3 = _rhs ((\(a :: _) -> hlistNilCase _ () a) ()) | 7 | value3 = _lhs value3 (_rhs ((\(a :: _) -> hlistNilCase _ () a) ())) |
8 | 8 | ||
9 | value4 = _rhs ((\(a :: _) -> hlistNilCase _ () a) ()) | 9 | value4 = _lhs value4 (_rhs ((\(a :: _) -> hlistNilCase _ () a) ())) |
10 | 10 | ||
11 | value5 = _rhs ((\(a :: _) -> hlistNilCase _ () a) ()) | 11 | value5 = _lhs value5 (_rhs ((\(a :: _) -> hlistNilCase _ () a) ())) |
12 | 12 | ||
13 | value6 = _rhs ((\(_ :: _) -> ()) ()) | 13 | value6 = _lhs value6 (_rhs ((\(_ :: _) -> ()) ())) |
14 | ------------ core code | 14 | ------------ core code |
15 | value1 :: () | 15 | value1 :: () |
16 | value1 = _rhs () | 16 | value1 = _rhs () |
diff --git a/testdata/language-features/basic-values/case02.out b/testdata/language-features/basic-values/case02.out index 9d1dd476..f445f91a 100644 --- a/testdata/language-features/basic-values/case02.out +++ b/testdata/language-features/basic-values/case02.out | |||
@@ -1,17 +1,21 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value1 | 3 | value1 |
4 | = _rhs | 4 | = _lhs |
5 | ((\(a :: _) -> case'Bool (\(_ :: _) -> _) () () (fromInt 1 == a)) (fromInt 1)) | 5 | value1 |
6 | (_rhs | ||
7 | ((\(a :: _) -> case'Bool (\(_ :: _) -> _) () () (fromInt 1 == a)) (fromInt 1))) | ||
6 | 8 | ||
7 | value2 | 9 | value2 |
8 | = _rhs | 10 | = _lhs |
9 | ((\(a :: _) -> case'Bool | 11 | value2 |
10 | (\(_ :: _) -> _) | 12 | (_rhs |
11 | (case'Bool (\(_ :: _) -> _) "_" "2" (fromInt 2 == a)) | 13 | ((\(a :: _) -> case'Bool |
12 | "1" | 14 | (\(_ :: _) -> _) |
13 | (fromInt 1 == a)) | 15 | (case'Bool (\(_ :: _) -> _) "_" "2" (fromInt 2 == a)) |
14 | (fromInt 2)) | 16 | "1" |
17 | (fromInt 1 == a)) | ||
18 | (fromInt 2))) | ||
15 | ------------ core code | 19 | ------------ core code |
16 | value1 :: forall a . (Eq a, Num a) => () | 20 | value1 :: forall a . (Eq a, Num a) => () |
17 | value1 | 21 | value1 |
diff --git a/testdata/language-features/basic-values/case05.out b/testdata/language-features/basic-values/case05.out index 51e7f245..130dd7d3 100644 --- a/testdata/language-features/basic-values/case05.out +++ b/testdata/language-features/basic-values/case05.out | |||
@@ -1,8 +1,10 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value | 3 | value |
4 | = \(a :: _) -> _rhs | 4 | = _lhs |
5 | ((\(b :: _) -> case'Bool (\(_ :: _) -> _) undefined '1' (fromInt 1 == b)) a) | 5 | value |
6 | \(a :: _) -> _rhs | ||
7 | ((\(b :: _) -> case'Bool (\(_ :: _) -> _) undefined '1' (fromInt 1 == b)) a) | ||
6 | ------------ core code | 8 | ------------ core code |
7 | value :: forall a . (Eq a, Num a) => a -> Char | 9 | value :: forall a . (Eq a, Num a) => a -> Char |
8 | value | 10 | value |
diff --git a/testdata/language-features/basic-values/case06.out b/testdata/language-features/basic-values/case06.out index 0191877b..9b4ff748 100644 --- a/testdata/language-features/basic-values/case06.out +++ b/testdata/language-features/basic-values/case06.out | |||
@@ -1,8 +1,10 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value | 3 | value |
4 | = \(a :: _) -> _rhs | 4 | = _lhs |
5 | ((\(b :: _) -> case'Bool (\(_ :: _) -> _) '_' '1' (fromInt 1 == b)) a) | 5 | value |
6 | \(a :: _) -> _rhs | ||
7 | ((\(b :: _) -> case'Bool (\(_ :: _) -> _) '_' '1' (fromInt 1 == b)) a) | ||
6 | ------------ core code | 8 | ------------ core code |
7 | value :: forall a . (Eq a, Num a) => a -> Char | 9 | value :: forall a . (Eq a, Num a) => a -> Char |
8 | value | 10 | value |
diff --git a/testdata/language-features/basic-values/def01.out b/testdata/language-features/basic-values/def01.out index 3ada4423..6564e1b8 100644 --- a/testdata/language-features/basic-values/def01.out +++ b/testdata/language-features/basic-values/def01.out | |||
@@ -1,10 +1,10 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | unit = _rhs () | 3 | unit = _lhs unit (_rhs ()) |
4 | 4 | ||
5 | fun1 = \(_ :: _) -> _rhs (fromInt 1) | 5 | fun1 = _lhs fun1 \(_ :: _) -> _rhs (fromInt 1) |
6 | 6 | ||
7 | fun2 = \(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs 'c' | 7 | fun2 = _lhs fun2 \(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs 'c' |
8 | ------------ core code | 8 | ------------ core code |
9 | fun1 :: forall a b . Num b => a -> b | 9 | fun1 :: forall a b . Num b => a -> b |
10 | fun1 = \_ a b _ -> _rhs (fromInt a b 1) | 10 | fun1 = \_ a b _ -> _rhs (fromInt a b 1) |
diff --git a/testdata/language-features/basic-values/def03.out b/testdata/language-features/basic-values/def03.out index e803c077..a90c1488 100644 --- a/testdata/language-features/basic-values/def03.out +++ b/testdata/language-features/basic-values/def03.out | |||
@@ -1,11 +1,13 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | fun | 3 | fun |
4 | = \(a :: _) -> case'Bool | 4 | = _lhs |
5 | (\(_ :: _) -> _) | 5 | fun |
6 | (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs '2') (fromInt 2 == a)) | 6 | \(a :: _) -> case'Bool |
7 | (_rhs '1') | 7 | (\(_ :: _) -> _) |
8 | (fromInt 1 == a) | 8 | (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs '2') (fromInt 2 == a)) |
9 | (_rhs '1') | ||
10 | (fromInt 1 == a) | ||
9 | ------------ core code | 11 | ------------ core code |
10 | fun :: forall a . (Eq a, Num a, Eq a, Num a) => a -> Char | 12 | fun :: forall a . (Eq a, Num a, Eq a, Num a) => a -> Char |
11 | fun | 13 | fun |
diff --git a/testdata/language-features/basic-values/def04.out b/testdata/language-features/basic-values/def04.out index de250fdb..127129e9 100644 --- a/testdata/language-features/basic-values/def04.out +++ b/testdata/language-features/basic-values/def04.out | |||
@@ -1,18 +1,22 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | fun | 3 | fun |
4 | = \(a :: _) -> case'Bool | 4 | = _lhs |
5 | (\(_ :: _) -> _) | 5 | fun |
6 | (case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '2') (fromInt 2 == a)) | 6 | \(a :: _) -> case'Bool |
7 | (_rhs '1') | 7 | (\(_ :: _) -> _) |
8 | (fromInt 1 == a) | 8 | (case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '2') (fromInt 2 == a)) |
9 | (_rhs '1') | ||
10 | (fromInt 1 == a) | ||
9 | 11 | ||
10 | fun2 | 12 | fun2 |
11 | = \(a :: _) (_ :: _) -> case'Bool | 13 | = _lhs |
12 | (\(_ :: _) -> _) | 14 | fun2 |
13 | (case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '2') (fromInt 2 == a)) | 15 | \(a :: _) (_ :: _) -> case'Bool |
14 | (_rhs '1') | 16 | (\(_ :: _) -> _) |
15 | (fromInt 1 == a) | 17 | (case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '2') (fromInt 2 == a)) |
18 | (_rhs '1') | ||
19 | (fromInt 1 == a) | ||
16 | ------------ core code | 20 | ------------ core code |
17 | fun :: forall a . (Eq a, Num a, Eq a, Num a) => a -> Char | 21 | fun :: forall a . (Eq a, Num a, Eq a, Num a) => a -> Char |
18 | fun | 22 | fun |
diff --git a/testdata/language-features/basic-values/deforder01.out b/testdata/language-features/basic-values/deforder01.out index 65ee8408..932a2a54 100644 --- a/testdata/language-features/basic-values/deforder01.out +++ b/testdata/language-features/basic-values/deforder01.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | x = _rhs '1' | 3 | x = _lhs x (_rhs '1') |
4 | 4 | ||
5 | y = _rhs x | 5 | y = _lhs y (_rhs x) |
6 | ------------ core code | 6 | ------------ core code |
7 | x :: Char | 7 | x :: Char |
8 | x = _rhs '1' | 8 | x = _rhs '1' |
diff --git a/testdata/language-features/basic-values/deforder02.out b/testdata/language-features/basic-values/deforder02.out index bc81cbfd..2bfbd5b3 100644 --- a/testdata/language-features/basic-values/deforder02.out +++ b/testdata/language-features/basic-values/deforder02.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | x = _rhs '1' | 3 | x = _lhs x (_rhs '1') |
4 | 4 | ||
5 | y = _rhs x | 5 | y = _lhs y (_rhs x) |
6 | ------------ core code | 6 | ------------ core code |
7 | x :: Char | 7 | x :: Char |
8 | x = _rhs '1' | 8 | x = _rhs '1' |
diff --git a/testdata/language-features/basic-values/deforder03.out b/testdata/language-features/basic-values/deforder03.out index 6dd09a14..cf40c23e 100644 --- a/testdata/language-features/basic-values/deforder03.out +++ b/testdata/language-features/basic-values/deforder03.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value = _rhs let a = _rhs (); b = _rhs a in '1' | 3 | value = _lhs value (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs a) in '1') |
4 | ------------ core code | 4 | ------------ core code |
5 | value :: Char | 5 | value :: Char |
6 | value = _rhs '1' | 6 | value = _rhs '1' |
diff --git a/testdata/language-features/basic-values/deforder04.out b/testdata/language-features/basic-values/deforder04.out index 34f04f22..767b8a9b 100644 --- a/testdata/language-features/basic-values/deforder04.out +++ b/testdata/language-features/basic-values/deforder04.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value = _rhs let a = _rhs (); b = _rhs a in '1' | 3 | value = _lhs value (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs a) in '1') |
4 | ------------ core code | 4 | ------------ core code |
5 | value :: Char | 5 | value :: Char |
6 | value = _rhs '1' | 6 | value = _rhs '1' |
diff --git a/testdata/language-features/basic-values/deforder05.out b/testdata/language-features/basic-values/deforder05.out index c4c4eda5..7345785e 100644 --- a/testdata/language-features/basic-values/deforder05.out +++ b/testdata/language-features/basic-values/deforder05.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value = _rhs let a = _rhs (); b = _rhs a in '1' | 3 | value = _lhs value (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs a) in '1') |
4 | ------------ core code | 4 | ------------ core code |
5 | value :: Char | 5 | value :: Char |
6 | value = _rhs '1' | 6 | value = _rhs '1' |
diff --git a/testdata/language-features/basic-values/deforder06.out b/testdata/language-features/basic-values/deforder06.out index 6228b957..2a0ead81 100644 --- a/testdata/language-features/basic-values/deforder06.out +++ b/testdata/language-features/basic-values/deforder06.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value = _rhs let a = _rhs (); b = _rhs a in '1' | 3 | value = _lhs value (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs a) in '1') |
4 | ------------ core code | 4 | ------------ core code |
5 | value :: Char | 5 | value :: Char |
6 | value = _rhs '1' | 6 | value = _rhs '1' |
diff --git a/testdata/language-features/basic-values/fixity01.out b/testdata/language-features/basic-values/fixity01.out index 8f75a8f2..f4f17b40 100644 --- a/testdata/language-features/basic-values/fixity01.out +++ b/testdata/language-features/basic-values/fixity01.out | |||
@@ -1,12 +1,12 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | funL = \(a :: _) (_ :: _) -> _rhs a | 3 | funL = _lhs funL \(a :: _) (_ :: _) -> _rhs a |
4 | 4 | ||
5 | funR = \(a :: _) (_ :: _) -> _rhs a | 5 | funR = _lhs funR \(a :: _) (_ :: _) -> _rhs a |
6 | 6 | ||
7 | (<<<<) = \(a :: _) (_ :: _) -> _rhs a | 7 | (<<<<) = _lhs (<<<<) \(a :: _) (_ :: _) -> _rhs a |
8 | 8 | ||
9 | (>>>>) = \(_ :: _) (a :: _) -> _rhs a | 9 | (>>>>) = _lhs (>>>>) \(_ :: _) (a :: _) -> _rhs a |
10 | 10 | ||
11 | infixr 7 funL | 11 | infixr 7 funL |
12 | 12 | ||
diff --git a/testdata/language-features/basic-values/fixity02.out b/testdata/language-features/basic-values/fixity02.out index e018eb76..b07707af 100644 --- a/testdata/language-features/basic-values/fixity02.out +++ b/testdata/language-features/basic-values/fixity02.out | |||
@@ -1,12 +1,12 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | funL = \(a :: _) (_ :: _) -> _rhs a | 3 | funL = _lhs funL \(a :: _) (_ :: _) -> _rhs a |
4 | 4 | ||
5 | funR = \(_ :: _) (a :: _) -> _rhs a | 5 | funR = _lhs funR \(_ :: _) (a :: _) -> _rhs a |
6 | 6 | ||
7 | (<@) = \(a :: _) (_ :: _) -> _rhs a | 7 | (<@) = _lhs (<@) \(a :: _) (_ :: _) -> _rhs a |
8 | 8 | ||
9 | (@>) = \(_ :: _) (a :: _) -> _rhs a | 9 | (@>) = _lhs (@>) \(_ :: _) (a :: _) -> _rhs a |
10 | 10 | ||
11 | infixr 7 funL | 11 | infixr 7 funL |
12 | 12 | ||
@@ -16,37 +16,43 @@ infixr 6 @> | |||
16 | 16 | ||
17 | infixr 6 funR | 17 | infixr 6 funR |
18 | 18 | ||
19 | value1 = _rhs (() @> 'c' @> "hi" @> 1.2 :: Float) | 19 | value1 = _lhs value1 (_rhs (() @> 'c' @> "hi" @> 1.2 :: Float)) |
20 | 20 | ||
21 | value2 = _rhs (() @> 'c' <@ "hi" @> 1.2 :: Float) | 21 | value2 = _lhs value2 (_rhs (() @> 'c' <@ "hi" @> 1.2 :: Float)) |
22 | 22 | ||
23 | value3 = _rhs (() <@ 'c' @> "hi" @> 1.2 :: Float) | 23 | value3 = _lhs value3 (_rhs (() <@ 'c' @> "hi" @> 1.2 :: Float)) |
24 | 24 | ||
25 | value4 = _rhs (() <@ 'c' <@ "hi" @> 1.2 :: Float) | 25 | value4 = _lhs value4 (_rhs (() <@ 'c' <@ "hi" @> 1.2 :: Float)) |
26 | 26 | ||
27 | value5 = _rhs (() @> 'c' @> "hi" <@ 1.2 :: String) | 27 | value5 = _lhs value5 (_rhs (() @> 'c' @> "hi" <@ 1.2 :: String)) |
28 | 28 | ||
29 | value6 = _rhs (() @> 'c' <@ "hi" <@ 1.2 :: Char) | 29 | value6 = _lhs value6 (_rhs (() @> 'c' <@ "hi" <@ 1.2 :: Char)) |
30 | 30 | ||
31 | value7 = _rhs (() <@ 'c' @> "hi" <@ 1.2 :: String) | 31 | value7 = _lhs value7 (_rhs (() <@ 'c' @> "hi" <@ 1.2 :: String)) |
32 | 32 | ||
33 | value8 = _rhs (() <@ 'c' <@ "hi" <@ 1.2 :: ()) | 33 | value8 = _lhs value8 (_rhs (() <@ 'c' <@ "hi" <@ 1.2 :: ())) |
34 | 34 | ||
35 | funValue1 = _rhs (() `funR` 'c' `funR` "hi" `funR` 1.2 :: Float) | 35 | funValue1 |
36 | = _lhs funValue1 (_rhs (() `funR` 'c' `funR` "hi" `funR` 1.2 :: Float)) | ||
36 | 37 | ||
37 | funValue2 = _rhs (() `funR` 'c' `funL` "hi" `funR` 1.2 :: Float) | 38 | funValue2 |
39 | = _lhs funValue2 (_rhs (() `funR` 'c' `funL` "hi" `funR` 1.2 :: Float)) | ||
38 | 40 | ||
39 | funValue3 = _rhs (() `funL` 'c' `funR` "hi" `funR` 1.2 :: Float) | 41 | funValue3 |
42 | = _lhs funValue3 (_rhs (() `funL` 'c' `funR` "hi" `funR` 1.2 :: Float)) | ||
40 | 43 | ||
41 | funValue4 = _rhs (() `funL` 'c' `funL` "hi" `funR` 1.2 :: Float) | 44 | funValue4 |
45 | = _lhs funValue4 (_rhs (() `funL` 'c' `funL` "hi" `funR` 1.2 :: Float)) | ||
42 | 46 | ||
43 | funValue5 = _rhs (() `funR` 'c' `funR` "hi" `funL` 1.2 :: String) | 47 | funValue5 |
48 | = _lhs funValue5 (_rhs (() `funR` 'c' `funR` "hi" `funL` 1.2 :: String)) | ||
44 | 49 | ||
45 | funValue6 = _rhs (() `funR` 'c' `funL` "hi" `funL` 1.2 :: Char) | 50 | funValue6 = _lhs funValue6 (_rhs (() `funR` 'c' `funL` "hi" `funL` 1.2 :: Char)) |
46 | 51 | ||
47 | funValue7 = _rhs (() `funL` 'c' `funR` "hi" `funL` 1.2 :: String) | 52 | funValue7 |
53 | = _lhs funValue7 (_rhs (() `funL` 'c' `funR` "hi" `funL` 1.2 :: String)) | ||
48 | 54 | ||
49 | funValue8 = _rhs (() `funL` 'c' `funL` "hi" `funL` 1.2 :: ()) | 55 | funValue8 = _lhs funValue8 (_rhs (() `funL` 'c' `funL` "hi" `funL` 1.2 :: ())) |
50 | ------------ core code | 56 | ------------ core code |
51 | <@ :: forall a b . a -> b -> a | 57 | <@ :: forall a b . a -> b -> a |
52 | <@ = \_ _ a _ -> _rhs a | 58 | <@ = \_ _ a _ -> _rhs a |
diff --git a/testdata/language-features/basic-values/if01.out b/testdata/language-features/basic-values/if01.out index cfac15fd..82fdb2ff 100644 --- a/testdata/language-features/basic-values/if01.out +++ b/testdata/language-features/basic-values/if01.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value1 = _rhs (primIfThenElse True () ()) | 3 | value1 = _lhs value1 (_rhs (primIfThenElse True () ())) |
4 | 4 | ||
5 | value2 = _rhs (primIfThenElse False 1.0 2.0) | 5 | value2 = _lhs value2 (_rhs (primIfThenElse False 1.0 2.0)) |
6 | ------------ core code | 6 | ------------ core code |
7 | value1 :: () | 7 | value1 :: () |
8 | value1 = _rhs () | 8 | value1 = _rhs () |
diff --git a/testdata/language-features/basic-values/indentation01.out b/testdata/language-features/basic-values/indentation01.out index 737c8ecd..f1d98545 100644 --- a/testdata/language-features/basic-values/indentation01.out +++ b/testdata/language-features/basic-values/indentation01.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | tuple1 = _rhs () | 3 | tuple1 = _lhs tuple1 (_rhs ()) |
4 | 4 | ||
5 | tuple2 = _rhs () | 5 | tuple2 = _lhs tuple2 (_rhs ()) |
6 | ------------ core code | 6 | ------------ core code |
7 | tuple1 :: () | 7 | tuple1 :: () |
8 | tuple1 = _rhs () | 8 | tuple1 = _rhs () |
diff --git a/testdata/language-features/basic-values/indentation02.out b/testdata/language-features/basic-values/indentation02.out index 33b04d5e..0b686d97 100644 --- a/testdata/language-features/basic-values/indentation02.out +++ b/testdata/language-features/basic-values/indentation02.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | tuple1 = _rhs () | 3 | tuple1 = _lhs tuple1 (_rhs ()) |
4 | 4 | ||
5 | tuple2 = _rhs () | 5 | tuple2 = _lhs tuple2 (_rhs ()) |
6 | ------------ core code | 6 | ------------ core code |
7 | tuple1 :: () | 7 | tuple1 :: () |
8 | tuple1 = _rhs () | 8 | tuple1 = _rhs () |
diff --git a/testdata/language-features/basic-values/infix01.out b/testdata/language-features/basic-values/infix01.out index 1ba2bd04..ced45621 100644 --- a/testdata/language-features/basic-values/infix01.out +++ b/testdata/language-features/basic-values/infix01.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | fun = \(_ :: _) (_ :: _) -> _rhs () | 3 | fun = _lhs fun \(_ :: _) (_ :: _) -> _rhs () |
4 | 4 | ||
5 | value = \(a :: _) (b :: _) -> _rhs (a `fun` b) | 5 | value = _lhs value \(a :: _) (b :: _) -> _rhs (a `fun` b) |
6 | ------------ core code | 6 | ------------ core code |
7 | fun :: forall a b . a -> b -> () | 7 | fun :: forall a b . a -> b -> () |
8 | fun = \_ _ _ _ -> _rhs () | 8 | fun = \_ _ _ _ -> _rhs () |
diff --git a/testdata/language-features/basic-values/infix02.out b/testdata/language-features/basic-values/infix02.out index 8f743998..888f4d9f 100644 --- a/testdata/language-features/basic-values/infix02.out +++ b/testdata/language-features/basic-values/infix02.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | fun = \(_ :: _) (_ :: _) (_ :: _) -> _rhs () | 3 | fun = _lhs fun \(_ :: _) (_ :: _) (_ :: _) -> _rhs () |
4 | 4 | ||
5 | value = \(a :: _) (b :: _) -> _rhs (a `fun` b) | 5 | value = _lhs value \(a :: _) (b :: _) -> _rhs (a `fun` b) |
6 | ------------ core code | 6 | ------------ core code |
7 | fun :: forall a b c . a -> b -> c -> () | 7 | fun :: forall a b c . a -> b -> c -> () |
8 | fun = \_ _ _ _ _ _ -> _rhs () | 8 | fun = \_ _ _ _ _ _ -> _rhs () |
diff --git a/testdata/language-features/basic-values/infix03.out b/testdata/language-features/basic-values/infix03.out index 4b6af910..9d3aa812 100644 --- a/testdata/language-features/basic-values/infix03.out +++ b/testdata/language-features/basic-values/infix03.out | |||
@@ -4,9 +4,9 @@ data D :: Type where | |||
4 | D2 :: () -> () -> D | 4 | D2 :: () -> () -> D |
5 | D3 :: () -> () -> () -> D | 5 | D3 :: () -> () -> () -> D |
6 | 6 | ||
7 | d2 = \(a :: _) (b :: _) -> _rhs (a `D2` b) | 7 | d2 = _lhs d2 \(a :: _) (b :: _) -> _rhs (a `D2` b) |
8 | 8 | ||
9 | d3 = \(a :: _) (b :: _) -> _rhs (a `D3` b) | 9 | d3 = _lhs d3 \(a :: _) (b :: _) -> _rhs (a `D3` b) |
10 | ------------ core code | 10 | ------------ core code |
11 | 'D :: Type | 11 | 'D :: Type |
12 | 'D = <<type constructor with 0 indices; constructors: D2, D3>> | 12 | 'D = <<type constructor with 0 indices; constructors: D2, D3>> |
diff --git a/testdata/language-features/basic-values/lambda01.out b/testdata/language-features/basic-values/lambda01.out index 591970d1..0a07171f 100644 --- a/testdata/language-features/basic-values/lambda01.out +++ b/testdata/language-features/basic-values/lambda01.out | |||
@@ -1,16 +1,18 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | fun1 = _rhs \(_ :: _) -> () | 3 | fun1 = _lhs fun1 (_rhs \(_ :: _) -> ()) |
4 | 4 | ||
5 | fun2 = _rhs \(_ :: _) -> () | 5 | fun2 = _lhs fun2 (_rhs \(_ :: _) -> ()) |
6 | 6 | ||
7 | fun3 = _rhs \(_ :: _) -> () | 7 | fun3 = _lhs fun3 (_rhs \(_ :: _) -> ()) |
8 | 8 | ||
9 | fun4 | 9 | fun4 |
10 | = _rhs | 10 | = _lhs |
11 | \(_ :: _) | 11 | fun4 |
12 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 12 | (_rhs |
13 | -> () | 13 | \(_ :: _) |
14 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | ||
15 | -> ()) | ||
14 | ------------ core code | 16 | ------------ core code |
15 | fun1 :: forall a . a -> () | 17 | fun1 :: forall a . a -> () |
16 | fun1 = \_ -> _rhs \_ -> () | 18 | fun1 = \_ -> _rhs \_ -> () |
diff --git a/testdata/language-features/basic-values/lambda03.out b/testdata/language-features/basic-values/lambda03.out index 69e50ccf..f9ddcaa4 100644 --- a/testdata/language-features/basic-values/lambda03.out +++ b/testdata/language-features/basic-values/lambda03.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | fun1 = _rhs \(_ :: _) (a :: _) (_ :: _) -> a | 3 | fun1 = _lhs fun1 (_rhs \(_ :: _) (a :: _) (_ :: _) -> a) |
4 | 4 | ||
5 | fun2 = \(a :: _) -> _rhs \(_ :: _) (_ :: _) (_ :: _) -> a | 5 | fun2 = _lhs fun2 \(a :: _) -> _rhs \(_ :: _) (_ :: _) (_ :: _) -> a |
6 | ------------ core code | 6 | ------------ core code |
7 | fun1 :: forall a b c . a -> b -> c -> b | 7 | fun1 :: forall a b c . a -> b -> c -> b |
8 | fun1 = \_ _ _ -> _rhs \_ a _ -> a | 8 | fun1 = \_ _ _ -> _rhs \_ a _ -> a |
diff --git a/testdata/language-features/basic-values/let01.out b/testdata/language-features/basic-values/let01.out index 3c1f5fa4..7d40e348 100644 --- a/testdata/language-features/basic-values/let01.out +++ b/testdata/language-features/basic-values/let01.out | |||
@@ -1,14 +1,21 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value1 = _rhs let a = _rhs (fromInt 1) in fromInt 1 | 3 | value1 = _lhs value1 (_rhs let a = _lhs x (_rhs (fromInt 1)) in fromInt 1) |
4 | 4 | ||
5 | value2 = _rhs let a = _rhs (fromInt 1) in fromInt 1 | 5 | value2 = _lhs value2 (_rhs let a = _lhs x (_rhs (fromInt 1)) in fromInt 1) |
6 | 6 | ||
7 | value3 = _rhs let a = _rhs (fromInt 1); b = _rhs 'c' in fromInt 1 | 7 | value3 |
8 | = _lhs | ||
9 | value3 | ||
10 | (_rhs let a = _lhs x (_rhs (fromInt 1)); b = _lhs y (_rhs 'c') in fromInt 1) | ||
8 | 11 | ||
9 | value4 = _rhs let a = _rhs (fromInt 1) in fromInt 1 | 12 | value4 = _lhs value4 (_rhs let a = _lhs x (_rhs (fromInt 1)) in fromInt 1) |
10 | 13 | ||
11 | value5 = _rhs let a = _rhs (fromInt 1); b = _rhs (fromInt 2) in fromInt 1 | 14 | value5 |
15 | = _lhs | ||
16 | value5 | ||
17 | (_rhs | ||
18 | let a = _lhs x (_rhs (fromInt 1)); b = _lhs y (_rhs (fromInt 2)) in fromInt 1) | ||
12 | ------------ core code | 19 | ------------ core code |
13 | value1 :: forall a . Num a => a | 20 | value1 :: forall a . Num a => a |
14 | value1 = \a b -> _rhs (fromInt a b 1) | 21 | value1 = \a b -> _rhs (fromInt a b 1) |
diff --git a/testdata/language-features/basic-values/let02.out b/testdata/language-features/basic-values/let02.out index 4ca11163..f9de03b4 100644 --- a/testdata/language-features/basic-values/let02.out +++ b/testdata/language-features/basic-values/let02.out | |||
@@ -1,12 +1,20 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value | 3 | value |
4 | = _rhs | 4 | = _lhs |
5 | let | 5 | value |
6 | a = _rhs (); | 6 | (_rhs |
7 | b = _rhs let d = _rhs 'A' in (); | 7 | let |
8 | c = _rhs let e = _rhs (); f = _rhs (fromInt 1); g = _rhs "hello" in 'B' | 8 | a = _lhs x (_rhs ()); |
9 | in () | 9 | b = _lhs y (_rhs let d = _lhs c (_rhs 'A') in ()); |
10 | c | ||
11 | = _lhs | ||
12 | z | ||
13 | (_rhs | ||
14 | let | ||
15 | e = _lhs a (_rhs ()); f = _lhs b (_rhs (fromInt 1)); g = _lhs c (_rhs "hello") | ||
16 | in 'B') | ||
17 | in ()) | ||
10 | ------------ core code | 18 | ------------ core code |
11 | value :: () | 19 | value :: () |
12 | value = _rhs () | 20 | value = _rhs () |
diff --git a/testdata/language-features/basic-values/literal01.out b/testdata/language-features/basic-values/literal01.out index 4619304a..4eca17da 100644 --- a/testdata/language-features/basic-values/literal01.out +++ b/testdata/language-features/basic-values/literal01.out | |||
@@ -1,20 +1,20 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | intValue1 = _rhs (fromInt 0) | 3 | intValue1 = _lhs intValue1 (_rhs (fromInt 0)) |
4 | 4 | ||
5 | intValue2 = _rhs (fromInt 1) | 5 | intValue2 = _lhs intValue2 (_rhs (fromInt 1)) |
6 | 6 | ||
7 | intValue3 = _rhs (fromInt 12345) | 7 | intValue3 = _lhs intValue3 (_rhs (fromInt 12345)) |
8 | 8 | ||
9 | floatValue1 = _rhs 2.0 | 9 | floatValue1 = _lhs floatValue1 (_rhs 2.0) |
10 | 10 | ||
11 | floatValue2 = _rhs 123400.0 | 11 | floatValue2 = _lhs floatValue2 (_rhs 123400.0) |
12 | 12 | ||
13 | charValue = _rhs 'A' | 13 | charValue = _lhs charValue (_rhs 'A') |
14 | 14 | ||
15 | stringValue1 = _rhs "Hello World" | 15 | stringValue1 = _lhs stringValue1 (_rhs "Hello World") |
16 | 16 | ||
17 | stringValue2 = _rhs "\nHello World\tagain!\r\n" | 17 | stringValue2 = _lhs stringValue2 (_rhs "\nHello World\tagain!\r\n") |
18 | ------------ core code | 18 | ------------ core code |
19 | charValue :: Char | 19 | charValue :: Char |
20 | charValue = _rhs 'A' | 20 | charValue = _rhs 'A' |
diff --git a/testdata/language-features/basic-values/operator01.out b/testdata/language-features/basic-values/operator01.out index f239d6b3..3b6dd323 100644 --- a/testdata/language-features/basic-values/operator01.out +++ b/testdata/language-features/basic-values/operator01.out | |||
@@ -1,12 +1,12 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | (#$#) = \(_ :: _) (_ :: _) -> _rhs () | 3 | (#$#) = _lhs (#$#) \(_ :: _) (_ :: _) -> _rhs () |
4 | 4 | ||
5 | ($$#) = \(_ :: _) (_ :: _) -> _rhs () | 5 | ($$#) = _lhs ($$#) \(_ :: _) (_ :: _) -> _rhs () |
6 | 6 | ||
7 | ($$$#) = \(_ :: _) (_ :: _) -> _rhs () | 7 | ($$$#) = _lhs ($$$#) \(_ :: _) (_ :: _) -> _rhs () |
8 | 8 | ||
9 | ($$$) = \(_ :: _) (_ :: _) -> _rhs () | 9 | ($$$) = _lhs ($$$) \(_ :: _) (_ :: _) -> _rhs () |
10 | ------------ core code | 10 | ------------ core code |
11 | #$# :: forall a b . a -> b -> () | 11 | #$# :: forall a b . a -> b -> () |
12 | #$# = \_ _ _ _ -> _rhs () | 12 | #$# = \_ _ _ _ -> _rhs () |
diff --git a/testdata/language-features/basic-values/operator05.out b/testdata/language-features/basic-values/operator05.out index 6a12b629..c8f2cbc8 100644 --- a/testdata/language-features/basic-values/operator05.out +++ b/testdata/language-features/basic-values/operator05.out | |||
@@ -1,6 +1,7 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value1 = _rhs let a = \(_ :: _) (_ :: _) -> _rhs () in a () () | 3 | value1 |
4 | = _lhs value1 (_rhs let a = _lhs (+=+) \(_ :: _) (_ :: _) -> _rhs () in a () ()) | ||
4 | ------------ core code | 5 | ------------ core code |
5 | value1 :: () | 6 | value1 :: () |
6 | value1 = _rhs () | 7 | value1 = _rhs () |
diff --git a/testdata/language-features/basic-values/operator06.out b/testdata/language-features/basic-values/operator06.out index 31724acd..84f75660 100644 --- a/testdata/language-features/basic-values/operator06.out +++ b/testdata/language-features/basic-values/operator06.out | |||
@@ -1,6 +1,7 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value1 = _rhs let a = \(_ :: _) (_ :: _) -> _rhs () in a () () | 3 | value1 |
4 | = _lhs value1 (_rhs let a = _lhs (+=+) \(_ :: _) (_ :: _) -> _rhs () in a () ()) | ||
4 | ------------ core code | 5 | ------------ core code |
5 | value1 :: () | 6 | value1 :: () |
6 | value1 = _rhs () | 7 | value1 = _rhs () |
diff --git a/testdata/language-features/basic-values/shadowing01.out b/testdata/language-features/basic-values/shadowing01.out index 5233865a..b1288270 100644 --- a/testdata/language-features/basic-values/shadowing01.out +++ b/testdata/language-features/basic-values/shadowing01.out | |||
@@ -1,18 +1,28 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value | 3 | value |
4 | = _rhs | 4 | = _lhs |
5 | let | 5 | value |
6 | a = _rhs 'A'; | 6 | (_rhs |
7 | b = _rhs "hello"; | 7 | let |
8 | c | 8 | a = _lhs x (_rhs 'A'); |
9 | = _rhs | 9 | b = _lhs y (_rhs "hello"); |
10 | let | 10 | c |
11 | d = _rhs (fromInt 1); | 11 | = _lhs |
12 | e = _rhs 2.12; | 12 | c |
13 | f = _rhs let g = _rhs (); h = _rhs 'C'; i = _rhs 3.12 in "world" | 13 | (_rhs |
14 | in () | 14 | let |
15 | in '7' | 15 | d = _lhs x (_rhs (fromInt 1)); |
16 | e = _lhs y (_rhs 2.12); | ||
17 | f | ||
18 | = _lhs | ||
19 | c | ||
20 | (_rhs | ||
21 | let | ||
22 | g = _lhs x (_rhs ()); h = _lhs y (_rhs 'C'); i = _lhs c (_rhs 3.12) | ||
23 | in "world") | ||
24 | in ()) | ||
25 | in '7') | ||
16 | ------------ core code | 26 | ------------ core code |
17 | value :: Char | 27 | value :: Char |
18 | value = _rhs '7' | 28 | value = _rhs '7' |
diff --git a/testdata/language-features/basic-values/shadowing02.out b/testdata/language-features/basic-values/shadowing02.out index 19a72446..7edd4cef 100644 --- a/testdata/language-features/basic-values/shadowing02.out +++ b/testdata/language-features/basic-values/shadowing02.out | |||
@@ -1,23 +1,36 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | c = _rhs (fromInt 7) | 3 | c = _lhs c (_rhs (fromInt 7)) |
4 | 4 | ||
5 | world = _rhs "world" | 5 | world = _lhs world (_rhs "world") |
6 | 6 | ||
7 | value2 | 7 | value2 |
8 | = _rhs | 8 | = _lhs |
9 | let | 9 | value2 |
10 | a = _rhs 'A'; | 10 | (_rhs |
11 | b = _rhs "hello"; | 11 | let |
12 | c = _rhs (fromInt 123); | 12 | a = _lhs x (_rhs 'A'); |
13 | d | 13 | b = _lhs y (_rhs "hello"); |
14 | = _rhs | 14 | c = _lhs w (_rhs (fromInt 123)); |
15 | let | 15 | d |
16 | e = _rhs (fromInt 1); | 16 | = _lhs |
17 | f = _rhs 2.12; | 17 | c |
18 | g = _rhs let h = _rhs (); i = _rhs 'C'; j = _rhs 3.12; k = _rhs c in world | 18 | (_rhs |
19 | in () | 19 | let |
20 | in '7' | 20 | e = _lhs x (_rhs (fromInt 1)); |
21 | f = _lhs y (_rhs 2.12); | ||
22 | g | ||
23 | = _lhs | ||
24 | c | ||
25 | (_rhs | ||
26 | let | ||
27 | h = _lhs x (_rhs ()); | ||
28 | i = _lhs y (_rhs 'C'); | ||
29 | j = _lhs c (_rhs 3.12); | ||
30 | k = _lhs d (_rhs c) | ||
31 | in world) | ||
32 | in ()) | ||
33 | in '7') | ||
21 | ------------ core code | 34 | ------------ core code |
22 | c :: forall a . Num a => a | 35 | c :: forall a . Num a => a |
23 | c = \a b -> _rhs (fromInt a b 7) | 36 | c = \a b -> _rhs (fromInt a b 7) |
diff --git a/testdata/language-features/basic-values/shadowing03.out b/testdata/language-features/basic-values/shadowing03.out index 0ee5fa0e..f796c908 100644 --- a/testdata/language-features/basic-values/shadowing03.out +++ b/testdata/language-features/basic-values/shadowing03.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | x = \(_ :: _) (_ :: _) -> _rhs () | 3 | x = _lhs x \(_ :: _) (_ :: _) -> _rhs () |
4 | ------------ core code | 4 | ------------ core code |
5 | x :: forall a b . a -> b -> () | 5 | x :: forall a b . a -> b -> () |
6 | x = \_ _ _ _ -> _rhs () | 6 | x = \_ _ _ _ -> _rhs () |
diff --git a/testdata/language-features/basic-values/shadowing04.out b/testdata/language-features/basic-values/shadowing04.out index c55d2dfe..59d10c41 100644 --- a/testdata/language-features/basic-values/shadowing04.out +++ b/testdata/language-features/basic-values/shadowing04.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | __ = \(_ :: _) (_ :: _) -> _rhs () | 3 | __ = _lhs __ \(_ :: _) (_ :: _) -> _rhs () |
4 | ------------ core code | 4 | ------------ core code |
5 | __ :: forall a b . a -> b -> () | 5 | __ :: forall a b . a -> b -> () |
6 | __ = \_ _ _ _ -> _rhs () | 6 | __ = \_ _ _ _ -> _rhs () |
diff --git a/testdata/language-features/basic-values/tuple01.out b/testdata/language-features/basic-values/tuple01.out index fbe79611..b3a8a352 100644 --- a/testdata/language-features/basic-values/tuple01.out +++ b/testdata/language-features/basic-values/tuple01.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | unit = _rhs () | 3 | unit = _lhs unit (_rhs ()) |
4 | ------------ core code | 4 | ------------ core code |
5 | unit :: () | 5 | unit :: () |
6 | unit = _rhs () | 6 | unit = _rhs () |
diff --git a/testdata/language-features/basic-values/tuple02.out b/testdata/language-features/basic-values/tuple02.out index 3b6e4410..d221d37a 100644 --- a/testdata/language-features/basic-values/tuple02.out +++ b/testdata/language-features/basic-values/tuple02.out | |||
@@ -1,10 +1,10 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | tuple1 = _rhs (fromInt 1, 2.3, 'D', "string", ()) | 3 | tuple1 = _lhs tuple1 (_rhs (fromInt 1, 2.3, 'D', "string", ())) |
4 | 4 | ||
5 | tuple2 = _rhs ((), ()) | 5 | tuple2 = _lhs tuple2 (_rhs ((), ())) |
6 | 6 | ||
7 | tuple3 = _rhs (("name", 'c'), ()) | 7 | tuple3 = _lhs tuple3 (_rhs (("name", 'c'), ())) |
8 | ------------ core code | 8 | ------------ core code |
9 | tuple1 :: forall a . Num a => (a, Float, Char, String, ()) | 9 | tuple1 :: forall a . Num a => (a, Float, Char, String, ()) |
10 | tuple1 = \a b -> _rhs (fromInt a b 1, 2.3, 'D', "string", ()) | 10 | tuple1 = \a b -> _rhs (fromInt a b 1, 2.3, 'D', "string", ()) |
diff --git a/testdata/language-features/basic-values/typesig01.out b/testdata/language-features/basic-values/typesig01.out index c36d5cf2..964ba8a7 100644 --- a/testdata/language-features/basic-values/typesig01.out +++ b/testdata/language-features/basic-values/typesig01.out | |||
@@ -1,10 +1,10 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value1 :: Char | 3 | value1 :: Char |
4 | value1 = _rhs 'a' | 4 | value1 = _lhs value1 (_rhs 'a') |
5 | 5 | ||
6 | value2 :: Char | 6 | value2 :: Char |
7 | value2 = _rhs 'a' | 7 | value2 = _lhs value2 (_rhs 'a') |
8 | ------------ core code | 8 | ------------ core code |
9 | value1 :: Char | 9 | value1 :: Char |
10 | value1 = _rhs 'a' | 10 | value1 = _rhs 'a' |
diff --git a/testdata/language-features/basic-values/typesig02.out b/testdata/language-features/basic-values/typesig02.out index 415f46d9..b9c50d6b 100644 --- a/testdata/language-features/basic-values/typesig02.out +++ b/testdata/language-features/basic-values/typesig02.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value1 = _rhs ('a' :: Char) | 3 | value1 = _lhs value1 (_rhs ('a' :: Char)) |
4 | 4 | ||
5 | value2 = _rhs ('a' :: Char) | 5 | value2 = _lhs value2 (_rhs ('a' :: Char)) |
6 | ------------ core code | 6 | ------------ core code |
7 | value1 :: Char | 7 | value1 :: Char |
8 | value1 = _rhs 'a' | 8 | value1 = _rhs 'a' |
diff --git a/testdata/language-features/basic-values/typesig03.out b/testdata/language-features/basic-values/typesig03.out index 738ddca8..a26d2bef 100644 --- a/testdata/language-features/basic-values/typesig03.out +++ b/testdata/language-features/basic-values/typesig03.out | |||
@@ -1,10 +1,10 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | fun1 :: forall (a :: _) (b :: _) (c :: _) . a -> b -> c -> () | 3 | fun1 :: forall (a :: _) (b :: _) (c :: _) . a -> b -> c -> () |
4 | fun1 = \(_ :: _) (_ :: _) (_ :: _) -> _rhs () | 4 | fun1 = _lhs fun1 \(_ :: _) (_ :: _) (_ :: _) -> _rhs () |
5 | 5 | ||
6 | fun2 :: forall (a :: _) (b :: _) (c :: _) . a -> b -> c -> () | 6 | fun2 :: forall (a :: _) (b :: _) (c :: _) . a -> b -> c -> () |
7 | fun2 = \(_ :: _) (_ :: _) (_ :: _) -> _rhs () | 7 | fun2 = _lhs fun2 \(_ :: _) (_ :: _) (_ :: _) -> _rhs () |
8 | ------------ core code | 8 | ------------ core code |
9 | fun1 :: forall a b c . a -> b -> c -> () | 9 | fun1 :: forall a b c . a -> b -> c -> () |
10 | fun1 = \_ _ _ _ _ _ -> _rhs () | 10 | fun1 = \_ _ _ _ _ _ -> _rhs () |
diff --git a/testdata/language-features/basic-values/typesig04.out b/testdata/language-features/basic-values/typesig04.out index 0df6fc91..4e55cfac 100644 --- a/testdata/language-features/basic-values/typesig04.out +++ b/testdata/language-features/basic-values/typesig04.out | |||
@@ -1,10 +1,10 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | fun1 :: forall (a :: _) (b :: _) (c :: _) . a -> (b -> c) -> () | 3 | fun1 :: forall (a :: _) (b :: _) (c :: _) . a -> (b -> c) -> () |
4 | fun1 = \(_ :: _) (_ :: _) -> _rhs () | 4 | fun1 = _lhs fun1 \(_ :: _) (_ :: _) -> _rhs () |
5 | 5 | ||
6 | fun2 :: forall (a :: _) (b :: _) (c :: _) . a -> (b -> c) -> () | 6 | fun2 :: forall (a :: _) (b :: _) (c :: _) . a -> (b -> c) -> () |
7 | fun2 = \(_ :: _) (_ :: _) -> _rhs () | 7 | fun2 = _lhs fun2 \(_ :: _) (_ :: _) -> _rhs () |
8 | ------------ core code | 8 | ------------ core code |
9 | fun1 :: forall a b c . a -> (b -> c) -> () | 9 | fun1 :: forall a b c . a -> (b -> c) -> () |
10 | fun1 = \_ _ _ _ _ -> _rhs () | 10 | fun1 = \_ _ _ _ _ -> _rhs () |
diff --git a/testdata/language-features/basic-values/typesig05.out b/testdata/language-features/basic-values/typesig05.out index b5fdd7ec..7ca5e11a 100644 --- a/testdata/language-features/basic-values/typesig05.out +++ b/testdata/language-features/basic-values/typesig05.out | |||
@@ -1,18 +1,18 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | funL = \(a :: _) (_ :: _) -> _rhs a | 3 | funL = _lhs funL \(a :: _) (_ :: _) -> _rhs a |
4 | 4 | ||
5 | funR = \(_ :: _) (a :: _) -> _rhs a | 5 | funR = _lhs funR \(_ :: _) (a :: _) -> _rhs a |
6 | 6 | ||
7 | value1 = _rhs (funL 'a' "b" :: Char) | 7 | value1 = _lhs value1 (_rhs (funL 'a' "b" :: Char)) |
8 | 8 | ||
9 | value2 = _rhs (funR 'a' "b" :: String) | 9 | value2 = _lhs value2 (_rhs (funR 'a' "b" :: String)) |
10 | 10 | ||
11 | value3 :: Char | 11 | value3 :: Char |
12 | value3 = _rhs (funL 'a' "b") | 12 | value3 = _lhs value3 (_rhs (funL 'a' "b")) |
13 | 13 | ||
14 | value4 :: String | 14 | value4 :: String |
15 | value4 = _rhs (funR 'a' "b") | 15 | value4 = _lhs value4 (_rhs (funR 'a' "b")) |
16 | ------------ core code | 16 | ------------ core code |
17 | funL :: forall a b . a -> b -> a | 17 | funL :: forall a b . a -> b -> a |
18 | funL = \_ _ a _ -> _rhs a | 18 | funL = \_ _ a _ -> _rhs a |
diff --git a/testdata/language-features/basic-values/typesig06.out b/testdata/language-features/basic-values/typesig06.out index 5b74205a..6cc32fea 100644 --- a/testdata/language-features/basic-values/typesig06.out +++ b/testdata/language-features/basic-values/typesig06.out | |||
@@ -1,12 +1,12 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | funL = \(a :: _) (_ :: _) -> _rhs a | 3 | funL = _lhs funL \(a :: _) (_ :: _) -> _rhs a |
4 | 4 | ||
5 | (<@) = \(a :: _) (_ :: _) -> _rhs a | 5 | (<@) = _lhs (<@) \(a :: _) (_ :: _) -> _rhs a |
6 | 6 | ||
7 | value1 = _rhs ("hi" <@ 1.2 :: String) | 7 | value1 = _lhs value1 (_rhs ("hi" <@ 1.2 :: String)) |
8 | 8 | ||
9 | value2 = _rhs ("hi" `funL` 1.2 :: String) | 9 | value2 = _lhs value2 (_rhs ("hi" `funL` 1.2 :: String)) |
10 | ------------ core code | 10 | ------------ core code |
11 | <@ :: forall a b . a -> b -> a | 11 | <@ :: forall a b . a -> b -> a |
12 | <@ = \_ _ a _ -> _rhs a | 12 | <@ = \_ _ a _ -> _rhs a |
diff --git a/testdata/language-features/basic-values/typesig07.out b/testdata/language-features/basic-values/typesig07.out index a374ab2a..c8f1b04a 100644 --- a/testdata/language-features/basic-values/typesig07.out +++ b/testdata/language-features/basic-values/typesig07.out | |||
@@ -1,22 +1,22 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value1 :: Int | 3 | value1 :: Int |
4 | value1 = _rhs (fromInt 1) | 4 | value1 = _lhs value1 (_rhs (fromInt 1)) |
5 | 5 | ||
6 | value2 :: Int | 6 | value2 :: Int |
7 | value2 = _rhs (fromInt 2) | 7 | value2 = _lhs value2 (_rhs (fromInt 2)) |
8 | 8 | ||
9 | value3 :: Int | 9 | value3 :: Int |
10 | value3 = _rhs (fromInt 3) | 10 | value3 = _lhs value3 (_rhs (fromInt 3)) |
11 | 11 | ||
12 | value4 :: () -> () -> () | 12 | value4 :: () -> () -> () |
13 | value4 = \(_ :: _) (_ :: _) -> _rhs () | 13 | value4 = _lhs value4 \(_ :: _) (_ :: _) -> _rhs () |
14 | 14 | ||
15 | (@@@) :: () -> () -> () | 15 | (@@@) :: () -> () -> () |
16 | (@@@) = \(_ :: _) (_ :: _) -> _rhs () | 16 | (@@@) = _lhs (@@@) \(_ :: _) (_ :: _) -> _rhs () |
17 | 17 | ||
18 | value6 :: () -> () -> () | 18 | value6 :: () -> () -> () |
19 | value6 = \(_ :: _) (_ :: _) -> _rhs () | 19 | value6 = _lhs value6 \(_ :: _) (_ :: _) -> _rhs () |
20 | ------------ core code | 20 | ------------ core code |
21 | @@@ :: () -> () -> () | 21 | @@@ :: () -> () -> () |
22 | @@@ = \_ _ -> _rhs () | 22 | @@@ = \_ _ -> _rhs () |
diff --git a/testdata/language-features/basic-values/typesyn01.out b/testdata/language-features/basic-values/typesyn01.out index 442aeac3..04b3421a 100644 --- a/testdata/language-features/basic-values/typesyn01.out +++ b/testdata/language-features/basic-values/typesyn01.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | 'MyUnit = _rhs ' () | 3 | 'MyUnit = _lhs 'MyUnit (_rhs ' ()) |
4 | ------------ core code | 4 | ------------ core code |
5 | 'MyUnit :: Type | 5 | 'MyUnit :: Type |
6 | 'MyUnit = _rhs ' () | 6 | 'MyUnit = _rhs ' () |
diff --git a/testdata/language-features/basic-values/typesyn02.out b/testdata/language-features/basic-values/typesyn02.out index fa019006..efca73f5 100644 --- a/testdata/language-features/basic-values/typesyn02.out +++ b/testdata/language-features/basic-values/typesyn02.out | |||
@@ -1,9 +1,9 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | 'MyUnit = _rhs ' () | 3 | 'MyUnit = _lhs 'MyUnit (_rhs ' ()) |
4 | 4 | ||
5 | fun :: forall (a :: _) . a -> MyUnit -> MyUnit | 5 | fun :: forall (a :: _) . a -> MyUnit -> MyUnit |
6 | fun = \(_ :: _) (a :: _) -> hlistNilCase _ (_rhs ()) a | 6 | fun = _lhs fun \(_ :: _) (a :: _) -> hlistNilCase _ (_rhs ()) a |
7 | ------------ core code | 7 | ------------ core code |
8 | 'MyUnit :: Type | 8 | 'MyUnit :: Type |
9 | 'MyUnit = _rhs ' () | 9 | 'MyUnit = _rhs ' () |
diff --git a/testdata/language-features/basic-values/where01.out b/testdata/language-features/basic-values/where01.out index 843b762e..3b56a3c4 100644 --- a/testdata/language-features/basic-values/where01.out +++ b/testdata/language-features/basic-values/where01.out | |||
@@ -1,26 +1,28 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value1 = _rhs let a = _rhs () in () | 3 | value1 = _lhs value1 (_rhs let a = _lhs x (_rhs ()) in ()) |
4 | 4 | ||
5 | value2 = _rhs let a = _rhs () in a | 5 | value2 = _lhs value2 (_rhs let a = _lhs x (_rhs ()) in a) |
6 | 6 | ||
7 | value3 = _rhs let a = _rhs (); b = _rhs () in a | 7 | value3 = _lhs value3 (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs ()) in a) |
8 | 8 | ||
9 | value4 = _rhs let a = _rhs (); b = _rhs () in b | 9 | value4 = _lhs value4 (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs ()) in b) |
10 | 10 | ||
11 | value5 = _rhs let a = _rhs (); b = _rhs () in a | 11 | value5 = _lhs value5 (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs ()) in a) |
12 | 12 | ||
13 | value6 = _rhs () | 13 | value6 = _lhs value6 (_rhs ()) |
14 | 14 | ||
15 | value7 = _rhs () | 15 | value7 = _lhs value7 (_rhs ()) |
16 | 16 | ||
17 | value8 = _rhs () | 17 | value8 = _lhs value8 (_rhs ()) |
18 | 18 | ||
19 | value9 = _rhs let a = _rhs (); b = _rhs () in a | 19 | value9 = _lhs value9 (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs ()) in a) |
20 | 20 | ||
21 | value10 = _rhs let a = _rhs (); b = _rhs () in a | 21 | value10 |
22 | = _lhs value10 (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs ()) in a) | ||
22 | 23 | ||
23 | value11 = _rhs let a = _rhs (); b = _rhs () in a | 24 | value11 |
25 | = _lhs value11 (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs ()) in a) | ||
24 | ------------ core code | 26 | ------------ core code |
25 | value1 :: () | 27 | value1 :: () |
26 | value1 = _rhs () | 28 | value1 = _rhs () |
diff --git a/testdata/language-features/basic-values/where04.out b/testdata/language-features/basic-values/where04.out index 9eb5f765..3095e9d3 100644 --- a/testdata/language-features/basic-values/where04.out +++ b/testdata/language-features/basic-values/where04.out | |||
@@ -1,10 +1,13 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value1 = _rhs let a = _rhs let b = _rhs () in b in a | 3 | value1 |
4 | = _lhs value1 (_rhs let a = _lhs x (_rhs let b = _lhs y (_rhs ()) in b) in a) | ||
4 | 5 | ||
5 | value2 = _rhs let a = _rhs let b = _rhs () in b in a | 6 | value2 |
7 | = _lhs value2 (_rhs let a = _lhs x (_rhs let b = _lhs y (_rhs ()) in b) in a) | ||
6 | 8 | ||
7 | value3 = _rhs let a = _rhs let b = _rhs () in b in a | 9 | value3 |
10 | = _lhs value3 (_rhs let a = _lhs x (_rhs let b = _lhs y (_rhs ()) in b) in a) | ||
8 | ------------ core code | 11 | ------------ core code |
9 | value1 :: () | 12 | value1 :: () |
10 | value1 = _rhs () | 13 | value1 = _rhs () |
diff --git a/testdata/language-features/basic-values/where05.out b/testdata/language-features/basic-values/where05.out index 55c7a06d..0dc19f61 100644 --- a/testdata/language-features/basic-values/where05.out +++ b/testdata/language-features/basic-values/where05.out | |||
@@ -1,40 +1,48 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value1 | 3 | value1 |
4 | = _rhs | 4 | = _lhs |
5 | ((\(a :: _) -> case'Bool | 5 | value1 |
6 | (\(_ :: _) -> _) | 6 | (_rhs |
7 | () | 7 | ((\(a :: _) -> case'Bool |
8 | (let b = _rhs () in b) | 8 | (\(_ :: _) -> _) |
9 | (fromInt 1 == a)) | 9 | () |
10 | (fromInt 1)) | 10 | (let b = _lhs x (_rhs ()) in b) |
11 | (fromInt 1 == a)) | ||
12 | (fromInt 1))) | ||
11 | 13 | ||
12 | value2 | 14 | value2 |
13 | = _rhs | 15 | = _lhs |
14 | ((\(a :: _) -> case'Bool | 16 | value2 |
15 | (\(_ :: _) -> _) | 17 | (_rhs |
16 | () | 18 | ((\(a :: _) -> case'Bool |
17 | (let b = _rhs () in b) | 19 | (\(_ :: _) -> _) |
18 | (fromInt 1 == a)) | 20 | () |
19 | (fromInt 1)) | 21 | (let b = _lhs x (_rhs ()) in b) |
22 | (fromInt 1 == a)) | ||
23 | (fromInt 1))) | ||
20 | 24 | ||
21 | value3 | 25 | value3 |
22 | = _rhs | 26 | = _lhs |
23 | ((\(a :: _) -> case'Bool | 27 | value3 |
24 | (\(_ :: _) -> _) | 28 | (_rhs |
25 | () | 29 | ((\(a :: _) -> case'Bool |
26 | (let b = _rhs () in b) | 30 | (\(_ :: _) -> _) |
27 | (fromInt 1 == a)) | 31 | () |
28 | (fromInt 1)) | 32 | (let b = _lhs x (_rhs ()) in b) |
33 | (fromInt 1 == a)) | ||
34 | (fromInt 1))) | ||
29 | 35 | ||
30 | value4 | 36 | value4 |
31 | = _rhs | 37 | = _lhs |
32 | let a = _rhs () in (\(b :: _) -> case'Bool | 38 | value4 |
33 | (\(_ :: _) -> _) | 39 | (_rhs |
34 | () | 40 | let a = _lhs x (_rhs ()) in (\(b :: _) -> case'Bool |
35 | a | 41 | (\(_ :: _) -> _) |
36 | (fromInt 1 == b)) | 42 | () |
37 | (fromInt 1) | 43 | a |
44 | (fromInt 1 == b)) | ||
45 | (fromInt 1)) | ||
38 | ------------ core code | 46 | ------------ core code |
39 | value1 :: forall a . (Eq a, Num a) => () | 47 | value1 :: forall a . (Eq a, Num a) => () |
40 | value1 | 48 | value1 |
diff --git a/testdata/language-features/basic-values/wildcard01.out b/testdata/language-features/basic-values/wildcard01.out index 9fa1c034..b462aac7 100644 --- a/testdata/language-features/basic-values/wildcard01.out +++ b/testdata/language-features/basic-values/wildcard01.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | funUnit = \(_ :: _) -> _rhs () | 3 | funUnit = _lhs funUnit \(_ :: _) -> _rhs () |
4 | ------------ core code | 4 | ------------ core code |
5 | funUnit :: forall a . a -> () | 5 | funUnit :: forall a . a -> () |
6 | funUnit = \_ _ -> _rhs () | 6 | funUnit = \_ _ -> _rhs () |
diff --git a/testdata/language-features/guard/guard01.out b/testdata/language-features/guard/guard01.out index 3e232549..e32f6dfc 100644 --- a/testdata/language-features/guard/guard01.out +++ b/testdata/language-features/guard/guard01.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value = case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs ()) True | 3 | value = _lhs value (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs ()) True) |
4 | ------------ core code | 4 | ------------ core code |
5 | value :: () | 5 | value :: () |
6 | value = _rhs () | 6 | value = _rhs () |
diff --git a/testdata/language-features/guard/guard03.out b/testdata/language-features/guard/guard03.out index 3e44257a..794931e9 100644 --- a/testdata/language-features/guard/guard03.out +++ b/testdata/language-features/guard/guard03.out | |||
@@ -1,11 +1,13 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value | 3 | value |
4 | = case'Bool | 4 | = _lhs |
5 | (\(_ :: _) -> _) | 5 | value |
6 | (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False) | 6 | (case'Bool |
7 | (_rhs "True") | 7 | (\(_ :: _) -> _) |
8 | True | 8 | (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False) |
9 | (_rhs "True") | ||
10 | True) | ||
9 | ------------ core code | 11 | ------------ core code |
10 | value :: String | 12 | value :: String |
11 | value = _rhs "True" | 13 | value = _rhs "True" |
diff --git a/testdata/language-features/guard/guard04.out b/testdata/language-features/guard/guard04.out index 3becb569..6c87ff14 100644 --- a/testdata/language-features/guard/guard04.out +++ b/testdata/language-features/guard/guard04.out | |||
@@ -1,6 +1,7 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value = case'Bool (\(_ :: _) -> _) (_rhs "False") (_rhs "True") True | 3 | value |
4 | = _lhs value (case'Bool (\(_ :: _) -> _) (_rhs "False") (_rhs "True") True) | ||
4 | ------------ core code | 5 | ------------ core code |
5 | value :: String | 6 | value :: String |
6 | value = _rhs "True" | 7 | value = _rhs "True" |
diff --git a/testdata/language-features/guard/guard06.out b/testdata/language-features/guard/guard06.out index aa385877..778d4a8d 100644 --- a/testdata/language-features/guard/guard06.out +++ b/testdata/language-features/guard/guard06.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value = _rhs () | 3 | value = _lhs value (_rhs ()) |
4 | ------------ core code | 4 | ------------ core code |
5 | value :: () | 5 | value :: () |
6 | value = _rhs () | 6 | value = _rhs () |
diff --git a/testdata/language-features/guard/guard07.out b/testdata/language-features/guard/guard07.out index 81726eed..06c8a716 100644 --- a/testdata/language-features/guard/guard07.out +++ b/testdata/language-features/guard/guard07.out | |||
@@ -1,11 +1,13 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value | 3 | value |
4 | = case'Bool | 4 | = _lhs |
5 | (\(_ :: _) -> _) | 5 | value |
6 | (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False) | 6 | (case'Bool |
7 | (_rhs "True") | 7 | (\(_ :: _) -> _) |
8 | True | 8 | (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False) |
9 | (_rhs "True") | ||
10 | True) | ||
9 | ------------ core code | 11 | ------------ core code |
10 | value :: String | 12 | value :: String |
11 | value = _rhs "True" | 13 | value = _rhs "True" |
diff --git a/testdata/language-features/guard/guard08.out b/testdata/language-features/guard/guard08.out index 5d6e6bdc..069c68c4 100644 --- a/testdata/language-features/guard/guard08.out +++ b/testdata/language-features/guard/guard08.out | |||
@@ -1,11 +1,13 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value | 3 | value |
4 | = case'Bool | 4 | = _lhs |
5 | (\(_ :: _) -> _) | 5 | value |
6 | (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False) | 6 | (case'Bool |
7 | (_rhs "True") | 7 | (\(_ :: _) -> _) |
8 | True | 8 | (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False) |
9 | (_rhs "True") | ||
10 | True) | ||
9 | ------------ core code | 11 | ------------ core code |
10 | value :: String | 12 | value :: String |
11 | value = _rhs "True" | 13 | value = _rhs "True" |
diff --git a/testdata/language-features/guard/guard09.out b/testdata/language-features/guard/guard09.out index 4b580469..b7c3f36e 100644 --- a/testdata/language-features/guard/guard09.out +++ b/testdata/language-features/guard/guard09.out | |||
@@ -1,11 +1,13 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value | 3 | value |
4 | = case'Bool | 4 | = _lhs |
5 | (\(_ :: _) -> _) | 5 | value |
6 | (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False) | 6 | (case'Bool |
7 | (_rhs "True") | 7 | (\(_ :: _) -> _) |
8 | True | 8 | (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False) |
9 | (_rhs "True") | ||
10 | True) | ||
9 | ------------ core code | 11 | ------------ core code |
10 | value :: String | 12 | value :: String |
11 | value = _rhs "True" | 13 | value = _rhs "True" |
diff --git a/testdata/language-features/guard/guard11.out b/testdata/language-features/guard/guard11.out index a08332c1..ea80eef0 100644 --- a/testdata/language-features/guard/guard11.out +++ b/testdata/language-features/guard/guard11.out | |||
@@ -1,6 +1,9 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | fun = \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs "False") (_rhs "True") a | 3 | fun |
4 | = _lhs | ||
5 | fun | ||
6 | \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs "False") (_rhs "True") a | ||
4 | ------------ core code | 7 | ------------ core code |
5 | fun :: Bool -> String | 8 | fun :: Bool -> String |
6 | fun = \a -> case'Bool (\_ -> 'String) (_rhs "False") (_rhs "True") a | 9 | fun = \a -> case'Bool (\_ -> 'String) (_rhs "False") (_rhs "True") a |
diff --git a/testdata/language-features/guard/guard13.out b/testdata/language-features/guard/guard13.out index 5498c290..6f9005bc 100644 --- a/testdata/language-features/guard/guard13.out +++ b/testdata/language-features/guard/guard13.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | fun = \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs ()) (_rhs ()) a | 3 | fun = _lhs fun \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs ()) (_rhs ()) a |
4 | ------------ core code | 4 | ------------ core code |
5 | fun :: Bool -> () | 5 | fun :: Bool -> () |
6 | fun = \a -> case'Bool (\_ -> ' ()) (_rhs ()) (_rhs ()) a | 6 | fun = \a -> case'Bool (\_ -> ' ()) (_rhs ()) (_rhs ()) a |
diff --git a/testdata/language-features/guard/guard14.out b/testdata/language-features/guard/guard14.out index 6e6f225c..1a0acd2a 100644 --- a/testdata/language-features/guard/guard14.out +++ b/testdata/language-features/guard/guard14.out | |||
@@ -1,6 +1,10 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value = _rhs let a = case'Bool (\(_ :: _) -> _) (_rhs ()) (_rhs ()) True in () | 3 | value |
4 | = _lhs | ||
5 | value | ||
6 | (_rhs | ||
7 | let a = _lhs x (case'Bool (\(_ :: _) -> _) (_rhs ()) (_rhs ()) True) in ()) | ||
4 | ------------ core code | 8 | ------------ core code |
5 | value :: () | 9 | value :: () |
6 | value = _rhs () | 10 | value = _rhs () |
diff --git a/testdata/language-features/guard/guard15.out b/testdata/language-features/guard/guard15.out index 3d01ff73..9314863f 100644 --- a/testdata/language-features/guard/guard15.out +++ b/testdata/language-features/guard/guard15.out | |||
@@ -1,6 +1,10 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value = _rhs let a = case'Bool (\(_ :: _) -> _) (_rhs ()) (_rhs ()) True in () | 3 | value |
4 | = _lhs | ||
5 | value | ||
6 | (_rhs | ||
7 | let a = _lhs x (case'Bool (\(_ :: _) -> _) (_rhs ()) (_rhs ()) True) in ()) | ||
4 | ------------ core code | 8 | ------------ core code |
5 | value :: () | 9 | value :: () |
6 | value = _rhs () | 10 | value = _rhs () |
diff --git a/testdata/language-features/guard/guard16.out b/testdata/language-features/guard/guard16.out index 1a574cf7..a9867165 100644 --- a/testdata/language-features/guard/guard16.out +++ b/testdata/language-features/guard/guard16.out | |||
@@ -1,13 +1,15 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value | 3 | value |
4 | = _rhs | 4 | = _lhs |
5 | ((\(a :: _) -> case'Bool | 5 | value |
6 | (\(_ :: _) -> _) | 6 | (_rhs |
7 | () | 7 | ((\(a :: _) -> case'Bool |
8 | (case'Bool (\(_ :: _) -> _) () () True) | 8 | (\(_ :: _) -> _) |
9 | (fromInt 1 == a)) | 9 | () |
10 | (fromInt 1)) | 10 | (case'Bool (\(_ :: _) -> _) () () True) |
11 | (fromInt 1 == a)) | ||
12 | (fromInt 1))) | ||
11 | ------------ core code | 13 | ------------ core code |
12 | value :: forall a . (Eq a, Num a) => () | 14 | value :: forall a . (Eq a, Num a) => () |
13 | value | 15 | value |
diff --git a/testdata/language-features/module/Hello01.out b/testdata/language-features/module/Hello01.out index 0c553aa4..30490325 100644 --- a/testdata/language-features/module/Hello01.out +++ b/testdata/language-features/module/Hello01.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | hello = _rhs "hello" | 3 | hello = _lhs hello (_rhs "hello") |
4 | 4 | ||
5 | world = _rhs "world" | 5 | world = _lhs world (_rhs "world") |
6 | ------------ core code | 6 | ------------ core code |
7 | hello :: String | 7 | hello :: String |
8 | hello = _rhs "hello" | 8 | hello = _rhs "hello" |
diff --git a/testdata/language-features/module/Hello02.out b/testdata/language-features/module/Hello02.out index 86d52127..4a12836e 100644 --- a/testdata/language-features/module/Hello02.out +++ b/testdata/language-features/module/Hello02.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | hello = _rhs "hello" | 3 | hello = _lhs hello (_rhs "hello") |
4 | 4 | ||
5 | world = _rhs "world" | 5 | world = _lhs world (_rhs "world") |
6 | ------------ core code | 6 | ------------ core code |
7 | hello :: String | 7 | hello :: String |
8 | hello = _rhs "hello" | 8 | hello = _rhs "hello" |
diff --git a/testdata/language-features/module/Hello03.out b/testdata/language-features/module/Hello03.out index 66b7e036..87981272 100644 --- a/testdata/language-features/module/Hello03.out +++ b/testdata/language-features/module/Hello03.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | greeting = _rhs 'G' | 3 | greeting = _lhs greeting (_rhs 'G') |
4 | 4 | ||
5 | value = _rhs 12.2 | 5 | value = _lhs value (_rhs 12.2) |
6 | ------------ core code | 6 | ------------ core code |
7 | greeting :: Char | 7 | greeting :: Char |
8 | greeting = _rhs 'G' | 8 | greeting = _rhs 'G' |
diff --git a/testdata/language-features/module/ModulePackage/SubModule01.out b/testdata/language-features/module/ModulePackage/SubModule01.out index 71c67233..f4408bde 100644 --- a/testdata/language-features/module/ModulePackage/SubModule01.out +++ b/testdata/language-features/module/ModulePackage/SubModule01.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | hello = _rhs "Hello" | 3 | hello = _lhs hello (_rhs "Hello") |
4 | ------------ core code | 4 | ------------ core code |
5 | hello :: String | 5 | hello :: String |
6 | hello = _rhs "Hello" | 6 | hello = _rhs "Hello" |
diff --git a/testdata/language-features/module/Moduledef06.out b/testdata/language-features/module/Moduledef06.out index 5036cb7f..01116115 100644 --- a/testdata/language-features/module/Moduledef06.out +++ b/testdata/language-features/module/Moduledef06.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | hello = _rhs "hello" | 3 | hello = _lhs hello (_rhs "hello") |
4 | ------------ core code | 4 | ------------ core code |
5 | hello :: String | 5 | hello :: String |
6 | hello = _rhs "hello" | 6 | hello = _rhs "hello" |
diff --git a/testdata/language-features/module/Moduledef07.out b/testdata/language-features/module/Moduledef07.out index b75130a3..85bccf88 100644 --- a/testdata/language-features/module/Moduledef07.out +++ b/testdata/language-features/module/Moduledef07.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | hello = _rhs "hello" | 3 | hello = _lhs hello (_rhs "hello") |
4 | ------------ core code | 4 | ------------ core code |
5 | hello :: String | 5 | hello :: String |
6 | hello = _rhs "hello" | 6 | hello = _rhs "hello" |
diff --git a/testdata/language-features/module/Moduledef08.out b/testdata/language-features/module/Moduledef08.out index 4b1c55aa..2c303d27 100644 --- a/testdata/language-features/module/Moduledef08.out +++ b/testdata/language-features/module/Moduledef08.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | hello = _rhs "hello" | 3 | hello = _lhs hello (_rhs "hello") |
4 | ------------ core code | 4 | ------------ core code |
5 | ------------ tooltips | 5 | ------------ tooltips |
6 | testdata/language-features/module/Moduledef08.lc 5:1-5:6 | 6 | testdata/language-features/module/Moduledef08.lc 5:1-5:6 |
diff --git a/testdata/language-features/module/Moduledef09.out b/testdata/language-features/module/Moduledef09.out index 0aea411c..077f20e4 100644 --- a/testdata/language-features/module/Moduledef09.out +++ b/testdata/language-features/module/Moduledef09.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | hello = _rhs "hello" | 3 | hello = _lhs hello (_rhs "hello") |
4 | 4 | ||
5 | world = _rhs "world" | 5 | world = _lhs world (_rhs "world") |
6 | ------------ core code | 6 | ------------ core code |
7 | hello :: String | 7 | hello :: String |
8 | hello = _rhs "hello" | 8 | hello = _rhs "hello" |
diff --git a/testdata/language-features/module/Moduledef10.out b/testdata/language-features/module/Moduledef10.out index ec9a574e..b05b9d4c 100644 --- a/testdata/language-features/module/Moduledef10.out +++ b/testdata/language-features/module/Moduledef10.out | |||
@@ -1,10 +1,10 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | hello = _rhs "hello" | 3 | hello = _lhs hello (_rhs "hello") |
4 | 4 | ||
5 | world = _rhs "world" | 5 | world = _lhs world (_rhs "world") |
6 | 6 | ||
7 | value = _rhs () | 7 | value = _lhs value (_rhs ()) |
8 | ------------ core code | 8 | ------------ core code |
9 | hello :: String | 9 | hello :: String |
10 | hello = _rhs "hello" | 10 | hello = _rhs "hello" |
diff --git a/testdata/language-features/module/Moduledef13.out b/testdata/language-features/module/Moduledef13.out index f1cf03de..167125c8 100644 --- a/testdata/language-features/module/Moduledef13.out +++ b/testdata/language-features/module/Moduledef13.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | hello = _rhs "hello" | 3 | hello = _lhs hello (_rhs "hello") |
4 | ------------ core code | 4 | ------------ core code |
5 | hello :: String | 5 | hello :: String |
6 | hello = _rhs "hello" | 6 | hello = _rhs "hello" |
diff --git a/testdata/language-features/module/TypeSyn01Mod.out b/testdata/language-features/module/TypeSyn01Mod.out index 109f5ee9..54a83cfe 100644 --- a/testdata/language-features/module/TypeSyn01Mod.out +++ b/testdata/language-features/module/TypeSyn01Mod.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | 'MyUnit = _rhs ' () | 3 | 'MyUnit = _lhs 'MyUnit (_rhs ' ()) |
4 | ------------ core code | 4 | ------------ core code |
5 | 'MyUnit :: Type | 5 | 'MyUnit :: Type |
6 | 'MyUnit = _rhs ' () | 6 | 'MyUnit = _rhs ' () |
diff --git a/testdata/language-features/module/import01.out b/testdata/language-features/module/import01.out index 6ccf9702..8705a150 100644 --- a/testdata/language-features/module/import01.out +++ b/testdata/language-features/module/import01.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | x = _rhs hello | 3 | x = _lhs x (_rhs hello) |
4 | ------------ core code | 4 | ------------ core code |
5 | x :: String | 5 | x :: String |
6 | x = _rhs "hello" | 6 | x = _rhs "hello" |
diff --git a/testdata/language-features/module/import05.out b/testdata/language-features/module/import05.out index 3d820de9..90eff292 100644 --- a/testdata/language-features/module/import05.out +++ b/testdata/language-features/module/import05.out | |||
@@ -1,7 +1,7 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | x :: String | 3 | x :: String |
4 | x = _rhs hello | 4 | x = _lhs x (_rhs hello) |
5 | ------------ core code | 5 | ------------ core code |
6 | x :: String | 6 | x :: String |
7 | x = _rhs "hello" | 7 | x = _rhs "hello" |
diff --git a/testdata/language-features/module/import06.out b/testdata/language-features/module/import06.out index ae0e10e5..af5885e2 100644 --- a/testdata/language-features/module/import06.out +++ b/testdata/language-features/module/import06.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | hello = _rhs () | 3 | hello = _lhs hello (_rhs ()) |
4 | 4 | ||
5 | x = _rhs world | 5 | x = _lhs x (_rhs world) |
6 | ------------ core code | 6 | ------------ core code |
7 | hello :: () | 7 | hello :: () |
8 | hello = _rhs () | 8 | hello = _rhs () |
diff --git a/testdata/language-features/module/import07.out b/testdata/language-features/module/import07.out index 31cb267f..531e24a2 100644 --- a/testdata/language-features/module/import07.out +++ b/testdata/language-features/module/import07.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | hello = _rhs () | 3 | hello = _lhs hello (_rhs ()) |
4 | 4 | ||
5 | x = _rhs world | 5 | x = _lhs x (_rhs world) |
6 | ------------ core code | 6 | ------------ core code |
7 | hello :: () | 7 | hello :: () |
8 | hello = _rhs () | 8 | hello = _rhs () |
diff --git a/testdata/language-features/module/import08.out b/testdata/language-features/module/import08.out index e68b7bcd..fd3ee5b9 100644 --- a/testdata/language-features/module/import08.out +++ b/testdata/language-features/module/import08.out | |||
@@ -1,15 +1,15 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value = _rhs () | 3 | value = _lhs value (_rhs ()) |
4 | 4 | ||
5 | g :: Char | 5 | g :: Char |
6 | g = _rhs greeting | 6 | g = _lhs g (_rhs greeting) |
7 | 7 | ||
8 | h :: String | 8 | h :: String |
9 | h = _rhs hello | 9 | h = _lhs h (_rhs hello) |
10 | 10 | ||
11 | w :: String | 11 | w :: String |
12 | w = _rhs world | 12 | w = _lhs w (_rhs world) |
13 | ------------ core code | 13 | ------------ core code |
14 | g :: Char | 14 | g :: Char |
15 | g = _rhs 'G' | 15 | g = _rhs 'G' |
diff --git a/testdata/language-features/module/import09.out b/testdata/language-features/module/import09.out index c8e689e5..3082c3ff 100644 --- a/testdata/language-features/module/import09.out +++ b/testdata/language-features/module/import09.out | |||
@@ -1,7 +1,7 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | fun :: forall (a :: _) . a -> MyUnit -> MyUnit | 3 | fun :: forall (a :: _) . a -> MyUnit -> MyUnit |
4 | fun = \(_ :: _) (a :: _) -> hlistNilCase _ (_rhs ()) a | 4 | fun = _lhs fun \(_ :: _) (a :: _) -> hlistNilCase _ (_rhs ()) a |
5 | ------------ core code | 5 | ------------ core code |
6 | fun :: forall a . a -> MyUnit -> () | 6 | fun :: forall a . a -> MyUnit -> () |
7 | fun = \_ _ a -> hlistNilCase ' () (_rhs ()) a | 7 | fun = \_ _ a -> hlistNilCase ' () (_rhs ()) a |
diff --git a/testdata/language-features/module/import12.out b/testdata/language-features/module/import12.out index 26a58bd3..760cc132 100644 --- a/testdata/language-features/module/import12.out +++ b/testdata/language-features/module/import12.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | fun = _rhs hello | 3 | fun = _lhs fun (_rhs hello) |
4 | ------------ core code | 4 | ------------ core code |
5 | fun :: String | 5 | fun :: String |
6 | fun = _rhs "hello" | 6 | fun = _rhs "hello" |
diff --git a/testdata/language-features/module/import13.out b/testdata/language-features/module/import13.out index 5a9791da..fd02626b 100644 --- a/testdata/language-features/module/import13.out +++ b/testdata/language-features/module/import13.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | fun = _rhs hello | 3 | fun = _lhs fun (_rhs hello) |
4 | ------------ core code | 4 | ------------ core code |
5 | fun :: String | 5 | fun :: String |
6 | fun = _rhs "hello" | 6 | fun = _rhs "hello" |
diff --git a/testdata/language-features/module/import14.out b/testdata/language-features/module/import14.out index a2feaea6..3b09db66 100644 --- a/testdata/language-features/module/import14.out +++ b/testdata/language-features/module/import14.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | fun = _rhs hello | 3 | fun = _lhs fun (_rhs hello) |
4 | ------------ core code | 4 | ------------ core code |
5 | fun :: String | 5 | fun :: String |
6 | fun = _rhs "hello" | 6 | fun = _rhs "hello" |
diff --git a/testdata/language-features/module/import15.out b/testdata/language-features/module/import15.out index 7e58a5c7..9cf8cd6f 100644 --- a/testdata/language-features/module/import15.out +++ b/testdata/language-features/module/import15.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | fun = _rhs hello | 3 | fun = _lhs fun (_rhs hello) |
4 | ------------ core code | 4 | ------------ core code |
5 | fun :: String | 5 | fun :: String |
6 | fun = _rhs "Hello" | 6 | fun = _rhs "Hello" |
diff --git a/testdata/language-features/pattern/pattern01.out b/testdata/language-features/pattern/pattern01.out index b01ea25b..bbd1d94e 100644 --- a/testdata/language-features/pattern/pattern01.out +++ b/testdata/language-features/pattern/pattern01.out | |||
@@ -1,13 +1,21 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | fun1 | 3 | fun1 |
4 | = \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '0') (fromInt 0 == a) | 4 | = _lhs |
5 | fun1 | ||
6 | \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '0') (fromInt 0 == a) | ||
5 | 7 | ||
6 | fun2 = \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '0') ("0" == a) | 8 | fun2 |
9 | = _lhs | ||
10 | fun2 | ||
11 | \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '0') ("0" == a) | ||
7 | 12 | ||
8 | fun3 = \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '0') ('0' == a) | 13 | fun3 |
14 | = _lhs | ||
15 | fun3 | ||
16 | \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '0') ('0' == a) | ||
9 | 17 | ||
10 | fun4 = \(a :: _) -> hlistNilCase _ (_rhs '0') a | 18 | fun4 = _lhs fun4 \(a :: _) -> hlistNilCase _ (_rhs '0') a |
11 | ------------ core code | 19 | ------------ core code |
12 | fun1 :: forall a . (Eq a, Num a) => a -> Char | 20 | fun1 :: forall a . (Eq a, Num a) => a -> Char |
13 | fun1 | 21 | fun1 |
diff --git a/testdata/language-features/pattern/uncovered.out b/testdata/language-features/pattern/uncovered.out index b461ff6e..f9952c69 100644 --- a/testdata/language-features/pattern/uncovered.out +++ b/testdata/language-features/pattern/uncovered.out | |||
@@ -1,89 +1,95 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | f | 3 | f |
4 | = \(a :: _) (b :: _) (c :: _) -> case'Bool | 4 | = _lhs |
5 | (\(_ :: _) -> _) | 5 | f |
6 | (case'Bool | 6 | \(a :: _) (b :: _) (c :: _) -> case'Bool |
7 | (\(_ :: _) -> _) | ||
8 | (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs (fromInt 1)) c) | ||
9 | (_rhs (fromInt 2)) | ||
10 | a) | ||
11 | (case'Bool | ||
12 | (\(_ :: _) -> _) | 7 | (\(_ :: _) -> _) |
13 | (_rhs (fromInt 0)) | 8 | (case'Bool |
14 | (case'Bool (\(_ :: _) -> _) (_rhs (fromInt 1)) (_rhs undefined) a) | 9 | (\(_ :: _) -> _) |
15 | c) | 10 | (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs (fromInt 1)) c) |
16 | b | 11 | (_rhs (fromInt 2)) |
12 | a) | ||
13 | (case'Bool | ||
14 | (\(_ :: _) -> _) | ||
15 | (_rhs (fromInt 0)) | ||
16 | (case'Bool (\(_ :: _) -> _) (_rhs (fromInt 1)) (_rhs undefined) a) | ||
17 | c) | ||
18 | b | ||
17 | 19 | ||
18 | g | 20 | g |
19 | = \(a :: _) -> case'List | 21 | = _lhs |
20 | (\(_ :: _) -> _) | 22 | g |
21 | (_rhs undefined) | 23 | \(a :: _) -> case'List |
22 | (\(b :: _) (c :: _) -> case'Bool | ||
23 | (\(_ :: _) -> _) | 24 | (\(_ :: _) -> _) |
24 | (_rhs undefined) | 25 | (_rhs undefined) |
25 | (case'List | 26 | (\(b :: _) (c :: _) -> case'Bool |
26 | (\(_ :: _) -> _) | 27 | (\(_ :: _) -> _) |
27 | (_rhs undefined) | 28 | (_rhs undefined) |
28 | (\(d :: _) (e :: _) -> case'Bool | 29 | (case'List |
29 | (\(_ :: _) -> _) | 30 | (\(_ :: _) -> _) |
30 | (case'List | 31 | (_rhs undefined) |
32 | (\(d :: _) (e :: _) -> case'Bool | ||
31 | (\(_ :: _) -> _) | 33 | (\(_ :: _) -> _) |
32 | (_rhs undefined) | 34 | (case'List |
33 | (\(f :: _) (g :: _) -> case'Bool | ||
34 | (\(_ :: _) -> _) | 35 | (\(_ :: _) -> _) |
35 | (_rhs undefined) | 36 | (_rhs undefined) |
36 | (case'List | 37 | (\(f :: _) (g :: _) -> case'Bool |
37 | (\(_ :: _) -> _) | 38 | (\(_ :: _) -> _) |
38 | (_rhs False) | 39 | (_rhs undefined) |
39 | (\(_ :: _) (_ :: _) -> _rhs undefined) | 40 | (case'List |
40 | g) | 41 | (\(_ :: _) -> _) |
41 | f) | 42 | (_rhs False) |
42 | e) | 43 | (\(_ :: _) (_ :: _) -> _rhs undefined) |
43 | (_rhs undefined) | 44 | g) |
44 | d) | 45 | f) |
45 | c) | 46 | e) |
46 | b) | 47 | (_rhs undefined) |
47 | a | 48 | d) |
49 | c) | ||
50 | b) | ||
51 | a | ||
48 | 52 | ||
49 | h | 53 | h |
50 | = \(a :: _) -> case'List | 54 | = _lhs |
51 | (\(_ :: _) -> _) | 55 | h |
52 | (_rhs undefined) | 56 | \(a :: _) -> case'List |
53 | (\(b :: _) (c :: _) -> case'List | ||
54 | (\(_ :: _) -> _) | 57 | (\(_ :: _) -> _) |
55 | (_rhs undefined) | 58 | (_rhs undefined) |
56 | (\(d :: _) (e :: _) -> case'Bool | 59 | (\(b :: _) (c :: _) -> case'List |
57 | (\(_ :: _) -> _) | 60 | (\(_ :: _) -> _) |
58 | (_rhs undefined) | 61 | (_rhs undefined) |
59 | (case'List | 62 | (\(d :: _) (e :: _) -> case'Bool |
60 | (\(_ :: _) -> _) | 63 | (\(_ :: _) -> _) |
64 | (_rhs undefined) | ||
61 | (case'List | 65 | (case'List |
62 | (\(_ :: _) -> _) | 66 | (\(_ :: _) -> _) |
63 | (_rhs undefined) | 67 | (case'List |
64 | (\(f :: _) (g :: _) -> case'List | ||
65 | (\(_ :: _) -> _) | 68 | (\(_ :: _) -> _) |
66 | (_rhs undefined) | 69 | (_rhs undefined) |
67 | (\(h :: _) (i :: _) -> case'Bool | 70 | (\(f :: _) (g :: _) -> case'List |
68 | (\(_ :: _) -> _) | 71 | (\(_ :: _) -> _) |
69 | (case'List | 72 | (_rhs undefined) |
73 | (\(h :: _) (i :: _) -> case'Bool | ||
70 | (\(_ :: _) -> _) | 74 | (\(_ :: _) -> _) |
71 | (case'List | 75 | (case'List |
72 | (\(_ :: _) -> _) | 76 | (\(_ :: _) -> _) |
73 | (_rhs True) | 77 | (case'List |
78 | (\(_ :: _) -> _) | ||
79 | (_rhs True) | ||
80 | (\(_ :: _) (_ :: _) -> _rhs undefined) | ||
81 | g) | ||
74 | (\(_ :: _) (_ :: _) -> _rhs undefined) | 82 | (\(_ :: _) (_ :: _) -> _rhs undefined) |
75 | g) | 83 | i) |
76 | (\(_ :: _) (_ :: _) -> _rhs undefined) | 84 | (_rhs undefined) |
77 | i) | 85 | h) |
78 | (_rhs undefined) | 86 | f) |
79 | h) | 87 | c) |
80 | f) | 88 | (\(_ :: _) (_ :: _) -> _rhs undefined) |
81 | c) | 89 | e) |
82 | (\(_ :: _) (_ :: _) -> _rhs undefined) | 90 | d) |
83 | e) | 91 | b) |
84 | d) | 92 | a |
85 | b) | ||
86 | a | ||
87 | ------------ core code | 93 | ------------ core code |
88 | f :: forall a . Num a => Bool -> Bool -> Bool -> a | 94 | f :: forall a . Num a => Bool -> Bool -> Bool -> a |
89 | f | 95 | f |
diff --git a/testdata/language-features/pattern/unreachable.out b/testdata/language-features/pattern/unreachable.out index e8991ac1..7b7df75d 100644 --- a/testdata/language-features/pattern/unreachable.out +++ b/testdata/language-features/pattern/unreachable.out | |||
@@ -1,6 +1,6 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | f = \(_ :: _) -> _rhs "hello" | 3 | f = _lhs f \(_ :: _) -> _rhs "hello" |
4 | ------------ core code | 4 | ------------ core code |
5 | f :: forall a . a -> String | 5 | f :: forall a . a -> String |
6 | f = \_ _ -> _rhs "hello" | 6 | f = \_ _ -> _rhs "hello" |
diff --git a/testdata/language-features/recursion/simplerec01.out b/testdata/language-features/recursion/simplerec01.out index f6732e0f..736caa77 100644 --- a/testdata/language-features/recursion/simplerec01.out +++ b/testdata/language-features/recursion/simplerec01.out | |||
@@ -1,11 +1,13 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | fun | 3 | fun |
4 | = \(a :: _) -> case'Bool | 4 | = _lhs |
5 | (\(_ :: _) -> _) | 5 | fun |
6 | (_rhs (fun (fromInt 0))) | 6 | \(a :: _) -> case'Bool |
7 | (_rhs 'a') | 7 | (\(_ :: _) -> _) |
8 | (fromInt 0 == a) | 8 | (_rhs (fun (fromInt 0))) |
9 | (_rhs 'a') | ||
10 | (fromInt 0 == a) | ||
9 | ------------ core code | 11 | ------------ core code |
10 | fun :: forall a . (Num a, Eq a, Num a) => a -> Char | 12 | fun :: forall a . (Num a, Eq a, Num a) => a -> Char |
11 | fun | 13 | fun |
diff --git a/testdata/language-features/recursion/simplerec02.out b/testdata/language-features/recursion/simplerec02.out index 39e52ba0..d80f3cfd 100644 --- a/testdata/language-features/recursion/simplerec02.out +++ b/testdata/language-features/recursion/simplerec02.out | |||
@@ -1,16 +1,20 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value | 3 | value |
4 | = _rhs | 4 | = _lhs |
5 | let | 5 | value |
6 | a | 6 | (_rhs |
7 | = primFix | 7 | let |
8 | \(b :: _) (c :: _) -> case'Bool | 8 | a |
9 | (\(_ :: _) -> _) | 9 | = primFix |
10 | (_rhs (b (fromInt 0))) | 10 | \(b :: _) -> _lhs |
11 | (_rhs 'a') | 11 | fun |
12 | (fromInt 0 == c) | 12 | \(c :: _) -> case'Bool |
13 | in () | 13 | (\(_ :: _) -> _) |
14 | (_rhs (b (fromInt 0))) | ||
15 | (_rhs 'a') | ||
16 | (fromInt 0 == c) | ||
17 | in ()) | ||
14 | ------------ core code | 18 | ------------ core code |
15 | value :: () | 19 | value :: () |
16 | value = _rhs () | 20 | value = _rhs () |
diff --git a/testdata/language-features/recursion/simplerec03.out b/testdata/language-features/recursion/simplerec03.out index 32df69c1..031dbc8d 100644 --- a/testdata/language-features/recursion/simplerec03.out +++ b/testdata/language-features/recursion/simplerec03.out | |||
@@ -1,16 +1,20 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | value | 3 | value |
4 | = _rhs | 4 | = _lhs |
5 | let | 5 | value |
6 | a | 6 | (_rhs |
7 | = primFix | 7 | let |
8 | \(b :: _) (c :: _) -> case'Bool | 8 | a |
9 | (\(_ :: _) -> _) | 9 | = primFix |
10 | (_rhs (b (fromInt 0))) | 10 | \(b :: _) -> _lhs |
11 | (_rhs 'a') | 11 | fun |
12 | (fromInt 0 == c) | 12 | \(c :: _) -> case'Bool |
13 | in () | 13 | (\(_ :: _) -> _) |
14 | (_rhs (b (fromInt 0))) | ||
15 | (_rhs 'a') | ||
16 | (fromInt 0 == c) | ||
17 | in ()) | ||
14 | ------------ core code | 18 | ------------ core code |
15 | value :: () | 19 | value :: () |
16 | value = _rhs () | 20 | value = _rhs () |
diff --git a/testdata/language-features/section/section01.out b/testdata/language-features/section/section01.out index d99e803e..a06769e3 100644 --- a/testdata/language-features/section/section01.out +++ b/testdata/language-features/section/section01.out | |||
@@ -1,10 +1,10 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | (!@!) = \(_ :: _) (_ :: _) -> _rhs () | 3 | (!@!) = _lhs (!@!) \(_ :: _) (_ :: _) -> _rhs () |
4 | 4 | ||
5 | value1 = \(a :: _) -> _rhs \(b :: _) -> a !@! b | 5 | value1 = _lhs value1 \(a :: _) -> _rhs \(b :: _) -> a !@! b |
6 | 6 | ||
7 | value2 = \(a :: _) -> _rhs \(b :: _) -> b !@! a | 7 | value2 = _lhs value2 \(a :: _) -> _rhs \(b :: _) -> b !@! a |
8 | ------------ core code | 8 | ------------ core code |
9 | !@! :: forall a b . a -> b -> () | 9 | !@! :: forall a b . a -> b -> () |
10 | !@! = \_ _ _ _ -> _rhs () | 10 | !@! = \_ _ _ _ -> _rhs () |
diff --git a/testdata/let.out b/testdata/let.out index 36c6a54f..a3809ea8 100644 --- a/testdata/let.out +++ b/testdata/let.out | |||
@@ -1,8 +1,8 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | id = \(a :: _) -> _rhs a | 3 | id = _lhs id \(a :: _) -> _rhs a |
4 | 4 | ||
5 | f = \(a :: _) -> _rhs let b = _rhs (id a) in b | 5 | f = _lhs f \(a :: _) -> _rhs let b = _lhs y (_rhs (id a)) in b |
6 | ------------ core code | 6 | ------------ core code |
7 | f :: forall a . a -> a | 7 | f :: forall a . a -> a |
8 | f = \_ a -> _rhs a | 8 | f = \_ a -> _rhs a |
diff --git a/testdata/letIndent.out b/testdata/letIndent.out index 3d5160fb..569c73ae 100644 --- a/testdata/letIndent.out +++ b/testdata/letIndent.out | |||
@@ -1,6 +1,10 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | fun = \(a :: _) -> _rhs let b = _rhs (fromInt 1); c = _rhs (fromInt 2) in a | 3 | fun |
4 | = _lhs | ||
5 | fun | ||
6 | \(a :: _) -> _rhs | ||
7 | let b = _lhs a (_rhs (fromInt 1)); c = _lhs b (_rhs (fromInt 2)) in a | ||
4 | ------------ core code | 8 | ------------ core code |
5 | fun :: forall a . a -> a | 9 | fun :: forall a . a -> a |
6 | fun = \_ a -> _rhs a | 10 | fun = \_ a -> _rhs a |
diff --git a/testdata/localfun2.out b/testdata/localfun2.out index e4d0cd45..ca1f097b 100644 --- a/testdata/localfun2.out +++ b/testdata/localfun2.out | |||
@@ -1,34 +1,40 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | split | 3 | split |
4 | = \(a :: _) -> case'List | 4 | = _lhs |
5 | (\(_ :: _) -> _) | 5 | split |
6 | (_rhs ([], [])) | 6 | \(a :: _) -> case'List |
7 | (\(b :: _) (c :: _) -> _rhs | 7 | (\(_ :: _) -> _) |
8 | let | 8 | (_rhs ([], [])) |
9 | d = _rhs (split c); | 9 | (\(b :: _) (c :: _) -> _rhs |
10 | e | 10 | let |
11 | = _rhs | 11 | d = _lhs _bs_as (_rhs (split c)); |
12 | ((\(g :: _) -> hlistConsCase | 12 | e |
13 | _ | 13 | = _lhs |
14 | (\(_ :: _) (h :: _) -> hlistConsCase | 14 | bs |
15 | _ | 15 | (_rhs |
16 | (\(i :: _) (j :: _) -> hlistNilCase _ i j) | 16 | ((\(g :: _) -> hlistConsCase |
17 | h) | 17 | _ |
18 | g) | 18 | (\(_ :: _) (h :: _) -> hlistConsCase |
19 | d); | 19 | _ |
20 | f | 20 | (\(i :: _) (j :: _) -> hlistNilCase _ i j) |
21 | = _rhs | 21 | h) |
22 | ((\(k :: _) -> hlistConsCase | 22 | g) |
23 | _ | 23 | d)); |
24 | (\(l :: _) (m :: _) -> hlistConsCase | 24 | f |
25 | _ | 25 | = _lhs |
26 | (\(_ :: _) (n :: _) -> hlistNilCase _ l n) | 26 | as |
27 | m) | 27 | (_rhs |
28 | k) | 28 | ((\(k :: _) -> hlistConsCase |
29 | d) | 29 | _ |
30 | in (b : e, f)) | 30 | (\(l :: _) (m :: _) -> hlistConsCase |
31 | a | 31 | _ |
32 | (\(_ :: _) (n :: _) -> hlistNilCase _ l n) | ||
33 | m) | ||
34 | k) | ||
35 | d)) | ||
36 | in (b : e, f)) | ||
37 | a | ||
32 | ------------ core code | 38 | ------------ core code |
33 | split :: forall a . [a] -> ([a], [a]) | 39 | split :: forall a . [a] -> ([a], [a]) |
34 | split | 40 | split |
diff --git a/testdata/performance/Material.out b/testdata/performance/Material.out index a88e95ca..a99467e0 100644 --- a/testdata/performance/Material.out +++ b/testdata/performance/Material.out | |||
@@ -1,7 +1,7 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | identityLight :: Float | 3 | identityLight :: Float |
4 | identityLight = _rhs (fromInt 1) | 4 | identityLight = _lhs identityLight (_rhs (fromInt 1)) |
5 | 5 | ||
6 | data Entity :: Type where | 6 | data Entity :: Type where |
7 | Entity | 7 | Entity |
@@ -10,28 +10,36 @@ data Entity :: Type where | |||
10 | -> Vec (fromInt 3) Float -> Vec (fromInt 4) Float -> Entity | 10 | -> Vec (fromInt 3) Float -> Vec (fromInt 4) Float -> Entity |
11 | 11 | ||
12 | eAmbientLight | 12 | eAmbientLight |
13 | = \(a :: _) -> case'Entity | 13 | = _lhs |
14 | (\(_ :: _) -> _) | 14 | eAmbientLight |
15 | (\(b :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs b) | 15 | \(a :: _) -> case'Entity |
16 | a | 16 | (\(_ :: _) -> _) |
17 | (\(b :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs b) | ||
18 | a | ||
17 | 19 | ||
18 | eDirectedLight | 20 | eDirectedLight |
19 | = \(a :: _) -> case'Entity | 21 | = _lhs |
20 | (\(_ :: _) -> _) | 22 | eDirectedLight |
21 | (\(_ :: _) (b :: _) (_ :: _) (_ :: _) -> _rhs b) | 23 | \(a :: _) -> case'Entity |
22 | a | 24 | (\(_ :: _) -> _) |
25 | (\(_ :: _) (b :: _) (_ :: _) (_ :: _) -> _rhs b) | ||
26 | a | ||
23 | 27 | ||
24 | eLightDir | 28 | eLightDir |
25 | = \(a :: _) -> case'Entity | 29 | = _lhs |
26 | (\(_ :: _) -> _) | 30 | eLightDir |
27 | (\(_ :: _) (_ :: _) (b :: _) (_ :: _) -> _rhs b) | 31 | \(a :: _) -> case'Entity |
28 | a | 32 | (\(_ :: _) -> _) |
33 | (\(_ :: _) (_ :: _) (b :: _) (_ :: _) -> _rhs b) | ||
34 | a | ||
29 | 35 | ||
30 | eShaderRGBA | 36 | eShaderRGBA |
31 | = \(a :: _) -> case'Entity | 37 | = _lhs |
32 | (\(_ :: _) -> _) | 38 | eShaderRGBA |
33 | (\(_ :: _) (_ :: _) (_ :: _) (b :: _) -> _rhs b) | 39 | \(a :: _) -> case'Entity |
34 | a | 40 | (\(_ :: _) -> _) |
41 | (\(_ :: _) (_ :: _) (_ :: _) (b :: _) -> _rhs b) | ||
42 | a | ||
35 | 43 | ||
36 | data WaveType :: Type where | 44 | data WaveType :: Type where |
37 | WT_Sin :: WaveType | 45 | WT_Sin :: WaveType |
@@ -146,119 +154,143 @@ data StageAttrs :: Type where | |||
146 | -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs | 154 | -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs |
147 | 155 | ||
148 | saBlend | 156 | saBlend |
149 | = \(a :: _) -> case'StageAttrs | 157 | = _lhs |
150 | (\(_ :: _) -> _) | 158 | saBlend |
151 | (\(b :: _) | 159 | \(a :: _) -> case'StageAttrs |
152 | (_ :: _) | 160 | (\(_ :: _) -> _) |
153 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 161 | (\(b :: _) |
154 | -> _rhs b) | 162 | (_ :: _) |
155 | a | 163 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
164 | -> _rhs b) | ||
165 | a | ||
156 | 166 | ||
157 | saRGBGen | 167 | saRGBGen |
158 | = \(a :: _) -> case'StageAttrs | 168 | = _lhs |
159 | (\(_ :: _) -> _) | 169 | saRGBGen |
160 | (\(_ :: _) | 170 | \(a :: _) -> case'StageAttrs |
161 | (b :: _) | 171 | (\(_ :: _) -> _) |
162 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 172 | (\(_ :: _) |
163 | -> _rhs b) | 173 | (b :: _) |
164 | a | 174 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
175 | -> _rhs b) | ||
176 | a | ||
165 | 177 | ||
166 | saAlphaGen | 178 | saAlphaGen |
167 | = \(a :: _) -> case'StageAttrs | 179 | = _lhs |
168 | (\(_ :: _) -> _) | 180 | saAlphaGen |
169 | (\(_ :: _) | 181 | \(a :: _) -> case'StageAttrs |
170 | (_ :: _) | 182 | (\(_ :: _) -> _) |
171 | (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 183 | (\(_ :: _) |
172 | -> _rhs b) | 184 | (_ :: _) |
173 | a | 185 | (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
186 | -> _rhs b) | ||
187 | a | ||
174 | 188 | ||
175 | saTCGen | 189 | saTCGen |
176 | = \(a :: _) -> case'StageAttrs | 190 | = _lhs |
177 | (\(_ :: _) -> _) | 191 | saTCGen |
178 | (\(_ :: _) | 192 | \(a :: _) -> case'StageAttrs |
179 | (_ :: _) | 193 | (\(_ :: _) -> _) |
180 | (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 194 | (\(_ :: _) |
181 | -> _rhs b) | 195 | (_ :: _) |
182 | a | 196 | (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
197 | -> _rhs b) | ||
198 | a | ||
183 | 199 | ||
184 | saTCMod | 200 | saTCMod |
185 | = \(a :: _) -> case'StageAttrs | 201 | = _lhs |
186 | (\(_ :: _) -> _) | 202 | saTCMod |
187 | (\(_ :: _) | 203 | \(a :: _) -> case'StageAttrs |
188 | (_ :: _) | 204 | (\(_ :: _) -> _) |
189 | (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 205 | (\(_ :: _) |
190 | -> _rhs b) | 206 | (_ :: _) |
191 | a | 207 | (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
208 | -> _rhs b) | ||
209 | a | ||
192 | 210 | ||
193 | saTexture | 211 | saTexture |
194 | = \(a :: _) -> case'StageAttrs | 212 | = _lhs |
195 | (\(_ :: _) -> _) | 213 | saTexture |
196 | (\(_ :: _) | 214 | \(a :: _) -> case'StageAttrs |
197 | (_ :: _) | 215 | (\(_ :: _) -> _) |
198 | (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 216 | (\(_ :: _) |
199 | -> _rhs b) | 217 | (_ :: _) |
200 | a | 218 | (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
219 | -> _rhs b) | ||
220 | a | ||
201 | 221 | ||
202 | saDepthWrite | 222 | saDepthWrite |
203 | = \(a :: _) -> case'StageAttrs | 223 | = _lhs |
204 | (\(_ :: _) -> _) | 224 | saDepthWrite |
205 | (\(_ :: _) | 225 | \(a :: _) -> case'StageAttrs |
206 | (_ :: _) | 226 | (\(_ :: _) -> _) |
207 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 227 | (\(_ :: _) |
208 | -> _rhs b) | 228 | (_ :: _) |
209 | a | 229 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
230 | -> _rhs b) | ||
231 | a | ||
210 | 232 | ||
211 | saDepthFunc | 233 | saDepthFunc |
212 | = \(a :: _) -> case'StageAttrs | 234 | = _lhs |
213 | (\(_ :: _) -> _) | 235 | saDepthFunc |
214 | (\(_ :: _) | 236 | \(a :: _) -> case'StageAttrs |
215 | (_ :: _) | 237 | (\(_ :: _) -> _) |
216 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) | 238 | (\(_ :: _) |
217 | -> _rhs b) | 239 | (_ :: _) |
218 | a | 240 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) |
241 | -> _rhs b) | ||
242 | a | ||
219 | 243 | ||
220 | saAlphaFunc | 244 | saAlphaFunc |
221 | = \(a :: _) -> case'StageAttrs | 245 | = _lhs |
222 | (\(_ :: _) -> _) | 246 | saAlphaFunc |
223 | (\(_ :: _) | 247 | \(a :: _) -> case'StageAttrs |
224 | (_ :: _) | 248 | (\(_ :: _) -> _) |
225 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) | 249 | (\(_ :: _) |
226 | -> _rhs b) | 250 | (_ :: _) |
227 | a | 251 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) |
252 | -> _rhs b) | ||
253 | a | ||
228 | 254 | ||
229 | saDepthMaskExplicit | 255 | saDepthMaskExplicit |
230 | = \(a :: _) -> case'StageAttrs | 256 | = _lhs |
231 | (\(_ :: _) -> _) | 257 | saDepthMaskExplicit |
232 | (\(_ :: _) | 258 | \(a :: _) -> case'StageAttrs |
233 | (_ :: _) | 259 | (\(_ :: _) -> _) |
234 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) | 260 | (\(_ :: _) |
235 | -> _rhs b) | 261 | (_ :: _) |
236 | a | 262 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) |
263 | -> _rhs b) | ||
264 | a | ||
237 | 265 | ||
238 | saTextureUniform | 266 | saTextureUniform |
239 | = \(a :: _) -> case'StageAttrs | 267 | = _lhs |
240 | (\(_ :: _) -> _) | 268 | saTextureUniform |
241 | (\(_ :: _) | 269 | \(a :: _) -> case'StageAttrs |
242 | (_ :: _) | 270 | (\(_ :: _) -> _) |
243 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) | 271 | (\(_ :: _) |
244 | -> _rhs b) | 272 | (_ :: _) |
245 | a | 273 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) |
274 | -> _rhs b) | ||
275 | a | ||
246 | 276 | ||
247 | defaultStageAttrs :: StageAttrs | 277 | defaultStageAttrs :: StageAttrs |
248 | defaultStageAttrs | 278 | defaultStageAttrs |
249 | = _rhs | 279 | = _lhs |
250 | (StageAttrs | 280 | defaultStageAttrs |
251 | Nothing | 281 | (_rhs |
252 | RGB_Undefined | 282 | (StageAttrs |
253 | A_Identity | 283 | Nothing |
254 | TG_Undefined | 284 | RGB_Undefined |
255 | [] | 285 | A_Identity |
256 | ST_WhiteImage | 286 | TG_Undefined |
257 | True | 287 | [] |
258 | D_Lequal | 288 | ST_WhiteImage |
259 | Nothing | 289 | True |
260 | False | 290 | D_Lequal |
261 | "") | 291 | Nothing |
292 | False | ||
293 | "")) | ||
262 | 294 | ||
263 | data CommonAttrs :: Type where | 295 | data CommonAttrs :: Type where |
264 | CommonAttrs | 296 | CommonAttrs |
@@ -271,141 +303,167 @@ data CommonAttrs :: Type where | |||
271 | -> CullType -> [Deform] -> Bool -> Bool -> [StageAttrs] -> Bool -> CommonAttrs | 303 | -> CullType -> [Deform] -> Bool -> Bool -> [StageAttrs] -> Bool -> CommonAttrs |
272 | 304 | ||
273 | caSkyParms | 305 | caSkyParms |
274 | = \(a :: _) -> case'CommonAttrs | 306 | = _lhs |
275 | (\(_ :: _) -> _) | 307 | caSkyParms |
276 | (\(b :: _) | 308 | \(a :: _) -> case'CommonAttrs |
277 | (_ :: _) | 309 | (\(_ :: _) -> _) |
310 | (\(b :: _) | ||
278 | (_ :: _) | 311 | (_ :: _) |
279 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 312 | (_ :: _) |
280 | -> _rhs b) | 313 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
281 | a | 314 | -> _rhs b) |
315 | a | ||
282 | 316 | ||
283 | caFogParms | 317 | caFogParms |
284 | = \(a :: _) -> case'CommonAttrs | 318 | = _lhs |
285 | (\(_ :: _) -> _) | 319 | caFogParms |
286 | (\(_ :: _) | 320 | \(a :: _) -> case'CommonAttrs |
287 | (b :: _) | 321 | (\(_ :: _) -> _) |
288 | (_ :: _) | 322 | (\(_ :: _) |
289 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 323 | (b :: _) |
290 | -> _rhs b) | 324 | (_ :: _) |
291 | a | 325 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
326 | -> _rhs b) | ||
327 | a | ||
292 | 328 | ||
293 | caPortal | 329 | caPortal |
294 | = \(a :: _) -> case'CommonAttrs | 330 | = _lhs |
295 | (\(_ :: _) -> _) | 331 | caPortal |
296 | (\(_ :: _) | 332 | \(a :: _) -> case'CommonAttrs |
297 | (_ :: _) | 333 | (\(_ :: _) -> _) |
298 | (b :: _) | 334 | (\(_ :: _) |
299 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 335 | (_ :: _) |
300 | -> _rhs b) | 336 | (b :: _) |
301 | a | 337 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
338 | -> _rhs b) | ||
339 | a | ||
302 | 340 | ||
303 | caSort | 341 | caSort |
304 | = \(a :: _) -> case'CommonAttrs | 342 | = _lhs |
305 | (\(_ :: _) -> _) | 343 | caSort |
306 | (\(_ :: _) | 344 | \(a :: _) -> case'CommonAttrs |
307 | (_ :: _) | 345 | (\(_ :: _) -> _) |
346 | (\(_ :: _) | ||
308 | (_ :: _) | 347 | (_ :: _) |
309 | (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 348 | (_ :: _) |
310 | -> _rhs b) | 349 | (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
311 | a | 350 | -> _rhs b) |
351 | a | ||
312 | 352 | ||
313 | caEntityMergable | 353 | caEntityMergable |
314 | = \(a :: _) -> case'CommonAttrs | 354 | = _lhs |
315 | (\(_ :: _) -> _) | 355 | caEntityMergable |
316 | (\(_ :: _) | 356 | \(a :: _) -> case'CommonAttrs |
317 | (_ :: _) | 357 | (\(_ :: _) -> _) |
358 | (\(_ :: _) | ||
318 | (_ :: _) | 359 | (_ :: _) |
319 | (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 360 | (_ :: _) |
320 | -> _rhs b) | 361 | (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
321 | a | 362 | -> _rhs b) |
363 | a | ||
322 | 364 | ||
323 | caFogOnly | 365 | caFogOnly |
324 | = \(a :: _) -> case'CommonAttrs | 366 | = _lhs |
325 | (\(_ :: _) -> _) | 367 | caFogOnly |
326 | (\(_ :: _) | 368 | \(a :: _) -> case'CommonAttrs |
327 | (_ :: _) | 369 | (\(_ :: _) -> _) |
370 | (\(_ :: _) | ||
328 | (_ :: _) | 371 | (_ :: _) |
329 | (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 372 | (_ :: _) |
330 | -> _rhs b) | 373 | (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
331 | a | 374 | -> _rhs b) |
375 | a | ||
332 | 376 | ||
333 | caCull | 377 | caCull |
334 | = \(a :: _) -> case'CommonAttrs | 378 | = _lhs |
335 | (\(_ :: _) -> _) | 379 | caCull |
336 | (\(_ :: _) | 380 | \(a :: _) -> case'CommonAttrs |
337 | (_ :: _) | 381 | (\(_ :: _) -> _) |
382 | (\(_ :: _) | ||
338 | (_ :: _) | 383 | (_ :: _) |
339 | (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 384 | (_ :: _) |
340 | -> _rhs b) | 385 | (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
341 | a | 386 | -> _rhs b) |
387 | a | ||
342 | 388 | ||
343 | caDeformVertexes | 389 | caDeformVertexes |
344 | = \(a :: _) -> case'CommonAttrs | 390 | = _lhs |
345 | (\(_ :: _) -> _) | 391 | caDeformVertexes |
346 | (\(_ :: _) | 392 | \(a :: _) -> case'CommonAttrs |
347 | (_ :: _) | 393 | (\(_ :: _) -> _) |
394 | (\(_ :: _) | ||
348 | (_ :: _) | 395 | (_ :: _) |
349 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) | 396 | (_ :: _) |
350 | -> _rhs b) | 397 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) |
351 | a | 398 | -> _rhs b) |
399 | a | ||
352 | 400 | ||
353 | caNoMipMaps | 401 | caNoMipMaps |
354 | = \(a :: _) -> case'CommonAttrs | 402 | = _lhs |
355 | (\(_ :: _) -> _) | 403 | caNoMipMaps |
356 | (\(_ :: _) | 404 | \(a :: _) -> case'CommonAttrs |
357 | (_ :: _) | 405 | (\(_ :: _) -> _) |
406 | (\(_ :: _) | ||
358 | (_ :: _) | 407 | (_ :: _) |
359 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) | 408 | (_ :: _) |
360 | -> _rhs b) | 409 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) |
361 | a | 410 | -> _rhs b) |
411 | a | ||
362 | 412 | ||
363 | caPolygonOffset | 413 | caPolygonOffset |
364 | = \(a :: _) -> case'CommonAttrs | 414 | = _lhs |
365 | (\(_ :: _) -> _) | 415 | caPolygonOffset |
366 | (\(_ :: _) | 416 | \(a :: _) -> case'CommonAttrs |
367 | (_ :: _) | 417 | (\(_ :: _) -> _) |
418 | (\(_ :: _) | ||
368 | (_ :: _) | 419 | (_ :: _) |
369 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) | 420 | (_ :: _) |
370 | -> _rhs b) | 421 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) |
371 | a | 422 | -> _rhs b) |
423 | a | ||
372 | 424 | ||
373 | caStages | 425 | caStages |
374 | = \(a :: _) -> case'CommonAttrs | 426 | = _lhs |
375 | (\(_ :: _) -> _) | 427 | caStages |
376 | (\(_ :: _) | 428 | \(a :: _) -> case'CommonAttrs |
377 | (_ :: _) | 429 | (\(_ :: _) -> _) |
430 | (\(_ :: _) | ||
378 | (_ :: _) | 431 | (_ :: _) |
379 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) | 432 | (_ :: _) |
380 | -> _rhs b) | 433 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) |
381 | a | 434 | -> _rhs b) |
435 | a | ||
382 | 436 | ||
383 | caIsSky | 437 | caIsSky |
384 | = \(a :: _) -> case'CommonAttrs | 438 | = _lhs |
385 | (\(_ :: _) -> _) | 439 | caIsSky |
386 | (\(_ :: _) | 440 | \(a :: _) -> case'CommonAttrs |
387 | (_ :: _) | 441 | (\(_ :: _) -> _) |
442 | (\(_ :: _) | ||
388 | (_ :: _) | 443 | (_ :: _) |
389 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) | 444 | (_ :: _) |
390 | -> _rhs b) | 445 | (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) |
391 | a | 446 | -> _rhs b) |
447 | a | ||
392 | 448 | ||
393 | defaultCommonAttrs :: CommonAttrs | 449 | defaultCommonAttrs :: CommonAttrs |
394 | defaultCommonAttrs | 450 | defaultCommonAttrs |
395 | = _rhs | 451 | = _lhs |
396 | (CommonAttrs | 452 | defaultCommonAttrs |
397 | () | 453 | (_rhs |
398 | () | 454 | (CommonAttrs |
399 | False | 455 | () |
400 | (fromInt 0) | 456 | () |
401 | False | 457 | False |
402 | False | 458 | (fromInt 0) |
403 | CT_FrontSided | 459 | False |
404 | [] | 460 | False |
405 | False | 461 | CT_FrontSided |
406 | False | 462 | [] |
407 | [] | 463 | False |
408 | False) | 464 | False |
465 | [] | ||
466 | False)) | ||
409 | ------------ core code | 467 | ------------ core code |
410 | 'AlphaFunction :: Type | 468 | 'AlphaFunction :: Type |
411 | 'AlphaFunction | 469 | 'AlphaFunction |
diff --git a/testdata/performance/SampleMaterial.out b/testdata/performance/SampleMaterial.out index 6a2d1969..6044fe36 100644 --- a/testdata/performance/SampleMaterial.out +++ b/testdata/performance/SampleMaterial.out | |||
@@ -1,1881 +1,1883 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | sampleMaterial | 3 | sampleMaterial |
4 | = _rhs | 4 | = _lhs |
5 | [("textures/gothic_block/blocks11b" | 5 | sampleMaterial |
6 | , CommonAttrs | 6 | (_rhs |
7 | () | 7 | [("textures/gothic_block/blocks11b" |
8 | () | 8 | , CommonAttrs |
9 | False | 9 | () |
10 | (fromInt 0) | 10 | () |
11 | False | 11 | False |
12 | False | 12 | (fromInt 0) |
13 | CT_FrontSided | 13 | False |
14 | [] | 14 | False |
15 | False | 15 | CT_FrontSided |
16 | False | 16 | [] |
17 | [StageAttrs | 17 | False |
18 | Nothing | 18 | False |
19 | RGB_IdentityLighting | 19 | [StageAttrs |
20 | A_Identity | 20 | Nothing |
21 | TG_Base | 21 | RGB_IdentityLighting |
22 | [] | 22 | A_Identity |
23 | (ST_Map "textures/gothic_block/blocks11b") | 23 | TG_Base |
24 | True | 24 | [] |
25 | D_Lequal | 25 | (ST_Map "textures/gothic_block/blocks11b") |
26 | Nothing | 26 | True |
27 | False | 27 | D_Lequal |
28 | "Tex_4288602201" | 28 | Nothing |
29 | , StageAttrs | 29 | False |
30 | (Just (B_DstColor, B_Zero)) | 30 | "Tex_4288602201" |
31 | RGB_IdentityLighting | 31 | , StageAttrs |
32 | A_Identity | 32 | (Just (B_DstColor, B_Zero)) |
33 | TG_Lightmap | 33 | RGB_IdentityLighting |
34 | [] | 34 | A_Identity |
35 | ST_Lightmap | 35 | TG_Lightmap |
36 | True | 36 | [] |
37 | D_Lequal | 37 | ST_Lightmap |
38 | Nothing | 38 | True |
39 | False | 39 | D_Lequal |
40 | "Tex_3226210144"] | 40 | Nothing |
41 | False) | 41 | False |
42 | , ("textures/gothic_block/blocks15" | 42 | "Tex_3226210144"] |
43 | , CommonAttrs | 43 | False) |
44 | () | 44 | , ("textures/gothic_block/blocks15" |
45 | () | 45 | , CommonAttrs |
46 | False | 46 | () |
47 | (fromInt 0) | 47 | () |
48 | False | 48 | False |
49 | False | 49 | (fromInt 0) |
50 | CT_FrontSided | 50 | False |
51 | [] | 51 | False |
52 | False | 52 | CT_FrontSided |
53 | False | 53 | [] |
54 | [StageAttrs | 54 | False |
55 | Nothing | 55 | False |
56 | RGB_IdentityLighting | 56 | [StageAttrs |
57 | A_Identity | 57 | Nothing |
58 | TG_Base | 58 | RGB_IdentityLighting |
59 | [] | 59 | A_Identity |
60 | (ST_Map "textures/gothic_block/blocks15") | 60 | TG_Base |
61 | True | 61 | [] |
62 | D_Lequal | 62 | (ST_Map "textures/gothic_block/blocks15") |
63 | Nothing | 63 | True |
64 | False | 64 | D_Lequal |
65 | "Tex_2523116863" | 65 | Nothing |
66 | , StageAttrs | 66 | False |
67 | (Just (B_DstColor, B_Zero)) | 67 | "Tex_2523116863" |
68 | RGB_IdentityLighting | 68 | , StageAttrs |
69 | A_Identity | 69 | (Just (B_DstColor, B_Zero)) |
70 | TG_Lightmap | 70 | RGB_IdentityLighting |
71 | [] | 71 | A_Identity |
72 | ST_Lightmap | 72 | TG_Lightmap |
73 | True | 73 | [] |
74 | D_Lequal | 74 | ST_Lightmap |
75 | Nothing | 75 | True |
76 | False | 76 | D_Lequal |
77 | "Tex_3226210144"] | 77 | Nothing |
78 | False) | 78 | False |
79 | , ("textures/gothic_block/blocks18b" | 79 | "Tex_3226210144"] |
80 | , CommonAttrs | 80 | False) |
81 | () | 81 | , ("textures/gothic_block/blocks18b" |
82 | () | 82 | , CommonAttrs |
83 | False | 83 | () |
84 | (fromInt 0) | 84 | () |
85 | False | 85 | False |
86 | False | 86 | (fromInt 0) |
87 | CT_FrontSided | 87 | False |
88 | [] | 88 | False |
89 | False | 89 | CT_FrontSided |
90 | False | 90 | [] |
91 | [StageAttrs | 91 | False |
92 | Nothing | 92 | False |
93 | RGB_IdentityLighting | 93 | [StageAttrs |
94 | A_Identity | 94 | Nothing |
95 | TG_Base | 95 | RGB_IdentityLighting |
96 | [] | 96 | A_Identity |
97 | (ST_Map "textures/gothic_block/blocks18b") | 97 | TG_Base |
98 | True | 98 | [] |
99 | D_Lequal | 99 | (ST_Map "textures/gothic_block/blocks18b") |
100 | Nothing | 100 | True |
101 | False | 101 | D_Lequal |
102 | "Tex_2639119078" | 102 | Nothing |
103 | , StageAttrs | 103 | False |
104 | (Just (B_DstColor, B_Zero)) | 104 | "Tex_2639119078" |
105 | RGB_IdentityLighting | 105 | , StageAttrs |
106 | A_Identity | 106 | (Just (B_DstColor, B_Zero)) |
107 | TG_Lightmap | 107 | RGB_IdentityLighting |
108 | [] | 108 | A_Identity |
109 | ST_Lightmap | 109 | TG_Lightmap |
110 | True | 110 | [] |
111 | D_Lequal | 111 | ST_Lightmap |
112 | Nothing | 112 | True |
113 | False | 113 | D_Lequal |
114 | "Tex_3226210144"] | 114 | Nothing |
115 | False) | 115 | False |
116 | , ("textures/gothic_block/blocks18c_3" | 116 | "Tex_3226210144"] |
117 | , CommonAttrs | 117 | False) |
118 | () | 118 | , ("textures/gothic_block/blocks18c_3" |
119 | () | 119 | , CommonAttrs |
120 | False | 120 | () |
121 | (fromInt 0) | 121 | () |
122 | False | 122 | False |
123 | False | 123 | (fromInt 0) |
124 | CT_FrontSided | 124 | False |
125 | [] | 125 | False |
126 | False | 126 | CT_FrontSided |
127 | False | 127 | [] |
128 | [StageAttrs | 128 | False |
129 | Nothing | 129 | False |
130 | RGB_IdentityLighting | 130 | [StageAttrs |
131 | A_Identity | 131 | Nothing |
132 | TG_Base | 132 | RGB_IdentityLighting |
133 | [] | 133 | A_Identity |
134 | (ST_Map "textures/gothic_block/blocks18c_3") | 134 | TG_Base |
135 | True | 135 | [] |
136 | D_Lequal | 136 | (ST_Map "textures/gothic_block/blocks18c_3") |
137 | Nothing | 137 | True |
138 | False | 138 | D_Lequal |
139 | "Tex_3939430064" | 139 | Nothing |
140 | , StageAttrs | 140 | False |
141 | (Just (B_DstColor, B_Zero)) | 141 | "Tex_3939430064" |
142 | RGB_IdentityLighting | 142 | , StageAttrs |
143 | A_Identity | 143 | (Just (B_DstColor, B_Zero)) |
144 | TG_Lightmap | 144 | RGB_IdentityLighting |
145 | [] | 145 | A_Identity |
146 | ST_Lightmap | 146 | TG_Lightmap |
147 | True | 147 | [] |
148 | D_Lequal | 148 | ST_Lightmap |
149 | Nothing | 149 | True |
150 | False | 150 | D_Lequal |
151 | "Tex_3226210144"] | 151 | Nothing |
152 | False) | 152 | False |
153 | , ("textures/gothic_block/demon_block15fx" | 153 | "Tex_3226210144"] |
154 | , CommonAttrs | 154 | False) |
155 | () | 155 | , ("textures/gothic_block/demon_block15fx" |
156 | () | 156 | , CommonAttrs |
157 | False | 157 | () |
158 | (fromInt 3) | 158 | () |
159 | False | 159 | False |
160 | False | 160 | (fromInt 3) |
161 | CT_FrontSided | 161 | False |
162 | [] | 162 | False |
163 | False | 163 | CT_FrontSided |
164 | False | 164 | [] |
165 | [StageAttrs | 165 | False |
166 | Nothing | 166 | False |
167 | RGB_Identity | 167 | [StageAttrs |
168 | A_Identity | 168 | Nothing |
169 | TG_Base | 169 | RGB_Identity |
170 | [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 1.6, TM_Scale 4.0 4.0] | 170 | A_Identity |
171 | (ST_Map "textures/sfx/firegorre.tga") | 171 | TG_Base |
172 | True | 172 | [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 1.6, TM_Scale 4.0 4.0] |
173 | D_Lequal | 173 | (ST_Map "textures/sfx/firegorre.tga") |
174 | Nothing | 174 | True |
175 | False | 175 | D_Lequal |
176 | "Tex_47037129" | 176 | Nothing |
177 | , StageAttrs | 177 | False |
178 | (Just (B_SrcAlpha, B_OneMinusSrcAlpha)) | 178 | "Tex_47037129" |
179 | RGB_Identity | 179 | , StageAttrs |
180 | A_Identity | 180 | (Just (B_SrcAlpha, B_OneMinusSrcAlpha)) |
181 | TG_Base | 181 | RGB_Identity |
182 | [] | 182 | A_Identity |
183 | (ST_Map "textures/gothic_block/demon_block15fx.tga") | 183 | TG_Base |
184 | False | 184 | [] |
185 | D_Lequal | 185 | (ST_Map "textures/gothic_block/demon_block15fx.tga") |
186 | Nothing | 186 | False |
187 | False | 187 | D_Lequal |
188 | "Tex_3562558025" | 188 | Nothing |
189 | , StageAttrs | 189 | False |
190 | (Just (B_DstColor, B_OneMinusDstAlpha)) | 190 | "Tex_3562558025" |
191 | RGB_Identity | 191 | , StageAttrs |
192 | A_Identity | 192 | (Just (B_DstColor, B_OneMinusDstAlpha)) |
193 | TG_Lightmap | 193 | RGB_Identity |
194 | [] | 194 | A_Identity |
195 | ST_Lightmap | 195 | TG_Lightmap |
196 | False | 196 | [] |
197 | D_Lequal | 197 | ST_Lightmap |
198 | Nothing | 198 | False |
199 | False | 199 | D_Lequal |
200 | "Tex_2065974340"] | 200 | Nothing |
201 | False) | 201 | False |
202 | , ("textures/gothic_block/killblock" | 202 | "Tex_2065974340"] |
203 | , CommonAttrs | 203 | False) |
204 | () | 204 | , ("textures/gothic_block/killblock" |
205 | () | 205 | , CommonAttrs |
206 | False | 206 | () |
207 | (fromInt 0) | 207 | () |
208 | False | 208 | False |
209 | False | 209 | (fromInt 0) |
210 | CT_FrontSided | 210 | False |
211 | [] | 211 | False |
212 | False | 212 | CT_FrontSided |
213 | False | 213 | [] |
214 | [StageAttrs | 214 | False |
215 | Nothing | 215 | False |
216 | RGB_IdentityLighting | 216 | [StageAttrs |
217 | A_Identity | 217 | Nothing |
218 | TG_Base | 218 | RGB_IdentityLighting |
219 | [] | 219 | A_Identity |
220 | (ST_Map "textures/gothic_block/killblock") | 220 | TG_Base |
221 | True | 221 | [] |
222 | D_Lequal | 222 | (ST_Map "textures/gothic_block/killblock") |
223 | Nothing | 223 | True |
224 | False | 224 | D_Lequal |
225 | "Tex_3647563961" | 225 | Nothing |
226 | , StageAttrs | 226 | False |
227 | (Just (B_DstColor, B_Zero)) | 227 | "Tex_3647563961" |
228 | RGB_IdentityLighting | 228 | , StageAttrs |
229 | A_Identity | 229 | (Just (B_DstColor, B_Zero)) |
230 | TG_Lightmap | 230 | RGB_IdentityLighting |
231 | [] | 231 | A_Identity |
232 | ST_Lightmap | 232 | TG_Lightmap |
233 | True | 233 | [] |
234 | D_Lequal | 234 | ST_Lightmap |
235 | Nothing | 235 | True |
236 | False | 236 | D_Lequal |
237 | "Tex_3226210144"] | 237 | Nothing |
238 | False) | 238 | False |
239 | , ("textures/gothic_block/killblock_i" | 239 | "Tex_3226210144"] |
240 | , CommonAttrs | 240 | False) |
241 | () | 241 | , ("textures/gothic_block/killblock_i" |
242 | () | 242 | , CommonAttrs |
243 | False | 243 | () |
244 | (fromInt 0) | 244 | () |
245 | False | 245 | False |
246 | False | 246 | (fromInt 0) |
247 | CT_FrontSided | 247 | False |
248 | [] | 248 | False |
249 | False | 249 | CT_FrontSided |
250 | False | 250 | [] |
251 | [StageAttrs | 251 | False |
252 | Nothing | 252 | False |
253 | RGB_IdentityLighting | 253 | [StageAttrs |
254 | A_Identity | 254 | Nothing |
255 | TG_Base | 255 | RGB_IdentityLighting |
256 | [] | 256 | A_Identity |
257 | (ST_Map "textures/gothic_block/killblock_i") | 257 | TG_Base |
258 | True | 258 | [] |
259 | D_Lequal | 259 | (ST_Map "textures/gothic_block/killblock_i") |
260 | Nothing | 260 | True |
261 | False | 261 | D_Lequal |
262 | "Tex_209322640" | 262 | Nothing |
263 | , StageAttrs | 263 | False |
264 | (Just (B_DstColor, B_Zero)) | 264 | "Tex_209322640" |
265 | RGB_IdentityLighting | 265 | , StageAttrs |
266 | A_Identity | 266 | (Just (B_DstColor, B_Zero)) |
267 | TG_Lightmap | 267 | RGB_IdentityLighting |
268 | [] | 268 | A_Identity |
269 | ST_Lightmap | 269 | TG_Lightmap |
270 | True | 270 | [] |
271 | D_Lequal | 271 | ST_Lightmap |
272 | Nothing | 272 | True |
273 | False | 273 | D_Lequal |
274 | "Tex_3226210144"] | 274 | Nothing |
275 | False) | 275 | False |
276 | , ("textures/gothic_block/killblock_i4" | 276 | "Tex_3226210144"] |
277 | , CommonAttrs | 277 | False) |
278 | () | 278 | , ("textures/gothic_block/killblock_i4" |
279 | () | 279 | , CommonAttrs |
280 | False | 280 | () |
281 | (fromInt 0) | 281 | () |
282 | False | 282 | False |
283 | False | 283 | (fromInt 0) |
284 | CT_FrontSided | 284 | False |
285 | [] | 285 | False |
286 | False | 286 | CT_FrontSided |
287 | False | 287 | [] |
288 | [StageAttrs | 288 | False |
289 | Nothing | 289 | False |
290 | RGB_IdentityLighting | 290 | [StageAttrs |
291 | A_Identity | 291 | Nothing |
292 | TG_Base | 292 | RGB_IdentityLighting |
293 | [] | 293 | A_Identity |
294 | (ST_Map "textures/gothic_block/killblock_i4") | 294 | TG_Base |
295 | True | 295 | [] |
296 | D_Lequal | 296 | (ST_Map "textures/gothic_block/killblock_i4") |
297 | Nothing | 297 | True |
298 | False | 298 | D_Lequal |
299 | "Tex_3617993418" | 299 | Nothing |
300 | , StageAttrs | 300 | False |
301 | (Just (B_DstColor, B_Zero)) | 301 | "Tex_3617993418" |
302 | RGB_IdentityLighting | 302 | , StageAttrs |
303 | A_Identity | 303 | (Just (B_DstColor, B_Zero)) |
304 | TG_Lightmap | 304 | RGB_IdentityLighting |
305 | [] | 305 | A_Identity |
306 | ST_Lightmap | 306 | TG_Lightmap |
307 | True | 307 | [] |
308 | D_Lequal | 308 | ST_Lightmap |
309 | Nothing | 309 | True |
310 | False | 310 | D_Lequal |
311 | "Tex_3226210144"] | 311 | Nothing |
312 | False) | 312 | False |
313 | , ("textures/gothic_door/km_arena1archfinalc_mid" | 313 | "Tex_3226210144"] |
314 | , CommonAttrs | 314 | False) |
315 | () | 315 | , ("textures/gothic_door/km_arena1archfinalc_mid" |
316 | () | 316 | , CommonAttrs |
317 | False | 317 | () |
318 | (fromInt 0) | 318 | () |
319 | False | 319 | False |
320 | False | 320 | (fromInt 0) |
321 | CT_FrontSided | 321 | False |
322 | [] | 322 | False |
323 | False | 323 | CT_FrontSided |
324 | False | 324 | [] |
325 | [StageAttrs | 325 | False |
326 | Nothing | 326 | False |
327 | RGB_IdentityLighting | 327 | [StageAttrs |
328 | A_Identity | 328 | Nothing |
329 | TG_Base | 329 | RGB_IdentityLighting |
330 | [] | 330 | A_Identity |
331 | (ST_Map "textures/gothic_door/km_arena1archfinalc_mid") | 331 | TG_Base |
332 | True | 332 | [] |
333 | D_Lequal | 333 | (ST_Map "textures/gothic_door/km_arena1archfinalc_mid") |
334 | Nothing | 334 | True |
335 | False | 335 | D_Lequal |
336 | "Tex_2073154888" | 336 | Nothing |
337 | , StageAttrs | 337 | False |
338 | (Just (B_DstColor, B_Zero)) | 338 | "Tex_2073154888" |
339 | RGB_IdentityLighting | 339 | , StageAttrs |
340 | A_Identity | 340 | (Just (B_DstColor, B_Zero)) |
341 | TG_Lightmap | 341 | RGB_IdentityLighting |
342 | [] | 342 | A_Identity |
343 | ST_Lightmap | 343 | TG_Lightmap |
344 | True | 344 | [] |
345 | D_Lequal | 345 | ST_Lightmap |
346 | Nothing | 346 | True |
347 | False | 347 | D_Lequal |
348 | "Tex_3226210144"] | 348 | Nothing |
349 | False) | 349 | False |
350 | , ("textures/gothic_door/km_arena1archfinalc_top" | 350 | "Tex_3226210144"] |
351 | , CommonAttrs | 351 | False) |
352 | () | 352 | , ("textures/gothic_door/km_arena1archfinalc_top" |
353 | () | 353 | , CommonAttrs |
354 | False | 354 | () |
355 | (fromInt 0) | 355 | () |
356 | False | 356 | False |
357 | False | 357 | (fromInt 0) |
358 | CT_FrontSided | 358 | False |
359 | [] | 359 | False |
360 | False | 360 | CT_FrontSided |
361 | False | 361 | [] |
362 | [StageAttrs | 362 | False |
363 | Nothing | 363 | False |
364 | RGB_IdentityLighting | 364 | [StageAttrs |
365 | A_Identity | 365 | Nothing |
366 | TG_Base | 366 | RGB_IdentityLighting |
367 | [] | 367 | A_Identity |
368 | (ST_Map "textures/gothic_door/km_arena1archfinalc_top") | 368 | TG_Base |
369 | True | 369 | [] |
370 | D_Lequal | 370 | (ST_Map "textures/gothic_door/km_arena1archfinalc_top") |
371 | Nothing | 371 | True |
372 | False | 372 | D_Lequal |
373 | "Tex_3071107621" | 373 | Nothing |
374 | , StageAttrs | 374 | False |
375 | (Just (B_DstColor, B_Zero)) | 375 | "Tex_3071107621" |
376 | RGB_IdentityLighting | 376 | , StageAttrs |
377 | A_Identity | 377 | (Just (B_DstColor, B_Zero)) |
378 | TG_Lightmap | 378 | RGB_IdentityLighting |
379 | [] | 379 | A_Identity |
380 | ST_Lightmap | 380 | TG_Lightmap |
381 | True | 381 | [] |
382 | D_Lequal | 382 | ST_Lightmap |
383 | Nothing | 383 | True |
384 | False | 384 | D_Lequal |
385 | "Tex_3226210144"] | 385 | Nothing |
386 | False) | 386 | False |
387 | , ("textures/gothic_door/km_arena1archfinald_bot" | 387 | "Tex_3226210144"] |
388 | , CommonAttrs | 388 | False) |
389 | () | 389 | , ("textures/gothic_door/km_arena1archfinald_bot" |
390 | () | 390 | , CommonAttrs |
391 | False | 391 | () |
392 | (fromInt 0) | 392 | () |
393 | False | 393 | False |
394 | False | 394 | (fromInt 0) |
395 | CT_FrontSided | 395 | False |
396 | [] | 396 | False |
397 | False | 397 | CT_FrontSided |
398 | False | 398 | [] |
399 | [StageAttrs | 399 | False |
400 | Nothing | 400 | False |
401 | RGB_IdentityLighting | 401 | [StageAttrs |
402 | A_Identity | 402 | Nothing |
403 | TG_Base | 403 | RGB_IdentityLighting |
404 | [] | 404 | A_Identity |
405 | (ST_Map "textures/gothic_door/km_arena1archfinald_bot") | 405 | TG_Base |
406 | True | 406 | [] |
407 | D_Lequal | 407 | (ST_Map "textures/gothic_door/km_arena1archfinald_bot") |
408 | Nothing | 408 | True |
409 | False | 409 | D_Lequal |
410 | "Tex_1201212243" | 410 | Nothing |
411 | , StageAttrs | 411 | False |
412 | (Just (B_DstColor, B_Zero)) | 412 | "Tex_1201212243" |
413 | RGB_IdentityLighting | 413 | , StageAttrs |
414 | A_Identity | 414 | (Just (B_DstColor, B_Zero)) |
415 | TG_Lightmap | 415 | RGB_IdentityLighting |
416 | [] | 416 | A_Identity |
417 | ST_Lightmap | 417 | TG_Lightmap |
418 | True | 418 | [] |
419 | D_Lequal | 419 | ST_Lightmap |
420 | Nothing | 420 | True |
421 | False | 421 | D_Lequal |
422 | "Tex_3226210144"] | 422 | Nothing |
423 | False) | 423 | False |
424 | , ("textures/gothic_door/km_arena1archfinald_mid" | 424 | "Tex_3226210144"] |
425 | , CommonAttrs | 425 | False) |
426 | () | 426 | , ("textures/gothic_door/km_arena1archfinald_mid" |
427 | () | 427 | , CommonAttrs |
428 | False | 428 | () |
429 | (fromInt 0) | 429 | () |
430 | False | 430 | False |
431 | False | 431 | (fromInt 0) |
432 | CT_FrontSided | 432 | False |
433 | [] | 433 | False |
434 | False | 434 | CT_FrontSided |
435 | False | 435 | [] |
436 | [StageAttrs | 436 | False |
437 | Nothing | 437 | False |
438 | RGB_IdentityLighting | 438 | [StageAttrs |
439 | A_Identity | 439 | Nothing |
440 | TG_Base | 440 | RGB_IdentityLighting |
441 | [] | 441 | A_Identity |
442 | (ST_Map "textures/gothic_door/km_arena1archfinald_mid") | 442 | TG_Base |
443 | True | 443 | [] |
444 | D_Lequal | 444 | (ST_Map "textures/gothic_door/km_arena1archfinald_mid") |
445 | Nothing | 445 | True |
446 | False | 446 | D_Lequal |
447 | "Tex_3768122504" | 447 | Nothing |
448 | , StageAttrs | 448 | False |
449 | (Just (B_DstColor, B_Zero)) | 449 | "Tex_3768122504" |
450 | RGB_IdentityLighting | 450 | , StageAttrs |
451 | A_Identity | 451 | (Just (B_DstColor, B_Zero)) |
452 | TG_Lightmap | 452 | RGB_IdentityLighting |
453 | [] | 453 | A_Identity |
454 | ST_Lightmap | 454 | TG_Lightmap |
455 | True | 455 | [] |
456 | D_Lequal | 456 | ST_Lightmap |
457 | Nothing | 457 | True |
458 | False | 458 | D_Lequal |
459 | "Tex_3226210144"] | 459 | Nothing |
460 | False) | 460 | False |
461 | , ("textures/gothic_door/skull_door_a" | 461 | "Tex_3226210144"] |
462 | , CommonAttrs | 462 | False) |
463 | () | 463 | , ("textures/gothic_door/skull_door_a" |
464 | () | 464 | , CommonAttrs |
465 | False | 465 | () |
466 | (fromInt 0) | 466 | () |
467 | False | 467 | False |
468 | False | 468 | (fromInt 0) |
469 | CT_FrontSided | 469 | False |
470 | [] | 470 | False |
471 | False | 471 | CT_FrontSided |
472 | False | 472 | [] |
473 | [StageAttrs | 473 | False |
474 | Nothing | 474 | False |
475 | RGB_IdentityLighting | 475 | [StageAttrs |
476 | A_Identity | 476 | Nothing |
477 | TG_Base | 477 | RGB_IdentityLighting |
478 | [] | 478 | A_Identity |
479 | (ST_Map "textures/gothic_door/skull_door_a") | 479 | TG_Base |
480 | True | 480 | [] |
481 | D_Lequal | 481 | (ST_Map "textures/gothic_door/skull_door_a") |
482 | Nothing | 482 | True |
483 | False | 483 | D_Lequal |
484 | "Tex_1284708166" | 484 | Nothing |
485 | , StageAttrs | 485 | False |
486 | (Just (B_DstColor, B_Zero)) | 486 | "Tex_1284708166" |
487 | RGB_IdentityLighting | 487 | , StageAttrs |
488 | A_Identity | 488 | (Just (B_DstColor, B_Zero)) |
489 | TG_Lightmap | 489 | RGB_IdentityLighting |
490 | [] | 490 | A_Identity |
491 | ST_Lightmap | 491 | TG_Lightmap |
492 | True | 492 | [] |
493 | D_Lequal | 493 | ST_Lightmap |
494 | Nothing | 494 | True |
495 | False | 495 | D_Lequal |
496 | "Tex_3226210144"] | 496 | Nothing |
497 | False) | 497 | False |
498 | , ("textures/gothic_door/skull_door_b" | 498 | "Tex_3226210144"] |
499 | , CommonAttrs | 499 | False) |
500 | () | 500 | , ("textures/gothic_door/skull_door_b" |
501 | () | 501 | , CommonAttrs |
502 | False | 502 | () |
503 | (fromInt 0) | 503 | () |
504 | False | 504 | False |
505 | False | 505 | (fromInt 0) |
506 | CT_FrontSided | 506 | False |
507 | [] | 507 | False |
508 | False | 508 | CT_FrontSided |
509 | False | 509 | [] |
510 | [StageAttrs | 510 | False |
511 | Nothing | 511 | False |
512 | RGB_IdentityLighting | 512 | [StageAttrs |
513 | A_Identity | 513 | Nothing |
514 | TG_Base | 514 | RGB_IdentityLighting |
515 | [] | 515 | A_Identity |
516 | (ST_Map "textures/gothic_door/skull_door_b") | 516 | TG_Base |
517 | True | 517 | [] |
518 | D_Lequal | 518 | (ST_Map "textures/gothic_door/skull_door_b") |
519 | Nothing | 519 | True |
520 | False | 520 | D_Lequal |
521 | "Tex_1318715778" | 521 | Nothing |
522 | , StageAttrs | 522 | False |
523 | (Just (B_DstColor, B_Zero)) | 523 | "Tex_1318715778" |
524 | RGB_IdentityLighting | 524 | , StageAttrs |
525 | A_Identity | 525 | (Just (B_DstColor, B_Zero)) |
526 | TG_Lightmap | 526 | RGB_IdentityLighting |
527 | [] | 527 | A_Identity |
528 | ST_Lightmap | 528 | TG_Lightmap |
529 | True | 529 | [] |
530 | D_Lequal | 530 | ST_Lightmap |
531 | Nothing | 531 | True |
532 | False | 532 | D_Lequal |
533 | "Tex_3226210144"] | 533 | Nothing |
534 | False) | 534 | False |
535 | , ("textures/gothic_door/skull_door_c" | 535 | "Tex_3226210144"] |
536 | , CommonAttrs | 536 | False) |
537 | () | 537 | , ("textures/gothic_door/skull_door_c" |
538 | () | 538 | , CommonAttrs |
539 | False | 539 | () |
540 | (fromInt 0) | 540 | () |
541 | False | 541 | False |
542 | False | 542 | (fromInt 0) |
543 | CT_FrontSided | 543 | False |
544 | [] | 544 | False |
545 | False | 545 | CT_FrontSided |
546 | False | 546 | [] |
547 | [StageAttrs | 547 | False |
548 | Nothing | 548 | False |
549 | RGB_IdentityLighting | 549 | [StageAttrs |
550 | A_Identity | 550 | Nothing |
551 | TG_Base | 551 | RGB_IdentityLighting |
552 | [] | 552 | A_Identity |
553 | (ST_Map "textures/gothic_door/skull_door_c") | 553 | TG_Base |
554 | True | 554 | [] |
555 | D_Lequal | 555 | (ST_Map "textures/gothic_door/skull_door_c") |
556 | Nothing | 556 | True |
557 | False | 557 | D_Lequal |
558 | "Tex_4189195777" | 558 | Nothing |
559 | , StageAttrs | 559 | False |
560 | (Just (B_DstColor, B_Zero)) | 560 | "Tex_4189195777" |
561 | RGB_IdentityLighting | 561 | , StageAttrs |
562 | A_Identity | 562 | (Just (B_DstColor, B_Zero)) |
563 | TG_Lightmap | 563 | RGB_IdentityLighting |
564 | [] | 564 | A_Identity |
565 | ST_Lightmap | 565 | TG_Lightmap |
566 | True | 566 | [] |
567 | D_Lequal | 567 | ST_Lightmap |
568 | Nothing | 568 | True |
569 | False | 569 | D_Lequal |
570 | "Tex_3226210144"] | 570 | Nothing |
571 | False) | 571 | False |
572 | , ("textures/gothic_door/skull_door_d" | 572 | "Tex_3226210144"] |
573 | , CommonAttrs | 573 | False) |
574 | () | 574 | , ("textures/gothic_door/skull_door_d" |
575 | () | 575 | , CommonAttrs |
576 | False | 576 | () |
577 | (fromInt 0) | 577 | () |
578 | False | 578 | False |
579 | False | 579 | (fromInt 0) |
580 | CT_FrontSided | 580 | False |
581 | [] | 581 | False |
582 | False | 582 | CT_FrontSided |
583 | False | 583 | [] |
584 | [StageAttrs | 584 | False |
585 | Nothing | 585 | False |
586 | RGB_IdentityLighting | 586 | [StageAttrs |
587 | A_Identity | 587 | Nothing |
588 | TG_Base | 588 | RGB_IdentityLighting |
589 | [] | 589 | A_Identity |
590 | (ST_Map "textures/gothic_door/skull_door_d") | 590 | TG_Base |
591 | True | 591 | [] |
592 | D_Lequal | 592 | (ST_Map "textures/gothic_door/skull_door_d") |
593 | Nothing | 593 | True |
594 | False | 594 | D_Lequal |
595 | "Tex_1250438154" | 595 | Nothing |
596 | , StageAttrs | 596 | False |
597 | (Just (B_DstColor, B_Zero)) | 597 | "Tex_1250438154" |
598 | RGB_IdentityLighting | 598 | , StageAttrs |
599 | A_Identity | 599 | (Just (B_DstColor, B_Zero)) |
600 | TG_Lightmap | 600 | RGB_IdentityLighting |
601 | [] | 601 | A_Identity |
602 | ST_Lightmap | 602 | TG_Lightmap |
603 | True | 603 | [] |
604 | D_Lequal | 604 | ST_Lightmap |
605 | Nothing | 605 | True |
606 | False | 606 | D_Lequal |
607 | "Tex_3226210144"] | 607 | Nothing |
608 | False) | 608 | False |
609 | , ("textures/gothic_door/skull_door_e" | 609 | "Tex_3226210144"] |
610 | , CommonAttrs | 610 | False) |
611 | () | 611 | , ("textures/gothic_door/skull_door_e" |
612 | () | 612 | , CommonAttrs |
613 | False | 613 | () |
614 | (fromInt 0) | 614 | () |
615 | False | 615 | False |
616 | False | 616 | (fromInt 0) |
617 | CT_FrontSided | 617 | False |
618 | [] | 618 | False |
619 | False | 619 | CT_FrontSided |
620 | False | 620 | [] |
621 | [StageAttrs | 621 | False |
622 | Nothing | 622 | False |
623 | RGB_IdentityLighting | 623 | [StageAttrs |
624 | A_Identity | 624 | Nothing |
625 | TG_Base | 625 | RGB_IdentityLighting |
626 | [] | 626 | A_Identity |
627 | (ST_Map "textures/gothic_door/skull_door_e") | 627 | TG_Base |
628 | True | 628 | [] |
629 | D_Lequal | 629 | (ST_Map "textures/gothic_door/skull_door_e") |
630 | Nothing | 630 | True |
631 | False | 631 | D_Lequal |
632 | "Tex_4255130505" | 632 | Nothing |
633 | , StageAttrs | 633 | False |
634 | (Just (B_DstColor, B_Zero)) | 634 | "Tex_4255130505" |
635 | RGB_IdentityLighting | 635 | , StageAttrs |
636 | A_Identity | 636 | (Just (B_DstColor, B_Zero)) |
637 | TG_Lightmap | 637 | RGB_IdentityLighting |
638 | [] | 638 | A_Identity |
639 | ST_Lightmap | 639 | TG_Lightmap |
640 | True | 640 | [] |
641 | D_Lequal | 641 | ST_Lightmap |
642 | Nothing | 642 | True |
643 | False | 643 | D_Lequal |
644 | "Tex_3226210144"] | 644 | Nothing |
645 | False) | 645 | False |
646 | , ("textures/gothic_door/skull_door_f" | 646 | "Tex_3226210144"] |
647 | , CommonAttrs | 647 | False) |
648 | () | 648 | , ("textures/gothic_door/skull_door_f" |
649 | () | 649 | , CommonAttrs |
650 | False | 650 | () |
651 | (fromInt 0) | 651 | () |
652 | False | 652 | False |
653 | False | 653 | (fromInt 0) |
654 | CT_FrontSided | 654 | False |
655 | [] | 655 | False |
656 | False | 656 | CT_FrontSided |
657 | False | 657 | [] |
658 | [StageAttrs | 658 | False |
659 | Nothing | 659 | False |
660 | RGB_IdentityLighting | 660 | [StageAttrs |
661 | A_Identity | 661 | Nothing |
662 | TG_Base | 662 | RGB_IdentityLighting |
663 | [] | 663 | A_Identity |
664 | (ST_Map "textures/gothic_door/skull_door_f") | 664 | TG_Base |
665 | True | 665 | [] |
666 | D_Lequal | 666 | (ST_Map "textures/gothic_door/skull_door_f") |
667 | Nothing | 667 | True |
668 | False | 668 | D_Lequal |
669 | "Tex_4289279309" | 669 | Nothing |
670 | , StageAttrs | 670 | False |
671 | (Just (B_DstColor, B_Zero)) | 671 | "Tex_4289279309" |
672 | RGB_IdentityLighting | 672 | , StageAttrs |
673 | A_Identity | 673 | (Just (B_DstColor, B_Zero)) |
674 | TG_Lightmap | 674 | RGB_IdentityLighting |
675 | [] | 675 | A_Identity |
676 | ST_Lightmap | 676 | TG_Lightmap |
677 | True | 677 | [] |
678 | D_Lequal | 678 | ST_Lightmap |
679 | Nothing | 679 | True |
680 | False | 680 | D_Lequal |
681 | "Tex_3226210144"] | 681 | Nothing |
682 | False) | 682 | False |
683 | , ("textures/gothic_door/skullarch_a" | 683 | "Tex_3226210144"] |
684 | , CommonAttrs | 684 | False) |
685 | () | 685 | , ("textures/gothic_door/skullarch_a" |
686 | () | 686 | , CommonAttrs |
687 | False | 687 | () |
688 | (fromInt 0) | 688 | () |
689 | False | 689 | False |
690 | False | 690 | (fromInt 0) |
691 | CT_FrontSided | 691 | False |
692 | [] | 692 | False |
693 | False | 693 | CT_FrontSided |
694 | False | 694 | [] |
695 | [StageAttrs | 695 | False |
696 | Nothing | 696 | False |
697 | RGB_IdentityLighting | 697 | [StageAttrs |
698 | A_Identity | 698 | Nothing |
699 | TG_Base | 699 | RGB_IdentityLighting |
700 | [] | 700 | A_Identity |
701 | (ST_Map "textures/gothic_door/skullarch_a") | 701 | TG_Base |
702 | True | 702 | [] |
703 | D_Lequal | 703 | (ST_Map "textures/gothic_door/skullarch_a") |
704 | Nothing | 704 | True |
705 | False | 705 | D_Lequal |
706 | "Tex_3448884269" | 706 | Nothing |
707 | , StageAttrs | 707 | False |
708 | (Just (B_DstColor, B_Zero)) | 708 | "Tex_3448884269" |
709 | RGB_IdentityLighting | 709 | , StageAttrs |
710 | A_Identity | 710 | (Just (B_DstColor, B_Zero)) |
711 | TG_Lightmap | 711 | RGB_IdentityLighting |
712 | [] | 712 | A_Identity |
713 | ST_Lightmap | 713 | TG_Lightmap |
714 | True | 714 | [] |
715 | D_Lequal | 715 | ST_Lightmap |
716 | Nothing | 716 | True |
717 | False | 717 | D_Lequal |
718 | "Tex_3226210144"] | 718 | Nothing |
719 | False) | 719 | False |
720 | , ("textures/gothic_door/skullarch_b" | 720 | "Tex_3226210144"] |
721 | , CommonAttrs | 721 | False) |
722 | () | 722 | , ("textures/gothic_door/skullarch_b" |
723 | () | 723 | , CommonAttrs |
724 | False | 724 | () |
725 | (fromInt 3) | 725 | () |
726 | False | 726 | False |
727 | False | 727 | (fromInt 3) |
728 | CT_FrontSided | 728 | False |
729 | [] | 729 | False |
730 | False | 730 | CT_FrontSided |
731 | False | 731 | [] |
732 | [StageAttrs | 732 | False |
733 | Nothing | 733 | False |
734 | RGB_Identity | 734 | [StageAttrs |
735 | A_Identity | 735 | Nothing |
736 | TG_Base | 736 | RGB_Identity |
737 | [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 5.6, TM_Scale 1.5 1.5] | 737 | A_Identity |
738 | (ST_Map "textures/sfx/firegorre.tga") | 738 | TG_Base |
739 | True | 739 | [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 5.6, TM_Scale 1.5 1.5] |
740 | D_Lequal | 740 | (ST_Map "textures/sfx/firegorre.tga") |
741 | Nothing | 741 | True |
742 | False | 742 | D_Lequal |
743 | "Tex_3416962274" | 743 | Nothing |
744 | , StageAttrs | 744 | False |
745 | (Just (B_SrcAlpha, B_OneMinusSrcAlpha)) | 745 | "Tex_3416962274" |
746 | RGB_Identity | 746 | , StageAttrs |
747 | A_Identity | 747 | (Just (B_SrcAlpha, B_OneMinusSrcAlpha)) |
748 | TG_Base | 748 | RGB_Identity |
749 | [] | 749 | A_Identity |
750 | (ST_Map "textures/gothic_door/skullarch_b.tga") | 750 | TG_Base |
751 | False | 751 | [] |
752 | D_Lequal | 752 | (ST_Map "textures/gothic_door/skullarch_b.tga") |
753 | Nothing | 753 | False |
754 | False | 754 | D_Lequal |
755 | "Tex_4077187607" | 755 | Nothing |
756 | , StageAttrs | 756 | False |
757 | (Just (B_DstColor, B_Zero)) | 757 | "Tex_4077187607" |
758 | RGB_Identity | 758 | , StageAttrs |
759 | A_Identity | 759 | (Just (B_DstColor, B_Zero)) |
760 | TG_Lightmap | 760 | RGB_Identity |
761 | [] | 761 | A_Identity |
762 | ST_Lightmap | 762 | TG_Lightmap |
763 | False | 763 | [] |
764 | D_Lequal | 764 | ST_Lightmap |
765 | Nothing | 765 | False |
766 | False | 766 | D_Lequal |
767 | "Tex_1196599720"] | 767 | Nothing |
768 | False) | 768 | False |
769 | , ("textures/gothic_door/skullarch_c" | 769 | "Tex_1196599720"] |
770 | , CommonAttrs | 770 | False) |
771 | () | 771 | , ("textures/gothic_door/skullarch_c" |
772 | () | 772 | , CommonAttrs |
773 | False | 773 | () |
774 | (fromInt 0) | 774 | () |
775 | False | 775 | False |
776 | False | 776 | (fromInt 0) |
777 | CT_FrontSided | 777 | False |
778 | [] | 778 | False |
779 | False | 779 | CT_FrontSided |
780 | False | 780 | [] |
781 | [StageAttrs | 781 | False |
782 | Nothing | 782 | False |
783 | RGB_IdentityLighting | 783 | [StageAttrs |
784 | A_Identity | 784 | Nothing |
785 | TG_Base | 785 | RGB_IdentityLighting |
786 | [] | 786 | A_Identity |
787 | (ST_Map "textures/gothic_door/skullarch_c") | 787 | TG_Base |
788 | True | 788 | [] |
789 | D_Lequal | 789 | (ST_Map "textures/gothic_door/skullarch_c") |
790 | Nothing | 790 | True |
791 | False | 791 | D_Lequal |
792 | "Tex_2024854890" | 792 | Nothing |
793 | , StageAttrs | 793 | False |
794 | (Just (B_DstColor, B_Zero)) | 794 | "Tex_2024854890" |
795 | RGB_IdentityLighting | 795 | , StageAttrs |
796 | A_Identity | 796 | (Just (B_DstColor, B_Zero)) |
797 | TG_Lightmap | 797 | RGB_IdentityLighting |
798 | [] | 798 | A_Identity |
799 | ST_Lightmap | 799 | TG_Lightmap |
800 | True | 800 | [] |
801 | D_Lequal | 801 | ST_Lightmap |
802 | Nothing | 802 | True |
803 | False | 803 | D_Lequal |
804 | "Tex_3226210144"] | 804 | Nothing |
805 | False) | 805 | False |
806 | , ("textures/gothic_door/xian_tourneyarch_inside2" | 806 | "Tex_3226210144"] |
807 | , CommonAttrs | 807 | False) |
808 | () | 808 | , ("textures/gothic_door/xian_tourneyarch_inside2" |
809 | () | 809 | , CommonAttrs |
810 | False | 810 | () |
811 | (fromInt 0) | 811 | () |
812 | False | 812 | False |
813 | False | 813 | (fromInt 0) |
814 | CT_FrontSided | 814 | False |
815 | [] | 815 | False |
816 | False | 816 | CT_FrontSided |
817 | False | 817 | [] |
818 | [StageAttrs | 818 | False |
819 | Nothing | 819 | False |
820 | RGB_IdentityLighting | 820 | [StageAttrs |
821 | A_Identity | 821 | Nothing |
822 | TG_Base | 822 | RGB_IdentityLighting |
823 | [] | 823 | A_Identity |
824 | (ST_Map "textures/gothic_door/xian_tourneyarch_inside2") | 824 | TG_Base |
825 | True | 825 | [] |
826 | D_Lequal | 826 | (ST_Map "textures/gothic_door/xian_tourneyarch_inside2") |
827 | Nothing | 827 | True |
828 | False | 828 | D_Lequal |
829 | "Tex_1435187472" | 829 | Nothing |
830 | , StageAttrs | 830 | False |
831 | (Just (B_DstColor, B_Zero)) | 831 | "Tex_1435187472" |
832 | RGB_IdentityLighting | 832 | , StageAttrs |
833 | A_Identity | 833 | (Just (B_DstColor, B_Zero)) |
834 | TG_Lightmap | 834 | RGB_IdentityLighting |
835 | [] | 835 | A_Identity |
836 | ST_Lightmap | 836 | TG_Lightmap |
837 | True | 837 | [] |
838 | D_Lequal | 838 | ST_Lightmap |
839 | Nothing | 839 | True |
840 | False | 840 | D_Lequal |
841 | "Tex_3226210144"] | 841 | Nothing |
842 | False) | 842 | False |
843 | , ("textures/gothic_floor/blocks17floor2" | 843 | "Tex_3226210144"] |
844 | , CommonAttrs | 844 | False) |
845 | () | 845 | , ("textures/gothic_floor/blocks17floor2" |
846 | () | 846 | , CommonAttrs |
847 | False | 847 | () |
848 | (fromInt 0) | 848 | () |
849 | False | 849 | False |
850 | False | 850 | (fromInt 0) |
851 | CT_FrontSided | 851 | False |
852 | [] | 852 | False |
853 | False | 853 | CT_FrontSided |
854 | False | 854 | [] |
855 | [StageAttrs | 855 | False |
856 | Nothing | 856 | False |
857 | RGB_IdentityLighting | 857 | [StageAttrs |
858 | A_Identity | 858 | Nothing |
859 | TG_Base | 859 | RGB_IdentityLighting |
860 | [] | 860 | A_Identity |
861 | (ST_Map "textures/gothic_floor/blocks17floor2") | 861 | TG_Base |
862 | True | 862 | [] |
863 | D_Lequal | 863 | (ST_Map "textures/gothic_floor/blocks17floor2") |
864 | Nothing | 864 | True |
865 | False | 865 | D_Lequal |
866 | "Tex_3814342582" | 866 | Nothing |
867 | , StageAttrs | 867 | False |
868 | (Just (B_DstColor, B_Zero)) | 868 | "Tex_3814342582" |
869 | RGB_IdentityLighting | 869 | , StageAttrs |
870 | A_Identity | 870 | (Just (B_DstColor, B_Zero)) |
871 | TG_Lightmap | 871 | RGB_IdentityLighting |
872 | [] | 872 | A_Identity |
873 | ST_Lightmap | 873 | TG_Lightmap |
874 | True | 874 | [] |
875 | D_Lequal | 875 | ST_Lightmap |
876 | Nothing | 876 | True |
877 | False | 877 | D_Lequal |
878 | "Tex_3226210144"] | 878 | Nothing |
879 | False) | 879 | False |
880 | , ("textures/gothic_floor/largerblock3b" | 880 | "Tex_3226210144"] |
881 | , CommonAttrs | 881 | False) |
882 | () | 882 | , ("textures/gothic_floor/largerblock3b" |
883 | () | 883 | , CommonAttrs |
884 | False | 884 | () |
885 | (fromInt 0) | 885 | () |
886 | False | 886 | False |
887 | False | 887 | (fromInt 0) |
888 | CT_FrontSided | 888 | False |
889 | [] | 889 | False |
890 | False | 890 | CT_FrontSided |
891 | False | 891 | [] |
892 | [StageAttrs | 892 | False |
893 | Nothing | 893 | False |
894 | RGB_IdentityLighting | 894 | [StageAttrs |
895 | A_Identity | 895 | Nothing |
896 | TG_Base | 896 | RGB_IdentityLighting |
897 | [] | 897 | A_Identity |
898 | (ST_Map "textures/gothic_floor/largerblock3b") | 898 | TG_Base |
899 | True | 899 | [] |
900 | D_Lequal | 900 | (ST_Map "textures/gothic_floor/largerblock3b") |
901 | Nothing | 901 | True |
902 | False | 902 | D_Lequal |
903 | "Tex_2966885788" | 903 | Nothing |
904 | , StageAttrs | 904 | False |
905 | (Just (B_DstColor, B_Zero)) | 905 | "Tex_2966885788" |
906 | RGB_IdentityLighting | 906 | , StageAttrs |
907 | A_Identity | 907 | (Just (B_DstColor, B_Zero)) |
908 | TG_Lightmap | 908 | RGB_IdentityLighting |
909 | [] | 909 | A_Identity |
910 | ST_Lightmap | 910 | TG_Lightmap |
911 | True | 911 | [] |
912 | D_Lequal | 912 | ST_Lightmap |
913 | Nothing | 913 | True |
914 | False | 914 | D_Lequal |
915 | "Tex_3226210144"] | 915 | Nothing |
916 | False) | 916 | False |
917 | , ("textures/gothic_floor/metalbridge06" | 917 | "Tex_3226210144"] |
918 | , CommonAttrs | 918 | False) |
919 | () | 919 | , ("textures/gothic_floor/metalbridge06" |
920 | () | 920 | , CommonAttrs |
921 | False | 921 | () |
922 | (fromInt 0) | 922 | () |
923 | False | 923 | False |
924 | False | 924 | (fromInt 0) |
925 | CT_FrontSided | 925 | False |
926 | [] | 926 | False |
927 | False | 927 | CT_FrontSided |
928 | False | 928 | [] |
929 | [StageAttrs | 929 | False |
930 | Nothing | 930 | False |
931 | RGB_IdentityLighting | 931 | [StageAttrs |
932 | A_Identity | 932 | Nothing |
933 | TG_Base | 933 | RGB_IdentityLighting |
934 | [] | 934 | A_Identity |
935 | (ST_Map "textures/gothic_floor/metalbridge06") | 935 | TG_Base |
936 | True | 936 | [] |
937 | D_Lequal | 937 | (ST_Map "textures/gothic_floor/metalbridge06") |
938 | Nothing | 938 | True |
939 | False | 939 | D_Lequal |
940 | "Tex_1581337759" | 940 | Nothing |
941 | , StageAttrs | 941 | False |
942 | (Just (B_DstColor, B_Zero)) | 942 | "Tex_1581337759" |
943 | RGB_IdentityLighting | 943 | , StageAttrs |
944 | A_Identity | 944 | (Just (B_DstColor, B_Zero)) |
945 | TG_Lightmap | 945 | RGB_IdentityLighting |
946 | [] | 946 | A_Identity |
947 | ST_Lightmap | 947 | TG_Lightmap |
948 | True | 948 | [] |
949 | D_Lequal | 949 | ST_Lightmap |
950 | Nothing | 950 | True |
951 | False | 951 | D_Lequal |
952 | "Tex_3226210144"] | 952 | Nothing |
953 | False) | 953 | False |
954 | , ("textures/gothic_floor/metalbridge06broke" | 954 | "Tex_3226210144"] |
955 | , CommonAttrs | 955 | False) |
956 | () | 956 | , ("textures/gothic_floor/metalbridge06broke" |
957 | () | 957 | , CommonAttrs |
958 | False | 958 | () |
959 | (fromInt 0) | 959 | () |
960 | False | 960 | False |
961 | False | 961 | (fromInt 0) |
962 | CT_FrontSided | 962 | False |
963 | [] | 963 | False |
964 | False | 964 | CT_FrontSided |
965 | False | 965 | [] |
966 | [StageAttrs | 966 | False |
967 | Nothing | 967 | False |
968 | RGB_IdentityLighting | 968 | [StageAttrs |
969 | A_Identity | 969 | Nothing |
970 | TG_Base | 970 | RGB_IdentityLighting |
971 | [] | 971 | A_Identity |
972 | (ST_Map "textures/gothic_floor/metalbridge06broke") | 972 | TG_Base |
973 | True | 973 | [] |
974 | D_Lequal | 974 | (ST_Map "textures/gothic_floor/metalbridge06broke") |
975 | Nothing | 975 | True |
976 | False | 976 | D_Lequal |
977 | "Tex_3921745736" | 977 | Nothing |
978 | , StageAttrs | 978 | False |
979 | (Just (B_DstColor, B_Zero)) | 979 | "Tex_3921745736" |
980 | RGB_IdentityLighting | 980 | , StageAttrs |
981 | A_Identity | 981 | (Just (B_DstColor, B_Zero)) |
982 | TG_Lightmap | 982 | RGB_IdentityLighting |
983 | [] | 983 | A_Identity |
984 | ST_Lightmap | 984 | TG_Lightmap |
985 | True | 985 | [] |
986 | D_Lequal | 986 | ST_Lightmap |
987 | Nothing | 987 | True |
988 | False | 988 | D_Lequal |
989 | "Tex_3226210144"] | 989 | Nothing |
990 | False) | 990 | False |
991 | , ("textures/gothic_floor/xstairtop4" | 991 | "Tex_3226210144"] |
992 | , CommonAttrs | 992 | False) |
993 | () | 993 | , ("textures/gothic_floor/xstairtop4" |
994 | () | 994 | , CommonAttrs |
995 | False | 995 | () |
996 | (fromInt 0) | 996 | () |
997 | False | 997 | False |
998 | False | 998 | (fromInt 0) |
999 | CT_FrontSided | 999 | False |
1000 | [] | 1000 | False |
1001 | False | 1001 | CT_FrontSided |
1002 | False | 1002 | [] |
1003 | [StageAttrs | 1003 | False |
1004 | Nothing | 1004 | False |
1005 | RGB_IdentityLighting | 1005 | [StageAttrs |
1006 | A_Identity | 1006 | Nothing |
1007 | TG_Base | 1007 | RGB_IdentityLighting |
1008 | [] | 1008 | A_Identity |
1009 | (ST_Map "textures/gothic_floor/xstairtop4") | 1009 | TG_Base |
1010 | True | 1010 | [] |
1011 | D_Lequal | 1011 | (ST_Map "textures/gothic_floor/xstairtop4") |
1012 | Nothing | 1012 | True |
1013 | False | 1013 | D_Lequal |
1014 | "Tex_3836020895" | 1014 | Nothing |
1015 | , StageAttrs | 1015 | False |
1016 | (Just (B_DstColor, B_Zero)) | 1016 | "Tex_3836020895" |
1017 | RGB_IdentityLighting | 1017 | , StageAttrs |
1018 | A_Identity | 1018 | (Just (B_DstColor, B_Zero)) |
1019 | TG_Lightmap | 1019 | RGB_IdentityLighting |
1020 | [] | 1020 | A_Identity |
1021 | ST_Lightmap | 1021 | TG_Lightmap |
1022 | True | 1022 | [] |
1023 | D_Lequal | 1023 | ST_Lightmap |
1024 | Nothing | 1024 | True |
1025 | False | 1025 | D_Lequal |
1026 | "Tex_3226210144"] | 1026 | Nothing |
1027 | False) | 1027 | False |
1028 | , ("textures/gothic_floor/xstepborder3" | 1028 | "Tex_3226210144"] |
1029 | , CommonAttrs | 1029 | False) |
1030 | () | 1030 | , ("textures/gothic_floor/xstepborder3" |
1031 | () | 1031 | , CommonAttrs |
1032 | False | 1032 | () |
1033 | (fromInt 0) | 1033 | () |
1034 | False | 1034 | False |
1035 | False | 1035 | (fromInt 0) |
1036 | CT_FrontSided | 1036 | False |
1037 | [] | 1037 | False |
1038 | False | 1038 | CT_FrontSided |
1039 | False | 1039 | [] |
1040 | [StageAttrs | 1040 | False |
1041 | Nothing | 1041 | False |
1042 | RGB_IdentityLighting | 1042 | [StageAttrs |
1043 | A_Identity | 1043 | Nothing |
1044 | TG_Base | 1044 | RGB_IdentityLighting |
1045 | [] | 1045 | A_Identity |
1046 | (ST_Map "textures/gothic_floor/xstepborder3") | 1046 | TG_Base |
1047 | True | 1047 | [] |
1048 | D_Lequal | 1048 | (ST_Map "textures/gothic_floor/xstepborder3") |
1049 | Nothing | 1049 | True |
1050 | False | 1050 | D_Lequal |
1051 | "Tex_3269743316" | 1051 | Nothing |
1052 | , StageAttrs | 1052 | False |
1053 | (Just (B_DstColor, B_Zero)) | 1053 | "Tex_3269743316" |
1054 | RGB_IdentityLighting | 1054 | , StageAttrs |
1055 | A_Identity | 1055 | (Just (B_DstColor, B_Zero)) |
1056 | TG_Lightmap | 1056 | RGB_IdentityLighting |
1057 | [] | 1057 | A_Identity |
1058 | ST_Lightmap | 1058 | TG_Lightmap |
1059 | True | 1059 | [] |
1060 | D_Lequal | 1060 | ST_Lightmap |
1061 | Nothing | 1061 | True |
1062 | False | 1062 | D_Lequal |
1063 | "Tex_3226210144"] | 1063 | Nothing |
1064 | False) | 1064 | False |
1065 | , ("textures/gothic_trim/baseboard04" | 1065 | "Tex_3226210144"] |
1066 | , CommonAttrs | 1066 | False) |
1067 | () | 1067 | , ("textures/gothic_trim/baseboard04" |
1068 | () | 1068 | , CommonAttrs |
1069 | False | 1069 | () |
1070 | (fromInt 0) | 1070 | () |
1071 | False | 1071 | False |
1072 | False | 1072 | (fromInt 0) |
1073 | CT_FrontSided | 1073 | False |
1074 | [] | 1074 | False |
1075 | False | 1075 | CT_FrontSided |
1076 | False | 1076 | [] |
1077 | [StageAttrs | 1077 | False |
1078 | Nothing | 1078 | False |
1079 | RGB_IdentityLighting | 1079 | [StageAttrs |
1080 | A_Identity | 1080 | Nothing |
1081 | TG_Base | 1081 | RGB_IdentityLighting |
1082 | [] | 1082 | A_Identity |
1083 | (ST_Map "textures/gothic_trim/baseboard04") | 1083 | TG_Base |
1084 | True | 1084 | [] |
1085 | D_Lequal | 1085 | (ST_Map "textures/gothic_trim/baseboard04") |
1086 | Nothing | 1086 | True |
1087 | False | 1087 | D_Lequal |
1088 | "Tex_1002517541" | 1088 | Nothing |
1089 | , StageAttrs | 1089 | False |
1090 | (Just (B_DstColor, B_Zero)) | 1090 | "Tex_1002517541" |
1091 | RGB_IdentityLighting | 1091 | , StageAttrs |
1092 | A_Identity | 1092 | (Just (B_DstColor, B_Zero)) |
1093 | TG_Lightmap | 1093 | RGB_IdentityLighting |
1094 | [] | 1094 | A_Identity |
1095 | ST_Lightmap | 1095 | TG_Lightmap |
1096 | True | 1096 | [] |
1097 | D_Lequal | 1097 | ST_Lightmap |
1098 | Nothing | 1098 | True |
1099 | False | 1099 | D_Lequal |
1100 | "Tex_3226210144"] | 1100 | Nothing |
1101 | False) | 1101 | False |
1102 | , ("textures/gothic_trim/baseboard09_c3" | 1102 | "Tex_3226210144"] |
1103 | , CommonAttrs | 1103 | False) |
1104 | () | 1104 | , ("textures/gothic_trim/baseboard09_c3" |
1105 | () | 1105 | , CommonAttrs |
1106 | False | 1106 | () |
1107 | (fromInt 0) | 1107 | () |
1108 | False | 1108 | False |
1109 | False | 1109 | (fromInt 0) |
1110 | CT_FrontSided | 1110 | False |
1111 | [] | 1111 | False |
1112 | False | 1112 | CT_FrontSided |
1113 | False | 1113 | [] |
1114 | [StageAttrs | 1114 | False |
1115 | Nothing | 1115 | False |
1116 | RGB_IdentityLighting | 1116 | [StageAttrs |
1117 | A_Identity | 1117 | Nothing |
1118 | TG_Base | 1118 | RGB_IdentityLighting |
1119 | [] | 1119 | A_Identity |
1120 | (ST_Map "textures/gothic_trim/baseboard09_c3") | 1120 | TG_Base |
1121 | True | 1121 | [] |
1122 | D_Lequal | 1122 | (ST_Map "textures/gothic_trim/baseboard09_c3") |
1123 | Nothing | 1123 | True |
1124 | False | 1124 | D_Lequal |
1125 | "Tex_2289735512" | 1125 | Nothing |
1126 | , StageAttrs | 1126 | False |
1127 | (Just (B_DstColor, B_Zero)) | 1127 | "Tex_2289735512" |
1128 | RGB_IdentityLighting | 1128 | , StageAttrs |
1129 | A_Identity | 1129 | (Just (B_DstColor, B_Zero)) |
1130 | TG_Lightmap | 1130 | RGB_IdentityLighting |
1131 | [] | 1131 | A_Identity |
1132 | ST_Lightmap | 1132 | TG_Lightmap |
1133 | True | 1133 | [] |
1134 | D_Lequal | 1134 | ST_Lightmap |
1135 | Nothing | 1135 | True |
1136 | False | 1136 | D_Lequal |
1137 | "Tex_3226210144"] | 1137 | Nothing |
1138 | False) | 1138 | False |
1139 | , ("textures/gothic_trim/baseboard09_e" | 1139 | "Tex_3226210144"] |
1140 | , CommonAttrs | 1140 | False) |
1141 | () | 1141 | , ("textures/gothic_trim/baseboard09_e" |
1142 | () | 1142 | , CommonAttrs |
1143 | False | 1143 | () |
1144 | (fromInt 0) | 1144 | () |
1145 | False | 1145 | False |
1146 | False | 1146 | (fromInt 0) |
1147 | CT_FrontSided | 1147 | False |
1148 | [] | 1148 | False |
1149 | False | 1149 | CT_FrontSided |
1150 | False | 1150 | [] |
1151 | [StageAttrs | 1151 | False |
1152 | Nothing | 1152 | False |
1153 | RGB_IdentityLighting | 1153 | [StageAttrs |
1154 | A_Identity | 1154 | Nothing |
1155 | TG_Base | 1155 | RGB_IdentityLighting |
1156 | [] | 1156 | A_Identity |
1157 | (ST_Map "textures/gothic_trim/baseboard09_e") | 1157 | TG_Base |
1158 | True | 1158 | [] |
1159 | D_Lequal | 1159 | (ST_Map "textures/gothic_trim/baseboard09_e") |
1160 | Nothing | 1160 | True |
1161 | False | 1161 | D_Lequal |
1162 | "Tex_2367525081" | 1162 | Nothing |
1163 | , StageAttrs | 1163 | False |
1164 | (Just (B_DstColor, B_Zero)) | 1164 | "Tex_2367525081" |
1165 | RGB_IdentityLighting | 1165 | , StageAttrs |
1166 | A_Identity | 1166 | (Just (B_DstColor, B_Zero)) |
1167 | TG_Lightmap | 1167 | RGB_IdentityLighting |
1168 | [] | 1168 | A_Identity |
1169 | ST_Lightmap | 1169 | TG_Lightmap |
1170 | True | 1170 | [] |
1171 | D_Lequal | 1171 | ST_Lightmap |
1172 | Nothing | 1172 | True |
1173 | False | 1173 | D_Lequal |
1174 | "Tex_3226210144"] | 1174 | Nothing |
1175 | False) | 1175 | False |
1176 | , ("textures/gothic_trim/baseboard09_e2" | 1176 | "Tex_3226210144"] |
1177 | , CommonAttrs | 1177 | False) |
1178 | () | 1178 | , ("textures/gothic_trim/baseboard09_e2" |
1179 | () | 1179 | , CommonAttrs |
1180 | False | 1180 | () |
1181 | (fromInt 0) | 1181 | () |
1182 | False | 1182 | False |
1183 | False | 1183 | (fromInt 0) |
1184 | CT_FrontSided | 1184 | False |
1185 | [] | 1185 | False |
1186 | False | 1186 | CT_FrontSided |
1187 | False | 1187 | [] |
1188 | [StageAttrs | 1188 | False |
1189 | Nothing | 1189 | False |
1190 | RGB_IdentityLighting | 1190 | [StageAttrs |
1191 | A_Identity | 1191 | Nothing |
1192 | TG_Base | 1192 | RGB_IdentityLighting |
1193 | [] | 1193 | A_Identity |
1194 | (ST_Map "textures/gothic_trim/baseboard09_e2") | 1194 | TG_Base |
1195 | True | 1195 | [] |
1196 | D_Lequal | 1196 | (ST_Map "textures/gothic_trim/baseboard09_e2") |
1197 | Nothing | 1197 | True |
1198 | False | 1198 | D_Lequal |
1199 | "Tex_3694494180" | 1199 | Nothing |
1200 | , StageAttrs | 1200 | False |
1201 | (Just (B_DstColor, B_Zero)) | 1201 | "Tex_3694494180" |
1202 | RGB_IdentityLighting | 1202 | , StageAttrs |
1203 | A_Identity | 1203 | (Just (B_DstColor, B_Zero)) |
1204 | TG_Lightmap | 1204 | RGB_IdentityLighting |
1205 | [] | 1205 | A_Identity |
1206 | ST_Lightmap | 1206 | TG_Lightmap |
1207 | True | 1207 | [] |
1208 | D_Lequal | 1208 | ST_Lightmap |
1209 | Nothing | 1209 | True |
1210 | False | 1210 | D_Lequal |
1211 | "Tex_3226210144"] | 1211 | Nothing |
1212 | False) | 1212 | False |
1213 | , ("textures/gothic_trim/baseboard09_l2" | 1213 | "Tex_3226210144"] |
1214 | , CommonAttrs | 1214 | False) |
1215 | () | 1215 | , ("textures/gothic_trim/baseboard09_l2" |
1216 | () | 1216 | , CommonAttrs |
1217 | False | 1217 | () |
1218 | (fromInt 0) | 1218 | () |
1219 | False | 1219 | False |
1220 | False | 1220 | (fromInt 0) |
1221 | CT_FrontSided | 1221 | False |
1222 | [] | 1222 | False |
1223 | False | 1223 | CT_FrontSided |
1224 | False | 1224 | [] |
1225 | [StageAttrs | 1225 | False |
1226 | Nothing | 1226 | False |
1227 | RGB_IdentityLighting | 1227 | [StageAttrs |
1228 | A_Identity | 1228 | Nothing |
1229 | TG_Base | 1229 | RGB_IdentityLighting |
1230 | [] | 1230 | A_Identity |
1231 | (ST_Map "textures/gothic_trim/baseboard09_l2") | 1231 | TG_Base |
1232 | True | 1232 | [] |
1233 | D_Lequal | 1233 | (ST_Map "textures/gothic_trim/baseboard09_l2") |
1234 | Nothing | 1234 | True |
1235 | False | 1235 | D_Lequal |
1236 | "Tex_3202786139" | 1236 | Nothing |
1237 | , StageAttrs | 1237 | False |
1238 | (Just (B_DstColor, B_Zero)) | 1238 | "Tex_3202786139" |
1239 | RGB_IdentityLighting | 1239 | , StageAttrs |
1240 | A_Identity | 1240 | (Just (B_DstColor, B_Zero)) |
1241 | TG_Lightmap | 1241 | RGB_IdentityLighting |
1242 | [] | 1242 | A_Identity |
1243 | ST_Lightmap | 1243 | TG_Lightmap |
1244 | True | 1244 | [] |
1245 | D_Lequal | 1245 | ST_Lightmap |
1246 | Nothing | 1246 | True |
1247 | False | 1247 | D_Lequal |
1248 | "Tex_3226210144"] | 1248 | Nothing |
1249 | False) | 1249 | False |
1250 | , ("textures/gothic_trim/baseboard09_o3" | 1250 | "Tex_3226210144"] |
1251 | , CommonAttrs | 1251 | False) |
1252 | () | 1252 | , ("textures/gothic_trim/baseboard09_o3" |
1253 | () | 1253 | , CommonAttrs |
1254 | False | 1254 | () |
1255 | (fromInt 0) | 1255 | () |
1256 | False | 1256 | False |
1257 | False | 1257 | (fromInt 0) |
1258 | CT_FrontSided | 1258 | False |
1259 | [] | 1259 | False |
1260 | False | 1260 | CT_FrontSided |
1261 | False | 1261 | [] |
1262 | [StageAttrs | 1262 | False |
1263 | Nothing | 1263 | False |
1264 | RGB_IdentityLighting | 1264 | [StageAttrs |
1265 | A_Identity | 1265 | Nothing |
1266 | TG_Base | 1266 | RGB_IdentityLighting |
1267 | [] | 1267 | A_Identity |
1268 | (ST_Map "textures/gothic_trim/baseboard09_o3") | 1268 | TG_Base |
1269 | True | 1269 | [] |
1270 | D_Lequal | 1270 | (ST_Map "textures/gothic_trim/baseboard09_o3") |
1271 | Nothing | 1271 | True |
1272 | False | 1272 | D_Lequal |
1273 | "Tex_2512757607" | 1273 | Nothing |
1274 | , StageAttrs | 1274 | False |
1275 | (Just (B_DstColor, B_Zero)) | 1275 | "Tex_2512757607" |
1276 | RGB_IdentityLighting | 1276 | , StageAttrs |
1277 | A_Identity | 1277 | (Just (B_DstColor, B_Zero)) |
1278 | TG_Lightmap | 1278 | RGB_IdentityLighting |
1279 | [] | 1279 | A_Identity |
1280 | ST_Lightmap | 1280 | TG_Lightmap |
1281 | True | 1281 | [] |
1282 | D_Lequal | 1282 | ST_Lightmap |
1283 | Nothing | 1283 | True |
1284 | False | 1284 | D_Lequal |
1285 | "Tex_3226210144"] | 1285 | Nothing |
1286 | False) | 1286 | False |
1287 | , ("textures/gothic_trim/km_arena1tower4" | 1287 | "Tex_3226210144"] |
1288 | , CommonAttrs | 1288 | False) |
1289 | () | 1289 | , ("textures/gothic_trim/km_arena1tower4" |
1290 | () | 1290 | , CommonAttrs |
1291 | False | 1291 | () |
1292 | (fromInt 0) | 1292 | () |
1293 | False | 1293 | False |
1294 | False | 1294 | (fromInt 0) |
1295 | CT_FrontSided | 1295 | False |
1296 | [] | 1296 | False |
1297 | False | 1297 | CT_FrontSided |
1298 | False | 1298 | [] |
1299 | [StageAttrs | 1299 | False |
1300 | Nothing | 1300 | False |
1301 | RGB_IdentityLighting | 1301 | [StageAttrs |
1302 | A_Identity | 1302 | Nothing |
1303 | TG_Base | 1303 | RGB_IdentityLighting |
1304 | [] | 1304 | A_Identity |
1305 | (ST_Map "textures/gothic_trim/km_arena1tower4") | 1305 | TG_Base |
1306 | True | 1306 | [] |
1307 | D_Lequal | 1307 | (ST_Map "textures/gothic_trim/km_arena1tower4") |
1308 | Nothing | 1308 | True |
1309 | False | 1309 | D_Lequal |
1310 | "Tex_3479185666" | 1310 | Nothing |
1311 | , StageAttrs | 1311 | False |
1312 | (Just (B_DstColor, B_Zero)) | 1312 | "Tex_3479185666" |
1313 | RGB_IdentityLighting | 1313 | , StageAttrs |
1314 | A_Identity | 1314 | (Just (B_DstColor, B_Zero)) |
1315 | TG_Lightmap | 1315 | RGB_IdentityLighting |
1316 | [] | 1316 | A_Identity |
1317 | ST_Lightmap | 1317 | TG_Lightmap |
1318 | True | 1318 | [] |
1319 | D_Lequal | 1319 | ST_Lightmap |
1320 | Nothing | 1320 | True |
1321 | False | 1321 | D_Lequal |
1322 | "Tex_3226210144"] | 1322 | Nothing |
1323 | False) | 1323 | False |
1324 | , ("textures/gothic_trim/km_arena1tower4_a" | 1324 | "Tex_3226210144"] |
1325 | , CommonAttrs | 1325 | False) |
1326 | () | 1326 | , ("textures/gothic_trim/km_arena1tower4_a" |
1327 | () | 1327 | , CommonAttrs |
1328 | False | 1328 | () |
1329 | (fromInt 0) | 1329 | () |
1330 | False | 1330 | False |
1331 | False | 1331 | (fromInt 0) |
1332 | CT_FrontSided | 1332 | False |
1333 | [] | 1333 | False |
1334 | False | 1334 | CT_FrontSided |
1335 | False | 1335 | [] |
1336 | [StageAttrs | 1336 | False |
1337 | Nothing | 1337 | False |
1338 | RGB_IdentityLighting | 1338 | [StageAttrs |
1339 | A_Identity | 1339 | Nothing |
1340 | TG_Base | 1340 | RGB_IdentityLighting |
1341 | [] | 1341 | A_Identity |
1342 | (ST_Map "textures/gothic_trim/km_arena1tower4_a") | 1342 | TG_Base |
1343 | True | 1343 | [] |
1344 | D_Lequal | 1344 | (ST_Map "textures/gothic_trim/km_arena1tower4_a") |
1345 | Nothing | 1345 | True |
1346 | False | 1346 | D_Lequal |
1347 | "Tex_3012001075" | 1347 | Nothing |
1348 | , StageAttrs | 1348 | False |
1349 | (Just (B_DstColor, B_Zero)) | 1349 | "Tex_3012001075" |
1350 | RGB_IdentityLighting | 1350 | , StageAttrs |
1351 | A_Identity | 1351 | (Just (B_DstColor, B_Zero)) |
1352 | TG_Lightmap | 1352 | RGB_IdentityLighting |
1353 | [] | 1353 | A_Identity |
1354 | ST_Lightmap | 1354 | TG_Lightmap |
1355 | True | 1355 | [] |
1356 | D_Lequal | 1356 | ST_Lightmap |
1357 | Nothing | 1357 | True |
1358 | False | 1358 | D_Lequal |
1359 | "Tex_3226210144"] | 1359 | Nothing |
1360 | False) | 1360 | False |
1361 | , ("textures/gothic_trim/metaldemonkillblock" | 1361 | "Tex_3226210144"] |
1362 | , CommonAttrs | 1362 | False) |
1363 | () | 1363 | , ("textures/gothic_trim/metaldemonkillblock" |
1364 | () | 1364 | , CommonAttrs |
1365 | False | 1365 | () |
1366 | (fromInt 0) | 1366 | () |
1367 | False | 1367 | False |
1368 | False | 1368 | (fromInt 0) |
1369 | CT_FrontSided | 1369 | False |
1370 | [] | 1370 | False |
1371 | False | 1371 | CT_FrontSided |
1372 | False | 1372 | [] |
1373 | [StageAttrs | 1373 | False |
1374 | Nothing | 1374 | False |
1375 | RGB_IdentityLighting | 1375 | [StageAttrs |
1376 | A_Identity | 1376 | Nothing |
1377 | TG_Base | 1377 | RGB_IdentityLighting |
1378 | [] | 1378 | A_Identity |
1379 | (ST_Map "textures/gothic_trim/metaldemonkillblock") | 1379 | TG_Base |
1380 | True | 1380 | [] |
1381 | D_Lequal | 1381 | (ST_Map "textures/gothic_trim/metaldemonkillblock") |
1382 | Nothing | 1382 | True |
1383 | False | 1383 | D_Lequal |
1384 | "Tex_1062467595" | 1384 | Nothing |
1385 | , StageAttrs | 1385 | False |
1386 | (Just (B_DstColor, B_Zero)) | 1386 | "Tex_1062467595" |
1387 | RGB_IdentityLighting | 1387 | , StageAttrs |
1388 | A_Identity | 1388 | (Just (B_DstColor, B_Zero)) |
1389 | TG_Lightmap | 1389 | RGB_IdentityLighting |
1390 | [] | 1390 | A_Identity |
1391 | ST_Lightmap | 1391 | TG_Lightmap |
1392 | True | 1392 | [] |
1393 | D_Lequal | 1393 | ST_Lightmap |
1394 | Nothing | 1394 | True |
1395 | False | 1395 | D_Lequal |
1396 | "Tex_3226210144"] | 1396 | Nothing |
1397 | False) | 1397 | False |
1398 | , ("textures/gothic_trim/metalsupport4b" | 1398 | "Tex_3226210144"] |
1399 | , CommonAttrs | 1399 | False) |
1400 | () | 1400 | , ("textures/gothic_trim/metalsupport4b" |
1401 | () | 1401 | , CommonAttrs |
1402 | False | 1402 | () |
1403 | (fromInt 0) | 1403 | () |
1404 | False | 1404 | False |
1405 | False | 1405 | (fromInt 0) |
1406 | CT_FrontSided | 1406 | False |
1407 | [] | 1407 | False |
1408 | False | 1408 | CT_FrontSided |
1409 | False | 1409 | [] |
1410 | [StageAttrs | 1410 | False |
1411 | Nothing | 1411 | False |
1412 | RGB_IdentityLighting | 1412 | [StageAttrs |
1413 | A_Identity | 1413 | Nothing |
1414 | TG_Base | 1414 | RGB_IdentityLighting |
1415 | [] | 1415 | A_Identity |
1416 | (ST_Map "textures/gothic_trim/metalsupport4b") | 1416 | TG_Base |
1417 | True | 1417 | [] |
1418 | D_Lequal | 1418 | (ST_Map "textures/gothic_trim/metalsupport4b") |
1419 | Nothing | 1419 | True |
1420 | False | 1420 | D_Lequal |
1421 | "Tex_3593923076" | 1421 | Nothing |
1422 | , StageAttrs | 1422 | False |
1423 | (Just (B_DstColor, B_Zero)) | 1423 | "Tex_3593923076" |
1424 | RGB_IdentityLighting | 1424 | , StageAttrs |
1425 | A_Identity | 1425 | (Just (B_DstColor, B_Zero)) |
1426 | TG_Lightmap | 1426 | RGB_IdentityLighting |
1427 | [] | 1427 | A_Identity |
1428 | ST_Lightmap | 1428 | TG_Lightmap |
1429 | True | 1429 | [] |
1430 | D_Lequal | 1430 | ST_Lightmap |
1431 | Nothing | 1431 | True |
1432 | False | 1432 | D_Lequal |
1433 | "Tex_3226210144"] | 1433 | Nothing |
1434 | False) | 1434 | False |
1435 | , ("textures/gothic_trim/metalsupsolid" | 1435 | "Tex_3226210144"] |
1436 | , CommonAttrs | 1436 | False) |
1437 | () | 1437 | , ("textures/gothic_trim/metalsupsolid" |
1438 | () | 1438 | , CommonAttrs |
1439 | False | 1439 | () |
1440 | (fromInt 0) | 1440 | () |
1441 | False | 1441 | False |
1442 | False | 1442 | (fromInt 0) |
1443 | CT_FrontSided | 1443 | False |
1444 | [] | 1444 | False |
1445 | False | 1445 | CT_FrontSided |
1446 | False | 1446 | [] |
1447 | [StageAttrs | 1447 | False |
1448 | Nothing | 1448 | False |
1449 | RGB_IdentityLighting | 1449 | [StageAttrs |
1450 | A_Identity | 1450 | Nothing |
1451 | TG_Base | 1451 | RGB_IdentityLighting |
1452 | [] | 1452 | A_Identity |
1453 | (ST_Map "textures/gothic_trim/metalsupsolid") | 1453 | TG_Base |
1454 | True | 1454 | [] |
1455 | D_Lequal | 1455 | (ST_Map "textures/gothic_trim/metalsupsolid") |
1456 | Nothing | 1456 | True |
1457 | False | 1457 | D_Lequal |
1458 | "Tex_2893650486" | 1458 | Nothing |
1459 | , StageAttrs | 1459 | False |
1460 | (Just (B_DstColor, B_Zero)) | 1460 | "Tex_2893650486" |
1461 | RGB_IdentityLighting | 1461 | , StageAttrs |
1462 | A_Identity | 1462 | (Just (B_DstColor, B_Zero)) |
1463 | TG_Lightmap | 1463 | RGB_IdentityLighting |
1464 | [] | 1464 | A_Identity |
1465 | ST_Lightmap | 1465 | TG_Lightmap |
1466 | True | 1466 | [] |
1467 | D_Lequal | 1467 | ST_Lightmap |
1468 | Nothing | 1468 | True |
1469 | False | 1469 | D_Lequal |
1470 | "Tex_3226210144"] | 1470 | Nothing |
1471 | False) | 1471 | False |
1472 | , ("textures/gothic_trim/pitted_rust" | 1472 | "Tex_3226210144"] |
1473 | , CommonAttrs | 1473 | False) |
1474 | () | 1474 | , ("textures/gothic_trim/pitted_rust" |
1475 | () | 1475 | , CommonAttrs |
1476 | False | 1476 | () |
1477 | (fromInt 0) | 1477 | () |
1478 | False | 1478 | False |
1479 | False | 1479 | (fromInt 0) |
1480 | CT_FrontSided | 1480 | False |
1481 | [] | 1481 | False |
1482 | False | 1482 | CT_FrontSided |
1483 | False | 1483 | [] |
1484 | [StageAttrs | 1484 | False |
1485 | Nothing | 1485 | False |
1486 | RGB_IdentityLighting | 1486 | [StageAttrs |
1487 | A_Identity | 1487 | Nothing |
1488 | TG_Base | 1488 | RGB_IdentityLighting |
1489 | [] | 1489 | A_Identity |
1490 | (ST_Map "textures/gothic_trim/pitted_rust") | 1490 | TG_Base |
1491 | True | 1491 | [] |
1492 | D_Lequal | 1492 | (ST_Map "textures/gothic_trim/pitted_rust") |
1493 | Nothing | 1493 | True |
1494 | False | 1494 | D_Lequal |
1495 | "Tex_1243894392" | 1495 | Nothing |
1496 | , StageAttrs | 1496 | False |
1497 | (Just (B_DstColor, B_Zero)) | 1497 | "Tex_1243894392" |
1498 | RGB_IdentityLighting | 1498 | , StageAttrs |
1499 | A_Identity | 1499 | (Just (B_DstColor, B_Zero)) |
1500 | TG_Lightmap | 1500 | RGB_IdentityLighting |
1501 | [] | 1501 | A_Identity |
1502 | ST_Lightmap | 1502 | TG_Lightmap |
1503 | True | 1503 | [] |
1504 | D_Lequal | 1504 | ST_Lightmap |
1505 | Nothing | 1505 | True |
1506 | False | 1506 | D_Lequal |
1507 | "Tex_3226210144"] | 1507 | Nothing |
1508 | False) | 1508 | False |
1509 | , ("textures/gothic_trim/pitted_rust2" | 1509 | "Tex_3226210144"] |
1510 | , CommonAttrs | 1510 | False) |
1511 | () | 1511 | , ("textures/gothic_trim/pitted_rust2" |
1512 | () | 1512 | , CommonAttrs |
1513 | False | 1513 | () |
1514 | (fromInt 0) | 1514 | () |
1515 | False | 1515 | False |
1516 | False | 1516 | (fromInt 0) |
1517 | CT_FrontSided | 1517 | False |
1518 | [] | 1518 | False |
1519 | False | 1519 | CT_FrontSided |
1520 | False | 1520 | [] |
1521 | [StageAttrs | 1521 | False |
1522 | Nothing | 1522 | False |
1523 | RGB_IdentityLighting | 1523 | [StageAttrs |
1524 | A_Identity | 1524 | Nothing |
1525 | TG_Base | 1525 | RGB_IdentityLighting |
1526 | [] | 1526 | A_Identity |
1527 | (ST_Map "textures/gothic_trim/pitted_rust2") | 1527 | TG_Base |
1528 | True | 1528 | [] |
1529 | D_Lequal | 1529 | (ST_Map "textures/gothic_trim/pitted_rust2") |
1530 | Nothing | 1530 | True |
1531 | False | 1531 | D_Lequal |
1532 | "Tex_2099456856" | 1532 | Nothing |
1533 | , StageAttrs | 1533 | False |
1534 | (Just (B_DstColor, B_Zero)) | 1534 | "Tex_2099456856" |
1535 | RGB_IdentityLighting | 1535 | , StageAttrs |
1536 | A_Identity | 1536 | (Just (B_DstColor, B_Zero)) |
1537 | TG_Lightmap | 1537 | RGB_IdentityLighting |
1538 | [] | 1538 | A_Identity |
1539 | ST_Lightmap | 1539 | TG_Lightmap |
1540 | True | 1540 | [] |
1541 | D_Lequal | 1541 | ST_Lightmap |
1542 | Nothing | 1542 | True |
1543 | False | 1543 | D_Lequal |
1544 | "Tex_3226210144"] | 1544 | Nothing |
1545 | False) | 1545 | False |
1546 | , ("textures/gothic_trim/pitted_rust2_trans" | 1546 | "Tex_3226210144"] |
1547 | , CommonAttrs | 1547 | False) |
1548 | () | 1548 | , ("textures/gothic_trim/pitted_rust2_trans" |
1549 | () | 1549 | , CommonAttrs |
1550 | False | 1550 | () |
1551 | (fromInt 3) | 1551 | () |
1552 | False | 1552 | False |
1553 | False | 1553 | (fromInt 3) |
1554 | CT_FrontSided | 1554 | False |
1555 | [] | 1555 | False |
1556 | False | 1556 | CT_FrontSided |
1557 | False | 1557 | [] |
1558 | [StageAttrs | 1558 | False |
1559 | Nothing | 1559 | False |
1560 | RGB_Identity | 1560 | [StageAttrs |
1561 | A_Identity | 1561 | Nothing |
1562 | TG_Lightmap | 1562 | RGB_Identity |
1563 | [] | 1563 | A_Identity |
1564 | ST_Lightmap | 1564 | TG_Lightmap |
1565 | True | 1565 | [] |
1566 | D_Lequal | 1566 | ST_Lightmap |
1567 | Nothing | 1567 | True |
1568 | False | 1568 | D_Lequal |
1569 | "Tex_511571587" | 1569 | Nothing |
1570 | , StageAttrs | 1570 | False |
1571 | (Just (B_DstColor, B_Zero)) | 1571 | "Tex_511571587" |
1572 | RGB_Identity | 1572 | , StageAttrs |
1573 | A_Identity | 1573 | (Just (B_DstColor, B_Zero)) |
1574 | TG_Base | 1574 | RGB_Identity |
1575 | [] | 1575 | A_Identity |
1576 | (ST_Map "textures/gothic_trim/pitted_rust2.tga") | 1576 | TG_Base |
1577 | False | 1577 | [] |
1578 | D_Lequal | 1578 | (ST_Map "textures/gothic_trim/pitted_rust2.tga") |
1579 | Nothing | 1579 | False |
1580 | False | 1580 | D_Lequal |
1581 | "Tex_1910997598"] | 1581 | Nothing |
1582 | False) | 1582 | False |
1583 | , ("textures/gothic_trim/pitted_rust3" | 1583 | "Tex_1910997598"] |
1584 | , CommonAttrs | 1584 | False) |
1585 | () | 1585 | , ("textures/gothic_trim/pitted_rust3" |
1586 | () | 1586 | , CommonAttrs |
1587 | False | 1587 | () |
1588 | (fromInt 0) | 1588 | () |
1589 | False | 1589 | False |
1590 | False | 1590 | (fromInt 0) |
1591 | CT_FrontSided | 1591 | False |
1592 | [] | 1592 | False |
1593 | False | 1593 | CT_FrontSided |
1594 | False | 1594 | [] |
1595 | [StageAttrs | 1595 | False |
1596 | Nothing | 1596 | False |
1597 | RGB_IdentityLighting | 1597 | [StageAttrs |
1598 | A_Identity | 1598 | Nothing |
1599 | TG_Base | 1599 | RGB_IdentityLighting |
1600 | [] | 1600 | A_Identity |
1601 | (ST_Map "textures/gothic_trim/pitted_rust3") | 1601 | TG_Base |
1602 | True | 1602 | [] |
1603 | D_Lequal | 1603 | (ST_Map "textures/gothic_trim/pitted_rust3") |
1604 | Nothing | 1604 | True |
1605 | False | 1605 | D_Lequal |
1606 | "Tex_3389727963" | 1606 | Nothing |
1607 | , StageAttrs | 1607 | False |
1608 | (Just (B_DstColor, B_Zero)) | 1608 | "Tex_3389727963" |
1609 | RGB_IdentityLighting | 1609 | , StageAttrs |
1610 | A_Identity | 1610 | (Just (B_DstColor, B_Zero)) |
1611 | TG_Lightmap | 1611 | RGB_IdentityLighting |
1612 | [] | 1612 | A_Identity |
1613 | ST_Lightmap | 1613 | TG_Lightmap |
1614 | True | 1614 | [] |
1615 | D_Lequal | 1615 | ST_Lightmap |
1616 | Nothing | 1616 | True |
1617 | False | 1617 | D_Lequal |
1618 | "Tex_3226210144"] | 1618 | Nothing |
1619 | False) | 1619 | False |
1620 | , ("textures/gothic_trim/skullsvertgray02b" | 1620 | "Tex_3226210144"] |
1621 | , CommonAttrs | 1621 | False) |
1622 | () | 1622 | , ("textures/gothic_trim/skullsvertgray02b" |
1623 | () | 1623 | , CommonAttrs |
1624 | False | 1624 | () |
1625 | (fromInt 0) | 1625 | () |
1626 | False | 1626 | False |
1627 | False | 1627 | (fromInt 0) |
1628 | CT_FrontSided | 1628 | False |
1629 | [] | 1629 | False |
1630 | False | 1630 | CT_FrontSided |
1631 | False | 1631 | [] |
1632 | [StageAttrs | 1632 | False |
1633 | Nothing | 1633 | False |
1634 | RGB_IdentityLighting | 1634 | [StageAttrs |
1635 | A_Identity | 1635 | Nothing |
1636 | TG_Base | 1636 | RGB_IdentityLighting |
1637 | [] | 1637 | A_Identity |
1638 | (ST_Map "textures/gothic_trim/skullsvertgray02b") | 1638 | TG_Base |
1639 | True | 1639 | [] |
1640 | D_Lequal | 1640 | (ST_Map "textures/gothic_trim/skullsvertgray02b") |
1641 | Nothing | 1641 | True |
1642 | False | 1642 | D_Lequal |
1643 | "Tex_2634868983" | 1643 | Nothing |
1644 | , StageAttrs | 1644 | False |
1645 | (Just (B_DstColor, B_Zero)) | 1645 | "Tex_2634868983" |
1646 | RGB_IdentityLighting | 1646 | , StageAttrs |
1647 | A_Identity | 1647 | (Just (B_DstColor, B_Zero)) |
1648 | TG_Lightmap | 1648 | RGB_IdentityLighting |
1649 | [] | 1649 | A_Identity |
1650 | ST_Lightmap | 1650 | TG_Lightmap |
1651 | True | 1651 | [] |
1652 | D_Lequal | 1652 | ST_Lightmap |
1653 | Nothing | 1653 | True |
1654 | False | 1654 | D_Lequal |
1655 | "Tex_3226210144"] | 1655 | Nothing |
1656 | False) | 1656 | False |
1657 | , ("textures/gothic_wall/iron01_e" | 1657 | "Tex_3226210144"] |
1658 | , CommonAttrs | 1658 | False) |
1659 | () | 1659 | , ("textures/gothic_wall/iron01_e" |
1660 | () | 1660 | , CommonAttrs |
1661 | False | 1661 | () |
1662 | (fromInt 0) | 1662 | () |
1663 | False | 1663 | False |
1664 | False | 1664 | (fromInt 0) |
1665 | CT_FrontSided | 1665 | False |
1666 | [] | 1666 | False |
1667 | False | 1667 | CT_FrontSided |
1668 | False | 1668 | [] |
1669 | [StageAttrs | 1669 | False |
1670 | Nothing | 1670 | False |
1671 | RGB_IdentityLighting | 1671 | [StageAttrs |
1672 | A_Identity | 1672 | Nothing |
1673 | TG_Base | 1673 | RGB_IdentityLighting |
1674 | [] | 1674 | A_Identity |
1675 | (ST_Map "textures/gothic_wall/iron01_e") | 1675 | TG_Base |
1676 | True | 1676 | [] |
1677 | D_Lequal | 1677 | (ST_Map "textures/gothic_wall/iron01_e") |
1678 | Nothing | 1678 | True |
1679 | False | 1679 | D_Lequal |
1680 | "Tex_2432583247" | 1680 | Nothing |
1681 | , StageAttrs | 1681 | False |
1682 | (Just (B_DstColor, B_Zero)) | 1682 | "Tex_2432583247" |
1683 | RGB_IdentityLighting | 1683 | , StageAttrs |
1684 | A_Identity | 1684 | (Just (B_DstColor, B_Zero)) |
1685 | TG_Lightmap | 1685 | RGB_IdentityLighting |
1686 | [] | 1686 | A_Identity |
1687 | ST_Lightmap | 1687 | TG_Lightmap |
1688 | True | 1688 | [] |
1689 | D_Lequal | 1689 | ST_Lightmap |
1690 | Nothing | 1690 | True |
1691 | False | 1691 | D_Lequal |
1692 | "Tex_3226210144"] | 1692 | Nothing |
1693 | False) | 1693 | False |
1694 | , ("textures/gothic_wall/iron01_ntech3" | 1694 | "Tex_3226210144"] |
1695 | , CommonAttrs | 1695 | False) |
1696 | () | 1696 | , ("textures/gothic_wall/iron01_ntech3" |
1697 | () | 1697 | , CommonAttrs |
1698 | False | 1698 | () |
1699 | (fromInt 0) | 1699 | () |
1700 | False | 1700 | False |
1701 | False | 1701 | (fromInt 0) |
1702 | CT_FrontSided | 1702 | False |
1703 | [] | 1703 | False |
1704 | False | 1704 | CT_FrontSided |
1705 | False | 1705 | [] |
1706 | [StageAttrs | 1706 | False |
1707 | Nothing | 1707 | False |
1708 | RGB_IdentityLighting | 1708 | [StageAttrs |
1709 | A_Identity | 1709 | Nothing |
1710 | TG_Base | 1710 | RGB_IdentityLighting |
1711 | [] | 1711 | A_Identity |
1712 | (ST_Map "textures/gothic_wall/iron01_ntech3") | 1712 | TG_Base |
1713 | True | 1713 | [] |
1714 | D_Lequal | 1714 | (ST_Map "textures/gothic_wall/iron01_ntech3") |
1715 | Nothing | 1715 | True |
1716 | False | 1716 | D_Lequal |
1717 | "Tex_442868841" | 1717 | Nothing |
1718 | , StageAttrs | 1718 | False |
1719 | (Just (B_DstColor, B_Zero)) | 1719 | "Tex_442868841" |
1720 | RGB_IdentityLighting | 1720 | , StageAttrs |
1721 | A_Identity | 1721 | (Just (B_DstColor, B_Zero)) |
1722 | TG_Lightmap | 1722 | RGB_IdentityLighting |
1723 | [] | 1723 | A_Identity |
1724 | ST_Lightmap | 1724 | TG_Lightmap |
1725 | True | 1725 | [] |
1726 | D_Lequal | 1726 | ST_Lightmap |
1727 | Nothing | 1727 | True |
1728 | False | 1728 | D_Lequal |
1729 | "Tex_3226210144"] | 1729 | Nothing |
1730 | False) | 1730 | False |
1731 | , ("textures/gothic_wall/skull4" | 1731 | "Tex_3226210144"] |
1732 | , CommonAttrs | 1732 | False) |
1733 | () | 1733 | , ("textures/gothic_wall/skull4" |
1734 | () | 1734 | , CommonAttrs |
1735 | False | 1735 | () |
1736 | (fromInt 0) | 1736 | () |
1737 | False | 1737 | False |
1738 | False | 1738 | (fromInt 0) |
1739 | CT_FrontSided | 1739 | False |
1740 | [] | 1740 | False |
1741 | False | 1741 | CT_FrontSided |
1742 | False | 1742 | [] |
1743 | [StageAttrs | 1743 | False |
1744 | Nothing | 1744 | False |
1745 | RGB_IdentityLighting | 1745 | [StageAttrs |
1746 | A_Identity | 1746 | Nothing |
1747 | TG_Base | 1747 | RGB_IdentityLighting |
1748 | [] | 1748 | A_Identity |
1749 | (ST_Map "textures/gothic_wall/skull4") | 1749 | TG_Base |
1750 | True | 1750 | [] |
1751 | D_Lequal | 1751 | (ST_Map "textures/gothic_wall/skull4") |
1752 | Nothing | 1752 | True |
1753 | False | 1753 | D_Lequal |
1754 | "Tex_2239853403" | 1754 | Nothing |
1755 | , StageAttrs | 1755 | False |
1756 | (Just (B_DstColor, B_Zero)) | 1756 | "Tex_2239853403" |
1757 | RGB_IdentityLighting | 1757 | , StageAttrs |
1758 | A_Identity | 1758 | (Just (B_DstColor, B_Zero)) |
1759 | TG_Lightmap | 1759 | RGB_IdentityLighting |
1760 | [] | 1760 | A_Identity |
1761 | ST_Lightmap | 1761 | TG_Lightmap |
1762 | True | 1762 | [] |
1763 | D_Lequal | 1763 | ST_Lightmap |
1764 | Nothing | 1764 | True |
1765 | False | 1765 | D_Lequal |
1766 | "Tex_3226210144"] | 1766 | Nothing |
1767 | False) | 1767 | False |
1768 | , ("textures/gothic_wall/slateroofc" | 1768 | "Tex_3226210144"] |
1769 | , CommonAttrs | 1769 | False) |
1770 | () | 1770 | , ("textures/gothic_wall/slateroofc" |
1771 | () | 1771 | , CommonAttrs |
1772 | False | 1772 | () |
1773 | (fromInt 0) | 1773 | () |
1774 | False | 1774 | False |
1775 | False | 1775 | (fromInt 0) |
1776 | CT_FrontSided | 1776 | False |
1777 | [] | 1777 | False |
1778 | False | 1778 | CT_FrontSided |
1779 | False | 1779 | [] |
1780 | [StageAttrs | 1780 | False |
1781 | Nothing | 1781 | False |
1782 | RGB_IdentityLighting | 1782 | [StageAttrs |
1783 | A_Identity | 1783 | Nothing |
1784 | TG_Base | 1784 | RGB_IdentityLighting |
1785 | [] | 1785 | A_Identity |
1786 | (ST_Map "textures/gothic_wall/slateroofc") | 1786 | TG_Base |
1787 | True | 1787 | [] |
1788 | D_Lequal | 1788 | (ST_Map "textures/gothic_wall/slateroofc") |
1789 | Nothing | 1789 | True |
1790 | False | 1790 | D_Lequal |
1791 | "Tex_2490648334" | 1791 | Nothing |
1792 | , StageAttrs | 1792 | False |
1793 | (Just (B_DstColor, B_Zero)) | 1793 | "Tex_2490648334" |
1794 | RGB_IdentityLighting | 1794 | , StageAttrs |
1795 | A_Identity | 1795 | (Just (B_DstColor, B_Zero)) |
1796 | TG_Lightmap | 1796 | RGB_IdentityLighting |
1797 | [] | 1797 | A_Identity |
1798 | ST_Lightmap | 1798 | TG_Lightmap |
1799 | True | 1799 | [] |
1800 | D_Lequal | 1800 | ST_Lightmap |
1801 | Nothing | 1801 | True |
1802 | False | 1802 | D_Lequal |
1803 | "Tex_3226210144"] | 1803 | Nothing |
1804 | False) | 1804 | False |
1805 | , ("textures/gothic_wall/supportborder_blue_b" | 1805 | "Tex_3226210144"] |
1806 | , CommonAttrs | 1806 | False) |
1807 | () | 1807 | , ("textures/gothic_wall/supportborder_blue_b" |
1808 | () | 1808 | , CommonAttrs |
1809 | False | 1809 | () |
1810 | (fromInt 0) | 1810 | () |
1811 | False | 1811 | False |
1812 | False | 1812 | (fromInt 0) |
1813 | CT_FrontSided | 1813 | False |
1814 | [] | 1814 | False |
1815 | False | 1815 | CT_FrontSided |
1816 | False | 1816 | [] |
1817 | [StageAttrs | 1817 | False |
1818 | Nothing | 1818 | False |
1819 | RGB_IdentityLighting | 1819 | [StageAttrs |
1820 | A_Identity | 1820 | Nothing |
1821 | TG_Base | 1821 | RGB_IdentityLighting |
1822 | [] | 1822 | A_Identity |
1823 | (ST_Map "textures/gothic_wall/supportborder_blue_b") | 1823 | TG_Base |
1824 | True | 1824 | [] |
1825 | D_Lequal | 1825 | (ST_Map "textures/gothic_wall/supportborder_blue_b") |
1826 | Nothing | 1826 | True |
1827 | False | 1827 | D_Lequal |
1828 | "Tex_564811775" | 1828 | Nothing |
1829 | , StageAttrs | 1829 | False |
1830 | (Just (B_DstColor, B_Zero)) | 1830 | "Tex_564811775" |
1831 | RGB_IdentityLighting | 1831 | , StageAttrs |
1832 | A_Identity | 1832 | (Just (B_DstColor, B_Zero)) |
1833 | TG_Lightmap | 1833 | RGB_IdentityLighting |
1834 | [] | 1834 | A_Identity |
1835 | ST_Lightmap | 1835 | TG_Lightmap |
1836 | True | 1836 | [] |
1837 | D_Lequal | 1837 | ST_Lightmap |
1838 | Nothing | 1838 | True |
1839 | False | 1839 | D_Lequal |
1840 | "Tex_3226210144"] | 1840 | Nothing |
1841 | False) | 1841 | False |
1842 | , ("textures/gothic_wall/supportborder_blue_c" | 1842 | "Tex_3226210144"] |
1843 | , CommonAttrs | 1843 | False) |
1844 | () | 1844 | , ("textures/gothic_wall/supportborder_blue_c" |
1845 | () | 1845 | , CommonAttrs |
1846 | False | 1846 | () |
1847 | (fromInt 0) | 1847 | () |
1848 | False | 1848 | False |
1849 | False | 1849 | (fromInt 0) |
1850 | CT_FrontSided | 1850 | False |
1851 | [] | 1851 | False |
1852 | False | 1852 | CT_FrontSided |
1853 | False | 1853 | [] |
1854 | [StageAttrs | 1854 | False |
1855 | Nothing | 1855 | False |
1856 | RGB_IdentityLighting | 1856 | [StageAttrs |
1857 | A_Identity | 1857 | Nothing |
1858 | TG_Base | 1858 | RGB_IdentityLighting |
1859 | [] | 1859 | A_Identity |
1860 | (ST_Map "textures/gothic_wall/supportborder_blue_c") | 1860 | TG_Base |
1861 | True | 1861 | [] |
1862 | D_Lequal | 1862 | (ST_Map "textures/gothic_wall/supportborder_blue_c") |
1863 | Nothing | 1863 | True |
1864 | False | 1864 | D_Lequal |
1865 | "Tex_2525124732" | 1865 | Nothing |
1866 | , StageAttrs | 1866 | False |
1867 | (Just (B_DstColor, B_Zero)) | 1867 | "Tex_2525124732" |
1868 | RGB_IdentityLighting | 1868 | , StageAttrs |
1869 | A_Identity | 1869 | (Just (B_DstColor, B_Zero)) |
1870 | TG_Lightmap | 1870 | RGB_IdentityLighting |
1871 | [] | 1871 | A_Identity |
1872 | ST_Lightmap | 1872 | TG_Lightmap |
1873 | True | 1873 | [] |
1874 | D_Lequal | 1874 | ST_Lightmap |
1875 | Nothing | 1875 | True |
1876 | False | 1876 | D_Lequal |
1877 | "Tex_3226210144"] | 1877 | Nothing |
1878 | False)] | 1878 | False |
1879 | "Tex_3226210144"] | ||
1880 | False)]) | ||
1879 | ------------ core code | 1881 | ------------ core code |
1880 | sampleMaterial :: [(String, CommonAttrs)] | 1882 | sampleMaterial :: [(String, CommonAttrs)] |
1881 | sampleMaterial | 1883 | sampleMaterial |
diff --git a/testdata/traceTest.out b/testdata/traceTest.out index 1284a26e..9c5545d5 100644 --- a/testdata/traceTest.out +++ b/testdata/traceTest.out | |||
@@ -1,12 +1,12 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | id = \(a :: _) -> _rhs a | 3 | id = _lhs id \(a :: _) -> _rhs a |
4 | 4 | ||
5 | data X (_ :: Type) (_ :: _a) :: Type where | 5 | data X (_ :: Type) (_ :: _a) :: Type where |
6 | 6 | ||
7 | 7 | ||
8 | x :: X \(a :: _) (b :: _) -> (a, b) | 8 | x :: X \(a :: _) (b :: _) -> (a, b) |
9 | x = _rhs undefined | 9 | x = _lhs x (_rhs undefined) |
10 | ------------ core code | 10 | ------------ core code |
11 | 'X :: forall a . a -> Type | 11 | 'X :: forall a . a -> Type |
12 | 'X = <<type constructor with 0 indices; constructors: >> | 12 | 'X = <<type constructor with 0 indices; constructors: >> |
diff --git a/testdata/typeclass.out b/testdata/typeclass.out index 7d3b916a..0280bed1 100644 --- a/testdata/typeclass.out +++ b/testdata/typeclass.out | |||
@@ -10,43 +10,59 @@ infixr 3 && | |||
10 | 10 | ||
11 | infixr 2 || | 11 | infixr 2 || |
12 | 12 | ||
13 | not = \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs True) (_rhs False) a | 13 | not |
14 | = _lhs not \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs True) (_rhs False) a | ||
14 | 15 | ||
15 | (&&) = \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs False) (_rhs b) a | 16 | (&&) |
17 | = _lhs | ||
18 | (&&) | ||
19 | \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs False) (_rhs b) a | ||
16 | 20 | ||
17 | (||) = \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs b) (_rhs True) a | 21 | (||) |
22 | = _lhs | ||
23 | (||) | ||
24 | \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs b) (_rhs True) a | ||
18 | 25 | ||
19 | 'Eq :: Type -> Constraint | 26 | 'Eq :: Type -> Constraint |
20 | 'Eq | 27 | 'Eq |
21 | = \(a :: _) -> match'Bool | 28 | = _lhs |
22 | (\(_ :: _) -> _) | 29 | 'Eq |
23 | (_rhs 'CUnit) | 30 | \(a :: _) -> match'Bool |
24 | a | 31 | (\(_ :: _) -> _) |
25 | (_rhs ('CEmpty "no instance of 'Eq on ???")) | 32 | (_rhs 'CUnit) |
33 | a | ||
34 | (_rhs ('CEmpty "no instance of 'Eq on ???")) | ||
26 | 35 | ||
27 | (==) :: forall a . Eq a => a -> a -> Bool | 36 | (==) :: forall a . Eq a => a -> a -> Bool |
28 | (==) | 37 | (==) |
29 | = \ @a @(_ :: _) -> match'Bool | 38 | = _lhs |
30 | (\(_ :: _) -> _) | 39 | (==) |
31 | (_rhs | 40 | \ @a @(_ :: _) -> match'Bool |
32 | let | 41 | (\(_ :: _) -> _) |
33 | b = \(c :: _) (d :: _) -> case'Bool (\(_ :: _) -> _) (_rhs (not d)) (_rhs d) c | 42 | (_rhs |
34 | in b) | 43 | let |
35 | a | 44 | b |
36 | (_rhs undefined) | 45 | = _lhs |
37 | 46 | (==) | |
38 | (/=) = \(a :: _) (b :: _) -> _rhs (not (a == b)) | 47 | \(c :: _) (d :: _) -> case'Bool (\(_ :: _) -> _) (_rhs (not d)) (_rhs d) c |
48 | in b) | ||
49 | a | ||
50 | (_rhs undefined) | ||
51 | |||
52 | (/=) = _lhs (/=) \(a :: _) (b :: _) -> _rhs (not (a == b)) | ||
39 | 53 | ||
40 | (==.) | 54 | (==.) |
41 | = \(a :: _) (b :: _) -> case'List | 55 | = _lhs |
42 | (\(_ :: _) -> _) | 56 | (==.) |
43 | (case'List (\(_ :: _) -> _) (_rhs True) (\(_ :: _) (_ :: _) -> _rhs False) b) | 57 | \(a :: _) (b :: _) -> case'List |
44 | (\(_ :: _) (c :: _) -> case'List | ||
45 | (\(_ :: _) -> _) | 58 | (\(_ :: _) -> _) |
46 | (_rhs False) | 59 | (case'List (\(_ :: _) -> _) (_rhs True) (\(_ :: _) (_ :: _) -> _rhs False) b) |
47 | (\(_ :: _) (d :: _) -> _rhs (c ==. d)) | 60 | (\(_ :: _) (c :: _) -> case'List |
48 | b) | 61 | (\(_ :: _) -> _) |
49 | a | 62 | (_rhs False) |
63 | (\(_ :: _) (d :: _) -> _rhs (c ==. d)) | ||
64 | b) | ||
65 | a | ||
50 | ------------ core code | 66 | ------------ core code |
51 | && :: Bool -> Bool -> Bool | 67 | && :: Bool -> Bool -> Bool |
52 | && = \a b -> case'Bool (\_ -> 'Bool) (_rhs False) (_rhs b) a | 68 | && = \a b -> case'Bool (\_ -> 'Bool) (_rhs False) (_rhs b) a |
diff --git a/testdata/where.out b/testdata/where.out index 1c329429..eb30398d 100644 --- a/testdata/where.out +++ b/testdata/where.out | |||
@@ -1,6 +1,12 @@ | |||
1 | main is not found | 1 | main is not found |
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | f = _rhs let a = _rhs let c = _rhs 1.0 in c; b = _rhs 1.0 in b | 3 | f |
4 | = _lhs | ||
5 | f | ||
6 | (_rhs | ||
7 | let | ||
8 | a = _lhs z (_rhs let c = _lhs y (_rhs 1.0) in c); b = _lhs x (_rhs 1.0) | ||
9 | in b) | ||
4 | ------------ core code | 10 | ------------ core code |
5 | f :: Float | 11 | f :: Float |
6 | f = _rhs 1.0 | 12 | f = _rhs 1.0 |
diff --git a/testdata/zip01.out b/testdata/zip01.out index e6f51391..b34b81e2 100644 --- a/testdata/zip01.out +++ b/testdata/zip01.out | |||
@@ -2,15 +2,17 @@ main is not found | |||
2 | ------------ desugared source code | 2 | ------------ desugared source code |
3 | zip2 :: forall (a :: _) (b :: _) . [a] -> [b] -> [(a, b)] | 3 | zip2 :: forall (a :: _) (b :: _) . [a] -> [b] -> [(a, b)] |
4 | zip2 | 4 | zip2 |
5 | = \(a :: _) (b :: _) -> case'List | 5 | = _lhs |
6 | (\(_ :: _) -> _) | 6 | zip2 |
7 | (_rhs []) | 7 | \(a :: _) (b :: _) -> case'List |
8 | (\(c :: _) (d :: _) -> case'List | ||
9 | (\(_ :: _) -> _) | 8 | (\(_ :: _) -> _) |
10 | (_rhs []) | 9 | (_rhs []) |
11 | (\(e :: _) (f :: _) -> _rhs ((c, e) : zip2 d f)) | 10 | (\(c :: _) (d :: _) -> case'List |
12 | b) | 11 | (\(_ :: _) -> _) |
13 | a | 12 | (_rhs []) |
13 | (\(e :: _) (f :: _) -> _rhs ((c, e) : zip2 d f)) | ||
14 | b) | ||
15 | a | ||
14 | ------------ core code | 16 | ------------ core code |
15 | zip2 :: forall a b . [a] -> [b] -> [(a, b)] | 17 | zip2 :: forall a b . [a] -> [b] -> [(a, b)] |
16 | zip2 | 18 | zip2 |