![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to httpd-asir.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-asir.sm1 CVS log | Up to [local] / OpenXM / src / kan96xx / Doc |
| version 1.26, 2005/11/17 08:15:51 | version 1.32, 2014/08/29 11:58:05 | ||
|---|---|---|---|
|
|
||
| %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.25 2003/09/14 01:59:56 takayama Exp $ | %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.31 2014/08/28 11:27:34 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") | ||
|
|
||
| msg2 0 get (httpdAsirMeta) eq | msg2 0 get (httpdAsirMeta) eq | ||
| msg2 1 get (Pretty) eq and | msg2 1 get (Pretty) eq and | ||
| { | { | ||
| httpd.image.type null eq { | httpd.image.type tag 0 eq { | ||
| send-page-warning-image | send-page-warning-image | ||
| /skip-image goto | /skip-image goto | ||
| } { } ifelse | } { } ifelse | ||
|
|
||
| ] 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 | |||
| [(/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 |