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 finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure inp farInp farExp
59 in let readFail = catchHandler
60 in if readMore (Symantic.Parser.Machine.Input.shiftRightText 3 inp)
66 in if ('a' GHC.Classes.==) c
68 let readFail = readFail
73 in if ('b' GHC.Classes.==) c
75 let readFail = readFail
80 in if ('c' GHC.Classes.==) c
82 let readFail = readFail
87 in if ('d' GHC.Classes.==) c
92 Data.Set.Internal.empty
93 ( let _ = "resume.genCode"
94 in 'a' GHC.Types.: ('b' GHC.Types.: ('c' GHC.Types.: ('d' GHC.Types.: GHC.Types . [])))
98 let _ = "checkToken.else"
100 Data.Set.Internal.Bin
102 ( Symantic.Parser.Grammar.Combinators.SomeFailure
104 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'd'
107 Data.Set.Internal.Tip
108 Data.Set.Internal.Tip
112 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init cs of
121 failExp GHC.Base.<> Data.Set.Internal.empty
126 Data.Set.Internal.empty
128 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure cs farInp farExp
130 let _ = "checkToken.else"
132 Data.Set.Internal.Bin
134 ( Symantic.Parser.Grammar.Combinators.SomeFailure
136 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'c'
139 Data.Set.Internal.Tip
140 Data.Set.Internal.Tip
144 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init cs of
153 failExp GHC.Base.<> Data.Set.Internal.empty
158 Data.Set.Internal.empty
160 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure cs farInp farExp
162 let _ = "checkToken.else"
164 Data.Set.Internal.Bin
166 ( Symantic.Parser.Grammar.Combinators.SomeFailure
168 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'b'
171 Data.Set.Internal.Tip
172 Data.Set.Internal.Tip
176 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init cs of
185 failExp GHC.Base.<> Data.Set.Internal.empty
190 Data.Set.Internal.empty
192 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure cs farInp farExp
194 let _ = "checkToken.else"
196 Data.Set.Internal.Bin
198 ( Symantic.Parser.Grammar.Combinators.SomeFailure
200 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureToken 'a'
203 Data.Set.Internal.Tip
204 Data.Set.Internal.Tip
208 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init inp of
217 failExp GHC.Base.<> Data.Set.Internal.empty
222 Data.Set.Internal.empty
224 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure inp farInp farExp
226 let _ = "checkHorizon.else"
228 Data.Set.Internal.Bin
230 ( Symantic.Parser.Grammar.Combinators.SomeFailure
232 (Data.Proxy.Proxy :: Data.Proxy.Proxy tok') -> Symantic.Parser.Grammar.Combinators.FailureHorizon @tok' 4
235 Data.Set.Internal.Tip
236 Data.Set.Internal.Tip
240 #) = case (GHC.Classes.compare `Data.Function.on` Symantic.Parser.Machine.Input.offset) init inp of
249 failExp GHC.Base.<> Data.Set.Internal.empty
254 Data.Set.Internal.empty
256 in readFail Symantic.Parser.Grammar.Combinators.ExceptionFailure inp farInp farExp
257 name = \(!ok) (!inp) (!koByLabel) ->
258 let _ = "catch ExceptionFailure"
259 in let catchHandler (!_exn) (!failInp) (!farInp) (!farExp) =
260 let _ = "catch.ko ExceptionFailure"
261 in if ( \( Data.Text.Internal.Text
266 ( Data.Text.Internal.Text
270 ) -> i GHC.Classes.== j
275 let _ = "choicesBranch.then"
280 ( let _ = "resume.genCode"
285 let _ = "choicesBranch.else"
286 in finalRaise Symantic.Parser.Grammar.Combinators.ExceptionFailure failInp farInp farExp
289 in \farInp farExp v (!inp) ->
292 in \farInp farExp v (!inp) ->
297 ( let _ = "resume.genCode"
298 in \x -> v GHC.Types.: v x
303 Data.Map.Internal.Tip
306 Data.Map.Internal.Tip
309 in \farInp farExp v (!inp) ->
312 in \farInp farExp v (!inp) ->
317 ( let _ = "resume.genCode"
318 in GHC.Show.show (v GHC.Types.: v GHC.Types . [])
323 Data.Map.Internal.Tip
326 Data.Map.Internal.Tip