=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v retrieving revision 1.24 retrieving revision 1.25 diff -u -p -r1.24 -r1.25 --- OpenXM/src/kan96xx/Doc/httpd-asir.sm1 2002/10/24 02:30:15 1.24 +++ OpenXM/src/kan96xx/Doc/httpd-asir.sm1 2003/09/14 01:59:56 1.25 @@ -1,4 +1,4 @@ -%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.23 2002/10/24 02:12:34 takayama Exp $ +%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.24 2002/10/24 02:30:15 takayama Exp $ %% http server by sm1 [(parse) (httpd.sm1) pushfile] extension pop @@ -24,6 +24,27 @@ def oxasir.ccc oxsetmathcap } 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 + /webasir { asirweb } def /asirweb { [/rrr ] pushVariables @@ -40,6 +61,7 @@ def [(ostype)] extension 0 get (windows) eq { %% On windows. + ox.win.set.start [(forkExec) [ %%(c:\windows\command\start) @@ -191,10 +213,10 @@ def /httpd.asirman - ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.1.3/doc/asir2000/html-jp/man_toc.html") + ("http://www.math.sci.kobe-u.ac.jp/OpenXM/Current/doc/asir2000/html-jp/man_toc.html") def -/httpd.asirman.index - ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.1.3/doc/asir2000/html-jp/man_262.html#SEC262") +/httpd.asirman.contrib + ("http://www.math.sci.kobe-u.ac.jp/OpenXM/Current/doc/asir-contrib/html-ja/cman-ja_toc.html") def /httpd.asir.intro ("http://www.math.sci.kobe-u.ac.jp/~taka/asir-book-html/main") @@ -217,7 +239,7 @@ def [( AsirManual (Ja) , )] cat sendln [( - Index (Ja) , )] cat sendln + AsirContrib (Ja) , )] cat sendln [( Intro (Ja) , )] cat sendln } def