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

ludic.net: a message's record, bytes and lists kept - queued ones back to a pool once sent or taken, the inbox's two drains on, a read text interned

Browse source 
np_queue made a NetMsg and a buffer per message, every flush a new keep list, and every message
that came in a NetMessage and a buffer; nr_text a new string per text read. A party plays at
dozens a second, so all of it is kept now: a pool of MTU-sized records for the queue (a peer's two
lists swapped by the flush), the inbox's records in two halves swapped when a message finds the
inbox empty, net_written's one record, a relay hello's and a STUN request's bytes in one scratch
buffer, and the texts read out interned. Tests: 6000 messages with the heap flat (Os.heap_bytes),
and an inbox record that holds still across a drain and comes back two drains on.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
This commit is contained in:
Orkun ÇAKILKAYA 2026-09-28 13:25:46 +03:00
parent e6729b3123
commit ca69a3f9ae
11 changed files with 134 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

46
packages/ludic.net/tests/net_test.ludic
View file

@ -10,6 +10,8 @@ program NetTest {
inbound: []Pkt = null
from_ip: int = 0
from_port: int = 0
quiet: bool = false # sends only counted, not kept: a test of what the package holds
sends: int = 0
}
function fake_open(port: int) -> int { return 5 }
@ -19,6 +21,8 @@ program NetTest {
function fake_from_ip(net_test_st: NetTestState, h: int) -> int { return net_test_st.from_ip }
function fake_from_port(net_test_st: NetTestState, h: int) -> int { return net_test_st.from_port }
function fake_send(net_test_st: mut NetTestState, h: int, ip: int, port: int, b: []byte, n: int) -> int {
net_test_st.sends += 1
if net_test_st.quiet { return n }
let p = new Pkt
p.ip = ip
p.port = port
@ -274,4 +278,46 @@ program NetTest {
expect(not net_room_join(net_st, "ABCDEF"))
expect_eq(net_why(net_st), NET_WHY_NO_MATCHMAKER)
}
test "sending holds its bytes flat: a message's record and bytes come back once it is sent (6 s of a guest, 6000 messages)" (net_st: mut NetState, net_test_st: mut NetTestState) {
let slot = np_of_pid(net_st, host_with_guest(net_st, net_test_st))
net_test_st.quiet = true
for r in 0 .. 3000 {
if r == 1000 { net_test_st.from_ip = Os.heap_bytes() }
nw_begin(net_st)
nw_i(net_st, r)
np_queue(net_st, slot, 9, false)
nw_begin(net_st)
nw_i(net_st, r + 1)
np_queue(net_st, slot, 9, false)
frame(net_st, 0.002)
}
let after = Os.heap_bytes()
expect(net_test_st.sends >= 3000)
if Os.heap_bytes() > 0 { expect(after <= net_test_st.from_ip) }
expect(net_spare_count(net_st) >= 1)
}
test "an inbox message's record is kept: a drained list holds still while more come, and comes back two drains on" (net_st: mut NetState, net_test_st: mut NetTestState) {
host_with_guest(net_st, net_test_st)
q_clear(net_inbox(net_st))
arrive(net_test_st, Udp.ip("10.0.0.9"), 5000, 77, 2, 0, 9, 2, 111)
net_begin(net_st, 0.01)
let first = q_drain(net_inbox(net_st))
expect_eq(len(first), 1)
let r0: pointer = first[0]
arrive(net_test_st, Udp.ip("10.0.0.9"), 5000, 77, 2, 0, 9, 3, 222)
net_begin(net_st, 0.01)
net_read(net_st, first[0])
expect_eq(nr_i(net_st), 111)
let second = q_drain(net_inbox(net_st))
net_read(net_st, second[0])
expect_eq(nr_i(net_st), 222)
arrive(net_test_st, Udp.ip("10.0.0.9"), 5000, 77, 2, 0, 9, 4, 333)
net_begin(net_st, 0.01)
let third = q_drain(net_inbox(net_st))
let r2: pointer = third[0]
expect(r2 == r0)
net_read(net_st, third[0])
expect_eq(nr_i(net_st), 333)
}
}