package require neo4j

set db [neo4j_connect -host localhost -port 7687 -user neo4j -password "neo4j"]
set res [neo4j_query $db "MATCH (n) RETURN n LIMIT 5"]
neo4j_disconnect $db

# Named parameters
set query {MATCH (p:Person {name: $n}) RETURN p}
set res [neo4j_query $db $query n "Julio"]

# Output format
# get a list of tuples (default)
set res [neo4j_query $db $query] -llist
# get a flat list
set res [neo4j_query $db $query] -list
# mixed with named parameters:
set res [neo4j_query $db $query] -list name "Julio"

# Using transactions
neo4j_query $db "BEGIN"
if {[catch {neo4j_query $db "CREATE (:Person {name: 'Julio'})"}]} {
    puts stderr "Error !"
    neo4j_query $db "ROLLBACK"
}
neo4j_query $db "COMMIT"