From 262f161f42c4e59beec41c6f440336c38385426a Mon Sep 17 00:00:00 2001
From: Marc Coquand <marc@mccd.space>
Date: Wed, 20 Dec 2023 20:46:00 -0600
Subject: Initial commit

---
 bin/dune    |  7 ++++---
 bin/main.ml | 33 ++++++++++++++++-----------------
 2 files changed, 20 insertions(+), 20 deletions(-)

(limited to 'bin')

diff --git a/bin/dune b/bin/dune
index 62d69ee..ce5ed03 100644
--- a/bin/dune
+++ b/bin/dune
@@ -1,5 +1,6 @@
 (executable
- (public_name ann_bloop)
+ (public_name fixgen)
  (name main)
- (libraries ann_bloop uri dream)
- (preprocess (pps lwt_ppx ppx_yojson_conv ppx_inline_test)))
+ (libraries 
+   fixgen)
+ )
diff --git a/bin/main.ml b/bin/main.ml
index 2ed3595..6942382 100644
--- a/bin/main.ml
+++ b/bin/main.ml
@@ -1,19 +1,18 @@
-open Ann_bloop
+open Fixgen
+
+let parse (s : string) =
+  let lexbuf = Lexing.from_string s in
+  let ast = Parser.prog Lexer.read lexbuf in
+  ast
+
 
 let () =
-  let port =
-    Sys.getenv_opt "PORT" |> Option.map int_of_string
-    |> Option.value ~default:8080
-  in
-  let env = Sys.getenv_opt "ENV" |> Option.value ~default:"PROD" in
-  let disable_auth =
-    Sys.getenv_opt "DISABLE_AUTH" |> Option.value ~default:"false"
-  in
-  let interface = if env = "DEV" then "localhost" else "0.0.0.0" in
-  Dream.run ~port ~interface @@ Dream.logger
-  @@ Dream.router
-       [
-         Dream.get "/actor" (fun _ ->
-             Dream.log "Sending actor";
-             Dream.html "Hello world!")
-       ]
+  let result = parse "user: id uuidv4, uh uuidv4\npurchases: id uuidv4, pid user.id" in
+  match result with
+  | Some ast ->
+    Ast_types.compile ast ~amount:4
+    |> List.iter (fun (name, file) ->
+      let result = Fixture.csv_of_generated_fixtures file in
+      print_endline ("FILE NAME: " ^ name);
+      print_endline result)
+  | None -> print_endline "error"
-- 
cgit v1.2.3