===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v
retrieving revision 1.8
retrieving revision 1.11
diff -u -p -r1.8 -r1.11
--- OpenXM/src/kan96xx/Doc/httpd-rpc.sm1 2002/10/29 00:19:56 1.8
+++ OpenXM/src/kan96xx/Doc/httpd-rpc.sm1 2002/11/04 05:40:40 1.11
@@ -1,17 +1,29 @@
-%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v 1.7 2002/10/28 23:55:57 takayama Exp $
+%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v 1.10 2002/11/03 12:43:03 takayama Exp $
%% http server by sm1. Used for RPC. Generic example.
[(parse) (httpd.sm1) pushfile] extension pop
+%% keyword for rpc
/httpd.textarea.name (rpc) def
/httpd.textarea.name.aaa
[(GET /?) httpd.textarea.name] cat (array) dc
def
-/httpd.port 8090 def
+
+[(getenv) (OXWEB_PORT)] extension tag 0 eq {
+ (Default httpd port : ) messagen
+ /httpd.port 8090 def
+} {
+ /httpd.port [(getenv) (OXWEB_PORT)] extension .. (integer) dc def
+} ifelse
+(httpd.port = ) messagen httpd.port message
+
/httpd.serial 0 def
/httpd.oxasir.timer 1 def %% 1 to use timer, but it accepts only one command
%% 0 not to use timer. It accepts programs.
+/httpd.title
+ (
OpenXM/Risa/Asir Online
)
+def
%%******* Put initialization codes for ox_asir here.
/httpd.initialization
[(if(1){)
@@ -202,6 +214,24 @@ oxNoX
arg1
} def
+ [
+ (Input example---factorization: fctr(x^3-1))
+ (
)
+ [(
+ AsirManual (En) , )] cat
+ [(
+ AsirManual (Ja) )] cat
+ httpd.oxasir.timer {
+ (
It accepts only one command. The limit of CPU time is 30 seconds.
+ Do not put ;
+ (semi-colon) after the command.
+ )
+ }{ } ifelse
+ (
)
+ [(You can also retrieve the result by GET /?) httpd.textarea.name (=) ( encoded_codes HTTP/1.0)]
+ (
)
+ ] cat /httpd.msg1 set
+
/send-page-usage {
[/in-send-page-usage ] pushVariables
[
@@ -210,7 +240,7 @@ oxNoX
(Content-Type: text/html) sendln
0 sendln
- (OpenXM/Risa/Asir Online
) sendln
+ httpd.title sendln
[(getenv) (OXWEB_POST)] extension tag 0 eq {
(
) sendln
- (Input example---factorization: fctr(x^3-1)) sendln
- (
) sendln
- [(
- AsirManual (En) , )] cat sendln
- [(
- AsirManual (Ja) )] cat sendln
- httpd.oxasir.timer {
- (
It accepts only one command. The limit of CPU time is 30 seconds.
- Do not put ;
- (semi-colon) after the command.
- ) sendln
- }{ } ifelse
- (
) sendln
- [(You can also retrieve the result by GET /?) httpd.textarea.name (=) ( encoded_codes HTTP/1.0)] cat
- sendln
- (
) sendln
- [$ Shutdown the oxserver (and restart it). $
] cat sendln
(Powered by OpenXM and httpd on Kan/sm1
_) sendln
@@ -257,10 +274,13 @@ oxNoX
(HTTP/0.9 200 OK) sendln
(Connection: close) sendln
[(Content-length: ) result length toString ] cat sendln
- (Content-Type: text/plain) sendln
+ (Content-Type: text/html) sendln
+ %(Content-Type: text/plain) sendln % It does not work on some browsers.
0 sendln
+ ( ) sendln
result sendln
+ (
) sendln
0 sendln
[(flush)] extension
] pop