#!/usr/bin/swipl -q --nosignals -tty -s % Pengine and HTTP server modules. :- use_module(library(http/http_dispatch)). :- use_module(library(http/http_error)). :- use_module(library(http/thread_httpd)). :- use_module(library(http/http_unix_daemon)). :- use_module(library(pengines)). :- use_module(library(pengines_io)). :- use_module(library(clpfd)). :- use_module(library(clpr)). :- consult(sandbox). :- multifile prolog:error_message/3. prolog:error_message(time_limit_exceeded) --> [ 'time limit exceeded' ]. :- set_setting(pengine_sandbox:time_limit, 5.0). :- set_setting(pengine_sandbox:thread_pool_size, 50). % Start the server. Set fork(true) if you desire for the process to fork into background. You may also want pidfile(filename). % See /usr/lib/swi-prolog/library/http/http_unix_daemon.pl and thread_httpd.pl for all options. :- http_daemon([port(3030), ip(localhost), fork(false), workers(10), timeout(30), keep_alive_timeout(30), user(nobody), group(nogroup)]).