1 \(input_0 :: inp_6989586621679040759) ->
9 ( t_5@( Data.Text.Internal.Text
15 let !( Data.Text.Unsafe.Iter
18 ) = Data.Text.Unsafe.iter t_5 0
21 Data.Text.Internal.Text arr_6 (off_7 GHC.Num.+ d_10) (unconsumed_8 GHC.Num.- d_10)
24 ( Data.Text.Internal.Text
28 ) = unconsumed_12 GHC.Classes.> 0
34 finalRet_13 = \_farInp_14 _farExp_15 v_16 _inp_17 -> Symantic.Parser.Machine.Generate.returnST GHC.Base.$ Data.Either.Right v_16
37 Symantic.Parser.Machine.Generate.Catcher
39 inp_6989586621679040759
40 b_20 = \(!exn_21) _failInp_22 (!farInp_23) (!farExp_24) ->
41 Symantic.Parser.Machine.Generate.returnST GHC.Base.$
43 Symantic.Parser.Machine.Generate.ParsingError
44 { Symantic.Parser.Machine.Generate.parsingErrorOffset = Symantic.Parser.Machine.Input.offset farInp_23,
45 Symantic.Parser.Machine.Generate.parsingErrorException = exn_21,
46 Symantic.Parser.Machine.Generate.parsingErrorUnexpected =
47 if readMore_2 farInp_23
53 #) = readNext_3 farInp_23
56 else GHC.Maybe.Nothing,
57 Symantic.Parser.Machine.Generate.parsingErrorExpecting =
61 Data.Set.Internal.foldr
65 ) -> case Symantic.Parser.Grammar.Combinators.unSomeFailure f_28 of
66 GHC.Maybe.Just (Symantic.Parser.Grammar.Combinators.FailureHorizon h_31 :: Symantic.Parser.Grammar.Combinators.Failure (Symantic.Parser.Grammar.Combinators.CombSatisfiable (Symantic.Parser.Machine.Input.InputToken inp_6989586621679040759)))
67 | GHC.Maybe.Just old_32 <- minH_29 ->
68 ( GHC.Maybe.Just (GHC.Classes.min old_32 h_31),
71 | GHC.Base.otherwise ->
72 ( GHC.Maybe.Just h_31,
77 f_28 GHC.Types.: acc_30
84 in Data.Set.Internal.fromList GHC.Base.$
86 GHC.Maybe.Just h_33 -> Symantic.Parser.Grammar.Combinators.SomeFailure (Symantic.Parser.Grammar.Combinators.FailureHorizon @(Symantic.Parser.Machine.Input.InputToken inp_6989586621679040759) h_33) GHC.Types.: res_27
87 GHC.Maybe.Nothing -> res_27
91 ( let inputToken = Data.Proxy.Proxy :: Data.Proxy.Proxy (Symantic.Parser.Machine.Input.InputToken inp_6989586621679040759)
92 in let _ = "checkHorizon.noCheck"
94 in let _ = "pushValue"
95 in let _ = "pushValue"
97 let dupv_34 = \x_35 -> x_35
98 reg_36 <- GHC.STRef.newSTRef dupv_34
100 in let catchHandler_37 loopInput_38 (!_exn_39) (!failInp_40) (!farInp_41) (!farExp_42) =
102 in if ( \( Data.Text.Internal.Text
107 ( Data.Text.Internal.Text
111 ) -> i_43 GHC.Classes.== j_44
116 let _ = "choicesBranch.then"
118 sr_45 <- GHC.STRef.readSTRef reg_36
120 in let join_46 = \farInp_47 farExp_48 v_49 (!inp_50) ->
125 ( let _ = "resume.genCode"
126 in GHC.Show.show (sr_45 GHC.Types . [])
129 in let _ = "catch ExceptionFailure"
130 in let catchHandler_51 (!_exn_52) (!failInp_53) (!farInp_54) (!farExp_55) =
131 let _ = "catch.ko ExceptionFailure"
132 in let _ = "pushInput"
133 in if ( \( Data.Text.Internal.Text
138 ( Data.Text.Internal.Text
142 ) -> i_56 GHC.Classes.== j_57
147 let _ = "choicesBranch.then"
148 in let _ = "comment: eof.fail"
149 in let failExp_58 = Data.Set.Internal.Bin 1 (Symantic.Parser.Grammar.Combinators.SomeFailure Symantic.Parser.Grammar.Combinators.FailureEnd) Data.Set.Internal.Tip Data.Set.Internal.Tip
153 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_54 failInp_53 of
162 failExp_58 GHC.Base.<> farExp_55
169 in finalRaise_18 Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp_53 farInp_59 farExp_60
171 let _ = "choicesBranch.else"
172 in finalRaise_18 Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp_53 farInp_54 farExp_55
173 in let _ = "comment: negLook"
174 in let _ = "catch ExceptionFailure"
175 in let catchHandler_61 (!_exn_62) (!failInp_63) (!farInp_64) (!farExp_65) =
176 let _ = "catch.ko ExceptionFailure"
177 in let _ = "comment: negLook.reset"
178 in let _ = "loadInput"
179 in let _ = "checkHorizon.noCheck"
180 in let _ = "pushValue"
186 ( let _ = "resume.genCode"
190 in let _ = "comment: negLook.ahead"
191 in let _ = "pushInput"
192 in let _ = "comment: satisfy"
193 in let inp_66 = failInp_40
194 in let readFail_67 = catchHandler_61
195 in let _ = "checkHorizon.newCheck: checkedHorizon=0 minHoriz=1"
196 in if readMore_2 inp_66
202 #) = readNext_3 inp_66
203 in let _ = "popValue"
205 in let _ = "loadInput"
206 in let _ = "checkHorizon.noCheck"
207 in catchHandler_51 Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp_40 farInp_41 farExp_42
209 let _ = "checkHorizon.newCheck.fail"
211 Data.Set.Internal.Bin
213 ( Symantic.Parser.Grammar.Combinators.SomeFailure
215 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok'_6989586621679080671) -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok'_6989586621679080671 1
218 Data.Set.Internal.Tip
219 Data.Set.Internal.Tip
223 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp_41 inp_66 of
232 failExp_70 GHC.Base.<> farExp_42
239 in readFail_67 Symantic.Parser.Grammar.Combinators.ExceptionFailure inp_66 farInp_71 farExp_72
241 let _ = "choicesBranch.else"
242 in finalRaise_18 Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp_40 farInp_41 farExp_42
243 loop_73 = \_callReturn_74 callInput_75 callCatchStackByLabel_76 ->
245 in let _ = "comment: satisfy"
246 in let inp_77 = callInput_75
247 in let readFail_78 = catchHandler_37 callInput_75
248 in let _ = "checkHorizon.newCheck: checkedHorizon=0 minHoriz=1"
249 in if readMore_2 inp_77
255 #) = readNext_3 inp_77
256 in if (GHC.Classes.==) 'r' c_79
260 sr_81 <- GHC.STRef.readSTRef reg_36
262 let dupv_82 = \x_83 -> sr_81 ((GHC.Types.:) 'r' x_83)
263 GHC.STRef.writeSTRef reg_36 dupv_82
265 in loop_73 (GHC.Err.error "invalid return") cs_80 (Data.Map.Internal.Bin 1 Symantic.Parser.Grammar.Combinators.ExceptionFailure readFail_78 Data.Map.Internal.Tip Data.Map.Internal.Tip)
267 let _ = "checkToken.fail"
269 Data.Set.Internal.Bin
271 ( Symantic.Parser.Grammar.Combinators.SomeFailure
273 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok'_6989586621679080671) -> Symantic.Parser.Grammar.Combinators.FailureToken 'r'
276 Data.Set.Internal.Tip
277 Data.Set.Internal.Tip
281 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_77 of
290 failExp_84 GHC.Base.<> Data.Set.Internal.empty
295 Data.Set.Internal.empty
297 in readFail_78 Symantic.Parser.Grammar.Combinators.ExceptionFailure inp_77 farInp_85 farExp_86
299 let _ = "checkHorizon.newCheck.fail"
301 Data.Set.Internal.Bin
303 ( Symantic.Parser.Grammar.Combinators.SomeFailure
305 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok'_6989586621679080671) -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok'_6989586621679080671 1
308 Data.Set.Internal.Tip
309 Data.Set.Internal.Tip
313 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init_1 inp_77 of
322 failExp_87 GHC.Base.<> Data.Set.Internal.empty
327 Data.Set.Internal.empty
329 in readFail_78 Symantic.Parser.Grammar.Combinators.ExceptionFailure inp_77 farInp_88 farExp_89
331 in loop_73 finalRet_13 init_1 Data.Map.Internal.Tip