42 lines
1.3 KiB
Text
42 lines
1.3 KiB
Text
/-
|
|
Copyright (c) 2022 Mac Malone. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Authors: Mac Malone
|
|
-/
|
|
import Lake.Build.Info
|
|
import Lake.Build.Store
|
|
|
|
namespace Lake
|
|
|
|
/-- A custom target's declarative configuration. -/
|
|
structure TargetConfig where
|
|
/-- The name of the target. -/
|
|
name : WfName
|
|
/-- The name of the target's package. -/
|
|
package : WfName
|
|
/-- The type of the target's build result. -/
|
|
resultType : Type
|
|
/-- The target's build function. -/
|
|
target : BuildTarget resultType
|
|
/-- Proof that target's build result is the correctly typed target.-/
|
|
data_eq_target : CustomData (package, name) = ActiveBuildTarget resultType
|
|
|
|
family_def _nil_ : CustomData (&`✝, &`✝) := ActiveOpaqueTarget
|
|
|
|
instance : Inhabited TargetConfig := ⟨{
|
|
name := &`✝
|
|
package := &`✝
|
|
resultType := PUnit
|
|
target := default
|
|
data_eq_target := family_key_eq_type
|
|
}⟩
|
|
|
|
hydrate_opaque_type OpaqueTargetConfig TargetConfig
|
|
|
|
instance FamilyDefOfTargetConfig {cfg : TargetConfig}
|
|
: FamilyDef CustomData (cfg.package, cfg.name) (ActiveBuildTarget cfg.resultType) :=
|
|
⟨cfg.data_eq_target⟩
|
|
|
|
/-- Try to find a target configuration in the package with the given name . -/
|
|
def Package.findTargetConfig? (name : Name) (self : Package) : Option TargetConfig :=
|
|
self.opaqueTargetConfigs.find? name |>.map (·.get)
|