Orkuncakilkaya
71735b10a2
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>
54 lines
1.9 KiB
Text
54 lines
1.9 KiB
Text
# read.ludic - reading the ground. A print is read once: reading it again says the same thing
|
|
# and counts nothing, so pressing a key over one print is not as good as walking a trail.
|
|
export function tracks_fresh_of(tracks_st: TracksState, age: float) -> int {
|
|
if age > tracks_st.tk_recent_h { return TRACK_OLD }
|
|
if age > tracks_st.tk_fresh_h { return TRACK_RECENT }
|
|
return TRACK_FRESH
|
|
}
|
|
|
|
function tk_push(tracks_st: mut TracksState, f: TrackRead) -> void {
|
|
if f.first { tracks_st.tk_read_n += 1 }
|
|
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(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
|
|
f.sp = t.sp
|
|
f.source = TRACK_PRINT
|
|
f.kind = slot / tracks_st.tk_cap
|
|
f.legend = t.legend
|
|
f.age = tracks_age(tracks_st, slot)
|
|
f.fresh = tracks_fresh_of(tracks_st, f.age)
|
|
f.yaw = t.yaw
|
|
f.named = tk_named(tracks_st)
|
|
f.bearing = tk_bearing(t.yaw)
|
|
f.first = not t.read
|
|
t.read = true
|
|
tracks_note_bearing(tracks_st, t.yaw)
|
|
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(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
|
|
f.legend = legend
|
|
f.yaw = yaw
|
|
f.named = tk_named(tracks_st)
|
|
f.bearing = tk_bearing(yaw)
|
|
f.first = first
|
|
tk_push(tracks_st, f)
|
|
}
|
|
|
|
# the way the last thing read went (a bed, droppings, a print)
|
|
export function tracks_note_bearing(tracks_st: mut TracksState, yaw: float) -> void {
|
|
tracks_st.tk_yaw = yaw
|
|
tracks_st.tk_has_yaw = true
|
|
}
|
|
|
|
export function tracks_set_read_count(tracks_st: mut TracksState, n: int) -> void { tracks_st.tk_read_n = n }
|