feat: Condensed interface #85
|
@ -17,6 +17,13 @@ def nameToStr (s: String) : Name := s.toName
|
|||
@[export pantograph_name_is_inaccessible]
|
||||
def isInaccessible (n: Name) : Bool := n.isInaccessibleUserName
|
||||
|
||||
@[export pantograph_mk_app_meta_m]
|
||||
def mkAppM (constName : Name) (xs : Array Expr) : MetaM Expr := Meta.mkAppM constName xs
|
||||
|
||||
@[export pantograph_pp_expr]
|
||||
def ppExpr (e: Expr) := Meta.ppExpr e
|
||||
|
||||
|
||||
-- Mirrors Lean's LocalDecl
|
||||
structure LocalDecl where
|
||||
-- Default value is for testing
|
||||
|
|
|
@ -78,9 +78,10 @@ def createCoreState (imports: Array String): IO Core.State := do
|
|||
(trustLevel := 1)
|
||||
return { env := env }
|
||||
|
||||
@[export pantograph_create_meta_context]
|
||||
def createMetaContext: IO Lean.Meta.Context := do
|
||||
return {}
|
||||
@[export pantograph_meta_context]
|
||||
def metaContext: Lean.Meta.Context := {}
|
||||
@[export pantograph_meta_state]
|
||||
def metaState: Lean.Meta.State := {}
|
||||
|
||||
@[export pantograph_env_catalog_m]
|
||||
def envCatalog: CoreM Protocol.EnvCatalogResult :=
|
||||
|
|
Loading…
Reference in New Issue