help

.gitignore

@@ -0,0 +1 @@
+database.db

main.pl

@@ -0,0 +1,19 @@
+:- use_module(library(http/http_server)).
+:- use_module(library(http/http_client)).
+:- use_module(library(http/http_json)).
+:- use_module(library(http/json_convert)).
+:- use_module(library(http/json)).
+:- use_module(library(persistency)).
+
+:- initialization
+    http_server([port(8080)]).
+:- initialization
+    absolute_file_name('database.db', File, [access(write)]),
+    db_attach(File, []).
+
+:- json_object
+    product(name:atom, price:integer).
+:- persistent
+    product(name:atom, price:integer).
+
+:- consult('routes/products.pl').

routes/products.pl

@@ -0,0 +1,19 @@
+:- http_handler(
+    root(products),
+    products_page,
+    []
+).
+
+% POST /products
+products_page(Request) :-
+    member(method(post), Request), !,
+    http_read_data(Request, Json, []),
+    json_to_prolog(Json, product(Name, Price)),
+    assert_product(Name, Price),
+    reply_json(Json).
+
+% GET /products
+products_page(_Request) :-
+    bagof(product(Name, Price), product(Name, Price), Products),
+    prolog_to_json(Products, Json),
+    reply_json(Json, []).