lab/sx
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files

26
library/modules/std/socket.sx
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;