/* DIG server exmaple Filename: dig_server_simple.pl Author: Zhisheng Huang Last modified: 30 June, 2004 */ :-use_module(library('dig/dig_client')). :-use_module(library('dig/dig_server')). :-use_module(library('http/thread_httpd')). %% This is an exmaple in which the Prolog DIG server just simply %% forward any request to the external DL reasoner. my_dig_server_processing(RequestData, Answer, Options):- dig_post(RequestData, Answer, Options). :- dig_server_port(Port), http_server(dig_server,[port(Port)]).