[cmucl/cmucl][rtoy-unix-core] Split the UNIX exports into linux and non-linux parts.

Raymond Toy rtoy at common-lisp.net
Sat May 9 01:35:59 UTC 2015


Raymond Toy pushed to branch rtoy-unix-core at cmucl / cmucl


Commits:
d76358f8 by Raymond Toy at 2015-05-08T18:35:30Z
Split the UNIX exports into linux and non-linux parts.

For the non-linux part, add all of the other symbols that are
currently exported from the UNIX package.

- - - - -


1 changed file:

- src/code/exports.lisp


Changes:

=====================================
src/code/exports.lisp
=====================================
--- a/src/code/exports.lisp
+++ b/src/code/exports.lisp
@@ -196,6 +196,469 @@
 	   "NEGATE-BIGNUM" "SUBTRACT-BIGNUM"))
 
 (defpackage "UNIX"
+  #-linux
+  (:export "UNIX-CURRENT-DIRECTORY"
+	   "UNIX-OPEN"
+	   "UNIX-READ"
+	   "UNIX-WRITE"
+	   "UNIX-GETPAGESIZE"
+	   "UNIX-ERRNO"
+	   "UNIX-MAYBE-PREPEND-CURRENT-DIRECTORY"
+	   "UNIX-RESOLVE-LINKS"
+	   "UNIX-SIMPLIFY-PATHNAME"
+	   "UNIX-CLOSE"
+	   "UNIX-STAT"
+	   "UNIX-LSTAT"
+	   "UNIX-FSTAT"
+	   "UNIX-GETHOSTNAME"
+	   "UNIX-LSEEK"
+	   "UNIX-EXIT"
+	   "UNIX-CHDIR"
+	   "UNIX-ACCESS"
+	   "UNIX-DUP"
+	   "UNIX-CHMOD"
+	   "UNIX-READLINK"
+	   "UNIX-RENAME"
+	   "UNIX-SELECT"
+	   "UNIX-FAST-GETRUSAGE"
+	   "UNIX-GETRUSAGE"
+	   "UNIX-GETTIMEOFDAY"
+	   "UNIX-ISATTY"
+	   "UNIX-MKDIR"
+	   "UNIX-RMDIR"
+	   "UNIX-UNLINK"
+	   "TIMEZONE"
+	   "TIMEVAL"
+	   "SIZE-T"
+	   "OFF-T"
+	   "INO-T"
+	   "DEV-T"
+	   "TIME-T"
+	   "TIME-T"
+	   "USER-INFO-NAME"
+	   "INT64-T"
+	   "MODE-T"
+	   "UNIX-FAST-SELECT"
+	   "UNIX-PIPE"
+	   "UNIX-GETPID"
+	   "UNIX-GETHOSTID"
+	   "UNIX-UID"
+	   "UNIX-GID"
+	   "GET-UNIX-ERROR-MSG"
+	   "TCHARS"
+	   "WINSIZE"
+	   "LTCHARS"
+	   "TIMEVAL"
+	   "CLOSE-DIR"
+	   "OPEN-DIR"
+	   "READ-DIR"
+	   "D-NAMLEN"
+
+	   ;; filesys.lisp
+	   "UNIX-GETPWUID"
+	   
+	   ;; multi-proc.lisp
+	   "UNIX-SETITIMER"
+
+	   ;; run-program.lisp
+	   "SGTTYB"
+	   "UNIX-TTYNAME"
+	   "UNIX-IOCTL"
+	   "UNIX-OPENPTY"
+
+	   ;; alien-callback.lisp
+	   "UNIX-MPROTECT"
+
+	   ;; internet.lisp
+	   "UNIX-SOCKET"
+	   "UNIX-CONNECT"
+	   "UNIX-BIND"
+	   "UNIX-LISTEN"
+	   "UNIX-ACCEPT"
+	   "UNIX-GETSOCKOPT"
+	   "UNIX-SETSOCKOPT"
+	   "UNIX-GETPEERNAME"
+	   "UNIX-GETSOCKNAME"
+	   "UNIX-RECV"
+	   "UNIX-SEND"
+	   "UNIX-RECVFROM"
+	   "UNIX-SENDTO"
+	   "UNIX-SHUTDOWN"
+	   "UNIX-FCNTL"
+	   
+	   ;; serve-event.lisp
+	   "FD-SETSIZE"
+	   "FD-ISSET"
+	   "FD-CLR"
+
+	   ;; Simple streams
+	   "PROT_READ"
+	   "UNIX-MMAP"
+	   "UNIX-MUNMAP"
+	   "UNIX-MSYNC"
+
+	   ;; Motif
+	   "UNIX-GETUIO"
+
+	   ;; Hemlock
+	   "TERMIOS"
+	   "UNIX-TCGETATTR"
+	   "UNIX-TCSETATTR"
+	   "UNIX-CFGETOSPEED"
+	   "UNIX-FCHMOD"
+	   "UNIX-CREAT"
+	   "UNIX-UTIMES"
+
+	   ;; Tests
+	   "UNIX-SYMLINK"
+
+	   ;; Other symbols from structures, etc.
+	   "C-CC"
+	   "C-CFLAG"
+	   "C-IFLAG"
+	   "C-ISPEED"
+	   "C-LFLAG"
+	   "C-OFLAG"
+	   "C-OSPEED"
+	   "CHECK"
+	   "D-NAME"
+	   "D-RECLEN"
+	   "DIRECT"
+	   "E2BIG"
+	   "EACCES"
+	   "EADDRINUSE"
+	   "EADDRNOTAVAIL"
+	   "EAFNOSUPPORT"
+	   "EAGAIN"
+	   "EALREADY"
+	   "EBADF"
+	   "EBUSY"
+	   "ECHILD"
+	   "ECONNABORTED"
+	   "ECONNREFUSED"
+	   "ECONNRESET"
+	   "EDEADLK"
+	   "EDESTADDRREQ"
+	   "EDOM"
+	   "EDQUOT"
+	   "EEXIST"
+	   "EFAULT"
+	   "EFBIG"
+	   "EHOSTDOWN"
+	   "EHOSTUNREACH"
+	   "EINPROGRESS"
+	   "EINTR"
+	   "EINVAL"
+	   "EIO"
+	   "EISCONN"
+	   "EISDIR"
+	   "ELOCAL"
+	   "ELOOP"
+	   "EMFILE"
+	   "EMLINK"
+	   "EMSGSIZE"
+	   "ENAMETOOLONG"
+	   "ENETDOWN"
+	   "ENETRESET"
+	   "ENETUNREACH"
+	   "ENFILE"
+	   "ENOBUFS"
+	   "ENODEV"
+	   "ENOENT"
+	   "ENOEXEC"
+	   "ENOMEM"
+	   "ENOPROTOOPT"
+	   "ENOSPC"
+	   "ENOTBLK"
+	   "ENOTCONN"
+	   "ENOTDIR"
+	   "ENOTEMPTY"
+	   "ENOTSOCK"
+	   "ENOTTY"
+	   "ENXIO"
+	   "EOPNOTSUPP"
+	   "EPERM"
+	   "EPFNOSUPPORT"
+	   "EPIPE"
+	   "EPROCLIM"
+	   "EPROTONOSUPPORT"
+	   "EPROTOTYPE"
+	   "ERANGE"
+	   "EREMOTE"
+	   "EROFS"
+	   "ESHUTDOWN"
+	   "ESOCKTNOSUPPORT"
+	   "ESPIPE"
+	   "ESRCH"
+	   "ESUCCESS"
+	   "ETIMEDOUT"
+	   "ETOOMANYREFS"
+	   "ETXTBSY"
+	   "EUSERS"
+	   "EVICEERR"
+	   "EVICEOP"
+	   "EWOULDBLOCK"
+	   "EXDEV"
+	   "EXECGRP"
+	   "EXECOTH"
+	   "EXECOWN"
+	   "F-DUPFD"
+	   "F-GETFD"
+	   "F-GETFL"
+	   "F-GETOWN"
+	   "F-SETFD"
+	   "F-SETFL"
+	   "F-SETOWN"
+	   "FAPPEND"
+	   "FASYNC"
+	   "FCREAT"
+	   "FD-SET"
+	   "FD-ZERO"
+	   "FEXCL"
+	   "FIONREAD"
+	   "FNDELAY"
+	   "FTRUNC"
+	   "F_OK"
+	   "GID-T"
+	   "IT-INTERVAL"
+	   "IT-VALUE"
+	   "ITIMERVAL"
+	   "L_INCR"
+	   "L_SET"
+	   "L_XTND"
+	   "MAP_ANONYMOUS"
+	   "MAP_FIXED"
+	   "MAP_PRIVATE"
+	   "MAP_SHARED"
+	   "MS_ASYNC"
+	   "MS_INVALIDATE"
+	   "MS_SYNC"
+	   "O_APPEND"
+	   "O_CREAT"
+	   "O_EXCL"
+	   "O_NDELAY"
+	   "O_NONBLOCK"
+	   "O_RDONLY"
+	   "O_RDWR"
+	   "O_TRUNC"
+	   "O_WRONLY"
+	   "PROT_EXEC"
+	   "PROT_NONE"
+	   "PROT_WRITE"
+	   "READGRP"
+	   "READOTH"
+	   "READOWN"
+	   "RU-IDRSS"
+	   "RU-INBLOCK"
+	   "RU-ISRSS"
+	   "RU-IXRSS"
+	   "RU-MAJFLT"
+	   "RU-MAXRSS"
+	   "RU-MINFLT"
+	   "RU-MSGRCV"
+	   "RU-MSGSND"
+	   "RU-NIVCSW"
+	   "RU-NSIGNALS"
+	   "RU-NSWAP"
+	   "RU-NVCSW"
+	   "RU-OUBLOCK"
+	   "RU-STIME"
+	   "RU-UTIME"
+	   "RUSAGE_CHILDREN"
+	   "RUSAGE_SELF"
+	   "R_OK"
+	   "S-IEXEC"
+	   "S-IFBLK"
+	   "S-IFCHR"
+	   "S-IFDIR"
+	   "S-IFLNK"
+	   "S-IFMT"
+	   "S-IFREG"
+	   "S-IFSOCK"
+	   "S-IREAD"
+	   "S-ISGID"
+	   "S-ISUID"
+	   "S-ISVTX"
+	   "S-IWRITE"
+	   "SAVETEXT"
+	   "SETGIDEXEC"
+	   "SETUIDEXEC"
+	   "SG-ERASE"
+	   "SG-FLAGS"
+	   "SG-ISPEED"
+	   "SG-KILL"
+	   "SG-OSPEED"
+	   "SIGABRT"
+	   "SIGALRM"
+	   "SIGBUS"
+	   "SIGCHLD"
+	   "SIGCONT"
+	   "SIGCONTEXT"
+	   "SIGEMT"
+	   "SIGFPE"
+	   "SIGHUP"
+	   "SIGILL"
+	   "SIGINT"
+	   "SIGIO"
+	   "SIGIOT"
+	   "SIGKILL"
+	   "SIGMASK"
+	   "SIGPIPE"
+	   "SIGPROF"
+	   "SIGQUIT"
+	   "SIGSEGV"
+	   "SIGSTOP"
+	   "SIGSYS"
+	   "SIGTERM"
+	   "SIGTRAP"
+	   "SIGTSTP"
+	   "SIGTTIN"
+	   "SIGTTOU"
+	   "SIGURG"
+	   "SIGUSR1"
+	   "SIGUSR2"
+	   "SIGVTALRM"
+	   "SIGWINCH"
+	   "SIGXCPU"
+	   "SIGXFSZ"
+	   "ST-ATIME"
+	   "ST-BLKSIZE"
+	   "ST-BLOCKS"
+	   "ST-CTIME"
+	   "ST-DEV"
+	   "ST-GID"
+	   "ST-MODE"
+	   "ST-MTIME"
+	   "ST-NLINK"
+	   "ST-RDEV"
+	   "ST-SIZE"
+	   "ST-UID"
+	   "STAT"
+	   "T-BRKC"
+	   "T-DSUSPC"
+	   "T-EOFC"
+	   "T-FLUSHC"
+	   "T-INTRC"
+	   "T-LNEXTC"
+	   "T-QUITC"
+	   "T-RPRNTC"
+	   "T-STARTC"
+	   "T-STOPC"
+	   "T-SUSPC"
+	   "T-WERASC"
+	   "TCIFLUSH"
+	   "TCIOFLUSH"
+	   "TCOFLUSH"
+	   "TCSADRAIN"
+	   "TCSAFLUSH"
+	   "TCSANOW"
+	   "TERMINAL-SPEEDS"
+	   "TIOCFLUSH"
+	   "TIOCGETC"
+	   "TIOCGETP"
+	   "TIOCGLTC"
+	   "TIOCGPGRP"
+	   "TIOCGWINSZ"
+	   "TIOCNOTTY"
+	   "TIOCSETC"
+	   "TIOCSETP"
+	   "TIOCSLTC"
+	   "TIOCSPGRP"
+	   "TIOCSWINSZ"
+	   "TTY-BRKINT"
+	   "TTY-CBREAK"
+	   "TTY-CLOCAL"
+	   "TTY-CREAD"
+	   "TTY-CRMOD"
+	   "TTY-CS5"
+	   "TTY-CS6"
+	   "TTY-CS7"
+	   "TTY-CS8"
+	   "TTY-CSIZE"
+	   "TTY-CSTOPB"
+	   "TTY-ECHO"
+	   "TTY-ECHOCTL"
+	   "TTY-ECHOE"
+	   "TTY-ECHOK"
+	   "TTY-ECHOKE"
+	   "TTY-ECHONL"
+	   "TTY-ECHOPRT"
+	   "TTY-FLUSHO"
+	   "TTY-HUPCL"
+	   "TTY-ICANON"
+	   "TTY-ICRNL"
+	   "TTY-IEXTEN"
+	   "TTY-IGNBRK"
+	   "TTY-IGNCR"
+	   "TTY-IGNPAR"
+	   "TTY-IMAXBEL"
+	   "TTY-INLCR"
+	   "TTY-INPCK"
+	   "TTY-ISIG"
+	   "TTY-ISTRIP"
+	   "TTY-IXANY"
+	   "TTY-IXOFF"
+	   "TTY-IXON"
+	   "TTY-LCASE"
+	   "TTY-NOFLSH"
+	   "TTY-ONLCR"
+	   "TTY-OPOST"
+	   "TTY-PARENB"
+	   "TTY-PARMRK"
+	   "TTY-PARODD"
+	   "TTY-PENDIN"
+	   "TTY-RAW"
+	   "TTY-TANDEM"
+	   "TTY-TOSTOP"
+	   "TV-SEC"
+	   "TV-USEC"
+	   "TZ-DSTTIME"
+	   "TZ-MINUTESWEST"
+	   "UID-T"
+	   "UNIX-FD"
+	   "UNIX-FILE-KIND"
+	   "UNIX-FILE-MODE"
+	   "UNIX-GETUID"
+	   "UNIX-KILL"
+	   "UNIX-KILLPG"
+	   "UNIX-PATHNAME"
+	   "UNIX-SIGBLOCK"
+	   "UNIX-SIGNAL-DESCRIPTION"
+	   "UNIX-SIGNAL-NAME"
+	   "UNIX-SIGNAL-NUMBER"
+	   "UNIX-SIGPAUSE"
+	   "UNIX-SIGSETMASK"
+	   "USER-INFO"
+	   "USER-INFO-DIR"
+	   "USER-INFO-GECOS"
+	   "USER-INFO-GID"
+	   "USER-INFO-PASSWORD"
+	   "USER-INFO-SHELL"
+	   "USER-INFO-UID"
+	   "VDSUSP"
+	   "VEOF"
+	   "VEOL"
+	   "VEOL2"
+	   "VERASE"
+	   "VINTR"
+	   "VKILL"
+	   "VMIN"
+	   "VQUIT"
+	   "VSTART"
+	   "VSTOP"
+	   "VSUSP"
+	   "VTIME"
+	   "WRITEGRP"
+	   "WRITEOTH"
+	   "WRITEOWN"
+	   "WS-COL"
+	   "WS-ROW"
+	   "WS-XPIXEL"
+	   "WS-YPIXEL"
+	   "W_OK"
+	   "X_OK"
+	   )
+  #-linux
   (:export "UNIX-CURRENT-DIRECTORY"
 	   "UNIX-OPEN"
 	   "UNIX-READ"
@@ -311,6 +774,7 @@
 	   ;; Tests
 	   "UNIX-SYMLINK"
 	   ))
+
   
 (defpackage "FORMAT")
 



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/d76358f84169481e9490f0f1d664e5ac1ce8238c
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20150509/23f25f7a/attachment.html>


More information about the cmucl-cvs mailing list