version 1.14, 2002/10/21 00:37:01 |
version 1.16, 2002/10/24 02:30:16 |
|
|
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-sm1.sm1,v 1.13 2002/10/17 13:40:28 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 |
%% http server by sm1 |
%% Note to run on the Windows (TM). |
%% Note to run on the Windows (TM). |
%% (A) You need to set IE (internet explorer) as follows: |
%% (A) You need to set IE (internet explorer) as follows: |
|
|
[(sm1.socket) (select) [httpd.server.fd 0 get -1]] extension |
[(sm1.socket) (select) [httpd.server.fd 0 get -1]] extension |
%% wait for ever |
%% wait for ever |
[(sm1.socket) (readHTTP) [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 |
(------------ start ----------------------) message |
|
|
( ) message |
( ) message |
httpd.serial 0 eq { |
httpd.serial 0 eq { |
/httpd.com httpd.initialization def |
/httpd.com httpd.initialization def |
|
/httpd.textarea.valid 1 def |
} { } ifelse |
} { } ifelse |
httpd.sendFile tag 0 eq { } |
httpd.sendFile tag 0 eq { } |
{ |
{ |