diff options
author | 2025-03-09 17:47:56 +0100 | |
---|---|---|
committer | 2025-03-10 01:59:49 +0100 | |
commit | 3ac1ee16f377d31a0fb80c8dae28b6239ac4229e (patch) | |
tree | f61faa581feaaeaba2542b9f2b8234a590684413 /vendor/modernc.org/libc/libc_darwin.go | |
parent | [chore] update URLs to forked source (diff) | |
download | gotosocial-3ac1ee16f377d31a0fb80c8dae28b6239ac4229e.tar.xz |
[chore] remove vendor
Diffstat (limited to 'vendor/modernc.org/libc/libc_darwin.go')
-rw-r--r-- | vendor/modernc.org/libc/libc_darwin.go | 2520 |
1 files changed, 0 insertions, 2520 deletions
diff --git a/vendor/modernc.org/libc/libc_darwin.go b/vendor/modernc.org/libc/libc_darwin.go deleted file mode 100644 index c33cc6ba2..000000000 --- a/vendor/modernc.org/libc/libc_darwin.go +++ /dev/null @@ -1,2520 +0,0 @@ -// Copyright 2020 The Libc Authors. All rights reserved. -// Use of this source code is governed by a BSD-style -// license that can be found in the LICENSE file. - -package libc // import "modernc.org/libc" - -import ( - crand "crypto/rand" - "encoding/hex" - "fmt" - "io" - "os" - "os/exec" - gosignal "os/signal" - "path/filepath" - "runtime" - "strings" - gotime "time" - "unicode" - "unsafe" - - guuid "github.com/google/uuid" - "golang.org/x/sys/unix" - "modernc.org/libc/errno" - "modernc.org/libc/fcntl" - "modernc.org/libc/fts" - gonetdb "modernc.org/libc/honnef.co/go/netdb" - "modernc.org/libc/langinfo" - "modernc.org/libc/limits" - "modernc.org/libc/netdb" - "modernc.org/libc/netinet/in" - "modernc.org/libc/signal" - "modernc.org/libc/stdio" - "modernc.org/libc/sys/socket" - "modernc.org/libc/sys/stat" - "modernc.org/libc/sys/types" - "modernc.org/libc/termios" - "modernc.org/libc/time" - "modernc.org/libc/unistd" - "modernc.org/libc/uuid/uuid" - "modernc.org/libc/wctype" -) - -const ( - maxPathLen = 1024 -) - -// var ( -// in6_addr_any in.In6_addr -// ) - -type ( - syscallErrno = unix.Errno - long = types.User_long_t - ulong = types.User_ulong_t -) - -type pthreadAttr struct { - detachState int32 -} - -// // Keep these outside of the var block otherwise go generate will miss them. -var X__stderrp = Xstdout -var X__stdinp = Xstdin -var X__stdoutp = Xstdout - -// user@darwin-m1:~/tmp$ cat main.c -// -// #include <xlocale.h> -// #include <stdio.h> -// -// int main() { -// printf("%i\n", ___mb_cur_max()); -// return 0; -// } -// -// user@darwin-m1:~/tmp$ gcc main.c && ./a.out -// 1 -// user@darwin-m1:~/tmp$ -var X__mb_cur_max int32 = 1 - -var startTime = gotime.Now() // For clock(3) - -type file uintptr - -func (f file) fd() int32 { return int32((*stdio.FILE)(unsafe.Pointer(f)).F_file) } -func (f file) setFd(fd int32) { (*stdio.FILE)(unsafe.Pointer(f)).F_file = int16(fd) } - -func (f file) err() bool { - return (*stdio.FILE)(unsafe.Pointer(f)).F_flags&1 != 0 -} - -func (f file) setErr() { - (*stdio.FILE)(unsafe.Pointer(f)).F_flags |= 1 -} - -func (f file) close(t *TLS) int32 { - r := Xclose(t, f.fd()) - Xfree(t, uintptr(f)) - if r < 0 { - return stdio.EOF - } - - return 0 -} - -func newFile(t *TLS, fd int32) uintptr { - p := Xcalloc(t, 1, types.Size_t(unsafe.Sizeof(stdio.FILE{}))) - if p == 0 { - return 0 - } - - file(p).setFd(fd) - return p -} - -func fwrite(fd int32, b []byte) (int, error) { - if fd == unistd.STDOUT_FILENO { - return write(b) - } - - if dmesgs { - dmesg("%v: fd %v: %s", origin(1), fd, hex.Dump(b)) - } - return unix.Write(int(fd), b) -} - -func X__inline_isnand(t *TLS, x float64) int32 { - if __ccgo_strace { - trc("t=%v x=%v, (%v:)", t, x, origin(2)) - } - return Xisnan(t, x) -} - -func X__inline_isnanf(t *TLS, x float32) int32 { - if __ccgo_strace { - trc("t=%v x=%v, (%v:)", t, x, origin(2)) - } - return Xisnanf(t, x) -} - -func X__inline_isnanl(t *TLS, x float64) int32 { - if __ccgo_strace { - trc("t=%v x=%v, (%v:)", t, x, origin(2)) - } - return Xisnan(t, x) -} - -// int fprintf(FILE *stream, const char *format, ...); -func Xfprintf(t *TLS, stream, format, args uintptr) int32 { - if __ccgo_strace { - trc("t=%v args=%v, (%v:)", t, args, origin(2)) - } - n, _ := fwrite(int32((*stdio.FILE)(unsafe.Pointer(stream)).F_file), printf(format, args)) - return int32(n) -} - -// int usleep(useconds_t usec); -func Xusleep(t *TLS, usec types.Useconds_t) int32 { - if __ccgo_strace { - trc("t=%v usec=%v, (%v:)", t, usec, origin(2)) - } - gotime.Sleep(gotime.Microsecond * gotime.Duration(usec)) - return 0 -} - -// int futimes(int fd, const struct timeval tv[2]); -func Xfutimes(t *TLS, fd int32, tv uintptr) int32 { - if __ccgo_strace { - trc("t=%v fd=%v tv=%v, (%v:)", t, fd, tv, origin(2)) - } - var a []unix.Timeval - if tv != 0 { - a = make([]unix.Timeval, 2) - a[0] = *(*unix.Timeval)(unsafe.Pointer(tv)) - a[1] = *(*unix.Timeval)(unsafe.Pointer(tv + unsafe.Sizeof(unix.Timeval{}))) - } - if err := unix.Futimes(int(fd), a); err != nil { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: ok", origin(1)) - } - return 0 -} - -// void srandomdev(void); -func Xsrandomdev(t *TLS) { - if __ccgo_strace { - trc("t=%v, (%v:)", t, origin(2)) - } - panic(todo("")) -} - -// int gethostuuid(uuid_t id, const struct timespec *wait); -func Xgethostuuid(t *TLS, id uintptr, wait uintptr) int32 { - if __ccgo_strace { - trc("t=%v id=%v wait=%v, (%v:)", t, id, wait, origin(2)) - } - if _, _, err := unix.Syscall(unix.SYS_GETHOSTUUID, id, wait, 0); err != 0 { // Cannot avoid the syscall here. - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: ok", origin(1)) - } - return 0 -} - -// int flock(int fd, int operation); -func Xflock(t *TLS, fd, operation int32) int32 { - if __ccgo_strace { - trc("t=%v operation=%v, (%v:)", t, operation, origin(2)) - } - if err := unix.Flock(int(fd), int(operation)); err != nil { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: ok", origin(1)) - } - return 0 -} - -// int fsctl(const char *,unsigned long,void*,unsigned int); -func Xfsctl(t *TLS, path uintptr, request ulong, data uintptr, options uint32) int32 { - if __ccgo_strace { - trc("t=%v path=%v request=%v data=%v options=%v, (%v:)", t, path, request, data, options, origin(2)) - } - panic(todo("")) - // if _, _, err := unix.Syscall6(unix.SYS_FSCTL, path, uintptr(request), data, uintptr(options), 0, 0); err != 0 { - // t.setErrno(err) - // return -1 - // } - - // return 0 -} - -// int * __error(void); -func X__error(t *TLS) uintptr { - if __ccgo_strace { - trc("t=%v, (%v:)", t, origin(2)) - } - return t.errnop -} - -// int isspace(int c); -func Xisspace(t *TLS, c int32) int32 { - if __ccgo_strace { - trc("t=%v c=%v, (%v:)", t, c, origin(2)) - } - return __isspace(t, c) -} - -// void __assert_rtn(const char *, const char *, int, const char *) -func X__assert_rtn(t *TLS, function, file uintptr, line int32, assertion uintptr) { - if __ccgo_strace { - trc("t=%v file=%v line=%v assertion=%v, (%v:)", t, file, line, assertion, origin(2)) - } - panic(todo("")) - // fmt.Fprintf(os.Stderr, "assertion failure: %s:%d.%s: %s\n", GoString(file), line, GoString(function), GoString(assertion)) - // os.Stderr.Sync() - // Xexit(t, 1) -} - -// int getrusage(int who, struct rusage *usage); -func Xgetrusage(t *TLS, who int32, usage uintptr) int32 { - if __ccgo_strace { - trc("t=%v who=%v usage=%v, (%v:)", t, who, usage, origin(2)) - } - panic(todo("")) - // if _, _, err := unix.Syscall(unix.SYS_GETRUSAGE, uintptr(who), usage, 0); err != 0 { - // t.setErrno(err) - // return -1 - // } - - // return 0 -} - -// int fgetc(FILE *stream); -func Xfgetc(t *TLS, stream uintptr) int32 { - if __ccgo_strace { - trc("t=%v stream=%v, (%v:)", t, stream, origin(2)) - } - fd := int((*stdio.FILE)(unsafe.Pointer(stream)).F_file) - var buf [1]byte - if n, _ := unix.Read(fd, buf[:]); n != 0 { - return int32(buf[0]) - } - - return stdio.EOF -} - -// int lstat(const char *pathname, struct stat *statbuf); -func Xlstat(t *TLS, pathname, statbuf uintptr) int32 { - if __ccgo_strace { - trc("t=%v statbuf=%v, (%v:)", t, statbuf, origin(2)) - } - return Xlstat64(t, pathname, statbuf) -} - -// int stat(const char *pathname, struct stat *statbuf); -func Xstat(t *TLS, pathname, statbuf uintptr) int32 { - if __ccgo_strace { - trc("t=%v statbuf=%v, (%v:)", t, statbuf, origin(2)) - } - return Xstat64(t, pathname, statbuf) -} - -// int chdir(const char *path); -func Xchdir(t *TLS, path uintptr) int32 { - if __ccgo_strace { - trc("t=%v path=%v, (%v:)", t, path, origin(2)) - } - if err := unix.Chdir(GoString(path)); err != nil { - if dmesgs { - dmesg("%v: %q: %v FAIL", origin(1), GoString(path), err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: %q: ok", origin(1), GoString(path)) - } - return 0 -} - -var localtime time.Tm - -// struct tm *localtime(const time_t *timep); -func Xlocaltime(_ *TLS, timep uintptr) uintptr { - loc := getLocalLocation() - ut := *(*time.Time_t)(unsafe.Pointer(timep)) - t := gotime.Unix(int64(ut), 0).In(loc) - localtime.Ftm_sec = int32(t.Second()) - localtime.Ftm_min = int32(t.Minute()) - localtime.Ftm_hour = int32(t.Hour()) - localtime.Ftm_mday = int32(t.Day()) - localtime.Ftm_mon = int32(t.Month() - 1) - localtime.Ftm_year = int32(t.Year() - 1900) - localtime.Ftm_wday = int32(t.Weekday()) - localtime.Ftm_yday = int32(t.YearDay()) - localtime.Ftm_isdst = Bool32(isTimeDST(t)) - return uintptr(unsafe.Pointer(&localtime)) -} - -// struct tm *localtime_r(const time_t *timep, struct tm *result); -func Xlocaltime_r(_ *TLS, timep, result uintptr) uintptr { - loc := getLocalLocation() - ut := *(*time_t)(unsafe.Pointer(timep)) - t := gotime.Unix(int64(ut), 0).In(loc) - (*time.Tm)(unsafe.Pointer(result)).Ftm_sec = int32(t.Second()) - (*time.Tm)(unsafe.Pointer(result)).Ftm_min = int32(t.Minute()) - (*time.Tm)(unsafe.Pointer(result)).Ftm_hour = int32(t.Hour()) - (*time.Tm)(unsafe.Pointer(result)).Ftm_mday = int32(t.Day()) - (*time.Tm)(unsafe.Pointer(result)).Ftm_mon = int32(t.Month() - 1) - (*time.Tm)(unsafe.Pointer(result)).Ftm_year = int32(t.Year() - 1900) - (*time.Tm)(unsafe.Pointer(result)).Ftm_wday = int32(t.Weekday()) - (*time.Tm)(unsafe.Pointer(result)).Ftm_yday = int32(t.YearDay()) - (*time.Tm)(unsafe.Pointer(result)).Ftm_isdst = Bool32(isTimeDST(t)) - return result -} - -// int open(const char *pathname, int flags, ...); -func Xopen(t *TLS, pathname uintptr, flags int32, args uintptr) int32 { - if __ccgo_strace { - trc("t=%v pathname=%v flags=%v args=%v, (%v:)", t, pathname, flags, args, origin(2)) - } - var mode types.Mode_t - if args != 0 { - mode = (types.Mode_t)(VaUint32(&args)) - } - fd, err := unix.Open(GoString(pathname), int(flags), uint32(mode)) - if err != nil { - if dmesgs { - dmesg("%v: %q %#x %#o: %v FAIL", origin(1), GoString(pathname), flags, mode, err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: %q flags %#x mode %#o: fd %v", origin(1), GoString(pathname), flags, mode, fd) - } - return int32(fd) -} - -// off_t lseek(int fd, off_t offset, int whence); -func Xlseek(t *TLS, fd int32, offset types.Off_t, whence int32) types.Off_t { - if __ccgo_strace { - trc("t=%v fd=%v offset=%v whence=%v, (%v:)", t, fd, offset, whence, origin(2)) - } - return types.Off_t(Xlseek64(t, fd, offset, whence)) -} - -func whenceStr(whence int32) string { - switch whence { - case fcntl.SEEK_CUR: - return "SEEK_CUR" - case fcntl.SEEK_END: - return "SEEK_END" - case fcntl.SEEK_SET: - return "SEEK_SET" - default: - return fmt.Sprintf("whence(%d)", whence) - } -} - -var fsyncStatbuf stat.Stat - -// int fsync(int fd); -func Xfsync(t *TLS, fd int32) int32 { - if __ccgo_strace { - trc("t=%v fd=%v, (%v:)", t, fd, origin(2)) - } - if noFsync { - // Simulate -DSQLITE_NO_SYNC for sqlite3 testfixture, see function full_sync in sqlite3.c - return Xfstat(t, fd, uintptr(unsafe.Pointer(&fsyncStatbuf))) - } - - if err := unix.Fsync(int(fd)); err != nil { - if dmesgs { - dmesg("%v: %v: %v FAIL", origin(1), fd, err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: %d: ok", origin(1), fd) - } - return 0 -} - -// long sysconf(int name); -func Xsysconf(t *TLS, name int32) long { - if __ccgo_strace { - trc("t=%v name=%v, (%v:)", t, name, origin(2)) - } - switch name { - case unistd.X_SC_PAGESIZE: - return long(unix.Getpagesize()) - case unistd.X_SC_NPROCESSORS_ONLN: - return long(runtime.NumCPU()) - case unistd.X_SC_GETPW_R_SIZE_MAX: - return 128 - } - - panic(todo("", name)) -} - -// int close(int fd); -func Xclose(t *TLS, fd int32) int32 { - if __ccgo_strace { - trc("t=%v fd=%v, (%v:)", t, fd, origin(2)) - } - if err := unix.Close(int(fd)); err != nil { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: %d: ok", origin(1), fd) - } - return 0 -} - -// char *getcwd(char *buf, size_t size); -func Xgetcwd(t *TLS, buf uintptr, size types.Size_t) uintptr { - if __ccgo_strace { - trc("t=%v buf=%v size=%v, (%v:)", t, buf, size, origin(2)) - } - if _, err := unix.Getcwd((*RawMem)(unsafe.Pointer(buf))[:size:size]); err != nil { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return 0 - } - - if dmesgs { - dmesg("%v: ok", origin(1)) - } - return buf -} - -// int fstat(int fd, struct stat *statbuf); -func Xfstat(t *TLS, fd int32, statbuf uintptr) int32 { - if __ccgo_strace { - trc("t=%v fd=%v statbuf=%v, (%v:)", t, fd, statbuf, origin(2)) - } - return Xfstat64(t, fd, statbuf) -} - -// int ftruncate(int fd, off_t length); -func Xftruncate(t *TLS, fd int32, length types.Off_t) int32 { - if __ccgo_strace { - trc("t=%v fd=%v length=%v, (%v:)", t, fd, length, origin(2)) - } - if err := unix.Ftruncate(int(fd), int64(length)); err != nil { - if dmesgs { - dmesg("%v: fd %d: %v FAIL", origin(1), fd, err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: %d %#x: ok", origin(1), fd, length) - } - return 0 -} - -// int fcntl(int fd, int cmd, ... /* arg */ ); -func Xfcntl(t *TLS, fd, cmd int32, args uintptr) int32 { - if __ccgo_strace { - trc("t=%v cmd=%v args=%v, (%v:)", t, cmd, args, origin(2)) - } - return Xfcntl64(t, fd, cmd, args) -} - -// ssize_t read(int fd, void *buf, size_t count); -func Xread(t *TLS, fd int32, buf uintptr, count types.Size_t) types.Ssize_t { - if __ccgo_strace { - trc("t=%v fd=%v buf=%v count=%v, (%v:)", t, fd, buf, count, origin(2)) - } - var n int - var err error - switch { - case count == 0: - n, err = unix.Read(int(fd), nil) - default: - n, err = unix.Read(int(fd), (*RawMem)(unsafe.Pointer(buf))[:count:count]) - if dmesgs && err == nil { - dmesg("%v: fd %v, count %#x, n %#x\n%s", origin(1), fd, count, n, hex.Dump((*RawMem)(unsafe.Pointer(buf))[:n:n])) - } - } - if err != nil { - if dmesgs { - dmesg("%v: fd %v, %v FAIL", origin(1), fd, err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: ok", origin(1)) - } - return types.Ssize_t(n) -} - -// ssize_t write(int fd, const void *buf, size_t count); -func Xwrite(t *TLS, fd int32, buf uintptr, count types.Size_t) types.Ssize_t { - if __ccgo_strace { - trc("t=%v fd=%v buf=%v count=%v, (%v:)", t, fd, buf, count, origin(2)) - } - var n int - var err error - switch { - case count == 0: - n, err = unix.Write(int(fd), nil) - default: - n, err = unix.Write(int(fd), (*RawMem)(unsafe.Pointer(buf))[:count:count]) - if dmesgs { - dmesg("%v: fd %v, count %#x\n%s", origin(1), fd, count, hex.Dump((*RawMem)(unsafe.Pointer(buf))[:count:count])) - } - } - if err != nil { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: ok", origin(1)) - } - return types.Ssize_t(n) -} - -// int fchmod(int fd, mode_t mode); -func Xfchmod(t *TLS, fd int32, mode types.Mode_t) int32 { - if __ccgo_strace { - trc("t=%v fd=%v mode=%v, (%v:)", t, fd, mode, origin(2)) - } - if err := unix.Fchmod(int(fd), uint32(mode)); err != nil { - if dmesgs { - dmesg("%v: %d %#o: %v FAIL", origin(1), fd, mode, err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: %d %#o: ok", origin(1), fd, mode) - } - return 0 -} - -// int fchown(int fd, uid_t owner, gid_t group); -func Xfchown(t *TLS, fd int32, owner types.Uid_t, group types.Gid_t) int32 { - if __ccgo_strace { - trc("t=%v fd=%v owner=%v group=%v, (%v:)", t, fd, owner, group, origin(2)) - } - if _, _, err := unix.Syscall(unix.SYS_FCHOWN, uintptr(fd), uintptr(owner), uintptr(group)); err != 0 { - t.setErrno(err) - return -1 - } - - return 0 -} - -// uid_t geteuid(void); -func Xgeteuid(t *TLS) types.Uid_t { - if __ccgo_strace { - trc("t=%v, (%v:)", t, origin(2)) - } - r := types.Uid_t(unix.Geteuid()) - if dmesgs { - dmesg("%v: %v", origin(1), r) - } - return r -} - -// void *mmap(void *addr, size_t length, int prot, int flags, int fd, off_t offset); -func Xmmap(t *TLS, addr uintptr, length types.Size_t, prot, flags, fd int32, offset types.Off_t) uintptr { - if __ccgo_strace { - trc("t=%v addr=%v length=%v fd=%v offset=%v, (%v:)", t, addr, length, fd, offset, origin(2)) - } - // Cannot avoid the syscall here, addr sometimes matter. - data, _, err := unix.Syscall6(unix.SYS_MMAP, addr, uintptr(length), uintptr(prot), uintptr(flags), uintptr(fd), uintptr(offset)) - if err != 0 { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return ^uintptr(0) // (void*)-1 - } - - if dmesgs { - dmesg("%v: %#x", origin(1), data) - } - return data -} - -// int munmap(void *addr, size_t length); -func Xmunmap(t *TLS, addr uintptr, length types.Size_t) int32 { - if __ccgo_strace { - trc("t=%v addr=%v length=%v, (%v:)", t, addr, length, origin(2)) - } - if _, _, err := unix.Syscall(unix.SYS_MUNMAP, addr, uintptr(length), 0); err != 0 { // Cannot avoid the syscall here, must pair with mmap. - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return -1 - } - - return 0 -} - -// int gettimeofday(struct timeval *tv, struct timezone *tz); -func Xgettimeofday(t *TLS, tv, tz uintptr) int32 { - if __ccgo_strace { - trc("t=%v tz=%v, (%v:)", t, tz, origin(2)) - } - if tz != 0 { - panic(todo("")) - } - - var tvs unix.Timeval - err := unix.Gettimeofday(&tvs) - if err != nil { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return -1 - } - - *(*unix.Timeval)(unsafe.Pointer(tv)) = tvs - return 0 -} - -// int getsockopt(int sockfd, int level, int optname, void *optval, socklen_t *optlen); -func Xgetsockopt(t *TLS, sockfd, level, optname int32, optval, optlen uintptr) int32 { - if __ccgo_strace { - trc("t=%v optname=%v optlen=%v, (%v:)", t, optname, optlen, origin(2)) - } - if _, _, err := unix.Syscall6(unix.SYS_GETSOCKOPT, uintptr(sockfd), uintptr(level), uintptr(optname), optval, optlen, 0); err != 0 { - t.setErrno(err) - return -1 - } - - return 0 -} - -// int setsockopt(int sockfd, int level, int optname, const void *optval, socklen_t optlen); -func Xsetsockopt(t *TLS, sockfd, level, optname int32, optval uintptr, optlen socket.Socklen_t) int32 { - if __ccgo_strace { - trc("t=%v optname=%v optval=%v optlen=%v, (%v:)", t, optname, optval, optlen, origin(2)) - } - if _, _, err := unix.Syscall6(unix.SYS_SETSOCKOPT, uintptr(sockfd), uintptr(level), uintptr(optname), optval, uintptr(optlen), 0); err != 0 { - t.setErrno(err) - return -1 - } - - return 0 -} - -// int ioctl(int fd, unsigned long request, ...); -func Xioctl(t *TLS, fd int32, request ulong, va uintptr) int32 { - if __ccgo_strace { - trc("t=%v fd=%v request=%v va=%v, (%v:)", t, fd, request, va, origin(2)) - } - var argp uintptr - if va != 0 { - argp = VaUintptr(&va) - } - n, _, err := unix.Syscall(unix.SYS_IOCTL, uintptr(fd), uintptr(request), argp) - if err != 0 { - t.setErrno(err) - return -1 - } - - return int32(n) -} - -// int getsockname(int sockfd, struct sockaddr *addr, socklen_t *addrlen); -func Xgetsockname(t *TLS, sockfd int32, addr, addrlen uintptr) int32 { - if __ccgo_strace { - trc("t=%v sockfd=%v addrlen=%v, (%v:)", t, sockfd, addrlen, origin(2)) - } - if _, _, err := unix.Syscall(unix.SYS_GETSOCKNAME, uintptr(sockfd), addr, addrlen); err != 0 { // Cannot avoid the syscall here. - if dmesgs { - dmesg("%v: fd %v: %v FAIL", origin(1), sockfd, err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: fd %v: ok", origin(1), sockfd) - } - return 0 -} - -// int select(int nfds, fd_set *readfds, fd_set *writefds, fd_set *exceptfds, struct timeval *timeout); -func Xselect(t *TLS, nfds int32, readfds, writefds, exceptfds, timeout uintptr) int32 { - if __ccgo_strace { - trc("t=%v nfds=%v timeout=%v, (%v:)", t, nfds, timeout, origin(2)) - } - n, err := unix.Select( - int(nfds), - (*unix.FdSet)(unsafe.Pointer(readfds)), - (*unix.FdSet)(unsafe.Pointer(writefds)), - (*unix.FdSet)(unsafe.Pointer(exceptfds)), - (*unix.Timeval)(unsafe.Pointer(timeout)), - ) - if err != nil { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: ok", origin(1)) - } - return int32(n) -} - -// int mkfifo(const char *pathname, mode_t mode); -func Xmkfifo(t *TLS, pathname uintptr, mode types.Mode_t) int32 { - if __ccgo_strace { - trc("t=%v pathname=%v mode=%v, (%v:)", t, pathname, mode, origin(2)) - } - if err := unix.Mkfifo(GoString(pathname), uint32(mode)); err != nil { - t.setErrno(err) - return -1 - } - - return 0 -} - -// mode_t umask(mode_t mask); -func Xumask(t *TLS, mask types.Mode_t) types.Mode_t { - if __ccgo_strace { - trc("t=%v mask=%v, (%v:)", t, mask, origin(2)) - } - return types.Mode_t(unix.Umask(int(mask))) -} - -// // int execvp(const char *file, char *const argv[]); -// func Xexecvp(t *TLS, file, argv uintptr) int32 { -// if _, _, err := unix.Syscall(unix.SYS_EXECVE, file, argv, Environ()); err != 0 { -// t.setErrno(err) -// return -1 -// } -// -// return 0 -// } - -// pid_t (pid_t pid, int *wstatus, int options); -func Xwaitpid(t *TLS, pid types.Pid_t, wstatus uintptr, optname int32) types.Pid_t { - if __ccgo_strace { - trc("t=%v pid=%v wstatus=%v optname=%v, (%v:)", t, pid, wstatus, optname, origin(2)) - } - n, err := unix.Wait4(int(pid), (*unix.WaitStatus)(unsafe.Pointer(wstatus)), int(optname), nil) - if err != nil { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: ok", origin(1)) - } - return types.Pid_t(n) -} - -// int uname(struct utsname *buf); -func Xuname(t *TLS, buf uintptr) int32 { - if __ccgo_strace { - trc("t=%v buf=%v, (%v:)", t, buf, origin(2)) - } - if err := unix.Uname((*unix.Utsname)(unsafe.Pointer(buf))); err != nil { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: ok", origin(1)) - } - return 0 -} - -// ssize_t recv(int sockfd, void *buf, size_t len, int flags); -func Xrecv(t *TLS, sockfd int32, buf uintptr, len types.Size_t, flags int32) types.Ssize_t { - if __ccgo_strace { - trc("t=%v sockfd=%v buf=%v len=%v flags=%v, (%v:)", t, sockfd, buf, len, flags, origin(2)) - } - n, _, err := unix.Syscall6(unix.SYS_RECVFROM, uintptr(sockfd), buf, uintptr(len), uintptr(flags), 0, 0) - if err != 0 { - t.setErrno(err) - return -1 - } - - return types.Ssize_t(n) -} - -// ssize_t send(int sockfd, const void *buf, size_t len, int flags); -func Xsend(t *TLS, sockfd int32, buf uintptr, len types.Size_t, flags int32) types.Ssize_t { - if __ccgo_strace { - trc("t=%v sockfd=%v buf=%v len=%v flags=%v, (%v:)", t, sockfd, buf, len, flags, origin(2)) - } - n, _, err := unix.Syscall6(unix.SYS_SENDTO, uintptr(sockfd), buf, uintptr(len), uintptr(flags), 0, 0) - if err != 0 { - t.setErrno(err) - return -1 - } - - return types.Ssize_t(n) -} - -// int shutdown(int sockfd, int how); -func Xshutdown(t *TLS, sockfd, how int32) int32 { - if __ccgo_strace { - trc("t=%v how=%v, (%v:)", t, how, origin(2)) - } - if _, _, err := unix.Syscall(unix.SYS_SHUTDOWN, uintptr(sockfd), uintptr(how), 0); err != 0 { - t.setErrno(err) - return -1 - } - - return 0 -} - -// int getpeername(int sockfd, struct sockaddr *addr, socklen_t *addrlen); -func Xgetpeername(t *TLS, sockfd int32, addr uintptr, addrlen uintptr) int32 { - if __ccgo_strace { - trc("t=%v sockfd=%v addr=%v addrlen=%v, (%v:)", t, sockfd, addr, addrlen, origin(2)) - } - if _, _, err := unix.Syscall(unix.SYS_GETPEERNAME, uintptr(sockfd), addr, uintptr(addrlen)); err != 0 { - t.setErrno(err) - return -1 - } - - return 0 -} - -// int socket(int domain, int type, int protocol); -func Xsocket(t *TLS, domain, type1, protocol int32) int32 { - if __ccgo_strace { - trc("t=%v protocol=%v, (%v:)", t, protocol, origin(2)) - } - n, _, err := unix.Syscall(unix.SYS_SOCKET, uintptr(domain), uintptr(type1), uintptr(protocol)) - if err != 0 { - t.setErrno(err) - return -1 - } - - return int32(n) -} - -// int bind(int sockfd, const struct sockaddr *addr, socklen_t addrlen); -func Xbind(t *TLS, sockfd int32, addr uintptr, addrlen uint32) int32 { - if __ccgo_strace { - trc("t=%v sockfd=%v addr=%v addrlen=%v, (%v:)", t, sockfd, addr, addrlen, origin(2)) - } - n, _, err := unix.Syscall(unix.SYS_BIND, uintptr(sockfd), addr, uintptr(addrlen)) - if err != 0 { - t.setErrno(err) - return -1 - } - - return int32(n) -} - -// int connect(int sockfd, const struct sockaddr *addr, socklen_t addrlen); -func Xconnect(t *TLS, sockfd int32, addr uintptr, addrlen uint32) int32 { - if __ccgo_strace { - trc("t=%v sockfd=%v addr=%v addrlen=%v, (%v:)", t, sockfd, addr, addrlen, origin(2)) - } - if _, _, err := unix.Syscall(unix.SYS_CONNECT, uintptr(sockfd), addr, uintptr(addrlen)); err != 0 { - t.setErrno(err) - return -1 - } - - return 0 -} - -// int listen(int sockfd, int backlog); -func Xlisten(t *TLS, sockfd, backlog int32) int32 { - if __ccgo_strace { - trc("t=%v backlog=%v, (%v:)", t, backlog, origin(2)) - } - if _, _, err := unix.Syscall(unix.SYS_LISTEN, uintptr(sockfd), uintptr(backlog), 0); err != 0 { - t.setErrno(err) - return -1 - } - - return 0 -} - -// int accept(int sockfd, struct sockaddr *addr, socklen_t *addrlen); -func Xaccept(t *TLS, sockfd int32, addr uintptr, addrlen uintptr) int32 { - if __ccgo_strace { - trc("t=%v sockfd=%v addr=%v addrlen=%v, (%v:)", t, sockfd, addr, addrlen, origin(2)) - } - panic(todo("")) - // n, _, err := unix.Syscall6(unix.SYS_ACCEPT4, uintptr(sockfd), addr, uintptr(addrlen), 0, 0, 0) - // if err != 0 { - // t.setErrno(err) - // return -1 - // } - - // return int32(n) -} - -// // int getrlimit(int resource, struct rlimit *rlim); -// func Xgetrlimit(t *TLS, resource int32, rlim uintptr) int32 { -// return Xgetrlimit64(t, resource, rlim) -// } -// -// // int setrlimit(int resource, const struct rlimit *rlim); -// func Xsetrlimit(t *TLS, resource int32, rlim uintptr) int32 { -// return Xsetrlimit64(t, resource, rlim) -// } -// -// // int setrlimit(int resource, const struct rlimit *rlim); -// func Xsetrlimit64(t *TLS, resource int32, rlim uintptr) int32 { -// if _, _, err := unix.Syscall(unix.SYS_SETRLIMIT, uintptr(resource), uintptr(rlim), 0); err != 0 { -// t.setErrno(err) -// return -1 -// } -// -// return 0 -// } - -// uid_t getuid(void); -func Xgetuid(t *TLS) types.Uid_t { - if __ccgo_strace { - trc("t=%v, (%v:)", t, origin(2)) - } - r := types.Uid_t(os.Getuid()) - if dmesgs { - dmesg("%v: %v", origin(1), r) - } - return r -} - -// pid_t getpid(void); -func Xgetpid(t *TLS) int32 { - if __ccgo_strace { - trc("t=%v, (%v:)", t, origin(2)) - } - r := int32(os.Getpid()) - if dmesgs { - dmesg("%v: %v", origin(1), r) - } - return r -} - -// int system(const char *command); -func Xsystem(t *TLS, command uintptr) int32 { - if __ccgo_strace { - trc("t=%v command=%v, (%v:)", t, command, origin(2)) - } - s := GoString(command) - if command == 0 { - panic(todo("")) - } - - cmd := exec.Command("sh", "-c", s) - cmd.Stdout = os.Stdout - cmd.Stderr = os.Stderr - err := cmd.Run() - if err != nil { - ps := err.(*exec.ExitError) - return int32(ps.ExitCode()) - } - - return 0 -} - -// int setvbuf(FILE *stream, char *buf, int mode, size_t size); -func Xsetvbuf(t *TLS, stream, buf uintptr, mode int32, size types.Size_t) int32 { - if __ccgo_strace { - trc("t=%v buf=%v mode=%v size=%v, (%v:)", t, buf, mode, size, origin(2)) - } - return 0 //TODO -} - -// int raise(int sig); -func Xraise(t *TLS, sig int32) int32 { - if __ccgo_strace { - trc("t=%v sig=%v, (%v:)", t, sig, origin(2)) - } - panic(todo("")) -} - -// // int backtrace(void **buffer, int size); -// func Xbacktrace(t *TLS, buf uintptr, size int32) int32 { -// panic(todo("")) -// } -// -// // void backtrace_symbols_fd(void *const *buffer, int size, int fd); -// func Xbacktrace_symbols_fd(t *TLS, buffer uintptr, size, fd int32) { -// panic(todo("")) -// } - -// int fileno(FILE *stream); -func Xfileno(t *TLS, stream uintptr) int32 { - if __ccgo_strace { - trc("t=%v stream=%v, (%v:)", t, stream, origin(2)) - } - if stream == 0 { - if dmesgs { - dmesg("%v: FAIL", origin(1)) - } - t.setErrno(errno.EBADF) - return -1 - } - - if fd := int32((*stdio.FILE)(unsafe.Pointer(stream)).F_file); fd >= 0 { - return fd - } - - if dmesgs { - dmesg("%v: FAIL", origin(1)) - } - t.setErrno(errno.EBADF) - return -1 -} - -func newFtsent(t *TLS, info int, path string, stat *unix.Stat_t, err syscallErrno) (r *fts.FTSENT) { - var statp uintptr - if stat != nil { - statp = Xmalloc(t, types.Size_t(unsafe.Sizeof(unix.Stat_t{}))) - if statp == 0 { - panic("OOM") - } - - *(*unix.Stat_t)(unsafe.Pointer(statp)) = *stat - } - csp, errx := CString(path) - if errx != nil { - panic("OOM") - } - - return &fts.FTSENT{ - Ffts_info: uint16(info), - Ffts_path: csp, - Ffts_pathlen: uint16(len(path)), - Ffts_statp: statp, - Ffts_errno: int32(err), - } -} - -func newCFtsent(t *TLS, info int, path string, stat *unix.Stat_t, err syscallErrno) uintptr { - p := Xcalloc(t, 1, types.Size_t(unsafe.Sizeof(fts.FTSENT{}))) - if p == 0 { - panic("OOM") - } - - *(*fts.FTSENT)(unsafe.Pointer(p)) = *newFtsent(t, info, path, stat, err) - return p -} - -func ftsentClose(t *TLS, p uintptr) { - Xfree(t, (*fts.FTSENT)(unsafe.Pointer(p)).Ffts_path) - Xfree(t, (*fts.FTSENT)(unsafe.Pointer(p)).Ffts_statp) -} - -type ftstream struct { - s []uintptr - x int -} - -func (f *ftstream) close(t *TLS) { - for _, p := range f.s { - ftsentClose(t, p) - Xfree(t, p) - } - *f = ftstream{} -} - -// FTS *fts_open(char * const *path_argv, int options, int (*compar)(const FTSENT **, const FTSENT **)); -func Xfts_open(t *TLS, path_argv uintptr, options int32, compar uintptr) uintptr { - if __ccgo_strace { - trc("t=%v path_argv=%v options=%v compar=%v, (%v:)", t, path_argv, options, compar, origin(2)) - } - f := &ftstream{} - - var walk func(string) - walk = func(path string) { - var fi os.FileInfo - var err error - switch { - case options&fts.FTS_LOGICAL != 0: - fi, err = os.Stat(path) - case options&fts.FTS_PHYSICAL != 0: - fi, err = os.Lstat(path) - default: - panic(todo("")) - } - - if err != nil { - return - } - - var statp *unix.Stat_t - if options&fts.FTS_NOSTAT == 0 { - var stat unix.Stat_t - switch { - case options&fts.FTS_LOGICAL != 0: - if err := unix.Stat(path, &stat); err != nil { - panic(todo("")) - } - case options&fts.FTS_PHYSICAL != 0: - if err := unix.Lstat(path, &stat); err != nil { - panic(todo("")) - } - default: - panic(todo("")) - } - - statp = &stat - } - - out: - switch { - case fi.IsDir(): - f.s = append(f.s, newCFtsent(t, fts.FTS_D, path, statp, 0)) - g, err := os.Open(path) - switch x := err.(type) { - case nil: - // ok - case *os.PathError: - f.s = append(f.s, newCFtsent(t, fts.FTS_DNR, path, statp, errno.EACCES)) - break out - default: - panic(todo("%q: %v %T", path, x, x)) - } - - names, err := g.Readdirnames(-1) - g.Close() - if err != nil { - panic(todo("")) - } - - for _, name := range names { - walk(path + "/" + name) - if f == nil { - break out - } - } - - f.s = append(f.s, newCFtsent(t, fts.FTS_DP, path, statp, 0)) - default: - info := fts.FTS_F - if fi.Mode()&os.ModeSymlink != 0 { - info = fts.FTS_SL - } - switch { - case statp != nil: - f.s = append(f.s, newCFtsent(t, info, path, statp, 0)) - case options&fts.FTS_NOSTAT != 0: - f.s = append(f.s, newCFtsent(t, fts.FTS_NSOK, path, nil, 0)) - default: - panic(todo("")) - } - } - } - - for { - p := *(*uintptr)(unsafe.Pointer(path_argv)) - if p == 0 { - if f == nil { - return 0 - } - - if compar != 0 { - panic(todo("")) - } - - return addObject(f) - } - - walk(GoString(p)) - path_argv += unsafe.Sizeof(uintptr(0)) - } -} - -// FTSENT *fts_read(FTS *ftsp); -func Xfts_read(t *TLS, ftsp uintptr) uintptr { - if __ccgo_strace { - trc("t=%v ftsp=%v, (%v:)", t, ftsp, origin(2)) - } - f := getObject(ftsp).(*ftstream) - if f.x == len(f.s) { - if dmesgs { - dmesg("%v: FAIL", origin(1)) - } - t.setErrno(0) - return 0 - } - - r := f.s[f.x] - if e := (*fts.FTSENT)(unsafe.Pointer(r)).Ffts_errno; e != 0 { - if dmesgs { - dmesg("%v: FAIL", origin(1)) - } - t.setErrno(e) - } - f.x++ - return r -} - -// int fts_close(FTS *ftsp); -func Xfts_close(t *TLS, ftsp uintptr) int32 { - if __ccgo_strace { - trc("t=%v ftsp=%v, (%v:)", t, ftsp, origin(2)) - } - getObject(ftsp).(*ftstream).close(t) - removeObject(ftsp) - return 0 -} - -// void tzset (void); -func Xtzset(t *TLS) { - if __ccgo_strace { - trc("t=%v, (%v:)", t, origin(2)) - } - //TODO -} - -var strerrorBuf [100]byte - -// char *strerror(int errnum); -func Xstrerror(t *TLS, errnum int32) uintptr { - if __ccgo_strace { - trc("t=%v errnum=%v, (%v:)", t, errnum, origin(2)) - } - // if dmesgs { - // dmesg("%v: %v\n%s", origin(1), errnum, debug.Stack()) - // } - copy(strerrorBuf[:], fmt.Sprintf("strerror(%d)\x00", errnum)) - return uintptr(unsafe.Pointer(&strerrorBuf[0])) -} - -// void *dlopen(const char *filename, int flags); -func Xdlopen(t *TLS, filename uintptr, flags int32) uintptr { - if __ccgo_strace { - trc("t=%v filename=%v flags=%v, (%v:)", t, filename, flags, origin(2)) - } - panic(todo("")) -} - -// char *dlerror(void); -func Xdlerror(t *TLS) uintptr { - if __ccgo_strace { - trc("t=%v, (%v:)", t, origin(2)) - } - panic(todo("")) -} - -// int dlclose(void *handle); -func Xdlclose(t *TLS, handle uintptr) int32 { - if __ccgo_strace { - trc("t=%v handle=%v, (%v:)", t, handle, origin(2)) - } - panic(todo("")) -} - -// void *dlsym(void *handle, const char *symbol); -func Xdlsym(t *TLS, handle, symbol uintptr) uintptr { - if __ccgo_strace { - trc("t=%v symbol=%v, (%v:)", t, symbol, origin(2)) - } - panic(todo("")) -} - -// void perror(const char *s); -func Xperror(t *TLS, s uintptr) { - if __ccgo_strace { - trc("t=%v s=%v, (%v:)", t, s, origin(2)) - } - panic(todo("")) -} - -// int pclose(FILE *stream); -func Xpclose(t *TLS, stream uintptr) int32 { - if __ccgo_strace { - trc("t=%v stream=%v, (%v:)", t, stream, origin(2)) - } - panic(todo("")) -} - -// var gai_strerrorBuf [100]byte - -// const char *gai_strerror(int errcode); -func Xgai_strerror(t *TLS, errcode int32) uintptr { - if __ccgo_strace { - trc("t=%v errcode=%v, (%v:)", t, errcode, origin(2)) - } - panic(todo("")) - // copy(gai_strerrorBuf[:], fmt.Sprintf("gai error %d\x00", errcode)) - // return uintptr(unsafe.Pointer(&gai_strerrorBuf)) -} - -// int tcgetattr(int fd, struct termios *termios_p); -func Xtcgetattr(t *TLS, fd int32, termios_p uintptr) int32 { - if __ccgo_strace { - trc("t=%v fd=%v termios_p=%v, (%v:)", t, fd, termios_p, origin(2)) - } - panic(todo("")) -} - -// int tcsetattr(int fd, int optional_actions, const struct termios *termios_p); -func Xtcsetattr(t *TLS, fd, optional_actions int32, termios_p uintptr) int32 { - if __ccgo_strace { - trc("t=%v optional_actions=%v termios_p=%v, (%v:)", t, optional_actions, termios_p, origin(2)) - } - panic(todo("")) -} - -// speed_t cfgetospeed(const struct termios *termios_p); -func Xcfgetospeed(t *TLS, termios_p uintptr) termios.Speed_t { - if __ccgo_strace { - trc("t=%v termios_p=%v, (%v:)", t, termios_p, origin(2)) - } - panic(todo("")) -} - -// int cfsetospeed(struct termios *termios_p, speed_t speed); -// func Xcfsetospeed(t *TLS, termios_p uintptr, speed uint32) int32 { -func Xcfsetospeed(...interface{}) int32 { - panic(todo("")) -} - -// int cfsetispeed(struct termios *termios_p, speed_t speed); -// func Xcfsetispeed(t *TLS, termios_p uintptr, speed uint32) int32 { -func Xcfsetispeed(...interface{}) int32 { - panic(todo("")) -} - -// pid_t fork(void); -func Xfork(t *TLS) int32 { - if __ccgo_strace { - trc("t=%v, (%v:)", t, origin(2)) - } - if dmesgs { - dmesg("%v: FAIL", origin(1)) - } - t.setErrno(errno.ENOSYS) - return -1 -} - -var emptyStr = [1]byte{} - -// char *setlocale(int category, const char *locale); -func Xsetlocale(t *TLS, category int32, locale uintptr) uintptr { - if __ccgo_strace { - trc("t=%v category=%v locale=%v, (%v:)", t, category, locale, origin(2)) - } - return uintptr(unsafe.Pointer(&emptyStr)) //TODO -} - -// char *nl_langinfo(nl_item item); -func Xnl_langinfo(t *TLS, item langinfo.Nl_item) uintptr { - if __ccgo_strace { - trc("t=%v item=%v, (%v:)", t, item, origin(2)) - } - return uintptr(unsafe.Pointer(&emptyStr)) //TODO -} - -// FILE *popen(const char *command, const char *type); -func Xpopen(t *TLS, command, type1 uintptr) uintptr { - if __ccgo_strace { - trc("t=%v type1=%v, (%v:)", t, type1, origin(2)) - } - panic(todo("")) -} - -// char *realpath(const char *path, char *resolved_path); -func Xrealpath(t *TLS, path, resolved_path uintptr) uintptr { - if __ccgo_strace { - trc("t=%v resolved_path=%v, (%v:)", t, resolved_path, origin(2)) - } - s, err := filepath.EvalSymlinks(GoString(path)) - if err != nil { - if os.IsNotExist(err) { - if dmesgs { - dmesg("%v: %q: %v FAIL", origin(1), GoString(path), err) - } - t.setErrno(errno.ENOENT) - return 0 - } - - panic(todo("", err)) - } - - if resolved_path == 0 { - panic(todo("")) - } - - if len(s) >= limits.PATH_MAX { - s = s[:limits.PATH_MAX-1] - } - - copy((*RawMem)(unsafe.Pointer(resolved_path))[:len(s):len(s)], s) - (*RawMem)(unsafe.Pointer(resolved_path))[len(s)] = 0 - if dmesgs { - dmesg("%v: %q: ok", origin(1), GoString(path)) - } - return resolved_path -} - -// char *inet_ntoa(struct in_addr in); -func Xinet_ntoa(t *TLS, in1 in.In_addr) uintptr { - if __ccgo_strace { - trc("t=%v in1=%v, (%v:)", t, in1, origin(2)) - } - panic(todo("")) -} - -func X__ccgo_in6addr_anyp(t *TLS) uintptr { - if __ccgo_strace { - trc("t=%v, (%v:)", t, origin(2)) - } - panic(todo("")) - // return uintptr(unsafe.Pointer(&in6_addr_any)) -} - -func Xabort(t *TLS) { - if __ccgo_strace { - trc("t=%v, (%v:)", t, origin(2)) - } - if dmesgs { - dmesg("%v:", origin(1)) - } - p := Xcalloc(t, 1, types.Size_t(unsafe.Sizeof(signal.Sigaction{}))) - if p == 0 { - panic("OOM") - } - - (*signal.Sigaction)(unsafe.Pointer(p)).F__sigaction_u.F__sa_handler = signal.SIG_DFL - Xsigaction(t, signal.SIGABRT, p, 0) - Xfree(t, p) - unix.Kill(unix.Getpid(), unix.Signal(signal.SIGABRT)) - panic(todo("unrechable")) -} - -// int fflush(FILE *stream); -func Xfflush(t *TLS, stream uintptr) int32 { - if __ccgo_strace { - trc("t=%v stream=%v, (%v:)", t, stream, origin(2)) - } - return 0 //TODO -} - -// size_t fread(void *ptr, size_t size, size_t nmemb, FILE *stream); -func Xfread(t *TLS, ptr uintptr, size, nmemb types.Size_t, stream uintptr) types.Size_t { - if __ccgo_strace { - trc("t=%v ptr=%v nmemb=%v stream=%v, (%v:)", t, ptr, nmemb, stream, origin(2)) - } - fd := uintptr(file(stream).fd()) - count := size * nmemb - var n int - var err error - switch { - case count == 0: - n, err = unix.Read(int(fd), nil) - default: - n, err = unix.Read(int(fd), (*RawMem)(unsafe.Pointer(ptr))[:count:count]) - if dmesgs && err == nil { - dmesg("%v: fd %v, n %#x\n%s", origin(1), fd, n, hex.Dump((*RawMem)(unsafe.Pointer(ptr))[:n:n])) - } - } - if err != nil { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - file(stream).setErr() - return types.Size_t(n) / size - } - - if dmesgs { - dmesg("%v: ok", origin(1)) - } - return types.Size_t(n) / size -} - -// size_t fwrite(const void *ptr, size_t size, size_t nmemb, FILE *stream); -func Xfwrite(t *TLS, ptr uintptr, size, nmemb types.Size_t, stream uintptr) types.Size_t { - if __ccgo_strace { - trc("t=%v ptr=%v nmemb=%v stream=%v, (%v:)", t, ptr, nmemb, stream, origin(2)) - } - fd := uintptr(file(stream).fd()) - count := size * nmemb - var n int - var err error - switch { - case count == 0: - n, err = unix.Write(int(fd), nil) - default: - n, err = unix.Write(int(fd), (*RawMem)(unsafe.Pointer(ptr))[:count:count]) - if dmesgs { - dmesg("%v: fd %v, count %#x\n%s", origin(1), fd, count, hex.Dump((*RawMem)(unsafe.Pointer(ptr))[:count:count])) - } - } - if err != nil { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - file(stream).setErr() - return types.Size_t(n) / size - } - - if dmesgs { - dmesg("%v: ok", origin(1)) - } - return types.Size_t(n) / size -} - -// int fclose(FILE *stream); -func Xfclose(t *TLS, stream uintptr) int32 { - if __ccgo_strace { - trc("t=%v stream=%v, (%v:)", t, stream, origin(2)) - } - r := file(stream).close(t) - if r != 0 { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), r) - } - t.setErrno(r) - return stdio.EOF - } - - if dmesgs { - dmesg("%v: ok", origin(1)) - } - return 0 -} - -// int fputc(int c, FILE *stream); -func Xfputc(t *TLS, c int32, stream uintptr) int32 { - if __ccgo_strace { - trc("t=%v c=%v stream=%v, (%v:)", t, c, stream, origin(2)) - } - if _, err := fwrite(file(stream).fd(), []byte{byte(c)}); err != nil { - return stdio.EOF - } - - return int32(byte(c)) -} - -// int fseek(FILE *stream, long offset, int whence); -func Xfseek(t *TLS, stream uintptr, offset long, whence int32) int32 { - if __ccgo_strace { - trc("t=%v stream=%v offset=%v whence=%v, (%v:)", t, stream, offset, whence, origin(2)) - } - if n := Xlseek(t, int32(file(stream).fd()), types.Off_t(offset), whence); n < 0 { - if dmesgs { - dmesg("%v: fd %v, off %#x, whence %v: %v", origin(1), file(stream).fd(), offset, whenceStr(whence), n) - } - file(stream).setErr() - return -1 - } - - if dmesgs { - dmesg("%v: fd %v, off %#x, whence %v: ok", origin(1), file(stream).fd(), offset, whenceStr(whence)) - } - return 0 -} - -// long ftell(FILE *stream); -func Xftell(t *TLS, stream uintptr) long { - if __ccgo_strace { - trc("t=%v stream=%v, (%v:)", t, stream, origin(2)) - } - n := Xlseek(t, file(stream).fd(), 0, stdio.SEEK_CUR) - if n < 0 { - file(stream).setErr() - return -1 - } - - if dmesgs { - dmesg("%v: fd %v, n %#x: ok %#x", origin(1), file(stream).fd(), n, long(n)) - } - return long(n) -} - -// int ferror(FILE *stream); -func Xferror(t *TLS, stream uintptr) int32 { - if __ccgo_strace { - trc("t=%v stream=%v, (%v:)", t, stream, origin(2)) - } - return Bool32(file(stream).err()) -} - -// int fputs(const char *s, FILE *stream); -func Xfputs(t *TLS, s, stream uintptr) int32 { - if __ccgo_strace { - trc("t=%v stream=%v, (%v:)", t, stream, origin(2)) - } - panic(todo("")) - // if _, _, err := unix.Syscall(unix.SYS_WRITE, uintptr(file(stream).fd()), s, uintptr(Xstrlen(t, s))); err != 0 { - // return -1 - // } - - // return 0 -} - -var getservbynameStaticResult netdb.Servent - -// struct servent *getservbyname(const char *name, const char *proto); -func Xgetservbyname(t *TLS, name, proto uintptr) uintptr { - if __ccgo_strace { - trc("t=%v proto=%v, (%v:)", t, proto, origin(2)) - } - var protoent *gonetdb.Protoent - if proto != 0 { - protoent = gonetdb.GetProtoByName(GoString(proto)) - } - servent := gonetdb.GetServByName(GoString(name), protoent) - if servent == nil { - if dmesgs { - dmesg("%q %q: nil (protoent %+v)", GoString(name), GoString(proto), protoent) - } - return 0 - } - - Xfree(t, (*netdb.Servent)(unsafe.Pointer(&getservbynameStaticResult)).Fs_name) - if v := (*netdb.Servent)(unsafe.Pointer(&getservbynameStaticResult)).Fs_aliases; v != 0 { - for { - p := *(*uintptr)(unsafe.Pointer(v)) - if p == 0 { - break - } - - Xfree(t, p) - v += unsafe.Sizeof(uintptr(0)) - } - Xfree(t, v) - } - Xfree(t, (*netdb.Servent)(unsafe.Pointer(&getservbynameStaticResult)).Fs_proto) - cname, err := CString(servent.Name) - if err != nil { - getservbynameStaticResult = netdb.Servent{} - return 0 - } - - var protoname uintptr - if protoent != nil { - if protoname, err = CString(protoent.Name); err != nil { - Xfree(t, cname) - getservbynameStaticResult = netdb.Servent{} - return 0 - } - } - var a []uintptr - for _, v := range servent.Aliases { - cs, err := CString(v) - if err != nil { - for _, v := range a { - Xfree(t, v) - } - return 0 - } - - a = append(a, cs) - } - v := Xcalloc(t, types.Size_t(len(a)+1), types.Size_t(unsafe.Sizeof(uintptr(0)))) - if v == 0 { - Xfree(t, cname) - Xfree(t, protoname) - for _, v := range a { - Xfree(t, v) - } - getservbynameStaticResult = netdb.Servent{} - return 0 - } - for _, p := range a { - *(*uintptr)(unsafe.Pointer(v)) = p - v += unsafe.Sizeof(uintptr(0)) - } - - getservbynameStaticResult = netdb.Servent{ - Fs_name: cname, - Fs_aliases: v, - Fs_port: int32(servent.Port), - Fs_proto: protoname, - } - return uintptr(unsafe.Pointer(&getservbynameStaticResult)) -} - -// //TODO- func Xreaddir64(t *TLS, dir uintptr) uintptr { -// //TODO- return Xreaddir(t, dir) -// //TODO- } -// -// func __syscall(r, _ uintptr, errno syscallErrno) long { -// if errno != 0 { -// return long(-errno) -// } -// -// return long(r) -// } - -func fcntlCmdStr(cmd int32) string { - switch cmd { - case fcntl.F_GETOWN: - return "F_GETOWN" - case fcntl.F_SETLK: - return "F_SETLK" - case fcntl.F_GETLK: - return "F_GETLK" - case fcntl.F_SETFD: - return "F_SETFD" - case fcntl.F_GETFD: - return "F_GETFD" - default: - return fmt.Sprintf("cmd(%d)", cmd) - } -} - -// // struct __float2 { float __sinval; float __cosval; }; -// // struct __double2 { double __sinval; double __cosval; }; -// // -// // extern struct __float2 __sincosf_stret(float); -// // extern struct __double2 __sincos_stret(double); -// // extern struct __float2 __sincospif_stret(float); -// // extern struct __double2 __sincospi_stret(double); -// -// type X__float2 struct{ F__sinval, F__cosval float32 } -// type X__double2 struct{ F__sinval, F__cosval float32 } -// -// func X__sincosf_stret(*TLS, float32) X__float2 { -// panic(todo("")) -// } -// -// func X__sincos_stret(*TLS, float64) X__double2 { -// panic(todo("")) -// } -// -// func X__sincospif_stret(*TLS, float32) X__float2 { -// panic(todo("")) -// } -// -// func X__sincospi_stret(*TLS, float64) X__double2 { -// panic(todo("")) -// } - -// ssize_t pwrite(int fd, const void *buf, size_t count, off_t offset); -func Xpwrite(t *TLS, fd int32, buf uintptr, count types.Size_t, offset types.Off_t) types.Ssize_t { - if __ccgo_strace { - trc("t=%v fd=%v buf=%v count=%v offset=%v, (%v:)", t, fd, buf, count, offset, origin(2)) - } - var n int - var err error - switch { - case count == 0: - n, err = unix.Pwrite(int(fd), nil, int64(offset)) - default: - n, err = unix.Pwrite(int(fd), (*RawMem)(unsafe.Pointer(buf))[:count:count], int64(offset)) - if dmesgs { - dmesg("%v: fd %v, off %#x, count %#x\n%s", origin(1), fd, offset, count, hex.Dump((*RawMem)(unsafe.Pointer(buf))[:count:count])) - } - } - if err != nil { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: ok", origin(1)) - } - return types.Ssize_t(n) -} - -// char***_NSGetEnviron() -func X_NSGetEnviron(t *TLS) uintptr { - if __ccgo_strace { - trc("t=%v, (%v:)", t, origin(2)) - } - return EnvironP() -} - -// int chflags(const char *path, u_int flags); -func Xchflags(t *TLS, path uintptr, flags uint32) int32 { - if __ccgo_strace { - trc("t=%v path=%v flags=%v, (%v:)", t, path, flags, origin(2)) - } - if err := unix.Chflags(GoString(path), int(flags)); err != nil { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: ok", origin(1)) - } - return 0 -} - -// int rmdir(const char *pathname); -func Xrmdir(t *TLS, pathname uintptr) int32 { - if __ccgo_strace { - trc("t=%v pathname=%v, (%v:)", t, pathname, origin(2)) - } - if err := unix.Rmdir(GoString(pathname)); err != nil { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: ok", origin(1)) - } - return 0 -} - -// uint64_t mach_absolute_time(void); -func Xmach_absolute_time(t *TLS) uint64 { - if __ccgo_strace { - trc("t=%v, (%v:)", t, origin(2)) - } - return uint64(gotime.Now().UnixNano()) -} - -// See https://developer.apple.com/library/archive/qa/qa1398/_index.html -type machTimebaseInfo = struct { - Fnumer uint32 - Fdenom uint32 -} /* mach_time.h:36:1 */ - -// kern_return_t mach_timebase_info(mach_timebase_info_t info); -func Xmach_timebase_info(t *TLS, info uintptr) int32 { - if __ccgo_strace { - trc("t=%v info=%v, (%v:)", t, info, origin(2)) - } - *(*machTimebaseInfo)(unsafe.Pointer(info)) = machTimebaseInfo{Fnumer: 1, Fdenom: 1} - return 0 -} - -// int getattrlist(const char* path, struct attrlist * attrList, void * attrBuf, size_t attrBufSize, unsigned long options); -func Xgetattrlist(t *TLS, path, attrList, attrBuf uintptr, attrBufSize types.Size_t, options uint32) int32 { - if __ccgo_strace { - trc("t=%v attrBuf=%v attrBufSize=%v options=%v, (%v:)", t, attrBuf, attrBufSize, options, origin(2)) - } - if _, _, err := unix.Syscall6(unix.SYS_GETATTRLIST, path, attrList, attrBuf, uintptr(attrBufSize), uintptr(options), 0); err != 0 { // Cannot avoid the syscall here. - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: ok", origin(1)) - } - return 0 -} - -// int setattrlist(const char* path, struct attrlist * attrList, void * attrBuf, size_t attrBufSize, unsigned long options); -func Xsetattrlist(t *TLS, path, attrList, attrBuf uintptr, attrBufSize types.Size_t, options uint32) int32 { - if __ccgo_strace { - trc("t=%v attrBuf=%v attrBufSize=%v options=%v, (%v:)", t, attrBuf, attrBufSize, options, origin(2)) - } - if _, _, err := unix.Syscall6(unix.SYS_SETATTRLIST, path, attrList, attrBuf, uintptr(attrBufSize), uintptr(options), 0); err != 0 { // Cannot avoid the syscall here. - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return -1 - } - - if dmesgs { - dmesg("%v: ok", origin(1)) - } - return 0 -} - -// int copyfile(const char *from, const char *to, copyfile_state_t state, copyfile_flags_t flags); -func Xcopyfile(t *TLS, _ ...interface{}) int32 { - panic(todo("")) -} - -// int truncate(const char *path, off_t length); -func Xtruncate(t *TLS, _ ...interface{}) int32 { - panic(todo("")) -} - -type darwinDir struct { - buf [4096]byte - fd int - h int - l int - - eof bool -} - -// DIR *opendir(const char *name); -func Xopendir(t *TLS, name uintptr) uintptr { - if __ccgo_strace { - trc("t=%v name=%v, (%v:)", t, name, origin(2)) - } - p := Xmalloc(t, uint64(unsafe.Sizeof(darwinDir{}))) - if p == 0 { - panic("OOM") - } - - fd := int(Xopen(t, name, fcntl.O_RDONLY|fcntl.O_DIRECTORY|fcntl.O_CLOEXEC, 0)) - if fd < 0 { - if dmesgs { - dmesg("%v: FAIL %v", origin(1), (*darwinDir)(unsafe.Pointer(p)).fd) - } - Xfree(t, p) - // trc("==== opendir: %#x", 0) - return 0 - } - - if dmesgs { - dmesg("%v: ok", origin(1)) - } - (*darwinDir)(unsafe.Pointer(p)).fd = fd - (*darwinDir)(unsafe.Pointer(p)).h = 0 - (*darwinDir)(unsafe.Pointer(p)).l = 0 - (*darwinDir)(unsafe.Pointer(p)).eof = false - // trc("==== opendir: %#x", p) - return p -} - -// struct dirent *readdir(DIR *dirp); -func Xreaddir(t *TLS, dir uintptr) uintptr { - if __ccgo_strace { - trc("t=%v dir=%v, (%v:)", t, dir, origin(2)) - } - if (*darwinDir)(unsafe.Pointer(dir)).eof { - return 0 - } - - // trc(".... readdir %#x: l %v, h %v", dir, (*darwinDir)(unsafe.Pointer(dir)).l, (*darwinDir)(unsafe.Pointer(dir)).h) - if (*darwinDir)(unsafe.Pointer(dir)).l == (*darwinDir)(unsafe.Pointer(dir)).h { - n, err := unix.Getdirentries((*darwinDir)(unsafe.Pointer(dir)).fd, (*darwinDir)(unsafe.Pointer(dir)).buf[:], nil) - // trc("must read: %v %v", n, err) - if n == 0 { - if err != nil && err != io.EOF { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - } - (*darwinDir)(unsafe.Pointer(dir)).eof = true - return 0 - } - - (*darwinDir)(unsafe.Pointer(dir)).l = 0 - (*darwinDir)(unsafe.Pointer(dir)).h = n - // trc("new l %v, h %v", (*darwinDir)(unsafe.Pointer(dir)).l, (*darwinDir)(unsafe.Pointer(dir)).h) - } - de := dir + unsafe.Offsetof(darwinDir{}.buf) + uintptr((*darwinDir)(unsafe.Pointer(dir)).l) - // trc("dir %#x de %#x", dir, de) - (*darwinDir)(unsafe.Pointer(dir)).l += int((*unix.Dirent)(unsafe.Pointer(de)).Reclen) - // trc("final l %v, h %v", (*darwinDir)(unsafe.Pointer(dir)).l, (*darwinDir)(unsafe.Pointer(dir)).h) - return de -} - -func Xclosedir(t *TLS, dir uintptr) int32 { - if __ccgo_strace { - trc("t=%v dir=%v, (%v:)", t, dir, origin(2)) - } - // trc("---- closedir: %#x", dir) - r := Xclose(t, int32((*darwinDir)(unsafe.Pointer(dir)).fd)) - Xfree(t, dir) - return r -} - -// int pipe(int pipefd[2]); -func Xpipe(t *TLS, pipefd uintptr) int32 { - if __ccgo_strace { - trc("t=%v pipefd=%v, (%v:)", t, pipefd, origin(2)) - } - var a [2]int - if err := unix.Pipe(a[:]); err != nil { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return -1 - } - - *(*[2]int32)(unsafe.Pointer(pipefd)) = [2]int32{int32(a[0]), int32(a[1])} - if dmesgs { - dmesg("%v: %v ok", origin(1), a) - } - return 0 -} - -// int __isoc99_sscanf(const char *str, const char *format, ...); -func X__isoc99_sscanf(t *TLS, str, format, va uintptr) int32 { - if __ccgo_strace { - trc("t=%v va=%v, (%v:)", t, va, origin(2)) - } - r := scanf(strings.NewReader(GoString(str)), format, va) - // if dmesgs { - // dmesg("%v: %q %q: %d", origin(1), GoString(str), GoString(format), r) - // } - return r -} - -// int sscanf(const char *str, const char *format, ...); -func Xsscanf(t *TLS, str, format, va uintptr) int32 { - if __ccgo_strace { - trc("t=%v va=%v, (%v:)", t, va, origin(2)) - } - r := scanf(strings.NewReader(GoString(str)), format, va) - // if dmesgs { - // dmesg("%v: %q %q: %d", origin(1), GoString(str), GoString(format), r) - // } - return r -} - -// int posix_fadvise(int fd, off_t offset, off_t len, int advice); -func Xposix_fadvise(t *TLS, fd int32, offset, len types.Off_t, advice int32) int32 { - if __ccgo_strace { - trc("t=%v fd=%v len=%v advice=%v, (%v:)", t, fd, len, advice, origin(2)) - } - panic(todo("")) -} - -// clock_t clock(void); -func Xclock(t *TLS) time.Clock_t { - if __ccgo_strace { - trc("t=%v, (%v:)", t, origin(2)) - } - return time.Clock_t(gotime.Since(startTime) * gotime.Duration(time.CLOCKS_PER_SEC) / gotime.Second) -} - -// int iswspace(wint_t wc); -func Xiswspace(t *TLS, wc wctype.Wint_t) int32 { - if __ccgo_strace { - trc("t=%v wc=%v, (%v:)", t, wc, origin(2)) - } - return Bool32(unicode.IsSpace(rune(wc))) -} - -// int iswalnum(wint_t wc); -func Xiswalnum(t *TLS, wc wctype.Wint_t) int32 { - if __ccgo_strace { - trc("t=%v wc=%v, (%v:)", t, wc, origin(2)) - } - return Bool32(unicode.IsLetter(rune(wc)) || unicode.IsNumber(rune(wc))) -} - -// void arc4random_buf(void *buf, size_t nbytes); -func Xarc4random_buf(t *TLS, buf uintptr, buflen size_t) { - if __ccgo_strace { - trc("t=%v buf=%v buflen=%v, (%v:)", t, buf, buflen, origin(2)) - } - if _, err := crand.Read((*RawMem)(unsafe.Pointer(buf))[:buflen]); err != nil { - panic(todo("")) - } -} - -type darwin_mutexattr_t struct { - sig int64 - x [8]byte -} - -type darwin_mutex_t struct { - sig int64 - x [65]byte -} - -func X__ccgo_pthreadMutexattrGettype(tls *TLS, a uintptr) int32 { - if __ccgo_strace { - trc("tls=%v a=%v, (%v:)", tls, a, origin(2)) - } - return (int32((*darwin_mutexattr_t)(unsafe.Pointer(a)).x[4] >> 2 & 3)) -} - -func X__ccgo_getMutexType(tls *TLS, m uintptr) int32 { - if __ccgo_strace { - trc("tls=%v m=%v, (%v:)", tls, m, origin(2)) - } - return (int32((*darwin_mutex_t)(unsafe.Pointer(m)).x[4] >> 2 & 3)) -} - -func X__ccgo_pthreadAttrGetDetachState(tls *TLS, a uintptr) int32 { - if __ccgo_strace { - trc("tls=%v a=%v, (%v:)", tls, a, origin(2)) - } - return (*pthreadAttr)(unsafe.Pointer(a)).detachState -} - -func Xpthread_attr_getdetachstate(tls *TLS, a uintptr, state uintptr) int32 { - if __ccgo_strace { - trc("tls=%v a=%v state=%v, (%v:)", tls, a, state, origin(2)) - } - panic(todo("")) -} - -func Xpthread_attr_setdetachstate(tls *TLS, a uintptr, state int32) int32 { - if __ccgo_strace { - trc("tls=%v a=%v state=%v, (%v:)", tls, a, state, origin(2)) - } - panic(todo("")) -} - -func Xpthread_mutexattr_destroy(tls *TLS, a uintptr) int32 { - if __ccgo_strace { - trc("tls=%v a=%v, (%v:)", tls, a, origin(2)) - } - return 0 -} - -func Xpthread_mutexattr_init(tls *TLS, a uintptr) int32 { - if __ccgo_strace { - trc("tls=%v a=%v, (%v:)", tls, a, origin(2)) - } - *(*darwin_mutexattr_t)(unsafe.Pointer(a)) = darwin_mutexattr_t{} - return 0 -} - -func Xpthread_mutexattr_settype(tls *TLS, a uintptr, type1 int32) int32 { - if __ccgo_strace { - trc("tls=%v a=%v type1=%v, (%v:)", tls, a, type1, origin(2)) - } - if uint32(type1) > uint32(2) { - return errno.EINVAL - } - (*darwin_mutexattr_t)(unsafe.Pointer(a)).x[4] = byte(type1 << 2) - return 0 -} - -// ssize_t writev(int fd, const struct iovec *iov, int iovcnt); -func Xwritev(t *TLS, fd int32, iov uintptr, iovcnt int32) types.Ssize_t { - if __ccgo_strace { - trc("t=%v fd=%v iov=%v iovcnt=%v, (%v:)", t, fd, iov, iovcnt, origin(2)) - } - // if dmesgs { - // dmesg("%v: fd %v iov %#x iovcnt %v", origin(1), fd, iov, iovcnt) - // } - r, _, err := unix.Syscall(unix.SYS_WRITEV, uintptr(fd), iov, uintptr(iovcnt)) - if err != 0 { - if dmesgs { - dmesg("%v: %v FAIL", origin(1), err) - } - t.setErrno(err) - return -1 - } - - return types.Ssize_t(r) -} - -// int pause(void); -func Xpause(t *TLS) int32 { - if __ccgo_strace { - trc("t=%v, (%v:)", t, origin(2)) - } - c := make(chan os.Signal) - gosignal.Notify(c, - unix.SIGABRT, - unix.SIGALRM, - unix.SIGBUS, - unix.SIGCHLD, - unix.SIGCONT, - unix.SIGFPE, - unix.SIGHUP, - unix.SIGILL, - // unix.SIGINT, - unix.SIGIO, - unix.SIGIOT, - unix.SIGKILL, - unix.SIGPIPE, - unix.SIGPROF, - unix.SIGQUIT, - unix.SIGSEGV, - unix.SIGSTOP, - unix.SIGSYS, - unix.SIGTERM, - unix.SIGTRAP, - unix.SIGTSTP, - unix.SIGTTIN, - unix.SIGTTOU, - unix.SIGURG, - unix.SIGUSR1, - unix.SIGUSR2, - unix.SIGVTALRM, - unix.SIGWINCH, - unix.SIGXCPU, - unix.SIGXFSZ, - ) - switch <-c { - case unix.SIGINT: - panic(todo("")) - default: - t.setErrno(errno.EINTR) - return -1 - } -} - -// #define __DARWIN_FD_SETSIZE 1024 -// #define __DARWIN_NFDBITS (sizeof(__int32_t) * __DARWIN_NBBY) /* bits per mask */ -// #define __DARWIN_NBBY 8 /* bits in a byte */ -// #define __DARWIN_howmany(x, y) ((((x) % (y)) == 0) ? ((x) / (y)) : (((x) / (y)) + 1)) /* # y's == x bits? */ - -// typedef struct fd_set { -// __int32_t fds_bits[__DARWIN_howmany(__DARWIN_FD_SETSIZE, __DARWIN_NFDBITS)]; -// } fd_set; - -// __darwin_fd_set(int _fd, struct fd_set *const _p) -// -// { -// (_p->fds_bits[(unsigned long)_fd / __DARWIN_NFDBITS] |= ((__int32_t)(((unsigned long)1) << ((unsigned long)_fd % __DARWIN_NFDBITS)))); -// } -func X__darwin_fd_set(tls *TLS, _fd int32, _p uintptr) int32 { /* main.c:12:1: */ - if __ccgo_strace { - trc("tls=%v _fd=%v _p=%v, (%v:)", tls, _fd, _p, origin(2)) - } - *(*int32)(unsafe.Pointer(_p + uintptr(uint64(_fd)/(uint64(unsafe.Sizeof(int32(0)))*uint64(8)))*4)) |= int32(uint64(uint64(1)) << (uint64(_fd) % (uint64(unsafe.Sizeof(int32(0))) * uint64(8)))) - return int32(0) -} - -// __darwin_fd_isset(int _fd, const struct fd_set *_p) -// -// { -// return _p->fds_bits[(unsigned long)_fd / __DARWIN_NFDBITS] & ((__int32_t)(((unsigned long)1) << ((unsigned long)_fd % __DARWIN_NFDBITS))); -// } -func X__darwin_fd_isset(tls *TLS, _fd int32, _p uintptr) int32 { /* main.c:17:1: */ - if __ccgo_strace { - trc("tls=%v _fd=%v _p=%v, (%v:)", tls, _fd, _p, origin(2)) - } - return *(*int32)(unsafe.Pointer(_p + uintptr(uint64(_fd)/(uint64(unsafe.Sizeof(int32(0)))*uint64(8)))*4)) & int32(uint64(uint64(1))<<(uint64(_fd)%(uint64(unsafe.Sizeof(int32(0)))*uint64(8)))) -} - -// __darwin_fd_clr(int _fd, struct fd_set *const _p) -// -// { -// (_p->fds_bits[(unsigned long)_fd / __DARWIN_NFDBITS] &= ~((__int32_t)(((unsigned long)1) << ((unsigned long)_fd % __DARWIN_NFDBITS)))); -// } -func X__darwin_fd_clr(tls *TLS, _fd int32, _p uintptr) int32 { /* main.c:22:1: */ - if __ccgo_strace { - trc("tls=%v _fd=%v _p=%v, (%v:)", tls, _fd, _p, origin(2)) - } - *(*int32)(unsafe.Pointer(_p + uintptr(uint64(_fd)/(uint64(unsafe.Sizeof(int32(0)))*uint64(8)))*4)) &= ^int32(uint64(uint64(1)) << (uint64(_fd) % (uint64(unsafe.Sizeof(int32(0))) * uint64(8)))) - return int32(0) -} - -// int ungetc(int c, FILE *stream); -func Xungetc(t *TLS, c int32, stream uintptr) int32 { - if __ccgo_strace { - trc("t=%v c=%v stream=%v, (%v:)", t, c, stream, origin(2)) - } - panic(todo("")) -} - -// int issetugid(void); -func Xissetugid(t *TLS) int32 { - if __ccgo_strace { - trc("t=%v, (%v:)", t, origin(2)) - } - panic(todo("")) -} - -var progname uintptr - -// const char *getprogname(void); -func Xgetprogname(t *TLS) uintptr { - if __ccgo_strace { - trc("t=%v, (%v:)", t, origin(2)) - } - if progname != 0 { - return progname - } - - var err error - progname, err = CString(filepath.Base(os.Args[0])) - if err != nil { - t.setErrno(err) - return 0 - } - - return progname -} - -// void uuid_copy(uuid_t dst, uuid_t src); -func Xuuid_copy(t *TLS, dst, src uintptr) { - if __ccgo_strace { - trc("t=%v src=%v, (%v:)", t, src, origin(2)) - } - *(*uuid.Uuid_t)(unsafe.Pointer(dst)) = *(*uuid.Uuid_t)(unsafe.Pointer(src)) -} - -// int uuid_parse( char *in, uuid_t uu); -func Xuuid_parse(t *TLS, in uintptr, uu uintptr) int32 { - if __ccgo_strace { - trc("t=%v in=%v uu=%v, (%v:)", t, in, uu, origin(2)) - } - r, err := guuid.Parse(GoString(in)) - if err != nil { - return -1 - } - - copy((*RawMem)(unsafe.Pointer(uu))[:unsafe.Sizeof(uuid.Uuid_t{})], r[:]) - return 0 -} - -// struct __float2 { float __sinval; float __cosval; }; - -// struct __float2 __sincosf_stret(float); -func X__sincosf_stret(t *TLS, f float32) struct{ F__sinval, F__cosval float32 } { - panic(todo("")) -} - -// struct __double2 { double __sinval; double __cosval; }; - -// struct __double2 __sincos_stret(double); -func X__sincos_stret(t *TLS, f float64) struct{ F__sinval, F__cosval float64 } { - panic(todo("")) -} - -// struct __float2 __sincospif_stret(float); -func X__sincospif_stret(t *TLS, f float32) struct{ F__sinval, F__cosval float32 } { - panic(todo("")) -} - -// struct _double2 __sincospi_stret(double); -func X__sincospi_stret(t *TLS, f float64) struct{ F__sinval, F__cosval float64 } { - panic(todo("")) -} - -// int __srget(FILE *); -func X__srget(t *TLS, f uintptr) int32 { - if __ccgo_strace { - trc("t=%v f=%v, (%v:)", t, f, origin(2)) - } - panic(todo("")) -} - -// int __svfscanf(FILE *, const char *, va_list) __scanflike(2, 0); -func X__svfscanf(t *TLS, f uintptr, p, q uintptr) int32 { - if __ccgo_strace { - trc("t=%v f=%v q=%v, (%v:)", t, f, q, origin(2)) - } - panic(todo("")) -} - -// int __swbuf(int, FILE *); -func X__swbuf(t *TLS, i int32, f uintptr) int32 { - if __ccgo_strace { - trc("t=%v i=%v f=%v, (%v:)", t, i, f, origin(2)) - } - panic(todo("")) -} - -// int nanosleep(const struct timespec *req, struct timespec *rem); -func Xnanosleep(t *TLS, req, rem uintptr) int32 { - if __ccgo_strace { - trc("t=%v rem=%v, (%v:)", t, rem, origin(2)) - } - v := *(*time.Timespec)(unsafe.Pointer(req)) - gotime.Sleep(gotime.Second*gotime.Duration(v.Ftv_sec) + gotime.Duration(v.Ftv_nsec)) - return 0 -} - -// // void malloc_set_zone_name(malloc_zone_t *zone, const char *name) -// func Xmalloc_set_zone_name(t *TLS, zone, name uintptr) { -// if __ccgo_strace { -// trc("t=%v zone=%v name=%v, (%v:)", t, zone, name, origin(2)) -// } -// // nop -// } - -// size_t malloc_size(const void *ptr); -func Xmalloc_size(t *TLS, ptr uintptr) types.Size_t { - if __ccgo_strace { - trc("t=%v ptr=%v, (%v:)", t, ptr, origin(2)) - } - panic(todo("")) -} - -// int open(const char *pathname, int flags, ...); -func Xopen64(t *TLS, pathname uintptr, flags int32, args uintptr) int32 { - if __ccgo_strace { - trc("t=%v pathname=%v flags=%v args=%v, (%v:)", t, pathname, flags, args, origin(2)) - } - var mode types.Mode_t - if args != 0 { - mode = (types.Mode_t)(VaUint32(&args)) - } - fdcwd := fcntl.AT_FDCWD - n, _, err := unix.Syscall6(unix.SYS_OPENAT, uintptr(fdcwd), pathname, uintptr(flags), uintptr(mode), 0, 0) - if err != 0 { - // if dmesgs { - // dmesg("%v: %q %#x: %v", origin(1), GoString(pathname), flags, err) - // } - t.setErrno(err) - return -1 - } - - // if dmesgs { - // dmesg("%v: %q flags %#x mode %#o: fd %v", origin(1), GoString(pathname), flags, mode, n) - // } - return int32(n) -} - -// int getrlimit(int resource, struct rlimit *rlim); -func Xgetrlimit(t *TLS, resource int32, rlim uintptr) int32 { - if __ccgo_strace { - trc("t=%v resource=%v rlim=%v, (%v:)", t, resource, rlim, origin(2)) - } - if _, _, err := unix.Syscall(unix.SYS_GETRLIMIT, uintptr(resource), uintptr(rlim), 0); err != 0 { - t.setErrno(err) - return -1 - } - - return 0 -} - -// int setrlimit(int resource, const struct rlimit *rlim); -func Xsetrlimit(t *TLS, resource int32, rlim uintptr) int32 { - if __ccgo_strace { - trc("t=%v resource=%v rlim=%v, (%v:)", t, resource, rlim, origin(2)) - } - if _, _, err := unix.Syscall(unix.SYS_SETRLIMIT, uintptr(resource), uintptr(rlim), 0); err != 0 { - t.setErrno(err) - return -1 - } - - return 0 -} - -func X__fpclassifyd(tls *TLS, x float64) (r int32) { - return X__fpclassify(tls, x) -} - -var Xin6addr_any = in6_addr{} - -func X__builtin_lround(tls *TLS, x float64) (r long) { - return Xlround(tls, x) -} - -func Xlround(tls *TLS, x float64) (r long) { - return long(Xround(tls, x)) -} |