Annotation of OpenXM/src/kan96xx/Doc/httpd-rpc.sm1, Revision 1.14
1.14 ! ohara 1: %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v 1.13 2002/12/04 00:02:10 takayama Exp $
1.1 takayama 2: %% http server by sm1. Used for RPC. Generic example.
3:
4: [(parse) (httpd.sm1) pushfile] extension pop
1.12 takayama 5:
6: /httpd_action {
7: httpd_action_allow_file_transfer
8: %% If OXWEB_HTTPD_ROOT is set, file transfer will be allowed.
9: %% Example: export OXWEB_HTTPD_ROOT=/usr/local/www/data/
10: %% Do not forget the last /
11: % httpd_action_rpc_only %% old
12: } def
1.10 takayama 13: %% keyword for rpc
1.1 takayama 14: /httpd.textarea.name (rpc) def
15: /httpd.textarea.name.aaa
16: [(GET /?) httpd.textarea.name] cat (array) dc
17: def
1.10 takayama 18:
19: [(getenv) (OXWEB_PORT)] extension tag 0 eq {
20: (Default httpd port : ) messagen
21: /httpd.port 8090 def
22: } {
23: /httpd.port [(getenv) (OXWEB_PORT)] extension .. (integer) dc def
24: } ifelse
25: (httpd.port = ) messagen httpd.port message
26:
1.1 takayama 27: /httpd.serial 0 def
28:
1.7 takayama 29: /httpd.oxasir.timer 1 def %% 1 to use timer, but it accepts only one command
30: %% 0 not to use timer. It accepts programs.
31:
1.11 takayama 32: /httpd.title
33: (<H1><font color="green">OpenXM/Risa/Asir Online</font></H2><br>)
34: def
1.2 takayama 35: %%******* Put initialization codes for ox_asir here.
36: /httpd.initialization
1.8 takayama 37: [(if(1){)
1.2 takayama 38: (XM_debug=0; ctrl("debug_window",0); Xm_noX=1;)
39: ("Asirweb version 0.80. "+
40: " Risa/Asir oxasir version "+rtostr(version());)
1.8 takayama 41: (};)
1.2 takayama 42: ] cat
43: def
1.1 takayama 44:
1.7 takayama 45: /httpd.asirman
1.14 ! ohara 46: ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.2.1/doc/asir2000/html-en/man_toc.html")
1.7 takayama 47: def
48: /httpd.asirman.ja
1.14 ! ohara 49: ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.2.1/doc/asir2000/html-ja/man_toc.html")
1.7 takayama 50: def
1.1 takayama 51:
52: [(parse) (oxasir.sm1) pushfile] extension
53: oxNoX
54: (oxasir.started) boundp {
55: } {
56: %% Initialize oxasir.
57: [(x^2-1) (x)] fctr pop
58: oxasir.ccc oxmathcap
59: oxasir.ccc oxsetmathcap
1.2 takayama 60: oxasir.ccc httpd.initialization oxexecutestring ;
61: (Initialization returns ...: ) messagen
62: oxasir.ccc oxpopcmo message ;
1.1 takayama 63: } ifelse
64:
65: /webrpc {
66: [/rrr ] pushVariables
67: [
68: [(oxGenPass)] extension . (integer) dc /rrr set
69:
70: [(ostype)] extension 0 get
71: (windows) eq {
72: %% On windows.
73: [(forkExec)
74: [
75: ox.win.start.0 aload pop
76: (iexplore) %% Starting internet explorer (TM).
1.3 takayama 77: [(http://) [(sm1.socket) (gethostname) []] extension
78: (:) httpd.port toString] cat
1.1 takayama 79: ]
80: [ ]
81: 3] extension
82: }{
83: %% On unix.
1.3 takayama 84: [(sleep 3 ; netscape http://)
85: [(sm1.socket) (gethostname) []] extension
86: (:) httpd.port toString ( & ) ] cat
1.1 takayama 87: system
88: } ifelse
89:
90: httpd ;
91: ] pop
92: popVariables
93: } def
94:
95:
1.12 takayama 96: /httpd_action_rpc_only {
1.1 takayama 97: [/in-httpd /ff /httpd.com /httpd.result /sss
98: /sss.engine /sss.web /err
1.4 takayama 99: /oxserver.vname /scheck
1.1 takayama 100: ] pushVariables
101: [
102: {
103: [(sm1.socket) (select) [httpd.server.fd 0 get -1]] extension
104: %% wait for ever
105: [(sm1.socket) (readHTTP) [httpd.server.fd 0 get ]] extension /ff set
1.2 takayama 106: ff tag 0 eq {
107: (connection is closed.) message exit
1.1 takayama 108: }
109: {
110: (------------ start ----------------------) message
111: ff message
112: (-----------------------------------------) message
113: ff removeGET webstringToAscii /httpd.com set
114: [(httpd.com=) httpd.com] cat message
115: (------------ end ----------------------) message
116: ( ) message
1.2 takayama 117:
1.1 takayama 118: httpd.com metaCommand {
119: httpd.textarea.valid {
120:
1.4 takayama 121: %%% Security check
122: [(regionMatches) httpd.com
123: httpd.refusedCommands] extension /scheck set
124: scheck 0 get -1 eq {
125: }{
126: httpd.refusedCommands scheck 2 get get message
127: (Command is refused.) message
128: [
129: httpd.refusedCommands scheck 2 get get
130: httpd.com
131: ]
132: send-page-refused exit
133: } ifelse
134:
1.1 takayama 135: %%% Executing command, here.
136: oxasir.ccc
137: httpd.com cookedCommand
138: oxexecutestring ;
139:
140: }{
141: send-page-usage exit
142: } ifelse
143:
144: [(oxReq) oxasir.ccc SM_dupErrors ] extension pop
145:
146: [(oxReq) oxasir.ccc SM_popCMO ] extension pop
147: [(oxReq) oxasir.ccc SM_popString ] extension pop
148:
149: [(flush)] extension pop
150: %% Select inputs for interruption.
151: %% Wait by the spin lock.
152: {
153: [(oxMultiSelect) [oxasir.ccc] 1] extension 1 get 0 get
154: /sss.engine set
155: [(sm1.socket) (mselect)
156: [[httpd.server.fd 0 get] 1]
157: ] extension 0 get /sss.web set
158: /sss [sss.engine sss.web] def
159: sss.engine { exit } { } ifelse
160: sss.web { exit } { } ifelse
161: } loop
162: sss message
163:
164: sss 0 get {
165: [(oxGet) oxasir.ccc] extension /err set
166: [(oxGet) oxasir.ccc] extension /httpd.result set
167: } {
168: oxasir.ccc oxreset
169: oxasir.ccc ("computation is interrupted.";) oxexecutestring ;
170: oxasir.ccc oxpopstring
171: /httpd.result set
172: exit
173: } ifelse
174: (------------- result -------------) message
175: httpd.result message
176: (----------------------------------) message
177: ( ) message
1.2 takayama 178:
179: (----------- error -------------) message
1.1 takayama 180: err message
1.2 takayama 181: (-------------------------------) message
1.1 takayama 182: err [ ] eq {
183: } {
184: oxasir.ccc cleanErrors
185: [httpd.result 10 (string) dc err toString] cat
186: /httpd.result set
187: } ifelse
188:
189: httpd.result send-page-result exit %% exit the loop LOOP-A
190: } { exit } ifelse %% metaCommand
191: } ifelse
192: } loop %% LOOP-A
193: ] pop
194: popVariables
195: } def
196:
197:
1.12 takayama 198: /httpd_action_allow_file_transfer {
199: [/in-httpd /ff /httpd.com /httpd.result /sss
200: /sss.engine /sss.web /err
201: /oxserver.vname /scheck /ff2
202: ] pushVariables
203: [
204: (httpd_action_allow_file_transfer: ) message
205: {
206: [(sm1.socket) (select) [httpd.server.fd 0 get -1]] extension
207: %% wait for ever
208: [(sm1.socket) (readHTTP) [httpd.server.fd 0 get ]] extension /ff set
209: ff tag 0 eq {
210: (connection is closed.) message exit
211: }
212: {
213: (------------ start ----------------------) message
214: ff message
215: (-----------------------------------------) message
216: ff httpd.parse /ff2 set
217: ff2 message
218: /httpd.textarea.valid 0 def /httpd.com ( ) def
219: ff2 0 get (GET-file) eq {
220: ff2 length 1 eq httpd.root tag 0 eq {
221: send-page-usage
222: exit
223: } { } ifelse
224: ff2 httpd_sendfile exit
225: } { } ifelse
226: ff2 0 get (GET) eq ff2 0 get (POST) eq or {
227: ff2 1 get tag 6 eq
228: ff2 1 get length 2 eq and
229: { % list
230: ff2 1 get 0 get httpd.textarea.name eq {
231: /httpd.textarea.valid 1 def
232: /httpd.com ff2 1 get 1 get def
233: }{ } ifelse
234: ff2 1 get 0 get (msg) eq { %% meta command
235: /httpd.textarea.valid 0 def
236: /httpd.com ff2 1 get 1 get def
237: }{ } ifelse
238: } { } ifelse
239: }{ } ifelse
240: %% ff removeGET webstringToAscii /httpd.com set
241: [(httpd.com=) httpd.com] cat message
242: (------------ end ----------------------) message
243: ( ) message
244:
245: httpd.com metaCommand {
246: httpd.textarea.valid {
247:
248: %%% Security check
249: [(regionMatches) httpd.com
250: httpd.refusedCommands] extension /scheck set
251: scheck 0 get -1 eq {
252: }{
253: httpd.refusedCommands scheck 2 get get message
254: (Command is refused.) message
255: [
256: httpd.refusedCommands scheck 2 get get
257: httpd.com
258: ]
259: send-page-refused exit
260: } ifelse
261:
262: %%% Executing command, here.
263: oxasir.ccc
264: httpd.com cookedCommand
265: oxexecutestring ;
266:
267: }{
268: send-page-usage exit
269: } ifelse
270:
271: [(oxReq) oxasir.ccc SM_dupErrors ] extension pop
272:
273: [(oxReq) oxasir.ccc SM_popCMO ] extension pop
274: [(oxReq) oxasir.ccc SM_popString ] extension pop
275:
276: [(flush)] extension pop
277: %% Select inputs for interruption.
278: %% Wait by the spin lock.
279: {
280: [(oxMultiSelect) [oxasir.ccc] 1] extension 1 get 0 get
281: /sss.engine set
282: [(sm1.socket) (mselect)
283: [[httpd.server.fd 0 get] 1]
284: ] extension 0 get /sss.web set
285: /sss [sss.engine sss.web] def
286: sss.engine { exit } { } ifelse
287: sss.web { exit } { } ifelse
288: } loop
289: sss message
290:
291: sss 0 get {
292: [(oxGet) oxasir.ccc] extension /err set
293: [(oxGet) oxasir.ccc] extension /httpd.result set
294: } {
295: oxasir.ccc oxreset
296: oxasir.ccc ("computation is interrupted.";) oxexecutestring ;
297: oxasir.ccc oxpopstring
298: /httpd.result set
299: exit
300: } ifelse
301: (------------- result -------------) message
302: httpd.result message
303: (----------------------------------) message
304: ( ) message
305:
306: (----------- error -------------) message
307: err message
308: (-------------------------------) message
309: err [ ] eq {
310: } {
311: oxasir.ccc cleanErrors
312: [httpd.result 10 (string) dc err toString] cat
313: /httpd.result set
314: } ifelse
315:
316: httpd.result send-page-result exit %% exit the loop LOOP-A
317: } { exit } ifelse %% metaCommand
318: } ifelse
319: } loop %% LOOP-A
320: ] pop
321: popVariables
322: } def
1.1 takayama 323:
324:
325: /metaCommand {
326: /arg1 set
327: [/in-metaCommand /msg /result /msg2 /nn
328: /err /fn
329: ] pushVariables
330: [
331: /msg arg1 def
332: /result 1 def
333: msg (httpdAsirMeta quit) eq {
334: oxasir.ccc oxshutdown
335: send-page-bye
336: quit
337: /result 0 def
338: } { } ifelse
339: msg (httpdAsirMeta interrupt) eq {
340: oxasir.ccc oxreset
341: (Interrupted! <br>) send-page-3
342: /result 0 def
343: } { } ifelse
344: /arg1 result def
345: ] pop
346: popVariables
347: arg1
348: } def
349:
1.11 takayama 350: [
351: (Input example---factorization:<font color="blue"> fctr(x^3-1)</font>)
352: (<br>)
353: [(<font color="blue">
354: <a href=) httpd.asirman ( > AsirManual (En) </a> </font>, )] cat
355: [(<font color="blue">
356: <a href=) httpd.asirman.ja ( > AsirManual (Ja) </a> </font>)] cat
357: httpd.oxasir.timer {
358: (<br> It accepts only one command. The limit of CPU time is 30 seconds.
359: <font color="red"> Do not put <font color="blue"> ; </font>
360: (semi-colon) after the command.
361: </font>)
362: }{ } ifelse
363: (<br>)
364: [(You can also retrieve the result by GET /?) httpd.textarea.name (=) ( encoded_codes HTTP/1.0)]
365: (<br>)
366: ] cat /httpd.msg1 set
367:
1.1 takayama 368: /send-page-usage {
369: [/in-send-page-usage ] pushVariables
370: [
371: (HTTP/0.9 200 OK) sendln
372: (Connection: close) sendln
373: (Content-Type: text/html) sendln
374: 0 sendln
375:
1.11 takayama 376: httpd.title sendln
1.1 takayama 377: [(getenv) (OXWEB_POST)] extension tag 0 eq {
378: (<FORM NAME="myFORM">) sendln % use get
379: }{
380: (<FORM NAME="myFORM" METHOD="POST">) sendln
381: } ifelse
382: (<INPUT TYPE=submit VALUE="submit">) sendln
383: [(<textarea name=) httpd.textarea.name
1.8 takayama 384: ( rows=7 cols="80" wrap="soft"></textarea>)] cat sendln
1.1 takayama 385: (</FORM>) sendln
1.7 takayama 386:
1.11 takayama 387: httpd.msg1 sendln
388:
1.9 takayama 389: [$<a href="http://$ [(sm1.socket) (gethostname) []] extension
390: $:$ httpd.port toString
1.7 takayama 391: $/?msg=httpdAsirMeta+quit"> Shutdown the oxserver (and restart it). </a>$
1.1 takayama 392: ] cat sendln
1.7 takayama 393: (<h3 align="right"><font color="gree">Powered by OpenXM and httpd on Kan/sm1 </font> </h3>_) sendln
1.1 takayama 394: 0 sendln
395: [(flush)] extension
396: ] pop
397: popVariables
398: } def
399:
400:
401:
402: /send-page-result {
403: /arg1 set
404: [/in-send-page-result /result] pushVariables
405: [
406: /result arg1 def
407: (HTTP/0.9 200 OK) sendln
408: (Connection: close) sendln
1.3 takayama 409: [(Content-length: ) result length toString ] cat sendln
1.11 takayama 410: (Content-Type: text/html) sendln
411: %(Content-Type: text/plain) sendln % It does not work on some browsers.
1.1 takayama 412: 0 sendln
413:
1.11 takayama 414: (<html> <body> <pre>) sendln
1.1 takayama 415: result sendln
1.11 takayama 416: (</pre> </body> </html>) sendln
1.1 takayama 417: 0 sendln
418: [(flush)] extension
419: ] pop
420: popVariables
421: } def
422:
1.4 takayama 423: /send-page-refused {
424: /arg1 set
425: [/in-send-page-refused /reason] pushVariables
426: [
427: /reason arg1 def
428: (HTTP/0.9 200 OK) sendln
429: (Connection: close) sendln
430: (Content-Type: text/html) sendln
431: 0 sendln
432:
433: (<H2> Your request is refused. </H2> <br> ) sendln
434: (Because your input contains the key word <font color="red">) sendln
435: reason 0 get sendln
436: ( </font> ) sendln
437: (<br> <br>) sendln
438: (Your input is <br> ) sendln
439: (<pre> ) sendln
440: reason 1 get sendln
441: (</pre> ) sendln
442:
443: 0 sendln
444: [(flush)] extension
445: ] pop
446: popVariables
447: } def
448:
1.2 takayama 449: %% **** Overwrites the definition in httpd.sm1
450: /httpd_startserver {
451: (httpd server accessible outside localhost.) message
452: %% get the hostname of this machine.
453: [(sm1.socket) (open) [httpd.port
454: [(sm1.socket) (gethostname) [ ] ]extension ] ]
455: extension
456: /httpd.server.fdAndPort set
457: (sm1.socket.open returns ) messagen httpd.server.fdAndPort message
458: [(sm1.socket) (accept) [httpd.server.fdAndPort 0 get]] extension
459: /httpd.server.fd set
460: (connected.) message
461: (sm1.socket.accept returns <httpd.server.fd> ) messagen
462: httpd.server.fd message
463:
464: } def
1.1 takayama 465:
466: %% ******* sample of cooked command
1.7 takayama 467: /cookedCommand.simplest {
1.1 takayama 468: /arg1 set
469: [/in-cookedCommand /httpd.com] pushVariables
470: [
471: /httpd.com arg1 def
472: [(if (1) {) httpd.com (; };)] cat
473: /arg1 set
1.7 takayama 474: ] pop
475: popVariables
476: arg1
477: } def
478: /cookedCommand {
479: /arg1 set
480: [/in-cookedCommand /httpd.com /fff] pushVariables
481: [
482: /httpd.com arg1 def
483: httpd.oxasir.timer not {
484: [(if (1) {) httpd.com (; };)] cat
485: /fff set
486: }{
487: %% It does not work.
488: %% [$timer(30,eval_str("$
489: %% (if (1) {) httpd.com (; };)
490: %% $"),"Computation is aborted with the resource limit ( 30 seconds)");$
491: %% ] cat
492: [$timer(30,$ httpd.com
493: $,"Computation is aborted with the resource limit ( 30 seconds) or there was a syntax error.");$
494: ] cat
495: /fff set
496: } ifelse
497: (cooked command is ) messagen fff message
498: /arg1 fff def
1.1 takayama 499: ] pop
500: popVariables
501: arg1
502: } def
1.4 takayama 503: /httpd.refusedCommands
1.8 takayama 504: [(shell) (eval_str) (ox_) (sm1_)
505: (m_start) (m_N_) (m_Inverse) (m_TexForm) %(m_)
1.5 takayama 506: (connect) (load) (bload) (bsave)
507: (end) (quit) (output) (bload27) (open)
508: (plot) (ctrl) (debug) (error) (port) (bind) (accept)
1.6 takayama 509: (draw) (peek) (poke)
1.13 takayama 510: (write_string_to_a_file) (_filter)
1.4 takayama 511: ]
512: 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