sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>
On This Page
This is a very rough Apache Tinkerpop3 Gremlin client library written in OCaml. It was implemented using the Graph Driver Provider Requirements.
Given this is my first public OCaml library and I was fairly rushed, it's not pretty.
I'd like to improve it which probably means completely refactoring it but I'm not sure when I'll get the chance. In the meantime, any suggestions or PRs are welcome.
git clone https://github.com/bramford/ocaml-gremlin
cd ocaml-gremlin
opam pin add .Assuming you're running a gremlin server on localhost:8182, in a toplevel such as utop:
#require "gremlin";;
let conn =
Gremlin.Websocket.new_connection
(Uri.of_string "http://localhost:8182/gremlin")
(* Add vertices *)
let add_vertices = Lwt_main.run (
Gremlin.Websocket.run_queries_transaction
conn
["g.addV('user').property('name', 'foo')";
"g.addV('user').property('name', 'bar')";]
)
(* Get vertices *)
let get_vertices =
Lwt_main.run (
Gremlin.Websocket.run_query
conn
"g.V()"
)
;;See examples/ for other examples.
There's obviously a lot to improve but here are some starting points:
Logs)Lwt_stream but poorly)Lwt_list.map_s)