59f0aa7716
allocators/fs/process/socket/log/trace/test move under modules/std/ (allocators.sx becomes std/mem.sx; the Allocator protocol moves into the std.sx prelude, impls stay in mem.sx). New std/xml.sx holds xml_escape as xml.escape. std.sx gains the carried namespace tail — flat-importing std.sx now also provides mem./xml./log. — with the remaining modules (fs/process/socket/json/cli/hash/test) deferred from the tail until the global last-wins maps are fully own-wins (pulling them into every closure collides bare names corpus-wide; they stay direct imports: modules/std/fs.sx etc.). log.sx's internal emit renamed log_emit (it clobbered consumer fns named emit program-wide). bundle.sx uses xml.escape via the carried alias. Consumer import paths swept mechanically; .ir snapshots recaptured for the larger std closure. m3te + game build unchanged.
43 lines
1.4 KiB
Plaintext
43 lines
1.4 KiB
Plaintext
#import "modules/std.sx";
|
|
#import "modules/math/math.sx";
|
|
#import "modules/compiler.sx";
|
|
#import "modules/std/test.sx";
|
|
pkg :: #import "modules/testpkg";
|
|
|
|
main :: () {
|
|
|
|
// --- UFCS Aliases & Pipe ---
|
|
{
|
|
print("=== UFCS Aliases ===\n");
|
|
|
|
num_sum :: (a: s64, b: s64) -> s64 { a + b }
|
|
sum :: ufcs num_sum;
|
|
|
|
print("{}\n", num_sum(40, 2)); // 42 — direct call
|
|
print("{}\n", sum(40, 2)); // 42 — alias direct call
|
|
print("{}\n", 40 |> sum(2)); // 42 — pipe UFCS via alias
|
|
|
|
print("{}\n", num_sum(40, 2)); // 42 — direct (was tuple full-splat)
|
|
print("{}\n", 40 |> sum(2)); // 42 — pipe (was tuple partial-splat)
|
|
|
|
compute :: (a: s64, b: s64, c: s64, d: s64) -> s64 { a + b * c - d }
|
|
calc :: ufcs compute;
|
|
|
|
print("{}\n", compute(1, 2, 3, 4)); // 1+2*3-4 = 3 (was tuple full-splat)
|
|
print("{}\n", compute(1, 2, 3, 4)); // same = 3 (was tuple partial-splat)
|
|
print("{}\n", 1 |> calc(2, 3, 4)); // same = 3 — pipe UFCS
|
|
|
|
// Tuple return type
|
|
swap :: (a: s64, b: s64) -> (s64, s64) { (b, a) }
|
|
s := swap(1, 2);
|
|
a := s.0;
|
|
b := s.1;
|
|
print("{}\n", a); // 2
|
|
print("{}\n", b); // 1
|
|
|
|
wrap :: (x: s64) -> (s64) { (x,) }
|
|
t := wrap(99);
|
|
print("{}\n", t.0); // 99
|
|
}
|
|
}
|