Return to httpd-sm1.sm1 CVS log | Up to [local] / OpenXM / src / kan96xx / Doc |
version 1.12, 2002/10/01 13:00:33 | version 1.17, 2003/09/14 01:59:56 | ||
---|---|---|---|
|
|
||
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-sm1.sm1,v 1.11 2002/01/16 09:20:00 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) | ||
|
|
||
{ | { | ||
[(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 { | ||