forked from EduCraft/curriculum-project-hub
sjfhsjfh
de87cddaf1
Fix the abstraction level review flagged. lake build green (20 jobs), no sorry. - Artifact.lean: bare enum → ADT with fields — singleFile(filepath) / fileTree(root, outputs:glob). The product semantics (one file where, vs a tree of what) are pinned in fields + doc, not erased behind empty constructors. Paths/globs carried as String (semantics in doc; no filesystem algebra). - Render.lean: Step inductive (typstCompile(template) | shell(run)) replaces the loose BuildStepForm. TargetSpec = artifact + steps:List Step + covers:Kind→Prop (the old renders:Kind→Option RenderRule is gone — coverage is now a plain declaration; the render "how" lives in the typstCompile template). covers / renderIgnored semantics continuous with ADR-0005. - Primitives.lean: RenderRule field removed (the per-target payload is retired per ADR-0011); a note records where the "how" now lives. - Diagnostic.lean unchanged in meaning (covers signature stable; Legal still quantifies over declared targets). Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
89 lines
3.9 KiB
Lean4
89 lines
3.9 KiB
Lean4
import Spec.Courseware.Primitives
|
|
import Spec.Courseware.Artifact
|
|
|
|
/-!
|
|
# Render —— export target = artifact + 有序 typed steps(ADR-0009 / 0011)
|
|
|
|
ADR-0009:export target 是**一次 build**,产出一个有类型的 `Artifact`。ADR-0011 钉死
|
|
build 的**形状**:一个 target 是 `artifact` + 一串**有序的 typed step**。每个 step 是一个
|
|
**有类型的操作**:
|
|
|
|
- `typstCompile template` —— 把**模板文件**(如 `exports/student.typ`)编译成产物。它是
|
|
*typed* 而非裸 shell,正因框架要把 **manifest 注入**模板(经 `--input manifest=…`),
|
|
裸 `typst compile` 字符串表达不了这个 wiring。presentation(numbly 编号、样式)住在
|
|
模板里,**不**在 manifest。
|
|
- `shell run` —— 逃生口,给难以声明的步骤(ADR-0005 的 (b) 类 medium-only:HTML 交互、
|
|
npm build 落这)。
|
|
|
|
MVP 每个 target 只有一个 `typstCompile` step,但 `steps` 是 **list**,因为 `FileTree` /
|
|
第三方 build 会需要多步。
|
|
|
|
**渲染覆盖**:ADR-0011 废止了 per-target 的 `RenderRule` 载荷——渲染的"how"已移进模板。
|
|
契约只保留**覆盖声明** `covers : KindId → Prop`(该 target 渲染哪些 kind),供种子诊断用;
|
|
模板是其实现。`RenderConfig.covers`/`renderIgnored` 据此,ADR-0005 种子规则不变。
|
|
-/
|
|
|
|
namespace Spec.Courseware
|
|
|
|
variable (P : Primitives)
|
|
|
|
/--
|
|
一个 build **step**(`PINNED` typed, ADR-0011;可扩展)。
|
|
|
|
- `typstCompile (template)` —— 编译模板文件(相对工程根的路径)成产物;框架把 manifest
|
|
注入它。**typed** 的理由:注入这件事裸 shell 写不出。
|
|
- `shell (run)` —— 逃生口,执行 `run` 命令(ADR-0005 的 (b) 类落这)。MVP 不实现,先建结构。
|
|
|
|
**刻意不**把模板内部、shell 命令的解析结构写进来:那是实现细节(ADR-0011 OPEN)。此处只钉
|
|
"step 是有类型操作,目前两型,可扩展"这一骨架。
|
|
-/
|
|
inductive Step where
|
|
/-- 编译模板文件 `template`(相对工程根)成产物;框架注入 manifest。 -/
|
|
| typstCompile (template : String)
|
|
/-- shell 逃生口:执行命令 `run`。 -/
|
|
| shell (run : String)
|
|
|
|
/--
|
|
一个 export target 的 build 规格(`PINNED` artifact + 有序 steps, ADR-0011)。
|
|
|
|
- `artifact` —— 产物(`Courseware.Artifact`,带字段)。决定 build 折叠成单文件还是文件树。
|
|
- `steps` —— **有序** step 列表。按序执行;MVP 仅一个 `typstCompile`。
|
|
- `covers` —— **覆盖声明**:`covers k` 表示此 target **渲染** kind `k`。这是 ADR-0011 把
|
|
旧 `renders : KindId → Option RenderRule` 降级后的产物——契约只声明"渲染哪些 kind"
|
|
(种子诊断 `renderIgnored` 用),渲染的"how"由 `steps` 的模板实现,不再是契约层载荷。
|
|
-/
|
|
structure TargetSpec where
|
|
/-- 产物(带字段, ADR-0011)。 -/
|
|
artifact : Artifact
|
|
/-- 有序 build steps。 -/
|
|
steps : List Step
|
|
/-- 覆盖声明:此 target 是否渲染该 kind。 -/
|
|
covers : P.KindId → Prop
|
|
|
|
/--
|
|
渲染配置(`PINNED` target-中心, ADR-0009/0011)。
|
|
|
|
`spec t = none` 表示 target `t` **未声明**(此工程文件不导出该 target);`some s` 给出该
|
|
target 的 build 规格 `s`(artifact + steps + 覆盖声明)。
|
|
-/
|
|
structure RenderConfig where
|
|
/-- target ↦ 该 target 的 build 规格(未声明则 `none`)。 -/
|
|
spec : P.TargetId → Option (TargetSpec P)
|
|
|
|
/--
|
|
kind `k` 在 target `t` 下**被渲染**(`PINNED`, ADR-0009/0011;承接 ADR-0005 `covers`)。
|
|
|
|
成立 ⟺ target `t` 已声明(`spec t = some s`)**且**其覆盖声明含 `k`(`s.covers k`)。
|
|
`covers` 为假即"此 kind 在此 target 下不被渲染"——checker 据此报 warning(见
|
|
`Spec.Courseware.Diagnostic.renderIgnored`)。语义与 ADR-0005 连续,只是判定基底从
|
|
"有无 RenderRule"换成"覆盖声明是否含此 kind"(ADR-0011 废 RenderRule 载荷)。`P` 隐式
|
|
以便点记法。
|
|
-/
|
|
def RenderConfig.covers {P : Primitives} (c : RenderConfig P)
|
|
(k : P.KindId) (t : P.TargetId) : Prop :=
|
|
match c.spec t with
|
|
| none => False
|
|
| some s => s.covers k
|
|
|
|
end Spec.Courseware
|