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 -> Symantic.Parser.Machine.Generate.returnST GHC.Base.$ Data.Either.Right v
33 Symantic.Parser.Machine.Generate.Catcher
36 b = \(!exn) _failInp (!farInp) (!farExp) ->
37 Symantic.Parser.Machine.Generate.returnST GHC.Base.$
39 Symantic.Parser.Machine.Generate.ParsingError
40 { Symantic.Parser.Machine.Generate.parsingErrorOffset = Symantic.Parser.Machine.Input.offset farInp,
41 Symantic.Parser.Machine.Generate.parsingErrorException = exn,
42 Symantic.Parser.Machine.Generate.parsingErrorUnexpected =
52 else GHC.Maybe.Nothing,
53 Symantic.Parser.Machine.Generate.parsingErrorExpecting = farExp
56 ( let inputToken = Data.Proxy.Proxy :: Data.Proxy.Proxy (Symantic.Parser.Machine.Input.InputToken inp)
58 in let join = \farInp farExp v (!inp) ->
59 let readFail = finalRaise
66 in if (GHC.Classes.==) 'd' c
72 ( let _ = "resume.genCode"
77 let _ = "checkToken.else"
81 ( Symantic.Parser.Grammar.Combinators.SomeFailure
83 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'd'
91 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp inp of
100 failExp GHC.Base.<> farExp
107 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure inp farInp farExp
109 let _ = "checkHorizon.else"
111 Data.Set.Internal.Bin
113 ( Symantic.Parser.Grammar.Combinators.SomeFailure
115 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 1
118 Data.Set.Internal.Tip
119 Data.Set.Internal.Tip
123 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp inp of
132 failExp GHC.Base.<> farExp
139 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure inp farInp farExp
140 in let _ = "catch ExceptionFailure"
141 in let catchHandler (!_exn) (!failInp) (!farInp) (!farExp) =
142 let _ = "catch.ko ExceptionFailure"
143 in if ( \( Data.Text.Internal.Text
148 ( Data.Text.Internal.Text
152 ) -> i GHC.Classes.== j
157 let _ = "choicesBranch.then"
158 in let _ = "catch ExceptionFailure"
159 in let catchHandler (!_exn) (!failInp) (!farInp) (!farExp) =
160 let _ = "catch.ko ExceptionFailure"
161 in if ( \( Data.Text.Internal.Text
166 ( Data.Text.Internal.Text
170 ) -> i GHC.Classes.== j
175 let _ = "choicesBranch.then"
176 in let readFail = finalRaise
177 in if readMore (Symantic.Parser.Machine.Input.shiftRightText 1 failInp)
182 #) = readNext failInp
183 in if (GHC.Classes.==) 'c' c
189 ( let _ = "resume.genCode"
194 let _ = "checkToken.else"
196 Data.Set.Internal.Bin
198 ( Symantic.Parser.Grammar.Combinators.SomeFailure
200 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'c'
203 Data.Set.Internal.Tip
204 Data.Set.Internal.Tip
208 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
217 failExp GHC.Base.<> farExp
224 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
226 let _ = "checkHorizon.else"
228 Data.Set.Internal.Bin
230 ( Symantic.Parser.Grammar.Combinators.SomeFailure
232 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 2
235 Data.Set.Internal.Tip
236 Data.Set.Internal.Tip
240 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
249 failExp GHC.Base.<> farExp
256 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
258 let _ = "choicesBranch.else"
259 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
260 in let readFail = catchHandler
261 in if readMore (Symantic.Parser.Machine.Input.shiftRightText 1 failInp)
266 #) = readNext failInp
267 in if (GHC.Classes.==) 'b' c
273 ( let _ = "resume.genCode"
278 let _ = "checkToken.else"
280 Data.Set.Internal.Bin
282 ( Symantic.Parser.Grammar.Combinators.SomeFailure
284 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'b'
287 Data.Set.Internal.Tip
288 Data.Set.Internal.Tip
292 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
301 failExp GHC.Base.<> farExp
308 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
310 let _ = "checkHorizon.else"
312 Data.Set.Internal.Bin
314 ( Symantic.Parser.Grammar.Combinators.SomeFailure
316 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 2
319 Data.Set.Internal.Tip
320 Data.Set.Internal.Tip
324 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
333 failExp GHC.Base.<> farExp
340 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
342 let _ = "choicesBranch.else"
343 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
344 in let readFail = catchHandler
345 in if readMore (Symantic.Parser.Machine.Input.shiftRightText 1 init)
347 let !(# c, cs #) = readNext init
348 in if (GHC.Classes.==) 'a' c
353 Data.Set.Internal.empty
354 ( let _ = "resume.genCode"
359 let _ = "checkToken.else"
361 Data.Set.Internal.Bin
363 ( Symantic.Parser.Grammar.Combinators.SomeFailure
365 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'a'
368 Data.Set.Internal.Tip
369 Data.Set.Internal.Tip
373 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init init of
382 failExp GHC.Base.<> Data.Set.Internal.empty
387 Data.Set.Internal.empty
389 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure init farInp farExp
391 let _ = "checkHorizon.else"
393 Data.Set.Internal.Bin
395 ( Symantic.Parser.Grammar.Combinators.SomeFailure
397 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 2
400 Data.Set.Internal.Tip
401 Data.Set.Internal.Tip
405 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init init of
414 failExp GHC.Base.<> Data.Set.Internal.empty
419 Data.Set.Internal.empty
421 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure init farInp farExp