fix: export more symbols needed by Verso (#4956)

This enables the Verso LSP server extensions to work.
This commit is contained in:
David Thrane Christiansen 2024-08-08 15:31:34 +02:00 committed by GitHub
parent b144107ed5
commit bcbd7299e9
No known key found for this signature in database
GPG key ID: B5690EEEBB952194

View file

@ -96,8 +96,13 @@ def shouldExport (n : Name) : Bool :=
-- libleanshared to avoid Windows symbol limit
!(`Lean.Compiler.LCNF).isPrefixOf n &&
!(`Lean.IR).isPrefixOf n &&
-- Lean.Server.findModuleRefs is used in Verso
(!(`Lean.Server).isPrefixOf n || n == `Lean.Server.findModuleRefs)
-- Lean.Server.findModuleRefs is used in SubVerso, and the contents of RequestM are used by the
-- full Verso as well as anything else that extends the LSP server.
(!(`Lean.Server.Watchdog).isPrefixOf n) &&
(!(`Lean.Server.ImportCompletion).isPrefixOf n) &&
(!(`Lean.Server.Completion).isPrefixOf n)
def emitFnDeclAux (decl : Decl) (cppBaseName : String) (isExternal : Bool) : M Unit := do
let ps := decl.params