]> Git — Sourcephile - haskell/symantic-parser.git/blob - test/Golden/Splice/G14.expected.txt
sourcephile / git / haskell / symantic-parser.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
fix: use a global polyfix for defLet and defRef
[haskell/symantic-parser.git] / test / Golden / Splice / G14.expected.txt
1 \(input_0 :: inp_6989586621679059048) ->
2 let !(#
3 init_1,
4 readMore_2,
5 readNext_3
6 #) =
7 let _ = "cursorOf"
8 in let next_4
9 ( t_5@( Data.Text.Internal.Text
10 arr_6
11 off_7
12 unconsumed_8
13 )
14 ) =
15 let !( Data.Text.Unsafe.Iter
16 c_9
17 d_10
18 ) = Data.Text.Unsafe.iter t_5 0
19 in (#
20 c_9,
21 Data.Text.Internal.Text arr_6 (off_7 GHC.Num.+ d_10) (unconsumed_8 GHC.Num.- d_10)
22 #)
23 more_11
24 ( Data.Text.Internal.Text
25 _
26 _
27 unconsumed_12
28 ) = unconsumed_12 GHC.Classes.> 0
29 in (#
30 input_0,
31 more_11,
32 next_4
33 #)
34 in let finalRet_13 = \_farInp_14 _farExp_15 v_16 _inp_17 -> Data.Either.Right v_16
35 in let finalRaise_18 ::
36 forall b_19.
37 Symantic.Parser.Machine.Generate.Catcher
38 inp_6989586621679059048
39 b_19 = \_failInp_20 (!farInp_21) (!farExp_22) ->
40 Data.Either.Left
41 Symantic.Parser.Machine.Generate.ParsingErrorStandard
42 { Symantic.Parser.Machine.Generate.parsingErrorOffset = Symantic.Parser.Machine.Input.offset farInp_21,
43 Symantic.Parser.Machine.Generate.parsingErrorUnexpected =
44 if readMore_2 farInp_21
45 then
46 GHC.Maybe.Just
47 ( let (#
48 c_23,
49 _
50 #) = readNext_3 farInp_21
51 in c_23
52 )
53 else GHC.Maybe.Nothing,
54 Symantic.Parser.Machine.Generate.parsingErrorExpecting = Data.Set.Internal.fromList farExp_22
55 }
56 in let name_24 = \(!ok_25) (!inp_26) (!koByLabel_27) ->
57 let _ = "catchException lbl=fail"
58 in let catchHandler_28 (!failInp_29) (!farInp_30) (!farExp_31) =
59 let _ = "catchException.ko lbl=fail"
60 in if ( \( Data.Text.Internal.Text
61 _
62 i_32
63 _
64 )
65 ( Data.Text.Internal.Text
66 _
67 j_33
68 _
69 ) -> i_32 GHC.Classes.== j_33
70 )
71 inp_26
72 failInp_29
73 then
74 let _ = "choicesBranch.then"
75 in name_34
76 ( let _ = "suspend"
77 in \farInp_35 farExp_36 v_37 (!inp_38) ->
78 let join_39 = \farInp_40 farExp_41 v_42 (!inp_43) ->
79 let _ = "resume"
80 in ok_25
81 farInp_40
82 farExp_41
83 ( let _ = "resume.genCode"
84 in v_42
85 )
86 inp_43
87 in let _ = "catchException lbl=fail"
88 in let catchHandler_44 (!failInp_45) (!farInp_46) (!farExp_47) =
89 let _ = "catchException.ko lbl=fail"
90 in if ( \( Data.Text.Internal.Text
91 _
92 i_48
93 _
94 )
95 ( Data.Text.Internal.Text
96 _
97 j_49
98 _
99 ) -> i_48 GHC.Classes.== j_49
100 )
101 inp_38
102 failInp_45
103 then
104 let _ = "choicesBranch.then"
105 in name_50
106 ( let _ = "suspend"
107 in \farInp_51 farExp_52 v_53 (!inp_54) ->
108 let _ = "resume"
109 in join_39
110 farInp_51
111 farExp_52
112 ( let _ = "resume.genCode"
113 in v_53
114 )
115 inp_54
116 )
117 failInp_45
118 Data.Map.Internal.Tip
119 else
120 let _ = "choicesBranch.else"
121 in let (#
122 farInp_55,
123 farExp_56
124 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_46 failInp_45 of
125 GHC.Types.LT ->
126 (#
127 failInp_45,
128 []
129 #)
130 GHC.Types.EQ ->
131 (#
132 farInp_46,
133 farExp_47 GHC.Base.<> []
134 #)
135 GHC.Types.GT ->
136 (#
137 farInp_46,
138 farExp_47
139 #)
140 in finalRaise_18 failInp_45 farInp_55 farExp_56
141 in let join_57 = \farInp_58 farExp_59 v_60 (!inp_61) ->
142 let _ = "resume"
143 in join_39
144 farInp_58
145 farExp_59
146 ( let _ = "resume.genCode"
147 in GHC.Tuple . ()
148 )
149 inp_61
150 in let _ = "catchException lbl=fail"
151 in let catchHandler_62 (!failInp_63) (!farInp_64) (!farExp_65) =
152 let _ = "catchException.ko lbl=fail"
153 in if ( \( Data.Text.Internal.Text
154 _
155 i_66
156 _
157 )
158 ( Data.Text.Internal.Text
159 _
160 j_67
161 _
162 ) -> i_66 GHC.Classes.== j_67
163 )
164 inp_38
165 failInp_63
166 then
167 let _ = "choicesBranch.then"
168 in name_68
169 ( let _ = "suspend"
170 in \farInp_69 farExp_70 v_71 (!inp_72) ->
171 let _ = "resume"
172 in join_57
173 farInp_69
174 farExp_70
175 ( let _ = "resume.genCode"
176 in v_71
177 )
178 inp_72
179 )
180 failInp_63
181 (Data.Map.Internal.Bin 1 "fail" catchHandler_44 Data.Map.Internal.Tip Data.Map.Internal.Tip)
182 else
183 let _ = "choicesBranch.else"
184 in let (#
185 farInp_73,
186 farExp_74
187 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_64 failInp_63 of
188 GHC.Types.LT ->
189 (#
190 failInp_63,
191 []
192 #)
193 GHC.Types.EQ ->
194 (#
195 farInp_64,
196 farExp_65 GHC.Base.<> []
197 #)
198 GHC.Types.GT ->
199 (#
200 farInp_64,
201 farExp_65
202 #)
203 in catchHandler_44 failInp_63 farInp_73 farExp_74
204 in name_75
205 ( let _ = "suspend"
206 in \farInp_76 farExp_77 v_78 (!inp_79) ->
207 let join_80 = \farInp_81 farExp_82 v_83 (!inp_84) ->
208 name_85
209 ( let _ = "suspend"
210 in \farInp_86 farExp_87 v_88 (!inp_89) ->
211 let _ = "resume"
212 in join_57
213 farInp_86
214 farExp_87
215 ( let _ = "resume.genCode"
216 in v_83
217 )
218 inp_89
219 )
220 inp_84
221 (Data.Map.Internal.Bin 1 "fail" catchHandler_62 Data.Map.Internal.Tip Data.Map.Internal.Tip)
222 in let _ = "catchException lbl=fail"
223 in let catchHandler_90 (!failInp_91) (!farInp_92) (!farExp_93) =
224 let _ = "catchException.ko lbl=fail"
225 in if ( \( Data.Text.Internal.Text
226 _
227 i_94
228 _
229 )
230 ( Data.Text.Internal.Text
231 _
232 j_95
233 _
234 ) -> i_94 GHC.Classes.== j_95
235 )
236 inp_79
237 failInp_91
238 then
239 let _ = "choicesBranch.then"
240 in name_50
241 ( let _ = "suspend"
242 in \farInp_96 farExp_97 v_98 (!inp_99) ->
243 let _ = "resume"
244 in join_80
245 farInp_96
246 farExp_97
247 ( let _ = "resume.genCode"
248 in v_98
249 )
250 inp_99
251 )
252 failInp_91
253 Data.Map.Internal.Tip
254 else
255 let _ = "choicesBranch.else"
256 in let (#
257 farInp_100,
258 farExp_101
259 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_92 failInp_91 of
260 GHC.Types.LT ->
261 (#
262 failInp_91,
263 []
264 #)
265 GHC.Types.EQ ->
266 (#
267 farInp_92,
268 farExp_93 GHC.Base.<> []
269 #)
270 GHC.Types.GT ->
271 (#
272 farInp_92,
273 farExp_93
274 #)
275 in catchHandler_62 failInp_91 farInp_100 farExp_101
276 in name_102
277 ( let _ = "suspend"
278 in \farInp_103 farExp_104 v_105 (!inp_106) ->
279 name_50
280 ( let _ = "suspend"
281 in \farInp_107 farExp_108 v_109 (!inp_110) ->
282 name_111
283 ( let _ = "suspend"
284 in \farInp_112 farExp_113 v_114 (!inp_115) ->
285 name_50
286 ( let _ = "suspend"
287 in \farInp_116 farExp_117 v_118 (!inp_119) ->
288 let _ = "resume"
289 in join_80
290 farInp_116
291 farExp_117
292 ( let _ = "resume.genCode"
293 in GHC.Tuple . ()
294 )
295 inp_119
296 )
297 inp_115
298 Data.Map.Internal.Tip
299 )
300 inp_110
301 Data.Map.Internal.Tip
302 )
303 inp_106
304 Data.Map.Internal.Tip
305 )
306 inp_79
307 Data.Map.Internal.Tip
308 )
309 inp_38
310 (Data.Map.Internal.Bin 1 "fail" catchHandler_62 Data.Map.Internal.Tip Data.Map.Internal.Tip)
311 )
312 failInp_29
313 Data.Map.Internal.Tip
314 else
315 let _ = "choicesBranch.else"
316 in let (#
317 farInp_120,
318 farExp_121
319 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_30 failInp_29 of
320 GHC.Types.LT ->
321 (#
322 failInp_29,
323 []
324 #)
325 GHC.Types.EQ ->
326 (#
327 farInp_30,
328 farExp_31 GHC.Base.<> []
329 #)
330 GHC.Types.GT ->
331 (#
332 farInp_30,
333 farExp_31
334 #)
335 in finalRaise_18 failInp_29 farInp_120 farExp_121
336 in let join_122 = \farInp_123 farExp_124 v_125 (!inp_126) ->
337 let _ = "resume"
338 in ok_25
339 farInp_123
340 farExp_124
341 ( let _ = "resume.genCode"
342 in v_125
343 )
344 inp_126
345 in let _ = "catchException lbl=fail"
346 in let catchHandler_127 (!failInp_128) (!farInp_129) (!farExp_130) =
347 let _ = "catchException.ko lbl=fail"
348 in if ( \( Data.Text.Internal.Text
349 _
350 i_131
351 _
352 )
353 ( Data.Text.Internal.Text
354 _
355 j_132
356 _
357 ) -> i_131 GHC.Classes.== j_132
358 )
359 inp_26
360 failInp_128
361 then
362 let _ = "choicesBranch.then"
363 in let readFail_133 = catchHandler_28
364 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 3 failInp_128)
365 then
366 let !(#
367 c_134,
368 cs_135
369 #) = readNext_3 failInp_128
370 in if ('\'' GHC.Classes.==) c_134
371 then
372 let join_136 = \farInp_137 farExp_138 v_139 (!inp_140) ->
373 let readFail_141 = readFail_133
374 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_140)
375 then
376 let !(#
377 c_142,
378 cs_143
379 #) = readNext_3 inp_140
380 in if ('\'' GHC.Classes.==) c_142
381 then
382 name_144
383 ( let _ = "suspend"
384 in \farInp_145 farExp_146 v_147 (!inp_148) ->
385 let _ = "resume"
386 in join_122
387 farInp_145
388 farExp_146
389 ( let _ = "resume.genCode"
390 in v_139
391 )
392 inp_148
393 )
394 cs_143
395 (Data.Map.Internal.Bin 1 "fail" readFail_141 Data.Map.Internal.Tip Data.Map.Internal.Tip)
396 else
397 let _ = "checkToken.else"
398 in let (#
399 farInp_149,
400 farExp_150
401 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_137 inp_140 of
402 GHC.Types.LT ->
403 (#
404 inp_140,
405 [Symantic.Parser.Grammar.Combinators.ErrorItemToken '\'']
406 #)
407 GHC.Types.EQ ->
408 (#
409 farInp_137,
410 farExp_138 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '\'']
411 #)
412 GHC.Types.GT ->
413 (#
414 farInp_137,
415 farExp_138
416 #)
417 in readFail_141 inp_140 farInp_149 farExp_150
418 else
419 let _ = "checkHorizon.else"
420 in let (#
421 farInp_151,
422 farExp_152
423 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_137 inp_140 of
424 GHC.Types.LT ->
425 (#
426 inp_140,
427 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
428 #)
429 GHC.Types.EQ ->
430 (#
431 farInp_137,
432 farExp_138 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
433 #)
434 GHC.Types.GT ->
435 (#
436 farInp_137,
437 farExp_138
438 #)
439 in readFail_141 inp_140 farInp_151 farExp_152
440 in let _ = "catchException lbl=fail"
441 in let catchHandler_153 (!failInp_154) (!farInp_155) (!farExp_156) =
442 let _ = "catchException.ko lbl=fail"
443 in if ( \( Data.Text.Internal.Text
444 _
445 i_157
446 _
447 )
448 ( Data.Text.Internal.Text
449 _
450 j_158
451 _
452 ) -> i_157 GHC.Classes.== j_158
453 )
454 cs_135
455 failInp_154
456 then
457 let _ = "choicesBranch.then"
458 in let readFail_159 = readFail_133
459 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 3 failInp_154)
460 then
461 let !(#
462 c_160,
463 cs_161
464 #) = readNext_3 failInp_154
465 in if ('\\' GHC.Classes.==) c_160
466 then
467 let readFail_162 = readFail_159
468 in let !(#
469 c_163,
470 cs_164
471 #) = readNext_3 cs_161
472 in if (\t_165 -> ('0' GHC.Classes.== t_165) GHC.Classes.|| (('t' GHC.Classes.== t_165) GHC.Classes.|| (('n' GHC.Classes.== t_165) GHC.Classes.|| (('v' GHC.Classes.== t_165) GHC.Classes.|| (('f' GHC.Classes.== t_165) GHC.Classes.|| (('r' GHC.Classes.== t_165) GHC.Classes.|| GHC.Types.False)))))) c_163
473 then
474 name_50
475 ( let _ = "suspend"
476 in \farInp_166 farExp_167 v_168 (!inp_169) ->
477 let _ = "resume"
478 in join_136
479 farInp_166
480 farExp_167
481 ( let _ = "resume.genCode"
482 in v_168
483 )
484 inp_169
485 )
486 cs_164
487 Data.Map.Internal.Tip
488 else
489 let _ = "checkToken.else"
490 in let (#
491 farInp_170,
492 farExp_171
493 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_155 cs_161 of
494 GHC.Types.LT ->
495 (#
496 cs_161,
497 [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "oneOf"]
498 #)
499 GHC.Types.EQ ->
500 (#
501 farInp_155,
502 farExp_156 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "oneOf"]
503 #)
504 GHC.Types.GT ->
505 (#
506 farInp_155,
507 farExp_156
508 #)
509 in readFail_159 cs_161 farInp_170 farExp_171
510 else
511 let _ = "checkToken.else"
512 in let (#
513 farInp_172,
514 farExp_173
515 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_155 failInp_154 of
516 GHC.Types.LT ->
517 (#
518 failInp_154,
519 [Symantic.Parser.Grammar.Combinators.ErrorItemToken '\\']
520 #)
521 GHC.Types.EQ ->
522 (#
523 farInp_155,
524 farExp_156 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '\\']
525 #)
526 GHC.Types.GT ->
527 (#
528 farInp_155,
529 farExp_156
530 #)
531 in readFail_159 failInp_154 farInp_172 farExp_173
532 else
533 let _ = "checkHorizon.else"
534 in let (#
535 farInp_174,
536 farExp_175
537 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_155 failInp_154 of
538 GHC.Types.LT ->
539 (#
540 failInp_154,
541 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
542 #)
543 GHC.Types.EQ ->
544 (#
545 farInp_155,
546 farExp_156 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
547 #)
548 GHC.Types.GT ->
549 (#
550 farInp_155,
551 farExp_156
552 #)
553 in readFail_159 failInp_154 farInp_174 farExp_175
554 else
555 let _ = "choicesBranch.else"
556 in let (#
557 farInp_176,
558 farExp_177
559 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_155 failInp_154 of
560 GHC.Types.LT ->
561 (#
562 failInp_154,
563 []
564 #)
565 GHC.Types.EQ ->
566 (#
567 farInp_155,
568 farExp_156 GHC.Base.<> []
569 #)
570 GHC.Types.GT ->
571 (#
572 farInp_155,
573 farExp_156
574 #)
575 in readFail_133 failInp_154 farInp_176 farExp_177
576 in let readFail_178 = catchHandler_153
577 in let !(#
578 c_179,
579 cs_180
580 #) = readNext_3 cs_135
581 in if Grammar.Nandlang.nandStringLetter c_179
582 then
583 name_50
584 ( let _ = "suspend"
585 in \farInp_181 farExp_182 v_183 (!inp_184) ->
586 let _ = "resume"
587 in join_136
588 farInp_181
589 farExp_182
590 ( let _ = "resume.genCode"
591 in v_183
592 )
593 inp_184
594 )
595 cs_180
596 Data.Map.Internal.Tip
597 else
598 let _ = "checkToken.else"
599 in let (#
600 farInp_185,
601 farExp_186
602 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_129 cs_135 of
603 GHC.Types.LT ->
604 (#
605 cs_135,
606 [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "Char"]
607 #)
608 GHC.Types.EQ ->
609 (#
610 farInp_129,
611 farExp_130 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "Char"]
612 #)
613 GHC.Types.GT ->
614 (#
615 farInp_129,
616 farExp_130
617 #)
618 in catchHandler_153 cs_135 farInp_185 farExp_186
619 else
620 let _ = "checkToken.else"
621 in let (#
622 farInp_187,
623 farExp_188
624 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_129 failInp_128 of
625 GHC.Types.LT ->
626 (#
627 failInp_128,
628 [Symantic.Parser.Grammar.Combinators.ErrorItemToken '\'']
629 #)
630 GHC.Types.EQ ->
631 (#
632 farInp_129,
633 farExp_130 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '\'']
634 #)
635 GHC.Types.GT ->
636 (#
637 farInp_129,
638 farExp_130
639 #)
640 in readFail_133 failInp_128 farInp_187 farExp_188
641 else
642 let _ = "checkHorizon.else"
643 in let (#
644 farInp_189,
645 farExp_190
646 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_129 failInp_128 of
647 GHC.Types.LT ->
648 (#
649 failInp_128,
650 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
651 #)
652 GHC.Types.EQ ->
653 (#
654 farInp_129,
655 farExp_130 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
656 #)
657 GHC.Types.GT ->
658 (#
659 farInp_129,
660 farExp_130
661 #)
662 in readFail_133 failInp_128 farInp_189 farExp_190
663 else
664 let _ = "choicesBranch.else"
665 in let (#
666 farInp_191,
667 farExp_192
668 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_129 failInp_128 of
669 GHC.Types.LT ->
670 (#
671 failInp_128,
672 []
673 #)
674 GHC.Types.EQ ->
675 (#
676 farInp_129,
677 farExp_130 GHC.Base.<> []
678 #)
679 GHC.Types.GT ->
680 (#
681 farInp_129,
682 farExp_130
683 #)
684 in catchHandler_28 failInp_128 farInp_191 farExp_192
685 in let join_193 = \farInp_194 farExp_195 v_196 (!inp_197) ->
686 name_144
687 ( let _ = "suspend"
688 in \farInp_198 farExp_199 v_200 (!inp_201) ->
689 let _ = "resume"
690 in join_122
691 farInp_198
692 farExp_199
693 ( let _ = "resume.genCode"
694 in v_200
695 )
696 inp_201
697 )
698 inp_197
699 (Data.Map.Internal.Bin 1 "fail" catchHandler_127 Data.Map.Internal.Tip Data.Map.Internal.Tip)
700 in let _ = "catchException lbl=fail"
701 in let catchHandler_202 (!failInp_203) (!farInp_204) (!farExp_205) =
702 let _ = "catchException.ko lbl=fail"
703 in if ( \( Data.Text.Internal.Text
704 _
705 i_206
706 _
707 )
708 ( Data.Text.Internal.Text
709 _
710 j_207
711 _
712 ) -> i_206 GHC.Classes.== j_207
713 )
714 inp_26
715 failInp_203
716 then
717 let _ = "choicesBranch.then"
718 in let readFail_208 = catchHandler_127
719 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 failInp_203)
720 then
721 let !(#
722 c_209,
723 cs_210
724 #) = readNext_3 failInp_203
725 in if ('1' GHC.Classes.==) c_209
726 then
727 let _ = "resume"
728 in join_193
729 farInp_204
730 farExp_205
731 ( let _ = "resume.genCode"
732 in '1'
733 )
734 cs_210
735 else
736 let _ = "checkToken.else"
737 in let (#
738 farInp_211,
739 farExp_212
740 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_204 failInp_203 of
741 GHC.Types.LT ->
742 (#
743 failInp_203,
744 [Symantic.Parser.Grammar.Combinators.ErrorItemToken '1']
745 #)
746 GHC.Types.EQ ->
747 (#
748 farInp_204,
749 farExp_205 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '1']
750 #)
751 GHC.Types.GT ->
752 (#
753 farInp_204,
754 farExp_205
755 #)
756 in readFail_208 failInp_203 farInp_211 farExp_212
757 else
758 let _ = "checkHorizon.else"
759 in let (#
760 farInp_213,
761 farExp_214
762 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_204 failInp_203 of
763 GHC.Types.LT ->
764 (#
765 failInp_203,
766 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
767 #)
768 GHC.Types.EQ ->
769 (#
770 farInp_204,
771 farExp_205 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
772 #)
773 GHC.Types.GT ->
774 (#
775 farInp_204,
776 farExp_205
777 #)
778 in readFail_208 failInp_203 farInp_213 farExp_214
779 else
780 let _ = "choicesBranch.else"
781 in let (#
782 farInp_215,
783 farExp_216
784 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_204 failInp_203 of
785 GHC.Types.LT ->
786 (#
787 failInp_203,
788 []
789 #)
790 GHC.Types.EQ ->
791 (#
792 farInp_204,
793 farExp_205 GHC.Base.<> []
794 #)
795 GHC.Types.GT ->
796 (#
797 farInp_204,
798 farExp_205
799 #)
800 in catchHandler_127 failInp_203 farInp_215 farExp_216
801 in let readFail_217 = catchHandler_202
802 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_26)
803 then
804 let !(#
805 c_218,
806 cs_219
807 #) = readNext_3 inp_26
808 in if ('0' GHC.Classes.==) c_218
809 then
810 let _ = "resume"
811 in join_193 init_1 GHC.Types
812 . []
813 ( let _ = "resume.genCode"
814 in '0'
815 )
816 cs_219
817 else
818 let _ = "checkToken.else"
819 in let (#
820 farInp_220,
821 farExp_221
822 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_26 of
823 GHC.Types.LT ->
824 (#
825 inp_26,
826 [Symantic.Parser.Grammar.Combinators.ErrorItemToken '0']
827 #)
828 GHC.Types.EQ ->
829 (#
830 init_1,
831 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '0']
832 #)
833 GHC.Types.GT ->
834 (#
835 init_1,
836 GHC.Types . []
837 #)
838 in readFail_217 inp_26 farInp_220 farExp_221
839 else
840 let _ = "checkHorizon.else"
841 in let (#
842 farInp_222,
843 farExp_223
844 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_26 of
845 GHC.Types.LT ->
846 (#
847 inp_26,
848 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
849 #)
850 GHC.Types.EQ ->
851 (#
852 init_1,
853 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
854 #)
855 GHC.Types.GT ->
856 (#
857 init_1,
858 GHC.Types . []
859 #)
860 in readFail_217 inp_26 farInp_222 farExp_223
861 name_224 = \(!ok_225) (!inp_226) (!koByLabel_227) ->
862 let _ = "catchException lbl=fail"
863 in let catchHandler_228 (!failInp_229) (!farInp_230) (!farExp_231) =
864 let _ = "catchException.ko lbl=fail"
865 in if ( \( Data.Text.Internal.Text
866 _
867 i_232
868 _
869 )
870 ( Data.Text.Internal.Text
871 _
872 j_233
873 _
874 ) -> i_232 GHC.Classes.== j_233
875 )
876 inp_226
877 failInp_229
878 then
879 let _ = "choicesBranch.then"
880 in let _ = "resume"
881 in ok_225
882 farInp_230
883 farExp_231
884 ( let _ = "resume.genCode"
885 in \x_234 -> x_234
886 )
887 failInp_229
888 else
889 let _ = "choicesBranch.else"
890 in let (#
891 farInp_235,
892 farExp_236
893 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_230 failInp_229 of
894 GHC.Types.LT ->
895 (#
896 failInp_229,
897 []
898 #)
899 GHC.Types.EQ ->
900 (#
901 farInp_230,
902 farExp_231 GHC.Base.<> []
903 #)
904 GHC.Types.GT ->
905 (#
906 farInp_230,
907 farExp_231
908 #)
909 in finalRaise_18 failInp_229 farInp_235 farExp_236
910 in name_237
911 ( let _ = "suspend"
912 in \farInp_238 farExp_239 v_240 (!inp_241) ->
913 name_242
914 ( let _ = "suspend"
915 in \farInp_243 farExp_244 v_245 (!inp_246) ->
916 name_102
917 ( let _ = "suspend"
918 in \farInp_247 farExp_248 v_249 (!inp_250) ->
919 name_224
920 ( let _ = "suspend"
921 in \farInp_251 farExp_252 v_253 (!inp_254) ->
922 let _ = "resume"
923 in ok_225
924 farInp_251
925 farExp_252
926 ( let _ = "resume.genCode"
927 in \x_255 -> v_240 v_249 (v_253 x_255)
928 )
929 inp_254
930 )
931 inp_250
932 Data.Map.Internal.Tip
933 )
934 inp_246
935 Data.Map.Internal.Tip
936 )
937 inp_241
938 (Data.Map.Internal.Bin 1 "fail" catchHandler_228 Data.Map.Internal.Tip Data.Map.Internal.Tip)
939 )
940 inp_226
941 Data.Map.Internal.Tip
942 name_256 = \(!ok_257) (!inp_258) (!koByLabel_259) ->
943 let _ = "catchException lbl=fail"
944 in let catchHandler_260 (!failInp_261) (!farInp_262) (!farExp_263) =
945 let _ = "catchException.ko lbl=fail"
946 in if ( \( Data.Text.Internal.Text
947 _
948 i_264
949 _
950 )
951 ( Data.Text.Internal.Text
952 _
953 j_265
954 _
955 ) -> i_264 GHC.Classes.== j_265
956 )
957 inp_258
958 failInp_261
959 then
960 let _ = "choicesBranch.then"
961 in let _ = "resume"
962 in ok_257
963 farInp_262
964 farExp_263
965 ( let _ = "resume.genCode"
966 in \x_266 -> x_266
967 )
968 failInp_261
969 else
970 let _ = "choicesBranch.else"
971 in let (#
972 farInp_267,
973 farExp_268
974 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_262 failInp_261 of
975 GHC.Types.LT ->
976 (#
977 failInp_261,
978 []
979 #)
980 GHC.Types.EQ ->
981 (#
982 farInp_262,
983 farExp_263 GHC.Base.<> []
984 #)
985 GHC.Types.GT ->
986 (#
987 farInp_262,
988 farExp_263
989 #)
990 in finalRaise_18 failInp_261 farInp_267 farExp_268
991 in name_237
992 ( let _ = "suspend"
993 in \farInp_269 farExp_270 v_271 (!inp_272) ->
994 name_242
995 ( let _ = "suspend"
996 in \farInp_273 farExp_274 v_275 (!inp_276) ->
997 name_277
998 ( let _ = "suspend"
999 in \farInp_278 farExp_279 v_280 (!inp_281) ->
1000 name_256
1001 ( let _ = "suspend"
1002 in \farInp_282 farExp_283 v_284 (!inp_285) ->
1003 let _ = "resume"
1004 in ok_257
1005 farInp_282
1006 farExp_283
1007 ( let _ = "resume.genCode"
1008 in \x_286 -> v_271 v_280 (v_284 x_286)
1009 )
1010 inp_285
1011 )
1012 inp_281
1013 Data.Map.Internal.Tip
1014 )
1015 inp_276
1016 Data.Map.Internal.Tip
1017 )
1018 inp_272
1019 (Data.Map.Internal.Bin 1 "fail" catchHandler_260 Data.Map.Internal.Tip Data.Map.Internal.Tip)
1020 )
1021 inp_258
1022 Data.Map.Internal.Tip
1023 name_287 = \(!ok_288) (!inp_289) (!koByLabel_290) ->
1024 let _ = "catchException lbl=fail"
1025 in let catchHandler_291 (!failInp_292) (!farInp_293) (!farExp_294) =
1026 let _ = "catchException.ko lbl=fail"
1027 in if ( \( Data.Text.Internal.Text
1028 _
1029 i_295
1030 _
1031 )
1032 ( Data.Text.Internal.Text
1033 _
1034 j_296
1035 _
1036 ) -> i_295 GHC.Classes.== j_296
1037 )
1038 inp_289
1039 failInp_292
1040 then
1041 let _ = "choicesBranch.then"
1042 in let _ = "resume"
1043 in ok_288
1044 farInp_293
1045 farExp_294
1046 ( let _ = "resume.genCode"
1047 in \x_297 -> x_297
1048 )
1049 failInp_292
1050 else
1051 let _ = "choicesBranch.else"
1052 in let (#
1053 farInp_298,
1054 farExp_299
1055 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_293 failInp_292 of
1056 GHC.Types.LT ->
1057 (#
1058 failInp_292,
1059 []
1060 #)
1061 GHC.Types.EQ ->
1062 (#
1063 farInp_293,
1064 farExp_294 GHC.Base.<> []
1065 #)
1066 GHC.Types.GT ->
1067 (#
1068 farInp_293,
1069 farExp_294
1070 #)
1071 in finalRaise_18 failInp_292 farInp_298 farExp_299
1072 in let join_300 = \farInp_301 farExp_302 v_303 (!inp_304) ->
1073 name_287
1074 ( let _ = "suspend"
1075 in \farInp_305 farExp_306 v_307 (!inp_308) ->
1076 let _ = "resume"
1077 in ok_288
1078 farInp_305
1079 farExp_306
1080 ( let _ = "resume.genCode"
1081 in \x_309 -> v_307 x_309
1082 )
1083 inp_308
1084 )
1085 inp_304
1086 Data.Map.Internal.Tip
1087 in let _ = "catchException lbl=fail"
1088 in let catchHandler_310 (!failInp_311) (!farInp_312) (!farExp_313) =
1089 let _ = "catchException.ko lbl=fail"
1090 in if ( \( Data.Text.Internal.Text
1091 _
1092 i_314
1093 _
1094 )
1095 ( Data.Text.Internal.Text
1096 _
1097 j_315
1098 _
1099 ) -> i_314 GHC.Classes.== j_315
1100 )
1101 inp_289
1102 failInp_311
1103 then
1104 let _ = "choicesBranch.then"
1105 in name_102
1106 ( let _ = "suspend"
1107 in \farInp_316 farExp_317 v_318 (!inp_319) ->
1108 name_320
1109 ( let _ = "suspend"
1110 in \farInp_321 farExp_322 v_323 (!inp_324) ->
1111 let _ = "resume"
1112 in join_300
1113 farInp_321
1114 farExp_322
1115 ( let _ = "resume.genCode"
1116 in v_318
1117 )
1118 inp_324
1119 )
1120 inp_319
1121 (Data.Map.Internal.Bin 1 "fail" catchHandler_291 Data.Map.Internal.Tip Data.Map.Internal.Tip)
1122 )
1123 failInp_311
1124 Data.Map.Internal.Tip
1125 else
1126 let _ = "choicesBranch.else"
1127 in let (#
1128 farInp_325,
1129 farExp_326
1130 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_312 failInp_311 of
1131 GHC.Types.LT ->
1132 (#
1133 failInp_311,
1134 []
1135 #)
1136 GHC.Types.EQ ->
1137 (#
1138 farInp_312,
1139 farExp_313 GHC.Base.<> []
1140 #)
1141 GHC.Types.GT ->
1142 (#
1143 farInp_312,
1144 farExp_313
1145 #)
1146 in catchHandler_291 failInp_311 farInp_325 farExp_326
1147 in let join_327 = \farInp_328 farExp_329 v_330 (!inp_331) ->
1148 let _ = "resume"
1149 in join_300
1150 farInp_328
1151 farExp_329
1152 ( let _ = "resume.genCode"
1153 in v_330
1154 )
1155 inp_331
1156 in let _ = "catchException lbl=fail"
1157 in let catchHandler_332 (!failInp_333) (!farInp_334) (!farExp_335) =
1158 let _ = "catchException.ko lbl=fail"
1159 in if ( \( Data.Text.Internal.Text
1160 _
1161 i_336
1162 _
1163 )
1164 ( Data.Text.Internal.Text
1165 _
1166 j_337
1167 _
1168 ) -> i_336 GHC.Classes.== j_337
1169 )
1170 inp_289
1171 failInp_333
1172 then
1173 let _ = "choicesBranch.then"
1174 in let _ = "catchException lbl=fail"
1175 in let catchHandler_338 (!failInp_339) (!farInp_340) (!farExp_341) =
1176 let _ = "catchException.ko lbl=fail"
1177 in let (#
1178 farInp_342,
1179 farExp_343
1180 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_340 failInp_333 of
1181 GHC.Types.LT ->
1182 (#
1183 failInp_333,
1184 []
1185 #)
1186 GHC.Types.EQ ->
1187 (#
1188 farInp_340,
1189 farExp_341 GHC.Base.<> []
1190 #)
1191 GHC.Types.GT ->
1192 (#
1193 farInp_340,
1194 farExp_341
1195 #)
1196 in catchHandler_310 failInp_333 farInp_342 farExp_343
1197 in let join_344 = \farInp_345 farExp_346 v_347 (!inp_348) ->
1198 name_277
1199 ( let _ = "suspend"
1200 in \farInp_349 farExp_350 v_351 (!inp_352) ->
1201 name_50
1202 ( let _ = "suspend"
1203 in \farInp_353 farExp_354 v_355 (!inp_356) ->
1204 name_256
1205 ( let _ = "suspend"
1206 in \farInp_357 farExp_358 v_359 (!inp_360) ->
1207 name_50
1208 ( let _ = "suspend"
1209 in \farInp_361 farExp_362 v_363 (!inp_364) ->
1210 let readFail_365 = catchHandler_338
1211 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 3 inp_364)
1212 then
1213 let !(#
1214 c_366,
1215 cs_367
1216 #) = readNext_3 inp_364
1217 in if ('=' GHC.Classes.==) c_366
1218 then
1219 name_144
1220 ( let _ = "suspend"
1221 in \farInp_368 farExp_369 v_370 (!inp_371) ->
1222 name_102
1223 ( let _ = "suspend"
1224 in \farInp_372 farExp_373 v_374 (!inp_375) ->
1225 name_50
1226 ( let _ = "suspend"
1227 in \farInp_376 farExp_377 v_378 (!inp_379) ->
1228 name_224
1229 ( let _ = "suspend"
1230 in \farInp_380 farExp_381 v_382 (!inp_383) ->
1231 name_50
1232 ( let _ = "suspend"
1233 in \farInp_384 farExp_385 v_386 (!inp_387) ->
1234 name_320
1235 ( let _ = "suspend"
1236 in \farInp_388 farExp_389 v_390 (!inp_391) ->
1237 let _ = "resume"
1238 in join_327
1239 farInp_388
1240 farExp_389
1241 ( let _ = "resume.genCode"
1242 in v_386
1243 )
1244 inp_391
1245 )
1246 inp_387
1247 (Data.Map.Internal.Bin 1 "fail" readFail_365 Data.Map.Internal.Tip Data.Map.Internal.Tip)
1248 )
1249 inp_383
1250 Data.Map.Internal.Tip
1251 )
1252 inp_379
1253 Data.Map.Internal.Tip
1254 )
1255 inp_375
1256 Data.Map.Internal.Tip
1257 )
1258 inp_371
1259 Data.Map.Internal.Tip
1260 )
1261 cs_367
1262 (Data.Map.Internal.Bin 1 "fail" readFail_365 Data.Map.Internal.Tip Data.Map.Internal.Tip)
1263 else
1264 let _ = "checkToken.else"
1265 in let (#
1266 farInp_392,
1267 farExp_393
1268 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_361 inp_364 of
1269 GHC.Types.LT ->
1270 (#
1271 inp_364,
1272 [Symantic.Parser.Grammar.Combinators.ErrorItemToken '=']
1273 #)
1274 GHC.Types.EQ ->
1275 (#
1276 farInp_361,
1277 farExp_362 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '=']
1278 #)
1279 GHC.Types.GT ->
1280 (#
1281 farInp_361,
1282 farExp_362
1283 #)
1284 in readFail_365 inp_364 farInp_392 farExp_393
1285 else
1286 let _ = "checkHorizon.else"
1287 in let (#
1288 farInp_394,
1289 farExp_395
1290 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_361 inp_364 of
1291 GHC.Types.LT ->
1292 (#
1293 inp_364,
1294 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
1295 #)
1296 GHC.Types.EQ ->
1297 (#
1298 farInp_361,
1299 farExp_362 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
1300 #)
1301 GHC.Types.GT ->
1302 (#
1303 farInp_361,
1304 farExp_362
1305 #)
1306 in readFail_365 inp_364 farInp_394 farExp_395
1307 )
1308 inp_360
1309 Data.Map.Internal.Tip
1310 )
1311 inp_356
1312 Data.Map.Internal.Tip
1313 )
1314 inp_352
1315 Data.Map.Internal.Tip
1316 )
1317 inp_348
1318 Data.Map.Internal.Tip
1319 in let _ = "catchException lbl=fail"
1320 in let catchHandler_396 (!failInp_397) (!farInp_398) (!farExp_399) =
1321 let _ = "catchException.ko lbl=fail"
1322 in if ( \( Data.Text.Internal.Text
1323 _
1324 i_400
1325 _
1326 )
1327 ( Data.Text.Internal.Text
1328 _
1329 j_401
1330 _
1331 ) -> i_400 GHC.Classes.== j_401
1332 )
1333 failInp_333
1334 failInp_397
1335 then
1336 let _ = "choicesBranch.then"
1337 in name_50
1338 ( let _ = "suspend"
1339 in \farInp_402 farExp_403 v_404 (!inp_405) ->
1340 let _ = "resume"
1341 in join_344
1342 farInp_402
1343 farExp_403
1344 ( let _ = "resume.genCode"
1345 in v_404
1346 )
1347 inp_405
1348 )
1349 failInp_397
1350 Data.Map.Internal.Tip
1351 else
1352 let _ = "choicesBranch.else"
1353 in let (#
1354 farInp_406,
1355 farExp_407
1356 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_398 failInp_397 of
1357 GHC.Types.LT ->
1358 (#
1359 failInp_397,
1360 []
1361 #)
1362 GHC.Types.EQ ->
1363 (#
1364 farInp_398,
1365 farExp_399 GHC.Base.<> []
1366 #)
1367 GHC.Types.GT ->
1368 (#
1369 farInp_398,
1370 farExp_399
1371 #)
1372 in catchHandler_338 failInp_397 farInp_406 farExp_407
1373 in let _ = "catchException lbl=fail"
1374 in let catchHandler_408 (!failInp_409) (!farInp_410) (!farExp_411) =
1375 let _ = "catchException.ko lbl=fail"
1376 in let (#
1377 farInp_412,
1378 farExp_413
1379 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_410 failInp_333 of
1380 GHC.Types.LT ->
1381 (#
1382 failInp_333,
1383 []
1384 #)
1385 GHC.Types.EQ ->
1386 (#
1387 farInp_410,
1388 farExp_411 GHC.Base.<> []
1389 #)
1390 GHC.Types.GT ->
1391 (#
1392 farInp_410,
1393 farExp_411
1394 #)
1395 in catchHandler_396 failInp_333 farInp_412 farExp_413
1396 in let readFail_414 = catchHandler_408
1397 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 10 failInp_333)
1398 then
1399 let !(#
1400 c_415,
1401 cs_416
1402 #) = readNext_3 failInp_333
1403 in if ('v' GHC.Classes.==) c_415
1404 then
1405 let readFail_417 = readFail_414
1406 in let !(#
1407 c_418,
1408 cs_419
1409 #) = readNext_3 cs_416
1410 in if ('a' GHC.Classes.==) c_418
1411 then
1412 let readFail_420 = readFail_414
1413 in let !(#
1414 c_421,
1415 cs_422
1416 #) = readNext_3 cs_419
1417 in if ('r' GHC.Classes.==) c_421
1418 then
1419 name_423
1420 ( let _ = "suspend"
1421 in \farInp_424 farExp_425 v_426 (!inp_427) ->
1422 let _ = "resume"
1423 in join_344
1424 farInp_424
1425 farExp_425
1426 ( let _ = "resume.genCode"
1427 in GHC.Tuple . ()
1428 )
1429 inp_427
1430 )
1431 cs_422
1432 Data.Map.Internal.Tip
1433 else
1434 let _ = "checkToken.else"
1435 in let (#
1436 farInp_428,
1437 farExp_429
1438 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_334 cs_419 of
1439 GHC.Types.LT ->
1440 (#
1441 cs_419,
1442 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'r']
1443 #)
1444 GHC.Types.EQ ->
1445 (#
1446 farInp_334,
1447 farExp_335 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'r']
1448 #)
1449 GHC.Types.GT ->
1450 (#
1451 farInp_334,
1452 farExp_335
1453 #)
1454 in readFail_414 cs_419 farInp_428 farExp_429
1455 else
1456 let _ = "checkToken.else"
1457 in let (#
1458 farInp_430,
1459 farExp_431
1460 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_334 cs_416 of
1461 GHC.Types.LT ->
1462 (#
1463 cs_416,
1464 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'a']
1465 #)
1466 GHC.Types.EQ ->
1467 (#
1468 farInp_334,
1469 farExp_335 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'a']
1470 #)
1471 GHC.Types.GT ->
1472 (#
1473 farInp_334,
1474 farExp_335
1475 #)
1476 in readFail_414 cs_416 farInp_430 farExp_431
1477 else
1478 let _ = "checkToken.else"
1479 in let (#
1480 farInp_432,
1481 farExp_433
1482 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_334 failInp_333 of
1483 GHC.Types.LT ->
1484 (#
1485 failInp_333,
1486 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'v']
1487 #)
1488 GHC.Types.EQ ->
1489 (#
1490 farInp_334,
1491 farExp_335 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'v']
1492 #)
1493 GHC.Types.GT ->
1494 (#
1495 farInp_334,
1496 farExp_335
1497 #)
1498 in readFail_414 failInp_333 farInp_432 farExp_433
1499 else
1500 let _ = "checkHorizon.else"
1501 in let (#
1502 farInp_434,
1503 farExp_435
1504 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_334 failInp_333 of
1505 GHC.Types.LT ->
1506 (#
1507 failInp_333,
1508 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 11]
1509 #)
1510 GHC.Types.EQ ->
1511 (#
1512 farInp_334,
1513 farExp_335 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 11]
1514 #)
1515 GHC.Types.GT ->
1516 (#
1517 farInp_334,
1518 farExp_335
1519 #)
1520 in readFail_414 failInp_333 farInp_434 farExp_435
1521 else
1522 let _ = "choicesBranch.else"
1523 in let (#
1524 farInp_436,
1525 farExp_437
1526 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_334 failInp_333 of
1527 GHC.Types.LT ->
1528 (#
1529 failInp_333,
1530 []
1531 #)
1532 GHC.Types.EQ ->
1533 (#
1534 farInp_334,
1535 farExp_335 GHC.Base.<> []
1536 #)
1537 GHC.Types.GT ->
1538 (#
1539 farInp_334,
1540 farExp_335
1541 #)
1542 in catchHandler_310 failInp_333 farInp_436 farExp_437
1543 in let join_438 = \farInp_439 farExp_440 v_441 (!inp_442) ->
1544 let _ = "resume"
1545 in join_327
1546 farInp_439
1547 farExp_440
1548 ( let _ = "resume.genCode"
1549 in v_441
1550 )
1551 inp_442
1552 in let _ = "catchException lbl=fail"
1553 in let catchHandler_443 (!failInp_444) (!farInp_445) (!farExp_446) =
1554 let _ = "catchException.ko lbl=fail"
1555 in if ( \( Data.Text.Internal.Text
1556 _
1557 i_447
1558 _
1559 )
1560 ( Data.Text.Internal.Text
1561 _
1562 j_448
1563 _
1564 ) -> i_447 GHC.Classes.== j_448
1565 )
1566 inp_289
1567 failInp_444
1568 then
1569 let _ = "choicesBranch.then"
1570 in let _ = "catchException lbl=fail"
1571 in let catchHandler_449 (!failInp_450) (!farInp_451) (!farExp_452) =
1572 let _ = "catchException.ko lbl=fail"
1573 in let (#
1574 farInp_453,
1575 farExp_454
1576 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_451 failInp_444 of
1577 GHC.Types.LT ->
1578 (#
1579 failInp_444,
1580 []
1581 #)
1582 GHC.Types.EQ ->
1583 (#
1584 farInp_451,
1585 farExp_452 GHC.Base.<> []
1586 #)
1587 GHC.Types.GT ->
1588 (#
1589 farInp_451,
1590 farExp_452
1591 #)
1592 in catchHandler_332 failInp_444 farInp_453 farExp_454
1593 in let readFail_455 = catchHandler_449
1594 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 10 failInp_444)
1595 then
1596 let !(#
1597 c_456,
1598 cs_457
1599 #) = readNext_3 failInp_444
1600 in if ('w' GHC.Classes.==) c_456
1601 then
1602 let readFail_458 = readFail_455
1603 in let !(#
1604 c_459,
1605 cs_460
1606 #) = readNext_3 cs_457
1607 in if ('h' GHC.Classes.==) c_459
1608 then
1609 let readFail_461 = readFail_455
1610 in let !(#
1611 c_462,
1612 cs_463
1613 #) = readNext_3 cs_460
1614 in if ('i' GHC.Classes.==) c_462
1615 then
1616 let readFail_464 = readFail_455
1617 in let !(#
1618 c_465,
1619 cs_466
1620 #) = readNext_3 cs_463
1621 in if ('l' GHC.Classes.==) c_465
1622 then
1623 let readFail_467 = readFail_455
1624 in let !(#
1625 c_468,
1626 cs_469
1627 #) = readNext_3 cs_466
1628 in if ('e' GHC.Classes.==) c_468
1629 then
1630 name_423
1631 ( let _ = "suspend"
1632 in \farInp_470 farExp_471 v_472 (!inp_473) ->
1633 name_102
1634 ( let _ = "suspend"
1635 in \farInp_474 farExp_475 v_476 (!inp_477) ->
1636 name_478
1637 ( let _ = "suspend"
1638 in \farInp_479 farExp_480 v_481 (!inp_482) ->
1639 let _ = "resume"
1640 in join_438
1641 farInp_479
1642 farExp_480
1643 ( let _ = "resume.genCode"
1644 in v_481
1645 )
1646 inp_482
1647 )
1648 inp_477
1649 (Data.Map.Internal.Bin 1 "fail" catchHandler_332 Data.Map.Internal.Tip Data.Map.Internal.Tip)
1650 )
1651 inp_473
1652 Data.Map.Internal.Tip
1653 )
1654 cs_469
1655 Data.Map.Internal.Tip
1656 else
1657 let _ = "checkToken.else"
1658 in let (#
1659 farInp_483,
1660 farExp_484
1661 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_445 cs_466 of
1662 GHC.Types.LT ->
1663 (#
1664 cs_466,
1665 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'e']
1666 #)
1667 GHC.Types.EQ ->
1668 (#
1669 farInp_445,
1670 farExp_446 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'e']
1671 #)
1672 GHC.Types.GT ->
1673 (#
1674 farInp_445,
1675 farExp_446
1676 #)
1677 in readFail_455 cs_466 farInp_483 farExp_484
1678 else
1679 let _ = "checkToken.else"
1680 in let (#
1681 farInp_485,
1682 farExp_486
1683 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_445 cs_463 of
1684 GHC.Types.LT ->
1685 (#
1686 cs_463,
1687 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'l']
1688 #)
1689 GHC.Types.EQ ->
1690 (#
1691 farInp_445,
1692 farExp_446 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'l']
1693 #)
1694 GHC.Types.GT ->
1695 (#
1696 farInp_445,
1697 farExp_446
1698 #)
1699 in readFail_455 cs_463 farInp_485 farExp_486
1700 else
1701 let _ = "checkToken.else"
1702 in let (#
1703 farInp_487,
1704 farExp_488
1705 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_445 cs_460 of
1706 GHC.Types.LT ->
1707 (#
1708 cs_460,
1709 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'i']
1710 #)
1711 GHC.Types.EQ ->
1712 (#
1713 farInp_445,
1714 farExp_446 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'i']
1715 #)
1716 GHC.Types.GT ->
1717 (#
1718 farInp_445,
1719 farExp_446
1720 #)
1721 in readFail_455 cs_460 farInp_487 farExp_488
1722 else
1723 let _ = "checkToken.else"
1724 in let (#
1725 farInp_489,
1726 farExp_490
1727 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_445 cs_457 of
1728 GHC.Types.LT ->
1729 (#
1730 cs_457,
1731 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'h']
1732 #)
1733 GHC.Types.EQ ->
1734 (#
1735 farInp_445,
1736 farExp_446 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'h']
1737 #)
1738 GHC.Types.GT ->
1739 (#
1740 farInp_445,
1741 farExp_446
1742 #)
1743 in readFail_455 cs_457 farInp_489 farExp_490
1744 else
1745 let _ = "checkToken.else"
1746 in let (#
1747 farInp_491,
1748 farExp_492
1749 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_445 failInp_444 of
1750 GHC.Types.LT ->
1751 (#
1752 failInp_444,
1753 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'w']
1754 #)
1755 GHC.Types.EQ ->
1756 (#
1757 farInp_445,
1758 farExp_446 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'w']
1759 #)
1760 GHC.Types.GT ->
1761 (#
1762 farInp_445,
1763 farExp_446
1764 #)
1765 in readFail_455 failInp_444 farInp_491 farExp_492
1766 else
1767 let _ = "checkHorizon.else"
1768 in let (#
1769 farInp_493,
1770 farExp_494
1771 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_445 failInp_444 of
1772 GHC.Types.LT ->
1773 (#
1774 failInp_444,
1775 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 11]
1776 #)
1777 GHC.Types.EQ ->
1778 (#
1779 farInp_445,
1780 farExp_446 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 11]
1781 #)
1782 GHC.Types.GT ->
1783 (#
1784 farInp_445,
1785 farExp_446
1786 #)
1787 in readFail_455 failInp_444 farInp_493 farExp_494
1788 else
1789 let _ = "choicesBranch.else"
1790 in let (#
1791 farInp_495,
1792 farExp_496
1793 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_445 failInp_444 of
1794 GHC.Types.LT ->
1795 (#
1796 failInp_444,
1797 []
1798 #)
1799 GHC.Types.EQ ->
1800 (#
1801 farInp_445,
1802 farExp_446 GHC.Base.<> []
1803 #)
1804 GHC.Types.GT ->
1805 (#
1806 farInp_445,
1807 farExp_446
1808 #)
1809 in catchHandler_332 failInp_444 farInp_495 farExp_496
1810 in let _ = "catchException lbl=fail"
1811 in let catchHandler_497 (!failInp_498) (!farInp_499) (!farExp_500) =
1812 let _ = "catchException.ko lbl=fail"
1813 in let (#
1814 farInp_501,
1815 farExp_502
1816 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_499 inp_289 of
1817 GHC.Types.LT ->
1818 (#
1819 inp_289,
1820 []
1821 #)
1822 GHC.Types.EQ ->
1823 (#
1824 farInp_499,
1825 farExp_500 GHC.Base.<> []
1826 #)
1827 GHC.Types.GT ->
1828 (#
1829 farInp_499,
1830 farExp_500
1831 #)
1832 in catchHandler_443 inp_289 farInp_501 farExp_502
1833 in let readFail_503 = catchHandler_497
1834 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_289)
1835 then
1836 let !(#
1837 c_504,
1838 cs_505
1839 #) = readNext_3 inp_289
1840 in if ('i' GHC.Classes.==) c_504
1841 then
1842 let readFail_506 = readFail_503
1843 in let !(#
1844 c_507,
1845 cs_508
1846 #) = readNext_3 cs_505
1847 in if ('f' GHC.Classes.==) c_507
1848 then
1849 name_423
1850 ( let _ = "suspend"
1851 in \farInp_509 farExp_510 v_511 (!inp_512) ->
1852 let _ = "resume"
1853 in join_438
1854 farInp_509
1855 farExp_510
1856 ( let _ = "resume.genCode"
1857 in v_511
1858 )
1859 inp_512
1860 )
1861 cs_508
1862 Data.Map.Internal.Tip
1863 else
1864 let _ = "checkToken.else"
1865 in let (#
1866 farInp_513,
1867 farExp_514
1868 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_505 of
1869 GHC.Types.LT ->
1870 (#
1871 cs_505,
1872 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'f']
1873 #)
1874 GHC.Types.EQ ->
1875 (#
1876 init_1,
1877 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'f']
1878 #)
1879 GHC.Types.GT ->
1880 (#
1881 init_1,
1882 GHC.Types . []
1883 #)
1884 in readFail_503 cs_505 farInp_513 farExp_514
1885 else
1886 let _ = "checkToken.else"
1887 in let (#
1888 farInp_515,
1889 farExp_516
1890 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_289 of
1891 GHC.Types.LT ->
1892 (#
1893 inp_289,
1894 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'i']
1895 #)
1896 GHC.Types.EQ ->
1897 (#
1898 init_1,
1899 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'i']
1900 #)
1901 GHC.Types.GT ->
1902 (#
1903 init_1,
1904 GHC.Types . []
1905 #)
1906 in readFail_503 inp_289 farInp_515 farExp_516
1907 else
1908 let _ = "checkHorizon.else"
1909 in let (#
1910 farInp_517,
1911 farExp_518
1912 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_289 of
1913 GHC.Types.LT ->
1914 (#
1915 inp_289,
1916 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
1917 #)
1918 GHC.Types.EQ ->
1919 (#
1920 init_1,
1921 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
1922 #)
1923 GHC.Types.GT ->
1924 (#
1925 init_1,
1926 GHC.Types . []
1927 #)
1928 in readFail_503 inp_289 farInp_517 farExp_518
1929 name_85 = \(!ok_519) (!inp_520) (!koByLabel_521) ->
1930 let readFail_522 = Data.Map.Strict.Internal.findWithDefault finalRaise_18 "fail" koByLabel_521
1931 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_520)
1932 then
1933 let !(#
1934 c_523,
1935 cs_524
1936 #) = readNext_3 inp_520
1937 in if (')' GHC.Classes.==) c_523
1938 then
1939 name_144
1940 ( let _ = "suspend"
1941 in \farInp_525 farExp_526 v_527 (!inp_528) ->
1942 let _ = "resume"
1943 in ok_519
1944 farInp_525
1945 farExp_526
1946 ( let _ = "resume.genCode"
1947 in ')'
1948 )
1949 inp_528
1950 )
1951 cs_524
1952 (Data.Map.Internal.Bin 1 "fail" readFail_522 Data.Map.Internal.Tip Data.Map.Internal.Tip)
1953 else
1954 let _ = "checkToken.else"
1955 in let (#
1956 farInp_529,
1957 farExp_530
1958 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_520 of
1959 GHC.Types.LT ->
1960 (#
1961 inp_520,
1962 [Symantic.Parser.Grammar.Combinators.ErrorItemToken ')']
1963 #)
1964 GHC.Types.EQ ->
1965 (#
1966 init_1,
1967 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken ')']
1968 #)
1969 GHC.Types.GT ->
1970 (#
1971 init_1,
1972 GHC.Types . []
1973 #)
1974 in readFail_522 inp_520 farInp_529 farExp_530
1975 else
1976 let _ = "checkHorizon.else"
1977 in let (#
1978 farInp_531,
1979 farExp_532
1980 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_520 of
1981 GHC.Types.LT ->
1982 (#
1983 inp_520,
1984 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
1985 #)
1986 GHC.Types.EQ ->
1987 (#
1988 init_1,
1989 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
1990 #)
1991 GHC.Types.GT ->
1992 (#
1993 init_1,
1994 GHC.Types . []
1995 #)
1996 in readFail_522 inp_520 farInp_531 farExp_532
1997 name_68 = \(!ok_533) (!inp_534) (!koByLabel_535) ->
1998 let readFail_536 = Data.Map.Strict.Internal.findWithDefault finalRaise_18 "fail" koByLabel_535
1999 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 4 inp_534)
2000 then
2001 let !(#
2002 c_537,
2003 cs_538
2004 #) = readNext_3 inp_534
2005 in if ('[' GHC.Classes.==) c_537
2006 then
2007 name_144
2008 ( let _ = "suspend"
2009 in \farInp_539 farExp_540 v_541 (!inp_542) ->
2010 name_543
2011 ( let _ = "suspend"
2012 in \farInp_544 farExp_545 v_546 (!inp_547) ->
2013 name_548
2014 ( let _ = "suspend"
2015 in \farInp_549 farExp_550 v_551 (!inp_552) ->
2016 let readFail_553 = readFail_536
2017 in if readMore_2 inp_552
2018 then
2019 let !(#
2020 c_554,
2021 cs_555
2022 #) = readNext_3 inp_552
2023 in if (']' GHC.Classes.==) c_554
2024 then
2025 name_144
2026 ( let _ = "suspend"
2027 in \farInp_556 farExp_557 v_558 (!inp_559) ->
2028 let _ = "resume"
2029 in ok_533
2030 farInp_556
2031 farExp_557
2032 ( let _ = "resume.genCode"
2033 in GHC.Tuple . ()
2034 )
2035 inp_559
2036 )
2037 cs_555
2038 (Data.Map.Internal.Bin 1 "fail" readFail_553 Data.Map.Internal.Tip Data.Map.Internal.Tip)
2039 else
2040 let _ = "checkToken.else"
2041 in let (#
2042 farInp_560,
2043 farExp_561
2044 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_549 inp_552 of
2045 GHC.Types.LT ->
2046 (#
2047 inp_552,
2048 [Symantic.Parser.Grammar.Combinators.ErrorItemToken ']']
2049 #)
2050 GHC.Types.EQ ->
2051 (#
2052 farInp_549,
2053 farExp_550 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken ']']
2054 #)
2055 GHC.Types.GT ->
2056 (#
2057 farInp_549,
2058 farExp_550
2059 #)
2060 in readFail_553 inp_552 farInp_560 farExp_561
2061 else
2062 let _ = "checkHorizon.else"
2063 in let (#
2064 farInp_562,
2065 farExp_563
2066 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_549 inp_552 of
2067 GHC.Types.LT ->
2068 (#
2069 inp_552,
2070 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
2071 #)
2072 GHC.Types.EQ ->
2073 (#
2074 farInp_549,
2075 farExp_550 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
2076 #)
2077 GHC.Types.GT ->
2078 (#
2079 farInp_549,
2080 farExp_550
2081 #)
2082 in readFail_553 inp_552 farInp_562 farExp_563
2083 )
2084 inp_547
2085 Data.Map.Internal.Tip
2086 )
2087 inp_542
2088 (Data.Map.Internal.Bin 1 "fail" readFail_536 Data.Map.Internal.Tip Data.Map.Internal.Tip)
2089 )
2090 cs_538
2091 (Data.Map.Internal.Bin 1 "fail" readFail_536 Data.Map.Internal.Tip Data.Map.Internal.Tip)
2092 else
2093 let _ = "checkToken.else"
2094 in let (#
2095 farInp_564,
2096 farExp_565
2097 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_534 of
2098 GHC.Types.LT ->
2099 (#
2100 inp_534,
2101 [Symantic.Parser.Grammar.Combinators.ErrorItemToken '[']
2102 #)
2103 GHC.Types.EQ ->
2104 (#
2105 init_1,
2106 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '[']
2107 #)
2108 GHC.Types.GT ->
2109 (#
2110 init_1,
2111 GHC.Types . []
2112 #)
2113 in readFail_536 inp_534 farInp_564 farExp_565
2114 else
2115 let _ = "checkHorizon.else"
2116 in let (#
2117 farInp_566,
2118 farExp_567
2119 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_534 of
2120 GHC.Types.LT ->
2121 (#
2122 inp_534,
2123 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 5]
2124 #)
2125 GHC.Types.EQ ->
2126 (#
2127 init_1,
2128 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 5]
2129 #)
2130 GHC.Types.GT ->
2131 (#
2132 init_1,
2133 GHC.Types . []
2134 #)
2135 in readFail_536 inp_534 farInp_566 farExp_567
2136 name_75 = \(!ok_568) (!inp_569) (!koByLabel_570) ->
2137 let readFail_571 = Data.Map.Strict.Internal.findWithDefault finalRaise_18 "fail" koByLabel_570
2138 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_569)
2139 then
2140 let !(#
2141 c_572,
2142 cs_573
2143 #) = readNext_3 inp_569
2144 in if ('(' GHC.Classes.==) c_572
2145 then
2146 name_144
2147 ( let _ = "suspend"
2148 in \farInp_574 farExp_575 v_576 (!inp_577) ->
2149 let _ = "resume"
2150 in ok_568
2151 farInp_574
2152 farExp_575
2153 ( let _ = "resume.genCode"
2154 in '('
2155 )
2156 inp_577
2157 )
2158 cs_573
2159 (Data.Map.Internal.Bin 1 "fail" readFail_571 Data.Map.Internal.Tip Data.Map.Internal.Tip)
2160 else
2161 let _ = "checkToken.else"
2162 in let (#
2163 farInp_578,
2164 farExp_579
2165 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_569 of
2166 GHC.Types.LT ->
2167 (#
2168 inp_569,
2169 [Symantic.Parser.Grammar.Combinators.ErrorItemToken '(']
2170 #)
2171 GHC.Types.EQ ->
2172 (#
2173 init_1,
2174 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '(']
2175 #)
2176 GHC.Types.GT ->
2177 (#
2178 init_1,
2179 GHC.Types . []
2180 #)
2181 in readFail_571 inp_569 farInp_578 farExp_579
2182 else
2183 let _ = "checkHorizon.else"
2184 in let (#
2185 farInp_580,
2186 farExp_581
2187 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_569 of
2188 GHC.Types.LT ->
2189 (#
2190 inp_569,
2191 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
2192 #)
2193 GHC.Types.EQ ->
2194 (#
2195 init_1,
2196 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
2197 #)
2198 GHC.Types.GT ->
2199 (#
2200 init_1,
2201 GHC.Types . []
2202 #)
2203 in readFail_571 inp_569 farInp_580 farExp_581
2204 name_548 = \(!ok_582) (!inp_583) (!koByLabel_584) ->
2205 let _ = "catchException lbl=fail"
2206 in let catchHandler_585 (!failInp_586) (!farInp_587) (!farExp_588) =
2207 let _ = "catchException.ko lbl=fail"
2208 in if ( \( Data.Text.Internal.Text
2209 _
2210 i_589
2211 _
2212 )
2213 ( Data.Text.Internal.Text
2214 _
2215 j_590
2216 _
2217 ) -> i_589 GHC.Classes.== j_590
2218 )
2219 inp_583
2220 failInp_586
2221 then
2222 let _ = "choicesBranch.then"
2223 in let _ = "resume"
2224 in ok_582
2225 farInp_587
2226 farExp_588
2227 ( let _ = "resume.genCode"
2228 in \x_591 -> x_591
2229 )
2230 failInp_586
2231 else
2232 let _ = "choicesBranch.else"
2233 in let (#
2234 farInp_592,
2235 farExp_593
2236 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_587 failInp_586 of
2237 GHC.Types.LT ->
2238 (#
2239 failInp_586,
2240 []
2241 #)
2242 GHC.Types.EQ ->
2243 (#
2244 farInp_587,
2245 farExp_588 GHC.Base.<> []
2246 #)
2247 GHC.Types.GT ->
2248 (#
2249 farInp_587,
2250 farExp_588
2251 #)
2252 in finalRaise_18 failInp_586 farInp_592 farExp_593
2253 in name_543
2254 ( let _ = "suspend"
2255 in \farInp_594 farExp_595 v_596 (!inp_597) ->
2256 name_548
2257 ( let _ = "suspend"
2258 in \farInp_598 farExp_599 v_600 (!inp_601) ->
2259 let _ = "resume"
2260 in ok_582
2261 farInp_598
2262 farExp_599
2263 ( let _ = "resume.genCode"
2264 in \x_602 -> v_600 x_602
2265 )
2266 inp_601
2267 )
2268 inp_597
2269 Data.Map.Internal.Tip
2270 )
2271 inp_583
2272 (Data.Map.Internal.Bin 1 "fail" catchHandler_585 Data.Map.Internal.Tip Data.Map.Internal.Tip)
2273 name_237 = \(!ok_603) (!inp_604) (!koByLabel_605) ->
2274 let _ = "resume"
2275 in ok_603 init_1 GHC.Types
2276 . []
2277 ( let _ = "resume.genCode"
2278 in \x_606 -> \x_607 -> x_607
2279 )
2280 inp_604
2281 name_50 = \(!ok_608) (!inp_609) (!koByLabel_610) ->
2282 let _ = "resume"
2283 in ok_608 init_1 GHC.Types
2284 . []
2285 ( let _ = "resume.genCode"
2286 in GHC.Tuple . ()
2287 )
2288 inp_609
2289 name_611 = \(!ok_612) (!inp_613) (!koByLabel_614) ->
2290 let _ = "catchException lbl=fail"
2291 in let catchHandler_615 (!failInp_616) (!farInp_617) (!farExp_618) =
2292 let _ = "catchException.ko lbl=fail"
2293 in if ( \( Data.Text.Internal.Text
2294 _
2295 i_619
2296 _
2297 )
2298 ( Data.Text.Internal.Text
2299 _
2300 j_620
2301 _
2302 ) -> i_619 GHC.Classes.== j_620
2303 )
2304 inp_613
2305 failInp_616
2306 then
2307 let _ = "choicesBranch.then"
2308 in let _ = "resume"
2309 in ok_612
2310 farInp_617
2311 farExp_618
2312 ( let _ = "resume.genCode"
2313 in \x_621 -> x_621
2314 )
2315 failInp_616
2316 else
2317 let _ = "choicesBranch.else"
2318 in let (#
2319 farInp_622,
2320 farExp_623
2321 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_617 failInp_616 of
2322 GHC.Types.LT ->
2323 (#
2324 failInp_616,
2325 []
2326 #)
2327 GHC.Types.EQ ->
2328 (#
2329 farInp_617,
2330 farExp_618 GHC.Base.<> []
2331 #)
2332 GHC.Types.GT ->
2333 (#
2334 farInp_617,
2335 farExp_618
2336 #)
2337 in finalRaise_18 failInp_616 farInp_622 farExp_623
2338 in let readFail_624 = catchHandler_615
2339 in if readMore_2 inp_613
2340 then
2341 let !(#
2342 c_625,
2343 cs_626
2344 #) = readNext_3 inp_613
2345 in if Grammar.Nandlang.nandIdentLetter c_625
2346 then
2347 name_611
2348 ( let _ = "suspend"
2349 in \farInp_627 farExp_628 v_629 (!inp_630) ->
2350 let _ = "resume"
2351 in ok_612
2352 farInp_627
2353 farExp_628
2354 ( let _ = "resume.genCode"
2355 in \x_631 -> v_629 x_631
2356 )
2357 inp_630
2358 )
2359 cs_626
2360 Data.Map.Internal.Tip
2361 else
2362 let _ = "checkToken.else"
2363 in let (#
2364 farInp_632,
2365 farExp_633
2366 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_613 of
2367 GHC.Types.LT ->
2368 (#
2369 inp_613,
2370 [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "identLetter"]
2371 #)
2372 GHC.Types.EQ ->
2373 (#
2374 init_1,
2375 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "identLetter"]
2376 #)
2377 GHC.Types.GT ->
2378 (#
2379 init_1,
2380 GHC.Types . []
2381 #)
2382 in readFail_624 inp_613 farInp_632 farExp_633
2383 else
2384 let _ = "checkHorizon.else"
2385 in let (#
2386 farInp_634,
2387 farExp_635
2388 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_613 of
2389 GHC.Types.LT ->
2390 (#
2391 inp_613,
2392 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
2393 #)
2394 GHC.Types.EQ ->
2395 (#
2396 init_1,
2397 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
2398 #)
2399 GHC.Types.GT ->
2400 (#
2401 init_1,
2402 GHC.Types . []
2403 #)
2404 in readFail_624 inp_613 farInp_634 farExp_635
2405 name_636 = \(!ok_637) (!inp_638) (!koByLabel_639) ->
2406 let _ = "catchException lbl=fail"
2407 in let catchHandler_640 (!failInp_641) (!farInp_642) (!farExp_643) =
2408 let _ = "catchException.ko lbl=fail"
2409 in if ( \( Data.Text.Internal.Text
2410 _
2411 i_644
2412 _
2413 )
2414 ( Data.Text.Internal.Text
2415 _
2416 j_645
2417 _
2418 ) -> i_644 GHC.Classes.== j_645
2419 )
2420 inp_638
2421 failInp_641
2422 then
2423 let _ = "choicesBranch.then"
2424 in let _ = "jump"
2425 in name_50 ok_637 failInp_641 Data.Map.Internal.Tip
2426 else
2427 let _ = "choicesBranch.else"
2428 in let (#
2429 farInp_646,
2430 farExp_647
2431 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_642 failInp_641 of
2432 GHC.Types.LT ->
2433 (#
2434 failInp_641,
2435 []
2436 #)
2437 GHC.Types.EQ ->
2438 (#
2439 farInp_642,
2440 farExp_643 GHC.Base.<> []
2441 #)
2442 GHC.Types.GT ->
2443 (#
2444 farInp_642,
2445 farExp_643
2446 #)
2447 in finalRaise_18 failInp_641 farInp_646 farExp_647
2448 in name_277
2449 ( let _ = "suspend"
2450 in \farInp_648 farExp_649 v_650 (!inp_651) ->
2451 name_50
2452 ( let _ = "suspend"
2453 in \farInp_652 farExp_653 v_654 (!inp_655) ->
2454 name_656
2455 ( let _ = "suspend"
2456 in \farInp_657 farExp_658 v_659 (!inp_660) ->
2457 name_50
2458 ( let _ = "suspend"
2459 in \farInp_661 farExp_662 v_663 (!inp_664) ->
2460 let _ = "resume"
2461 in ok_637
2462 farInp_661
2463 farExp_662
2464 ( let _ = "resume.genCode"
2465 in GHC.Tuple . ()
2466 )
2467 inp_664
2468 )
2469 inp_660
2470 Data.Map.Internal.Tip
2471 )
2472 inp_655
2473 Data.Map.Internal.Tip
2474 )
2475 inp_651
2476 Data.Map.Internal.Tip
2477 )
2478 inp_638
2479 Data.Map.Internal.Tip
2480 name_320 = \(!ok_665) (!inp_666) (!koByLabel_667) ->
2481 let readFail_668 = Data.Map.Strict.Internal.findWithDefault finalRaise_18 "fail" koByLabel_667
2482 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_666)
2483 then
2484 let !(#
2485 c_669,
2486 cs_670
2487 #) = readNext_3 inp_666
2488 in if (';' GHC.Classes.==) c_669
2489 then
2490 name_144
2491 ( let _ = "suspend"
2492 in \farInp_671 farExp_672 v_673 (!inp_674) ->
2493 let _ = "resume"
2494 in ok_665
2495 farInp_671
2496 farExp_672
2497 ( let _ = "resume.genCode"
2498 in ';'
2499 )
2500 inp_674
2501 )
2502 cs_670
2503 (Data.Map.Internal.Bin 1 "fail" readFail_668 Data.Map.Internal.Tip Data.Map.Internal.Tip)
2504 else
2505 let _ = "checkToken.else"
2506 in let (#
2507 farInp_675,
2508 farExp_676
2509 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_666 of
2510 GHC.Types.LT ->
2511 (#
2512 inp_666,
2513 [Symantic.Parser.Grammar.Combinators.ErrorItemToken ';']
2514 #)
2515 GHC.Types.EQ ->
2516 (#
2517 init_1,
2518 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken ';']
2519 #)
2520 GHC.Types.GT ->
2521 (#
2522 init_1,
2523 GHC.Types . []
2524 #)
2525 in readFail_668 inp_666 farInp_675 farExp_676
2526 else
2527 let _ = "checkHorizon.else"
2528 in let (#
2529 farInp_677,
2530 farExp_678
2531 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_666 of
2532 GHC.Types.LT ->
2533 (#
2534 inp_666,
2535 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
2536 #)
2537 GHC.Types.EQ ->
2538 (#
2539 init_1,
2540 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
2541 #)
2542 GHC.Types.GT ->
2543 (#
2544 init_1,
2545 GHC.Types . []
2546 #)
2547 in readFail_668 inp_666 farInp_677 farExp_678
2548 name_102 = \(!ok_679) (!inp_680) (!koByLabel_681) ->
2549 name_24
2550 ( let _ = "suspend"
2551 in \farInp_682 farExp_683 v_684 (!inp_685) ->
2552 name_50
2553 ( let _ = "suspend"
2554 in \farInp_686 farExp_687 v_688 (!inp_689) ->
2555 name_690
2556 ( let _ = "suspend"
2557 in \farInp_691 farExp_692 v_693 (!inp_694) ->
2558 name_50
2559 ( let _ = "suspend"
2560 in \farInp_695 farExp_696 v_697 (!inp_698) ->
2561 let _ = "resume"
2562 in ok_679
2563 farInp_695
2564 farExp_696
2565 ( let _ = "resume.genCode"
2566 in v_697
2567 )
2568 inp_698
2569 )
2570 inp_694
2571 Data.Map.Internal.Tip
2572 )
2573 inp_689
2574 Data.Map.Internal.Tip
2575 )
2576 inp_685
2577 Data.Map.Internal.Tip
2578 )
2579 inp_680
2580 Data.Map.Internal.Tip
2581 name_699 = \(!ok_700) (!inp_701) (!koByLabel_702) ->
2582 let _ = "catchException lbl=fail"
2583 in let catchHandler_703 (!failInp_704) (!farInp_705) (!farExp_706) =
2584 let _ = "catchException.ko lbl=fail"
2585 in if ( \( Data.Text.Internal.Text
2586 _
2587 i_707
2588 _
2589 )
2590 ( Data.Text.Internal.Text
2591 _
2592 j_708
2593 _
2594 ) -> i_707 GHC.Classes.== j_708
2595 )
2596 inp_701
2597 failInp_704
2598 then
2599 let _ = "choicesBranch.then"
2600 in let _ = "resume"
2601 in ok_700
2602 farInp_705
2603 farExp_706
2604 ( let _ = "resume.genCode"
2605 in \x_709 -> x_709
2606 )
2607 failInp_704
2608 else
2609 let _ = "choicesBranch.else"
2610 in let (#
2611 farInp_710,
2612 farExp_711
2613 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_705 failInp_704 of
2614 GHC.Types.LT ->
2615 (#
2616 failInp_704,
2617 []
2618 #)
2619 GHC.Types.EQ ->
2620 (#
2621 farInp_705,
2622 farExp_706 GHC.Base.<> []
2623 #)
2624 GHC.Types.GT ->
2625 (#
2626 farInp_705,
2627 farExp_706
2628 #)
2629 in finalRaise_18 failInp_704 farInp_710 farExp_711
2630 in let _ = "catchException lbl=fail"
2631 in let catchHandler_712 (!failInp_713) (!farInp_714) (!farExp_715) =
2632 let _ = "catchException.ko lbl=fail"
2633 in let (#
2634 farInp_716,
2635 farExp_717
2636 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_714 inp_701 of
2637 GHC.Types.LT ->
2638 (#
2639 inp_701,
2640 []
2641 #)
2642 GHC.Types.EQ ->
2643 (#
2644 farInp_714,
2645 farExp_715 GHC.Base.<> []
2646 #)
2647 GHC.Types.GT ->
2648 (#
2649 farInp_714,
2650 farExp_715
2651 #)
2652 in catchHandler_703 inp_701 farInp_716 farExp_717
2653 in let readFail_718 = catchHandler_712
2654 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 17 inp_701)
2655 then
2656 let !(#
2657 c_719,
2658 cs_720
2659 #) = readNext_3 inp_701
2660 in if ('f' GHC.Classes.==) c_719
2661 then
2662 let readFail_721 = readFail_718
2663 in let !(#
2664 c_722,
2665 cs_723
2666 #) = readNext_3 cs_720
2667 in if ('u' GHC.Classes.==) c_722
2668 then
2669 let readFail_724 = readFail_718
2670 in let !(#
2671 c_725,
2672 cs_726
2673 #) = readNext_3 cs_723
2674 in if ('n' GHC.Classes.==) c_725
2675 then
2676 let readFail_727 = readFail_718
2677 in let !(#
2678 c_728,
2679 cs_729
2680 #) = readNext_3 cs_726
2681 in if ('c' GHC.Classes.==) c_728
2682 then
2683 let readFail_730 = readFail_718
2684 in let !(#
2685 c_731,
2686 cs_732
2687 #) = readNext_3 cs_729
2688 in if ('t' GHC.Classes.==) c_731
2689 then
2690 let readFail_733 = readFail_718
2691 in let !(#
2692 c_734,
2693 cs_735
2694 #) = readNext_3 cs_732
2695 in if ('i' GHC.Classes.==) c_734
2696 then
2697 let readFail_736 = readFail_718
2698 in let !(#
2699 c_737,
2700 cs_738
2701 #) = readNext_3 cs_735
2702 in if ('o' GHC.Classes.==) c_737
2703 then
2704 let readFail_739 = readFail_718
2705 in let !(#
2706 c_740,
2707 cs_741
2708 #) = readNext_3 cs_738
2709 in if ('n' GHC.Classes.==) c_740
2710 then
2711 name_423
2712 ( let _ = "suspend"
2713 in \farInp_742 farExp_743 v_744 (!inp_745) ->
2714 name_34
2715 ( let _ = "suspend"
2716 in \farInp_746 farExp_747 v_748 (!inp_749) ->
2717 name_75
2718 ( let _ = "suspend"
2719 in \farInp_750 farExp_751 v_752 (!inp_753) ->
2720 name_636
2721 ( let _ = "suspend"
2722 in \farInp_754 farExp_755 v_756 (!inp_757) ->
2723 let join_758 = \farInp_759 farExp_760 v_761 (!inp_762) ->
2724 name_85
2725 ( let _ = "suspend"
2726 in \farInp_763 farExp_764 v_765 (!inp_766) ->
2727 name_478
2728 ( let _ = "suspend"
2729 in \farInp_767 farExp_768 v_769 (!inp_770) ->
2730 name_699
2731 ( let _ = "suspend"
2732 in \farInp_771 farExp_772 v_773 (!inp_774) ->
2733 let _ = "resume"
2734 in ok_700
2735 farInp_771
2736 farExp_772
2737 ( let _ = "resume.genCode"
2738 in \x_775 -> v_773 x_775
2739 )
2740 inp_774
2741 )
2742 inp_770
2743 Data.Map.Internal.Tip
2744 )
2745 inp_766
2746 (Data.Map.Internal.Bin 1 "fail" catchHandler_703 Data.Map.Internal.Tip Data.Map.Internal.Tip)
2747 )
2748 inp_762
2749 (Data.Map.Internal.Bin 1 "fail" catchHandler_703 Data.Map.Internal.Tip Data.Map.Internal.Tip)
2750 in let _ = "catchException lbl=fail"
2751 in let catchHandler_776 (!failInp_777) (!farInp_778) (!farExp_779) =
2752 let _ = "catchException.ko lbl=fail"
2753 in if ( \( Data.Text.Internal.Text
2754 _
2755 i_780
2756 _
2757 )
2758 ( Data.Text.Internal.Text
2759 _
2760 j_781
2761 _
2762 ) -> i_780 GHC.Classes.== j_781
2763 )
2764 inp_757
2765 failInp_777
2766 then
2767 let _ = "choicesBranch.then"
2768 in name_50
2769 ( let _ = "suspend"
2770 in \farInp_782 farExp_783 v_784 (!inp_785) ->
2771 let _ = "resume"
2772 in join_758
2773 farInp_782
2774 farExp_783
2775 ( let _ = "resume.genCode"
2776 in v_784
2777 )
2778 inp_785
2779 )
2780 failInp_777
2781 Data.Map.Internal.Tip
2782 else
2783 let _ = "choicesBranch.else"
2784 in let (#
2785 farInp_786,
2786 farExp_787
2787 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_778 failInp_777 of
2788 GHC.Types.LT ->
2789 (#
2790 failInp_777,
2791 []
2792 #)
2793 GHC.Types.EQ ->
2794 (#
2795 farInp_778,
2796 farExp_779 GHC.Base.<> []
2797 #)
2798 GHC.Types.GT ->
2799 (#
2800 farInp_778,
2801 farExp_779
2802 #)
2803 in catchHandler_703 failInp_777 farInp_786 farExp_787
2804 in let readFail_788 = catchHandler_776
2805 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_757)
2806 then
2807 let !(#
2808 c_789,
2809 cs_790
2810 #) = readNext_3 inp_757
2811 in if (':' GHC.Classes.==) c_789
2812 then
2813 name_144
2814 ( let _ = "suspend"
2815 in \farInp_791 farExp_792 v_793 (!inp_794) ->
2816 name_636
2817 ( let _ = "suspend"
2818 in \farInp_795 farExp_796 v_797 (!inp_798) ->
2819 let _ = "resume"
2820 in join_758
2821 farInp_795
2822 farExp_796
2823 ( let _ = "resume.genCode"
2824 in GHC.Tuple . ()
2825 )
2826 inp_798
2827 )
2828 inp_794
2829 Data.Map.Internal.Tip
2830 )
2831 cs_790
2832 (Data.Map.Internal.Bin 1 "fail" readFail_788 Data.Map.Internal.Tip Data.Map.Internal.Tip)
2833 else
2834 let _ = "checkToken.else"
2835 in let (#
2836 farInp_799,
2837 farExp_800
2838 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_754 inp_757 of
2839 GHC.Types.LT ->
2840 (#
2841 inp_757,
2842 [Symantic.Parser.Grammar.Combinators.ErrorItemToken ':']
2843 #)
2844 GHC.Types.EQ ->
2845 (#
2846 farInp_754,
2847 farExp_755 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken ':']
2848 #)
2849 GHC.Types.GT ->
2850 (#
2851 farInp_754,
2852 farExp_755
2853 #)
2854 in readFail_788 inp_757 farInp_799 farExp_800
2855 else
2856 let _ = "checkHorizon.else"
2857 in let (#
2858 farInp_801,
2859 farExp_802
2860 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_754 inp_757 of
2861 GHC.Types.LT ->
2862 (#
2863 inp_757,
2864 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
2865 #)
2866 GHC.Types.EQ ->
2867 (#
2868 farInp_754,
2869 farExp_755 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
2870 #)
2871 GHC.Types.GT ->
2872 (#
2873 farInp_754,
2874 farExp_755
2875 #)
2876 in readFail_788 inp_757 farInp_801 farExp_802
2877 )
2878 inp_753
2879 Data.Map.Internal.Tip
2880 )
2881 inp_749
2882 (Data.Map.Internal.Bin 1 "fail" catchHandler_703 Data.Map.Internal.Tip Data.Map.Internal.Tip)
2883 )
2884 inp_745
2885 Data.Map.Internal.Tip
2886 )
2887 cs_741
2888 Data.Map.Internal.Tip
2889 else
2890 let _ = "checkToken.else"
2891 in let (#
2892 farInp_803,
2893 farExp_804
2894 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_738 of
2895 GHC.Types.LT ->
2896 (#
2897 cs_738,
2898 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'n']
2899 #)
2900 GHC.Types.EQ ->
2901 (#
2902 init_1,
2903 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'n']
2904 #)
2905 GHC.Types.GT ->
2906 (#
2907 init_1,
2908 GHC.Types . []
2909 #)
2910 in readFail_718 cs_738 farInp_803 farExp_804
2911 else
2912 let _ = "checkToken.else"
2913 in let (#
2914 farInp_805,
2915 farExp_806
2916 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_735 of
2917 GHC.Types.LT ->
2918 (#
2919 cs_735,
2920 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'o']
2921 #)
2922 GHC.Types.EQ ->
2923 (#
2924 init_1,
2925 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'o']
2926 #)
2927 GHC.Types.GT ->
2928 (#
2929 init_1,
2930 GHC.Types . []
2931 #)
2932 in readFail_718 cs_735 farInp_805 farExp_806
2933 else
2934 let _ = "checkToken.else"
2935 in let (#
2936 farInp_807,
2937 farExp_808
2938 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_732 of
2939 GHC.Types.LT ->
2940 (#
2941 cs_732,
2942 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'i']
2943 #)
2944 GHC.Types.EQ ->
2945 (#
2946 init_1,
2947 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'i']
2948 #)
2949 GHC.Types.GT ->
2950 (#
2951 init_1,
2952 GHC.Types . []
2953 #)
2954 in readFail_718 cs_732 farInp_807 farExp_808
2955 else
2956 let _ = "checkToken.else"
2957 in let (#
2958 farInp_809,
2959 farExp_810
2960 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_729 of
2961 GHC.Types.LT ->
2962 (#
2963 cs_729,
2964 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 't']
2965 #)
2966 GHC.Types.EQ ->
2967 (#
2968 init_1,
2969 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 't']
2970 #)
2971 GHC.Types.GT ->
2972 (#
2973 init_1,
2974 GHC.Types . []
2975 #)
2976 in readFail_718 cs_729 farInp_809 farExp_810
2977 else
2978 let _ = "checkToken.else"
2979 in let (#
2980 farInp_811,
2981 farExp_812
2982 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_726 of
2983 GHC.Types.LT ->
2984 (#
2985 cs_726,
2986 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'c']
2987 #)
2988 GHC.Types.EQ ->
2989 (#
2990 init_1,
2991 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'c']
2992 #)
2993 GHC.Types.GT ->
2994 (#
2995 init_1,
2996 GHC.Types . []
2997 #)
2998 in readFail_718 cs_726 farInp_811 farExp_812
2999 else
3000 let _ = "checkToken.else"
3001 in let (#
3002 farInp_813,
3003 farExp_814
3004 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_723 of
3005 GHC.Types.LT ->
3006 (#
3007 cs_723,
3008 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'n']
3009 #)
3010 GHC.Types.EQ ->
3011 (#
3012 init_1,
3013 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'n']
3014 #)
3015 GHC.Types.GT ->
3016 (#
3017 init_1,
3018 GHC.Types . []
3019 #)
3020 in readFail_718 cs_723 farInp_813 farExp_814
3021 else
3022 let _ = "checkToken.else"
3023 in let (#
3024 farInp_815,
3025 farExp_816
3026 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 cs_720 of
3027 GHC.Types.LT ->
3028 (#
3029 cs_720,
3030 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'u']
3031 #)
3032 GHC.Types.EQ ->
3033 (#
3034 init_1,
3035 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'u']
3036 #)
3037 GHC.Types.GT ->
3038 (#
3039 init_1,
3040 GHC.Types . []
3041 #)
3042 in readFail_718 cs_720 farInp_815 farExp_816
3043 else
3044 let _ = "checkToken.else"
3045 in let (#
3046 farInp_817,
3047 farExp_818
3048 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_701 of
3049 GHC.Types.LT ->
3050 (#
3051 inp_701,
3052 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'f']
3053 #)
3054 GHC.Types.EQ ->
3055 (#
3056 init_1,
3057 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'f']
3058 #)
3059 GHC.Types.GT ->
3060 (#
3061 init_1,
3062 GHC.Types . []
3063 #)
3064 in readFail_718 inp_701 farInp_817 farExp_818
3065 else
3066 let _ = "checkHorizon.else"
3067 in let (#
3068 farInp_819,
3069 farExp_820
3070 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_701 of
3071 GHC.Types.LT ->
3072 (#
3073 inp_701,
3074 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 18]
3075 #)
3076 GHC.Types.EQ ->
3077 (#
3078 init_1,
3079 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 18]
3080 #)
3081 GHC.Types.GT ->
3082 (#
3083 init_1,
3084 GHC.Types . []
3085 #)
3086 in readFail_718 inp_701 farInp_819 farExp_820
3087 name_34 = \(!ok_821) (!inp_822) (!koByLabel_823) ->
3088 let _ = "catchException lbl=fail"
3089 in let catchHandler_824 (!failInp_825) (!farInp_826) (!farExp_827) =
3090 let _ = "catchException.ko lbl=fail"
3091 in let (#
3092 farInp_828,
3093 farExp_829
3094 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_826 inp_822 of
3095 GHC.Types.LT ->
3096 (#
3097 inp_822,
3098 []
3099 #)
3100 GHC.Types.EQ ->
3101 (#
3102 farInp_826,
3103 farExp_827 GHC.Base.<> []
3104 #)
3105 GHC.Types.GT ->
3106 (#
3107 farInp_826,
3108 farExp_827
3109 #)
3110 in finalRaise_18 inp_822 farInp_828 farExp_829
3111 in let readFail_830 = catchHandler_824
3112 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_822)
3113 then
3114 let !(#
3115 c_831,
3116 cs_832
3117 #) = readNext_3 inp_822
3118 in if Grammar.Nandlang.nandIdentStart c_831
3119 then
3120 name_50
3121 ( let _ = "suspend"
3122 in \farInp_833 farExp_834 v_835 (!inp_836) ->
3123 name_611
3124 ( let _ = "suspend"
3125 in \farInp_837 farExp_838 v_839 (!inp_840) ->
3126 name_50
3127 ( let _ = "suspend"
3128 in \farInp_841 farExp_842 v_843 (!inp_844) ->
3129 name_144
3130 ( let _ = "suspend"
3131 in \farInp_845 farExp_846 v_847 (!inp_848) ->
3132 let _ = "resume"
3133 in ok_821
3134 farInp_845
3135 farExp_846
3136 ( let _ = "resume.genCode"
3137 in v_847
3138 )
3139 inp_848
3140 )
3141 inp_844
3142 Data.Map.Internal.Tip
3143 )
3144 inp_840
3145 Data.Map.Internal.Tip
3146 )
3147 inp_836
3148 Data.Map.Internal.Tip
3149 )
3150 cs_832
3151 Data.Map.Internal.Tip
3152 else
3153 let _ = "checkToken.else"
3154 in let (#
3155 farInp_849,
3156 farExp_850
3157 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_822 of
3158 GHC.Types.LT ->
3159 (#
3160 inp_822,
3161 [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "identStart"]
3162 #)
3163 GHC.Types.EQ ->
3164 (#
3165 init_1,
3166 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "identStart"]
3167 #)
3168 GHC.Types.GT ->
3169 (#
3170 init_1,
3171 GHC.Types . []
3172 #)
3173 in readFail_830 inp_822 farInp_849 farExp_850
3174 else
3175 let _ = "checkHorizon.else"
3176 in let (#
3177 farInp_851,
3178 farExp_852
3179 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_822 of
3180 GHC.Types.LT ->
3181 (#
3182 inp_822,
3183 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
3184 #)
3185 GHC.Types.EQ ->
3186 (#
3187 init_1,
3188 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
3189 #)
3190 GHC.Types.GT ->
3191 (#
3192 init_1,
3193 GHC.Types . []
3194 #)
3195 in readFail_830 inp_822 farInp_851 farExp_852
3196 name_478 = \(!ok_853) (!inp_854) (!koByLabel_855) ->
3197 let readFail_856 = Data.Map.Strict.Internal.findWithDefault finalRaise_18 "fail" koByLabel_855
3198 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 3 inp_854)
3199 then
3200 let !(#
3201 c_857,
3202 cs_858
3203 #) = readNext_3 inp_854
3204 in if ('{' GHC.Classes.==) c_857
3205 then
3206 name_144
3207 ( let _ = "suspend"
3208 in \farInp_859 farExp_860 v_861 (!inp_862) ->
3209 name_50
3210 ( let _ = "suspend"
3211 in \farInp_863 farExp_864 v_865 (!inp_866) ->
3212 name_287
3213 ( let _ = "suspend"
3214 in \farInp_867 farExp_868 v_869 (!inp_870) ->
3215 name_50
3216 ( let _ = "suspend"
3217 in \farInp_871 farExp_872 v_873 (!inp_874) ->
3218 let readFail_875 = readFail_856
3219 in if readMore_2 inp_874
3220 then
3221 let !(#
3222 c_876,
3223 cs_877
3224 #) = readNext_3 inp_874
3225 in if ('}' GHC.Classes.==) c_876
3226 then
3227 name_144
3228 ( let _ = "suspend"
3229 in \farInp_878 farExp_879 v_880 (!inp_881) ->
3230 let _ = "resume"
3231 in ok_853
3232 farInp_878
3233 farExp_879
3234 ( let _ = "resume.genCode"
3235 in v_873
3236 )
3237 inp_881
3238 )
3239 cs_877
3240 (Data.Map.Internal.Bin 1 "fail" readFail_875 Data.Map.Internal.Tip Data.Map.Internal.Tip)
3241 else
3242 let _ = "checkToken.else"
3243 in let (#
3244 farInp_882,
3245 farExp_883
3246 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_871 inp_874 of
3247 GHC.Types.LT ->
3248 (#
3249 inp_874,
3250 [Symantic.Parser.Grammar.Combinators.ErrorItemToken '}']
3251 #)
3252 GHC.Types.EQ ->
3253 (#
3254 farInp_871,
3255 farExp_872 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '}']
3256 #)
3257 GHC.Types.GT ->
3258 (#
3259 farInp_871,
3260 farExp_872
3261 #)
3262 in readFail_875 inp_874 farInp_882 farExp_883
3263 else
3264 let _ = "checkHorizon.else"
3265 in let (#
3266 farInp_884,
3267 farExp_885
3268 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_871 inp_874 of
3269 GHC.Types.LT ->
3270 (#
3271 inp_874,
3272 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
3273 #)
3274 GHC.Types.EQ ->
3275 (#
3276 farInp_871,
3277 farExp_872 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
3278 #)
3279 GHC.Types.GT ->
3280 (#
3281 farInp_871,
3282 farExp_872
3283 #)
3284 in readFail_875 inp_874 farInp_884 farExp_885
3285 )
3286 inp_870
3287 Data.Map.Internal.Tip
3288 )
3289 inp_866
3290 Data.Map.Internal.Tip
3291 )
3292 inp_862
3293 Data.Map.Internal.Tip
3294 )
3295 cs_858
3296 (Data.Map.Internal.Bin 1 "fail" readFail_856 Data.Map.Internal.Tip Data.Map.Internal.Tip)
3297 else
3298 let _ = "checkToken.else"
3299 in let (#
3300 farInp_886,
3301 farExp_887
3302 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_854 of
3303 GHC.Types.LT ->
3304 (#
3305 inp_854,
3306 [Symantic.Parser.Grammar.Combinators.ErrorItemToken '{']
3307 #)
3308 GHC.Types.EQ ->
3309 (#
3310 init_1,
3311 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '{']
3312 #)
3313 GHC.Types.GT ->
3314 (#
3315 init_1,
3316 GHC.Types . []
3317 #)
3318 in readFail_856 inp_854 farInp_886 farExp_887
3319 else
3320 let _ = "checkHorizon.else"
3321 in let (#
3322 farInp_888,
3323 farExp_889
3324 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_854 of
3325 GHC.Types.LT ->
3326 (#
3327 inp_854,
3328 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
3329 #)
3330 GHC.Types.EQ ->
3331 (#
3332 init_1,
3333 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
3334 #)
3335 GHC.Types.GT ->
3336 (#
3337 init_1,
3338 GHC.Types . []
3339 #)
3340 in readFail_856 inp_854 farInp_888 farExp_889
3341 name_656 = \(!ok_890) (!inp_891) (!koByLabel_892) ->
3342 let _ = "catchException lbl=fail"
3343 in let catchHandler_893 (!failInp_894) (!farInp_895) (!farExp_896) =
3344 let _ = "catchException.ko lbl=fail"
3345 in if ( \( Data.Text.Internal.Text
3346 _
3347 i_897
3348 _
3349 )
3350 ( Data.Text.Internal.Text
3351 _
3352 j_898
3353 _
3354 ) -> i_897 GHC.Classes.== j_898
3355 )
3356 inp_891
3357 failInp_894
3358 then
3359 let _ = "choicesBranch.then"
3360 in let _ = "resume"
3361 in ok_890
3362 farInp_895
3363 farExp_896
3364 ( let _ = "resume.genCode"
3365 in \x_899 -> x_899
3366 )
3367 failInp_894
3368 else
3369 let _ = "choicesBranch.else"
3370 in let (#
3371 farInp_900,
3372 farExp_901
3373 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_895 failInp_894 of
3374 GHC.Types.LT ->
3375 (#
3376 failInp_894,
3377 []
3378 #)
3379 GHC.Types.EQ ->
3380 (#
3381 farInp_895,
3382 farExp_896 GHC.Base.<> []
3383 #)
3384 GHC.Types.GT ->
3385 (#
3386 farInp_895,
3387 farExp_896
3388 #)
3389 in finalRaise_18 failInp_894 farInp_900 farExp_901
3390 in name_237
3391 ( let _ = "suspend"
3392 in \farInp_902 farExp_903 v_904 (!inp_905) ->
3393 name_242
3394 ( let _ = "suspend"
3395 in \farInp_906 farExp_907 v_908 (!inp_909) ->
3396 name_277
3397 ( let _ = "suspend"
3398 in \farInp_910 farExp_911 v_912 (!inp_913) ->
3399 name_656
3400 ( let _ = "suspend"
3401 in \farInp_914 farExp_915 v_916 (!inp_917) ->
3402 let _ = "resume"
3403 in ok_890
3404 farInp_914
3405 farExp_915
3406 ( let _ = "resume.genCode"
3407 in \x_918 -> v_904 v_912 (v_916 x_918)
3408 )
3409 inp_917
3410 )
3411 inp_913
3412 Data.Map.Internal.Tip
3413 )
3414 inp_909
3415 Data.Map.Internal.Tip
3416 )
3417 inp_905
3418 (Data.Map.Internal.Bin 1 "fail" catchHandler_893 Data.Map.Internal.Tip Data.Map.Internal.Tip)
3419 )
3420 inp_891
3421 Data.Map.Internal.Tip
3422 name_423 = \(!ok_919) (!inp_920) (!koByLabel_921) ->
3423 let _ = "resume"
3424 in ok_919 init_1 GHC.Types
3425 . []
3426 ( let _ = "resume.genCode"
3427 in GHC.Tuple . ()
3428 )
3429 inp_920
3430 name_922 = \(!ok_923) (!inp_924) (!koByLabel_925) ->
3431 let _ = "catchException lbl=fail"
3432 in let catchHandler_926 (!failInp_927) (!farInp_928) (!farExp_929) =
3433 let _ = "catchException.ko lbl=fail"
3434 in if ( \( Data.Text.Internal.Text
3435 _
3436 i_930
3437 _
3438 )
3439 ( Data.Text.Internal.Text
3440 _
3441 j_931
3442 _
3443 ) -> i_930 GHC.Classes.== j_931
3444 )
3445 inp_924
3446 failInp_927
3447 then
3448 let _ = "choicesBranch.then"
3449 in let _ = "resume"
3450 in ok_923
3451 farInp_928
3452 farExp_929
3453 ( let _ = "resume.genCode"
3454 in \x_932 -> x_932
3455 )
3456 failInp_927
3457 else
3458 let _ = "choicesBranch.else"
3459 in let (#
3460 farInp_933,
3461 farExp_934
3462 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_928 failInp_927 of
3463 GHC.Types.LT ->
3464 (#
3465 failInp_927,
3466 []
3467 #)
3468 GHC.Types.EQ ->
3469 (#
3470 farInp_928,
3471 farExp_929 GHC.Base.<> []
3472 #)
3473 GHC.Types.GT ->
3474 (#
3475 farInp_928,
3476 farExp_929
3477 #)
3478 in finalRaise_18 failInp_927 farInp_933 farExp_934
3479 in name_935
3480 ( let _ = "suspend"
3481 in \farInp_936 farExp_937 v_938 (!inp_939) ->
3482 name_922
3483 ( let _ = "suspend"
3484 in \farInp_940 farExp_941 v_942 (!inp_943) ->
3485 let _ = "resume"
3486 in ok_923
3487 farInp_940
3488 farExp_941
3489 ( let _ = "resume.genCode"
3490 in \x_944 -> v_942 x_944
3491 )
3492 inp_943
3493 )
3494 inp_939
3495 Data.Map.Internal.Tip
3496 )
3497 inp_924
3498 (Data.Map.Internal.Bin 1 "fail" catchHandler_926 Data.Map.Internal.Tip Data.Map.Internal.Tip)
3499 name_935 = \(!ok_945) (!inp_946) (!koByLabel_947) ->
3500 let readFail_948 = Data.Map.Strict.Internal.findWithDefault finalRaise_18 "fail" koByLabel_947
3501 in if readMore_2 inp_946
3502 then
3503 let !(#
3504 c_949,
3505 cs_950
3506 #) = readNext_3 inp_946
3507 in if GHC.Unicode.isSpace c_949
3508 then
3509 name_50
3510 ( let _ = "suspend"
3511 in \farInp_951 farExp_952 v_953 (!inp_954) ->
3512 let _ = "resume"
3513 in ok_945
3514 farInp_951
3515 farExp_952
3516 ( let _ = "resume.genCode"
3517 in v_953
3518 )
3519 inp_954
3520 )
3521 cs_950
3522 Data.Map.Internal.Tip
3523 else
3524 let _ = "checkToken.else"
3525 in let (#
3526 farInp_955,
3527 farExp_956
3528 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_946 of
3529 GHC.Types.LT ->
3530 (#
3531 inp_946,
3532 [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "space"]
3533 #)
3534 GHC.Types.EQ ->
3535 (#
3536 init_1,
3537 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "space"]
3538 #)
3539 GHC.Types.GT ->
3540 (#
3541 init_1,
3542 GHC.Types . []
3543 #)
3544 in readFail_948 inp_946 farInp_955 farExp_956
3545 else
3546 let _ = "checkHorizon.else"
3547 in let (#
3548 farInp_957,
3549 farExp_958
3550 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_946 of
3551 GHC.Types.LT ->
3552 (#
3553 inp_946,
3554 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
3555 #)
3556 GHC.Types.EQ ->
3557 (#
3558 init_1,
3559 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
3560 #)
3561 GHC.Types.GT ->
3562 (#
3563 init_1,
3564 GHC.Types . []
3565 #)
3566 in readFail_948 inp_946 farInp_957 farExp_958
3567 name_690 = \(!ok_959) (!inp_960) (!koByLabel_961) ->
3568 let _ = "catchException lbl=fail"
3569 in let catchHandler_962 (!failInp_963) (!farInp_964) (!farExp_965) =
3570 let _ = "catchException.ko lbl=fail"
3571 in if ( \( Data.Text.Internal.Text
3572 _
3573 i_966
3574 _
3575 )
3576 ( Data.Text.Internal.Text
3577 _
3578 j_967
3579 _
3580 ) -> i_966 GHC.Classes.== j_967
3581 )
3582 inp_960
3583 failInp_963
3584 then
3585 let _ = "choicesBranch.then"
3586 in let _ = "resume"
3587 in ok_959
3588 farInp_964
3589 farExp_965
3590 ( let _ = "resume.genCode"
3591 in \x_968 -> x_968
3592 )
3593 failInp_963
3594 else
3595 let _ = "choicesBranch.else"
3596 in let (#
3597 farInp_969,
3598 farExp_970
3599 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_964 failInp_963 of
3600 GHC.Types.LT ->
3601 (#
3602 failInp_963,
3603 []
3604 #)
3605 GHC.Types.EQ ->
3606 (#
3607 farInp_964,
3608 farExp_965 GHC.Base.<> []
3609 #)
3610 GHC.Types.GT ->
3611 (#
3612 farInp_964,
3613 farExp_965
3614 #)
3615 in finalRaise_18 failInp_963 farInp_969 farExp_970
3616 in let readFail_971 = catchHandler_962
3617 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 3 inp_960)
3618 then
3619 let !(#
3620 c_972,
3621 cs_973
3622 #) = readNext_3 inp_960
3623 in if ('!' GHC.Classes.==) c_972
3624 then
3625 name_144
3626 ( let _ = "suspend"
3627 in \farInp_974 farExp_975 v_976 (!inp_977) ->
3628 name_24
3629 ( let _ = "suspend"
3630 in \farInp_978 farExp_979 v_980 (!inp_981) ->
3631 name_690
3632 ( let _ = "suspend"
3633 in \farInp_982 farExp_983 v_984 (!inp_985) ->
3634 let _ = "resume"
3635 in ok_959
3636 farInp_982
3637 farExp_983
3638 ( let _ = "resume.genCode"
3639 in \x_986 -> v_984 x_986
3640 )
3641 inp_985
3642 )
3643 inp_981
3644 Data.Map.Internal.Tip
3645 )
3646 inp_977
3647 Data.Map.Internal.Tip
3648 )
3649 cs_973
3650 (Data.Map.Internal.Bin 1 "fail" readFail_971 Data.Map.Internal.Tip Data.Map.Internal.Tip)
3651 else
3652 let _ = "checkToken.else"
3653 in let (#
3654 farInp_987,
3655 farExp_988
3656 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_960 of
3657 GHC.Types.LT ->
3658 (#
3659 inp_960,
3660 [Symantic.Parser.Grammar.Combinators.ErrorItemToken '!']
3661 #)
3662 GHC.Types.EQ ->
3663 (#
3664 init_1,
3665 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken '!']
3666 #)
3667 GHC.Types.GT ->
3668 (#
3669 init_1,
3670 GHC.Types . []
3671 #)
3672 in readFail_971 inp_960 farInp_987 farExp_988
3673 else
3674 let _ = "checkHorizon.else"
3675 in let (#
3676 farInp_989,
3677 farExp_990
3678 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_960 of
3679 GHC.Types.LT ->
3680 (#
3681 inp_960,
3682 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
3683 #)
3684 GHC.Types.EQ ->
3685 (#
3686 init_1,
3687 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
3688 #)
3689 GHC.Types.GT ->
3690 (#
3691 init_1,
3692 GHC.Types . []
3693 #)
3694 in readFail_971 inp_960 farInp_989 farExp_990
3695 name_242 = \(!ok_991) (!inp_992) (!koByLabel_993) ->
3696 let readFail_994 = Data.Map.Strict.Internal.findWithDefault finalRaise_18 "fail" koByLabel_993
3697 in if readMore_2 (Symantic.Parser.Machine.Input.shiftRightText 1 inp_992)
3698 then
3699 let !(#
3700 c_995,
3701 cs_996
3702 #) = readNext_3 inp_992
3703 in if (',' GHC.Classes.==) c_995
3704 then
3705 name_144
3706 ( let _ = "suspend"
3707 in \farInp_997 farExp_998 v_999 (!inp_1000) ->
3708 let _ = "resume"
3709 in ok_991
3710 farInp_997
3711 farExp_998
3712 ( let _ = "resume.genCode"
3713 in ','
3714 )
3715 inp_1000
3716 )
3717 cs_996
3718 (Data.Map.Internal.Bin 1 "fail" readFail_994 Data.Map.Internal.Tip Data.Map.Internal.Tip)
3719 else
3720 let _ = "checkToken.else"
3721 in let (#
3722 farInp_1001,
3723 farExp_1002
3724 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_992 of
3725 GHC.Types.LT ->
3726 (#
3727 inp_992,
3728 [Symantic.Parser.Grammar.Combinators.ErrorItemToken ',']
3729 #)
3730 GHC.Types.EQ ->
3731 (#
3732 init_1,
3733 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken ',']
3734 #)
3735 GHC.Types.GT ->
3736 (#
3737 init_1,
3738 GHC.Types . []
3739 #)
3740 in readFail_994 inp_992 farInp_1001 farExp_1002
3741 else
3742 let _ = "checkHorizon.else"
3743 in let (#
3744 farInp_1003,
3745 farExp_1004
3746 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_992 of
3747 GHC.Types.LT ->
3748 (#
3749 inp_992,
3750 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
3751 #)
3752 GHC.Types.EQ ->
3753 (#
3754 init_1,
3755 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
3756 #)
3757 GHC.Types.GT ->
3758 (#
3759 init_1,
3760 GHC.Types . []
3761 #)
3762 in readFail_994 inp_992 farInp_1003 farExp_1004
3763 name_277 = \(!ok_1005) (!inp_1006) (!koByLabel_1007) ->
3764 name_34
3765 ( let _ = "suspend"
3766 in \farInp_1008 farExp_1009 v_1010 (!inp_1011) ->
3767 let join_1012 = \farInp_1013 farExp_1014 v_1015 (!inp_1016) ->
3768 let _ = "resume"
3769 in ok_1005
3770 farInp_1013
3771 farExp_1014
3772 ( let _ = "resume.genCode"
3773 in v_1015
3774 )
3775 inp_1016
3776 in let _ = "catchException lbl=fail"
3777 in let catchHandler_1017 (!failInp_1018) (!farInp_1019) (!farExp_1020) =
3778 let _ = "catchException.ko lbl=fail"
3779 in if ( \( Data.Text.Internal.Text
3780 _
3781 i_1021
3782 _
3783 )
3784 ( Data.Text.Internal.Text
3785 _
3786 j_1022
3787 _
3788 ) -> i_1021 GHC.Classes.== j_1022
3789 )
3790 inp_1011
3791 failInp_1018
3792 then
3793 let _ = "choicesBranch.then"
3794 in name_50
3795 ( let _ = "suspend"
3796 in \farInp_1023 farExp_1024 v_1025 (!inp_1026) ->
3797 let _ = "resume"
3798 in join_1012
3799 farInp_1023
3800 farExp_1024
3801 ( let _ = "resume.genCode"
3802 in v_1025
3803 )
3804 inp_1026
3805 )
3806 failInp_1018
3807 Data.Map.Internal.Tip
3808 else
3809 let _ = "choicesBranch.else"
3810 in let (#
3811 farInp_1027,
3812 farExp_1028
3813 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_1019 failInp_1018 of
3814 GHC.Types.LT ->
3815 (#
3816 failInp_1018,
3817 []
3818 #)
3819 GHC.Types.EQ ->
3820 (#
3821 farInp_1019,
3822 farExp_1020 GHC.Base.<> []
3823 #)
3824 GHC.Types.GT ->
3825 (#
3826 farInp_1019,
3827 farExp_1020
3828 #)
3829 in finalRaise_18 failInp_1018 farInp_1027 farExp_1028
3830 in name_68
3831 ( let _ = "suspend"
3832 in \farInp_1029 farExp_1030 v_1031 (!inp_1032) ->
3833 let _ = "resume"
3834 in join_1012
3835 farInp_1029
3836 farExp_1030
3837 ( let _ = "resume.genCode"
3838 in GHC.Tuple . ()
3839 )
3840 inp_1032
3841 )
3842 inp_1011
3843 (Data.Map.Internal.Bin 1 "fail" catchHandler_1017 Data.Map.Internal.Tip Data.Map.Internal.Tip)
3844 )
3845 inp_1006
3846 Data.Map.Internal.Tip
3847 name_543 = \(!ok_1033) (!inp_1034) (!koByLabel_1035) ->
3848 let readFail_1036 = Data.Map.Strict.Internal.findWithDefault finalRaise_18 "fail" koByLabel_1035
3849 in if readMore_2 inp_1034
3850 then
3851 let !(#
3852 c_1037,
3853 cs_1038
3854 #) = readNext_3 inp_1034
3855 in if (\t_1039 -> ('0' GHC.Classes.== t_1039) GHC.Classes.|| (('1' GHC.Classes.== t_1039) GHC.Classes.|| (('2' GHC.Classes.== t_1039) GHC.Classes.|| (('3' GHC.Classes.== t_1039) GHC.Classes.|| (('4' GHC.Classes.== t_1039) GHC.Classes.|| (('5' GHC.Classes.== t_1039) GHC.Classes.|| (('6' GHC.Classes.== t_1039) GHC.Classes.|| (('7' GHC.Classes.== t_1039) GHC.Classes.|| (('8' GHC.Classes.== t_1039) GHC.Classes.|| (('9' GHC.Classes.== t_1039) GHC.Classes.|| GHC.Types.False)))))))))) c_1037
3856 then
3857 let _ = "resume"
3858 in ok_1033 init_1 GHC.Types
3859 . []
3860 ( let _ = "resume.genCode"
3861 in c_1037
3862 )
3863 cs_1038
3864 else
3865 let _ = "checkToken.else"
3866 in let (#
3867 farInp_1040,
3868 farExp_1041
3869 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_1034 of
3870 GHC.Types.LT ->
3871 (#
3872 inp_1034,
3873 [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "oneOf"]
3874 #)
3875 GHC.Types.EQ ->
3876 (#
3877 init_1,
3878 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemLabel "oneOf"]
3879 #)
3880 GHC.Types.GT ->
3881 (#
3882 init_1,
3883 GHC.Types . []
3884 #)
3885 in readFail_1036 inp_1034 farInp_1040 farExp_1041
3886 else
3887 let _ = "checkHorizon.else"
3888 in let (#
3889 farInp_1042,
3890 farExp_1043
3891 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_1034 of
3892 GHC.Types.LT ->
3893 (#
3894 inp_1034,
3895 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
3896 #)
3897 GHC.Types.EQ ->
3898 (#
3899 init_1,
3900 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
3901 #)
3902 GHC.Types.GT ->
3903 (#
3904 init_1,
3905 GHC.Types . []
3906 #)
3907 in readFail_1036 inp_1034 farInp_1042 farExp_1043
3908 name_111 = \(!ok_1044) (!inp_1045) (!koByLabel_1046) ->
3909 let _ = "catchException lbl=fail"
3910 in let catchHandler_1047 (!failInp_1048) (!farInp_1049) (!farExp_1050) =
3911 let _ = "catchException.ko lbl=fail"
3912 in if ( \( Data.Text.Internal.Text
3913 _
3914 i_1051
3915 _
3916 )
3917 ( Data.Text.Internal.Text
3918 _
3919 j_1052
3920 _
3921 ) -> i_1051 GHC.Classes.== j_1052
3922 )
3923 inp_1045
3924 failInp_1048
3925 then
3926 let _ = "choicesBranch.then"
3927 in let _ = "resume"
3928 in ok_1044
3929 farInp_1049
3930 farExp_1050
3931 ( let _ = "resume.genCode"
3932 in \x_1053 -> x_1053
3933 )
3934 failInp_1048
3935 else
3936 let _ = "choicesBranch.else"
3937 in let (#
3938 farInp_1054,
3939 farExp_1055
3940 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_1049 failInp_1048 of
3941 GHC.Types.LT ->
3942 (#
3943 failInp_1048,
3944 []
3945 #)
3946 GHC.Types.EQ ->
3947 (#
3948 farInp_1049,
3949 farExp_1050 GHC.Base.<> []
3950 #)
3951 GHC.Types.GT ->
3952 (#
3953 farInp_1049,
3954 farExp_1050
3955 #)
3956 in finalRaise_18 failInp_1048 farInp_1054 farExp_1055
3957 in name_237
3958 ( let _ = "suspend"
3959 in \farInp_1056 farExp_1057 v_1058 (!inp_1059) ->
3960 name_242
3961 ( let _ = "suspend"
3962 in \farInp_1060 farExp_1061 v_1062 (!inp_1063) ->
3963 name_102
3964 ( let _ = "suspend"
3965 in \farInp_1064 farExp_1065 v_1066 (!inp_1067) ->
3966 name_111
3967 ( let _ = "suspend"
3968 in \farInp_1068 farExp_1069 v_1070 (!inp_1071) ->
3969 let _ = "resume"
3970 in ok_1044
3971 farInp_1068
3972 farExp_1069
3973 ( let _ = "resume.genCode"
3974 in \x_1072 -> v_1058 v_1066 (v_1070 x_1072)
3975 )
3976 inp_1071
3977 )
3978 inp_1067
3979 Data.Map.Internal.Tip
3980 )
3981 inp_1063
3982 Data.Map.Internal.Tip
3983 )
3984 inp_1059
3985 (Data.Map.Internal.Bin 1 "fail" catchHandler_1047 Data.Map.Internal.Tip Data.Map.Internal.Tip)
3986 )
3987 inp_1045
3988 Data.Map.Internal.Tip
3989 name_144 = \(!ok_1073) (!inp_1074) (!koByLabel_1075) ->
3990 name_935
3991 ( let _ = "suspend"
3992 in \farInp_1076 farExp_1077 v_1078 (!inp_1079) ->
3993 name_922
3994 ( let _ = "suspend"
3995 in \farInp_1080 farExp_1081 v_1082 (!inp_1083) ->
3996 let _ = "resume"
3997 in ok_1073
3998 farInp_1080
3999 farExp_1081
4000 ( let _ = "resume.genCode"
4001 in GHC.Tuple . ()
4002 )
4003 inp_1083
4004 )
4005 inp_1079
4006 Data.Map.Internal.Tip
4007 )
4008 inp_1074
4009 (Data.Map.Internal.Bin 1 "fail" (Data.Map.Strict.Internal.findWithDefault finalRaise_18 "fail" koByLabel_1075) Data.Map.Internal.Tip Data.Map.Internal.Tip)
4010 in name_144
4011 ( let _ = "suspend"
4012 in \farInp_1084 farExp_1085 v_1086 (!inp_1087) ->
4013 name_50
4014 ( let _ = "suspend"
4015 in \farInp_1088 farExp_1089 v_1090 (!inp_1091) ->
4016 name_699
4017 ( let _ = "suspend"
4018 in \farInp_1092 farExp_1093 v_1094 (!inp_1095) ->
4019 name_50
4020 ( let _ = "suspend"
4021 in \farInp_1096 farExp_1097 v_1098 (!inp_1099) ->
4022 let join_1100 = \farInp_1101 farExp_1102 v_1103 (!inp_1104) ->
4023 let _ = "resume"
4024 in finalRet_13
4025 farInp_1101
4026 farExp_1102
4027 ( let _ = "resume.genCode"
4028 in v_1098
4029 )
4030 inp_1104
4031 in let _ = "catchException lbl=fail"
4032 in let catchHandler_1105 (!failInp_1106) (!farInp_1107) (!farExp_1108) =
4033 let _ = "catchException.ko lbl=fail"
4034 in if ( \( Data.Text.Internal.Text
4035 _
4036 i_1109
4037 _
4038 )
4039 ( Data.Text.Internal.Text
4040 _
4041 j_1110
4042 _
4043 ) -> i_1109 GHC.Classes.== j_1110
4044 )
4045 inp_1099
4046 failInp_1106
4047 then
4048 let _ = "choicesBranch.then"
4049 in let (#
4050 farInp_1111,
4051 farExp_1112
4052 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_1107 failInp_1106 of
4053 GHC.Types.LT ->
4054 (#
4055 failInp_1106,
4056 [Symantic.Parser.Grammar.Combinators.ErrorItemEnd]
4057 #)
4058 GHC.Types.EQ ->
4059 (#
4060 farInp_1107,
4061 farExp_1108 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemEnd]
4062 #)
4063 GHC.Types.GT ->
4064 (#
4065 farInp_1107,
4066 farExp_1108
4067 #)
4068 in finalRaise_18 failInp_1106 farInp_1111 farExp_1112
4069 else
4070 let _ = "choicesBranch.else"
4071 in let (#
4072 farInp_1113,
4073 farExp_1114
4074 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_1107 failInp_1106 of
4075 GHC.Types.LT ->
4076 (#
4077 failInp_1106,
4078 []
4079 #)
4080 GHC.Types.EQ ->
4081 (#
4082 farInp_1107,
4083 farExp_1108 GHC.Base.<> []
4084 #)
4085 GHC.Types.GT ->
4086 (#
4087 farInp_1107,
4088 farExp_1108
4089 #)
4090 in finalRaise_18 failInp_1106 farInp_1113 farExp_1114
4091 in let _ = "catchException lbl=fail"
4092 in let catchHandler_1115 (!failInp_1116) (!farInp_1117) (!farExp_1118) =
4093 let _ = "catchException.ko lbl=fail"
4094 in let _ = "resume"
4095 in join_1100
4096 farInp_1117
4097 farExp_1118
4098 ( let _ = "resume.genCode"
4099 in GHC.Tuple . ()
4100 )
4101 inp_1099
4102 in let readFail_1119 = catchHandler_1115
4103 in if readMore_2 inp_1099
4104 then
4105 let !(#
4106 c_1120,
4107 cs_1121
4108 #) = readNext_3 inp_1099
4109 in if (\x_1122 -> GHC.Types.True) c_1120
4110 then
4111 let (#
4112 farInp_1123,
4113 farExp_1124
4114 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_1096 inp_1099 of
4115 GHC.Types.LT ->
4116 (#
4117 inp_1099,
4118 []
4119 #)
4120 GHC.Types.EQ ->
4121 (#
4122 farInp_1096,
4123 farExp_1097 GHC.Base.<> []
4124 #)
4125 GHC.Types.GT ->
4126 (#
4127 farInp_1096,
4128 farExp_1097
4129 #)
4130 in catchHandler_1105 inp_1099 farInp_1123 farExp_1124
4131 else
4132 let _ = "checkToken.else"
4133 in let (#
4134 farInp_1125,
4135 farExp_1126
4136 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_1096 inp_1099 of
4137 GHC.Types.LT ->
4138 (#
4139 inp_1099,
4140 []
4141 #)
4142 GHC.Types.EQ ->
4143 (#
4144 farInp_1096,
4145 farExp_1097 GHC.Base.<> []
4146 #)
4147 GHC.Types.GT ->
4148 (#
4149 farInp_1096,
4150 farExp_1097
4151 #)
4152 in readFail_1119 inp_1099 farInp_1125 farExp_1126
4153 else
4154 let _ = "checkHorizon.else"
4155 in let (#
4156 farInp_1127,
4157 farExp_1128
4158 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_1096 inp_1099 of
4159 GHC.Types.LT ->
4160 (#
4161 inp_1099,
4162 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
4163 #)
4164 GHC.Types.EQ ->
4165 (#
4166 farInp_1096,
4167 farExp_1097 GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
4168 #)
4169 GHC.Types.GT ->
4170 (#
4171 farInp_1096,
4172 farExp_1097
4173 #)
4174 in readFail_1119 inp_1099 farInp_1127 farExp_1128
4175 )
4176 inp_1095
4177 Data.Map.Internal.Tip
4178 )
4179 inp_1091
4180 Data.Map.Internal.Tip
4181 )
4182 inp_1087
4183 Data.Map.Internal.Tip
4184 )
4185 init_1
4186 Data.Map.Internal.Tip
Library for parsing