aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xcss.opam26
-rwxr-xr-xlib/js_lib/array.ml14
-rwxr-xr-xlib/js_lib/dune9
-rwxr-xr-xviz.js.opam25
4 files changed, 74 insertions, 0 deletions
diff --git a/css.opam b/css.opam
new file mode 100755
index 0000000..2367cac
--- /dev/null
+++ b/css.opam
@@ -0,0 +1,26 @@
+# This file is generated by dune, edit dune-project instead
+opam-version: "2.0"
+synopsis: "CSS Merger"
+maintainer: ["Sébastien Dailly"]
+authors: ["Sébastien Dailly"]
+depends: [
+ "dune" {>= "2.7"}
+ "ocaml" {>= "4.10.0"}
+ "brr" {>= "0.0.1"}
+ "css-parser" {>= "0.2.4"}
+ "odoc" {with-doc}
+]
+build: [
+ ["dune" "subst"] {dev}
+ [
+ "dune"
+ "build"
+ "-p"
+ name
+ "-j"
+ jobs
+ "@install"
+ "@runtest" {with-test}
+ "@doc" {with-doc}
+ ]
+]
diff --git a/lib/js_lib/array.ml b/lib/js_lib/array.ml
new file mode 100755
index 0000000..e55f1e9
--- /dev/null
+++ b/lib/js_lib/array.ml
@@ -0,0 +1,14 @@
+open Js_of_ocaml
+
+(** Compare two arrays *)
+let compare
+ : f:('a -> 'a -> bool Js.t) -> 'a Js.js_array Js.t -> 'a Js.js_array Js.t -> bool Js.t
+ = fun ~f arr1 arr2 ->
+ if arr1##.length <> arr2##.length then
+ Js._false
+ else
+ arr1##every
+ (Js.wrap_callback @@ fun elem i _ ->
+ Js.Optdef.case (Js.array_get arr2 i)
+ (fun () -> Js._false)
+ (fun elem2 -> f elem elem2))
diff --git a/lib/js_lib/dune b/lib/js_lib/dune
new file mode 100755
index 0000000..131a4bf
--- /dev/null
+++ b/lib/js_lib/dune
@@ -0,0 +1,9 @@
+(library
+ (name js_lib)
+ (libraries
+ brr
+ brr.note
+ js_of_ocaml
+ )
+ (preprocess (pps js_of_ocaml-ppx))
+)
diff --git a/viz.js.opam b/viz.js.opam
new file mode 100755
index 0000000..11b3a4f
--- /dev/null
+++ b/viz.js.opam
@@ -0,0 +1,25 @@
+# This file is generated by dune, edit dune-project instead
+opam-version: "2.0"
+synopsis: "Graph viewer"
+maintainer: ["Sébastien Dailly"]
+authors: ["Sébastien Dailly"]
+depends: [
+ "dune" {>= "2.7"}
+ "ocaml" {>= "4.10.0"}
+ "js_of_ocaml-lwt" {>= "3.8.0"}
+ "odoc" {with-doc}
+]
+build: [
+ ["dune" "subst"] {dev}
+ [
+ "dune"
+ "build"
+ "-p"
+ name
+ "-j"
+ jobs
+ "@install"
+ "@runtest" {with-test}
+ "@doc" {with-doc}
+ ]
+]