9 ( t@( Data.Text.Internal.Text
15 let !( Data.Text.Unsafe.Iter
18 ) = Data.Text.Unsafe.iter t 0
21 Data.Text.Internal.Text arr (off GHC.Num.+ d) (unconsumed GHC.Num.- d)
24 ( Data.Text.Internal.Text
28 ) = unconsumed GHC.Classes.> 0
29 in (# input, more, next #)
30 finalRet = \_farInp _farExp v _inp -> Data.Either.Right v
33 Symantic.Parser.Machine.Generate.Catcher
35 b = \(!exn) _failInp (!farInp) (!farExp) ->
37 Symantic.Parser.Machine.Generate.ParsingError
38 { Symantic.Parser.Machine.Generate.parsingErrorOffset = Symantic.Parser.Machine.Input.offset farInp,
39 Symantic.Parser.Machine.Generate.parsingErrorException = exn,
40 Symantic.Parser.Machine.Generate.parsingErrorUnexpected =
50 else GHC.Maybe.Nothing,
51 Symantic.Parser.Machine.Generate.parsingErrorExpecting = farExp
53 in let inputToken = Data.Proxy.Proxy :: Data.Proxy.Proxy (Symantic.Parser.Machine.Input.InputToken inp)
55 in let join = \farInp farExp v (!inp) ->
56 let readFail = finalRaise
63 in if (GHC.Classes.==) 'd' c
69 ( let _ = "resume.genCode"
74 let _ = "checkToken.else"
78 ( Symantic.Parser.Grammar.Combinators.SomeFailure
80 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'd'
88 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp inp of
97 failExp GHC.Base.<> farExp
104 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure inp farInp farExp
106 let _ = "checkHorizon.else"
108 Data.Set.Internal.Bin
110 ( Symantic.Parser.Grammar.Combinators.SomeFailure
112 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 1
115 Data.Set.Internal.Tip
116 Data.Set.Internal.Tip
120 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp inp of
129 failExp GHC.Base.<> farExp
136 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure inp farInp farExp
137 in let _ = "catch ExceptionFailure"
138 in let catchHandler (!_exn) (!failInp) (!farInp) (!farExp) =
139 let _ = "catch.ko ExceptionFailure"
140 in if ( \( Data.Text.Internal.Text
145 ( Data.Text.Internal.Text
149 ) -> i GHC.Classes.== j
154 let _ = "choicesBranch.then"
155 in let readFail = finalRaise
156 in if readMore (Symantic.Parser.Machine.Input.shiftRightText 1 failInp)
161 #) = readNext failInp
162 in if (GHC.Classes.==) 'c' c
168 ( let _ = "resume.genCode"
173 let _ = "checkToken.else"
175 Data.Set.Internal.Bin
177 ( Symantic.Parser.Grammar.Combinators.SomeFailure
179 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'c'
182 Data.Set.Internal.Tip
183 Data.Set.Internal.Tip
187 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
196 failExp GHC.Base.<> farExp
203 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
205 let _ = "checkHorizon.else"
207 Data.Set.Internal.Bin
209 ( Symantic.Parser.Grammar.Combinators.SomeFailure
211 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 2
214 Data.Set.Internal.Tip
215 Data.Set.Internal.Tip
219 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
228 failExp GHC.Base.<> farExp
235 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
237 let _ = "choicesBranch.else"
238 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
239 in let join = \farInp farExp v (!inp) ->
244 ( let _ = "resume.genCode"
248 in let _ = "catch ExceptionFailure"
249 in let catchHandler (!_exn) (!failInp) (!farInp) (!farExp) =
250 let _ = "catch.ko ExceptionFailure"
251 in if ( \( Data.Text.Internal.Text
256 ( Data.Text.Internal.Text
260 ) -> i GHC.Classes.== j
265 let _ = "choicesBranch.then"
266 in let readFail = catchHandler
267 in if readMore (Symantic.Parser.Machine.Input.shiftRightText 1 failInp)
272 #) = readNext failInp
273 in if (GHC.Classes.==) 'b' c
279 ( let _ = "resume.genCode"
284 let _ = "checkToken.else"
286 Data.Set.Internal.Bin
288 ( Symantic.Parser.Grammar.Combinators.SomeFailure
290 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'b'
293 Data.Set.Internal.Tip
294 Data.Set.Internal.Tip
298 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
307 failExp GHC.Base.<> farExp
314 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
316 let _ = "checkHorizon.else"
318 Data.Set.Internal.Bin
320 ( Symantic.Parser.Grammar.Combinators.SomeFailure
322 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 2
325 Data.Set.Internal.Tip
326 Data.Set.Internal.Tip
330 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
339 failExp GHC.Base.<> farExp
346 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
348 let _ = "choicesBranch.else"
349 in catchHandler Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
350 in let readFail = catchHandler
351 in if readMore (Symantic.Parser.Machine.Input.shiftRightText 1 init)
353 let !(# c, cs #) = readNext init
354 in if (GHC.Classes.==) 'a' c
359 Data.Set.Internal.empty
360 ( let _ = "resume.genCode"
365 let _ = "checkToken.else"
367 Data.Set.Internal.Bin
369 ( Symantic.Parser.Grammar.Combinators.SomeFailure
371 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'a'
374 Data.Set.Internal.Tip
375 Data.Set.Internal.Tip
379 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init init of
388 failExp GHC.Base.<> Data.Set.Internal.empty
393 Data.Set.Internal.empty
395 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure init farInp farExp
397 let _ = "checkHorizon.else"
399 Data.Set.Internal.Bin
401 ( Symantic.Parser.Grammar.Combinators.SomeFailure
403 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 2
406 Data.Set.Internal.Tip
407 Data.Set.Internal.Tip
411 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init init of
420 failExp GHC.Base.<> Data.Set.Internal.empty
425 Data.Set.Internal.empty
427 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure init farInp farExp