=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v retrieving revision 1.2 retrieving revision 1.4 diff -u -p -r1.2 -r1.4 --- OpenXM/src/kan96xx/Doc/httpd-asir.sm1 2001/04/21 06:38:37 1.2 +++ OpenXM/src/kan96xx/Doc/httpd-asir.sm1 2001/04/21 11:16:30 1.4 @@ -1,7 +1,14 @@ -%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.1 2001/04/20 13:38:31 takayama Exp $ +%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.3 2001/04/21 08:18:03 takayama Exp $ %% http server by sm1 /httpd.port 1200 def +/httpd.initialization +%% Put initialization codes here. + [ + ("Risa/Asir web version 0.80. "+ + " Risa/Asir oxasir version "+rtostr(version());) + ] cat +def [(parse) (oxasir.sm1) pushfile] extension (oxasir.started) boundp { } { @@ -22,7 +29,7 @@ [(sm1.socket) (close) server.fd ] extension message } def -/send { +/send_packet { /arg1 set [(sm1.socket) (write) [server.fd 0 get arg1]] extension message } def @@ -42,30 +49,30 @@ } def /httpd { + /httpd.serial 0 def + /httpd.history [ ] def { httpd_startserver ; httpd_action ; httpd_stopserver ; (5 sleep) system + httpd.serial 1 add /httpd.serial set } loop } def /httpd_action { - [/in-httpd /httpd.com.old /ff /httpd.com /httpd.result] pushVariables + [/in-httpd /httpd.com.old /ff /httpd.com /httpd.result + ] pushVariables [ - (httpd:sm1 is ready) message { /httpd.com.old ( ) def [(sm1.socket) (select) [server.fd 0 get -1]] extension %% wait for ever - { [(sm1.socket) (read) [server.fd 0 get ]] extension /ff set ff length 0 eq { (connection is closed.) message } - ff (quit) eq - { (We exit the function httpd) message exit } - { %% [(SigIgn) 0] system_variable + { (------------ start ----------------------) message ff message (-----------------------------------------) message @@ -73,33 +80,40 @@ httpd.com message (------------ end ----------------------) message ( ) message - oxasir.ccc - [(if (1) {) httpd.com (};)] cat - oxexecutestring ; - oxasir.ccc oxpopstring /httpd.result set - /httpd.com.old httpd.com def - (------------- result -------------) message - httpd.result message - (----------------------------------) message - ( ) message - [(
) httpd.com () (
) httpd.result () - ] cat - send-page-3 exit - %% [(SigIgn) 1] system_variable + httpd.serial 0 eq { + /httpd.com httpd.initialization def + } { } ifelse + httpd.com metaCommand { + /httpd.history httpd.history httpd.com append def + oxasir.ccc + [(if (1) {) httpd.com (};)] cat + oxexecutestring ; + oxasir.ccc oxpopstring /httpd.result set + /httpd.com.old httpd.com def + (------------- result -------------) message + httpd.result message + (----------------------------------) message + ( ) message + [httpd.serial 0 eq { } { + (
) httpd.com () (
) httpd.result () + ] cat + send-page-3 exit + } { } ifelse %% metaCommand } ifelse - } - { } ifelse } loop ] pop popVariables } def -/send-page-1 { +/send-page-bye { (HTTP/0.9 200 OK) sendln %% (Date: Sun, 18 Mar 2001 02:54:50 GMT) sendln %% (Server: sm1/0.1 (Unix)) sendln @@ -108,9 +122,13 @@ %% (Accept-Ranges: bytes) sendln %% (Content-Length: 10) sendln (Connection: close) sendln - (Content-Type: text/plain) sendln +% (Content-Type: text/plain) sendln + (Content-Type: text/html) sendln 0 sendln - (HOGE HOGE!) sendln + () sendln + (Shutdown the engine.