===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- 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 08:18:03 1.3
@@ -1,4 +1,4 @@
-%% $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.2 2001/04/21 06:38:37 takayama Exp $
%% http server by sm1
/httpd.port 1200 def
@@ -22,7 +22,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,16 +42,20 @@
} def
/httpd {
+ /httpd.serial 1 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
{
@@ -73,23 +77,27 @@
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
- [( asirweb )
- ( Input: )
- ( ) httpd.com (
) (
)
- ( Output: )
- () httpd.result (
)
- ] cat
- send-page-3 exit
- %% [(SigIgn) 1] system_variable
+ 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
+ [( asirweb )
+ ( Input-) httpd.serial toString
+ (: )
+ ( ) httpd.com (
) (
)
+ ( Output-) httpd.serial toString
+ (: )
+ () httpd.result (
)
+ ] cat
+ send-page-3 exit
+ } { } ifelse
} ifelse
}
{ } ifelse
@@ -99,7 +107,7 @@
} 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 +116,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.
) sendln
+ (See you! asirweb ) sendln
+ () sendln
0 sendln
[(flush)] extension
} def
@@ -143,13 +155,33 @@
() sendln
() sendln
() sendln
+ send-menu-1
0 sendln
[(flush)] extension
] pop
popVariables
} def
+/httpd.asirman
+ ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.1.3/doc/asir2000/html-jp/man_toc.html")
+def
+/httpd.asirman.index
+ ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.1.3/doc/asir2000/html-jp/man_262.html#SEC262")
+def
+/send-menu-1 {
+
+ [$ QUIT , $
+ ] cat sendln
+ [(
+ AsirManual (Ja) , )] cat sendln
+ [(
+ Index (Ja) , )] cat sendln
+ (
+ Intro (Ja) , ) sendln
+} def
+
/stopclient {
[(sm1.socket) (close) [client.fdAndPort 0 get] ] extension message
} def
@@ -241,7 +273,24 @@
} loop
s j carN /s set
s { (string) dc } map cat /arg1 set
+ ] pop
+ popVariables
+ arg1
+} def
+
+/metaCommand {
+ /arg1 set
+ [/in-metaCommand /msg /result] pushVariables
+ [
+ /msg arg1 def
+ /result 1 def
+ msg (httpdAsirMeta quit) eq {
+ send-page-bye
+ quit
+ /result 0 def
+ } { } ifelse
+ /arg1 result def
] pop
popVariables
arg1
-} def
\ No newline at end of file
+} def