Skip to content
Snippets Groups Projects
Commit cdc21869 authored by rtoy's avatar rtoy
Browse files

Temporarily disable recvfrom and friends on Darwin.

parent c126db45
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.44 2005/01/27 15:23:33 rtoy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.45 2005/02/06 19:26:13 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -688,6 +688,8 @@ struct in_addr {
fd
(unix:get-unix-error-msg)))))
#-darwin
(progn
(defun inet-recvfrom (fd buffer size &key (flags 0))
"A packaging of the unix recvfrom call. Returns three values:
bytecount, source address as integer, and source port. bytecount
......@@ -711,6 +713,7 @@ can of course be negative, to indicate faults."
flags
(alien-sap sockaddr)
(alien-size inet-sockaddr :bytes))))
(defconstant shut-rd 0)
(defconstant shut-wr 1)
(defconstant shut-rdwr 2)
......@@ -721,3 +724,4 @@ can of course be negative, to indicate faults."
:format-control "Error on shutdown of socket: ~A"
:format-arguments (list (unix:get-unix-error-msg))
:errno (unix:unix-errno))))
)
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.100 2005/01/27 15:23:33 rtoy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.101 2005/02/06 19:26:13 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -2969,6 +2969,8 @@
;; Datagram support
#-darwin
(progn
(def-alien-routine ("recvfrom" unix-recvfrom) int
(fd int)
(buffer c-string)
......@@ -2988,6 +2990,7 @@
(def-alien-routine ("shutdown" unix-shutdown) int
(socket int)
(level int))
)
;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment