refactor(ffi-linkage): Phase 6.3 — migrate std/ #foreign→extern

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).
This commit is contained in:
agra
2026-06-15 04:35:52 +03:00
parent 0fbcee7e36
commit 59f90d2939
11 changed files with 60 additions and 60 deletions

View File

@@ -41,8 +41,8 @@ libc :: #library "c";
// `char**` / `int` the process was launched with. Declared as `*i64` /
// `*i32` since on 64-bit a `char***` is just a pointer to a pointer-sized
// slot.
ns_get_argv :: () -> *i64 #foreign libc "_NSGetArgv";
ns_get_argc :: () -> *i32 #foreign libc "_NSGetArgc";
ns_get_argv :: () -> *i64 extern libc "_NSGetArgv";
ns_get_argc :: () -> *i32 extern libc "_NSGetArgc";
// =====================================================================
// EXIT-CODE & `--json` CONTRACT (F3.3) — the minimal surface `dist` (and

View File

@@ -15,11 +15,11 @@ align_of :: ($T: Type) -> i64 #builtin;
// spellings are NOT declared: the Allocator protocol + the std/mem.sx
// helpers are the allocation surface (`free` is the typed slice helper
// there). Raw libc escape hatch: `libc_malloc` / `libc_free`.
libc_malloc :: (size: i64) -> *void #foreign libc "malloc";
libc_free :: (ptr: *void) -> void #foreign libc "free";
libc_malloc :: (size: i64) -> *void extern libc "malloc";
libc_free :: (ptr: *void) -> void extern libc "free";
memcpy :: (dst: *void, src: *void, size: i64) -> *void #foreign libc "memcpy";
memset :: (dst: *void, val: i64, size: i64) -> void #foreign libc "memset";
memcpy :: (dst: *void, src: *void, size: i64) -> *void extern libc "memcpy";
memset :: (dst: *void, val: i64, size: i64) -> void extern libc "memset";
type_of :: (val: $T) -> Type #builtin;
type_name :: ($T: Type) -> string #builtin;
field_count :: ($T: Type) -> i64 #builtin;

View File

@@ -177,7 +177,7 @@ substr :: (s: string, start: i64, len: i64) -> string {
// ── cstring: the C-boundary string ────────────────────────────────────
// `cstring` is ONE pointer to a null-terminated u8 buffer — C's `char *`.
// It carries no length (`cstring_len` walks to the terminator) and
// crosses `#foreign` boundaries verbatim in both directions; `?cstring`
// crosses `extern` boundaries verbatim in both directions; `?cstring`
// is the nullable case (null pointer = absent). String LITERALS coerce
// to `cstring` implicitly — their bytes are terminated constants; every
// other `string` must materialize through `to_cstring`.

View File

@@ -28,17 +28,17 @@ libc :: #library "c";
// variadic tail. Without that, the mode arg goes to the wrong
// register on arm64 and the file ends up with mode 0.
open :: (path: [:0]u8, flags: i32, ..args: []i32) -> i32 #foreign libc;
close :: (fd: i32) -> i32 #foreign libc;
read :: (fd: i32, buf: [*]u8, count: usize) -> isize #foreign libc;
write :: (fd: i32, buf: [*]u8, count: usize) -> isize #foreign libc;
lseek :: (fd: i32, offset: i64, whence: i32) -> i64 #foreign libc;
unlink :: (path: [:0]u8) -> i32 #foreign libc;
rmdir :: (path: [:0]u8) -> i32 #foreign libc;
mkdir :: (path: [:0]u8, mode: u32) -> i32 #foreign libc;
access :: (path: [:0]u8, mode: i32) -> i32 #foreign libc;
chmod :: (path: [:0]u8, mode: u32) -> i32 #foreign libc;
rename :: (oldp: [:0]u8, newp: [:0]u8) -> i32 #foreign libc;
open :: (path: [:0]u8, flags: i32, ..args: []i32) -> i32 extern libc;
close :: (fd: i32) -> i32 extern libc;
read :: (fd: i32, buf: [*]u8, count: usize) -> isize extern libc;
write :: (fd: i32, buf: [*]u8, count: usize) -> isize extern libc;
lseek :: (fd: i32, offset: i64, whence: i32) -> i64 extern libc;
unlink :: (path: [:0]u8) -> i32 extern libc;
rmdir :: (path: [:0]u8) -> i32 extern libc;
mkdir :: (path: [:0]u8, mode: u32) -> i32 extern libc;
access :: (path: [:0]u8, mode: i32) -> i32 extern libc;
chmod :: (path: [:0]u8, mode: u32) -> i32 extern libc;
rename :: (oldp: [:0]u8, newp: [:0]u8) -> i32 extern libc;
// macOS POSIX constants. Linux values differ; split into platform-
// conditional includes when we gain a Linux host.
@@ -101,7 +101,7 @@ File :: struct {
// ── High-level file API ─────────────────────────────────────────────
// Named `open_file` (not `open`) so they don't shadow libc's `open`
// symbol; the latter is needed for `#foreign libc` to resolve. Same
// symbol; the latter is needed for `extern libc` to resolve. Same
// idea for `delete_file`/`delete_dir` vs libc's `unlink`/`rmdir`,
// `set_mode` vs libc's `chmod`, etc.

View File

@@ -15,7 +15,7 @@
libc :: #library "c";
write :: (fd: i32, buf: [*]u8, count: usize) -> isize #foreign libc;
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) {

View File

@@ -32,8 +32,8 @@ KqTimespec :: struct {
nsec: i64 = 0;
}
kqueue :: () -> i32 #foreign libc;
kevent :: (kq: i32, changelist: *Kevent, nchanges: i32, eventlist: *Kevent, nevents: i32, timeout: *KqTimespec) -> i32 #foreign libc;
kqueue :: () -> i32 extern libc;
kevent :: (kq: i32, changelist: *Kevent, nchanges: i32, eventlist: *Kevent, nevents: i32, timeout: *KqTimespec) -> i32 extern libc;
// Filters (darwin)
EVFILT_READ :i16: -1;
@@ -82,4 +82,4 @@ kq_wait :: (kq: i32, events: *Kevent, cap: i32, timeout_ms: i64) -> i32 {
}
// errno, bound locally (the std.socket accessor is module-scoped there).
errno_slot_kq :: () -> *i32 #foreign libc "__error";
errno_slot_kq :: () -> *i32 extern libc "__error";

View File

@@ -20,12 +20,12 @@ libc :: #library "c";
// ── Low-level libc bindings ─────────────────────────────────────────
popen :: (cmd: [:0]u8, mode: [:0]u8) -> *void #foreign libc;
pclose :: (stream: *void) -> i32 #foreign libc;
fread :: (ptr: [*]u8, size: usize, nmemb: usize, stream: *void) -> usize #foreign libc;
feof :: (stream: *void) -> i32 #foreign libc;
getenv :: (name: cstring) -> ?cstring #foreign libc;
system :: (cmd: [:0]u8) -> i32 #foreign libc;
popen :: (cmd: [:0]u8, mode: [:0]u8) -> *void extern libc;
pclose :: (stream: *void) -> i32 extern libc;
fread :: (ptr: [*]u8, size: usize, nmemb: usize, stream: *void) -> usize extern libc;
feof :: (stream: *void) -> i32 extern libc;
getenv :: (name: cstring) -> ?cstring extern libc;
system :: (cmd: [:0]u8) -> i32 extern libc;
// ── Public types ─────────────────────────────────────────────────────
@@ -122,7 +122,7 @@ find_executable :: (name: [:0]u8) -> ?string {
// via `write(2)`, so skipping the stdio flush loses nothing. Binding the
// symbol `"exit"` would also collide with this module's own `exit` function
// at the link level.
clib_exit :: (code: i32) -> noreturn #foreign libc "_exit";
clib_exit :: (code: i32) -> noreturn extern libc "_exit";
// Stop the process immediately with exit code `code`. Does NOT unwind:
// no `defer` / `onfail` cleanup runs, no error-trace frames are pushed —

View File

@@ -5,18 +5,18 @@
libc :: #library "c";
// POSIX socket API
socket :: (domain: i32, kind: i32, protocol: i32) -> i32 #foreign libc;
setsockopt :: (fd: i32, level: i32, optname: i32, optval: *i32, optlen: u32) -> i32 #foreign libc;
bind :: (fd: i32, addr: *SockAddr, addrlen: u32) -> i32 #foreign libc;
listen :: (fd: i32, backlog: i32) -> i32 #foreign libc;
accept :: (fd: i32, addr: *SockAddr, addrlen: *u32) -> i32 #foreign libc;
connect :: (fd: i32, addr: *SockAddr, addrlen: u32) -> i32 #foreign libc;
read :: (fd: i32, buf: [*]u8, count: usize) -> isize #foreign libc;
write :: (fd: i32, buf: [*]u8, count: usize) -> isize #foreign libc;
close :: (fd: i32) -> i32 #foreign libc;
shutdown :: (fd: i32, how: i32) -> i32 #foreign libc;
socketpair :: (domain: i32, kind: i32, protocol: i32, fds: *i32) -> i32 #foreign libc;
fcntl :: (fd: i32, cmd: i32, ..args: []i32) -> i32 #foreign libc;
socket :: (domain: i32, kind: i32, protocol: i32) -> i32 extern libc;
setsockopt :: (fd: i32, level: i32, optname: i32, optval: *i32, optlen: u32) -> i32 extern libc;
bind :: (fd: i32, addr: *SockAddr, addrlen: u32) -> i32 extern libc;
listen :: (fd: i32, backlog: i32) -> i32 extern libc;
accept :: (fd: i32, addr: *SockAddr, addrlen: *u32) -> i32 extern libc;
connect :: (fd: i32, addr: *SockAddr, addrlen: u32) -> i32 extern libc;
read :: (fd: i32, buf: [*]u8, count: usize) -> isize extern libc;
write :: (fd: i32, buf: [*]u8, count: usize) -> isize extern libc;
close :: (fd: i32) -> i32 extern libc;
shutdown :: (fd: i32, how: i32) -> i32 extern libc;
socketpair :: (domain: i32, kind: i32, protocol: i32, fds: *i32) -> i32 extern libc;
fcntl :: (fd: i32, cmd: i32, ..args: []i32) -> i32 extern libc;
// Constants (macOS)
AF_UNIX :i32: 1;
@@ -49,7 +49,7 @@ htons :: (port: i64) -> u16 {
// errno resolves to a real function under the C macro: `__error` on
// darwin, `__errno_location` on linux (C3 selects per-OS).
errno_slot :: () -> *i32 #foreign libc "__error";
errno_slot :: () -> *i32 extern libc "__error";
// fcntl file-status flags + errno values (macOS).
F_GETFL :i32: 3;

View File

@@ -26,20 +26,20 @@
tlib :: #library "c";
pthread_create :: (thread: *usize, attr: *void, start: (*void) -> *void callconv(.c), arg: *void) -> i32 #foreign tlib;
pthread_join :: (thread: usize, retval: **void) -> i32 #foreign tlib;
pthread_detach :: (thread: usize) -> i32 #foreign tlib;
pthread_create :: (thread: *usize, attr: *void, start: (*void) -> *void callconv(.c), arg: *void) -> i32 extern tlib;
pthread_join :: (thread: usize, retval: **void) -> i32 extern tlib;
pthread_detach :: (thread: usize) -> i32 extern tlib;
pthread_mutex_init :: (m: *MutexBuf, attr: *void) -> i32 #foreign tlib;
pthread_mutex_lock :: (m: *MutexBuf) -> i32 #foreign tlib;
pthread_mutex_unlock :: (m: *MutexBuf) -> i32 #foreign tlib;
pthread_mutex_destroy :: (m: *MutexBuf) -> i32 #foreign tlib;
pthread_mutex_init :: (m: *MutexBuf, attr: *void) -> i32 extern tlib;
pthread_mutex_lock :: (m: *MutexBuf) -> i32 extern tlib;
pthread_mutex_unlock :: (m: *MutexBuf) -> i32 extern tlib;
pthread_mutex_destroy :: (m: *MutexBuf) -> i32 extern tlib;
pthread_cond_init :: (c: *CondBuf, attr: *void) -> i32 #foreign tlib;
pthread_cond_wait :: (c: *CondBuf, m: *MutexBuf) -> i32 #foreign tlib;
pthread_cond_signal :: (c: *CondBuf) -> i32 #foreign tlib;
pthread_cond_broadcast :: (c: *CondBuf) -> i32 #foreign tlib;
pthread_cond_destroy :: (c: *CondBuf) -> i32 #foreign tlib;
pthread_cond_init :: (c: *CondBuf, attr: *void) -> i32 extern tlib;
pthread_cond_wait :: (c: *CondBuf, m: *MutexBuf) -> i32 extern tlib;
pthread_cond_signal :: (c: *CondBuf) -> i32 extern tlib;
pthread_cond_broadcast :: (c: *CondBuf) -> i32 extern tlib;
pthread_cond_destroy :: (c: *CondBuf) -> i32 extern tlib;
// darwin pthread_mutex_t: { long __sig; char __opaque[56]; } — 64 bytes.
MutexBuf :: struct {

View File

@@ -24,7 +24,7 @@ Timespec :: struct {
nsec: i64;
}
clock_gettime :: (clock_id: i32, ts: *Timespec) -> i32 #foreign libc;
clock_gettime :: (clock_id: i32, ts: *Timespec) -> i32 extern libc;
CLOCK_REALTIME :i32: 0;
CLOCK_MONOTONIC :i32: 6; // darwin; linux is 1 (C3 selects per-OS)

View File

@@ -50,11 +50,11 @@ spaces :: (n: i32) -> string {
// `frame_at` returns the raw stored `u64`; `__trace_resolve_frame` turns it
// into a `TraceFrame` — by reinterpreting the stamped `*TraceFrame` in compiled code, or
// by resolving the packed `(func_id, span.start)` in the comptime interpreter.
sx_trace_len :: () -> u32 #foreign;
sx_trace_truncated :: () -> u32 #foreign;
sx_trace_frame_at :: (i: u32) -> u64 #foreign;
sx_trace_len :: () -> u32 extern;
sx_trace_truncated :: () -> u32 extern;
sx_trace_frame_at :: (i: u32) -> u64 extern;
write :: (fd: i32, buf: [*]u8, count: usize) -> isize #foreign libc;
write :: (fd: i32, buf: [*]u8, count: usize) -> isize extern libc;
// Render the current trace buffer to a string (allocated from
// context.allocator). Empty buffer → "" so callers can cheaply skip output.