234 lines
		
	
	
		
			4.8 KiB
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			234 lines
		
	
	
		
			4.8 KiB
		
	
	
	
		
			Factor
		
	
	
! Copyright (C) 2005, 2008 Slava Pestov.
 | 
						|
! See http://factorcode.org/license.txt for BSD license.
 | 
						|
USING: alien.syntax ;
 | 
						|
IN: unix
 | 
						|
 | 
						|
! Linux.
 | 
						|
 | 
						|
CONSTANT: MAXPATHLEN 1024
 | 
						|
 | 
						|
CONSTANT: O_RDONLY   HEX: 0000
 | 
						|
CONSTANT: O_WRONLY   HEX: 0001
 | 
						|
CONSTANT: O_RDWR     HEX: 0002
 | 
						|
CONSTANT: O_CREAT    HEX: 0040
 | 
						|
CONSTANT: O_EXCL     HEX: 0080
 | 
						|
CONSTANT: O_NOCTTY   HEX: 0100
 | 
						|
CONSTANT: O_TRUNC    HEX: 0200
 | 
						|
CONSTANT: O_APPEND   HEX: 0400
 | 
						|
CONSTANT: O_NONBLOCK HEX: 0800
 | 
						|
 | 
						|
ALIAS: O_NDELAY O_NONBLOCK
 | 
						|
 | 
						|
CONSTANT: SOL_SOCKET 1
 | 
						|
 | 
						|
CONSTANT: FD_SETSIZE 1024
 | 
						|
 | 
						|
CONSTANT: SO_REUSEADDR 2
 | 
						|
CONSTANT: SO_OOBINLINE 10
 | 
						|
CONSTANT: SO_SNDTIMEO HEX: 15
 | 
						|
CONSTANT: SO_RCVTIMEO HEX: 14
 | 
						|
 | 
						|
CONSTANT: F_SETFD 2
 | 
						|
CONSTANT: FD_CLOEXEC 1
 | 
						|
 | 
						|
CONSTANT: F_SETFL 4
 | 
						|
 | 
						|
C-STRUCT: addrinfo
 | 
						|
    { "int" "flags" }
 | 
						|
    { "int" "family" }
 | 
						|
    { "int" "socktype" }
 | 
						|
    { "int" "protocol" }
 | 
						|
    { "socklen_t" "addrlen" }
 | 
						|
    { "void*" "addr" }
 | 
						|
    { "char*" "canonname" }
 | 
						|
    { "addrinfo*" "next" } ;
 | 
						|
 | 
						|
C-STRUCT: sockaddr-in
 | 
						|
    { "ushort" "family" }
 | 
						|
    { "ushort" "port" }
 | 
						|
    { "in_addr_t" "addr" }
 | 
						|
    { "longlong" "unused" } ;
 | 
						|
 | 
						|
C-STRUCT: sockaddr-in6
 | 
						|
    { "ushort" "family" }
 | 
						|
    { "ushort" "port" }
 | 
						|
    { "uint" "flowinfo" }
 | 
						|
    { { "uchar" 16 } "addr" }
 | 
						|
    { "uint" "scopeid" } ;
 | 
						|
 | 
						|
CONSTANT: max-un-path 108
 | 
						|
 | 
						|
C-STRUCT: sockaddr-un
 | 
						|
    { "ushort" "family" }
 | 
						|
    { { "char" max-un-path } "path" } ;
 | 
						|
 | 
						|
CONSTANT: SOCK_STREAM 1
 | 
						|
CONSTANT: SOCK_DGRAM 2
 | 
						|
 | 
						|
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
 | 
						|
 | 
						|
C-STRUCT: passwd
 | 
						|
    { "char*"  "pw_name" }
 | 
						|
    { "char*"  "pw_passwd" }
 | 
						|
    { "uid_t"  "pw_uid" }
 | 
						|
    { "gid_t"  "pw_gid" }
 | 
						|
    { "char*"  "pw_gecos" }
 | 
						|
    { "char*"  "pw_dir" }
 | 
						|
    { "char*"  "pw_shell" } ;
 | 
						|
 | 
						|
C-STRUCT: dirent
 | 
						|
    { "__ino_t" "d_ino" }
 | 
						|
    { "__off_t" "d_off" }
 | 
						|
    { "ushort" "d_reclen" }
 | 
						|
    { "uchar" "d_type" }
 | 
						|
    { { "char" 256 } "d_name" } ;
 | 
						|
 | 
						|
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
 |