/[gcl]/gcl/o/sockets.c
ViewVC logotype

Diff of /gcl/o/sockets.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by camm, Sat Mar 1 22:37:37 2003 UTC revision 1.9 by mjthomas, Mon Jul 7 04:53:57 2003 UTC
# Line 105  DEFUN_NEW("OPEN-NAMED-SOCKET",object,fSo Line 105  DEFUN_NEW("OPEN-NAMED-SOCKET",object,fSo
105  "Open a socket on PORT and return (cons fd portname) where file \  "Open a socket on PORT and return (cons fd portname) where file \
106  descriptor is a small fixnum which is the write file descriptor for \  descriptor is a small fixnum which is the write file descriptor for \
107  the socket.  If PORT is zero do automatic allocation of port")  the socket.  If PORT is zero do automatic allocation of port")
108  { int s, n, rc; struct  {
109  sockaddr_in addr;  #ifdef __MINGW32__
110        SOCKET s;
111    #else    
112        int s;
113    #endif    
114      int n, rc;
115      struct sockaddr_in addr;
116    
117  #ifdef __MINGW32__    #ifdef __MINGW32__  
118    if ( w32_socket_init() < 0 ) {    if ( w32_socket_init() < 0 ) {

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26