===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v
retrieving revision 1.7
retrieving revision 1.10
diff -u -p -r1.7 -r1.10
--- OpenXM/src/kan96xx/Doc/httpd-rpc.sm1 2002/10/28 23:55:57 1.7
+++ OpenXM/src/kan96xx/Doc/httpd-rpc.sm1 2002/11/03 12:43:03 1.10
@@ -1,12 +1,21 @@
-%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v 1.6 2002/10/28 08:57:28 takayama Exp $
+%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v 1.9 2002/10/29 10:54:17 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
@@ -14,10 +23,11 @@ def
%%******* Put initialization codes for ox_asir here.
/httpd.initialization
- [
+ [(if(1){)
(XM_debug=0; ctrl("debug_window",0); Xm_noX=1;)
("Asirweb version 0.80. "+
" Risa/Asir oxasir version "+rtostr(version());)
+ (};)
] cat
def
@@ -217,7 +227,7 @@ oxNoX
} ifelse
() sendln
[()] cat sendln
+ ( rows=7 cols="80" wrap="soft">)] cat sendln
() sendln
(Input example---factorization: fctr(x^3-1)) sendln
@@ -236,7 +246,8 @@ oxNoX
[(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
(