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 ;
|
