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.ParsingErrorStandard
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) ->
60 ( let _ = "resume.genCode"
64 in let _ = "catch ExceptionFailure"
65 in let catchHandler (!_exn) (!failInp) (!farInp) (!farExp) =
66 let _ = "catch.ko ExceptionFailure"
67 in if ( \( Data.Text.Internal.Text
72 ( Data.Text.Internal.Text
76 ) -> i GHC.Classes.== j
81 let _ = "choicesBranch.then"
82 in let readFail = finalRaise
83 in if readMore failInp
89 in if ('b' GHC.Classes.==) c
95 ( let _ = "resume.genCode"
100 let _ = "checkToken.else"
102 Data.Set.Internal.Bin
104 ( Symantic.Parser.Grammar.Combinators.SomeFailure
106 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'b'
109 Data.Set.Internal.Tip
110 Data.Set.Internal.Tip
114 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
123 failExp GHC.Base.<> farExp
130 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
132 let _ = "checkHorizon.else"
134 Data.Set.Internal.Bin
136 ( Symantic.Parser.Grammar.Combinators.SomeFailure
138 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 1
141 Data.Set.Internal.Tip
142 Data.Set.Internal.Tip
146 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
155 failExp GHC.Base.<> farExp
162 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
164 let _ = "choicesBranch.else"
165 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
166 in let readFail = catchHandler
169 let !(# c, cs #) = readNext init
170 in if ('a' GHC.Classes.==) c
175 Data.Set.Internal.empty
176 ( let _ = "resume.genCode"
181 let _ = "checkToken.else"
183 Data.Set.Internal.Bin
185 ( Symantic.Parser.Grammar.Combinators.SomeFailure
187 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'a'
190 Data.Set.Internal.Tip
191 Data.Set.Internal.Tip
195 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init init of
204 failExp GHC.Base.<> Data.Set.Internal.empty
209 Data.Set.Internal.empty
211 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure init farInp farExp
213 let _ = "checkHorizon.else"
215 Data.Set.Internal.Bin
217 ( Symantic.Parser.Grammar.Combinators.SomeFailure
219 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 1
222 Data.Set.Internal.Tip
223 Data.Set.Internal.Tip
227 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init init of
236 failExp GHC.Base.<> Data.Set.Internal.empty
241 Data.Set.Internal.empty
243 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure init farInp farExp