workshopsoft/ludic
2
0
Fork 0
Code Issues Pull requests Projects Releases 26 Packages Wiki Activity Actions

feat(migrate): 0.R5 - ludic migrate state --tighten takes mut off every state parameter nothing down the chain writes; --root DIR lets the edits reach a directory without running its programs; a write through a local holding part of a mut state counts as a write to it

Browse source 
Maroon Lake: 149 parameters became read-only. What stays mut is a real write - in the packages mostly a
lazy start inside a question (things_all, gear__ensure), which is what to take out next.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
This commit is contained in:
Orkun ÇAKILKAYA 2026-09-27 00:20:44 +03:00
parent 40a91f39ed
commit 54f5efb23f
7 changed files with 50934 additions and 50157 deletions
Download patch file Download diff file Expand all files Collapse all files

6
selfhost/check/check_state.ludic
View file

@ -7,15 +7,19 @@
var ck_ro: []int = new []int # parallel to ck_names: 1 for a read-only state
var ck_alias: []Node = new []Node # parallel to ck_names: the global a local's reference came from
var ck_ro_st: []pointer = new []pointer # parallel to ck_names: the state that makes a local read-only
var ck_from_st: []pointer = new []pointer # parallel to ck_names: the state a local's reference came out of, mut or not
function ck_set_ro(ro: bool) -> void {
let k = ck_top - 1
while len(ck_ro) < len(ck_names) { push(ck_ro, 0) }
while len(ck_alias) < len(ck_names) { push(ck_alias, null) }
while len(ck_ro_st) < len(ck_names) { push(ck_ro_st, null) }
while len(ck_from_st) < len(ck_names) { push(ck_from_st, null) }
if ro { ck_ro[k] = 1 } else { ck_ro[k] = 0 }
ck_alias[k] = null
ck_ro_st[k] = null
ck_from_st[k] = null
if is_state_ty(ck_tys[k]) { ck_from_st[k] = ck_tys[k] }
if ro { ck_ro_st[k] = ck_tys[k] }
}
# the local just bound is read-only for the same state as local `li`
@ -42,6 +46,7 @@ function ck_let_from(e: Node, ty: pointer) -> void {
if li >= 0 and li < k {
if ck_is_ro(li) { ck_ro_like(li) }
if li < len(ck_alias) { ck_alias[k] = ck_alias[li] }
if li < len(ck_from_st) and k < len(ck_from_st) { ck_from_st[k] = ck_from_st[li] }
return
}
if li >= 0 { return }
@ -75,6 +80,7 @@ function ck_write_check(t: Node, what: pointer) -> void {
if li >= 0 {
mg_local_write(ck_tys[li]) # 0.S2 --migrate-prune: a state changed here
if li < len(ck_ro_st) { mg_local_write(ck_ro_st[li]) }
if li < len(ck_from_st) and ck_from_st[li] != null { mg_local_write(ck_from_st[li]) } # through a local holding part of it
if li < len(ck_alias) and ck_alias[li] != null {
let ag = ck_alias[li]
mg_write(t, ag)