ktp-forked-repos / vivace-graph-v2 Goto Github PK

A free competitor to Franz's AllegroGraph by Kevin Raison.

At the moment, this code is in a state of rapid flux.  Please don't expect
it to behave consistently from one check-in to another.

The goal is to build a fast, robust, distributed graph database with optional
RDF semantics built-in.  The primary query language is Prolog (based on PAIP),
but I have plans to add Javascript and maybe Sparql at a later date.
At the moment, persistence is achieved via transaction logging and replay.
I am also working on a native SBCL memory mapped persistence
library that will give me some variation on linear hash tables.

The code checked-in as of 2012/05/06 works fairly well, but should be
considered alpha quality.  In order to get it working, you will need the
following:

SBCL 1.0.42 or higher: http://www.sbcl.org/platform-table.html
cl-skip-list: http://www.cliki.net/cl-skip-list
bordeaux-threads: http://common-lisp.net/project/bordeaux-threads/
hunchentoot: http://weitz.de/hunchentoot/
cl-json: http://common-lisp.net/project/cl-json/
uuid: http://www.dardoria.net/software/uuid.html
ieee-floats: http://common-lisp.net/project/ieee-floats/
parse-number: http://www.cliki.net/PARSE-NUMBER
cffi: http://common-lisp.net/project/cffi/
local-time: http://common-lisp.net/project/local-time/
date-calc: http://common-lisp.net/project/cl-date-calc/
py-configparser: http://common-lisp.net/project/py-configparser/
js: http://github.com/akapav/js
split-sequence: http://www.cliki.net/SPLIT-SEQUENCE
Montezuma


To get you started:
(asdf:oos 'asdf:load-op 'vivace-graph-v2)
(in-package #:vivace-graph-v2)

(create-triple-store :name "test store" :location "/var/tmp/db")
(index-predicate "likes")
(with-graph-transaction (*store*)
  (add-triple "Kevin" "is-a" "human")
  (add-triple "Joe" "is-a" "human")
  (add-triple "Fido" "is-a" "dog")
  (add-triple "Kevin" "likes" "Fido")
  (add-triple "Kevin" "likes" "Joe")
  (add-triple "Joe" "likes" "programming lisp")
  (add-triple "Kevin" "likes" "programming lisp")
  (add-triple "Kevin" "likes" "programming perl")
  (add-triple "Kevin" "likes" "programming c"))

(select (?x ?y) (q- ?x "likes" ?y))

(get-triples-list :search-string "programming")

(get-triples-list :s "Kevin")
(get-triples-list :p "is-a")
(close-triple-store :store *store*)

(open-triple-store :name "test store" :location "/var/tmp/db")
(index-predicate "likes")
(select (?x ?y) (q- ?x "likes" ?y))
(select-flat (?object) (q- "Kevin" "likes" (?object "a" "z")))
(get-triples-list :s "Kevin")
(get-triples-list :p "is-a")
(close-triple-store :store *store*)