version 1.15, 2001/08/29 11:18:57 |
version 1.17, 2001/09/20 06:42:37 |
|
|
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.14 2001/08/23 02:08:41 takayama Exp $ |
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.16 2001/09/20 05:57:40 takayama Exp $ |
%% http server by sm1 |
%% http server by sm1 |
|
|
[(parse) (httpd.sm1) pushfile] extension pop |
[(parse) (httpd.sm1) pushfile] extension pop |
|
|
/httpd.initialization |
/httpd.initialization |
%% Put initialization codes here. |
%% Put initialization codes here. |
[ |
[ |
|
(XM_debug=0; ctrl("debug_window",0);) |
("Asirweb version 0.80. "+ |
("Asirweb version 0.80. "+ |
" Risa/Asir oxasir version "+rtostr(version());) |
" Risa/Asir oxasir version "+rtostr(version());) |
] cat |
] cat |
|
|
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 { |
|
send-page-warning-image |
|
/skip-image goto |
|
} { } ifelse |
|
|
|
|
msg2 2 get . (integer) dc /nn set |
msg2 2 get . (integer) dc /nn set |
|
|
%% Reformat the "nn"-th result by tex and send it. |
%% Reformat the "nn"-th result by tex and send it. |
|
|
} ifelse |
} ifelse |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|
|
|
/skip-image |
/result 0 def |
/result 0 def |
} { } ifelse |
} { } ifelse |
}{ } ifelse |
}{ } ifelse |