38 lines
943 B
Prolog
38 lines
943 B
Prolog
:- use_module(library(http/http_server)).
|
|
:- use_module(library(http/http_client)).
|
|
:- use_module(library(http/http_json)).
|
|
:- use_module(library(http/http_header)).
|
|
:- 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).
|
|
|
|
:- json_object
|
|
login(username:atom, password:atom).
|
|
|
|
:- json_object
|
|
user(username:atom).
|
|
:- persistent
|
|
user(username:atom, password_hash:atom).
|
|
|
|
:- json_object
|
|
token(username:atom, token:atom).
|
|
:- persistent
|
|
token(username:atom, token:atom).
|
|
|
|
:- json_object
|
|
error(error:atom).
|
|
|
|
:- consult('routes/products.pl').
|
|
:- consult('routes/login.pl').
|
|
:- consult('routes/users.pl').
|