Simplified standard library

lib/sys/fs_linux.q

@@ -1,23 +0,0 @@
-getcwd(buffer *any, length int) -> int {
-	return syscall(79, buffer, length)
-}
-
-chdir(path *any) -> int {
-	return syscall(80, path)
-}
-
-rename(old *any, new *any) -> int {
-	return syscall(82, old, new)
-}
-
-mkdir(path *any, mode int) -> int {
-	return syscall(83, path, mode)
-}
-
-rmdir(path *any) -> int {
-	return syscall(84, path)
-}
-
-unlink(file *any) -> int {
-	return syscall(87, file)
-}

lib/sys/io_linux.q

@@ -1,15 +0,0 @@
-read(fd int, buffer *any, length int) -> int {
-	return syscall(0, fd, buffer, length)
-}
-
-write(fd int, buffer *any, length int) -> int {
-	return syscall(1, fd, buffer, length)
-}
-
-open(path *any, flags int, mode int) -> int {
-	return syscall(2, path, flags, mode)
-}
-
-close(fd int) -> int {
-	return syscall(3, fd)
-}

lib/sys/io_mac.q

@@ -1,15 +0,0 @@
-read(fd int, buffer *any, length int) -> int {
-	return syscall(0x2000003, fd, buffer, length)
-}
-
-write(fd int, buffer *any, length int) -> int {
-	return syscall(0x2000004, fd, buffer, length)
-}
-
-open(path *any, flags int, mode int) -> int {
-	return syscall(0x2000005, path, flags, mode)
-}
-
-close(fd int) -> int {
-	return syscall(0x2000006, fd)
-}

lib/sys/mem_linux.q

@@ -1,7 +0,0 @@
-mmap(address int, length int, protection int, flags int) -> *any {
-	return syscall(9, address, length, protection, flags)
-}
-
-munmap(address *any, length int) -> int {
-	return syscall(11, address, length)
-}

lib/sys/mem_mac.q

@@ -1,7 +0,0 @@
-mmap(address int, length int, protection int, flags int) -> *any {
-	return syscall(0x20000C5, address, length, protection, flags)
-}
-
-munmap(address *any, length int) -> int {
-	return syscall(0x2000049, address, length)
-}

lib/sys/mem_windows.q

@@ -1,16 +0,0 @@
-extern kernel32 {
-	VirtualAlloc(address int, length int, flags int, protection int)
-	VirtualFree(address *any, length int, type int) -> bool
-}
-
-const mem {
-	decommit 0x4000
-}
-
-mmap(address int, length int, protection int, flags int) -> *any {
-	return kernel32.VirtualAlloc(address, length, flags, protection)
-}
-
-munmap(address *any, length int) -> int {
-	return kernel32.VirtualFree(address, length, mem.decommit)
-}

lib/sys/net_linux.q

@@ -1,26 +0,0 @@
-struct sockaddr_in {
-	sin_family int16
-	sin_port   int16
-	sin_addr   int64
-	sin_zero   int64
-}
-
-socket(family int, type int, protocol int) -> int {
-	return syscall(41, family, type, protocol)
-}
-
-accept(fd int, address *any, length int) -> int {
-	return syscall(43, fd, address, length)
-}
-
-bind(fd int, address *sockaddr_in, length int) -> int {
-	return syscall(49, fd, address, length)
-}
-
-listen(fd int, backlog int) -> int {
-	return syscall(50, fd, backlog)
-}
-
-setsockopt(fd int, level int, optname int, optval *any, optlen int) -> int {
-	return syscall(54, fd, level, optname, optval, optlen)
-}

lib/sys/net_mac.q

@@ -1,23 +0,0 @@
-struct sockaddr_in_bsd {
-	sin_len    int8
-	sin_family int8
-	sin_port   int16
-	sin_addr   int64
-	sin_zero   int64
-}
-
-socket(family int, type int, protocol int) -> int {
-	return syscall(0x2000061, family, type, protocol)
-}
-
-accept(fd int, address *any, length int) -> int {
-	return syscall(0x200001E, fd, address, length)
-}
-
-bind(fd int, address *sockaddr_in_bsd, length int) -> int {
-	return syscall(0x2000068, fd, address, length)
-}
-
-listen(fd int, backlog int) -> int {
-	return syscall(0x200006A, fd, backlog)
-}

lib/sys/proc_linux.q

@@ -1,19 +0,0 @@
-clone(flags int, stack *any) -> int {
-	return syscall(56, flags, stack)
-}
-
-fork() -> int {
-	return syscall(57)
-}
-
-execve(path *any, argv *any, envp *any) -> int {
-	return syscall(59, path, argv, envp)
-}
-
-exit(status int) {
-	syscall(60, status)
-}
-
-waitid(type int, id int, info *any, options int) -> int {
-	return syscall(247, type, id, info, options)
-}

lib/sys/proc_mac.q

@@ -1,15 +0,0 @@
-exit(status int) {
-	syscall(0x2000001, status)
-}
-
-fork() -> int {
-	return syscall(0x2000002)
-}
-
-execve(path *any, argv *any, envp *any) -> int {
-	return syscall(0x200003B, path, argv, envp)
-}
-
-waitid(type int, id int, info *any, options int) -> int {
-	return syscall(0x20000AD, type, id, info, options)
-}

lib/sys/proc_windows.q

@@ -1,7 +0,0 @@
-extern kernel32 {
-	ExitProcess(code uint)
-}
-
-exit(code int) {
-	kernel32.ExitProcess(code)
-}

lib/sys/struct_linux.q

@@ -0,0 +1,11 @@
+struct sockaddr_in {
+	sin_family int16
+	sin_port   int16
+	sin_addr   int64
+	sin_zero   int64
+}
+
+struct timespec {
+	seconds     int64
+	nanoseconds int64
+}

lib/sys/struct_mac.q

@@ -0,0 +1,7 @@
+struct sockaddr_in_bsd {
+	sin_len    int8
+	sin_family int8
+	sin_port   int16
+	sin_addr   int64
+	sin_zero   int64
+}

lib/sys/sys_linux.q

@@ -0,0 +1,91 @@
+read(fd int, buffer *any, length int) -> int {
+	return syscall(0, fd, buffer, length)
+}
+
+write(fd int, buffer *any, length int) -> int {
+	return syscall(1, fd, buffer, length)
+}
+
+open(path *any, flags int, mode int) -> int {
+	return syscall(2, path, flags, mode)
+}
+
+close(fd int) -> int {
+	return syscall(3, fd)
+}
+
+mmap(address int, length int, protection int, flags int) -> *any {
+	return syscall(9, address, length, protection, flags)
+}
+
+munmap(address *any, length int) -> int {
+	return syscall(11, address, length)
+}
+
+clone(flags int, stack *any) -> int {
+	return syscall(56, flags, stack)
+}
+
+fork() -> int {
+	return syscall(57)
+}
+
+execve(path *any, argv *any, envp *any) -> int {
+	return syscall(59, path, argv, envp)
+}
+
+exit(status int) {
+	syscall(60, status)
+}
+
+waitid(type int, id int, info *any, options int) -> int {
+	return syscall(247, type, id, info, options)
+}
+
+socket(family int, type int, protocol int) -> int {
+	return syscall(41, family, type, protocol)
+}
+
+accept(fd int, address *any, length int) -> int {
+	return syscall(43, fd, address, length)
+}
+
+bind(fd int, address *sockaddr_in, length int) -> int {
+	return syscall(49, fd, address, length)
+}
+
+listen(fd int, backlog int) -> int {
+	return syscall(50, fd, backlog)
+}
+
+setsockopt(fd int, level int, optname int, optval *any, optlen int) -> int {
+	return syscall(54, fd, level, optname, optval, optlen)
+}
+
+getcwd(buffer *any, length int) -> int {
+	return syscall(79, buffer, length)
+}
+
+chdir(path *any) -> int {
+	return syscall(80, path)
+}
+
+rename(old *any, new *any) -> int {
+	return syscall(82, old, new)
+}
+
+mkdir(path *any, mode int) -> int {
+	return syscall(83, path, mode)
+}
+
+rmdir(path *any) -> int {
+	return syscall(84, path)
+}
+
+unlink(file *any) -> int {
+	return syscall(87, file)
+}
+
+nanosleep(duration *timespec) -> int {
+	return syscall(35, duration, 0)
+}

lib/sys/sys_mac.q

@@ -0,0 +1,55 @@
+read(fd int, buffer *any, length int) -> int {
+	return syscall(0x2000003, fd, buffer, length)
+}
+
+write(fd int, buffer *any, length int) -> int {
+	return syscall(0x2000004, fd, buffer, length)
+}
+
+open(path *any, flags int, mode int) -> int {
+	return syscall(0x2000005, path, flags, mode)
+}
+
+close(fd int) -> int {
+	return syscall(0x2000006, fd)
+}
+
+mmap(address int, length int, protection int, flags int) -> *any {
+	return syscall(0x20000C5, address, length, protection, flags)
+}
+
+munmap(address *any, length int) -> int {
+	return syscall(0x2000049, address, length)
+}
+
+exit(status int) {
+	syscall(0x2000001, status)
+}
+
+fork() -> int {
+	return syscall(0x2000002)
+}
+
+execve(path *any, argv *any, envp *any) -> int {
+	return syscall(0x200003B, path, argv, envp)
+}
+
+waitid(type int, id int, info *any, options int) -> int {
+	return syscall(0x20000AD, type, id, info, options)
+}
+
+socket(family int, type int, protocol int) -> int {
+	return syscall(0x2000061, family, type, protocol)
+}
+
+accept(fd int, address *any, length int) -> int {
+	return syscall(0x200001E, fd, address, length)
+}
+
+bind(fd int, address *sockaddr_in_bsd, length int) -> int {
+	return syscall(0x2000068, fd, address, length)
+}
+
+listen(fd int, backlog int) -> int {
+	return syscall(0x200006A, fd, backlog)
+}

lib/sys/sys_windows.q

@@ -1,9 +1,3 @@
-extern kernel32 {
-	GetStdHandle(handle int64) -> int64
-	WriteConsoleA(fd int64, buffer *any, length uint32, written *uint32) -> bool
-	ReadConsole(fd int64, buffer *any, length uint32, written *uint32) -> bool
-}
-
 read(fd int64, buffer *any, length int64) -> int64 {
 	fd = kernel32.GetStdHandle(-10 - fd)
 	kernel32.ReadConsole(fd, buffer, length, 0)
@@ -14,4 +8,24 @@ write(fd int64, buffer *any, length int64) -> int64 {
 	fd = kernel32.GetStdHandle(-10 - fd)
 	kernel32.WriteConsoleA(fd, buffer, length, 0)
 	return length
+}
+
+mmap(address int, length int, protection int, flags int) -> *any {
+	return kernel32.VirtualAlloc(address, length, flags, protection)
+}
+
+munmap(address *any, length int) -> int {
+	return kernel32.VirtualFree(address, length, mem.decommit)
+}
+
+const mem {
+	decommit 0x4000
+}
+
+extern kernel32 {
+	GetStdHandle(handle int64) -> int64
+	ReadConsole(fd int64, buffer *any, length uint32, written *uint32) -> bool
+	VirtualAlloc(address int, length int, flags int, protection int)
+	VirtualFree(address *any, length int, type int) -> bool
+	WriteConsoleA(fd int64, buffer *any, length uint32, written *uint32) -> bool
 }

lib/sys/time_linux.q

@@ -1,8 +0,0 @@
-struct timespec {
-	seconds     int64
-	nanoseconds int64
-}
-
-nanosleep(duration *timespec) -> int {
-	return syscall(35, duration, 0)
-}