Return to httpd-asir.sm1 CVS log | Up to [local] / OpenXM / src / kan96xx / Doc |
version 1.27, 2005/11/21 09:12:22 | version 1.31, 2014/08/28 11:27:34 | ||
---|---|---|---|
|
|
||
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.26 2005/11/17 08:15:51 takayama Exp $ | %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.30 2010/02/08 01:08:39 takayama Exp $ | ||
%% http server by sm1 | %% http server by sm1 | ||
[(parse) (httpd.sm1) pushfile] extension pop | [(parse) (httpd.sm1) pushfile] extension pop | ||
|
|
||
/httpd.port 1200 rrr add def | /httpd.port 1200 rrr add def | ||
httpd.port message | httpd.port message | ||
%%[(sleep 3; netscape -geometry 800x500 http://localhost:) | %%[(sleep 3; firefox -geometry 800x500 http://localhost:) | ||
%% httpd.port toString | %% httpd.port toString | ||
%% ( &)] cat system | %% ( &)] cat system | ||
[(ostype)] extension 0 get | [(ostype)] extension 0 get | ||
|
|
||
/httpd.asirman | /httpd.asirman | ||
("http://www.math.sci.kobe-u.ac.jp/OpenXM/Current/doc/asir2000/html-jp/man_toc.html") | ("http://www.math.sci.kobe-u.ac.jp/OpenXM/Current/doc/asir2000/html-ja/man_toc.html") | ||
def | def | ||
/httpd.asirman.contrib | /httpd.asirman.contrib | ||
("http://www.math.sci.kobe-u.ac.jp/OpenXM/Current/doc/asir-contrib/html-ja/cman-ja_toc.html") | ("http://www.math.sci.kobe-u.ac.jp/OpenXM/Current/doc/asir-contrib/ja/cman-html/cman-ja_toc.html") | ||
def | def | ||
/httpd.asir.intro | /httpd.asir.intro | ||
("http://www.math.sci.kobe-u.ac.jp/~taka/asir-book-html/main") | ("http://www.math.sci.kobe-u.ac.jp/~taka/asir-book-html/main") | ||
|
|
||
] pop | ] pop | ||
popVariables | popVariables | ||
arg1 | arg1 | ||
} def | |||
/webasir2 { | |||
[/rrr /cmd /mypid /lockname] pushVariables | |||
[ | |||
%% This procedure to generate port number might fail. | |||
[(oxGenPass)] extension . (integer) dc /rrr set | |||
rrr << rrr 20000 idiv 20000 mul >> sub /rrr set | |||
/httpd.port 1200 rrr add def | |||
httpd.port message | |||
[(getpid)] extension (dollar) dc /mypid set | |||
/httpd.textarea.name randomName def | |||
[(/tmp/webasir-) mypid (.txt)] cat /lockname set | |||
[(outputObjectToFile) lockname | |||
[httpd.port nl httpd.textarea.name nl ] cat | |||
] extension | |||
lockname message | |||
[(cat ) lockname] cat (system) nl message | |||
httpd ; | |||
[(rm -f ) lockname] cat system | |||
] pop | |||
popVariables | |||
} def | } def |