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
52 in let name = \(!ok) (!inp) (!koByLabel) ->
53 let _ = "catchException lbl=fail"
54 in let catchHandler (!failInp) (!farInp) (!farExp) =
55 let _ = "catchException.ko lbl=fail"
56 in if ( \( Data.Text.Internal.Text
61 ( Data.Text.Internal.Text
65 ) -> i GHC.Classes.== j
70 let _ = "choicesBranch.then"
75 ( let _ = "resume.genCode"
80 let _ = "choicesBranch.else"
84 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
100 in finalRaise failInp farInp farExp
103 in \farInp farExp v (!inp) ->
106 in \farInp farExp v (!inp) ->
111 ( let _ = "resume.genCode"
112 in \x -> v GHC.Types.: v x
117 Data.Map.Internal.Tip
120 Data.Map.Internal.Tip
121 name = \(!ok) (!inp) (!koByLabel) ->
122 let _ = "catchException lbl=fail"
123 in let catchHandler (!failInp) (!farInp) (!farExp) =
124 let _ = "catchException.ko lbl=fail"
128 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp inp of
137 farExp GHC.Base.<> []
144 in finalRaise inp farInp farExp
145 in let readFail = catchHandler
146 in if readMore (Symantic.Parser.Machine.Input.shiftRightText 3 inp)
152 in if ('a' GHC.Classes.==) c
154 let readFail = readFail
159 in if ('b' GHC.Classes.==) c
161 let readFail = readFail
166 in if ('c' GHC.Classes.==) c
168 let readFail = readFail
173 in if ('d' GHC.Classes.==) c
178 ( let _ = "resume.genCode"
179 in 'a' GHC.Types.: ('b' GHC.Types.: ('c' GHC.Types.: ('d' GHC.Types.: GHC.Types . [])))
183 let _ = "checkToken.else"
187 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init cs of
191 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'd']
196 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'd']
203 in readFail cs farInp farExp
205 let _ = "checkToken.else"
209 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init cs of
213 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'c']
218 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'c']
225 in readFail cs farInp farExp
227 let _ = "checkToken.else"
231 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init cs of
235 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'b']
240 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'b']
247 in readFail cs farInp farExp
249 let _ = "checkToken.else"
253 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init inp of
257 [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'a']
262 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemToken 'a']
269 in readFail inp farInp farExp
271 let _ = "checkHorizon.else"
275 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init inp of
279 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
284 GHC.Types . [] GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 4]
291 in readFail inp farInp farExp
294 in \farInp farExp v (!inp) ->
297 in \farInp farExp v (!inp) ->
298 let join = \farInp farExp v (!inp) ->
303 ( let _ = "resume.genCode"
304 in GHC.Show.show (v GHC.Types.: v GHC.Types . [])
307 in let _ = "catchException lbl=fail"
308 in let catchHandler (!failInp) (!farInp) (!farExp) =
309 let _ = "catchException.ko lbl=fail"
310 in if ( \( Data.Text.Internal.Text
315 ( Data.Text.Internal.Text
319 ) -> i GHC.Classes.== j
324 let _ = "choicesBranch.then"
328 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
332 [Symantic.Parser.Grammar.Combinators.ErrorItemEnd]
337 farExp GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemEnd]
344 in finalRaise failInp farInp farExp
346 let _ = "choicesBranch.else"
350 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp failInp of
359 farExp GHC.Base.<> []
366 in finalRaise failInp farInp farExp
367 in let _ = "catchException lbl=fail"
368 in let catchHandler (!failInp) (!farInp) (!farExp) =
369 let _ = "catchException.ko lbl=fail"
374 ( let _ = "resume.genCode"
378 in let readFail = catchHandler
385 in if (\x -> GHC.Types.True) c
390 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp inp of
399 farExp GHC.Base.<> []
406 in catchHandler inp farInp farExp
408 let _ = "checkToken.else"
412 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp inp of
421 farExp GHC.Base.<> []
428 in readFail inp farInp farExp
430 let _ = "checkHorizon.else"
434 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) farInp inp of
438 [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
443 farExp GHC.Base.<> [Symantic.Parser.Grammar.Combinators.ErrorItemHorizon 1]
450 in readFail inp farInp farExp
453 Data.Map.Internal.Tip
456 Data.Map.Internal.Tip