Annotation of OpenXM/src/kan96xx/Doc/httpd-rpc.sm1, Revision 1.8
1.8 ! takayama 1: %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v 1.7 2002/10/28 23:55:57 takayama Exp $
1.1 takayama 2: %% http server by sm1. Used for RPC. Generic example.
3:
4: [(parse) (httpd.sm1) pushfile] extension pop
5: /httpd.textarea.name (rpc) def
6: /httpd.textarea.name.aaa
7: [(GET /?) httpd.textarea.name] cat (array) dc
8: def
9: /httpd.port 8090 def
10: /httpd.serial 0 def
11:
1.7 takayama 12: /httpd.oxasir.timer 1 def %% 1 to use timer, but it accepts only one command
13: %% 0 not to use timer. It accepts programs.
14:
1.2 takayama 15: %%******* Put initialization codes for ox_asir here.
16: /httpd.initialization
1.8 ! takayama 17: [(if(1){)
1.2 takayama 18: (XM_debug=0; ctrl("debug_window",0); Xm_noX=1;)
19: ("Asirweb version 0.80. "+
20: " Risa/Asir oxasir version "+rtostr(version());)
1.8 ! takayama 21: (};)
1.2 takayama 22: ] cat
23: def
1.1 takayama 24:
1.7 takayama 25: /httpd.asirman
26: ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.2.1/doc/asir2000/html-eg/man_toc.html")
27: def
28: /httpd.asirman.ja
29: ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.2.1/doc/asir2000/html-jp/man_toc.html")
30: def
1.1 takayama 31:
32: [(parse) (oxasir.sm1) pushfile] extension
33: oxNoX
34: (oxasir.started) boundp {
35: } {
36: %% Initialize oxasir.
37: [(x^2-1) (x)] fctr pop
38: oxasir.ccc oxmathcap
39: oxasir.ccc oxsetmathcap
1.2 takayama 40: oxasir.ccc httpd.initialization oxexecutestring ;
41: (Initialization returns ...: ) messagen
42: oxasir.ccc oxpopcmo message ;
1.1 takayama 43: } ifelse
44:
45: /webrpc {
46: [/rrr ] pushVariables
47: [
48: [(oxGenPass)] extension . (integer) dc /rrr set
49:
50: [(ostype)] extension 0 get
51: (windows) eq {
52: %% On windows.
53: [(forkExec)
54: [
55: ox.win.start.0 aload pop
56: (iexplore) %% Starting internet explorer (TM).
1.3 takayama 57: [(http://) [(sm1.socket) (gethostname) []] extension
58: (:) httpd.port toString] cat
1.1 takayama 59: ]
60: [ ]
61: 3] extension
62: }{
63: %% On unix.
1.3 takayama 64: [(sleep 3 ; netscape http://)
65: [(sm1.socket) (gethostname) []] extension
66: (:) httpd.port toString ( & ) ] cat
1.1 takayama 67: system
68: } ifelse
69:
70: httpd ;
71: ] pop
72: popVariables
73: } def
74:
75:
76: /httpd_action {
77: [/in-httpd /ff /httpd.com /httpd.result /sss
78: /sss.engine /sss.web /err
1.4 takayama 79: /oxserver.vname /scheck
1.1 takayama 80: ] pushVariables
81: [
82: {
83: [(sm1.socket) (select) [httpd.server.fd 0 get -1]] extension
84: %% wait for ever
85: [(sm1.socket) (readHTTP) [httpd.server.fd 0 get ]] extension /ff set
1.2 takayama 86: ff tag 0 eq {
87: (connection is closed.) message exit
1.1 takayama 88: }
89: {
90: (------------ start ----------------------) message
91: ff message
92: (-----------------------------------------) message
93: ff removeGET webstringToAscii /httpd.com set
94: [(httpd.com=) httpd.com] cat message
95: (------------ end ----------------------) message
96: ( ) message
1.2 takayama 97:
1.1 takayama 98: httpd.com metaCommand {
99: httpd.textarea.valid {
100:
1.4 takayama 101: %%% Security check
102: [(regionMatches) httpd.com
103: httpd.refusedCommands] extension /scheck set
104: scheck 0 get -1 eq {
105: }{
106: httpd.refusedCommands scheck 2 get get message
107: (Command is refused.) message
108: [
109: httpd.refusedCommands scheck 2 get get
110: httpd.com
111: ]
112: send-page-refused exit
113: } ifelse
114:
1.1 takayama 115: %%% Executing command, here.
116: oxasir.ccc
117: httpd.com cookedCommand
118: oxexecutestring ;
119:
120: }{
121: send-page-usage exit
122: } ifelse
123:
124: [(oxReq) oxasir.ccc SM_dupErrors ] extension pop
125:
126: [(oxReq) oxasir.ccc SM_popCMO ] extension pop
127: [(oxReq) oxasir.ccc SM_popString ] extension pop
128:
129: [(flush)] extension pop
130: %% Select inputs for interruption.
131: %% Wait by the spin lock.
132: {
133: [(oxMultiSelect) [oxasir.ccc] 1] extension 1 get 0 get
134: /sss.engine set
135: [(sm1.socket) (mselect)
136: [[httpd.server.fd 0 get] 1]
137: ] extension 0 get /sss.web set
138: /sss [sss.engine sss.web] def
139: sss.engine { exit } { } ifelse
140: sss.web { exit } { } ifelse
141: } loop
142: sss message
143:
144: sss 0 get {
145: [(oxGet) oxasir.ccc] extension /err set
146: [(oxGet) oxasir.ccc] extension /httpd.result set
147: } {
148: oxasir.ccc oxreset
149: oxasir.ccc ("computation is interrupted.";) oxexecutestring ;
150: oxasir.ccc oxpopstring
151: /httpd.result set
152: exit
153: } ifelse
154: (------------- result -------------) message
155: httpd.result message
156: (----------------------------------) message
157: ( ) message
1.2 takayama 158:
159: (----------- error -------------) message
1.1 takayama 160: err message
1.2 takayama 161: (-------------------------------) message
1.1 takayama 162: err [ ] eq {
163: } {
164: oxasir.ccc cleanErrors
165: [httpd.result 10 (string) dc err toString] cat
166: /httpd.result set
167: } ifelse
168:
169: httpd.result send-page-result exit %% exit the loop LOOP-A
170: } { exit } ifelse %% metaCommand
171: } ifelse
172: } loop %% LOOP-A
173: ] pop
174: popVariables
175: } def
176:
177:
178:
179:
180: /metaCommand {
181: /arg1 set
182: [/in-metaCommand /msg /result /msg2 /nn
183: /err /fn
184: ] pushVariables
185: [
186: /msg arg1 def
187: /result 1 def
188: msg (httpdAsirMeta quit) eq {
189: oxasir.ccc oxshutdown
190: send-page-bye
191: quit
192: /result 0 def
193: } { } ifelse
194: msg (httpdAsirMeta interrupt) eq {
195: oxasir.ccc oxreset
196: (Interrupted! <br>) send-page-3
197: /result 0 def
198: } { } ifelse
199: /arg1 result def
200: ] pop
201: popVariables
202: arg1
203: } def
204:
205: /send-page-usage {
206: [/in-send-page-usage ] pushVariables
207: [
208: (HTTP/0.9 200 OK) sendln
209: (Connection: close) sendln
210: (Content-Type: text/html) sendln
211: 0 sendln
212:
1.7 takayama 213: (<H1><font color="green">OpenXM/Risa/Asir Online</font></H2><br>) sendln
1.1 takayama 214: [(getenv) (OXWEB_POST)] extension tag 0 eq {
215: (<FORM NAME="myFORM">) sendln % use get
216: }{
217: (<FORM NAME="myFORM" METHOD="POST">) sendln
218: } ifelse
219: (<INPUT TYPE=submit VALUE="submit">) sendln
220: [(<textarea name=) httpd.textarea.name
1.8 ! takayama 221: ( rows=7 cols="80" wrap="soft"></textarea>)] cat sendln
1.1 takayama 222: (</FORM>) sendln
1.7 takayama 223:
224: (Input example---factorization:<font color="blue"> fctr(x^3-1)</font>) sendln
225: (<br>) sendln
226: [(<font color="blue">
227: <a href=) httpd.asirman ( > AsirManual (En) </a> </font>, )] cat sendln
228: [(<font color="blue">
229: <a href=) httpd.asirman.ja ( > AsirManual (Ja) </a> </font>)] cat sendln
230: httpd.oxasir.timer {
231: (<br> It accepts only one command. The limit of CPU time is 30 seconds.
232: <font color="red"> Do not put <font color="blue"> ; </font>
233: (semi-colon) after the command.
234: </font>) sendln
235: }{ } ifelse
236: (<br>) sendln
237: [(You can also retrieve the result by GET /?) httpd.textarea.name (=) ( encoded_codes HTTP/1.0)] cat
238: sendln
239: (<br>) sendln
1.1 takayama 240: [$<a href="http://localhost:$ httpd.port toString
1.7 takayama 241: $/?msg=httpdAsirMeta+quit"> Shutdown the oxserver (and restart it). </a>$
1.1 takayama 242: ] cat sendln
1.7 takayama 243: (<h3 align="right"><font color="gree">Powered by OpenXM and httpd on Kan/sm1 </font> </h3>_) sendln
1.1 takayama 244: 0 sendln
245: [(flush)] extension
246: ] pop
247: popVariables
248: } def
249:
250:
251:
252: /send-page-result {
253: /arg1 set
254: [/in-send-page-result /result] pushVariables
255: [
256: /result arg1 def
257: (HTTP/0.9 200 OK) sendln
258: (Connection: close) sendln
1.3 takayama 259: [(Content-length: ) result length toString ] cat sendln
260: (Content-Type: text/plain) sendln
1.1 takayama 261: 0 sendln
262:
263: result sendln
264: 0 sendln
265: [(flush)] extension
266: ] pop
267: popVariables
268: } def
269:
1.4 takayama 270: /send-page-refused {
271: /arg1 set
272: [/in-send-page-refused /reason] pushVariables
273: [
274: /reason arg1 def
275: (HTTP/0.9 200 OK) sendln
276: (Connection: close) sendln
277: (Content-Type: text/html) sendln
278: 0 sendln
279:
280: (<H2> Your request is refused. </H2> <br> ) sendln
281: (Because your input contains the key word <font color="red">) sendln
282: reason 0 get sendln
283: ( </font> ) sendln
284: (<br> <br>) sendln
285: (Your input is <br> ) sendln
286: (<pre> ) sendln
287: reason 1 get sendln
288: (</pre> ) sendln
289:
290: 0 sendln
291: [(flush)] extension
292: ] pop
293: popVariables
294: } def
295:
1.2 takayama 296: %% **** Overwrites the definition in httpd.sm1
297: /httpd_startserver {
298: (httpd server accessible outside localhost.) message
299: %% get the hostname of this machine.
300: [(sm1.socket) (open) [httpd.port
301: [(sm1.socket) (gethostname) [ ] ]extension ] ]
302: extension
303: /httpd.server.fdAndPort set
304: (sm1.socket.open returns ) messagen httpd.server.fdAndPort message
305: [(sm1.socket) (accept) [httpd.server.fdAndPort 0 get]] extension
306: /httpd.server.fd set
307: (connected.) message
308: (sm1.socket.accept returns <httpd.server.fd> ) messagen
309: httpd.server.fd message
310:
311: } def
1.1 takayama 312:
313: %% ******* sample of cooked command
1.7 takayama 314: /cookedCommand.simplest {
1.1 takayama 315: /arg1 set
316: [/in-cookedCommand /httpd.com] pushVariables
317: [
318: /httpd.com arg1 def
319: [(if (1) {) httpd.com (; };)] cat
320: /arg1 set
1.7 takayama 321: ] pop
322: popVariables
323: arg1
324: } def
325: /cookedCommand {
326: /arg1 set
327: [/in-cookedCommand /httpd.com /fff] pushVariables
328: [
329: /httpd.com arg1 def
330: httpd.oxasir.timer not {
331: [(if (1) {) httpd.com (; };)] cat
332: /fff set
333: }{
334: %% It does not work.
335: %% [$timer(30,eval_str("$
336: %% (if (1) {) httpd.com (; };)
337: %% $"),"Computation is aborted with the resource limit ( 30 seconds)");$
338: %% ] cat
339: [$timer(30,$ httpd.com
340: $,"Computation is aborted with the resource limit ( 30 seconds) or there was a syntax error.");$
341: ] cat
342: /fff set
343: } ifelse
344: (cooked command is ) messagen fff message
345: /arg1 fff def
1.1 takayama 346: ] pop
347: popVariables
348: arg1
349: } def
1.4 takayama 350: /httpd.refusedCommands
1.8 ! takayama 351: [(shell) (eval_str) (ox_) (sm1_)
! 352: (m_start) (m_N_) (m_Inverse) (m_TexForm) %(m_)
1.5 takayama 353: (connect) (load) (bload) (bsave)
354: (end) (quit) (output) (bload27) (open)
355: (plot) (ctrl) (debug) (error) (port) (bind) (accept)
1.6 takayama 356: (draw) (peek) (poke)
1.4 takayama 357: ]
358: def
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to httpd-rpc.sm1 CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Doc