inductive Std.Internal.Parsec.ParseResult (α ι : Type) : Type

• success {α ι : Type} (pos : ι) (res : α) : ParseResult α ι
• error {α ι : Type} (pos : ι) (err : String) : ParseResult α ι

instance Std.Internal.Parsec.instReprParseResult {α✝ ι✝ : Type} [Repr α✝] [Repr ι✝] : Repr (ParseResult α✝ ι✝)

Equations

• Std.Internal.Parsec.instReprParseResult = { reprPrec := Std.Internal.Parsec.reprParseResult✝ }

def Std.Internal.Parsec (ι α : Type) : Type

Equations

• Std.Internal.Parsec ι α = (ι → Std.Internal.Parsec.ParseResult α ι)

class Std.Internal.Parsec.Input (ι : Type) (elem idx : outParam Type) [DecidableEq idx] [DecidableEq elem] : Type

• pos : ι → idx
• next : ι → ι
• curr : ι → elem
• hasNext : ι → Bool
• next' (it : ι) : hasNext it = true → ι
• curr' (it : ι) : hasNext it = true → elem

instance Std.Internal.Parsec.instInhabited {α ι : Type} : Inhabited (Parsec ι α)

Equations

• Std.Internal.Parsec.instInhabited = { default := fun (it : ι) => Std.Internal.Parsec.ParseResult.error it "" }

@[inline]

def Std.Internal.Parsec.pure {α ι : Type} (a : α) : Parsec ι α

Equations

• Std.Internal.Parsec.pure a it = Std.Internal.Parsec.ParseResult.success it a

@[inline]

def Std.Internal.Parsec.bind {ι α β : Type} (f : Parsec ι α) (g : α → Parsec ι β) : Parsec ι β

Equations

• f.bind g it = match f it with | Std.Internal.Parsec.ParseResult.success rem a => g a rem | Std.Internal.Parsec.ParseResult.error pos msg => Std.Internal.Parsec.ParseResult.error pos msg

@[always_inline]

instance Std.Internal.Parsec.instMonad {ι : Type} : Monad (Parsec ι)

Equations

• Std.Internal.Parsec.instMonad = Monad.mk

@[inline]

def Std.Internal.Parsec.fail {α ι : Type} (msg : String) : Parsec ι α

Equations

• Std.Internal.Parsec.fail msg it = Std.Internal.Parsec.ParseResult.error it msg

@[inline]

def Std.Internal.Parsec.tryCatch {α ι elem idx : Type} [DecidableEq idx] [DecidableEq elem] [Input ι elem idx] {β : Type} (p : Parsec ι α) (csuccess : α → Parsec ι β) (cerror : Unit → Parsec ι β) : Parsec ι β

Equations

• One or more equations did not get rendered due to their size.

@[inline]

def Std.Internal.Parsec.orElse {α ι elem idx : Type} [DecidableEq idx] [DecidableEq elem] [Input ι elem idx] (p : Parsec ι α) (q : Unit → Parsec ι α) : Parsec ι α

Equations

• p.orElse q = p.tryCatch pure q

@[inline]

def Std.Internal.Parsec.attempt {α ι : Type} (p : Parsec ι α) : Parsec ι α

Equations

• One or more equations did not get rendered due to their size.

@[always_inline]

instance Std.Internal.Parsec.instAlternative {ι elem idx : Type} [DecidableEq idx] [DecidableEq elem] [Input ι elem idx] : Alternative (Parsec ι)

Equations

• Std.Internal.Parsec.instAlternative = Alternative.mk (fun {α : Type} => Std.Internal.Parsec.fail "") fun {α : Type} => Std.Internal.Parsec.orElse

def Std.Internal.Parsec.expectedEndOfInput : String

Equations

• Std.Internal.Parsec.expectedEndOfInput = "expected end of input"

@[inline]

def Std.Internal.Parsec.eof {ι elem idx : Type} [DecidableEq idx] [DecidableEq elem] [Input ι elem idx] : Parsec ι Unit

Equations

• One or more equations did not get rendered due to their size.

@[inline]

def Std.Internal.Parsec.isEof {ι elem idx : Type} [DecidableEq idx] [DecidableEq elem] [Input ι elem idx] : Parsec ι Bool

Equations

• Std.Internal.Parsec.isEof it = Std.Internal.Parsec.ParseResult.success it !Std.Internal.Parsec.Input.hasNext it

@[specialize #[]]

partial def Std.Internal.Parsec.manyCore {α ι elem idx : Type} [DecidableEq idx] [DecidableEq elem] [Input ι elem idx] (p : Parsec ι α) (acc : Array α) : Parsec ι (Array α)

@[inline]

def Std.Internal.Parsec.many {α ι elem idx : Type} [DecidableEq idx] [DecidableEq elem] [Input ι elem idx] (p : Parsec ι α) : Parsec ι (Array α)

Equations

• p.many = p.manyCore #[]

@[inline]

def Std.Internal.Parsec.many1 {α ι elem idx : Type} [DecidableEq idx] [DecidableEq elem] [Input ι elem idx] (p : Parsec ι α) : Parsec ι (Array α)

Equations

• p.many1 = do let __do_lift ← p p.manyCore #[__do_lift]

def Std.Internal.Parsec.unexpectedEndOfInput : String

Equations

• Std.Internal.Parsec.unexpectedEndOfInput = "unexpected end of input"

@[inline]

def Std.Internal.Parsec.any {ι elem idx : Type} [DecidableEq idx] [DecidableEq elem] [Input ι elem idx] : Parsec ι elem

Equations

• One or more equations did not get rendered due to their size.

@[inline]

def Std.Internal.Parsec.satisfy {ι elem idx : Type} [DecidableEq idx] [DecidableEq elem] [Input ι elem idx] (p : elem → Bool) : Parsec ι elem

Equations

• Std.Internal.Parsec.satisfy p = (do let c ← Std.Internal.Parsec.any if p c = true then pure c else Std.Internal.Parsec.fail "condition not satisfied").attempt

@[inline]

def Std.Internal.Parsec.notFollowedBy {α ι : Type} (p : Parsec ι α) : Parsec ι Unit

Equations

• One or more equations did not get rendered due to their size.

@[inline]

def Std.Internal.Parsec.peek? {ι elem idx : Type} [DecidableEq idx] [DecidableEq elem] [Input ι elem idx] : Parsec ι (Option elem)

Equations

• One or more equations did not get rendered due to their size.

@[inline]

def Std.Internal.Parsec.peek! {ι elem idx : Type} [DecidableEq idx] [DecidableEq elem] [Input ι elem idx] : Parsec ι elem

Equations

• One or more equations did not get rendered due to their size.

@[inline]

def Std.Internal.Parsec.peekD {ι elem idx : Type} [DecidableEq idx] [DecidableEq elem] [Input ι elem idx] (default : elem) : Parsec ι elem

Equations

• One or more equations did not get rendered due to their size.

@[inline]

def Std.Internal.Parsec.skip {ι elem idx : Type} [DecidableEq idx] [DecidableEq elem] [Input ι elem idx] : Parsec ι Unit

Equations

• One or more equations did not get rendered due to their size.

@[specialize #[]]

partial def Std.Internal.Parsec.manyCharsCore {ι elem idx : Type} [DecidableEq idx] [DecidableEq elem] [Input ι elem idx] (p : Parsec ι Char) (acc : String) : Parsec ι String

@[inline]

def Std.Internal.Parsec.manyChars {ι elem idx : Type} [DecidableEq idx] [DecidableEq elem] [Input ι elem idx] (p : Parsec ι Char) : Parsec ι String

Equations

• p.manyChars = p.manyCharsCore ""

@[inline]

def Std.Internal.Parsec.many1Chars {ι elem idx : Type} [DecidableEq idx] [DecidableEq elem] [Input ι elem idx] (p : Parsec ι Char) : Parsec ι String

Equations

• p.many1Chars = do let __do_lift ← p p.manyCharsCore __do_lift.toString