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)
54 in let name = \(!ok) (!inp) (!koByLabel) ->
55 let _ = "catch ExceptionFailure"
56 in let catchHandler (!_exn) (!failInp) (!farInp) (!farExp) =
57 let _ = "catch.ko ExceptionFailure"
58 in if ( \( Data.Text.Internal.Text
63 ( Data.Text.Internal.Text
67 ) -> i GHC.Classes.== j
72 let _ = "choicesBranch.then"
77 ( let _ = "resume.genCode"
82 let _ = "choicesBranch.else"
83 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
84 in let readFail = catchHandler
91 in if (\t -> ('a' GHC.Classes.== t) GHC.Classes.|| (('b' GHC.Classes.== t) GHC.Classes.|| (('c' GHC.Classes.== t) GHC.Classes.|| (('d' GHC.Classes.== t) GHC.Classes.|| GHC.Types.False)))) c
95 in \farInp farExp v (!inp) ->
100 ( let _ = "resume.genCode"
101 in \x -> c GHC.Types.: v x
106 Data.Map.Internal.Tip
108 let _ = "checkToken.else"
110 Data.Set.Internal.Bin
112 ( Symantic.Parser.Grammar.Combinators.SomeFailure
114 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'd'
117 Data.Set.Internal.Tip
118 Data.Set.Internal.Tip
122 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init inp of
131 failExp GHC.Base.<> Data.Set.Internal.empty
136 Data.Set.Internal.empty
138 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure inp farInp farExp
140 let _ = "checkHorizon.else"
142 Data.Set.Internal.Bin
144 ( Symantic.Parser.Grammar.Combinators.SomeFailure
146 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 1
149 Data.Set.Internal.Tip
150 Data.Set.Internal.Tip
154 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init inp of
163 failExp GHC.Base.<> Data.Set.Internal.empty
168 Data.Set.Internal.empty
170 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure inp farInp farExp
173 in \farInp farExp v (!inp) ->
174 let join = \farInp farExp v (!inp) ->
179 ( let _ = "resume.genCode"
180 in GHC.Show.show (v GHC.Types . [])
183 in let _ = "catch ExceptionFailure"
184 in let catchHandler (!_exn) (!failInp) (!farInp) (!farExp) =
185 let _ = "catch.ko ExceptionFailure"
186 in if ( \( Data.Text.Internal.Text
191 ( Data.Text.Internal.Text
195 ) -> i GHC.Classes.== j
200 let _ = "choicesBranch.then"
201 in let failExp = Data.Set.Internal.Bin 1 (Symantic.Parser.Grammar.Combinators.SomeFailure Symantic.Parser.Grammar.Combinators.FailureEnd) Data.Set.Internal.Tip Data.Set.Internal.Tip
205 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
214 failExp GHC.Base.<> farExp
221 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
223 let _ = "choicesBranch.else"
224 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
225 in let _ = "catch ExceptionFailure"
226 in let catchHandler (!_exn) (!failInp) (!farInp) (!farExp) =
227 let _ = "catch.ko ExceptionFailure"
232 ( let _ = "resume.genCode"
236 in let readFail = catchHandler
243 in if (\x -> GHC.Types.True) c
244 then catchHandler Symantic.Parser.Grammar.Combinators.ExceptionFailure inp farInp farExp
246 let _ = "checkToken.else"
247 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure inp farInp farExp
249 let _ = "checkHorizon.else"
251 Data.Set.Internal.Bin
253 ( Symantic.Parser.Grammar.Combinators.SomeFailure
255 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 1
258 Data.Set.Internal.Tip
259 Data.Set.Internal.Tip
263 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp inp of
272 failExp GHC.Base.<> farExp
279 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure inp farInp farExp
282 Data.Map.Internal.Tip