303 lines
		
	
	
		
			6.5 KiB
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			303 lines
		
	
	
		
			6.5 KiB
		
	
	
	
		
			Factor
		
	
	
! Copyright (C) 2010 Doug Coleman.
 | 
						|
! See http://factorcode.org/license.txt for BSD license.
 | 
						|
USING: alien.c-types alien.syntax classes.struct unix.time
 | 
						|
unix.types ;
 | 
						|
IN: unix.ffi
 | 
						|
 | 
						|
CONSTANT: MAXPATHLEN 1024
 | 
						|
 | 
						|
CONSTANT: O_RDONLY   0x0000
 | 
						|
CONSTANT: O_WRONLY   0x0001
 | 
						|
CONSTANT: O_RDWR     0x0002
 | 
						|
CONSTANT: O_CREAT    0x0040
 | 
						|
CONSTANT: O_EXCL     0x0080
 | 
						|
CONSTANT: O_NOCTTY   0x0100
 | 
						|
CONSTANT: O_TRUNC    0x0200
 | 
						|
CONSTANT: O_APPEND   0x0400
 | 
						|
CONSTANT: O_NONBLOCK 0x0800
 | 
						|
 | 
						|
ALIAS: O_NDELAY O_NONBLOCK
 | 
						|
 | 
						|
CONSTANT: SOL_SOCKET 1
 | 
						|
 | 
						|
CONSTANT: FD_SETSIZE 1024
 | 
						|
 | 
						|
CONSTANT: SO_REUSEADDR 2
 | 
						|
CONSTANT: SO_DONTROUTE 5
 | 
						|
CONSTANT: SO_BROADCAST 6
 | 
						|
CONSTANT: SO_SNDBUF 7
 | 
						|
CONSTANT: SO_RCVBUF 8
 | 
						|
CONSTANT: SO_KEEPALINE 9
 | 
						|
CONSTANT: SO_OOBINLINE 10
 | 
						|
CONSTANT: SO_SNDTIMEO 0x15
 | 
						|
CONSTANT: SO_RCVTIMEO 0x14
 | 
						|
 | 
						|
CONSTANT: F_SETFD 2
 | 
						|
CONSTANT: FD_CLOEXEC 1
 | 
						|
 | 
						|
CONSTANT: F_SETFL 4
 | 
						|
 | 
						|
STRUCT: addrinfo
 | 
						|
    { flags int }
 | 
						|
    { family int }
 | 
						|
    { socktype int }
 | 
						|
    { protocol int }
 | 
						|
    { addrlen socklen_t }
 | 
						|
    { addr void* }
 | 
						|
    { canonname c-string }
 | 
						|
    { next addrinfo* } ;
 | 
						|
 | 
						|
STRUCT: sockaddr-in
 | 
						|
    { family ushort }
 | 
						|
    { port ushort }
 | 
						|
    { addr in_addr_t }
 | 
						|
    { unused longlong } ;
 | 
						|
 | 
						|
STRUCT: sockaddr-in6
 | 
						|
    { family ushort }
 | 
						|
    { port ushort }
 | 
						|
    { flowinfo uint }
 | 
						|
    { addr uchar[16] }
 | 
						|
    { scopeid uint } ;
 | 
						|
 | 
						|
CONSTANT: max-un-path 108
 | 
						|
 | 
						|
STRUCT: sockaddr-un
 | 
						|
    { family ushort }
 | 
						|
    { path { char max-un-path } } ;
 | 
						|
 | 
						|
CONSTANT: SOCK_STREAM 1
 | 
						|
CONSTANT: SOCK_DGRAM 2
 | 
						|
CONSTANT: SOCK_RAW 3
 | 
						|
 | 
						|
CONSTANT: AF_UNSPEC 0
 | 
						|
CONSTANT: AF_UNIX 1
 | 
						|
CONSTANT: AF_INET 2
 | 
						|
CONSTANT: AF_INET6 10
 | 
						|
 | 
						|
ALIAS: PF_UNSPEC AF_UNSPEC
 | 
						|
ALIAS: PF_UNIX AF_UNIX
 | 
						|
ALIAS: PF_INET AF_INET
 | 
						|
ALIAS: PF_INET6 AF_INET6
 | 
						|
 | 
						|
CONSTANT: IPPROTO_TCP 6
 | 
						|
CONSTANT: IPPROTO_UDP 17
 | 
						|
 | 
						|
CONSTANT: AI_PASSIVE 1
 | 
						|
 | 
						|
CONSTANT: SEEK_SET 0
 | 
						|
CONSTANT: SEEK_CUR 1
 | 
						|
CONSTANT: SEEK_END 2
 | 
						|
 | 
						|
STRUCT: passwd
 | 
						|
    { pw_name c-string }
 | 
						|
    { pw_passwd c-string }
 | 
						|
    { pw_uid uid_t }
 | 
						|
    { pw_gid gid_t }
 | 
						|
    { pw_gecos c-string }
 | 
						|
    { pw_dir c-string }
 | 
						|
    { pw_shell c-string } ;
 | 
						|
 | 
						|
! dirent64
 | 
						|
STRUCT: dirent
 | 
						|
    { d_ino ulonglong }
 | 
						|
    { d_off longlong }
 | 
						|
    { d_reclen ushort }
 | 
						|
    { d_type uchar }
 | 
						|
    { d_name char[256] } ;
 | 
						|
 | 
						|
FUNCTION: int open64 ( c-string path, int flags, int prot ) ;
 | 
						|
FUNCTION: dirent* readdir64 ( DIR* dirp ) ;
 | 
						|
FUNCTION: int readdir64_r ( void* dirp, dirent* entry, dirent** result ) ;
 | 
						|
 | 
						|
CONSTANT: EPERM 1
 | 
						|
CONSTANT: ENOENT 2
 | 
						|
CONSTANT: ESRCH 3
 | 
						|
CONSTANT: EINTR 4
 | 
						|
CONSTANT: EIO 5
 | 
						|
CONSTANT: ENXIO 6
 | 
						|
CONSTANT: E2BIG 7
 | 
						|
CONSTANT: ENOEXEC 8
 | 
						|
CONSTANT: EBADF 9
 | 
						|
CONSTANT: ECHILD 10
 | 
						|
CONSTANT: EAGAIN 11
 | 
						|
CONSTANT: ENOMEM 12
 | 
						|
CONSTANT: EACCES 13
 | 
						|
CONSTANT: EFAULT 14
 | 
						|
CONSTANT: ENOTBLK 15
 | 
						|
CONSTANT: EBUSY 16
 | 
						|
CONSTANT: EEXIST 17
 | 
						|
CONSTANT: EXDEV 18
 | 
						|
CONSTANT: ENODEV 19
 | 
						|
CONSTANT: ENOTDIR 20
 | 
						|
CONSTANT: EISDIR 21
 | 
						|
CONSTANT: EINVAL 22
 | 
						|
CONSTANT: ENFILE 23
 | 
						|
CONSTANT: EMFILE 24
 | 
						|
CONSTANT: ENOTTY 25
 | 
						|
CONSTANT: ETXTBSY 26
 | 
						|
CONSTANT: EFBIG 27
 | 
						|
CONSTANT: ENOSPC 28
 | 
						|
CONSTANT: ESPIPE 29
 | 
						|
CONSTANT: EROFS 30
 | 
						|
CONSTANT: EMLINK 31
 | 
						|
CONSTANT: EPIPE 32
 | 
						|
CONSTANT: EDOM 33
 | 
						|
CONSTANT: ERANGE 34
 | 
						|
CONSTANT: EDEADLK 35
 | 
						|
CONSTANT: ENAMETOOLONG 36
 | 
						|
CONSTANT: ENOLCK 37
 | 
						|
CONSTANT: ENOSYS 38
 | 
						|
CONSTANT: ENOTEMPTY 39
 | 
						|
CONSTANT: ELOOP 40
 | 
						|
ALIAS: EWOULDBLOCK EAGAIN
 | 
						|
CONSTANT: ENOMSG 42
 | 
						|
CONSTANT: EIDRM 43
 | 
						|
CONSTANT: ECHRNG 44
 | 
						|
CONSTANT: EL2NSYNC 45
 | 
						|
CONSTANT: EL3HLT 46
 | 
						|
CONSTANT: EL3RST 47
 | 
						|
CONSTANT: ELNRNG 48
 | 
						|
CONSTANT: EUNATCH 49
 | 
						|
CONSTANT: ENOCSI 50
 | 
						|
CONSTANT: EL2HLT 51
 | 
						|
CONSTANT: EBADE 52
 | 
						|
CONSTANT: EBADR 53
 | 
						|
CONSTANT: EXFULL 54
 | 
						|
CONSTANT: ENOANO 55
 | 
						|
CONSTANT: EBADRQC 56
 | 
						|
CONSTANT: EBADSLT 57
 | 
						|
ALIAS: EDEADLOCK EDEADLK
 | 
						|
CONSTANT: EBFONT 59
 | 
						|
CONSTANT: ENOSTR 60
 | 
						|
CONSTANT: ENODATA 61
 | 
						|
CONSTANT: ETIME 62
 | 
						|
CONSTANT: ENOSR 63
 | 
						|
CONSTANT: ENONET 64
 | 
						|
CONSTANT: ENOPKG 65
 | 
						|
CONSTANT: EREMOTE 66
 | 
						|
CONSTANT: ENOLINK 67
 | 
						|
CONSTANT: EADV 68
 | 
						|
CONSTANT: ESRMNT 69
 | 
						|
CONSTANT: ECOMM 70
 | 
						|
CONSTANT: EPROTO 71
 | 
						|
CONSTANT: EMULTIHOP 72
 | 
						|
CONSTANT: EDOTDOT 73
 | 
						|
CONSTANT: EBADMSG 74
 | 
						|
CONSTANT: EOVERFLOW 75
 | 
						|
CONSTANT: ENOTUNIQ 76
 | 
						|
CONSTANT: EBADFD 77
 | 
						|
CONSTANT: EREMCHG 78
 | 
						|
CONSTANT: ELIBACC 79
 | 
						|
CONSTANT: ELIBBAD 80
 | 
						|
CONSTANT: ELIBSCN 81
 | 
						|
CONSTANT: ELIBMAX 82
 | 
						|
CONSTANT: ELIBEXEC 83
 | 
						|
CONSTANT: EILSEQ 84
 | 
						|
CONSTANT: ERESTART 85
 | 
						|
CONSTANT: ESTRPIPE 86
 | 
						|
CONSTANT: EUSERS 87
 | 
						|
CONSTANT: ENOTSOCK 88
 | 
						|
CONSTANT: EDESTADDRREQ 89
 | 
						|
CONSTANT: EMSGSIZE 90
 | 
						|
CONSTANT: EPROTOTYPE 91
 | 
						|
CONSTANT: ENOPROTOOPT 92
 | 
						|
CONSTANT: EPROTONOSUPPORT 93
 | 
						|
CONSTANT: ESOCKTNOSUPPORT 94
 | 
						|
CONSTANT: EOPNOTSUPP 95
 | 
						|
CONSTANT: EPFNOSUPPORT 96
 | 
						|
CONSTANT: EAFNOSUPPORT 97
 | 
						|
CONSTANT: EADDRINUSE 98
 | 
						|
CONSTANT: EADDRNOTAVAIL 99
 | 
						|
CONSTANT: ENETDOWN 100
 | 
						|
CONSTANT: ENETUNREACH 101
 | 
						|
CONSTANT: ENETRESET 102
 | 
						|
CONSTANT: ECONNABORTED 103
 | 
						|
CONSTANT: ECONNRESET 104
 | 
						|
CONSTANT: ENOBUFS 105
 | 
						|
CONSTANT: EISCONN 106
 | 
						|
CONSTANT: ENOTCONN 107
 | 
						|
CONSTANT: ESHUTDOWN 108
 | 
						|
CONSTANT: ETOOMANYREFS 109
 | 
						|
CONSTANT: ETIMEDOUT 110
 | 
						|
CONSTANT: ECONNREFUSED 111
 | 
						|
CONSTANT: EHOSTDOWN 112
 | 
						|
CONSTANT: EHOSTUNREACH 113
 | 
						|
CONSTANT: EALREADY 114
 | 
						|
CONSTANT: EINPROGRESS 115
 | 
						|
CONSTANT: ESTALE 116
 | 
						|
CONSTANT: EUCLEAN 117
 | 
						|
CONSTANT: ENOTNAM 118
 | 
						|
CONSTANT: ENAVAIL 119
 | 
						|
CONSTANT: EISNAM 120
 | 
						|
CONSTANT: EREMOTEIO 121
 | 
						|
CONSTANT: EDQUOT 122
 | 
						|
CONSTANT: ENOMEDIUM 123
 | 
						|
CONSTANT: EMEDIUMTYPE 124
 | 
						|
CONSTANT: ECANCELED 125
 | 
						|
CONSTANT: ENOKEY 126
 | 
						|
CONSTANT: EKEYEXPIRED 127
 | 
						|
CONSTANT: EKEYREVOKED 128
 | 
						|
CONSTANT: EKEYREJECTED 129
 | 
						|
CONSTANT: EOWNERDEAD 130
 | 
						|
CONSTANT: ENOTRECOVERABLE 131
 | 
						|
 | 
						|
CONSTANT: SIGHUP           1
 | 
						|
CONSTANT: SIGINT           2
 | 
						|
CONSTANT: SIGQUIT          3
 | 
						|
CONSTANT: SIGILL           4
 | 
						|
CONSTANT: SIGTRAP          5
 | 
						|
CONSTANT: SIGABRT          6
 | 
						|
CONSTANT: SIGIOT           6
 | 
						|
CONSTANT: SIGBUS           7
 | 
						|
CONSTANT: SIGFPE           8
 | 
						|
CONSTANT: SIGKILL          9
 | 
						|
CONSTANT: SIGUSR1         10
 | 
						|
CONSTANT: SIGSEGV         11
 | 
						|
CONSTANT: SIGUSR2         12
 | 
						|
CONSTANT: SIGPIPE         13
 | 
						|
CONSTANT: SIGALRM         14
 | 
						|
CONSTANT: SIGTERM         15
 | 
						|
CONSTANT: SIGSTKFLT       16
 | 
						|
CONSTANT: SIGCHLD         17
 | 
						|
ALIAS:    SIGCLD          SIGCHLD
 | 
						|
CONSTANT: SIGCONT         18
 | 
						|
CONSTANT: SIGSTOP         19
 | 
						|
CONSTANT: SIGTSTP         20
 | 
						|
CONSTANT: SIGTTIN         21
 | 
						|
CONSTANT: SIGTTOU         22
 | 
						|
CONSTANT: SIGURG          23
 | 
						|
CONSTANT: SIGXCPU         24
 | 
						|
CONSTANT: SIGXFSZ         25
 | 
						|
CONSTANT: SIGVTALRM       26
 | 
						|
CONSTANT: SIGPROF         27
 | 
						|
CONSTANT: SIGWINCH        28
 | 
						|
CONSTANT: SIGIO           29
 | 
						|
ALIAS:    SIGPOLL         SIGIO
 | 
						|
CONSTANT: SIGPWR          30
 | 
						|
CONSTANT: SIGSYS          31
 | 
						|
 | 
						|
FUNCTION: ssize_t sendfile ( int out_fd, int in_fd, off_t* offset, size_t count ) ;
 | 
						|
 | 
						|
 | 
						|
CONSTANT: __UT_LINESIZE 32
 | 
						|
CONSTANT: __UT_NAMESIZE 32
 | 
						|
CONSTANT: __UT_HOSTSIZE 256
 | 
						|
 | 
						|
STRUCT: exit_status
 | 
						|
    { e_termination short }
 | 
						|
    { e_exit short } ;
 | 
						|
 | 
						|
STRUCT: utmpx
 | 
						|
    { ut_type short }
 | 
						|
    { ut_pid pid_t }
 | 
						|
    { ut_line char[__UT_LINESIZE] }
 | 
						|
    { ut_id char[4] }
 | 
						|
    { ut_user char[__UT_NAMESIZE] }
 | 
						|
    { ut_host char[__UT_HOSTSIZE] }
 | 
						|
    { ut_exit exit_status }
 | 
						|
    { ut_session long }
 | 
						|
    { ut_tv timeval }
 | 
						|
    { ut_addr_v6 int[4] }
 | 
						|
    { __unused char[20] } ;
 |