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 readFail = finalRaise
86 in if readMore (Symantic.Parser.Machine.Input.shiftRightText 1 failInp)
92 in if (GHC.Classes.==) 'a' c
94 let readFail = finalRaise
99 in if (GHC.Classes.==) 'b' c
105 ( let _ = "resume.genCode"
106 in (GHC.Types.:) 'a' ((GHC.Types.:) 'b' GHC.Types . [])
110 let _ = "checkToken.else"
112 Data.Set.Internal.Bin
114 ( Symantic.Parser.Grammar.Combinators.SomeFailure
116 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'b'
119 Data.Set.Internal.Tip
120 Data.Set.Internal.Tip
124 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp cs of
133 failExp GHC.Base.<> farExp
140 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure cs farInp farExp
142 let _ = "checkToken.else"
144 Data.Set.Internal.Bin
146 ( Symantic.Parser.Grammar.Combinators.SomeFailure
148 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'a'
151 Data.Set.Internal.Tip
152 Data.Set.Internal.Tip
156 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
165 failExp GHC.Base.<> farExp
172 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
174 let _ = "checkHorizon.else"
176 Data.Set.Internal.Bin
178 ( Symantic.Parser.Grammar.Combinators.SomeFailure
180 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 2
183 Data.Set.Internal.Tip
184 Data.Set.Internal.Tip
188 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
197 failExp GHC.Base.<> farExp
204 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
206 let _ = "choicesBranch.else"
207 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
208 in let readFail = catchHandler
209 in if readMore (Symantic.Parser.Machine.Input.shiftRightText 1 init)
211 let !(# c, cs #) = readNext init
212 in if (GHC.Classes.==) 'a' c
214 let readFail = readFail
219 in if (GHC.Classes.==) 'a' c
224 Data.Set.Internal.empty
225 ( let _ = "resume.genCode"
226 in (GHC.Types.:) 'a' ((GHC.Types.:) 'a' GHC.Types . [])
230 let _ = "checkToken.else"
232 Data.Set.Internal.Bin
234 ( Symantic.Parser.Grammar.Combinators.SomeFailure
236 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'a'
239 Data.Set.Internal.Tip
240 Data.Set.Internal.Tip
244 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init cs of
253 failExp GHC.Base.<> Data.Set.Internal.empty
258 Data.Set.Internal.empty
260 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure cs farInp farExp
262 let _ = "checkToken.else"
264 Data.Set.Internal.Bin
266 ( Symantic.Parser.Grammar.Combinators.SomeFailure
268 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'a'
271 Data.Set.Internal.Tip
272 Data.Set.Internal.Tip
276 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init init of
285 failExp GHC.Base.<> Data.Set.Internal.empty
290 Data.Set.Internal.empty
292 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure init farInp farExp
294 let _ = "checkHorizon.else"
296 Data.Set.Internal.Bin
298 ( Symantic.Parser.Grammar.Combinators.SomeFailure
300 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 2
303 Data.Set.Internal.Tip
304 Data.Set.Internal.Tip
308 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init init of
317 failExp GHC.Base.<> Data.Set.Internal.empty
322 Data.Set.Internal.empty
324 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure init farInp farExp