picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

x86-64.sunOs.defs.l (2659B)


      1 # 17sep10
      2 # zonick <nikolai@zobnin.ru>
      3 # (c) Software Lab. Alexander Burger
      4 
      5 # errno
      6 (equ ENOENT 2)        # No such file or directory
      7 (equ EINTR 4)         # Interrupted system call
      8 (equ EBADF 9)         # Bad file number
      9 (equ EAGAIN 11)       # Try again
     10 (equ EACCES 13)       # Permission denied
     11 (equ EPIPE 32)        # Broken pipe
     12 (equ ECONNRESET 131)  # Connection reset by peer
     13 
     14 # open/fcntl
     15 (equ O_RDONLY 0)
     16 (equ O_WRONLY 1)
     17 (equ O_RDWR 2)
     18 (equ O_CREAT 256)
     19 (equ O_EXCL 1024)
     20 (equ O_TRUNC 512)
     21 (equ O_APPEND 8)
     22 (equ F_GETFD 1)
     23 (equ F_SETFD 2)
     24 (equ FD_CLOEXEC 1)
     25 
     26 # stdio
     27 (equ BUFSIZ 1024)
     28 (equ PIPE_BUF 5120)
     29 
     30 (equ stdin  "$__iob")
     31 (equ stdout "$__iob+128")
     32 (equ stderr "$__iob+256")
     33 
     34 (equ MAXPATHLEN 1024)
     35 
     36 # dlfcn
     37 (equ RTLD_LAZY 1)
     38 (equ RTLD_GLOBAL 256)
     39 
     40 # fcntl
     41 (equ FLOCK 64)    # File lock structure
     42 (equ L_TYPE 0)    # 2
     43 (equ L_WHENCE 2)  # 2
     44 (equ L_START 8)
     45 (equ L_LEN 16)
     46 (equ L_PID 28)
     47 (equ SEEK_SET 0)
     48 (equ SEEK_CUR 1)
     49 (equ F_RDLCK 1)
     50 (equ F_WRLCK 2)
     51 (equ F_UNLCK 3)
     52 (equ F_GETFL 3)
     53 (equ F_SETFL 4)
     54 (equ F_GETLK 14)
     55 (equ F_SETLK 6)
     56 (equ F_SETLKW 7)
     57 (equ F_SETOWN 24)
     58 (equ O_NONBLOCK 128)
     59 (equ O_ASYNC 0)
     60 
     61 # stat
     62 (equ STAT 128)    # File status structure
     63 (equ ST_MODE 16)  # 4
     64 (equ ST_SIZE 40)
     65 (equ ST_MTIME 64)
     66 (equ S_IFMT  (hex "F000"))
     67 (equ S_IFDIR (hex "4000"))
     68 
     69 # times
     70 (equ TMS 32)  # 'times' structure
     71 (equ TMS_UTIME 0)
     72 (equ TMS_STIME 8)
     73 
     74 # termios
     75 (equ TERMIOS 36)  # Terminal I/O structure
     76 (equ C_IFLAG 0)
     77 (equ C_LFLAG 12)
     78 (equ C_CC 16)
     79 (equ ISIG 1)
     80 (equ VMIN 4)
     81 (equ VTIME 5)
     82 (equ TCSADRAIN 21519)
     83 
     84 # signal
     85 (equ SIGACTION 32)  # Sigaction structure
     86 (equ SIGSET_T 16)
     87 (equ SA_HANDLER 8)
     88 (equ SA_MASK 16)
     89 (equ SA_FLAGS 0)
     90 
     91 (equ SIG_DFL 0)
     92 (equ SIG_IGN 1)
     93 (equ SIG_UNBLOCK 2)
     94 
     95 (equ SIGHUP 1)  # Signals
     96 (equ SIGINT 2)
     97 (equ SIGUSR1 16)
     98 (equ SIGUSR2 17)
     99 (equ SIGPIPE 13)
    100 (equ SIGALRM 14)
    101 (equ SIGTERM 15)
    102 (equ SIGCHLD 18)
    103 (equ SIGCONT 25)
    104 (equ SIGSTOP 23)
    105 (equ SIGTSTP 24)
    106 (equ SIGTTIN 26)
    107 (equ SIGTTOU 27)
    108 (equ SIGIO 22)
    109 (equ SIGNALS 28)  # Highest used signal number plus 1
    110 
    111 # wait
    112 (equ WNOHANG 64)
    113 (equ WUNTRACED 4)
    114 
    115 # select
    116 (equ FD_SET 8192)  # 1024 bit
    117 
    118 # time
    119 (equ TM_SEC 0)
    120 (equ TM_MIN 4)
    121 (equ TM_HOUR 8)
    122 (equ TM_MDAY 12)
    123 (equ TM_MON 16)
    124 (equ TM_YEAR 20)
    125 
    126 # dir
    127 (equ D_NAME 18)
    128 
    129 # Sockets
    130 (equ SOCK_STREAM 2)
    131 (equ SOCK_DGRAM 1)
    132 (equ AF_UNSPEC 0)
    133 (equ AF_INET6 26)
    134 (equ SOL_SOCKET 65535)
    135 (equ SO_REUSEADDR 4)
    136 (equ IPPROTO_IPV6 41)
    137 (equ IPV6_V6ONLY 39)
    138 (equ INET6_ADDRSTRLEN 46)
    139 
    140 (equ NI_MAXHOST 1025)
    141 (equ NI_NAMEREQD 4)
    142 
    143 (equ SOCKADDR_IN6 32)
    144 (equ SIN6_FAMILY 0)
    145 (equ SIN6_PORT 2)
    146 (equ SIN6_ADDR 8)
    147 
    148 (equ ADDRINFO 48)
    149 (equ AI_FAMILY 4)
    150 (equ AI_SOCKTYPE 8)
    151 (equ AI_ADDRLEN 16)
    152 (equ AI_ADDR 32)
    153 (equ AI_NEXT 40)
    154 
    155 # vi:et:ts=3:sw=3