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

feat(base): 0.R4 - a queue keeps its own count, so every package verb takes only its own state; ludic migrate state --prune

Browse source 
ludic.base's Queue<T> carries a QueueTag (its name and pending count): queue_new(name), q_push(q, v),
q_drain(q), q_clear(q) take no BaseState, and core_undrained(tags) names the given queues still holding
facts. A reducer on a package's state can now call that package's verbs (wallet_earn(wallet_st, n)).

ludic migrate state --prune (ludicc --migrate-prune) takes out each state parameter a function no
longer uses, nor anything it calls, and the argument that fills it - including an argument for a
parameter the callee has dropped, which is taken out before the call is checked, so a generic's T is
told by the argument that says it. A reducer keeps its state. --dry-run now counts the edits it would
make. Every package was moved with it: 608 base_st parameters and their arguments, 1889 edits.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
This commit is contained in:
Orkun ÇAKILKAYA 2026-09-26 04:19:56 +03:00
parent 8cf4b3fed6
commit 71735b10a2
151 changed files with 58668 additions and 54719 deletions
Download patch file Download diff file Expand all files Collapse all files

12
packages/ludic.tracks/read.ludic
View file

@ -6,13 +6,13 @@ export function tracks_fresh_of(tracks_st: TracksState, age: float) -> int {
return TRACK_FRESH
}
function tk_push(base_st: mut BaseState, tracks_st: mut TracksState, f: TrackRead) -> void {
function tk_push(tracks_st: mut TracksState, f: TrackRead) -> void {
if f.first { tracks_st.tk_read_n += 1 }
q_push(base_st, tracks_reads(base_st, tracks_st), f)
q_push(tracks_reads(tracks_st), f)
}
# read the print at a slot (tracks_nearest's answer): a fact every time, a count the first time
export function tracks_read(base_st: mut BaseState, tracks_st: mut TracksState, slot: int) -> void {
export function tracks_read(tracks_st: mut TracksState, slot: int) -> void {
if slot < 0 or tracks_st.tk_ring == null or slot >= len(tracks_st.tk_ring) { return }
let t = tracks_st.tk_ring[slot]
let f = new TrackRead
@ -28,12 +28,12 @@ export function tracks_read(base_st: mut BaseState, tracks_st: mut TracksState,
f.first = not t.read
t.read = true
tracks_note_bearing(tracks_st, t.yaw)
tk_push(base_st, tracks_st, f)
tk_push(tracks_st, f)
}
# a sign that is not a print (droppings, a legend's mark): the caller knows whether it is the
# first reading of it
export function tracks_note(base_st: mut BaseState, tracks_st: mut TracksState, sp: int, source: int, legend: bool, yaw: float, first: bool) -> void {
export function tracks_note(tracks_st: mut TracksState, sp: int, source: int, legend: bool, yaw: float, first: bool) -> void {
let f = new TrackRead
f.sp = sp
f.source = source
@ -42,7 +42,7 @@ export function tracks_note(base_st: mut BaseState, tracks_st: mut TracksState,
f.named = tk_named(tracks_st)
f.bearing = tk_bearing(yaw)
f.first = first
tk_push(base_st, tracks_st, f)
tk_push(tracks_st, f)
}
# the way the last thing read went (a bed, droppings, a print)