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 in let finalRet = \_farInp _farExp v _inp -> Data.Either.Right v
33 Symantic.Parser.Machine.Generate.Catcher
35 b = \_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.parsingErrorUnexpected =
49 else GHC.Maybe.Nothing,
50 Symantic.Parser.Machine.Generate.parsingErrorExpecting = Data.Set.Internal.fromList farExp
53 in let join = \farInp farExp v (!inp) ->
54 let readFail = finalRaise
61 in if ('c' GHC.Classes.==) c
67 ( let _ = "resume.genCode"
72 let _ = "checkToken.else"
76 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp inp of
80 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'c']
85 farExp GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'c']
92 in finalRaise inp farInp farExp
94 let _ = "checkHorizon.else"
98 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp inp of
102 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
107 farExp GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
114 in finalRaise inp farInp farExp
115 in let _ = "catchException lbl=fail"
116 in let catchHandler (!failInp) (!farInp) (!farExp) =
117 let _ = "catchException.ko lbl=fail"
118 in if ( \( Data.Text.Internal.Text
123 ( Data.Text.Internal.Text
127 ) -> i GHC.Classes.== j
132 let _ = "choicesBranch.then"
133 in let readFail = finalRaise
134 in if readMore (Symantic.Parser.Machine.Input.shiftRightText 1 failInp)
139 #) = readNext failInp
140 in if ('b' GHC.Classes.==) c
146 ( let _ = "resume.genCode"
151 let _ = "checkToken.else"
155 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
159 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'b']
164 farExp GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'b']
171 in finalRaise failInp farInp farExp
173 let _ = "checkHorizon.else"
177 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
181 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
186 farExp GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
193 in finalRaise failInp farInp farExp
195 let _ = "choicesBranch.else"
199 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
208 farExp GHC.Base.<> []
215 in finalRaise failInp farInp farExp
216 in let readFail = catchHandler
217 in if readMore (Symantic.Parser.Machine.Input.shiftRightText 1 init)
219 let !(# c, cs #) = readNext init
220 in if ('a' GHC.Classes.==) c
223 in join init GHC.Types
225 ( let _ = "resume.genCode"
230 let _ = "checkToken.else"
234 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init init of
238 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'a']
243 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'a']
250 in readFail init farInp farExp
252 let _ = "checkHorizon.else"
256 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init init of
260 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
265 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 2]
272 in readFail init farInp farExp