/-
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)