[cmucl/cmucl][rtoy-unix-core] Clean up UNIX exports, putting common items together.

[Raymond Toy]

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


Commits:
4de937f5 by Raymond Toy at 2015-05-09T14:13:10Z
Clean up UNIX exports, putting common items together.

- - - - -


1 changed file:

- src/code/exports.lisp


Changes:

=====================================
src/code/exports.lisp
=====================================
--- a/src/code/exports.lisp
+++ b/src/code/exports.lisp
@@ -196,7 +196,6 @@
 	   "NEGATE-BIGNUM" "SUBTRACT-BIGNUM"))
 
 (defpackage "UNIX"
-  #-linux
   (:export "UNIX-CURRENT-DIRECTORY"
 	   "UNIX-OPEN"
 	   "UNIX-READ"
@@ -225,7 +224,6 @@
 	   "UNIX-GETTIMEOFDAY"
 	   "UNIX-ISATTY"
 	   "UNIX-MKDIR"
-	   "UNIX-RMDIR"
 	   "UNIX-UNLINK"
 	   "TIMEZONE"
 	   "TIMEVAL"
@@ -234,7 +232,6 @@
 	   "INO-T"
 	   "DEV-T"
 	   "TIME-T"
-	   "TIME-T"
 	   "USER-INFO-NAME"
 	   "INT64-T"
 	   "MODE-T"
@@ -245,23 +242,18 @@
 	   "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"
@@ -285,16 +277,14 @@
 	   "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
@@ -304,6 +294,22 @@
 	   "TERMIOS"
 	   "UNIX-TCGETATTR"
 	   "UNIX-TCSETATTR"
+	   )
+  #-linux
+  (:export "UNIX-RMDIR"
+	   "TCHARS"
+	   "LTCHARS"
+	   "D-NAMLEN"
+
+	   
+	   ;; run-program.lisp
+	   "SGTTYB"
+
+	   ;; Simple streams
+	   "PROT_READ"
+	   "UNIX-MUNMAP"
+
+	   ;; Hemlock
 	   "UNIX-CFGETOSPEED"
 	   "UNIX-FCHMOD"
 	   "UNIX-CREAT"
@@ -659,113 +665,19 @@
 	   "X_OK"
 	   )
   #+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"
+  (:export "UNIX-RMDIR"
 	   "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"



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