server.pl

#!/usr/bin/swipl
:- use_module(library(http/thread_httpd)).
:- use_module(library(http/http_dispatch)).
:- use_module(library(http/http_json)).
:- use_module(library(http/http_cors)).

% Serve the page
:- use_module(library(http/http_server)).
:- use_module(library(http/http_files)).
:- use_module(library(http/http_path)).

% URL handlers.
:- set_setting(http:cors, [*]).
:- http_handler(root(.), handle_request, [methods([post])]).
:- http_handler(root(start), handle_start_request, [methods([get])]).
:- http_handler(root(verify), handle_verify_request, [post]).

% Game and its assets
:- http_handler(root(game), http_reply_file('front/index.html', []), [prefix]).
:- http_handler('/css/style.css', http_reply_file('front/css/style.css', []), []).
:- http_handler('/js/script.js', http_reply_file('front/js/script.js', []), []).

verify(_{guess:Guess}, _{status:Status,data:Data}) :-
    selected_word(Word),
    consult('wordle'),
    atom_string(Atom_Guess, Guess),
    wordle(Atom_Guess, Word, Status, Colors),
    guesses(Guesses),
    append(Guesses, [_{guess:Guess,colors:Colors}], NewGuesses),
    retractall(guesses(_)),
    assertz(guesses(NewGuesses)),
    guesses(Data).

handle_verify_request(Request) :-
    cors_enable(Request,
                  [ methods([get,post,delete])
                  ]),
    http_read_json_dict(Request, Query),
    verify(Query, Answer),
    reply_json_dict(Answer).

start(Word) :-
    consult('word_utils'),
    get_random_word(Selected_Word),
    retractall(guesses(_)),
    assertz(guesses([])),
    retractall(selected_word(_)),
    assertz(selected_word(Selected_Word)),
    selected_word(Word).

handle_start_request(Request) :-
    cors_enable(Request,
                  [ methods([get,post,delete])
                  ]),
    start(Word),
    reply_json_dict(Word).

% Calculates a + b.
solve(_{a:X, b:Y}, _{answer:N}) :-
    number(X),
    number(Y),
    N is X + Y.

handle_request(Request) :-
    cors_enable(Request,
                  [ methods([get,post,delete])
                  ]),
    http_read_json_dict(Request, Query),
    solve(Query, Solution),
    reply_json_dict(Solution).

server(Port) :-
    http_server(http_dispatch, [port(Port)]).

:- initialization(server(8000)).