def Lean.IR.EmitC.leanMainFn : String

structure Lean.IR.EmitC.Context : Type

• env : Lean.Environment
• modName : Lean.Name
• jpMap : Lean.IR.JPParamsMap
• mainFn : Lean.IR.FunId
• mainParams : Array Lean.IR.Param

@[reducible, inline]

abbrev Lean.IR.EmitC.M (α : Type) : Type

Equations

• Lean.IR.EmitC.M = ReaderT Lean.IR.EmitC.Context (EStateM String String)

def Lean.IR.EmitC.getEnv : Lean.IR.EmitC.M Lean.Environment

Equations

• Lean.IR.EmitC.getEnv = Lean.IR.EmitC.Context.env <$> read

def Lean.IR.EmitC.getModName : Lean.IR.EmitC.M Lean.Name

Equations

• Lean.IR.EmitC.getModName = Lean.IR.EmitC.Context.modName <$> read

def Lean.IR.EmitC.getDecl (n : Lean.Name) : Lean.IR.EmitC.M Lean.IR.Decl

Equations

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

@[inline]

def Lean.IR.EmitC.emit {α : Type} [ToString α] (a : α) : Lean.IR.EmitC.M Unit

@[inline]

def Lean.IR.EmitC.emitLn {α : Type} [ToString α] (a : α) : Lean.IR.EmitC.M Unit

Equations

• Lean.IR.EmitC.emitLn a = do Lean.IR.EmitC.emit a Lean.IR.EmitC.emit "\n"

def Lean.IR.EmitC.emitLns {α : Type} [ToString α] (as : List α) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.argToCString (x : Lean.IR.Arg) : String

Equations

• Lean.IR.EmitC.argToCString (Lean.IR.Arg.var x_2) = toString x_2
• Lean.IR.EmitC.argToCString x = "lean_box(0)"

def Lean.IR.EmitC.emitArg (x : Lean.IR.Arg) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.toCType : Lean.IR.IRType → String

def Lean.IR.EmitC.throwInvalidExportName {α : Type} (n : Lean.Name) : Lean.IR.EmitC.M α

Equations

• Lean.IR.EmitC.throwInvalidExportName n = throw (toString "invalid export name '" ++ toString n ++ toString "'")

def Lean.IR.EmitC.toCName (n : Lean.Name) : Lean.IR.EmitC.M String

Equations

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

def Lean.IR.EmitC.emitCName (n : Lean.Name) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.toCInitName (n : Lean.Name) : Lean.IR.EmitC.M String

Equations

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

def Lean.IR.EmitC.emitCInitName (n : Lean.Name) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitFnDeclAux (decl : Lean.IR.Decl) (cppBaseName : String) (isExternal : Bool) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitFnDecl (decl : Lean.IR.Decl) (isExternal : Bool) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitExternDeclAux (decl : Lean.IR.Decl) (cNameStr : String) : Lean.IR.EmitC.M Unit

Equations

• Lean.IR.EmitC.emitExternDeclAux decl cNameStr = do let env ← Lean.IR.EmitC.getEnv let extC : Bool := Lean.isExternC env decl.name Lean.IR.EmitC.emitFnDeclAux decl cNameStr extC

def Lean.IR.EmitC.emitFnDecls : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitMainFn : Lean.IR.EmitC.M Unit

Equations

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

def Lean.IR.EmitC.hasMainFn : Lean.IR.EmitC.M Bool

Equations

• Lean.IR.EmitC.hasMainFn = do let env ← Lean.IR.EmitC.getEnv let decls : List Lean.IR.Decl := Lean.IR.getDecls env pure (decls.any fun (d : Lean.IR.Decl) => d.name == `main)

def Lean.IR.EmitC.emitMainFnIfNeeded : Lean.IR.EmitC.M Unit

Equations

• Lean.IR.EmitC.emitMainFnIfNeeded = do let __do_lift ← Lean.IR.EmitC.hasMainFn if __do_lift = true then Lean.IR.EmitC.emitMainFn else pure PUnit.unit

def Lean.IR.EmitC.emitFileHeader : Lean.IR.EmitC.M Unit

Equations

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

def Lean.IR.EmitC.emitFileFooter : Lean.IR.EmitC.M Unit

Equations

• Lean.IR.EmitC.emitFileFooter = Lean.IR.EmitC.emitLns ["#ifdef __cplusplus", "}", "#endif"]

def Lean.IR.EmitC.throwUnknownVar {α : Type} (x : Lean.IR.VarId) : Lean.IR.EmitC.M α

def Lean.IR.EmitC.getJPParams (j : Lean.IR.JoinPointId) : Lean.IR.EmitC.M (Array Lean.IR.Param)

def Lean.IR.EmitC.declareVar (x : Lean.IR.VarId) (t : Lean.IR.IRType) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.declareParams (ps : Array Lean.IR.Param) : Lean.IR.EmitC.M Unit

Equations

• Lean.IR.EmitC.declareParams ps = Array.forM (fun (p : Lean.IR.Param) => Lean.IR.EmitC.declareVar p.x p.ty) ps

partial def Lean.IR.EmitC.declareVars : Lean.IR.FnBody → Bool → Lean.IR.EmitC.M Bool

def Lean.IR.EmitC.emitTag (x : Lean.IR.VarId) (xType : Lean.IR.IRType) : Lean.IR.EmitC.M Unit

Equations

• Lean.IR.EmitC.emitTag x xType = if xType.isObj = true then do Lean.IR.EmitC.emit "lean_obj_tag(" Lean.IR.EmitC.emit x Lean.IR.EmitC.emit ")" else Lean.IR.EmitC.emit x

def Lean.IR.EmitC.isIf (alts : Array Lean.IR.Alt) : Option (Nat × Lean.IR.FnBody × Lean.IR.FnBody)

Equations

• Lean.IR.EmitC.isIf alts = if h : alts.size ≠ 2 then none else match alts[0] with | Lean.IR.AltCore.ctor c b => some (c.cidx, b, Lean.IR.AltCore.body alts[1]) | x => none

def Lean.IR.EmitC.emitInc (x : Lean.IR.VarId) (n : Nat) (checkRef : Bool) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitDec (x : Lean.IR.VarId) (n : Nat) (checkRef : Bool) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitDel (x : Lean.IR.VarId) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitSetTag (x : Lean.IR.VarId) (i : Nat) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitSet (x : Lean.IR.VarId) (i : Nat) (y : Lean.IR.Arg) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitOffset (n offset : Nat) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitUSet (x : Lean.IR.VarId) (n : Nat) (y : Lean.IR.VarId) : Lean.IR.EmitC.M Unit

Equations

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

def Lean.IR.EmitC.emitSSet (x : Lean.IR.VarId) (n offset : Nat) (y : Lean.IR.VarId) (t : Lean.IR.IRType) : Lean.IR.EmitC.M Unit

Equations

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

def Lean.IR.EmitC.emitJmp (j : Lean.IR.JoinPointId) (xs : Array Lean.IR.Arg) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitLhs (z : Lean.IR.VarId) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitArgs (ys : Array Lean.IR.Arg) : Lean.IR.EmitC.M Unit

Equations

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

def Lean.IR.EmitC.emitCtorScalarSize (usize ssize : Nat) : Lean.IR.EmitC.M Unit

Equations

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

def Lean.IR.EmitC.emitAllocCtor (c : Lean.IR.CtorInfo) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitCtorSetArgs (z : Lean.IR.VarId) (ys : Array Lean.IR.Arg) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitCtor (z : Lean.IR.VarId) (c : Lean.IR.CtorInfo) (ys : Array Lean.IR.Arg) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitReset (z : Lean.IR.VarId) (n : Nat) (x : Lean.IR.VarId) : Lean.IR.EmitC.M Unit

Equations

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

def Lean.IR.EmitC.emitReuse (z x : Lean.IR.VarId) (c : Lean.IR.CtorInfo) (updtHeader : Bool) (ys : Array Lean.IR.Arg) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitProj (z : Lean.IR.VarId) (i : Nat) (x : Lean.IR.VarId) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitUProj (z : Lean.IR.VarId) (i : Nat) (x : Lean.IR.VarId) : Lean.IR.EmitC.M Unit

Equations

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

def Lean.IR.EmitC.emitSProj (z : Lean.IR.VarId) (t : Lean.IR.IRType) (n offset : Nat) (x : Lean.IR.VarId) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.toStringArgs (ys : Array Lean.IR.Arg) : List String

Equations

• Lean.IR.EmitC.toStringArgs ys = List.map Lean.IR.EmitC.argToCString ys.toList

def Lean.IR.EmitC.emitSimpleExternalCall (f : String) (ps : Array Lean.IR.Param) (ys : Array Lean.IR.Arg) : Lean.IR.EmitC.M Unit

Equations

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

def Lean.IR.EmitC.emitExternCall (f : Lean.IR.FunId) (ps : Array Lean.IR.Param) (extData : Lean.ExternAttrData) (ys : Array Lean.IR.Arg) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitFullApp (z : Lean.IR.VarId) (f : Lean.IR.FunId) (ys : Array Lean.IR.Arg) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitPartialApp (z : Lean.IR.VarId) (f : Lean.IR.FunId) (ys : Array Lean.IR.Arg) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitApp (z f : Lean.IR.VarId) (ys : Array Lean.IR.Arg) : Lean.IR.EmitC.M Unit

Equations

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

def Lean.IR.EmitC.emitBoxFn (xType : Lean.IR.IRType) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitBox (z x : Lean.IR.VarId) (xType : Lean.IR.IRType) : Lean.IR.EmitC.M Unit

Equations

• Lean.IR.EmitC.emitBox z x xType = do Lean.IR.EmitC.emitLhs z Lean.IR.EmitC.emitBoxFn xType Lean.IR.EmitC.emit "(" Lean.IR.EmitC.emit x Lean.IR.EmitC.emitLn ");"

def Lean.IR.EmitC.emitUnbox (z : Lean.IR.VarId) (t : Lean.IR.IRType) (x : Lean.IR.VarId) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitIsShared (z x : Lean.IR.VarId) : Lean.IR.EmitC.M Unit

Equations

• Lean.IR.EmitC.emitIsShared z x = do Lean.IR.EmitC.emitLhs z Lean.IR.EmitC.emit "!lean_is_exclusive(" Lean.IR.EmitC.emit x Lean.IR.EmitC.emitLn ");"

def Lean.IR.EmitC.toHexDigit (c : Nat) : String

Equations

• Lean.IR.EmitC.toHexDigit c = String.singleton c.digitChar

def Lean.IR.EmitC.quoteString (s : String) : String

Equations

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

def Lean.IR.EmitC.emitNumLit (t : Lean.IR.IRType) (v : Nat) : Lean.IR.EmitC.M Unit

Equations

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

def Lean.IR.EmitC.emitLit (z : Lean.IR.VarId) (t : Lean.IR.IRType) (v : Lean.IR.LitVal) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitVDecl (z : Lean.IR.VarId) (t : Lean.IR.IRType) (v : Lean.IR.Expr) : Lean.IR.EmitC.M Unit

Equations

• Lean.IR.EmitC.emitVDecl z t (Lean.IR.Expr.ctor c ys) = Lean.IR.EmitC.emitCtor z c ys
• Lean.IR.EmitC.emitVDecl z t (Lean.IR.Expr.reset n x) = Lean.IR.EmitC.emitReset z n x
• Lean.IR.EmitC.emitVDecl z t (Lean.IR.Expr.reuse x c u ys) = Lean.IR.EmitC.emitReuse z x c u ys
• Lean.IR.EmitC.emitVDecl z t (Lean.IR.Expr.proj i x) = Lean.IR.EmitC.emitProj z i x
• Lean.IR.EmitC.emitVDecl z t (Lean.IR.Expr.uproj i x) = Lean.IR.EmitC.emitUProj z i x
• Lean.IR.EmitC.emitVDecl z t (Lean.IR.Expr.sproj n o x) = Lean.IR.EmitC.emitSProj z t n o x
• Lean.IR.EmitC.emitVDecl z t (Lean.IR.Expr.fap c ys) = Lean.IR.EmitC.emitFullApp z c ys
• Lean.IR.EmitC.emitVDecl z t (Lean.IR.Expr.pap c ys) = Lean.IR.EmitC.emitPartialApp z c ys
• Lean.IR.EmitC.emitVDecl z t (Lean.IR.Expr.ap x ys) = Lean.IR.EmitC.emitApp z x ys
• Lean.IR.EmitC.emitVDecl z t (Lean.IR.Expr.box t_1 x) = Lean.IR.EmitC.emitBox z x t_1
• Lean.IR.EmitC.emitVDecl z t (Lean.IR.Expr.unbox x) = Lean.IR.EmitC.emitUnbox z t x
• Lean.IR.EmitC.emitVDecl z t (Lean.IR.Expr.isShared x) = Lean.IR.EmitC.emitIsShared z x
• Lean.IR.EmitC.emitVDecl z t (Lean.IR.Expr.lit v_2) = Lean.IR.EmitC.emitLit z t v_2

def Lean.IR.EmitC.isTailCall (x : Lean.IR.VarId) (v : Lean.IR.Expr) (b : Lean.IR.FnBody) : Lean.IR.EmitC.M Bool

Equations

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

def Lean.IR.EmitC.paramEqArg (p : Lean.IR.Param) (x : Lean.IR.Arg) : Bool

def Lean.IR.EmitC.overwriteParam (ps : Array Lean.IR.Param) (ys : Array Lean.IR.Arg) : Bool

Given [p_0, ..., p_{n-1}], [y_0, ..., y_{n-1}], representing the assignments

p_0 := y_0,
...
p_{n-1} := y_{n-1}

Return true iff we have (i, j) where j > i, and y_j == p_i. That is, we have

      p_i := y_i,
      ...
      p_j := p_i, -- p_i was overwritten above

Equations

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

def Lean.IR.EmitC.emitTailCall (v : Lean.IR.Expr) : Lean.IR.EmitC.M Unit

Equations

• One or more equations did not get rendered due to their size.
• Lean.IR.EmitC.emitTailCall v = throw "bug at emitTailCall"

partial def Lean.IR.EmitC.emitIf (x : Lean.IR.VarId) (xType : Lean.IR.IRType) (tag : Nat) (t e : Lean.IR.FnBody) : Lean.IR.EmitC.M Unit

partial def Lean.IR.EmitC.emitCase (x : Lean.IR.VarId) (xType : Lean.IR.IRType) (alts : Array Lean.IR.Alt) : Lean.IR.EmitC.M Unit

partial def Lean.IR.EmitC.emitBlock (b : Lean.IR.FnBody) : Lean.IR.EmitC.M Unit

partial def Lean.IR.EmitC.emitJPs : Lean.IR.FnBody → Lean.IR.EmitC.M Unit

partial def Lean.IR.EmitC.emitFnBody (b : Lean.IR.FnBody) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitDeclAux (d : Lean.IR.Decl) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitDecl (d : Lean.IR.Decl) : Lean.IR.EmitC.M Unit

Equations

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

def Lean.IR.EmitC.emitFns : Lean.IR.EmitC.M Unit

Equations

• Lean.IR.EmitC.emitFns = do let env ← Lean.IR.EmitC.getEnv let decls : List Lean.IR.Decl := Lean.IR.getDecls env decls.reverse.forM Lean.IR.EmitC.emitDecl

def Lean.IR.EmitC.emitMarkPersistent (d : Lean.IR.Decl) (n : Lean.Name) : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.emitDeclInit (d : Lean.IR.Decl) : Lean.IR.EmitC.M Unit

Equations

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

def Lean.IR.EmitC.emitInitFn : Lean.IR.EmitC.M Unit

def Lean.IR.EmitC.main : Lean.IR.EmitC.M Unit

Equations

• Lean.IR.EmitC.main = do Lean.IR.EmitC.emitFileHeader Lean.IR.EmitC.emitFnDecls Lean.IR.EmitC.emitFns Lean.IR.EmitC.emitInitFn Lean.IR.EmitC.emitMainFnIfNeeded Lean.IR.EmitC.emitFileFooter

@[export lean_ir_emit_c]

def Lean.IR.emitC (env : Lean.Environment) (modName : Lean.Name) : Except String String

Equations

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