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) ->
56 let readFail = finalRaise
63 in if ('c' GHC.Classes.==) 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 'c'
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 ('b' GHC.Classes.==) 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 'b'
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 readFail = catchHandler
240 in if readMore (Symantic.Parser.Machine.Input.shiftRightText 1 init)
242 let !(# c, cs #) = readNext init
243 in if ('a' GHC.Classes.==) c
248 Data.Set.Internal.empty
249 ( let _ = "resume.genCode"
254 let _ = "checkToken.else"
256 Data.Set.Internal.Bin
258 ( Symantic.Parser.Grammar.Combinators.SomeFailure
260 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'a'
263 Data.Set.Internal.Tip
264 Data.Set.Internal.Tip
268 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init init of
277 failExp GHC.Base.<> Data.Set.Internal.empty
282 Data.Set.Internal.empty
284 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure init farInp farExp
286 let _ = "checkHorizon.else"
288 Data.Set.Internal.Bin
290 ( Symantic.Parser.Grammar.Combinators.SomeFailure
292 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 2
295 Data.Set.Internal.Tip
296 Data.Set.Internal.Tip
300 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init init of
309 failExp GHC.Base.<> Data.Set.Internal.empty
314 Data.Set.Internal.empty
316 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure init farInp farExp