104 lines
3.9 KiB
Text
104 lines
3.9 KiB
Text
/-
|
|
Copyright (c) 2021 Mac Malone. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Authors: Mac Malone
|
|
-/
|
|
import Lean.Util.Paths
|
|
import Lake.Config.ModuleFacetConfig
|
|
|
|
open System
|
|
open Lean (LeanPaths)
|
|
|
|
namespace Lake
|
|
|
|
/-- The file name of a workspace's package manifest (i.e., `manifest.json`). -/
|
|
def manifestFileName := "manifest.json"
|
|
|
|
/-- A Lake workspace -- the top-level package directory. -/
|
|
structure Workspace where
|
|
/-- The root package of the workspace. -/
|
|
root : Package
|
|
/-- Name-package map of packages within the workspace. -/
|
|
packageMap : NameMap Package := {}
|
|
deriving Inhabited
|
|
|
|
hydrate_opaque_type OpaqueWorkspace Workspace
|
|
|
|
namespace Workspace
|
|
|
|
/-- Create a `Workspace` from a package using its directory and `WorkspaceConfig`. -/
|
|
def ofPackage (pkg : Package) : Workspace :=
|
|
{root := pkg}
|
|
|
|
/-- The path to the workspace's directory (i.e., the directory of the root package). -/
|
|
def dir (self : Workspace) : FilePath :=
|
|
self.root.dir
|
|
|
|
/-- The workspace's configuration. -/
|
|
def config (self : Workspace) : WorkspaceConfig :=
|
|
self.root.config.toWorkspaceConfig
|
|
|
|
/-- The workspace's `dir` joined with its `packagesDir` configuration. -/
|
|
def packagesDir (self : Workspace) : FilePath :=
|
|
self.dir / self.config.packagesDir
|
|
|
|
/-- The workspace's JSON manifest of packages. -/
|
|
def manifestFile (self : Workspace) : FilePath :=
|
|
self.packagesDir / manifestFileName
|
|
|
|
/-- The `List` of packages to the workspace. -/
|
|
def packageList (self : Workspace) : List Package :=
|
|
self.packageMap.revFold (fun pkgs _ pkg => pkg :: pkgs) []
|
|
|
|
/-- The `Array` of packages to the workspace. -/
|
|
def packageArray (self : Workspace) : Array Package :=
|
|
self.packageMap.fold (fun pkgs _ pkg => pkgs.push pkg) #[]
|
|
|
|
/-- Add a package to the workspace. -/
|
|
def addPackage (pkg : Package) (self : Workspace) : Workspace :=
|
|
{self with packageMap := self.packageMap.insert pkg.name pkg}
|
|
|
|
/-- Get a package within the workspace by name. -/
|
|
def findPackage? (pkg : Name) (self : Workspace) : Option Package :=
|
|
self.packageMap.find? pkg
|
|
|
|
/-- Check if the module is local to any package in the workspace. -/
|
|
def isLocalModule (mod : Name) (self : Workspace) : Bool :=
|
|
self.packageMap.any fun _ pkg => pkg.isLocalModule mod
|
|
|
|
/-- Check if the module is buildable by any package in the workspace. -/
|
|
def isBuildableModule (mod : Name) (self : Workspace) : Bool :=
|
|
self.packageMap.any fun _ pkg => pkg.isBuildableModule mod
|
|
|
|
/-- Locate the named module in the workspace (if it is local to it). -/
|
|
def findModule? (mod : Name) (self : Workspace) : Option Module :=
|
|
self.packageArray.findSome? (·.findModule? mod)
|
|
|
|
/-- Try to find a Lean library in the workspace with the given name. -/
|
|
def findLeanLib? (name : Name) (self : Workspace) : Option LeanLib :=
|
|
self.packageArray.findSome? fun pkg => pkg.findLeanLib? name
|
|
|
|
/-- Try to find a Lean executable in the workspace with the given name. -/
|
|
def findLeanExe? (name : Name) (self : Workspace) : Option LeanExe :=
|
|
self.packageArray.findSome? fun pkg => pkg.findLeanExe? name
|
|
|
|
/-- Try to find an external library in the workspace with the given name. -/
|
|
def findExternLib? (name : Name) (self : Workspace) : Option ExternLib :=
|
|
self.packageArray.findSome? fun pkg => pkg.findExternLib? name
|
|
|
|
/-- Try to find a module facet configuration in the workspace with the given name. -/
|
|
def findModuleFacetConfig? (name : Name) (self : Workspace) : Option ModuleFacetConfig :=
|
|
self.packageArray.findSome? fun pkg => pkg.findModuleFacetConfig? name
|
|
|
|
/-- The `LEAN_PATH` of the workspace. -/
|
|
def oleanPath (self : Workspace) : SearchPath :=
|
|
self.packageList.map (·.oleanDir)
|
|
|
|
/-- The `LEAN_SRC_PATH` of the workspace. -/
|
|
def leanSrcPath (self : Workspace) : SearchPath :=
|
|
self.packageList.map (·.srcDir)
|
|
|
|
/-- The `LeanPaths` of the workspace. -/
|
|
def leanPaths (self : Workspace) : LeanPaths where
|
|
oleanPath := self.packageList.map (·.oleanDir)
|
|
srcPath := self.packageList.map (·.srcDir)
|