version 1.2, 2001/08/23 00:49:00 |
version 1.3, 2001/08/23 02:08:41 |
|
|
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd.sm1,v 1.1 2001/08/23 00:16:55 takayama Exp $ |
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd.sm1,v 1.2 2001/08/23 00:49:00 takayama Exp $ |
%% common modules for httpd on sm1. |
%% common modules for httpd on sm1. |
/Oxserver_history_variable (Oxserver_history_variable_) def |
/Oxserver_history_variable (Oxserver_history_variable_) def |
|
|
|
|
arg1 |
arg1 |
} def |
} def |
|
|
/executeStringAndSelectInputFromBrowsersAndOxserver { |
/executeStringAndSelectInputFromBrowserAndOxserver { |
|
/arg3 set |
/arg2 set |
/arg2 set |
/arg1 set |
/arg1 set |
[/in-executeStringAndSelectInputFromBrowsersAndOxserver |
[/in-executeStringAndSelectInputFromBrowserAndOxserver |
/oxserver.ccc |
/oxserver.ccc |
/command.to.oxserver |
/command.to.oxserver |
/sss.engine |
/sss.engine |
|
|
/sss |
/sss |
/err |
/err |
/httpd.result |
/httpd.result |
|
/stringOrCmo |
] pushVariables |
] pushVariables |
% Global var: httpd.server.fd |
% Global var: httpd.server.fd |
[ |
[ |
/oxserver.ccc arg1 def |
/oxserver.ccc arg1 def |
/command.to.oxserver arg2 def |
/command.to.oxserver arg2 def |
|
/stringOrCmo arg3 def |
oxserver.ccc |
oxserver.ccc |
command.to.oxserver |
command.to.oxserver |
oxexecutestring ; |
oxexecutestring ; |
|
|
[(oxReq) oxserver.ccc SM_dupErrors ] extension pop |
[(oxReq) oxserver.ccc SM_dupErrors ] extension pop |
|
|
[(oxReq) oxserver.ccc SM_popCMO ] extension pop |
[(oxReq) oxserver.ccc SM_popCMO ] extension pop |
[(oxReq) oxserver.ccc SM_popString ] extension pop |
stringOrCmo (string) eq { |
|
[(oxReq) oxserver.ccc SM_popString ] extension pop |
|
}{ |
|
[(oxReq) oxserver.ccc SM_popCMO ] extension pop |
|
} ifelse |
[(flush)] extension pop |
[(flush)] extension pop |
%% Select inputs for interruption. |
%% Select inputs for interruption. |
%% Wait by the spin lock. |
%% Wait by the spin lock. |
|
|
sss 0 get { |
sss 0 get { |
[(oxGet) oxserver.ccc] extension /err set |
[(oxGet) oxserver.ccc] extension /err set |
[(oxGet) oxserver.ccc] extension /httpd.result set |
[(oxGet) oxserver.ccc] extension /httpd.result set |
%% oxserver.ccc oxpopstring /httpd.result set |
|
} { |
} { |
oxserver.ccc oxreset |
oxserver.ccc oxreset |
oxserver.ccc ("computation is interrupted.";) oxexecutestring ; |
oxserver.ccc ("computation is interrupted.";) oxexecutestring ; |