feat(lang): packages count under uses; a port of defaults may go unbound

A module that says uses must name every package module it reaches; a
package with no module line is named for its directory (ludic_render3d)
for this rule, so a mechanic reaching into the renderer is caught. Only
the engine's runtime needs no naming. 'module x uses' with nothing after
it reaches no other module. A port whose every member has a default
answers with its defaults when unbound, and 'new' of a port says to bind
it. ludic-dev test runs 'ludic test packages'. Reseed.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
This commit is contained in:
Orkun ÇAKILKAYA 2026-09-25 05:36:11 +03:00
parent e8c1d54a96
commit f4062010e9
15 changed files with 47465 additions and 46516 deletions

View file

@ -9,7 +9,8 @@
# required) and a global `Clock` of that record, in the port's module and exported with it. The
# one `bind` is that global's initializer. When the program is read (ports_finish) every bind
# must name a port, give each required member, give no member twice-over, and see the port;
# a port used anywhere must be bound (port_check_bound, at the use). The binding's values are
# a port used anywhere must be bound (port_check_bound, at the use) - unless every member has a
# default, when an unbound port answers with its defaults. The binding's values are
# checked for visibility from the bind's file, here, so the port's module needs no `uses` of it.
var g_pt_name: []pointer = new []pointer
var g_pt_comp: []Node = new []Node
@ -108,6 +109,22 @@ function port_bind_one(b: Node) -> void {
nw.line = b.line
v.a = nw
}
# a port whose every member has a default needs no bind: left alone it answers with its defaults
function port_defaults_only(k: int) -> void {
let c = g_pt_comp[k]
var i = 0
while i < len(c.kids) {
if c.kids[i].a == null { return }
i += 1
}
let v = g_pt_var[k]
let nw = node(E_NEW)
nw.s = c.s
nw.file = v.file
nw.line = v.line
v.a = nw
g_pt_bind[k] = nw
}
function ports_finish() -> void {
let saved = g_parsing
g_parsing = false
@ -116,5 +133,10 @@ function ports_finish() -> void {
port_bind_one(g_bd[i])
i += 1
}
i = 0
while i < len(g_pt_name) {
if g_pt_bind[i] == null { port_defaults_only(i) }
i += 1
}
g_parsing = saved
}