OpenXM/src/kan96xx/Doc/httpd-asir.sm1 - diff

Return to httpd-asir.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Doc

version 1.18, 2002/01/13 06:57:43

version 1.21, 2002/10/17 13:40:28

Line 1

%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.17 2001/09/20 06:42:37 takayama Exp $

%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.20 2002/10/01 13:00:33 takayama Exp $

%% http server by sm1

[(parse) (httpd.sm1) pushfile] extension pop

Line 42 def

%% On windows.

[(forkExec)

[

(c:\windows\command\start)

%%(c:\windows\command\start)

ox.win.start.0 aload pop

(iexplore) %% Starting internet explorer (TM).

[(http://localhost:) httpd.port toString] cat

]

Line 69 def

Line 70 def

{

[(sm1.socket) (select) [httpd.server.fd 0 get -1]] extension

%% wait for ever

[(sm1.socket) (read) [httpd.server.fd 0 get ]] extension /ff set

[(sm1.socket) (readBlock) [httpd.server.fd 0 get ]] extension /ff set

ff length 0 eq {

(connection is closed.) message

}