version 1.25, 2003/09/14 01:59:56 |
version 1.31, 2014/08/28 11:27:34 |
|
|
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.24 2002/10/24 02:30:15 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 |
|
|
|
|
/webasir { asirweb } def |
/webasir { asirweb } def |
/asirweb { |
/asirweb { |
[/rrr ] pushVariables |
[/rrr /cmd] pushVariables |
[ |
[ |
%% This procedure to generate port number might fail. |
%% This procedure to generate port number might fail. |
[(oxGenPass)] extension . (integer) dc /rrr set |
[(oxGenPass)] extension . (integer) dc /rrr set |
|
|
/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 |
|
|
3] extension |
3] extension |
}{ |
}{ |
%% On unix. |
%% On unix. |
[(sleep 3 ; netscape http://localhost:) httpd.port toString ( & ) ] cat |
httpd.port httpd.startBrowserUnix |
system |
|
} ifelse |
} ifelse |
|
|
httpd ; |
httpd ; |
|
|
|
|
|
|
/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 |
|
/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 |