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

Return to httpd-sm1.sm1 CVS log

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

version 1.10, 2001/12/28 01:20:25

version 1.16, 2002/10/24 02:30:16

Line 1

%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-sm1.sm1,v 1.9 2001/08/23 00:49:00 takayama Exp $

%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-sm1.sm1,v 1.15 2002/10/24 02:12:34 takayama Exp $

%% http server by sm1

%% Note to run on the Windows (TM).

%% (A) You need to set IE (internet explorer) as follows:

Line 58 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 84 def

Line 85 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) (readHTTP) [httpd.server.fd 0 get ]] extension /ff set

ff length 0 eq {

ff tag 0 eq {

(connection is closed.) message

(connection is closed.) message exit

}

{

(------------ start ----------------------) message

Line 104 def

Line 105 def

( ) message

httpd.serial 0 eq {

/httpd.com httpd.initialization def

/httpd.textarea.valid 1 def

} { } ifelse

httpd.sendFile tag 0 eq { }

{