Brummel
72e54f4fd3
The surface-form file extension changes from .ailx to .ail. AILang's
authoring surface now uses the same .ail stem as its canonical JSON
form (.ail.json), giving the language a single coherent extension
family: .ail is the LLM-authored Form A, .ail.json is the canonical
JSON-AST Form B.
Scope (touched):
- 61 example renames examples/**/*.ailx → .ail (git mv)
- 1 rename experiments/.../rendered/ailx.md → ail.md
- 35 content-edited live-toolchain files (crates/, docs/DESIGN.md,
docs/roadmap.md, docs/PROSE_ROUNDTRIP.md, skills/, bench/reference/*.c,
experiment crates under experiments/.../{render,harness,master})
- Experiment-crate cohort rename Cohort::Ailx → Cohort::Ail,
Form::Ailx → Form::Ail, per_cohort/ailx → per_cohort/ail,
{form-only: ailx} → {form-only: ail}, ```ailx → ```ail
Out of scope (deliberately untouched, to preserve honest history):
- docs/journal-archive.md (content-frozen per CLAUDE.md)
- docs/journals/, docs/specs/, docs/plans/, bench/orchestrator-stats/
- experiments/.../runs/ (frozen LLM-output artefacts; models actually
saw .ailx — renaming would falsify the experimental record)
Verification: cargo build/test --workspace green; experiment crate
cargo test green; bench/check.py + compile_check.py + cross_lang.py
all 0-regressed; negative grep for ailx|Ailx|AILX outside the
out-of-scope paths returns zero matches.
Opens immediate follow-up: roadmap.md P2 todo `ail check`/build/run
accept .ail extension — after this rename, .ail is canonical
authoring surface but the CLI still produces a misleading JSON-parse
error on `ail check foo.ail`. That's the next iter.
72 lines
3.0 KiB
Plaintext
72 lines
3.0 KiB
Plaintext
; Iter 15g — fifth stdlib module: first 3-way cross-module fn set.
|
||
; Imports std_list, std_either, std_pair simultaneously. All three
|
||
; combinators dispatch over List<Either<e, a>>; partition_eithers
|
||
; additionally returns Pair<List<e>, List<a>>. Stresses
|
||
; monomorphisation across List × Either × Pair, cross-module ctor
|
||
; resolution at qualified term-ctor sites, and the 16a desugar
|
||
; layer at depth-2 nested Ctor patterns (in `lefts` / `rights`).
|
||
|
||
(module std_either_list
|
||
|
||
(import std_list)
|
||
(import std_either)
|
||
(import std_pair)
|
||
|
||
(fn lefts
|
||
(doc "Project the Left payloads of a list of Eithers into a List<e>. Order-preserving. Uses the 16a nested-Ctor pattern to inline the inner Either dispatch within each Cons arm; the trailing wildcard arm seals the desugar's fall-through chain into a List<e> rather than the synthetic Unit fallback.")
|
||
(type
|
||
(forall (vars e a)
|
||
(fn-type
|
||
(params (con std_list.List (con std_either.Either e a)))
|
||
(ret (con std_list.List e)))))
|
||
(params xs)
|
||
(body
|
||
(match xs
|
||
(case (pat-ctor Cons (pat-ctor Left l) t)
|
||
(term-ctor std_list.List Cons l (app lefts t)))
|
||
(case (pat-ctor Cons (pat-ctor Right _) t)
|
||
(app lefts t))
|
||
(case _ (term-ctor std_list.List Nil)))))
|
||
|
||
(fn rights
|
||
(doc "Project the Right payloads of a list of Eithers into a List<a>. Symmetric to lefts; same nested-Ctor + wildcard-tail pattern shape.")
|
||
(type
|
||
(forall (vars e a)
|
||
(fn-type
|
||
(params (con std_list.List (con std_either.Either e a)))
|
||
(ret (con std_list.List a)))))
|
||
(params xs)
|
||
(body
|
||
(match xs
|
||
(case (pat-ctor Cons (pat-ctor Left _) t)
|
||
(app rights t))
|
||
(case (pat-ctor Cons (pat-ctor Right r) t)
|
||
(term-ctor std_list.List Cons r (app rights t)))
|
||
(case _ (term-ctor std_list.List Nil)))))
|
||
|
||
(fn partition_eithers
|
||
(doc "Partition a list of Eithers into a Pair<List<e>, List<a>>: lefts on the left, rights on the right. Single pass via direct recursion; head dispatch is a flat match on the recursive result's projections.")
|
||
(type
|
||
(forall (vars e a)
|
||
(fn-type
|
||
(params (con std_list.List (con std_either.Either e a)))
|
||
(ret (con std_pair.Pair (con std_list.List e) (con std_list.List a))))))
|
||
(params xs)
|
||
(body
|
||
(match xs
|
||
(case (pat-ctor Nil)
|
||
(term-ctor std_pair.Pair MkPair
|
||
(term-ctor std_list.List Nil)
|
||
(term-ctor std_list.List Nil)))
|
||
(case (pat-ctor Cons h t)
|
||
(let rest (app partition_eithers t)
|
||
(match h
|
||
(case (pat-ctor Left l)
|
||
(term-ctor std_pair.Pair MkPair
|
||
(term-ctor std_list.List Cons l (app std_pair.fst rest))
|
||
(app std_pair.snd rest)))
|
||
(case (pat-ctor Right r)
|
||
(term-ctor std_pair.Pair MkPair
|
||
(app std_pair.fst rest)
|
||
(term-ctor std_list.List Cons r (app std_pair.snd rest)))))))))))
|