Added viz.js code

2 files changed, 0 insertions, 38 deletions

diff --git a/ppx_hash/dune b/ppx_hash/dune
deleted file mode 100755
index 7cb4bc8..0000000
--- a/ppx_hash/dune
+++ /dev/null
@@ -1,6 +0,0 @@
-(library 
-  (name ppx_hash) 
-  (kind ppx_deriver)
-  (libraries ppxlib ) 
-  (preprocess (pps ppxlib.metaquot))
-  )
diff --git a/ppx_hash/ppx_hash.ml b/ppx_hash/ppx_hash.ml
deleted file mode 100755
index 59584d5..0000000
--- a/ppx_hash/ppx_hash.ml
+++ /dev/null
@@ -1,32 +0,0 @@
-open Ppxlib
-
-(**
-
-   This is a simple ppx which evaluate hash for string at compilation time.
-
-    [%static_hash "deadbeef"] is equivalent to [Hashtbl.hash "deadbeef"]
-
-    the ppx only evaluate strings.
-*)
-
-let name = "static_hash"
-
-let expand ~loc ~path:_ (value : string) =
-  let h = Hashtbl.hash value in
-  Ast_builder.Default.eint ~loc h
-
-let extension =
-  Extension.declare
-    name
-    Extension.Context.expression
-    Ast_pattern.(single_expr_payload (estring __))
-    expand
-
-
-
-let rule = Ppxlib.Context_free.Rule.extension extension
-
-let () =
-  Driver.register_transformation
-    ~rules:[rule]
-    name