/[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.12 by camm, Thu Nov 6 16:08:11 2003 UTC revision 1.13 by camm, Sat Jul 23 08:55:04 2005 UTC
# Line 213  DEFUN_NEW("ACCEPT-SOCKET-CONNECTION",obj Line 213  DEFUN_NEW("ACCEPT-SOCKET-CONNECTION",obj
213  and returns (list* named_socket fd name1) when one is established")  and returns (list* named_socket fd name1) when one is established")
214    
215  {  {
216    int n, fd;    unsigned n;
217      int fd;
218    struct sockaddr_in addr;    struct sockaddr_in addr;
219    object x;    object x;
220    n = sizeof addr;    n = sizeof addr;
# Line 320  DEFUN_NEW("CONNECTION-STATE-FD",object,f Line 321  DEFUN_NEW("CONNECTION-STATE-FD",object,f
321            
322  DEFUN_NEW("OUR-WRITE",object,fSour_write,SI,3,3,NONE,OO,OI,OO,OO,(object sfd,object buffer,fixnum nbytes),"")  DEFUN_NEW("OUR-WRITE",object,fSour_write,SI,3,3,NONE,OO,OI,OO,OO,(object sfd,object buffer,fixnum nbytes),"")
323    
324  { return make_fixnum(write1(OBJ_TO_CONNECTION_STATE(sfd),buffer->ust.ust_self,nbytes));  { return make_fixnum(write1(OBJ_TO_CONNECTION_STATE(sfd),buffer->st.st_self,nbytes));
325  }  }
326    
327  DEFUN_NEW("OUR-READ-WITH-OFFSET",object,fSour_read_with_offset,SI,5,5,NONE,  DEFUN_NEW("OUR-READ-WITH-OFFSET",object,fSour_read_with_offset,SI,5,5,NONE,

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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