qwreey
d2d67c7aeb
- 신선한 탐사자(fable) 단일 컨텍스트, 지시서 -round10-brief.md §2 레인 A·C 완료, B 부분, D ALL PASS - audit/handtrace-round10-reference-impl/: round7 참조 구현을 현재 계약으로 갱신·재실행 (부수: round7/ref9 _recompute 첫 인자 오류 발견·정정) - base/·인덱스 레이어는 미변경 — 결정은 사용자 배치 회신 뒤 -round10-followup.md로 Co-authored-by: qwreey <me@qwreey.moe> Claude-Session: https://claude.ai/code/session_01546hjsYNLSMZdHdPyTZaGb
57 lines
2.3 KiB
Text
57 lines
2.3 KiB
Text
--!strict
|
|
-- 레인 A/D: 최종형 Store — §1② 쪼개기 선언(재귀 `Compute -> State<U>` 포함)의 `Source<T>` 필드 +
|
|
-- `CheckReservedKeys<keyof<T>>` 팬텀 필드 + 빈 `{}` + `Of<<T>>` — luau-analyze로 한 번에.
|
|
-- 기대: (A)(B)(C)(E) 진단 0, (D)(F)(G) 정확히 걸림, (H) 예약 키 print 진단.
|
|
export type StateData<T> = { Get: (self: StateData<T>) -> T }
|
|
export type State<T> = StateData<T> & {
|
|
Compute: <U>(self: StateData<T>, fn: (self: StateData<T>) -> U) -> State<U>,
|
|
}
|
|
export type Source<T> = State<T> & { Set: (self: Source<T>, v: T) -> Source<T>, Revision: number }
|
|
|
|
type function CheckReservedKeys(keys: type)
|
|
local list = if keys:is("union") then keys:components() else { keys }
|
|
for _, k in list do
|
|
if k:is("singleton") then
|
|
local v = k:value()
|
|
if v == "Of" or v == "Names" or v == "__reservedCheck" then
|
|
print(`quad.Store: "{v}" is a reserved key`)
|
|
return types.never
|
|
end
|
|
end
|
|
end
|
|
return types.singleton(true)
|
|
end
|
|
type Store<T> = T & {
|
|
Of: <U>(self: any, name: string) -> Source<U>,
|
|
Names: (self: any) -> { string },
|
|
__reservedCheck: CheckReservedKeys<keyof<T>>,
|
|
}
|
|
local function Store<T>(defaults: T?): Store<T> return (nil :: any) end
|
|
local function Source<T>(v: T): Source<T> return (nil :: any) end
|
|
|
|
-- (A) 키 있는 최종형
|
|
local s = Store({ hp = Source(100), name = Source("x") })
|
|
local a1: Source<number> = s.hp
|
|
local a2: number = s.hp:Get()
|
|
s.hp:Set(5)
|
|
-- (B) 무주석 콜백 파라미터 추론 생존
|
|
local b1 = s.hp:Compute(function(x) return x:Get() * 2 end)
|
|
-- (C) Of<<T>>
|
|
local c1: Source<boolean> = s:Of("dyn")
|
|
local c2: Source<number> = s:Of("dyn2")
|
|
local c3: Source<boolean> = s:Of<<boolean>>("z")
|
|
local c4: Source<number> = s:Of<<boolean>>("z2") -- 음성: 명시 인스턴스화면 걸려야
|
|
-- (D) 음성: 틀린 타입
|
|
local d1: Source<string> = s.hp
|
|
local d2: string = s.hp:Get()
|
|
-- (E) 빈 Store
|
|
local empty = Store({} :: {})
|
|
local e1: { string } = empty:Names()
|
|
local e2: Source<number> = empty:Of("dyn")
|
|
-- (F) 선언 안 된 키
|
|
local f1 = s.nope
|
|
-- (G) Compute 반환 타입 명시 주석 구멍(§1) — 이 줄은 조용히 통과할 것(기대: 진단 없음 — 알려진 한계)
|
|
local g1: State<string> = s.hp:Compute(function(x) return x:Get() * 2 end)
|
|
-- (H) 예약 키 충돌 — 타입 함수 진단
|
|
local bad = Store({ Of = Source(1) })
|
|
local h1 = bad.Of
|