Annotation of OpenXM/src/kan96xx/Doc/httpd-sm1.sm1, Revision 1.13
1.13 ! takayama 1: %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-sm1.sm1,v 1.12 2002/10/01 13:00:33 takayama Exp $
1.1 takayama 2: %% http server by sm1
1.3 takayama 3: %% Note to run on the Windows (TM).
1.2 takayama 4: %% (A) You need to set IE (internet explorer) as follows:
5: %% (1) Visit the menu
6: %% tool / internet option / connection / LAN configuration
1.3 takayama 7: %% (2) Add localhost to the list of hosts which are not accessed via
8: %% the proxy server.
1.2 takayama 9: %% (B) You need to have the "start.exe" at c:\windows\command\start.exe
1.3 takayama 10: %% (C) cygwin1.dll should be by sm1.exe, ox_sm1.exe and ox.exe
1.1 takayama 11:
1.8 takayama 12: [(parse) (httpd.sm1) pushfile] extension pop
1.1 takayama 13:
1.3 takayama 14: /httpd.image.name (kobeuniv2.jpg) def
15: /httpd.image.type (jpeg) def
1.1 takayama 16: /httpd.port 1200 def
17:
18: /httpd.initialization
19: %% Put initialization codes here.
20: [
21: ([$parse$ $cohom.sm1$ pushfile] extension
22: [$Web/sm1 version 0.80. $
23: $Kan/sm1 ox_sm1 version $ [$Version$] system_variable] cat)
24: ] cat
25: def
26:
1.6 takayama 27: [(ostype)] extension 0 get
28: (windows) eq {
29: %% Native windows environment or cygwin.
1.3 takayama 30: [(parse) (ox-win.sm1) pushfile] extension
31: }{
1.6 takayama 32: [(parse) (ox.sm1) pushfile] extension
1.3 takayama 33: } ifelse
34:
1.1 takayama 35: (ox_sm1.started) boundp {
36: } {
1.3 takayama 37: %% Initialize ox_sm1
1.6 takayama 38: [(ostype)] extension 0 get
1.10 takayama 39: sm1connectr
1.1 takayama 40: ox.ccc oxmathcap
41: ox.ccc oxsetmathcap
42: } ifelse
43:
44: /websm1 {
45: [/rrr ] pushVariables
46: [
47: %% This procedure to generate port number might fail.
48: [(oxGenPass)] extension . (integer) dc /rrr set
49: rrr << rrr 20000 idiv 20000 mul >> sub /rrr set
50: /httpd.port 1200 rrr add def
51: httpd.port message
52:
1.2 takayama 53: % [(sleep 3; start iexplore http://localhost:)
54: % httpd.port toString
55: % ( &)] cat system
1.6 takayama 56: [(ostype)] extension 0 get
57: (windows) eq {
58: %% On windows.
59: [(forkExec)
60: [
1.11 takayama 61: %%(c:/windows/command/start)
1.12 takayama 62: ox.win.start.0 aload pop
1.6 takayama 63: (iexplore) %% Starting internet explorer (TM).
64: [(http://localhost:) httpd.port toString] cat
65: ]
66: [ ]
67: 3] extension
68: }{
69: %% On unix.
70: [(sleep 3 ; netscape http://localhost:) httpd.port toString ( & ) ] cat
71: system
72: } ifelse
1.1 takayama 73: httpd ;
74: ] pop
75: popVariables
76: } def
77:
78:
79: /httpd_action {
80: [/in-httpd /ff /httpd.com /httpd.result /sss
1.3 takayama 81: /sss.engine /sss.web /err /httpd.sendFile
1.9 takayama 82: /oxserver.vname
1.1 takayama 83: ] pushVariables
84: [
85: {
86: [(sm1.socket) (select) [httpd.server.fd 0 get -1]] extension
87: %% wait for ever
1.13 ! takayama 88: [(sm1.socket) (readBlock) [httpd.server.fd 0 get ]] extension /ff set
1.1 takayama 89: ff length 0 eq {
90: (connection is closed.) message
91: }
92: {
93: (------------ start ----------------------) message
94: ff message
95: (-----------------------------------------) message
1.3 takayama 96: ff 1 copy askToSendFile /httpd.sendFile set
97: httpd.sendFile tag 0 eq {
98: ff removeGET webstringToAscii /httpd.com set
99: } {
100: /httpd.com (NONE) def
101: } ifelse
102: [(httpd.com=) httpd.com] cat message
103: (httpd.sendFile=) messagen httpd.sendFile message
1.1 takayama 104: (------------ end ----------------------) message
105: ( ) message
106: httpd.serial 0 eq {
107: /httpd.com httpd.initialization def
108: } { } ifelse
1.3 takayama 109: httpd.sendFile tag 0 eq { }
110: {
111: httpd.sendFile httpd.image.type send-image
112: exit %% exit the loop LOOP-A
113: } ifelse
1.1 takayama 114: httpd.com metaCommand {
115: httpd.textarea.valid {
1.9 takayama 116: /oxserver.vname
117: [Oxserver_history_variable httpd.serial toString] cat
118: def
1.1 takayama 119: ox.ccc
1.9 takayama 120: [
121: httpd.com
122: ( /) oxserver.vname ( set )
123: oxserver.vname ( )
124: ] cat
1.1 takayama 125: oxexecutestring ;
126: }{
127: send-page-warning exit
128: } ifelse
129: [(oxReq) ox.ccc SM_dupErrors ] extension pop
130:
131: [(oxReq) ox.ccc SM_popCMO ] extension pop
132: [(oxReq) ox.ccc SM_popString ] extension pop
133: [(flush)] extension pop
134: %% Select inputs for interruption.
135: %% Wait by the spin lock.
136: {
137: [(oxMultiSelect) [ox.ccc] 1] extension 1 get 0 get
138: /sss.engine set
139: [(sm1.socket) (mselect)
140: [[httpd.server.fd 0 get] 1]
141: ] extension 0 get /sss.web set
142: /sss [sss.engine sss.web] def
143: sss.engine { exit } { } ifelse
144: sss.web { exit } { } ifelse
145: } loop
146: sss message
147:
148: sss 0 get {
149: [(oxGet) ox.ccc] extension /err set
150: [(oxGet) ox.ccc] extension /httpd.result set
151: %% ox.ccc oxpopstring /httpd.result set
152: } {
153: ox.ccc oxreset
154: ox.ccc ("computation is interrupted.";) oxexecutestring ;
155: ox.ccc oxpopstring
156: /httpd.result set
157: exit
158: } ifelse
159: (------------- result -------------) message
160: httpd.result message
161: (----------------------------------) message
162: ( ) message
163:
164: err message
165: err [ ] eq {
166: /httpd.history
167: httpd.history
168: [10 (string) dc
169: 37 (string) dc httpd.serial toString
170: 10 (string) dc
171: httpd.com
172: ( ) %% add extra ;
173: ] cat
174: append
175: def
176: } {
177: ox.ccc cleanErrors
178: [httpd.result 10 (string) dc err toString] cat
179: /httpd.result set
180: } ifelse
181:
182: [httpd.serial 0 eq { } {
183: (<title> Web/sm1 </title> )
184: (<font color="blue"> Input-) httpd.serial toString
185: (: </font> )
186: httpd.com preformatHTML (<br>)
187: } ifelse
188: (<font color="green"> Output-) httpd.serial toString
189: (: </font> )
1.3 takayama 190: (<a href=") httpd.image.name ("> (in pretty format) </a>) %%test
1.1 takayama 191: httpd.result preformatHTML
1.4 takayama 192: httpd.result.history httpd.result append /httpd.result.history set
1.1 takayama 193: ] cat
1.3 takayama 194: send-page-3 exit %% exit the loop LOOP-A
1.1 takayama 195: } { exit } ifelse %% metaCommand
196: } ifelse
1.3 takayama 197: } loop %% LOOP-A
1.1 takayama 198: ] pop
199: popVariables
200: } def
201:
202:
1.3 takayama 203:
1.1 takayama 204: /httpd.sm1man
1.5 takayama 205: ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.1.3/doc/kan96xx/onlinehelp/index.html")
1.1 takayama 206: def
207: /httpd.sm1man.index
208: ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.1.3/doc/asir2000/html-jp/man_262.html#SEC262")
209: def
210: /httpd.asir.intro
1.5 takayama 211: ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.1.3/doc/kan96xx/ttt/index.html")
1.1 takayama 212: def
213: /send-menu-1 {
214:
215: (FILE:) sendln
216: [$<a href="http://localhost:$ httpd.port toString
217: $/?msg=httpdAsirMeta+quit"> Shutdown the sm1 server. </a>, $
218: ] cat sendln
219: %% [$<a href="http://localhost:$ httpd.port toString
220: %% $/?msg=httpdAsirMeta+interrupt"> interrupt </a>, $
221: %% ] cat sendln
222: [$<a href="http://localhost:$ httpd.port toString
223: $/?msg=httpdAsirMeta+save"> save. </a>, $
224: ] cat sendln
225: ( <spacer type=horizontal size=80> ) sendln
226:
227: (HELP:) sendln
228: [(<font color="red">
229: <a href=) httpd.sm1man ( > Sm1manual (Ja) </a> </font>, )] cat sendln
230: [(<font color="blue">
231: <a href=) httpd.asir.intro ( > Intro (Ja) </a> </font>, )] cat sendln
232: } def
233:
234: /send-page-save {
235: [/in-send-page-save /i] pushVariables
236: [
237: (HTTP/0.9 200 OK) sendln
238: (Connection: close) sendln
239: (Content-Type: text/plain) sendln
240: 0 sendln
241: [37 (string) dc ( Saved the following to sm1out.txt )] cat sendln
242: [37 (string) dc ( Save the following by your browser as a text file. )]
243: cat sendln
244:
245: 0 1 httpd.history length 1 sub {
246: /i set
247: httpd.history i get sendln
248: } for
249: ( ) sendln
250: 0 sendln
251: [(flush)] extension
252: [(PrintDollar) 1] system_variable
253: httpd.history output
254: [(PrintDollar) 0] system_variable
255: ] pop
256: popVariables
257: } def
258:
259:
260: /metaCommand {
261: /arg1 set
262: [/in-metaCommand /msg /result] pushVariables
263: [
264: /msg arg1 def
265: /result 1 def
266: msg (httpdAsirMeta quit) eq {
267: ox.ccc ( quit ) oxsubmit
268: ox.ccc oxshutdown
269: send-page-bye
270: quit
271: /result 0 def
272: } { } ifelse
273: msg (httpdAsirMeta save) eq {
274: send-page-save
275: /result 0 def
276: } { } ifelse
277: msg (httpdAsirMeta interrupt) eq {
278: ox.ccc oxreset
279: (Interrupted! <br>) send-page-3
280: /result 0 def
281: } { } ifelse
282: /arg1 result def
283: ] pop
284: popVariables
285: arg1
286: } def
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to httpd-sm1.sm1 CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Doc