| version 1.20, 2002/10/01 13:00:33 |
version 1.24, 2002/10/24 02:30:15 |
|
|
| %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.19 2002/01/16 09:20:00 takayama Exp $ |
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.23 2002/10/24 02:12:34 takayama Exp $ |
| %% http server by sm1 |
%% http server by sm1 |
| |
|
| [(parse) (httpd.sm1) pushfile] extension pop |
[(parse) (httpd.sm1) pushfile] extension pop |
|
|
| { |
{ |
| [(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) (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 |
(------------ 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 { } |
| { |
{ |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to httpd-asir.sm1 CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Doc