1.0.35.12: Minor cleanup in %TARGET-DEFSTRUCT.
[sbcl.git] / contrib / sb-bsd-sockets / win32-sockets.lisp
1 ;;;; win32 socket operations
2 ;;;; these have all been done by hand since I can't seem
3 ;;;; to get my head around the sb-grovel stuff
4
5 ;;;; Winsock requires us to convert HANDLES to/from
6 ;;;; file descriptors, so I've added an additional
7 ;;;; package for the actual winsock alien defs, and then
8 ;;;; in the sockint package, we implement wrappers that
9 ;;;; handle the conversion.
10
11 ;;; these are all of the basic structure alien defs
12 (in-package :sockint)
13
14 ;;;; we are now going back to the normal sockint
15 ;;;; package where we will redefine all of the above
16 ;;;; functions, converting between HANDLES and fds
17
18 (defun socket (af type proto)
19   (let* ((handle (wsa-socket af type proto nil 0 0))
20          (fd (handle->fd handle 0)))
21     fd))
22
23 (defun bind (fd &rest options)
24   (let ((handle (fd->handle fd)))
25     (apply #'win32-bind handle options)))
26
27 (defun getsockname (fd &rest options)
28   (apply #'win32-getsockname (fd->handle fd) options))
29
30 (defun listen (fd &rest options)
31   (apply #'win32-listen (fd->handle fd) options))
32
33 (defun accept (fd &rest options)
34   (handle->fd
35    (apply #'win32-accept (fd->handle fd) options)
36    0))
37
38 (defun recv (fd &rest options)
39   (apply #'win32-recv (fd->handle fd) options))
40
41 (defun recvfrom (fd &rest options)
42   (apply #'win32-recvfrom (fd->handle fd) options))
43
44 (defun send (fd &rest options)
45   (apply #'win32-send (fd->handle fd) options))
46
47 (defun sendto (fd &rest options)
48   (apply #'win32-sendto (fd->handle fd) options))
49
50 (defun close (fd &rest options)
51   (apply #'win32-close (fd->handle fd) options))
52
53 (defun connect (fd &rest options)
54   (apply #'win32-connect (fd->handle fd) options))
55
56 (defun getpeername (fd &rest options)
57   (apply #'win32-getpeername (fd->handle fd) options))
58
59 (defun ioctl (fd &rest options)
60   (apply #'win32-ioctl (fd->handle fd) options))
61
62 (defun setsockopt (fd &rest options)
63   (apply #'win32-setsockopt (fd->handle fd) options))
64
65 (defun getsockopt (fd &rest options)
66   (apply #'win32-getsockopt (fd->handle fd) options))
67
68 (defun make-wsa-version (major minor)
69   (dpb minor (byte 8 8) major))
70
71 (defvar *wsa-startup-call* nil)
72
73 (defun call-wsa-startup ()
74   (setf *wsa-startup-call* (wsa-startup (make-wsa-version 2 2))))
75
76 ;;; Startup!
77 (call-wsa-startup)
78
79 ;;; Ensure startup for saved cores as well.
80 (push 'call-wsa-startup sb-ext:*init-hooks*)
81
82 ;; not implemented on win32
83 (defconstant af-local 0)
84 (defconstant msg-dontwait 0)
85 (defconstant msg-trunc 0)
86 (defconstant msg-eor 0)
87 (defconstant msg-nosignal 0)
88 (defconstant msg-waitall 0)
89 (defconstant msg-eor 0)
90 (defconstant size-of-sockaddr-un 0)
91 (defun (setf sockaddr-un-family) (addr family) ())
92 (defun (setf sockaddr-un-path) (addr family) ())
93 (defun sockaddr-un-path (addr) ())
94 (defun free-sockaddr-un (addr) ())
95 (defun allocate-sockaddr-un () ())
96
97