[Win32forth-cvs] win32forth/apps/Internet/WebServer sockserv.f, 1.1, 1.2

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Internet/WebServer
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20165

Modified Files:
	sockserv.f 
Log Message:
Jos: Minor change to retrieve the IP adres of the sender of a packet.

Index: sockserv.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Internet/WebServer/sockserv.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** sockserv.f	13 Jun 2007 13:00:44 -0000	1.1
--- sockserv.f	24 Sep 2007 15:47:53 -0000	1.2
***************
*** 64,68 ****
  
  \ *S Global Socket Data
! \ ** When a socket event is being processed, these words contain are to 
  \ ** be used in obtaining specific information about the request.
  
--- 64,68 ----
  
  \ *S Global Socket Data
! \ ** When a socket event is being processed, these words contain are to
  \ ** be used in obtaining specific information about the request.
  
***************
*** 111,126 ****
    dup @ sock-close drop 0 swap ! ;
  
! : serv-accept ( server -- ) 
    begin dup @ sock-accept? while
!     dup @ sock-accept drop ?dup if 
        over 3 cells + @ allocate throw
        to sservdata 
        sservdata cell+ ! 
!       dup 4 cells + 2 cells + 
        sservdata 2 cells + 4 cells cmove
        dup cell+ lrest sservdata swap cons drop 
        dup cell+ sservdata cons drop 
        >r doOnConnect r> 
!     then     
    repeat drop ;
    
--- 111,131 ----
    dup @ sock-close drop 0 swap ! ;
  
! \ *N FromIp
! \ **  A user variable to save the IP-adres of the sender
! 
! 0 user FromIp
! 
! : serv-accept ( server -- )
    begin dup @ sock-accept? while
!       dup @ sock-accept FromIp ! ?dup if
        over 3 cells + @ allocate throw
        to sservdata 
        sservdata cell+ ! 
!       dup 4 cells + 2 cells +
        sservdata 2 cells + 4 cells cmove
        dup cell+ lrest sservdata swap cons drop 
        dup cell+ sservdata cons drop 
        >r doOnConnect r> 
!     then
    repeat drop ;