:- use_module(cgi). run_query(QueryString, Output) :- open(QueryString, string, S), readvar(S, Query, Vars), close(S), ( call(Query) -> Output = Vars ; Output = "no" ). compile_string(CodeString) :- open(CodeString, string, S), compile_stream(S), close(S). writevars([]). writevars([[Name|Value]|Vars]) :- printf("%w = %Mw\n", [Name,Value]), writevars(Vars). process(Code, Query, Result) :- block(( compile_string(Code), run_query(Query, Result) ), _, Result = "abort" ). go :- posted_params(NameValuePairs), get_param_value(NameValuePairs, query, Query), get_param_value(NameValuePairs, code, Code), writeln("Content-type: text/html\n\n "), writeln("ECLiPSe Output"), writeln(""), writeln("

ECLiPSe Output

"), % writeln("

Parameters received:

"),
%	writeln(NameValuePairs),
%	writeln("

"), writeln("

Query:

"),
	writeln(Query),
	writeln("

"), writeln("

Output:

"),
	process(Code, Query, Result),
	writeln("

"), writeln("

Results:

"),
	( string(Result) -> writeln(Result) ; writevars(Result) ),
	writeln("

"), writeln("Error messages:

"),
	current_stream(Errors,_,error),
	writeln(Errors),
	writeln("

"), writeln("").