![[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|
Return to httpd-sm1.sm1 CVS log | Up to [local] / OpenXM / src / kan96xx / Doc |
| version 1.11, 2002/01/16 09:20:00 | version 1.17, 2003/09/14 01:59:56 | ||
|---|---|---|---|
|
|
||
| %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-sm1.sm1,v 1.10 2001/12/28 01:20:25 takayama Exp $ | %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-sm1.sm1,v 1.16 2002/10/24 02:30:16 takayama Exp $ | ||
| %% http server by sm1 | %% http server by sm1 | ||
| %% Note to run on the Windows (TM). | %% Note to run on the Windows (TM). | ||
| %% (A) You need to set IE (internet explorer) as follows: | %% (A) You need to set IE (internet explorer) as follows: | ||
|
|
||
| ox.ccc oxsetmathcap | ox.ccc oxsetmathcap | ||
| } ifelse | } ifelse | ||
| /ox-win.start.iconic 1 def | |||
| /ox.win.set.start { | |||
| [(stat) (c:\windows\system32\cmd.exe)] extension 0 get | |||
| 0 eq { | |||
| /ox.win.start.0 [(c:\windows\system32\cmd.exe) (/c) (start)] def | |||
| /ox.win.start [ox.win.start.0 aload pop | |||
| ox-win.start.iconic { (/min) } { } ifelse ] def | |||
| }{ | |||
| [(stat) (c:\winnt\system32\cmd.exe)] extension 0 get | |||
| 0 eq { | |||
| /ox.win.start.0 [(c:\winnt\system32\cmd.exe) (/c) (start) ] def | |||
| /ox.win.start [ox.win.start.0 aload pop | |||
| ox-win.start.iconic { (/min) } { } ifelse ] def | |||
| }{ | |||
| /ox.win.start.0 [ (start) ] def | |||
| /ox.win.start [ ox.win.start.0 aload pop | |||
| ox-win.start.iconic { (/min) } { } ifelse ] def | |||
| } ifelse | |||
| } ifelse | |||
| } def | |||
| /websm1 { | /websm1 { | ||
| [/rrr ] pushVariables | [/rrr ] pushVariables | ||
| [ | [ | ||
|
|
||
| [(ostype)] extension 0 get | [(ostype)] extension 0 get | ||
| (windows) eq { | (windows) eq { | ||
| %% On windows. | %% On windows. | ||
| ox.win.set.start | |||
| [(forkExec) | [(forkExec) | ||
| [ | [ | ||
| %%(c:/windows/command/start) | %%(c:/windows/command/start) | ||
| (start) | ox.win.start.0 aload pop | ||
| (iexplore) %% Starting internet explorer (TM). | (iexplore) %% Starting internet explorer (TM). | ||
| [(http://localhost:) httpd.port toString] cat | [(http://localhost:) httpd.port toString] cat | ||
| ] | ] | ||
|
|
||
| { | { | ||
| [(sm1.socket) (select) [httpd.server.fd 0 get -1]] extension | [(sm1.socket) (select) [httpd.server.fd 0 get -1]] extension | ||
| %% wait for ever | %% wait for ever | ||
| [(sm1.socket) (read) [httpd.server.fd 0 get ]] extension /ff set | [(sm1.socket) (readHTTP) [httpd.server.fd 0 get ]] extension /ff set | ||
| ff length 0 eq { | ff tag 0 eq { | ||
| (connection is closed.) message | (connection is closed.) message exit | ||
| } | } | ||
| { | { | ||
| (------------ start ----------------------) message | (------------ start ----------------------) message | ||
|
|
||
| ( ) message | ( ) message | ||
| httpd.serial 0 eq { | httpd.serial 0 eq { | ||
| /httpd.com httpd.initialization def | /httpd.com httpd.initialization def | ||
| /httpd.textarea.valid 1 def | |||
| } { } ifelse | } { } ifelse | ||
| httpd.sendFile tag 0 eq { } | httpd.sendFile tag 0 eq { } | ||
| { | { | ||
|
|
||
| /httpd.sm1man | /httpd.sm1man | ||
| ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.1.3/doc/kan96xx/onlinehelp/index.html") | ("http://www.math.sci.kobe-u.ac.jp/OpenXM/Current/doc/kan96xx/onlinehelp/index.html") | ||
| def | def | ||
| /httpd.sm1man.index | /httpd.sm1man.index | ||
| ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.1.3/doc/asir2000/html-jp/man_262.html#SEC262") | ("http://www.math.sci.kobe-u.ac.jp/OpenXM/Current/doc/asir2000/html-jp/man_262.html#SEC262") | ||
| def | def | ||
| /httpd.asir.intro | /httpd.asir.intro | ||
| ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.1.3/doc/kan96xx/ttt/index.html") | ("http://www.math.sci.kobe-u.ac.jp/OpenXM/Current/doc/kan96xx/ttt/index.html") | ||
| def | def | ||
| /send-menu-1 { | /send-menu-1 { | ||