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) ->
63 ( let _ = "resume.genCode"
67 in let _ = "catch ExceptionFailure"
68 in let catchHandler (!_exn) (!failInp) (!farInp) (!farExp) =
69 let _ = "catch.ko ExceptionFailure"
70 in if ( \( Data.Text.Internal.Text
75 ( Data.Text.Internal.Text
79 ) -> i GHC.Classes.== j
84 let _ = "choicesBranch.then"
85 in let _ = "catch ExceptionFailure"
86 in let catchHandler (!_exn) (!failInp) (!farInp) (!farExp) =
87 let _ = "catch.ko ExceptionFailure"
88 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
89 in let readFail = catchHandler
90 in if readMore (Symantic.Parser.Machine.Input.shiftRightText 1 failInp)
96 in if (GHC.Classes.==) 'a' c
98 let readFail = readFail
103 in if (GHC.Classes.==) 'b' c
109 ( let _ = "resume.genCode"
110 in (GHC.Types.:) 'a' ((GHC.Types.:) 'b' GHC.Types . [])
114 let _ = "checkToken.else"
116 Data.Set.Internal.Bin
118 ( Symantic.Parser.Grammar.Combinators.SomeFailure
120 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'b'
123 Data.Set.Internal.Tip
124 Data.Set.Internal.Tip
128 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp cs of
137 failExp GHC.Base.<> farExp
144 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure cs farInp farExp
146 let _ = "checkToken.else"
148 Data.Set.Internal.Bin
150 ( Symantic.Parser.Grammar.Combinators.SomeFailure
152 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'a'
155 Data.Set.Internal.Tip
156 Data.Set.Internal.Tip
160 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
169 failExp GHC.Base.<> farExp
176 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
178 let _ = "checkHorizon.else"
180 Data.Set.Internal.Bin
182 ( Symantic.Parser.Grammar.Combinators.SomeFailure
184 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 2
187 Data.Set.Internal.Tip
188 Data.Set.Internal.Tip
192 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
201 failExp GHC.Base.<> farExp
208 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
210 let _ = "choicesBranch.else"
211 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
212 in let _ = "catch ExceptionFailure"
213 in let catchHandler (!_exn) (!failInp) (!farInp) (!farExp) =
214 let _ = "catch.ko ExceptionFailure"
215 in catchHandler Symantic.Parser.Grammar.Combinators.ExceptionFailure init farInp farExp
216 in let readFail = catchHandler
217 in if readMore (Symantic.Parser.Machine.Input.shiftRightText 1 init)
223 in if (GHC.Classes.==) 'a' c
225 let readFail = readFail
230 in if (GHC.Classes.==) 'a' c
235 Data.Set.Internal.empty
236 ( let _ = "resume.genCode"
237 in (GHC.Types.:) 'a' ((GHC.Types.:) 'a' GHC.Types . [])
241 let _ = "checkToken.else"
243 Data.Set.Internal.Bin
245 ( Symantic.Parser.Grammar.Combinators.SomeFailure
247 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'a'
250 Data.Set.Internal.Tip
251 Data.Set.Internal.Tip
255 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init cs of
264 failExp GHC.Base.<> Data.Set.Internal.empty
269 Data.Set.Internal.empty
271 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure cs farInp farExp
273 let _ = "checkToken.else"
275 Data.Set.Internal.Bin
277 ( Symantic.Parser.Grammar.Combinators.SomeFailure
279 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'a'
282 Data.Set.Internal.Tip
283 Data.Set.Internal.Tip
287 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init init of
296 failExp GHC.Base.<> Data.Set.Internal.empty
301 Data.Set.Internal.empty
303 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure init farInp farExp
305 let _ = "checkHorizon.else"
307 Data.Set.Internal.Bin
309 ( Symantic.Parser.Grammar.Combinators.SomeFailure
311 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 2
314 Data.Set.Internal.Tip
315 Data.Set.Internal.Tip
319 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init init of
328 failExp GHC.Base.<> Data.Set.Internal.empty
333 Data.Set.Internal.empty
335 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure init farInp farExp