59f90d2939
Pure source rename across 11 std modules (~60 sites): cli/core/fmt/fs/log/ net/kqueue/process/socket/thread/time/trace. All fn-decl markers — bare '#foreign;', '#foreign libc;'/'#foreign tlib;' (LIB ref), and '#foreign libc "csym";' (LIB+rename) → the same 'extern …' tail (extern carries the identical [LIB] ["csym"] axis). Plus 2 stale comment mentions (fmt/fs). No class forms in std. These modules ARE host-corpus-exercised, so the empty snapshot diff is direct validation. Suite green (647 corpus / 444 unit, 0 failed).
30 lines
1.5 KiB
Plaintext
30 lines
1.5 KiB
Plaintext
#import "modules/std.sx";
|
|
|
|
// =====================================================================
|
|
// log.sx — plain leveled logging (ERR step E4.1), orthogonal to the
|
|
// error channel. Each entry is written to stderr as `LEVEL: <msg>\n`,
|
|
// where <msg> is the formatted `fmt` + args (same `{}` interpolation as
|
|
// `print`). Sink is stderr (fd 2) so log output stays out of a program's
|
|
// stdout data stream.
|
|
//
|
|
// Note: PLAN-ERR §log sketches a `LEVEL ts msg` line with an ISO-8601
|
|
// UTC timestamp. The timestamp is deferred — it needs a clock binding
|
|
// and would make golden tests time-dependent; the level + message are
|
|
// the load-bearing parts. Add `ts` once a pinnable clock lands.
|
|
// =====================================================================
|
|
|
|
libc :: #library "c";
|
|
|
|
write :: (fd: i32, buf: [*]u8, count: usize) -> isize extern libc;
|
|
|
|
// Prefix the level, append a newline, write the whole line to stderr.
|
|
log_emit :: (level: string, msg: string) {
|
|
line := concat(concat(level, msg), "\n");
|
|
write(2, line.ptr, xx line.len);
|
|
}
|
|
|
|
warn :: ($fmt: string, ..$args) { #insert build_format(fmt); #insert "log_emit(\"WARN: \", result);"; }
|
|
info :: ($fmt: string, ..$args) { #insert build_format(fmt); #insert "log_emit(\"INFO: \", result);"; }
|
|
debug :: ($fmt: string, ..$args) { #insert build_format(fmt); #insert "log_emit(\"DEBUG: \", result);"; }
|
|
err :: ($fmt: string, ..$args) { #insert build_format(fmt); #insert "log_emit(\"ERROR: \", result);"; }
|