42 lines
649 B
Perl
42 lines
649 B
Perl
|
:- module(lit,
|
||
|
|
[ lit/0
|
||
|
|
]).
|
||
|
|
:- use_module('../rdf_db').
|
||
|
|
|
||
|
|
data(string, '').
|
||
|
|
data(string, 'This is a nice string').
|
||
|
|
|
||
|
|
data(int, 0).
|
||
|
|
data(int, -67).
|
||
|
|
data(int, 327848).
|
||
|
|
|
||
|
|
data(float, 0.0).
|
||
|
|
data(float, 48.25).
|
||
|
|
|
||
|
|
data(term, [let, us, test, a, list]).
|
||
|
|
data(term, [let, us, test, another, list]).
|
||
|
|
|
||
|
|
create :-
|
||
|
|
( data(Type, Value),
|
||
|
|
rdf_assert(subject, Type, literal(Value)),
|
||
|
|
fail
|
||
|
|
; true
|
||
|
|
).
|
||
|
|
|
||
|
|
lookup :-
|
||
|
|
findall(T-V, (rdf(subject, T, X), X = literal(V)), Pairs),
|
||
|
|
findall(T-V, data(T, V), Data),
|
||
|
|
Data == Pairs.
|
||
|
|
|
||
|
|
|
||
|
|
/*******************************
|
||
|
|
* MAIN *
|
||
|
|
*******************************/
|
||
|
|
|
||
|
|
lit :-
|
||
|
|
rdf_reset_db,
|
||
|
|
create,
|
||
|
|
lookup.
|
||
|
|
|
||
|
|
|